| 查看: 1528 | 回复: 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 |
回复此楼» 猜你喜欢
材料与化工调剂
已经有26人回复
-
一志愿211，化学310分，本科重点双非，求调剂
已经有19人回复
-
求调剂288
已经有7人回复
-
298求调剂
已经有13人回复
-
281求调剂
已经有3人回复
-
265求调剂
已经有11人回复
-
301求调剂
已经有5人回复
-
343求调剂
已经有3人回复
-
272分材料子求调剂
已经有18人回复
-
273求调剂
已经有57人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 高维数组投影到子空间
已经有4人回复
- 向量的投影
已经有4人回复
- 【求助】关于经典物理中时间各向同性的理解
已经有13人回复
- 【求助】关于向量投影的问题
已经有3人回复
- 【求助】国外的一道作业题，不会做！
已经有10人回复
- 【讨论】ARCGIS中如何实现同一区域不同投影和比例尺的两张矢量图的要素叠合？
已经有4人回复
- 【求助】transiesta中关于轨道的问题
已经有18人回复
- 【转帖】理解矩阵
已经有51人回复
- 【讨论】NEB寻找过渡态专题讨论
已经有49人回复
» 抢金币啦！回帖就可以得到:
-
安徽农业大学李亚辉教授招收 化学、农药学、植保类2026级博士研究生
+3/276
-
郑州人在北京，真诚找对象，非诚勿扰
+1/168
-
长江大学化工学院2026年硕士研究生调剂公告（理、工均收）
+1/90
-
延安大学接收化学与化工学院接收调剂生（化学、化工学硕和材料与化工专硕）
+2/48
-
河南师范大学材料学院招生调剂生
+2/48
-
五邑大学环境与化学工程学院第三批调剂
+1/41
-
西安科技大学力学系可接受力学、机械、土木及相关工科专业调剂
+1/40
-
齐鲁工业大学轻工学部曹珊副教授接收硕士调剂1人
+1/38
-
福建医科大学生信系饶世涛老师2026年招收调剂优秀硕士生1名-生物医学信息学
+1/37
-
江苏师范大学招收化学及材料专业研究生
+1/19
-
山西大同大学物理学专业还有调剂名额，欢迎调剂！
+1/12
-
中国民航飞行学院先进连接团队招收航空宇航、航空机械专业硕士研究生（学硕专硕均可）
+1/11
-
河南农业大学刘立杰课题组招收化学学硕和材料与化工专硕调剂生过国家线即可
+1/9
-
浙江农林大学 林业与生物技术学院 生物学(生物化学与分子生物学) 第一轮调剂生招生
+1/9
-
武汉纺织大学-材料学院-杰青团队招收调剂研究生 尚有少量名额，有意者请尽快联系
+2/8
-
西安工业大学光电学院接收调剂
+1/7
-
杭州师范大学-浙江省湿地智慧监测与生态修复重点实验室团队硕士调剂公告
+1/5
-
哈尔滨医科大学李老师课题组招收生物信息学方向博士、硕士研究生
+1/4
-
江西科技师范大学食品安全检测课题组招收生物学/分析化学学硕调剂生各1名
+1/4
-
【招收调剂】07/08/09学生看过来 环境 农业 生态学 生物 化学 计算机 材料 市政
+1/3
★ ★
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
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
