<p> Stem Module </p>

577e9d0f-4905-483e-8e21-e9f845c5d3ef 12 6 9 decimal

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

Spectrum stem plot for QuickPlot unicolor 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 :

L H N xd start/end @ L..H U 0 : dx H L - N / : i 1 N range U i el L dx - (dx i * + : for U 51 line :

Pre-define Unit step x Φ 1 x sign + 2 / (:

npts 16326412825651 mat : j 4 : populate ≡ 21 line

α 1 : β 2 : 12 mat t f t α - Φ t β - Φ - : 21 line

L 0 : H 3 : 12 mat N npts j el : U L H N xd : 31 line

p i 1 U rows range Y i el U i el f eval : for U Y augment 21 line : Pulse p Stem : 21 line

bar Pulse α 2 α 1 - 22 mat β 2 β 1 - 22 mat 0.5 2 π * x * sin * 51 sys :

bar

In this example [β-α] span j=4 fills the pulse

===================================================

Pre-define Unit step x Φ 1 x sign + size / (:

npts 16326412825651 mat : j 2 : populate ≡ 21 line

α 1 - : β 1 : 12 mat size 16 : t f t α - Φ t β - Φ - : x q 0.5 2 π * x * sin * : 41 line

L 2 - : H 2 : 12 mat N npts j el : U L H N xd : 31 line

p i 1 U rows range Y i el U i el f eval : for U Y augment 21 line : Pulse p Stem : 21 line

bar x q Pulse α 2 α 1 - 22 mat β 2 β 1 - 22 mat 41 sys :

bar

grid β α - 0.5 N * / : 0.125