| 4 | 1/1 | 返回列表 |
| 查看: 1502 | 回復(fù): 3 | |||
[交流]
【求助】關(guān)于向量投影的問題
|
|
有兩個(gè)點(diǎn)A(x1,y1,z1),B(x2,y2,z2),現(xiàn)在以由點(diǎn)A和B確定的直線為基準(zhǔn)軸,我想求的是當(dāng)以物體由點(diǎn)C(x3,y3,z3)運(yùn)動(dòng)到點(diǎn)D(x4,y4,z4)時(shí),沿AB基準(zhǔn)軸方向的位移以及沿垂直于AB基準(zhǔn)軸方向的位移。我寫了一個(gè)程序,勞煩大家?guī)兔纯矗@個(gè)程序有沒有問題以及能不能實(shí)現(xiàn)我的目的?請(qǐng)大家不吝賜教。 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 !由點(diǎn)乘公式計(jì)算AB與CD所形成的角theta theta=acos ((dx1*dx2+dy1*dy2+dz1*dz2)/(sqrt(r1)*sqrt(r2))) !計(jì)算沿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 |
» 搶金幣啦!回帖就可以得到:
+5/110
+1/93
+1/82
+3/46
+2/40
+1/35
+1/33
+1/31
+1/15
+1/11
+1/6
+1/5
+1/5
+1/5
+1/5
+1/4
+1/4
+1/3
+1/2
+1/2
至尊木蟲 (職業(yè)作家)
金蟲 (正式寫手)
|
發(fā)現(xiàn)一個(gè)小問題, 把下面一段改一下 " 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) “ ==》 ” px1= dx1/sqrt(r1) * sqrt(r2) *cos(theta) py1= dy1/sqrt(r1) * sqrt(r2) *cos(theta) pz1= dz1/sqrt(r1) * sqrt(r2) *cos(theta) !沿垂直于AB基準(zhǔn)軸方向的位移 px2=dx2-px1 py2=dy2-py1 pz2=dz2-pz1 “ 原程序里p1求的向量是沿cd方向的,所以不對(duì) p2也沿cd方向。 |
| 4 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 北科281學(xué)碩材料求調(diào)劑 +6 | tcxiaoxx 2026-03-20 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 一志愿武理材料工程348求調(diào)劑 +5 |  ̄^ ̄゜汗 2026-03-19 | 7/350 |
|
|
[考研] 303求調(diào)劑 +5 | 安憶靈 2026-03-22 | 6/300 |
|
|
[考研] 286分人工智能專業(yè)請(qǐng)求調(diào)劑愿意跨考! +4 | lemonzzn 2026-03-17 | 8/400 |
|
|
[考研] 0805 316求調(diào)劑 +3 | 大雪深藏 2026-03-18 | 3/150 |
|
|
[考研] 材料工程專碩 348分求調(diào)劑 +3 | 冬辭. 2026-03-17 | 5/250 |
|
|
[考研] 265求調(diào)劑 +12 | 梁梁校校 2026-03-19 | 14/700 |
|
|
[考研] 一志愿山大07化學(xué) 332分 四六級(jí)已過 本科山東雙非 求調(diào)劑! +3 | 不想理你 2026-03-16 | 3/150 |
|
|
[考研] 265求調(diào)劑 +9 | 梁梁校校 2026-03-17 | 9/450 |
|
|
[考研] 華東師范大學(xué)-071000生物學(xué)-293分-求調(diào)劑 +3 | 研究生何瑤明 2026-03-18 | 3/150 |
|
|
[考研] 324分 085600材料化工求調(diào)劑 +4 | llllkkkhh 2026-03-18 | 4/200 |
|
|
[考研] 一志愿華中科技大學(xué),080502,354分求調(diào)劑 +5 | 守候夕陽CF 2026-03-18 | 5/250 |
|
|
[考研] 317求調(diào)劑 +5 | 申子申申 2026-03-19 | 9/450 |
|
|
[考研] 085600材料與化工 +8 | 安全上岸! 2026-03-16 | 8/400 |
|
|
[考研] 一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑 +11 | Ymlll 2026-03-18 | 15/750 |
|
|
[考研] 材料與化工專碩調(diào)劑 +7 | heming3743 2026-03-16 | 7/350 |
|
|
[考研] 求調(diào)劑 +3 | 暗涌afhb 2026-03-16 | 3/150 |
|
|
[考研] 085601專碩,總分342求調(diào)劑,地區(qū)不限 +5 | share_joy 2026-03-16 | 5/250 |
|
|
[考研] 0703化學(xué)調(diào)劑 +3 | 妮妮ninicgb 2026-03-17 | 3/150 |
|
|
[考研] 有沒有道鐵/土木的想調(diào)劑南林,給自己招師弟中~ +3 | TqlXswl 2026-03-16 | 7/350 |
|