Display a linear combination: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: aligned a comment.) |
|||
Line 1,615: | Line 1,615: | ||
n= n + 1 /*bump the number of elements in vector*/ |
n= n + 1 /*bump the number of elements in vector*/ |
||
if n==1 then s= strip(s) /*if the 1st element used, remove blank*/ |
if n==1 then s= strip(s) /*if the 1st element used, remove blank*/ |
||
if a\==1 then s= s || a'*' /*if multiplier is unity, then ignore #*/ |
if a\==1 then s= s || a'*' /*if multiplier is unity, then ignore #*/ |
||
$= $ s'e('k")" /*construct a liner combination element*/ |
$= $ s'e('k")" /*construct a liner combination element*/ |
||
end /*k*/ |
end /*k*/ |