1)ukol

(%i3) f(x,y):=x/(x^2+y^2);

Result

(%i9) wxplot3d(f(x,y),[x,-1,1], [y,-1,1]);

Result

(%i16) wxplot3d(f(x,y),[x,-0.05,0.05], [y,-0.05,0.05], [z,-5,5]);

Result

2)ukol

(%i18) g(x,y):=sin(2*%pi*x)*sin(2*%pi*y);

Result

(%i23) wxplot3d(g(x,y),[x,0,35], [y,0,35]);

Result

(%i21) wxplot3d(g(x,y),[x,0,31], [y,0,31]);

Result

3)ukol

--> wxdraw3d(xu_grid = 50,
       yv_grid = 15,
       surface_hide = true,
         parametric_surface(cos(a)*(3+b*cos(a/2)),
                            sin(a)*(3+b*cos(a/2)),
                            b*sin(a/2), a,-%pi,%pi,b,-1,1) )$

(%i57) wxdraw3d(xu_grid = 15,
       yv_grid = 45,
       
    
         parametric_surface(u/2-u^3/6+u*v^2/2, -v/2+v^3/6-v*u^2/2, u^2/2-v^2/2, u,-15,15,v,0,10) )$

Result

5)ukol

(%i61) load(graphs)$

(%i62) cube_graph(3);

Result


Created with wxMaxima.