Merak 发表于 2020-3-20 17:35:33

Fortran里一句逻辑关系读不懂

本帖最后由 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语句？

necrohan 发表于 2020-3-20 20:54:41

是         
页: [1]
查看完整版本: Fortran里一句逻辑关系读不懂