Цикл 1.
figure,
set(gcf,'Name','Вариант №24: Трисектрисса Маклорена')
a=1/9;
b=1;
plot(0,0,'ro'), text(0.15,0.15,'\itO'), axis equal;
for n = 1:5
c=a*b, b=b*3/2
h = ((-2.4*pi/3)+pi/180:pi/180:(2.4*pi/3)-pi/180);
r =c./cos(h/3);
[x,y]=pol2cart(h,r);
text(0.15,0.15,'b')
switch c
case 1/9
plot(x,y,'k','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/9')
case 1/6
plot(x,y,'b','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/6')
case 1/4
plot(x,y,'c','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/4')
case 3/8
plot(x,y,'r','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 3/8')
otherwise 9/16
plot(x,y,'g','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 9/16'), for m=1:1:5
b=b/(3/2), c=a*b
h = ((-2.4*pi/3)+pi/180:pi/180:(2.4*pi/3)-pi/180);
r =c./cos(h/3);
[x,y]=pol2cart(h,r);
switch c
case 1/9
plot(x,y,'k','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/9')
pause(1)
r =(1/6)./cos(h/3);
[x,y]=pol2cart(h,r) ,text(-0.15,0,'значение параметра: 1/6');
plot(x,y,'b','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/6')
case 1/6
plot(x,y,'b','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/6')
case 1/4
plot(x,y,'c','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/4')
case 3/8
plot(x,y,'r','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 3/8')
end
pause (1)
end
end
pause (1)
end
Цикл 2.
figure,
set(gcf,'Name','Вариант №24: Трисектрисса Маклорена')
a=1/9;
b=1;
n=1;
plot(0,0,'ro'), text(0.15,0.15,'\itO'), axis equal;
while n<30
c=a*b, b=b*3/2
h = ((-2.4*pi/3)+pi/180:pi/180:(2.4*pi/3)-pi/180);
r =c./cos(h/3);
[x,y]=pol2cart(h,r);
text(0.15,0.15,'b')
n=1;
switch c
case 1/9
plot(x,y,'k','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/9')
case 1/6
plot(x,y,'b','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/6')
case 1/4
plot(x,y,'c','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/4')
case 3/8
plot(x,y,'r','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 3/8')
otherwise 9/16
plot(x,y,'g','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 9/16')
for m=1:1:5;
c=a*b, b=b/(3/2);
n=n+1;
h = ((-2.4*pi/3)+pi/180:pi/180:(2.4*pi/3)-pi/180);
r =c./cos(h/3);
[x,y]=pol2cart(h,r);
n=n+1;
switch c
case 1/9
plot(x,y,'k','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/9')
case 1/6
plot(x,y,'b','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/6')
case 1/4
plot(x,y,'c','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 1/4')
case 3/8
plot(x,y,'r','Erasemode','xor'), axis equal, grid on,xlabel('x'),ylabel('y'),text(-0.15,0,'значение параметра: 3/8')
end
pause(1)
end
end
pause(1)
end
Написать сценарий для решения второго задания.
Создать анимацию, в которой выполняется вращение изображения: