| Author |
Comment/Response |
Ken Hahn
|
 01/27/01 1:57pm
1) Problem one
I can not join the following steps into one command, such as a Do
loop.
Each step works.
The problem is the % sign
f[n_] := FoldList[ Plus, n, {2,3}]
f[1] = {1, 3, 6}
f[2 + Last [%] ] = {8, 10, 13}
f[2 + Last[%] ] = {15, 17, 20}
But the following does not work
test[i_, j_] := Module [{list}, list = f[1];
Print[list];
list = Do[ ( f[2 + Last[%] ] ;
i=i+1;
Print[list]; ) , {i, 1, j} ]; ]
2) Plot issue
y = { 2, 4, , 9 }
x = { 1, 2, 3, 4 }
I do not how to convert the ys blank to zero.
The intention is to remove the blank from y-axis, and the
corresponding 3 from x-axis
Thanks
URL: , |
|
