Průnik, spojení a sjednoceni podprostorů

Příklady str. 29

1.

(%i1) W1:y=2*x; W2:y=-x;

Result

(%i3) load(implicit_plot)$

(%i4) wximplicit_plot([W1,W2],[x,-5,5],[y,-5,5]);

Result

2.

(%i5) W1:y-z=0; W2:y+z=0;

Result

(%i7) load(draw)$

(%i8) wxdraw3d(
       color=blue,implicit(W1,x,-1,1,y,-1.2,2.3,z,-1,1),
       color=red,implicit(W2,x,-1,1,y,-1.2,2.3,z,-1,1)) $

Result

3.

(%i9) W1:[r,2*r,3*r]; W2:[2*s+t,s-t,3*s+t];

Result

(%i11) wxdraw3d(


         nticks = 100,


         line_width = 2,


         color=blue,
         parametric(W1[1],W1[2],W1[3],r,-2,2),
         color=grey,
         parametric_surface(W2[1],W2[2],W2[3],s,-2,2,t,-2,2))$

Result

Created with wxMaxima.