Examples update to conform to new semantic of multiplication operator. - gsl-shell.git - gsl-shell

diff --git a/examples/bspline.lua b/examples/bspline.lua
index 00ef700a..e041d4a2 100644
--- a/examples/bspline.lua
+++ b/examples/bspline.lua

@@ -22,7 +22,7 @@ function demo1()

local c, cov = mlinear(X, y, w)

local p = plot('B-splines curve approximation')

- p:addline(xyline(x, mul(X, c)))

+ p:addline(xyline(x, X*c))

p:addline(xyline(x, y), 'blue', {{'marker', size=5}})

p:show()

diff --git a/examples/eigensystems.lua b/examples/eigensystems.lua
index a4b00a7b..fc25b2e3 100644
--- a/examples/eigensystems.lua
+++ b/examples/eigensystems.lua

@@ -7,29 +7,31 @@ end

function demo1()

local m = new(4, 4, |i,j| 1/(i+j-1))

- print('Matrix:')

- print(m, '\n')

+ echo 'Matrix:'

+ print(m)

local e, v = eigsv(m)

- print('Eigenvalues:', ilist(|i| e[i], 4), '\n')

+ echo('Eigenvalues:')

+ print(ilist(|i| e[i], 4))

-- the following expression will give a diagonal matrix with the eigenvalues

--- along the diagonal

- print('Matrix diagonal form:')

- print(prod(v,mul(m,v)))

+ echo('Matrix diagonal form:')

+ print(prod(v, m*v))

end

function demo2()

local m = vandermonde {-1, -2, 3, 4}

- print('Matrix:')

- print(m, '\n')

+ echo 'Matrix:'

+ print(m)

local e, v = eignsv(m)

- print('Eigenvalues:', ilist(|i| e[i], 4), '\n')

+ echo 'Eigenvalues:'

+ print(ilist(|i| e[i], 4))

-- the following expression will give a diagonal matrix with the eigenvalues

--- along the diagonal

- print('Matrix diagonal form:')

- print(mul(inv(v),m,v))

+ echo('Matrix diagonal form:')

+ print(inv(v) * m * v)

end

echo([[

diff --git a/examples/linfit.lua b/examples/linfit.lua
index 2e1a61aa..6079b661 100644
--- a/examples/linfit.lua
+++ b/examples/linfit.lua

@@ -54,7 +54,7 @@ function demo3()

local legmodel = |j, x| j == 0 and 1 or legendreP(j, xn(x))

local X = new(n, kfit+1, |i,j| legmodel(j-1, x[i]))

local c = mlinear(X, y)

- local yfit = mul(X, c)

+ local yfit = X * c

p = plot('Legendre Polinomial fit of Bessel J3(x)')

p:addline(xyline(x, yfit))

p:addline(xyline(x, y), 'blue', {{'marker', size=5}})

diff --git a/examples/nlinfit.lua b/examples/nlinfit.lua
index 14f88e8d..d55c0880 100644
--- a/examples/nlinfit.lua
+++ b/examples/nlinfit.lua

@@ -39,7 +39,7 @@ function demo1()

local function print_state(s)

print ("x: ", tr(s.p))

- print ("chi square: ", mul(hc(s.f), s.f)[1])

+ print ("chi square: ", (hc(s.f) * s.f)[1])

end

s = cnlfsolver {fdf= cexpf, n= n, p0= vector {2.1, -2.8, 18, 0}}