| 查看: 1492 | 回复: 3 | |||
[交流]
【求助】关于向量投影的问题
|
|
有两个点A（x1,y1,z1）,B（x2,y2,z2）,现在以由点A和B确定的直线为基准轴，我想求的是当以物体由点C（x3,y3,z3）运动到点D（x4,y4,z4）时，沿AB基准轴方向的位移以及沿垂直于AB基准轴方向的位移。我写了一个程序，劳烦大家帮忙看看，这个程序有没有问题以及能不能实现我的目的?请大家不吝赐教。 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的位移（前保存的结果） 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 |
回复此楼» 猜你喜欢
考研求调剂
已经有4人回复
-
085601专硕，总分342求调剂，地区不限
已经有4人回复
-
085601材料工程专硕求调剂
已经有5人回复
-
一志愿天津大学化学工艺专业（081702）315分求调剂
已经有6人回复
-
能源材料化学课题组招收硕士研究生8-10名
已经有6人回复
-
296求调剂
已经有5人回复
-
0703化学调剂 ，六级已过，有科研经历
已经有8人回复
-
268求调剂
已经有8人回复
-
材料，纺织，生物（0856、0710），化学招生啦
已经有7人回复
-
301求调剂
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 高维数组投影到子空间
已经有4人回复
- 向量的投影
已经有4人回复
- 【求助】关于经典物理中时间各向同性的理解
已经有13人回复
- 【求助】关于向量投影的问题
已经有3人回复
- 【求助】国外的一道作业题，不会做！
已经有10人回复
- 【讨论】ARCGIS中如何实现同一区域不同投影和比例尺的两张矢量图的要素叠合？
已经有4人回复
- 【求助】transiesta中关于轨道的问题
已经有18人回复
- 【转帖】理解矩阵
已经有51人回复
- 【讨论】NEB寻找过渡态专题讨论
已经有49人回复
» 抢金币啦！回帖就可以得到:
-
绍兴大学博士教师招聘1位（化学化工相关）
+5/400
-
山东征女友，坐标济南
+1/167
-
电力全国重点实验室双一流A类长江学者团队招2026年全日制博士1名（4月3日截止）
+2/114
-
【技术服务】研究所横向技术开发及服务
+1/99
-
有没有在香港的虫友啊
+1/83
-
湘潭大学“过程强化与绿色化工”创新团队补招2026年秋入学博士生
+1/35
-
教研论文SCI期刊投稿选刊
+1/34
-
纺织科学与工程、材料化工方向招收研究生
+1/28
-
华南师范大学（211）申请审核制博士招生- 电子、自动化、机械、生物学、物理相关专业
+1/25
-
南开大学罗景山教授课题组招收2026年入学博士生（光/电催化方向）
+2/14
-
山东省植物基蛋白技术创新中心课题组联合培养硕士研究生招募启事
+1/12
-
南京医科大学-膜蛋白结构与功能课题组-招收2026级博士研究生
+1/11
-
南京林业大学有机功能分子实验室博士生招生启事
+1/8
-
上海师范大学化学与材料科学学院任新意副研究员招收调剂学生3-4名（有机化学专业）
+1/5
-
静电纺丝：工艺原理、形貌调控与典型应用
+1/5
-
上海交通大学化学化工学院张智涛课题组诚聘博士后
+1/3
-
西安建筑科技大学冶金学院先进储能材料团队2026年招收调剂研究生
+1/2
-
澳大利亚科学院院士Prof.Gordon Wallace, University of Wollongong 全奖博士机会
+1/1
-
北京大学环境学院张子帅研究员招收科研助理
+1/1
-
急！招收北京工业大学与国家纳米科学中心联合培养博士1名，物理、材料、化学背景
+1/1
2楼2011-01-21 09:12:14
★ ★
astringent(金币+5): 2011-02-17 02:57:21
astringent(金币+10): 2011-02-17 03:11:16
余泽成(金币+2): 谢谢参与应助，欢迎常来程序语言版！ 2011-02-20 18:34:56
astringent(金币+5): 2011-02-17 02:57:21
astringent(金币+10): 2011-02-17 03:11:16
余泽成(金币+2): 谢谢参与应助，欢迎常来程序语言版！ 2011-02-20 18:34:56
|
发现一个小问题， 把下面一段改一下 " 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) “ ==》 ” 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基准轴方向的位移 px2=dx2-px1 py2=dy2-py1 pz2=dz2-pz1 “ 原程序里p1求的向量是沿cd方向的，所以不对 p2也沿cd方向。 |
3楼2011-02-16 16:25:27
★ ★
astringent(金币+10): 2011-02-17 02:57:30
余泽成(金币+2): 谢谢参与应助，欢迎常来程序语言版！ 2011-02-20 18:35:06
astringent(金币+10): 2011-02-17 02:57:30
余泽成(金币+2): 谢谢参与应助，欢迎常来程序语言版！ 2011-02-20 18:35:06
 本帖仅楼主可见 |
4楼2011-02-16 17:10:15
