Embedded Software & Hardware

embedded The Web

MAXIMA EXAMPLE


Maxima is a computer algebra system (CAS) based on a 1982 version of Macsyma.

License GPL

http://maxima.sourceforge.net/

https://wxmaxima-developers.github.io/wxmaxima/






https://en.wikipedia.org/wiki/Parametric_equation

https://en.wikipedia.org/wiki/Butterfly_curve_(transcendental)


plot2d([parametric, sin(t)*(%e^(cos(t))-2*cos(4*t)), cos(t)*(%e^(cos(t))-2*cos(4*t)), [t,-10,10] ]);

butterfly



Lissajous

plot2d( [ parametric,3*sin(2*t), 2+2*cos(3*t),[t,0,2*%pi] ], [x,-5,5] );

Lissajous




plot2d( [ sin(x), cos(x), [ parametric,10+3*sin(2*t), 2+2*cos(3*t),[t,0,2*%pi] ]], [x,0,15] );

Lissajous




wstega Mobiusa

plot3d ([cos(x)*(3 + y*cos(x/2)), sin(x)*(3 + y*cos(x/2)), y*sin(x/2)], [x, -%pi, %pi], [y, -1, 1], [grid, 50, 15]);

mobius




Hyperbolic paraboloid

plot3d(x^2 - y^2, [x, -5, 5], [y, -5, 5], [mesh_lines_color, false]);

saddle



Elliptic Paraboloid

plot3d(x^2 + y^2, [x, -5, 5], [y, -5, 5], [mesh_lines_color, false]);

paraboloid



draw3d (enhanced3d = true, cbrange = [-8,10], explicit(x^2+y^2, x,-2,2,y,-2,2));

paraboloid



plot3d( sin(x^2+y^2)*exp(-0.1*(x^2+y^2) ), [x,-5,5],[y,-5,5],[grid,100,100], [mesh_lines_color, false] );

wave

wave



draw3d(enhanced3d = sin(u)+cos(v),terminal = wxt,colorbox=false,palette = [8,4,1],parametric_surface(cos(u)+.5*cos(u)*cos(v),sin(u)+.5*sin(u)*cos(v),.5*sin(v),u, -%pi, %pi,v, -%pi, %pi),parametric_surface(1+cos(u)+.5*cos(u)*cos(v),.5*sin(v),sin(u)+.5*sin(u)*cos(v),u, -%pi, %pi,v, -%pi, %pi)) $

wave




draw3d( enhanced3d=true, explicit(1/(4+x^2+y^2),x,-3,3,y,-3,3) );

bell




draw3d( enhanced3d=true, axis_3d=false, colorbox=false, explicit(1/(4+x^2+y^2),x,-3,3,y,-3,3) );

bell




draw3d( enhanced3d=true, axis_3d=false, colorbox=false, explicit(20*exp(-x^2-y^2)-10,x,-3,3,y,-3,3) );

gauss



© 2003-2017 Andrzej Okrutny, Krakow POLSKA