25 lines
618 B
Text
25 lines
618 B
Text
func$ lincomb scalars[] .
|
|
for m to len scalars[]
|
|
scalar = scalars[m]
|
|
m$ = "(" & m & ")"
|
|
if scalar <> 0
|
|
if scalar > 0
|
|
if str$ <> "" : str$ &= "+"
|
|
else
|
|
str$ &= "-"
|
|
.
|
|
scalar = abs scalar
|
|
if scalar = 1
|
|
str$ &= "e" & m$
|
|
else
|
|
str$ &= scalar & "*e" & m$
|
|
.
|
|
.
|
|
.
|
|
if str$ = "" : str$ = 0
|
|
return str$
|
|
.
|
|
scalars[][] = [ [ 1 2 3 ] [ 0 1 2 3 ] [ 1 0 3 4 ] [ 1 2 0 ] [ 0 0 0 ] [ 0 ] [ 1 1 1 ] [ -1 -1 -1 ] [ -1 -2 0 -3 ] [ -1 ] ]
|
|
for i to len scalars[][]
|
|
print lincomb scalars[i][]
|
|
.
|