<p> Stem(data) </p>

c5cff0a0-4c05-4054-9e65-d13a14441777 12 3 12 decimal

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

Explain the project

This data set is a test set for the "Spline2XV6" proposed by Mathsoft

Before passing to Spline2XV6 we add noise and pass to Spline2XV6

Spline2XV6 renders the noisy test set exeptionally well ! ~ 1/1 peak(x) .

]]> <p> Stem(data) </p>

Error 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 :

data spec pts i 1 data rows range p i el a b c spec : for v p 1 el : Unest 'p' j 2 p rows range v v p j el stack : for data v augment 51 line :

data char size clr plot k 1 data rows range r3 k el char : r4 k el size : r5 k el clr : 13 mat for data r3 r4 r5 augment 21 line :

XYZ 4 0.1 0.005 5 0.13 0.005 3 0.15 0.006 4 0.23 0.01 5 0.25 0.01 4.2 0.4 0.03 2.1 0.44 0.01 4.3 0.65 0.01 3.1 0.76 0.005 5.1 0.78 0.008 4.2 0.81 0.005 113 mat :

X XYZ 1 col : Y XYZ 2 col : Z XYZ 3 col : 13 mat

x peak X j el 1 x Y j el - abs Z j el / + (4^/ j 111 sum :

observer λ=> 0/1

xy i 50850 range x i el 0.001 i * : y i el x i el peak eval : 21 line for x y augment 21 line :

λ 1 :

λ observer . . .

λ = 0 plots the blue trace 'xy'

λ = 1 blinds blue 'xy', only pts

]]>

data Y X augment : pts λ xy * . 10 black plot : 21 sys

λ 0 ≡ xy 0 if data Stem pts 3 1 sys