Matlab'de Küp Çizme Örneği

%www.ethemsulan.com
fplot('1/5*x+1',[-10 12 -10 10])
grid on
hold on
kup=[-6 -2 0 0 -4 -6 -6 -4 0 -4 -4 -6 -2 -2 -2 0;
    2 2 4 8 8 6 2 4 4 4 8 6 6 2 6 8];
plot(kup(1,:),kup(2,:),'color','red')
d=[5,2]'
d=[d;1]
kup=[kup;ones(1,size(kup,2))]
t1=[1 0 d(1,1);0 1 -d(2,1);0 0 1];
teta=((pi/2)-sin(5))
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
ykup=T*kup;
plot(ykup(1,:),ykup(2,:))