1)ukol
(%i3) | f(x,y):=x/(x^2+y^2); |
(%i9) | wxplot3d(f(x,y),[x,-1,1], [y,-1,1]); |
(%i16) | wxplot3d(f(x,y),[x,-0.05,0.05], [y,-0.05,0.05], [z,-5,5]); |
2)ukol
(%i18) | g(x,y):=sin(2*%pi*x)*sin(2*%pi*y); |
(%i23) | wxplot3d(g(x,y),[x,0,35], [y,0,35]); |
(%i21) | wxplot3d(g(x,y),[x,0,31], [y,0,31]); |
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) )$ |
5)ukol
(%i61) | load(graphs)$ |
(%i62) | cube_graph(3); |