24小时热门版块排行榜

>论坛更新日志 (3172)
>虫友互识 (442)
>导师招生 (119)
>休闲灌水 (107)
>文献求助 (92)
>硕博家园 (58)
>考研 (39)
>论文投稿 (36)
>考博 (32)
>基金申请 (30)
>博后之家 (28)
>论文道贺祈福 (27)
>公派出国 (26)
>教师之家 (22)
>找工作 (19)
>健康生活 (19)

返回列表

当前主题已经存档。

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

bib96356

金虫 (正式写手)

应助: 0 (幼儿园)
金币: 1179.3
散金: 30
帖子: 517
在线: 81.2小时
虫号: 602153
注册: 2008-09-14

[交流] 【求助】这个程序有什么问题，要怎么修改，求助高手

>> phi1=0:1:2;
>> phi2=0;
>> bigphi=0;
>> phi1=phi1*pi/180
bigphi=bigphi*pi/180
phi2=phi2*pi/180
B(1,1)=cos(phi1)*cos(phi2)-sin(phi1)*sin(phi2)*cos(bigphi)
B(1,2)=sin(phi1)*cos(phi2)+cos(phi1)*sin(phi2)*cos(bigphi)
B(1,3)=sin(phi2)*sin(bigphi)
B(2,1)=-cos(phi1)*sin(phi2)-sin(phi1)*cos(phi2)*cos(bigphi)
B(2,2)=-sin(phi1)*sin(phi2)+cos(phi1)*cos(phi2)*cos(bigphi)
B(2,3)=cos(phi2)*sin(bigphi)
B(3,1)=sin(phi1)*sin(bigphi)
B(3,2)=-cos(phi1)*sin(bigphi)
B(3,3)=cos(bigphi)

回复此楼

» 猜你喜欢

1楼 2009-07-31 15:49:09

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

change0618

铁杆木虫 (著名写手)

方丈大师

应助: 44 (小学生)
金币: 17724.5
红花: 17
帖子: 2413
在线: 546.7小时
虫号: 496517
注册: 2008-01-19
专业: 化学反应工程

★ ★ ★ ★ ★ ★ ★ ★ ★
bib96356(金币+7,VIP+0):不得不承认，你是高手，能否告之QQ。。。。。 8-5 16:21
spc08(金币+2,VIP+0):感谢回复，欢迎常来！ 8-17 08:19

phi1=0:1:90;
phi2=0;
bigphi0=0:1:90;
for i=1:length(bigphi0)
bigphi=bigphi0(i);
B(1,1,:,i)=cosd(phi1)*cosd(phi2)-sind(phi1)*sind(phi2)*cosd(bigphi);
B(1,2,:,i)=sind(phi1)*cosd(phi2)+cosd(phi1)*sind(phi2)*cosd(bigphi);
B(1,3,:,i)=sind(phi2)*sind(bigphi);
B(2,1,:,i)=-cosd(phi1)*sind(phi2)-sind(phi1)*cosd(phi2)*cosd(bigphi);
B(2,2,:,i)=-sind(phi1)*sind(phi2)+cosd(phi1)*cosd(phi2)*cosd(bigphi);
B(2,3,:,i)=cosd(phi2)*sind(bigphi);
B(3,1,:,i)=sind(phi1)*sind(bigphi);
B(3,2,:,i)=-cosd(phi1)*sind(bigphi);
B(3,3,:,i)=cosd(bigphi);
end
B

看来楼主一点也不懂MATLAB。

[ Last edited by change0618 on 2009-8-2 at 09:36 ]