Fortran Coder

查看: 50|回复: 1

[求助] Fortran里一句逻辑关系读不懂

[复制链接]

5

帖子

2

主题

0

精华

入门

F 币
40 元
贡献
18 点
发表于 2020-3-20 17:35:33 | 显示全部楼层 |阅读模式
本帖最后由 Merak 于 2020-3-20 17:35 编辑

    if (abs(fai-ffai)<PI/6.     ! 这里,一次用这么多逻辑词,是在.or. 那里断句吗?
     + .or. (fai-ffai)>5*PI/6 .and. (fai-ffai)<PI
     +    .or. (fai-ffai)>-PI .and. (fai-ffai)<-5*PI/6) then
       if (ww<=w0) then
         mu=4.06
       else
         mu=-2.34
       end if
       p=real(9.77*(ww/w0)**mu)
       normp=2**(1-2*p)*PI*gamma(2*p+1)/gamma(p+1)**2
       Direc_new=(cos((fai-ffai)/2))**(2*p)/normp
     else        
       Direc_new=0.
     end if

上面那个逻辑关系翻译过来是不是:差的绝对值<pi/6 ,或 差在5pi/6和pi之间,或差在-pi -5pi/6之间就进行下面的if语句?

回复

使用道具 举报

70

帖子

2

主题

0

精华

专家

F 币
456 元
贡献
222 点

规矩勋章

发表于 2020-3-20 20:54:41 | 显示全部楼层
是         
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-4-4 23:32

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表