Stem module

22600af8-b94b-490e-9615-0f8acb97e86d 6 15 12 decimal

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

low high N logpts linear-log populate step high low / 10 log N / : i 1 N range x i el low 10 step i *^* : for x 41 line :

q 0.001 10001000 logpts :

n 0.5 :

q f q n^:

u 0.001 9991 range :

Lx q f vectorize u augment : vx Lx 1 col : vy Lx 2 col : TabX vy vx augment : 41 line

q rows 1000

u rows 1000

TabX 1 1 sys

Ly u u f vectorize augment : vx Ly 2 col : vy Ly 1 col : TabY vy vx augment : 41 line

j 501 :

XY TabY j 1 el TabY j 2 el + 40 red 15 mat :

xy TabY j 1 el TabY j 2 el augment :

TabY x sqrt XY 3 1 sys

xy 499.5 22.35 12 mat

Stem module

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 :

Decades

a b N split a b a b a - (N / + range : X j n Range X j el X j 1 + el n split : X j n Log 1 X j el n split : N Decades j 0 N range X j 2 + el 10 j^: for X 21 line : 41 sys

Exponential threshold  15 X 6 Decades : 0110100100010000100000100000081 mat

LogNegative X 110 Log log10 vectorize reverse :

range2 X 29 Range log10 vectorize : range3 X 39 Range log10 vectorize : range4 X 49 Range log10 vectorize : range5 X 59 Range log10 vectorize : 41 sys

data2 range2 1.5 10 Ones * augment : data3 range3 210 Ones * augment : data4 range4 2.5 10 Ones * augment : data5 range5 310 Ones * augment : 41 sys

region4 data4 1 col :

j 1 region4 rows range Y j el region4 j el sqrt : for

regionXY region4 Y augment :

log10 spaced stem style plot ... the first negative is far away @ - 15.86

data2 Stem data3 Stem data4 Stem data5 Stem x sqrt 6 1 sys

regionXY 2 1.414 2.301 1.517 2.477 1.574 2.602 1.613 2.699 1.643 2.778 1.667 2.845 1.687 2.903 1.704 2.954 1.719 3 1.732 102 mat