22 Nisan 2010 Perşembe

Matlab ile Kesişen Doğru Çizme Örneği

m13

%www.ethemsulan.com
clc
clear all
close all
subplot(1,2,1)
axis([-100 100 -100 100])
hold on
x=-100:1:100
for artis=0:pi/6:pi
    y=tan(artis)*x+20;
    plot(x,y)
    hold on    
end
subplot(1,2,2)
axis([-100,100,-100,100])
hold on
x1=10:0.1:20;
x2=20:-0.1:10;
y1=sqrt(25-(x1-15).^2)+30;
y2=-sqrt(25-(x2-15).^2)+30;
cember=[x1,x2;y1,y2];
plot(cember(1,:),cember(2,:))
hold on
dogru=[15 15;10 25];
plot(dogru(1,:),dogru(2,:));
hold on
kol=[0 30;20 20]
plot(kol(1,:),kol(2,:))
hold on
ayak=[0 15 30;0 10 0]
plot(ayak(1,:),ayak(2,:))
hold on
cember=[cember;ones(1,size(cember,2))];
dogru=[dogru;ones(1,size(dogru,2))];
ayak=[ayak;ones(1,size(ayak,2))];
kol=[kol;ones(1,size(kol,2))];
T=[1 0 0;0 1 0;0 0 1];
cember_yeni=T*cember+45;
kol_yeni=T*kol+45;
ayak_yeni=T*ayak+45;
dogru_yeni=T*dogru+45;
plot(-cember_yeni(2,:)+140,cember_yeni(1,:)-30,'Linewidth',2,'color','yellow');
hold on
plot(-kol_yeni(2,:)+140,kol_yeni(1,:)-30,'Linewidth',2,'color','yellow');
hold on
plot(-ayak_yeni(2,:)+140,ayak_yeni(1,:)-30,'Linewidth',2,'color','yellow');
hold on
plot(-dogru_yeni(2,:)+140,dogru_yeni(1,:)-30,'Linewidth',2,'color','yellow');

Hiç yorum yok:

Yorum Gönder