Landing Gear Modeliing
clc
clear
[x,y]=cylinder(0.5,360);
for i=1:180;
xx(i)=x(i);
yy(i)=-y(i);
end
plot(xx,yy,'r*')
axis equal
grid on
[x1,y1]=cylinder(0.1,360);
c=0;
hold on
plot(0,0,'r*')
M=180;
dtt=(45/M)*(pi/180)+0.0019;
theta(1)=45*(pi/180);
for i=1:M;
v1=[0,xx(i)];
v2=[0,yy(i)];
f=line(v1,v2);
r=0.1;
theta(i+1)=theta(i)+dtt;
xv(i)=r*cos(theta(i));
yv(i)=r*sin(theta(i));
xxx(i)=xv(i)+xx(i);
yyy(i)=-yv(i)+yy(i);
v3=[xx(i),xxx(i)];
v4=[yy(i),yyy(i)];
ff=line(v3,v4);
end
for i=1:12;
c=c+1;
for j=1:720;
xc(j)=x1(j)+xxx(c);
yc(j)=y1(j)+yyy(c);
end
plot(xc,yc,'*b')
hold on
end
clear
[x,y]=cylinder(0.5,360);
for i=1:180;
xx(i)=x(i);
yy(i)=-y(i);
end
plot(xx,yy,'r*')
axis equal
grid on
[x1,y1]=cylinder(0.1,360);
c=0;
hold on
plot(0,0,'r*')
M=180;
dtt=(45/M)*(pi/180)+0.0019;
theta(1)=45*(pi/180);
for i=1:M;
v1=[0,xx(i)];
v2=[0,yy(i)];
f=line(v1,v2);
r=0.1;
theta(i+1)=theta(i)+dtt;
xv(i)=r*cos(theta(i));
yv(i)=r*sin(theta(i));
xxx(i)=xv(i)+xx(i);
yyy(i)=-yv(i)+yy(i);
v3=[xx(i),xxx(i)];
v4=[yy(i),yyy(i)];
ff=line(v3,v4);
end
for i=1:12;
c=c+1;
for j=1:720;
xc(j)=x1(j)+xxx(c);
yc(j)=y1(j)+yyy(c);
end
plot(xc,yc,'*b')
hold on
end
Unless otherwise noted, all content on this site is @Copyright by Ahmed Al Makky 2012-2013 - http://cfd2012.com