Fortran Coder

查看: 10720|回复: 1
打印 上一主题 下一主题

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

[复制链接]

7

帖子

3

主题

0

精华

入门

F 币
26 元
贡献
21 点
跳转到指定楼层
楼主
发表于 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语句?

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

250

帖子

2

主题

0

精华

宗师

F 币
1731 元
贡献
872 点

规矩勋章

沙发
发表于 2020-3-20 20:54:41 | 只看该作者
是         
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-27 14:12

Powered by Tencent X3.4

© 2013-2024 Tencent

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