Stem Module

2ed1ba03-71ea-488b-87f7-3a090c7c6b0e 36 4 5 decimal

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

Stem Module

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 :

Tools => Options => Calculation AUTO

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

Unit pulse:width/locate x p Φ 1 x p - sign + 2 / (:

α 1 :

β 2 :

t f t α - Φ t β - Φ - :

npts 16326412825651 mat :

x f

j 3 :

Z 3 :

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

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

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

Pulse p Stem :

Pulse

N p rows : 65

Y p 2 col :

Stem Style on Discrete Window

Core component of the stem style P v replicate Mathcad 8 Pro. Treasury k 1 : i 1 v length range P i el 1 ≡ continue j 1 P i el range T k j + el v i el : for k k P i el + : 21 line if for T 41 line :

iii 1 N range P iii el 3 : P N el 2 : 21 line for

ii 1 N range v ii el ii : for

u P v replicate :

i 1 N range S 3 i * el Y i el : for

V u S augment :

V V 3 V rows 12 submatrix :

λ Y length : 65

Y Y sys2mat :

D i 1 - sqrt : n 1 N range D n el 1 λ 1 - sqrt / Y k el e i 2 π * n * λ / (* k *^* (k 1 N sum eval * : for D 31 line :

New t 1 N range : F D mat2sys abs sys2mat : t F augment 31 line :

Prepare Stem Style spec New 2 col :

t0 1 time :

<= Fake to view DC DC 0 spec 1 el 0022 mat :

1 time t0 - 13 s *

Stem style construct

iii 1 N range q iii el 3 : q N el 2 : 21 line for

ii 1 N range v ii el ii : for

Core component of the stem style P v replicate k 1 : i 1 v length range P i el 1 ≡ continue j 1 P i el range T k j + el v i el : for k k P i el + : 21 line if for T 31 line :

u q v replicate :

i 1 N range S 3 i * el spec i el : for

V u S augment :

V V 3 V rows 12 submatrix :

Unscaled spectrum ... "box car". Many users "scale" the max to 1

V DC 2 1 sys

The 1rst spectral component is DC. Here, shifted in red to highlight.