LAR1 P##TEMP6
L B#16#10
T LB 【AR1,P#0.0】
L B#16#2
T LB 【AR1,P#1.0】
L #IN4
T LW 【AR1,P#2.0】
L #IN0
T LW 【AR1,P#4.0】
L #IN1
L 8
*I
T LD 【AR1,P#6.0】
L B#16#84
T LB 【AR1,P#6.0】
##################################
程序２：
I0.0 M1.1 Q0.1 M0.1
｜-------| |-------(P)-------| |-------------( )
｜
｜
｜
｜ I0.0 M1.2 M0.1 Q0.1
｜-------| |-------(P)--,----| / |----------- --( )
｜ Q0.1 |
｜-------| |-------------''
｜
################################
程序３：（SCL）
VAR_INPUT
X1: INT;
Y1: INT;
X2: INT;
Y2: INT;
Xn: INT;
END_VAR
VAR_OUTPUT
Yn: INT;
END_VAR
VAR_TEMP
m: REAL;
t: REAL;
L_X1: REAL;
L_Y1: REAL;
L_X2: REAL;
L_Y2: REAL;
L_Xn: REAL;
END_VAR
// Initialization part
L_X1 := INT_TO_REAL (X1);
L_X2 := INT_TO_REAL (X2);
L_Y1 := INT_TO_REAL (Y1);
L_Y2 := INT_TO_REAL (Y2);
L_Xn := INT_TO_REAL (Xn);
m := (L_Y2 - L_Y1) / (L_X2 - L_X1);
t := L_Y2 - m * L_X2;
IF Xn < X1 THEN Yn := Y1;
ELSIF Xn > X2 THEN Yn := Y2;
ELSE Yn := REAL_TO_INT(m * L_Xn + t);
几个小小的程序是平时工作中遇到的，分享给大家
同时欢迎大家一起讨论学习：
QQ群号：29147485
注：
验证信息为以上两个程序任一个的解释
答对问题相关的关键词就可以，加群时必须写验证信息，谢谢合作！
最后修改：2011/5/8 18:46:05
