average.con

来自「一个温度控制的程序」· CON 代码 · 共 40 行

: 'average ." 06/02/2006 09:33:51" ;
: 5_0
1 JUMP ;
: 5_11
10  DELAY 
~TI_101 @@ ^I @@ }data_table1 TABLE! 
~TI_102 @@ ^I @@ }data_table2 TABLE! 
^I @@ 1 + ^I1 @! 
^I1 @@ 200 > IF 
0 ^I1 @! 
THEN 
^total1 @@ ^I @@ }data_table1 TABLE@ F+ ^I1 @@ }data_table1 TABLE@ F- ^total1 @! 
^total2 @@ ^I @@ }data_table2 TABLE@ F+ ^I1 @@ }data_table2 TABLE@ F- ^total2 @! 
^I @@ 1 + ^I @! 
^I @@ 200 > IF 
0 ^I @! 
THEN 
^total1 @@ 2.000000e+002 F/ ^data_101 @! 
^total2 @@ 2.000000e+002 F/ ^data_102 @! 
1 JUMP ;
: 5_16
100  DELAY 
1 199 1 + 0 DO? I ^I @! 
^I @@ 1 + }data_table1 TABLE@ ^I @@ }data_table1 TABLE! 
^I @@ 1 + }data_table2 TABLE@ ^I @@ }data_table2 TABLE! 
1 +LOOP 
~TI_101 @@ 200 }data_table1 TABLE! 
~TI_102 @@ 200 }data_table2 TABLE! 
^total1 @@ 200 }data_table1 TABLE@ F+ 0 }data_table1 TABLE@ F- ^total1 @! 
^total2 @@ 200 }data_table2 TABLE@ F+ 0 }data_table2 TABLE@ F- ^total2 @! 
^total1 @@ 2.000000e+002 F/ ^data_101 @! 
^total2 @@ 2.000000e+002 F/ ^data_102 @! 
-3 JUMP ;
T: T5
DUMMY
5_0
5_11
5_16
T;