<p> Stem(data) </p>

eaf09142-33c3-40d8-8f54-def9cb0d63af 49 4 5 decimal

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

Stem construction over a data set data Stem stemX 1 data rows range : i 1 stemX rows range stem i el data i 1 el data i 2 el data i 1 el 022 mat : for i 1 stem rows 1 - range stem i el stem i el stem i 1 + (1 el 1 el 012 mat stack : for V stem 1 el : j 2 stem rows 1 - range V V stem j el stack : for V V data data rows row stack : 71 line :

Optimiz: NONE a b t pulse 1 s / a s * - exp b s * - exp - (* t 0 > assume s t invlaplace maple :

t0 1 time :

a b t pulse t a - sign t b - sign - 2 /

a 1 - : b 1 : 21 line

a b x f x a - sign x b - sign - 2 / : convolving function ≡

α 2 - slide + : β 0 slide + : 21 line

α β x g x α - sign x β - sign - 2 / : convolved function ≡

a b x f x 1 - 1 int 1.996667

Mesh U, V  within the bounds L, H L H N xd U 0 : dx H L - N 1 - / : i 1 N range U i el L dx i * dx - (+ : for U 41 line :

Exactly 2

a b x f x 1 - 2 int 2.0025

slide 0.75 - :

a 1 - : b 1 : 21 line

α 0 slide + : β b a - (slide + : 21 line

sliding window 
of integration α β 21 mat 0.75 - 1.25 21 mat

a b 21 mat 1 - 121 mat

Convolution integration α β x Σ a b x f α β x g * x α β int :

α β x Σ 1.7

α β - 2 -

The sliding pulse is of constant width

a α - 0.25 -

α β u F a b x f α β x g * :

α β z Int α β u F u 1 - x int :

pulse a 0 a 1 b 1 b 042 mat :

convol α 0 α 1 β 1 β 042 mat :

s slide 2 slide 2 - 22 mat :

α β x Int α β z Int :

x Σ augment Stem

Yo α β α Int : 0.125

0.75 - x ≤ x b ≤ & α β x Int 0 if 1 - 2 1 sys

cnv N 51 : x α b N xd : i 1 x rows range α x i el ≤ (x i el β ≤ (& Σ i el α β x i el α - (Int eval : 0 if 21 line for x Σ augment Stem 41 line :

p pulse convol cnv s 51 sys :

1 time t0 - 11 s *