| 查看: 1058 | 回复: 3 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
astringent铜虫 (著名写手)
|
[交流]
【求助】关于向量投影的问题 已有2人参与
|
||
|
有两个点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 [ Last edited by ghcacj on 2011-1-21 at 20:42 ] |
回复此楼» 猜你喜欢
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有6人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有4人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有4人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有5人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【求助】关于向量投影的问题
已经有3人回复
astringent
铜虫 (著名写手)
- 应助: 16 (小学生)
- 金币: 2210.7
- 散金: 1233
- 红花: 4
- 帖子: 1180
- 在线: 354.8小时
- 虫号: 900839
- 注册: 2009-11-12
- 专业: 理论和计算化学
4楼2011-01-22 05:28:39
老虎大王
木虫 (著名写手)
- 模拟EPI: 17
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
2楼2011-01-21 17:45:12
老虎大王
木虫 (著名写手)
- 模拟EPI: 17
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
3楼2011-01-21 17:46:58
