Matlab ile Dikdörtgenler Prizmasının Simetrisini Alma

%www.ethemsulan.com
fplot('2*x+1',[-10 10 -10 10])
grid on
hold on
agac=[-8 -4 -2 -6 -8 -5 -4 -6 -5 -2 -8 -8 -4 -4 -6 -6 -4 -2 -2 -6 -8 -4 -2 -8 -4 -6 -2;
    0 0 2 2 0 5 0 2 5 2 0 -2 -2 0 2 0 0 2 0 0 -2 -2 0 -2 -2 0 -2]
plot(agac(1,:),agac(2,:),'linewidth',2,'color','green')
agac=[agac;ones(1,size(agac,2))];
d=[5 11]'
d=[d;1]
teta=((pi/2)-acot(1/2))
t1=[1 0 -d(1,1);0 1 -d(2,1);0 0 1]
t2=[cos(teta) -sin(teta) 0;sin(teta) cos(teta) 0;0 0 1]
t3=[-1 0 0;0 1 0;0 0 1]
t4=[cos(teta) sin(teta) 0;-sin(teta) cos(teta) 0;0 0 1]
t5=[1 0 d(1,1);0 1 d(2,1);0 0 1]
T=t5*t4*t3*t2*t1
dikp=T*agac
plot(dikp(1,:),dikp(2,:),'color','red')