 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 4 | 1/1 | 返回列表 |
| 查看: 708 | 回復(fù): 3 | |||
astringent銅蟲 (著名寫手)
|
[交流]
【求助】關(guān)于向量投影的問題 已有2人參與
|
|
有兩個點A（x1,y1,z1）,B（x2,y2,z2）,現(xiàn)在以由點A和B確定的直線為基準(zhǔn)軸，我想求的是當(dāng)以物體由點C（x3,y3,z3）運動到點D（x4,y4,z4）時，沿AB基準(zhǔn)軸方向的位移以及沿垂直于AB基準(zhǔn)軸方向的位移。我寫了一個程序，勞煩大家?guī)兔纯�，這個程序有沒有問題以及能不能實現(xiàn)我的目的?請大家不吝賜教。 program get_projection implicit none real x1,y1,z1 real x2,y2,z2 real x3,y3,z3 real x4,y4,z4 real theta real dx1,dy1,dz1,dx2,dy2,dz2 real px1,py1,pz1,px2,py2,pz2 real r1,r2 ! 求基準(zhǔn)軸AB dx1=x2-x1 dy1=y2-y1 dz1=z2-z1 !求CD的位移（前保存的結(jié)果） dx2=x4-x3 dy2=y4-y3 dz2=z4-z3 !求AB和CD的模 r1=dx1**2+dy1**2+dz1**2 r2=dx2**2+dy2**2+dz2**2 ！由點乘公式計算AB與CD所形成的角theta theta=acos ((dx1*dx2+dy1*dy2+dz1*dz2)/(sqrt(r1)*sqrt(r2))) !計算沿AB基準(zhǔn)軸方向的位移 px1=dx2*cos(theta) py1=dy2*cos(theta) pz1=dz2*cos(theta) !沿垂直于AB基準(zhǔn)軸方向的位移 px2=dx2*sin(theta) py2=dy2*sin(theta) pz2=dz2*sin(theta) end [ Last edited by ghcacj on 2011-1-21 at 20:42 ] |
回復(fù)此樓» 猜你喜歡
0703化學(xué)/290求調(diào)劑/本科經(jīng)歷豐富/工科也可
已經(jīng)有11人回復(fù)
-
南京大學(xué)化學(xué)調(diào)劑
已經(jīng)有15人回復(fù)
-
292求調(diào)劑
已經(jīng)有4人回復(fù)
-
材料專碩調(diào)劑
已經(jīng)有8人回復(fù)
-
085601材料工程找調(diào)劑
已經(jīng)有17人回復(fù)
-
面上5B能上會嗎？
已經(jīng)有6人回復(fù)
-
化學(xué)308分調(diào)劑
已經(jīng)有7人回復(fù)
-
化學(xué)工程085602 305分求調(diào)劑
已經(jīng)有25人回復(fù)
-
求化學(xué)調(diào)劑
已經(jīng)有11人回復(fù)
-
085602 化學(xué)工程專碩 340分求調(diào)劑
已經(jīng)有3人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 【求助】關(guān)于向量投影的問題
已經(jīng)有3人回復(fù)
老虎大王
木蟲 (著名寫手)
- 模擬EPI: 17
- 應(yīng)助: 26 (小學(xué)生)
- 貴賓: 0.17
- 金幣: 4774.1
- 散金: 8
- 紅花: 42
- 帖子: 1361
- 在線: 215.2小時
- 蟲號: 659094
- 注冊: 2008-11-21
- 專業(yè): 金屬結(jié)構(gòu)材料
2樓2011-01-21 17:45:12
老虎大王
木蟲 (著名寫手)
- 模擬EPI: 17
- 應(yīng)助: 26 (小學(xué)生)
- 貴賓: 0.17
- 金幣: 4774.1
- 散金: 8
- 紅花: 42
- 帖子: 1361
- 在線: 215.2小時
- 蟲號: 659094
- 注冊: 2008-11-21
- 專業(yè): 金屬結(jié)構(gòu)材料
3樓2011-01-21 17:46:58
astringent
銅蟲 (著名寫手)
- 應(yīng)助: 16 (小學(xué)生)
- 金幣: 2210.7
- 散金: 1233
- 紅花: 4
- 帖子: 1180
- 在線: 354.8小時
- 蟲號: 900839
- 注冊: 2009-11-12
- 專業(yè): 理論和計算化學(xué)
4樓2011-01-22 05:28:39
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 astringent 的主題更新
| 4 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 南京大學(xué)化學(xué)調(diào)劑 +10 | 景隨風(fēng) 2026-03-29 | 15/750 |
|
|---|---|---|---|---|
|
[考研] 292求調(diào)劑 +4 | 是妍子也是研子 2026-03-30 | 4/200 |
|
|
|
[考研] 283求調(diào)劑（080500） +13 | A child 2026-03-27 | 13/650 |
|
|
|
[考研] 材料與化工328分調(diào)劑 +9 | 。，。，。，。i 2026-03-23 | 9/450 |
|
|
|
[考研] 考研調(diào)劑 +7 | 小蠟新筆 2026-03-29 | 7/350 |
|
|
|
[考研] 322求調(diào)劑：一志愿湖南大學(xué) 材料與化工（085600），已過六級。 +4 | XX小鄧 2026-03-29 | 4/200 |
|
|
|
[考研] 一志愿：西北大學(xué)，英一數(shù)一408-284分求調(diào)劑 +4 | 12.27 2026-03-27 | 4/200 |
|
|
|
[考研] 本科新能源科學(xué)與工程，一志愿華理能動285求調(diào)劑 +3 | AZMK 2026-03-27 | 5/250 |
|
|
|
[考研] 085701環(huán)境工程，267求調(diào)劑 +16 | minht 2026-03-26 | 16/800 |
|
|
|
[考研] 086502化學(xué)工程342求調(diào)劑 +6 | 阿姨復(fù)古不過 2026-03-27 | 6/300 |
|
|
|
[考研] 一志愿上海理工能源動力（085800）310分求調(diào)劑 +3 | zhangmingc 2026-03-27 | 4/200 |
|
|
|
[考研] 材料292調(diào)劑 +12 | 橘頌思美人 2026-03-23 | 12/600 |
|
|
|
[考研] 085600材料與化工調(diào)劑 +10 | A-哆啦Z夢 2026-03-23 | 16/800 |
|
|
|
[考研] 348求調(diào)劑 +4 | 小懶蟲不懶了 2026-03-27 | 5/250 |
|
|
|
[考研] 0703化學(xué)338求調(diào)劑！ +6 | Zuhui0306 2026-03-26 | 7/350 |
|
|
|
[考研] 調(diào)劑求收留 +7 | 果然有我 2026-03-26 | 7/350 |
|
|
|
[考研] 一志愿天津大學(xué)339材料與化工求調(diào)劑 +3 | 江往賣魚 2026-03-26 | 3/150 |
|
|
|
[考研] 一志愿哈工大，085400，320，求調(diào)劑 +4 | gdlf9999 2026-03-24 | 4/200 |
|
|
|
[考研] 材料專碩找調(diào)劑 +5 | 哈哈哈吼吼吼哈 2026-03-23 | 5/250 |
|
|
|
[考研] 材料/農(nóng)業(yè)專業(yè)，07/08開頭均可，過線就行 +3 | 呵唔哦豁 2026-03-23 | 4/200 |
|