Prùnik, spojení a sjednoceni podprostorù

Pøíklady str. 29

1.

W1:y=2*x; W2:y=-x;

load(implicit_plot)$

implicit_plot([W1,W2],[x,-5,5],[y,-5,5]);

2.

W1:y-z=0; W2:y+z=0;

load(draw)$

draw3d(
       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)) $

3.

W1:[r,2*r,3*r]; W2:[2*s+t,s-t,3*s+t];

draw3d(

         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))$