2007年5月31日 星期四

整理BLOG

@_@||

要慢慢把作業捕上摟....

作業11





b94611021 張淳皓
1.本週5/24有來上課
2.
位移對角度
速度對角度
加速度對角度
由圖可觀察到在凸輪無上升或下降的的過程中,速度、加速度皆為0


以下為程式
function drawcam
%建立0到100度的值
for i=1:10
place(i)=0
speed(i)=0
acc(i)=0
end
%建立100到200度的值
for i=11:1:21
phi=(i-1)*10
[y,yy,yyy]=parabol_cam(phi,100,100,1,5,0)
place(i)=y
speed(i)=yy
acc(i)=yyy
end
%建立200到260度的值
for i=22:26
place(i)=5
speed(i)=0
acc(i)=0
end
%建立200到360度的值
for i=27:1:37
phi=(i-1)*10
[y,yy,yyy]=parabol_cam(phi,260,100,-1,5,0)
place(i)=y
speed(i)=yy
acc(i)=yyy
end
%繪製圖表
X=0:10:360
figure
plot(X,place,'c+:')
figure
plot(X,speed,'b+:')
figure
plot(X,acc,'r+:')

3.
運動曲線如
需注意的是,此曲線的起始點不為0,而是25(半徑加上鞘的長度)

4.
以下影片由程式cammove繪成


codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
WIDTH="1108" HEIGHT="902" id="http://homepage.ntu.edu.tw/~b94611021/HW11.swf" ALIGN="">







function cammove
for i=1:100
r(i)=15;
end
for i=101:201
r(i)=15+(5/100)*(i-100);
end
for i=201:260
r(i)=20;
end
for i=261:360
r(i)=20-(5/100)*(i-260);
end
theta=linspace(0,2*pi,360)
for i=1:360
k=r(1);
for j=1:359
r(j)=r(j+1);
end
r(360)=k;
polar(theta,r)
pause(0.0001)
end