Utilities ... data

8dfc5773-78c5-47ad-81df-2d6b903ed00d 39 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

1. Control room ... Operators PanAlarm

This PanAlarm is minimalist demo of 3 process variables. Data can have more columns of process conditions.

Utilities ... data

Implicit 'zoom fractional' Up/Down M a b zoomfract a b ≡ (a b | (1 ≠ (& (implicit conditions ≡ i 1 M rows a * (range j 1 M cols b * (range N i j el M i a / Ceil j b / Ceil el : a 1 ≥ N i j el M i a / Floor j b / Floor el : cases for for N 31 line :

data 11110001011000110101100083 mat :

You need that one for scaling grayscale image M lo hi Scale hi lo - (M M Min - M Max M Min - / (* lo + :

For convenience: Auto-Calculation

Aarm scan from data logging or on actual "Plant scan"

collapsed utilities data data 0255 Scale :

Cumulative process scan
[P,L,T] alarm operators. data 11110001011000110101100083 mat ≡

Ladder data j row 3040 zoomfract : alarm Ladder 0 Ladder * 0 Ladder * 13 mat : 21 sys Batch data 8 row 3040 zoomfract : Cntrl 0 Batch (* 1 Batch 255 + (* 0 Batch (* 13 mat : 21 sys 21 sys

OPERATORS Alarm Panel 1. at the start of the batch process no condition [P,L,T] are met ... all red 2. as the process goes, some conditions are under control ... less red. 3. as the time lapses "under control" all conditions are finally OK ... all green. 4. "each data" from data logging time back-scan bears a time stamp. 5. In actual operation, PanAlarm is a single scan at time.

PanAlarm alarm 1 j ≤ (j 7 ≤ (& Cntrl j 8 ≡ scan complete cases :

iVBORw0KGgoAAAANSUhEUgAAAHgAAAAeCAYAAADnydqVAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABiSURBVGhD7dGxEQAgEMOwh/13Bgqm0FkpMoDXnLew9v+gCowrMK7AuALjCowrMK7AuALjCowrMK7AuALjCowrMK7AuALjCowrMK7AuALjCowrMK7AuALjCowrMK7AuALTZi4fpQI6CqAB+QAAAABJRU5ErkJggklFTkSuQmCCggAASUVORK5CYII=

P..L..T [bar,level,°C]

PanAlarm

2. Evolutive process values ...

Converts string matrix to num ... Adapted NDTMA data Str2Num data eval NOT needed ≡ a data 1 col : (String column ≡ b data 2 col : (Numerical column ≡ x n F2 x / strsplit n el str2num vectorize : a 3 F2 a 1 F2 a 2 F2 b augment 51 line :

Courtesy NDTMA Smath Forum

This vectorize function splits strings at / and converts entire matrix to numbers.

Shuffle order as wanted ...
Add/shuffle more num cols [b,c,d ...]. a 3 F2 a 1 F2 a 2 F2 b c d augment

a 1/3/1960 / strsplit : 13196031 mat

Example

a 1 el 1

a 2 el 3

a 3 el 1960

a 3 el str2num 1960

Data Str_data 1/1/1960 7.9 1/2/1960 34.5 1/3/1960 23.3 1/4/1960 1.5 1/5/1960 0 1/6/1960 0.1 1/7/1960 3.3 1/8/1960 10.1 1/9/1960 5.1 1/10/1960 21.8 1/11/1960 14.9 1/12/1960 6.6 122 mat :

Year Str_data Str2Num :

New Year 3 col Year 4 col augment :

Year 196011 7.9 196012 34.5 196013 23.3 196014 1.5 1960150196016 0.1 196017 3.3 196018 10.1 196019 5.1 1960110 21.8 1960111 14.9 1960112 6.6 124 mat

New 1 7.9 2 34.5 3 23.3 4 1.5 506 0.1 7 3.3 8 10.1 9 5.1 10 21.8 11 14.9 12 6.6 122 mat

Year 4 col Mean 10.8

Bar plot unicolor style, bar width user. data dt Bar v data 2 col : t v bar t dt - 0 t dt - v t dt + v t dt + 042 mat : j 1 data rows range j 1 ≡ B data j 1 el data j 2 el bar : B B data j 1 el data j 2 el bar stack : if 11 line for B 41 line :

Plot New 0.125 Bar :

Plot 0 30 0 0 2 2 mat Year 4 col Mean 3 1 sys

3. Operators clock ... pilot ∠°

arrow core composite creator

P V L 1 sf arrow t V norme eval : a 0.5 0.3 0.15 0.65 0.35 14 mat * t sf * eval : 12 mat x L 1 el a 1 el - 000 a 1 el 51 mat * eval : y L 2 el a 3 el a 4 el - a 3 el a 4 el + a 3 el a 4 el + (- a 3 el a 4 el + a 3 el a 4 el - 51 mat * eval : 12 mat θ t 0 ≡ 0 V 1 el sign V 2 el t / acos * - if eval : c θ cos : s θ sin : 13 mat k 15 range x k el y k el 21 mat P c x k el * s y k el * - s x k el * c y k el * + 21 mat + eval : for x y augment eval 51 line :

zoom system z 1.25 :

roots of unity

x f 1 x 2^- sqrt ± :

data char size clr plot k 1 data rows range r3 k el char : r4 k el size : r5 k el clr : 31 line for data r3 r4 r5 augment 21 line :

n 12 :

roots x n^1 - 0 ≡ x solve maple :

U roots Re roots Im augment :

rootsU z U * . 14 black plot :

Trigonometric rotation ∠ 60 ° * :

length red 3 :

Origin blue P 0021 mat :

Origin red p 0021 mat :

end coord's V ∠ cos ∠ sin 21 mat :

orthogonal v 0121 mat :

width
length L 0.25 221 mat :

λ 0.5 red 21 mat :

zoom system(s) t sf z t * : 11 sys

center P 1 el P 2 el o 10 black augment :

red_depos p v λ t sf arrow 22 el : 1.875

plot P V L t sf arrow p v λ t sf arrow z 2^x 2^- sqrt ± center rootsU 0.5 - red_depos 0.5 red_depos 22 mat 61 sys :

plot

4. More shapes ... from data set 'Y'

Fourier "ifft" from padded created vector [Numeric] v ifft N v length : s 1 N sqrt / : 12 mat n 0 N range I n 1 + el s (v k 1 + el e i 2 π * n * N / (* k * -^* (k 0 N 1 - sum eval * : for I 31 line :

add/remove '0' Y 1000000118 mat transpose :

shape/scale directions sX 1 : sY 1 : 12 mat

U Y ifft : a U Re mat2sys sys2mat : b U Im mat2sys sys2mat : 31 line

explore j 15 range :

jj 59 range :

a b augment 0.7071 0 0.6036 0.25 0.3536 0.3536 0.1036 0.25 0 1.3 1014 -^* 0.1036 0.25 - 0.3536 0.3536 - 0.6036 0.25 - 0.7071 2.7 1014 -^* - 92 mat

Draw odd polygon

sX a j el * sY b j el * augment sX a jj el * sY b jj el * augment 2 1 sys

5. Process shapes ...

hatch

Erzeugt eine Matrix für die Darstellung vertikaler Linien zwischen den Funktionen f(x) und 
g(x) im Bereich von x1 bis x2 mit 2*n Linien. Generates a matrix for 2*n vertical lines (hatching) between functions f(x) and g(x)
in x-range from x1 to x2 f g x.1 x.2 N hatch dx x.2 x.1 - N / (: h x.1 x.1 f x.1 x.1 g 22 mat : x x.1 x.2 dx - x.1 dx + range h h x dx 2 / + x dx 2 / + g x dx 2 / + x dx 2 / + f x dx + x dx + f x dx + x dx + g 42 mat stack : for h 41 line :

DeCasteljau

Understanding SVG

Model from jmG Mathcad 8 Pro. made work in Smath by Dave Carpi

t = interpolation point in [0,1]
p = control points t p DeCasteljau De Casteljau SMath M 1 t - (p 1 row * t p 2 row * + : p rows 2 > i 2 p rows 1 - range M M 1 t - (p i row * t p i 1 + row * + stack : for t M DeCasteljau 21 line M if 31 line :

t = range of interpolation points in [0,1]
p = control points t p DeCasteljauRange M t 1 el p DeCasteljau : i 2 t length range M M t i el p DeCasteljau stack : for M 31 line :

ndp =  number of discretization points (> 1)
p = control points ndp p DeCasteljauNDP t 011 ndp 1 - / range : M t 1 el p DeCasteljau : i 2 t length range M M t i el p DeCasteljau stack : for M 41 line :

data spec pts i 1 data rows range p i el a b c spec : for v p 1 el : Unest 'p' j 2 p rows range v v p j el stack : for data v augment 51 line :

XY 100020201015 - 05050015 - 26 mat transpose :

a b c spec . 14 black 13 mat :

xy XY a b c spec pts :

data n Decimate collect every 'n' pairs range 1 data rows n range : k 1 : i range u k el data i 1 el : v k el data i 2 el : k k 1 + : 31 line for u v augment 31 line 31 line :

svg 1 :

roof

filtrate level LV 25 :

p svg 1010015 - 15 - 023 mat 000005023 mat 0102050605023 mat 202020500023 mat 201010015 - 15 - 23 mat 200000023 mat 02020 LV LV LV 23 mat 200050505023 mat 18 mat transpose * :

NDP 50 :

bin NDP p 1 el DeCasteljauNDP :

i 2 p length range bin bin NDP p i el DeCasteljauNDP stack : for

bin rows 400

ε 1 :

m³ 1 :

level bin 306326 range 12 range el :

x y axes x y / - :

x f 0 x * ε + : x g 0 x * LV ε - (+ : 12 mat Hatch x f x g 0.5 svg 19.5 * 16 hatch : 21 sys

bin level Hatch 3 1 sys

volume π 4 / svg 10 * (2^* LV * svg * : m³ 1963

bezier NDP p i el SVG stack

LV 25

You can associate Filtrate Bin wrt PanAlarm ... NOT offered.

6. Operators bar process evolution ...

m random m m bar #808080 white 13 mat

Code from Martin Kraska x y n bar Martin random bar full █ : dot ░ : s : x x eval : j 1 n range x y / j n / > s s full concat (: s s dot concat (: if for s 71 line :

STEPS to full:="" ... [similar dot:=""] 1. Get the MS Charmap from task bar 2. Select 'Font' ... Arial (suggested) 3. Click/select on symbol you want 4. Copy from Charmap 5. Paste in full:="█" 6. Once pasted, type any alpha/numeric that will invoque the pasted symbol. 7. Backspace to remove the alpha/numeric 8. Brush over, click "settings" ....... demo MicrosoftSansSerif 8

'n' lenght of "░" m 10 : y 40 : n 40 : 13 mat

m y n bar #808080 yellow 1 3 mat

m 20 : y 40 : n 40 : 13 mat

m y n bar #808080 yellow 1 3 mat

m 30 : y 40 : n 40 : 13 mat

m y n bar #808080 yellow 1 3 mat

m 40 : y 40 : n 40 : 13 mat

m y n bar #808080 yellow 1 3 mat

7. Operators commands ...

start/stop ... open/close Formated Label x pluto x 0 ≡ ▲ white green 13 mat x 1 ≡ ▼ white red 13 mat x 2 ≡ ► black yellow 13 mat ◄ black magenta 13 mat if if if :

X 012 0.5 14 mat transpose :

start motor

X 1 el pluto

stop motor

X 2 el pluto

open valve

X 3 el pluto

close valve

X 4 el pluto

Operators control PID insight...

This is the PID CPV discrete recursive control algorithm. CPV = Composite Past Value The single line diagram helps visualising what's going on. The field input is converted from Analog/Digital, then passed into the PID CPV, then converted back to Analog. The D/A to field may be optional, some field controlling devices are fit to discrete signal.

jmG: 20230122