 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 707 | 回復: 3 | |||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
astringent銅蟲 (著名寫手)
|
[交流]
【求助】關(guān)于向量投影的問題 已有2人參與
|
||
|
有兩個點A（x1,y1,z1）,B（x2,y2,z2）,現(xiàn)在以由點A和B確定的直線為基準軸，我想求的是當以物體由點C（x3,y3,z3）運動到點D（x4,y4,z4）時，沿AB基準軸方向的位移以及沿垂直于AB基準軸方向的位移。我寫了一個程序，勞煩大家?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 ! 求基準軸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基準軸方向的位移 px1=dx2*cos(theta) py1=dy2*cos(theta) pz1=dz2*cos(theta) !沿垂直于AB基準軸方向的位移 px2=dx2*sin(theta) py2=dy2*sin(theta) pz2=dz2*sin(theta) end [ Last edited by ghcacj on 2011-1-21 at 20:42 ] |
回復此樓» 猜你喜歡
327求調(diào)劑
已經(jīng)有4人回復
-
085600材料與化工調(diào)劑
已經(jīng)有3人回復
-
309求調(diào)劑
已經(jīng)有8人回復
-
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷
已經(jīng)有8人回復
-
求調(diào)劑
已經(jīng)有5人回復
-
求化學調(diào)劑
已經(jīng)有5人回復
-
085600，材料與化工321分求調(diào)劑
已經(jīng)有10人回復
-
0703 化學 求調(diào)劑，一志愿山東大學 342 分
已經(jīng)有5人回復
-
一志愿南開大學0710生物學359求調(diào)劑
已經(jīng)有3人回復
-
085600，專業(yè)課化工原理，320分求調(diào)劑
已經(jīng)有4人回復
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 【求助】關(guān)于向量投影的問題
已經(jīng)有3人回復
老虎大王
木蟲 (著名寫手)
- 模擬EPI: 17
- 應助: 26 (小學生)
- 貴賓: 0.17
- 金幣: 4774.1
- 散金: 8
- 紅花: 42
- 帖子: 1361
- 在線: 215.2小時
- 蟲號: 659094
- 注冊: 2008-11-21
- 專業(yè): 金屬結(jié)構(gòu)材料
3樓2011-01-21 17:46:58
老虎大王
木蟲 (著名寫手)
- 模擬EPI: 17
- 應助: 26 (小學生)
- 貴賓: 0.17
- 金幣: 4774.1
- 散金: 8
- 紅花: 42
- 帖子: 1361
- 在線: 215.2小時
- 蟲號: 659094
- 注冊: 2008-11-21
- 專業(yè): 金屬結(jié)構(gòu)材料
2樓2011-01-21 17:45:12
astringent
銅蟲 (著名寫手)
- 應助: 16 (小學生)
- 金幣: 2210.7
- 散金: 1233
- 紅花: 4
- 帖子: 1180
- 在線: 354.8小時
- 蟲號: 900839
- 注冊: 2009-11-12
- 專業(yè): 理論和計算化學
4樓2011-01-22 05:28:39
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 311求調(diào)劑 +6 | 冬十三 2026-03-24 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 各位老師好，我的一志愿為北京科技大學085601材料專碩 +9 | Koxui 2026-03-28 | 9/450 |
|
|
|
[考研] 一志愿：西北大學，英一數(shù)一408-284分求調(diào)劑 +4 | 12.27 2026-03-27 | 4/200 |
|
|
|
[考研] 求調(diào)劑一志愿武漢理工大學材料工程（085601） +7 | WW.' 2026-03-23 | 9/450 |
|
|
|
[考研] 375求調(diào)劑 +4 | 雨夏整夜 2026-03-29 | 4/200 |
|
|
|
[考研] 343求調(diào)劑 +6 | 愛羈絆 2026-03-29 | 6/300 |
|
|
|
[考研] 2026年華南師范大學歡迎化學，化工，生物，生醫(yī)工等專業(yè)優(yōu)秀學子加入！ +3 | llss0711 2026-03-28 | 6/300 |
|
|
|
[考研] 0856材料化工調(diào)劑 總分330 +14 | zhubinhao 2026-03-27 | 14/700 |
|
|
|
[考研] 0856求調(diào)劑 +7 | 楒桉 2026-03-28 | 7/350 |
|
|
|
[考研] 本科新能源科學與工程，一志愿華理能動285求調(diào)劑 +3 | AZMK 2026-03-27 | 5/250 |
|
|
|
[考研] 一志愿上海理工能源動力（085800）310分求調(diào)劑 +3 | zhangmingc 2026-03-27 | 4/200 |
|
|
|
[考研] 08開頭275求調(diào)劑 +4 | 拉誰不重要 2026-03-26 | 4/200 |
|
|
|
[考研] 調(diào)劑 +3 | 李嘉圖·S·路 2026-03-27 | 3/150 |
|
|
|
[考研] 求調(diào)劑，一志愿 南京航空航天大學大學 ，080500材料科學與工程學碩 +4 | @taotao 2026-03-26 | 5/250 |
|
|
|
[考研] 342求調(diào)劑 +3 | 加油a李zs 2026-03-26 | 3/150 |
|
|
|
[考研] 334分 一志愿武理-080500 材料求調(diào)劑 +4 | 李李不服輸 2026-03-25 | 4/200 |
|
|
|
[考研] 290分調(diào)劑求助 +3 | 吉祥止止陳 2026-03-25 | 3/150 |
|
|
|
[考研] 材料專碩 335 分求調(diào)劑 +4 | 拒絕冷暴力 2026-03-25 | 4/200 |
|
|
|
[考研] 347求調(diào)劑 +4 | L when 2026-03-25 | 4/200 |
|
|
|
[考研] 277分求調(diào)劑，跨調(diào)材料 +3 | 考研調(diào)劑lxh 2026-03-24 | 3/150 |
|