Matlab ile Altıgenin Simetrisini Alma Örneği

 

%www.ethemsulan.com
dortgen=[4 6 8 8 6 4 4;-4 -6 -4 -2 0 -2 -4]
fplot('-3*x',[-10 10 -10 10])
hold on
plot(dortgen(1,:),dortgen(2,:),'linewidth',3,'color','red');
grid on
D=[3 9]'%Burdaki 9 buyudukçe simetrisi de uzaklaşır.Kuçulurse orginal şekle yaklaşır.
D=[D;1]
dortgen=[dortgen;ones(1,size(dortgen,2))]
t1=[1 0 -D(1,1);0 1 -D(2,1);0 0 1];
teta=((pi/2)-acot(1/3));%Burdaki 3 buyudukçe şekle yaklaşılır.Küçüldükçe şekilden uzaklaşlır.
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;
newdortgen=T*dortgen;
plot(newdortgen(1,:),newdortgen(2,:),'linewidth',4,'color','green');