应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 【求助】这个程序有什么问题，要怎么修改，求助高手
141/2返回列表12下一页
查看: 697  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

bib96356

金虫 (正式写手)

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

>> 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的回帖

mopsite

木虫 (著名写手)
具体干嘛的 有什么用处 都不交待  怎么改阿
赞一下 回复此楼
2楼2009-07-31 16:53:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

change0618

铁杆木虫 (著名写手)

方丈大师
板凳。。。。。。。。。。。
回复此楼
3楼2009-07-31 17:59:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

change0618

铁杆木虫 (著名写手)

方丈大师
phi1=0:1:2是一个向量，而你的B(1,1)等均是一个元素，所以维数不对。
另外用度数表示的三角函数，可以用sind, cosd, cotd, tand等表示，免除了转化为弧度的麻烦。
赞一下 回复此楼
4楼2009-07-31 18:09:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

change0618

铁杆木虫 (著名写手)

方丈大师
phi1=2;
phi2=0;
bigphi=0;
B(1,1)=cosd(phi1)*cosd(phi2)-sind(phi1)*sind(phi2)*cosd(bigphi);
B(1,2)=sind(phi1)*cosd(phi2)+cosd(phi1)*sind(phi2)*cosd(bigphi);
B(1,3)=sind(phi2)*sind(bigphi);
B(2,1)=-cosd(phi1)*sind(phi2)-sind(phi1)*cosd(phi2)*cosd(bigphi);
B(2,2)=-sind(phi1)*sind(phi2)+cosd(phi1)*cosd(phi2)*cosd(bigphi);
B(2,3)=cosd(phi2)*sind(bigphi);
B(3,1)=sind(phi1)*sind(bigphi);
B(3,2)=-cosd(phi1)*sind(bigphi);
B(3,3)=cosd(bigphi);
disp(B)
赞一下 回复此楼
5楼2009-07-31 18:17:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

change0618

铁杆木虫 (著名写手)

方丈大师
★ ★ ★ ★ ★ ★
woshilsh(金币+3,VIP+0):感谢，等待楼主确认 7-31 18:36
bib96356(金币+3,VIP+0): 7-31 21:40
phi1=0:1:2;
phi2=0;
bigphi=0;
B(1,1,: )=cosd(phi1)*cosd(phi2)-sind(phi1)*sind(phi2)*cosd(bigphi);
B(1,2,: )=sind(phi1)*cosd(phi2)+cosd(phi1)*sind(phi2)*cosd(bigphi);
B(1,3,: )=sind(phi2)*sind(bigphi);
B(2,1,: )=-cosd(phi1)*sind(phi2)-sind(phi1)*cosd(phi2)*cosd(bigphi);
B(2,2,: )=-sind(phi1)*sind(phi2)+cosd(phi1)*cosd(phi2)*cosd(bigphi);
B(2,3,: )=cosd(phi2)*sind(bigphi);
B(3,1,: )=sind(phi1)*sind(bigphi);
B(3,2,: )=-cosd(phi1)*sind(bigphi);
B(3,3,: )=cosd(bigphi);
disp(B)
赞一下(22人) 回复此楼
6楼2009-07-31 18:23:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bib96356

金虫 (正式写手)
>> phi1=0:1:2;

问题更复杂点，如果是这样，要怎么解决呢？
>> phi2=0;
>> bigphi=0:1:2;
>> 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)
赞一下 回复此楼
7楼2009-07-31 21:43:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bib96356

金虫 (正式写手)
有没有其他的方法实现这个问题呢？
赞一下 回复此楼
8楼2009-07-31 21:50:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bib96356

金虫 (正式写手)
自己顶啊
回复此楼
9楼2009-08-01 14:46:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qllq1661

木虫 (职业作家)
说清楚程序的目的，这样大家也好下手
赞一下 回复此楼
10楼2009-08-01 15:47:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 bib96356 的主题更新
141/2返回列表12下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 面上本子正文33页，违规吗？会被低分嘛？ +8 1234567wang 2026-05-17 10/500 2026-05-18 18:52 by zzahkj
[基金申请] 今年审到国自然15份，谈谈感受 +16 国自然国社科中 2026-05-17 16/800 2026-05-18 14:58 by gy116024
[基金申请] 重磅！青年科学基金项目（C类）资助增幅预计超过50% +7 水和泥不是水泥 2026-05-13 10/500 2026-05-18 07:50 by 水和泥不是水泥
[硕博家园] 我在等一个没有答案的答案 +3 Love_MH 2026-05-17 3/150 2026-05-18 02:22 by 竹林孤影
[文学芳草园] 半夜喝咖啡 +3 myrtle 2026-05-15 5/250 2026-05-18 01:03 by 小沈2018
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 7/350 2026-05-17 19:42 by Equinoxhua
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 cjf4bx70cj 2026-05-14 7/350 2026-05-17 18:49 by Equinoxhua
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 v9tggjlwd0 2026-05-15 5/250 2026-05-17 18:39 by Equinoxhua
[考博] 2026博士还有哪些学校有名额 +6 小王求读研 2026-05-15 7/350 2026-05-17 16:54 by 知音湖畔
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:31 by 11n4dfd8yn
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 8/400 2026-05-17 07:26 by 11n4dfd8yn
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:16 by 11n4dfd8yn
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-17 01:37 by ue3ir18jc3
[考博] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 4/200 2026-05-17 00:57 by ue3ir18jc3
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 4/200 2026-05-17 00:50 by ue3ir18jc3
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 3/150 2026-05-17 00:45 by ue3ir18jc3
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 x0mp7owy2b 2026-05-15 4/200 2026-05-17 00:35 by ue3ir18jc3
[高分子] 本人最近太闲了，谁有问题可以提，每天会统一回复 +9 一切都是空工 2026-05-12 20/1000 2026-05-16 19:52 by Equinoxhua
[有机交流] 求助2，4-二氯-5-嘧啶甲醛的合成方法 20+3 光吃不拉 2026-05-14 6/300 2026-05-16 19:46 by Equinoxhua
[考博] 材料类只有一篇综述能申博么 +4 乐逍遥谷 2026-05-13 4/200 2026-05-14 12:05 by zhyzzh
信息提示
关闭
请填处理意见
关闭