Sponsored links: Algebra eBooks
 

Related

endcons-plot2d
plot2d( [discrete, xy], [style, points], [color, yellow]);

xy: [];

xy:endcons([10, .6],xy);

xy:endcons([20, .9],xy);

Calculate

endcons-plot2d
plot2d( [discrete, xy], [style, points], [color, red]);

xy: [[1,2]];

endcons([10, .6],xy);

endcons([20, .9],xy);

Calculate

endcons-plot2d
plot2d( [discrete, xy], [style, points], [color, red]);

xy: [];

xy:endcons([10, .6],xy);

xy:endcons([20, .9],xy);

Calculate

endcons-plot2d

xy: [[10, .6], [20, ....

endcons([66,77],xy);

/*リストに追加 */plot2d( [...

Calculate

endcons-plot2d

xy: [[10, .6], [20, ....

endcons([66,77],xy);

/* リストに追加 */plot2d( ...

Calculate

endcons-plot2d
plot2d( [discrete, xy], [style, points], [color, red]);

xy: [[1,2]];

endcons([10, .6],xy);

endcons([20, .9],xy);

Calculate

endcons-plot2d
plot2d( [discrete, xy], [style, line], [color, red]);

xy: [];

xy:endcons([10, .6],xy);

xy:endcons([20, .9],xy);

Calculate

endcons-plot2d

xy: [[10, .6], [20, ....

endcons([66,77],xy);

/*xxxx*/plot2d( [dis...

Calculate

endcons

Run Example
(%i1)f(x):=0.5*x*(1-x);
(%o1)                        f(x) := 0.5 x (1 - x)
(%i2) mespoints(a):=block([k,b,L],b:a,L:[[0,b]],for k:1 thru 10 do (b:f(b),L:endcons([k,b],L)),return(L));
(%o2) mespoints(a) := block([k, b, L], b : a, L : [[0, b]], 
                for k thru 10 do (b : f(b), L : endcons([k, b], L)), return(L))
(%i3) plot2d([discrete,mespoints(1/2)],[style,points]);
plotplot2d([discrete,mespoints(1/2)],[style,points]);
Run Example
list_of_derivatives(x) := block([result : []], scanmap(lambda([x], if not atom(x) then result : endcons(x, result), x), x), result);
(%o1) list_of_derivatives(x) := block([result : []], 
scanmap(lambda([x], if not atom(x) then result : endcons(x, result), x), x), 
result)
(%i2) list_of_derivatives('diff(y,x,2)+y*'diff(y,z,3)+x^2*'diff(y,x,1,y,2));
           3     2         3          3           3      2      3    3
          d y   d y    2  d y     2  d y     2   d y    d y    d y  d y
(%o2)  [y --- + --- + x  ------, x  ------, x , ------, ---, y ---, ---]
            3     2           2          2           2    2      3    3
          dz    dx       dx dy      dx dy       dx dy   dx     dz   dz
(%i3) 
Run Example
display2d:false;

(%o1) false
(%i2) 
list_of_derivatives(x) := block([result : []], scanmap(lambda([x], if not atom(x) then print(op(x), is(op(x)=op('diff('f(x),x)))), if not atom(x) then result : endcons(x, result), x), x), result);

(%o2) list_of_derivatives(x):=block([result:[]],
                          scanmap(lambda([x],
                                         if not atom(x)
                                             then print(op(x),
                                                        is(
                                                         op(x)
                                                           = op(
                                                           'diff('f(x),x)))),
                                         if not atom(x)
                                             then result:endcons(x,result),x),
                                  x),result)
(%i3) 
list_of_derivatives('diff(y,x,2)+y*'diff(y,z,3)+x^2*'diff(y,x,1,y,2));

+ false 
* false 
^ false 
derivative true 
derivative true 
* false 
derivative true 
(%o3) [y*'diff(y,z,3)+'diff(y,x,2)+x^2*'diff(y,x,1,y,2),x^2*'diff(y,x,1,y,2),
       x^2,'diff(y,x,1,y,2),'diff(y,x,2),y*'diff(y,z,3),'diff(y,z,3)]
(%i4) 

Related Help

Help for Endcons