Matlab ile Çizilen Objenin Simetriğini Alma

%www.ethemsulan.com
kal=[4 4 8 8 4 6 8;3 0 0 3 3 5 3]
x1=4:0.01:8;
x2=8:-0.01:4;
y1=-sqrt(4-abs(x1-6).^2);
y2=-sqrt(4-abs(x2-6).^2)+12;
y1=y1*1/4
y2=y2*1/4
yar=[x1;y1];
yar2=[x2;y2]
fplot('3*x+3',[-10 10 -8 10])
grid on
hold on
plot(kal(1,:),kal(2,:),'linewidth',3,'color','green')
kal=[kal;ones(1,size(kal,2))];
plot(yar(1,:),yar(2,:),'linewidth',3,'color','red')
plot(yar2(1,:),yar2(2,:),'linewidth',3,'color','red')
yar=[yar;ones(1,size(yar,2))]
yar2=[yar2;ones(1,size(yar2,2))]
d=[4 16]'
d=[d;1]
t1=[1 0 -d(1,1);0 1 -d(2,1);0 0 1];
teta=((pi/2)-acot(1/3));
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;
newkal=T*kal;
nyar=T*yar;
nyar2=T*yar2;
plot(newkal(1,:),newkal(2,:),'linewidth',3,'color','red')
plot(nyar(1,:),nyar(2,:),'linewidth',3,'color','green')
plot(nyar2(1,:),nyar2(2,:),'linewidth',3,'color','green')