2007年3月28日 星期三

機動學第四週作業

第一題
function link_rot2(v)
if nargin==0,v=50;end
r=7.5;d=2;
X=[0,15,15/2,0];Y=[0,0,15*0.5*(3)^0.5,0];
delt=pi/120;axis image;axis off;
h1=line(X,Y,'erasemode','xor','color','r','linewidth',2);
x1=get(h1,'xdata');y1=get(h1,'ydata');
theta1=0;s1=delt;
while 1,
drawnow;
pause(1/v);
theta1=theta1+s1;
x2=(x1-7.5)*cos(theta1)-(y1-2.5*(3)^0.5)*sin(theta1)+7.5;
y2=(x1-7.5)*sin(theta1)+(y1-2.5*(3)^0.5)*cos(theta1)+2.5*(3)^0.5;
set(h1,'xdata',x2,'ydata',y2);
if theta1>2*pi,theta1=theta1-2*pi;end;
end
第二題
function link_rot3(v)
if nargin==0,v=50;end
[x,y]=links([0 0],[10,0],4);
a=[10,15];b=[0,0];delt=pi/120;
axis equal;t=0:2*pi/50:2*pi;
h1=line(x,y,'erasemode','xor','color','r','linewidth',2);
line1=line(a,b,'erasemode','xor');
x1=get(h1,'xdata');y1=get(h1,'ydata');
theta1=0;s1=delt;
while 1,
drawnow;
pause(1/v);
theta1=theta1+s1;
x2=x1*cos(theta1)-y1*sin(theta1);
y2=x1*sin(theta1)+y1*cos(theta1);
a2=[10*cos(theta1),15];
b2=[10*sin(theta1),0];
set(h1,'xdata',x2,'ydata',y2);
set(line1,'xdata',a2,'ydata',b2);
if theta1>2*pi,theta1=theta1-2*pi;end;
end
第三題
function link_plot2(x,y,w)
clf;
if nargin==2,w=1;end
for i=1:length(x)-1
linkshape([x(i) y(i)],[x(i+1) y(i+1)],w(i));end

function rotate(i)
if nargin==0,i=0,end
link_plot2([0,5*cos(pi/6*i+acos(0.8)),10+5*cos(pi/6*i+acos(0.8)),10,0],[0,5*sin(pi/6*i+acos(0.8)),5*sin(pi/6*i+acos(0.8)),0,0],[3,1.5,2,2]);

2007年3月26日 星期一

東京教父的片尾曲

曲子是貝多芬的歡樂頌,配上這個歌詞還滿諷刺的

再也受不了被鞭打
沒有天堂 也沒有地獄
我想蒸發消失 這世界太黑暗
可是能躲藏之處 卻到處都是人

黃昏時分太過悲傷 我不喜歡
既然要活下去 我喜歡夜晚
不需要明天 也沒有未來
但是若能用錢解決 那到也無妨

人渣有人渣的葬身之處
人渣有人渣的容身之處
在這片天空下總會有辦法
可是難以忘懷的事情太多了

我和你是不相干的他人
來吧 在加勒比海喝杯蘭姆酒吧
我和你是不相干的他人
來吧 在加勒比海喝杯蘭姆酒吧
別以為我們是住在同一個屋簷下
來吧 在加勒比海的小島抽煙抽到爽吧

2007年3月21日 星期三

機動學作業


手肘和拳頭的軌跡圖
上面是拳頭
下面是手肘

2007年3月15日 星期四

這是我的blog耶

在等sketchup下載完畢的無聊時間中申請了這個blog~~
這是我的第一篇文章~~