<p> Utilities </p>

7d6b2aab-7d05-4b60-a5d6-6bdbcccf1e57 2 15 12 decimal

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

Exclusive discrete plot

Algo style "circulation" discretizer [piston discretizer]
1. collect branches of Maple symbolic solve.
2. highlight start/end of plot ... 3. Exclusive region # f x0 x1 xmesh fmesh U 0 : count 1 : i 1 xmesh range x i el x0 i xmesh / x1 x0 - (* + : U count el x i el f eval : count count 1 + : 31 line for x U augment 41 line :

x f 11 x 2^+ / :

r 1 :

d 2 :

x c 1 x r - x ≤ (r x ≥ (& (¤ cases :

datum d - r f d r f 22 mat :

data x f 5 - 1 - 100 fmesh : datareverse x f 15100 fmesh : exclusive data datareverse stack : 31 sys

x f x c * x f datum 3 1 sys data datareverse 2 1 sys exclusive x f 2 1 sys

γ 1.4 : (Air isentropic ≡ k 0.88128485 : (Pitot constant ≡ p static pressure ≡ qc dynamic pressure ≡ x Pitot dynamic ratio qc/P ≡ x qc p / ≡ (supersonic Pitot ratio ≡ 61 line

Observe the canvas solutions:

as 'x' in Supersonic(x) runs on the plot canvas,

the 'roots' solves and plots each canvas pixel result ...

each result on the basis of 96 ppi [pixel per inch].

]]>

Plot limit x c 10 x ≤ (x 5 ≤ (& cases :

t0 1 time :

x Subsonic 2 γ 1 - / (x 1 + (γ 1 - γ /^1 - (* sqrt 0 x ≤ (x k ≤ (& Supersonic cases : x Supersonic U x 1 + (117 U 2^* / - (2.5^* sqrt / k - 0 ≡ U 1 roots k x ≤ Subsonic cases : 21 line

x Subsonic x Supersonic x c * k 1 + 20 black 1 5 mat 3 1 sys

1 time t0 - 75 s *

supersonic

subsonic

<p> Utilities </p>

data char size clr plotG 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 :

L H N xd U 0 : dx H L - N / : i 1 N 1 + range U i el L dx i * dx - (+ : for U 41 line :

Pt100: Wr [Ω] vs temperature [t °C] t Wr Z K.p 1 α β α - (/ t 259.3467 + (- α K.p * / exp * + β β α - (/ t 259.3467 + (- β K.p * / exp * - (* + :

Wr_Pt100

eit90 259.3467 - 0.00119007 248.5939 - 0.00844974 218.7916 - 0.09171804 189.3442 - 0.21585975 38.8344 - 0.84414211 0.01 1.0000000 29.7646 1.11813889 156.5985 1.60980185 231.928 1.89279768 419.527 2.56891730 660.323 3.37600860 961.78 4.28642053 122 mat :

The XFR coefficients 
were obtained from MCD
via a specialy designed
..."osculatice method"...
NOT revealed [Jean Giraud] Z 0.0009996 : K.p 12.4435128 : α 1.7276022 : β 228.3303460 : 41 sys

°Ceit90 eit90 1 col : Wr eit90 2 col : 21 sys

Enter temperature (°C) => °C 100 :

Ω °C Wr : 1.3957

on-line interpolate °C Ω 12 mat 100 1.3957 12 mat

t Pt100 259.3467 - t ≤ (t 961.78 ≤ (& t Wr Pt100"NOT eit90" if :

Pt100 is not the best candidate for the lower cryogenic range. Besides "specific cryogenic" TC type 'T' [-268.935] is a good choice for Industrial Processing.

L 259.3467 - : H 961.78 : N 1221 : U L H N xd : 41 line

vy i 1 U rows range y i el U i el Wr : for y 21 line :

The elegant/convenient Smath "Plot creator" ... pretty smart ! Ωr U vy augment : data °Ceit90 Wr augment o 7 blue plotG : Title 0 3.875 Resistance Thermometre Pt100 14 black 15 mat : m°C 375 0.35 Measured °C 12 black 15 mat : ΩrXFR 42 - 2.375 Ωr(°C) 12 black 15 mat : t_Ω °C Ω + 20 green 15 mat : 61 line

Plot arguments plot data Ωr t_Ω Title m°C ΩrXFR 256 - 325632563 °C Ω 42 mat 71 sys :

plot

°C Ω 12 mat 100 1.3957 12 mat

Z 0.0009996 ≡ K.p 12.4435128 ≡ α 1.7276022 ≡ β 228.3303460 ≡ 41 line

Z K.p 1 α β α - (/ t 259.3467 + (- α K.p * / exp * + β β α - (/ t 259.3467 + (- β K.p * / exp * - (* +