<p> Stem style construct </p>

5342ef44-0757-4e87-9821-d208cdfcd374 5 4 5 decimal

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

N 28^:

n 0 N range s n el n 100 - abs 20 ≤ : for

s x el 80 1.5 80 0 2 2 mat 120 1.5 120 0 2 2 mat 3 1 sys

S s mwfft mwabs :

j 1 N range :

New t 1 s rows range : F s mwfft mwabs : t F augment 31 line :

j s augment 11 mat

spec New 2 col :

<p> Stem style construct </p>

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 :

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 :

DC 1 spec 11 el 1022 mat :

<= Fake to view DC

U V 4 V rows 12 submatrix :

Unscaled spectrum. Remember: the 1rst component of a spectrum is the DC component.

U DC 2 1 sys