Упражнение 17 **. Составить уравнения двух пересекающихся прямых в пространстве
Составить уравнения двух пересекающихся прямых в пространстве, скрещивающихся с осью OZ, их вращением получить однополостный гиперболоид, с осью симметрииOZ.
Упражнение 18. Построить тела, ограниченные поверхностями
%x=0; y=2; y=2*x; z=0; z=5;
clf; xyz(-1,4,-1,4,-1,6); view(50,20)
line([0,0],[0,2],[0,0],'Color','blue','LineWidth',2);pause(0.1);
line([0,1],[2,2],[0,0],'Color','blue','LineWidth',2);pause(0.1);
line([0,1],[0,2],[0,0],'Color','blue','LineWidth',2);pause(0.1);
line([0,0],[0,0],[0,5],'Color','blue','LineWidth',2);pause(0.1);
line([0,0],[2,2],[0,5],'Color','blue','LineWidth',2);pause(0.1);
line([1,1],[2,2],[0,5],'Color','blue','LineWidth',2);pause(0.1);
line([0,0],[0,2],[5,5],'Color','blue','LineWidth',2);pause(0.1);
line([0,1],[2,2],[5,5],'Color','blue','LineWidth',2);pause(0.1);
line([0,1],[0,2],[5,5],'Color','blue','LineWidth',2);pause(0.1);
y=0:0.1:2;
for z_i=0:0.5:5
x = 0.*y;
z = 0.*y + z_i;
plot3(x,y,z,'blue','LineWidth',1);
pause(0.1);
end
x=0:0.1:1;
for z_i=0:0.5:5
y = 0.*x+2;
z = 0.*y + z_i;
plot3(x,y,z,'blue','LineWidth',1);
pause(0.1);
end
y=0:0.1:2;
for z_i=0:0.5:5
x = 0.5.*y;
z = 0.*y + z_i;
plot3(x,y,z,'blue','LineWidth',1);
pause(0.1);
end
%x=1; y=0; y=x/3; z=2;
x_min = 0; x_max = 1;
z_min = 0; z_max = 2;
clf; xyz(-0.5,1.5,-0.5,1,z_min-0.5,z_max+0.5); view(50,20)
line([x_min,x_max],[0,0], [z_min,z_min],'Color','blue','LineWidth',2);pause(0.1);
line([x_max,x_max],[0,1/3],[z_min,z_min],'Color','blue','LineWidth',2);pause(0.1);
line([x_min,x_max],[0,1/3],[z_min,z_min],'Color','blue','LineWidth',2);pause(0.1);
line([x_min,x_min],[0,0],[z_min,z_max],'Color','blue','LineWidth',2);pause(0.1);
line([x_max,x_max],[0,0],[z_min,z_max],'Color','blue','LineWidth',2);pause(0.1);
line([x_max,x_max],[1/3,1/3],[z_min,z_max],'Color','blue','LineWidth',2);pause(0.1);
line([x_min,x_max],[0,0], [z_max,z_max],'Color','blue','LineWidth',2);pause(0.1);
line([x_max,x_max],[0,1/3],[z_max,z_max],'Color','blue','LineWidth',2);pause(0.1);
line([x_min,x_max],[0,1/3],[z_max,z_max],'Color','blue','LineWidth',2);pause(0.1);
y=0:0.01:1/3;
for z_i=z_min:0.25:z_max
x = 0.*y+1;
z = 0.*y + z_i;
plot3(x,y,z,'blue','LineWidth',1);
pause(0.1);
end
x=0:0.1:1;
for z_i=z_min:0.25:z_max
y = 0.*x;
z = 0.*y + z_i;
plot3(x,y,z,'blue','LineWidth',1);
pause(0.1);
end
x=0:0.1:1;
for z_i=z_min:0.25:z_max
y = x./3;
z = 0.*x + z_i;
plot3(x,y,z,'blue','LineWidth',1);
pause(0.1);
end
clf; xyz(-2,2,-2,2,-1,2); view(30,20);
[x,y]=meshgrid(-sqrt(2):0.1:sqrt(2), -sqrt(2):0.1:sqrt(2));
z=sqrt(x.^2+y.^2);
%mesh(x,y,z);
for z=0 :0.1:sqrt(2)
x=-sqrt(z.^2):0.01:sqrt(z.^2)+0.01;
plot3(x, sqrt(z.^2-x.^2),0.*x+z, 'Color', 'blue', 'LineWidth', 1)
plot3(x, -sqrt(z.^2-x.^2),0.*x+z, 'Color', 'blue', 'LineWidth', 1)
end;
[x,y]=meshgrid(-1.4:0.1:1.4, -1.4:0.1:1.4);
z=sqrt(4-x.^2-y.^2);
%mesh(x,y,z)
for z=sqrt(2):0.05:2
x=-sqrt(4-z.^2):0.01:sqrt(4-z.^2)+0.01;
plot3(x, sqrt(4-x.^2-z.^2),0.*x+z, 'Color', 'blue', 'LineWidth', 1)
plot3(x, -sqrt(4-x.^2-z.^2),0.*x+z, 'Color', 'blue', 'LineWidth', 1)
end ;
x=-sqrt(2):0.05:sqrt(2)+0.05;
plot3(x, sqrt(2-x.^2),0.*x+sqrt(2), 'Color', 'blue', 'LineWidth', 2)
plot3(x, -sqrt(2-x.^2),0.*x+sqrt(2), 'Color', 'blue', 'LineWidth', 2)
4)
5)
6)
,
,
,
,
,
(
).
7)
,
,
.
8)
(цилиндр),
,
.
9)
(цилиндр),
,
.
10)
(цилиндр),
,
.
-