24小时热门版块排行榜    

CyRhmU.jpeg
查看: 1052  |  回复: 7
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

xzz1007

金虫 (小有名气)

[求助] 想请教一个有关二面角的问题!已有1人参与

我现在使用tinker程序中的xyzint程序,将笛卡尔坐标(xyz coor.)转化为内坐标(internal coor.)的形式;
然后再使用其中的intxyz程序将内坐标转化回笛卡尔坐标形式,但是却得不到原来的构型!

关键的问题出现在转化二面角上,比如:二面角ABCD

程序中是先求出angle(ABC)所在平面的法向量;然后再求出angle(BCD)所在平面的法向量,最后求出两个平面的法向量,最终求出这两个平面的夹角!

我的问题是:
1. 当这两个平面重合的情况下,是应该没有二面角,还是0度或者180度?
        因为这种情况下,程序中是处理成,二面角直接等于angle(ABD),这个平面角了,这样的处理不太理解!

2. 如果ABC三点或者BCD三点在同一条直线上,这样的二面角又该怎么处理?

3. 同样,如果两个平面重合的话,它们各自对应的法向量应该是什么关系呢?

我是学化学的,二面角以及向量这块儿,很是欠缺,求大侠帮助!
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

阳光总在风雨后,再坚持坚持吧.....
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

polypro

木虫 (正式写手)

引用回帖:
4楼: Originally posted by xzz1007 at 2014-09-28 11:16:12
可以发给我一份吗?我想对比一下!
我总觉得tinker中的程序在转化的时候有点问题!
留个邮箱吧!...

极坐标转换
!this sub to transfer Cartesian coordinates (x,y,z) with Polar coordinates (rou,theta,phi) (radius)
!control number 1 for (x,y,z)=>(rou,theta,phi) and -1 is reverse
!x=rou*sin(phi)*cos(theta)
!x=rou*sin(phi)*sin(theta)
!z=rou*cos(phi)
        subroutine trans(a,b,c,iflag)
        parameter(pi=3.1415926,h=0.01745329252)  !pi/180
        real rou,theta,phi
        real a,b,c
        integer iflag !1 from Cartesan to Polar, -1 is reverse (degree)
!print*,"a b cini",a,b,c,iflag
    if(iflag==1)then !Cartesan to Polar
          rou=sqrt(a*a+b*b+c*c)
          if(rou.eq.0)then
          a=0
          b=0
          c=0
          goto 80
          endif
          phi=acos(c/rou)
          if(abs(rou-c).le.1e-3.or.abs(b).le.1e-3)then
             theta=0  !point on Z aixs or Y axis, thets==0 fixed!
          else
             if(abs(a).le.1e-3)then
                theta=pi/2.0
             else
                sinphi=sqrt(1-c*c/rou/rou)
                theta=acos(a/rou/sinphi)
             endif
          endif
          if(b.lt.0)theta=-theta+pi   !all is in degree
          a=rou
          b=theta/h
          c=phi/h !in radius
    else  !polar to Cartesan
          rou=a
          if(rou.eq.0)then
          a=0
          b=0
          c=0          
          goto 80
          endif
          theta=b*h
          phi=c*h
          c=rou*cos(phi) !z
          b=rou*sin(phi)*sin(theta) !y
          a=rou*sin(phi)*cos(theta) !x         
        endif
80   continue
!print*,"a b c",a,b,c,iflag
    END subroutine trans
泉涸,鱼相与处于陆,相呴以湿,相濡以沫,不如相忘于江湖。
7楼2014-09-28 15:07:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答

feixiaolin

荣誉版主 (文坛精英)

优秀版主

http://wenku.baidu.com/link?url= ... RZZOriH9pAYI98cTaCu

另外,解反三角函数需要分象限讨论。
2楼2014-09-26 15:45:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

polypro

木虫 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
以前做个这个问题,有现成的fortran代码(子程)对笛卡尔和极坐标转换,需要告诉一声
泉涸,鱼相与处于陆,相呴以湿,相濡以沫,不如相忘于江湖。
3楼2014-09-28 08:28:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xzz1007

金虫 (小有名气)

sweety: 鼓励站内交流 2014-09-28 14:21:12
引用回帖:
3楼: Originally posted by polypro at 2014-09-28 08:28:25
以前做个这个问题,有现成的fortran代码(子程)对笛卡尔和极坐标转换,需要告诉一声

可以发给我一份吗?我想对比一下!
我总觉得tinker中的程序在转化的时候有点问题!
留个邮箱吧!
阳光总在风雨后,再坚持坚持吧.....
4楼2014-09-28 11:16:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见