average_test.ccd

一个温度控制的程序

: 10_0
0 JUMP ;
: 10_2
500  DELAY 
^data_101 @@ ^In1 @@ }out_table TABLE! 
^data_102 @@ ^In1 @@ }table_t2 TABLE! 
^In1 @@ 1 + ^In2 @! 
^In2 @@ 50 > IF 
0 ^In2 @! 
THEN 
^data_t1_total @@ ^In1 @@ }out_table TABLE@ F+ ^In2 @@ }out_table TABLE@ F- ^data_t1_total @! 
^data_t2_total @@ ^In1 @@ }table_t2 TABLE@ F+ ^In2 @@ }table_t2 TABLE@ F- ^data_t2_total @! 
^In1 @@ 1 + ^In1 @! 
^In1 @@ 50 > IF 
0 ^In1 @! 
THEN 
^data_t1_total @@ 5.000000e+001 F/ ^data_t1 @! 
^data_t2_total @@ 5.000000e+001 F/ ^data_t2 @! 
-2 JUMP ;
T: T10
DUMMY
10_0
10_2
T;
&average_test ' T10 SETTASK