control_loop.con

一个温度控制的程序

: 'control_loop ." 05/10/2006 10:49:57" ;
: 7_0
0 JUMP ;
: 7_43
^data_101 @@ ^data_102 @@ F- ^deltat @! 
^deltat @@ 5 I>F F> IF 
-6 ^flag @! 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
|TIC_201 100 I>F  $0008.. 3 ROLL EX.!PID 
20 I>F ^JWT_ON @! 
0 I>F ^JWT_OFF @! 
^JWT_ON @@  FDELAY 
ELSE 
^deltat @@ 2 I>F F>= ^deltat @@ 5 I>F F< LAND IF 
-5 ^flag @! 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
|TIC_201 100 I>F  $0008.. 3 ROLL EX.!PID 
10 I>F ^JWT_ON @! 
0 I>F ^JWT_OFF @! 
^JWT_ON @@  FDELAY 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_OFF @@  FDELAY 
ELSE 
^deltat @@ 5.000000e-001 F>= ^deltat @@ 2 I>F F< LAND IF 
-4 ^flag @! 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
|TIC_201 100 I>F  $0008.. 3 ROLL EX.!PID 
10 I>F ^JWT_ON @! 
3 I>F ^JWT_OFF @! 
^JWT_ON @@  FDELAY 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_OFF @@  FDELAY 
ELSE 
^deltat @@ 1.000000e-001 F>= ^deltat @@ 5.000000e-001 F< LAND IF 
-3 ^flag @! 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
|TIC_201 100 I>F  $0008.. 3 ROLL EX.!PID 
5 I>F ^JWT_ON @! 
3 I>F ^JWT_OFF @! 
^JWT_ON @@  FDELAY 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_OFF @@  FDELAY 
ELSE 
^deltat @@ 5.000000e-002 F>= ^deltat @@ 1.000000e-001 F< LAND IF 
-2 ^flag @! 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
|TIC_201 100 I>F  $0008.. 3 ROLL EX.!PID 
3 I>F ^JWT_ON @! 
5 I>F ^JWT_OFF @! 
^JWT_ON @@  FDELAY 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_OFF @@  FDELAY 
ELSE 
^deltat @@ 1.000000e-002 F>= ^deltat @@ 5.000000e-002 F< LAND IF 
-1 ^flag @! 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
|TIC_201 100 I>F  $0008.. 3 ROLL EX.!PID 
3 I>F ^JWT_ON @! 
10 I>F ^JWT_OFF @! 
^JWT_ON @@  FDELAY 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_OFF @@  FDELAY 
ELSE 
^deltat @@ 1.000000e-002 F< ^deltat @@ -1.000000e-002 F>= LAND IF 
0 ^flag @! 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
1.000000e-001  FDELAY 
ELSE 
^deltat @@ -1.000000e-002 F< ^deltat @@ -1.000000e-001 F>= LAND IF 
1 ^flag @! 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
1 I>F ^JWT_ON @! 
5 I>F ^JWT_OFF @! 
|TIC_101 5 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_ON @@  FDELAY 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_OFF @@  FDELAY 
ELSE 
^deltat @@ -1.000000e-001 F< ^deltat @@ -2.000000e-001 F>= LAND IF 
2 ^flag @! 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
2 I>F ^JWT_ON @! 
4 I>F ^JWT_OFF @! 
|TIC_101 10 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_ON @@  FDELAY 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_OFF @@  FDELAY 
ELSE 
^deltat @@ -2.000000e-001 F< ^deltat @@ -3.000000e-001 F>= LAND IF 
3 ^flag @! 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
4 I>F ^JWT_ON @! 
2 I>F ^JWT_OFF @! 
|TIC_101 10 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_ON @@  FDELAY 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_OFF @@  FDELAY 
ELSE 
^deltat @@ -3.000000e-001 F< ^deltat @@ -4.000000e-001 F>= LAND IF 
4 ^flag @! 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
3 I>F ^JWT_ON @! 
3 I>F ^JWT_OFF @! 
|TIC_101 20 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_ON @@  FDELAY 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_OFF @@  FDELAY 
ELSE 
^deltat @@ -4.000000e-001 F< ^deltat @@ -5.000000e-001 F>= LAND IF 
5 ^flag @! 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
4 I>F ^JWT_ON @! 
2 I>F ^JWT_OFF @! 
|TIC_101 30 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_ON @@  FDELAY 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_OFF @@  FDELAY 
ELSE 
^deltat @@ -5.000000e-001 F< ^deltat @@ -1 I>F F>= LAND IF 
6 ^flag @! 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
5 I>F ^JWT_ON @! 
2 I>F ^JWT_OFF @! 
|TIC_101 70 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_ON @@  FDELAY 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_OFF @@  FDELAY 
ELSE 
7 ^flag @! 
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
5 I>F ^JWT_ON @! 
0 I>F ^JWT_OFF @! 
|TIC_101 100 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_ON @@  FDELAY 
|TIC_101 0 I>F  $0008.. 3 ROLL EX.!PID 
^JWT_OFF @@  FDELAY 
THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN 
-2 JUMP ;
T: T7
DUMMY
7_0
7_43
T;