/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 0.8.3 ] */ /* [wxMaxima: input start ] */ load(draw)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(worldmap) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ make_poly_continent(Africa)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ make_poly_continent([Germany,Denmark,Poland])$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ apply(draw2d, %)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ apply(wxdraw2d, %o5)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ region_boundaries(10.4,41.5,20.7,35.4); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(geomap(%o9))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(geomap(%o9))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ make_poly_country(India)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ apply(draw2d, o13)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(draw)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(worldmap)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ make_poly_country(India)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ apply(draw2d, %o20) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ apply(wxdraw2d, %o20) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ make_poly_country(Korea) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ make_poly_country(Japan) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ apply(draw2d, %o27) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ apply(wxdraw2d, %o27) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ make_poly_country(South_Korea) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ apply(draw2d, %o32) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ apply(wxdraw2d, %o32) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* A continent */ make_poly_continent(Africa)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ apply(draw2d, %)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* A list of countries */ make_poly_continent([Germany,Denmark,Poland])$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ apply(draw2d, %)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ plot3d (2^(-u^2 + v^2), [u, -3, 3], [v, -2, 2]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxplot3d (2^(-u^2 + v^2), [u, -3, 3], [v, -2, 2]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ plot3d (2^(-u^2 + v^2), [u, -3, 3], [v, -2, 2], [plot_format, openmath]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxplot3d (2^(-u^2 + v^2), [u, -3, 3], [v, -2, 2], [plot_format, openmath]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 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]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(plotdf) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ plotdf(exp(-x)+y,[trajectory_at,2,-0.1])$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxplotdf(exp(-x)+y,[trajectory_at,2,-0.1])$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw( plotdf(exp(-x)+y,[trajectory_at,2,-0.1]) ) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(wxplotdf); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ plotdf(x-y^2,[xfun,"sqrt(x);-sqrt(x)"], [trajectory_at,-1,3], [direction,forward], [y,-5,5], [x,-4,16])$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ plotdf([v,-k*z/m], [z,v], [parameters,"m=2,k=2"], [sliders,"m=1:5"], [trajectory_at,6,0])$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ plotdf([y,-(k*x + c*y + b*x^3)/m], [parameters,"k=-1,m=1.0,c=0,b=1"], [sliders,"k=-2:2,m=-1:1"],[tstep,0.1])$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ plotdf([w,-g*sin(a)/l - b*w/m/l], [a,w], [parameters,"g=9.8,l=0.5,m=0.3,b=0.05"], [trajectory_at,1.05,-9],[tstep,0.01], [a,-10,2], [w,-14,14], [direction,forward], [nsteps,300], [sliders,"m=0.1:1"], [versus_t,1])$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(impdiff); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ implicit_derivative(x^2 + y^2 - 4, [x], [1], y); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ implicit_derivative(x^2 + y^2 - 4, x, y); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ array(f,2,3,function) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ f[0,0]:x^2+y^3-z^4=0 $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ implicit_deriv(f,indvarlist,orderlist,depvar):= block([ l:makeOrders(indvarlist,orderlist), orders,orderslength,diffargs],mlocal(orders,diffargs), orderslength:length(l)-1, array([orders,diffargs],orderslength), fillarray(orders,l), depends(depvar,indvarlist), for i:1 thru orderslength do block([d,s], diffargs[i]:apply('append,maplist(lambda([x,y],[x,y]), indvarlist,orders[i])), d:apply('diff, cons(arrayapply(f,orders[0]), diffargs[i])), for j:(i-1) step -1 thru 1 do block( d:subst( arrayapply(f,orders[j]), apply('diff,cons(depvar,diffargs[j])), d)), s:solve(d,apply('diff,cons(depvar,diffargs[i]))), arraysetapply(f,orders[i],rhs(first(s)))), munlocal() )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(impdiff); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ array(f,2,3,function) $ f[0,0]:x^2+y^3-z^4=0 $ implicit_derivative(f,[x,y],[2,3],z) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(draw); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(implicit(x^3 + y^3 + z^3 + 3*x*y*z = 0,x,-4,4,y,-4,4, z, -4, 4)); /* [wxMaxima: input end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$