network1
L 0.000000e+000
T #xsum
T #ysum
T #xsums
T #ysums
T #xysum
T #lxx
T #lyy
T #lxy
L 0
T #count
network2
TAR1 #temp_ar1
TAR2 #temp_ar2
L P##db_no
LAR1
L W [AR1,P#0.0]
T #db_id
OPN DB [#db_id]
network3
LAR1 P#12.0
TAR1 #ar1data1
L DBW 8
_0a2: T DBW 10
L DBD [#ar1data1]
L #xsum
+R
T #xsum
LAR1 #ar1data1
+AR1 P#4.0
TAR1 #ar1data1
+AR1 P#4.0
TAR1 #ar1data2
L DBW 10
LOOP _0a2
network4
LAR1 P#172.0
TAR1 #ar1data1
L DBW 8
_0a3: T DBW 10
L DBD [#ar1data1]
L #ysum
+R
T #ysum
LAR1 #ar1data1
+AR1 P#4.0
TAR1 #ar1data1
+AR1 P#4.0
TAR1 #ar1data2
L DBW 10
LOOP _0a3
network5
LAR1 P#12.0
TAR1 #ar1data1


L DBW 8
_0a4: T DBW 10
L DBD [#ar1data1]
SQR
L #xsums
+R
T #xsums
LAR1 #ar1data1
+AR1 P#4.0
TAR1 #ar1data1
L DBW 10
LOOP _0a4
network6
LAR1 P#172.0
TAR1 #ar1data1


L DBW 8
_0a5: T DBW 10
L DBD [#ar1data1]
SQR
L #ysums
+R
T #ysums
LAR1 #ar1data1
+AR1 P#4.0
TAR1 #ar1data1
L DBW 10
LOOP _0a5
network7
LAR1 P#12.0
TAR1 #ar1data1
LAR2 P#172.0
TAR2 #ar1data2


L DBW 8
_0a6: T DBW 10
L DBD [#ar1data1]
L DBD [#ar1data2]
*R
L #xysum
+R
T #xysum
LAR1 #ar1data1
+AR1 P#4.0
TAR1 #ar1data1
LAR2 #ar1data2
+AR2 P#4.0
TAR2 #ar1data2
L DBW 10
LOOP _0a6
network8
L #xsum
SQR
L DBW 8
ITD
DTR
/R
NEGR
L #xsums
+R
T #lxx
//////////////////////////////////////
L #ysum
SQR
L DBW 8
ITD
DTR
/R
NEGR
L #ysums
+R
T #lyy
//////////////////////////////
L #xsum
L #ysum
*R
L DBW 8
ITD
DTR
/R
NEGR
L #xysum
+R
T #lxy
/////////////////////////
L #lxy
L #lxx
/R
T DBD 0

///////////////////
L #ysum
L DBW 8
ITD
DTR
/R
T LD 52

L #xsum
L DBD 0
*R
L DBW 8
ITD
DTR
/R
NEGR
L LD 52
+R
T DBD 4

数据块定义见附件