Fortran Coder

标题: 有限元模型中fortran语言编写 [打印本页]

作者: tsx 时间: 2024-4-19 00:08
标题: 有限元模型中fortran语言编写
在设置 real x,y,z,v,s,a

   x=coords(1)
   y=coords(2)
   z=coords(3)
   v=14
   s=v*TIME(1)后如何同时运行两个if语句，让一侧的六个轮与一侧的四个轮同时往前跑
1.if((z>=7.96 .and. z<=8.23) .or. (z>=9.31 .and. z<=9.58)) then
      F =1470000+178000*SIN(16.55*TIME(1))
      if((x>=s+14.126 .and. x<=s+14.526) .or. (x>=s+15.826 .and. x<=s+16.226)) then
         F =1470000+178000*SIN(16.55*TIME(1))
      else
         F=0
         endif
      else
      F=0
      endif
2.if((z>=11.47 .and. z<=11.74).or. (z>=13 .and. z<=13.27)) then
      F =1470000+178000*SIN(16.55*TIME(1))
      if((x>=s+10 .and. x<=s+10.4) .or. (x>=s+11.7 .and. x<=s+12.1).or. (x>=s+13.4 .and. x<=s+13.8)) then
         F =1470000+178000*SIN(16.55*TIME(1))
      else
         F=0
         endif
      else
      F=0
      endif

83fba48141d1eff04fc133790b75f41.png (9.12 KB, 下载次数: 48)

轮胎模型

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)