1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| xA=100;
yA=300;
xB=200;
yB=500;
DAB=sqrt(((xA-xB)^2)+((yA-yB)^2));
DAB=DAB/3;
xO1=(xA+xB)/2;
yO1=(yA+yB)/2;
A = - acos((yB-yO1)/(DAB*3/2));
teta = -pi:pi/180:pi;
xE = xO1 + DAB*cos(teta);
yE = yO1*ones(length(teta),1);
zE = 0 + DAB*sin(teta);
xE0 = DAB*cos(teta);
yE0 = zeros(size(xE0,1),size(xE0,2));
zE0 = DAB*sin(teta);
Rot_Z = [cos(A) -sin(A) 0 0;
sin(A) cos(A) 0 0;
0 0 1 0;
0 0 0 1];
for q=1:length(xE0)
a(q,:)=Rot_Z*[xE0(q);yE0(q);zE0(q);1];
end
for w=1:length(a)
xE1(w)=a(w,1)+xO1;
yE1(w)=a(w,2)+yO1;
zE1(w)=a(w,3);
end
figure
hold on
line([xA xB],[yA yB]);
plot3(xE1,yE1,zE1,'Color','r') |
Partager