帮忙解读一下程序

精

奖

官

1401 产品版区：S7-300(F)/400(F)/400H(冗余)

文档类型：问题类别：产品选型问题类别：产品使用问题类别：故障诊断

SET
      SAVE
      =     L      0.1
      L     P##aiPara
      LAR1
      L     W [AR1,P#0.0]
      T     LW     2
      OPN   DB [LW 2]
      L     D [AR1,P#2.0]
      LAR1
      L     D [AR1,P#8.0]
      L     D [AR1,P#4.0]
      -R
      L     0.000000e+000
      <>R
      JCN   A7d0
      L     #IN
      ITD
      DTR
      L     D [AR1,P#4.0]
      -R
      L     D [AR1,P#16.0]
      TAK
      T     LD     2
      TAK
      L     D [AR1,P#12.0]
      -R
      L     LD     2
      *R
      L     D [AR1,P#8.0]
      TAK
      T     LD     2
      TAK
      L     D [AR1,P#4.0]
      -R
      L     LD     2
      TAK
      /R
      L     D [AR1,P#12.0]
      +R
      L     D [AR1,P#0.0]
      *R
      RND
      T     #OUT
      JU    A7d1
A7d0: L     0
      T     #OUT
A7d1: CLR
      A     L      0.1
      SAVE
      BE

问题补充：

扫码小程序：

一键登录查看全部问答

云上1981 新生

被采纳率低

问题为何被关闭

分享

手机扫码追踪该问题，
觉得实用，立即去分享！

点击复制链接
举报

去论坛讨论

参与「找答案」每周问答福利，提问或回答即可全民瓜分3000西币奖池，发1条也能分西币！用心解答更有机会单篇直发66西币，上不封顶。每周还有快答侠、夺魁答侠等专属称号与丰厚奖励等你来拿！西币可兑换实物奖品，随手互动免费领福利。

SET
      SAVE
      =     L      0.1
      L     P##aiPara         //读取指针
      LAR1
      L     W [AR1,P#0.0]
      T     LW     2          //将指针中含有的DB号数据取出给LW2
      OPN   DB [LW 2]
      L     D [AR1,P#2.0]
      LAR1                    //取出指针还有的地址信息赋值到地址寄存器1里
      L     D [AR1,P#8.0]
      L     D [AR1,P#4.0]
      -R
      L     0.000000e+000
      <>R                     //D [AR1,P#8.0]-D [AR1,P#4.0]==0则跳转到A7d0，否者程序接着往下执行
      JCN   A7d0
      L     #IN
      ITD
      DTR                      //将输入的数据IN从int转换到R型浮点数
      L     D [AR1,P#4.0]
      -R                       //IN- D[AR1,P#4.0]=C
      L     D [AR1,P#16.0]
      TAK                      //累加器1=C  累加器2=D[AR1,P#16.0]
      T     LD     2           //LD2=C
      TAK                      //累加器1=D[AR1,P#16.0]  累加器2=C
      L     D [AR1,P#12.0]     //D[AR1,P#16.0] - D [AR1,P#12.0]
      -R
      L     LD     2           //(D[AR1,P#16.0] - D [AR1,P#12.0])*C
      *R
      L     D [AR1,P#8.0]     //累加器1=(D[AR1,P#16.0] - D [AR1,P#12.0])*C  累加器2=D[AR1,P#8.0]
      TAK                     //累加器1=D[AR1,P#8.0] 累加器2=(D[AR1,P#16.0] - D [AR1,P#12.0])*C
      T     LD     2          //LD2=D[AR1,P#8.0]
      TAK                     //累加器1=(D[AR1,P#16.0] - D [AR1,P#12.0])*C  累加器2=D[AR1,P#8.0]
      L     D [AR1,P#4.0]
      -R                      //[(D[AR1,P#16.0] - D [AR1,P#12.0])*C ]-D [AR1,P#4.0]
      L     LD     2
      TAK      //累加器1=LD2=D[AR1,P#8.0] 累加器2=[(D[AR1,P#16.0] - D [AR1,P#12.0])*C ]-D [AR1,P#4.0]
      /R       //{[(D[AR1,P#16.0] - D [AR1,P#12.0])*C ]-D [AR1,P#4.0]}/ D[AR1,P#8.0]
      L     D [AR1,P#12.0]
      +R       //{{[(D[AR1,P#16.0] - D [AR1,P#12.0])*C ]-D [AR1,P#4.0]}/ D[AR1,P#8.0]+D [AR1,P#12.0]}
      L     D [AR1,P#0.0]
      *R       //{{[(D[AR1,P#16.0] - D [AR1,P#12.0])*C ]-D [AR1,P#4.0]}/ D[AR1,P#8.0]+D [AR1,P#12.0]}*R
      RND      //以上计算的数值去整数
      T     #OUT  //最后将计算完的数值给OUT
      JU    A7d1
A7d0: L     0
      T     #OUT
A7d1: CLR
      A     L      0.1
      SAVE
      BE
计算的过程很长，主要是要注意TAK在交换的过程中数值是在累加器1里还是在累加器2里，计算；然要了解间接寻址时如何用的；