angry 发表于 2020-12-3 10:32:29

程序如何限制最大值

IF(TEMP(1).LT.293) THEN
       STATEV(2)=0.0
      ELSE
       STATEV(2)=1e-9+A*exp(-E/(R*(TEMP(1))))*((1-STATEV(1))**1.554)*
   1(STATEV(1)**0.647)
       STATEV(1)=STATEV(1)+STATEV(2)*DTIME
如何在加上一个条件，使得STATEV(1)在大于1时，STATEV(1) = 1。我改的是下面这样
IF(TEMP(1).LT.293) THEN
       STATEV(2)=0.0
      ELSE IF(STATEV(1).LT.1) THEN
       STATEV(2)=1e-9+A*exp(-E/(R*(TEMP(1))))*((1-STATEV(1))**1.554)*
   1(STATEV(1)**0.647)
       STATEV(1)=STATEV(1)+STATEV(2)*DTIME
      ELSE
        STATEV(1)=1

qq1151985918 发表于 2020-12-3 11:03:24

then 这是c吧
页: [1]
查看完整版本: 程序如何限制最大值