f15.kg

Download program

.l("config.kg")

Cached data set X::rndn(;2)'err(10;1.5;dist(cdf;30;[-5 5])%30)

X::[-0.11 -0.32  0.32 0.0   0.21 -0.11
    -0.11  0.0   0.0  0.03 -0.04  0.1
    -0.23  0.73 -0.1  0.14  1.02  0.05
     1.11  1.04  0.97 1.0   1.21  1.75
     1.11  1.11  1.0  0.79  0.79  0.89]

Plot splines with 2 to 10 degrees of freedom (x-axis mirrored)

k::2+!9
cgrid3(0,((#X)-1),3;[-0.5 2.0 0.25];$'k)
XY::(!#X),'X
s::spl(;XY)'k
plot3({sp(((#X)-1)-x;s@y)})
draw()