Пример подготовки данных и выполнение первой задачи РГКР № 1 (листинг реализации в математическом пакете Maple)

> with(linalg):

> x11:=10;y11:=10;x22:=10;y22:=50;x33:=10;y33:=90;x44:=50; y44:=90;x55:=50;y55:=50; F:=Matrix([[x11,y11],[x22,y22],[x33,y33],[x44,y44],[x55,y55]]); with(plottools):x1:=F[1,1]; y1:=F[1,2];x2:=F[2,1];y2:=F[2,2]; x3:=F[3,1];y3:=F[3,2];x4:=F[4,1]; y4:=F[4,2];x5:=F[5,1];y5:=F[5,2]; l1:=line([x1,y1],[x2,y2]);l2:=line([x2,y2],[x3,y3]);l3:=line([x3,y3],[x4,y4]); l4:=line([x4,y4],[x5,y5]);l5:=line([x5,y5],[x2,y2]); y:=-x; pl:=yp+xp=0;

Lp:=implicitplot(pl,xp=-90..50,yp=-50..90,scaling=CONSTRAINED ):

with(plots):

display(Lp,l1,l2,l3,l4,l5,scaling=CONSTRAINED, thickness=4, title="Исходные данные");

Продолжение приложения Б

> r:=1/2;x:=r*cos(t); y:=r*sin(t);

l0:=plot( [x,y, t=-Pi..Pi],scaling=CONSTRAINED ):

T1 := Matrix([[-1,0],[0,1]]);F1:=F.T1;

Окончание приложения Б

> with(plottools):x1:=F1[1,1];y1:=F1[1,2];x2:=F1[2,1];y2:=F1[2,2];x3:=F1[3,1];y3:=F1[3,2];x4:=F1[4,1];y4:=F1[4,2];x5:=F1[5,1];y5:=F1[5,2];

> l11:=line([x1,y1],[x2,y2]);l21:=line([x2,y2],[x3,y3]);l31:=line([x3,y3],[x4,y4]);l41:=line([x4,y4],[x5,y5]);l51:=line([x5,y5],[x2,y2]);

> with(plots):display(l0,l1,l2,l3,l4,l5,l11,l21,l31,l41,l51,scaling=CONSTRAINED, thickness=4);

>

Приложение В

(рекомендуемое)