FORTRAN语句转成MATLAB - Fortran Coder

[Fortran] 纯文本查看 复制代码

      EQ=DSQRT(RR*RR+RJ*RJ)

      DEL=DATAN2(RJ,RR)

      SIND=DSIN(DEL)

      COSD=DCOS(DEL)

      BID=BIX*SIND-BIY*COSD

      BIQ=BIX*COSD+BIY*SIND

      VD=VT*SIND

      VQ=VT*COSD

      EVDEL=DEL+VDEL

      SIND=DSIN(EVDEL)

      COSD=DCOS(EVDEL)

      VX=VT*DCOS(VDEL)

      VY=VT*DSIN(VDEL)

      BIX=BID*SIND+BIQ*COSD

      BIY=-BID*COSD+BIQ*SIND