Fortran里一句逻辑关系读不懂

Merak · 发表于 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语句？

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

是

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

规矩勋章