average_test.con

一个温度控制的程序

: 'average_test ." 06/02/2006 11:03:52" ;
: 10_0
0 JUMP ;
: 10_2
500  DELAY 
^data_101 @@ ^In1 @@ }data_table_t1 TABLE! 
^In1 @@ 1 + ^In2 @! 
^In2 @@ 50 > IF 
0 ^In2 @! 
THEN 
^data_t1_total @@ ^In1 @@ }data_table_t1 TABLE@ F+ ^In2 @@ }data_table_t1 TABLE@ F- ^data_t1_total @! 
^In1 @@ 1 + ^In1 @! 
^In1 @@ 50 > IF 
0 ^In1 @! 
THEN 
^data_t1_total @@ 5.000000e+001 F/ ^data_t1 @! 
-2 JUMP ;
: 10_5
50  DELAY 
1 49 1 + 0 DO? I ^In1 @! 
^In1 @@ 1 + }data_table_t1 TABLE@ ^In1 @@ }data_table_t1 TABLE! 
1 +LOOP 
^data_101 @@ 50 }data_table_t1 TABLE! 
^data_t1_total @@ 50 }data_table_t1 TABLE@ F+ 0 }data_table_t1 TABLE@ F- ^data_t1_total @! 
^data_t1_total @@ 5.000000e+001 F/ ^data_t1 @! 
0 JUMP ;
T: T10
DUMMY
10_0
10_2
10_5
T;