github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-04-18 16:58:00 +00:00
Code Issues Releases Wiki Activity
Files
055aad8fa6262243fa20d7daa26cea5ffee5d749
pkimpel.retro-220/software/BALGOL/BALGOL-Examples/DIRICHLET/DIRICHLET-OUTPUT-Code.lst
Paul Kimpel 83a0b62faf Update BALGOL Library and Examples 
1. Correct missing relocation pseudo-op in MONIT Library routine.
2. Rebuild Generator and Compiler tapes.
3. Recompile and generate corrected listings for example programs.
4. Add Simpson's Rule example from Algol-58 Preliminary Report.
2018-08-06 17:59:30 -07:00

5091 lines
328 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
0200 BAC-220 STANDARD VERSION 2/1/62
0200 COMMENT
0200 DIRICHLET PROBLEM FOR A BEAN-SHAPED REGION. FROM P J DAVIS,
0200 *ORTHONORMALIZING CODES IN NUMERICAL ANALYSIS* IN J TODD, --SURVEY OF
0200 NUMERICAL ANLAYSIS--, MCGRAW-HILL, 1962, P.347. P H KIMPEL 8/15/70
0200 MODIFICATION LOG..
0200 92/03/17 P.KIMPEL, PARADIGM CORP, SAN DIEGO, CA 92117.
0200 CONVERT FOR UNISYS A-SERIES MCP 3.8.4.
0200 2014-11-15 P.KIMPEL
0200 RETRO-CONVERT FROM UNISYS MCP ALGOL BACK TO BURROUGHS B5500 XALGOL.
0200 2018-02-20 P.KIMPEL
0200 RETRO-CONVERT FROM B5500 TO BURROUGHS 220 BALGOL OF FEB 1962.
0200 $
0200
0200 0 0000 30
0201 0 0004 20 3000
0202 0 0004 90 0300
0203 0 0026 70 1003
0204 0 0046 70 1005
0205 0 0006 60 0000
0206 1 0000 00 0201
0200 FORMAT F1 (B30,I3,2X10.3,4X10.5,W),
0207 0 0004 20 4000
0208 3 6714 00 0000
0209 0 0004 20 0900
0210 3 6814 00 0000
0211 0 0004 20 0900
0212 3 6614 00 0000
0213 0 0004 20 0800
0214 3 4265 14 0000
0215 0 0004 20 0700
0216 3 4342 65 1400
0217 0 0004 20 0700
0218 3 4445 65 1400
0219 0 0006 60 0300
0220 0 0006 60 0000
0221 1 0000 00 0207
0200 F2 (B40,*X*,B9,*Y*,B9,*W*,B8,*BV*,B7,*CBV*,B7,*DEV*,W3,W)$
0200 0222
0222 INTEGER I, J, N, M, P$
0222 REAL SUM, GMDT$
0222
0222
0222 REAL X, Y, W, CBV, BV, Z, ORTHV, DEV, COF, STD, CV, VCV,
0222 Q, Q2, E, EP, A, GF, ENF$
0222 ARRAY
0222 X(43),
0222 Y(43),
0222 W(43),
0222 CBV(43),
0222 BV(1, 43+11),
0222 Z(11, 43+11),
0222 ORTHV(11+1, 43+11),
0222 DEV(1, 43),
0222 COF(1, 11),
0222 STD(1),
0222 CV(11+1, 11),
0222 VCV(1, 11+1, 11),
0222 Q(1, 11+1),
0222 Q2(1, 11),
0222 E(1, 11),
0222 EP(1, 11),
0222 A(11, 11),
0222 GF(11+1),
0222 ENF(11)$
0222
0222
0222 0 0000 30
0223 0 8023 01 0223
0222 PROCEDURE ORTHO (W(), Y(,), Z(,), N, FN, M, P, R, AI, AUI, MUI, ZEI$
0224 X(,), DEV(,), COF(,), STD(), CV(,), VCV(,,), GMDT,
0224 0 0000 40 7969 TEMP
0225 0 0000 30
0224 Q(,), Q2(,), E(,), EP(,), A(,), GF(), ENF())$
0224 BEGIN
0224 REAL FN, GMDT$
0226 REAL W, Y, Z, X, DEV, COF, STD, CV, VCV, Q, Q2, E, EP, A, GF, ENF$
0226 INTEGER N, M, P, R, AI, AUI, ZEI, MUI$
0226 COMMENT
0226 ORTHO IS TAKEN FROM ACM ALGORITHM 127 (COMM. ACM, VOL.5,
0226 OCTOBER 1962, P. 511, AUTHOR PHILIP J. WALSH)$
0226 INTEGER NPP, NPM, M1, N2, M2, R1, RBAR, P2, BEI, RHI, I18, GAI, SII,
0226 I, J, DEI, NUI, E1Z2, E1Z1, K, THI, ALI, OMI, NII$
0226 ARRAY PK(99), XP (99), QK(99)$
0226 REAL DENOM, SUM, DK2, DK, FI, SS, SSQ$
0226
0226 0 0000 10 8012 P
0227 0 0000 12 8015 N
0228 0 0000 40 7671 NPP
0229 0 0000 10 8013 M
0230 0 0000 12 8015 N
0231 0 0000 40 7670 NPM
0232 0 0000 10 8013 M
0233 0 0000 13 7669 CONST
0234 0 0000 40 7668 M1
0235 0 0000 10 7669 CONST
0236 0 0000 12 8015 N
0237 0 0000 40 7667 N2
0226 NPP = N+P$ NPM = N+M$ M1 = M-1$ N2 = N+1$ M2 = M+1$
0238 0 0000 10 7669 CONST
0239 0 0000 12 8013 M
0240 0 0000 40 7666 M2
0241 0 0000 46 7665 R1
0242 0 0000 10 8011 R
0243 0 0000 40 7664 RBAR
0241 R1 = 0$ RBAR = R$ P2 = P+1$
0244 0 0000 10 7669 CONST
0245 0 0000 12 8012 P
0246 0 0000 40 7663 P2
0247 0 0000 10 8015 N
0248 0 0000 13 8013 M
0249 0 1111 31 0251
0250 0 0000 36 0252
0251 0 0000 30
0252 0 0000 10 7662 CONST
0253 0 0000 40 7661 DENOM
0251 0255
0254 0 0000 30
0255 0 0000 10 8015 N
0256 0 0000 13 8013 M
0247 EITHER IF N EQL M$ DENOM = 1.0$ OTHERWISE$ DENOM = SQRT(N-M)$
0257 0 0000 44 7602 FLOAT
0258 0 0000 30 7602
0259 0 0000 44 7616
0260 0 0000 30 7616
0261 0 0000 40 7661 DENOM
0254 0262
0262 BEI = RHI = I18 = 1$
0262 0 0000 10 7669 CONST
0263 0 0000 40 7601 I18
0264 0 0000 40 7600 RHI
0265 0 0000 40 7599 BEI
0266 0 0000 10 8012 P
0267 0 0000 36 0269
0268 0 0000 10 7669 CONST
0269 0 0000 36
0270 0 0000 10 7598 CONST
0271 0 0000 40 7597 SII
0272 0 0000 40 7596 GAI
0269 0274
0273 0 0000 30
0266 EITHER IF (P NEQ 0)$ GAI = SII = 2$ OTHERWISE$ GAI = SII = 1$
0274 0 0000 10 7669 CONST
0275 0 0000 40 7597 SII
0276 0 0000 40 7596 GAI
0273 0277
0277 0 0001 42 8010 AI
0278 1 0000 30
0279 0 0000 30 0000 AT2
0277 BOX1.. SWITCH AI, (AT1, AT2)$
0280 0 0000 30 0000 AT1
0278 0281
0280 0281
0281 0 0000 10 7669 CONST
0282 0 0000 40 7595 J
0283 0 0000 44
0284 0 0000 30
0285 0 0000 10 7669 CONST
0286 0 0000 12 7595 J
0287 0 0000 40 7595 J
0284 0288
0288 0 0000 13 8015 N
0289 0 1111 31 0291
0290 0 0000 36
0291 0 0001 33
0292 0 0000 30
0291 0293
0290 0293
0281 AT1.. FOR J = (1, 1, N)$ BEGIN
0293 0 0000 10 7598 CONST
0294 0 0000 14 8005
0295 0 0001 49 0010
0296 0 0000 12 7595 J
0297 0 0000 14 8004
0298 0 0001 49 0010
0298 0 0001 40 7594 TEMP
0299 0 0000 10 7595 J
0300 0 0000 12 8017
0301 0 0000 14 8016
0302 0 0001 49 0010
0302 0 0001 40 7593 TEMP
0303 0 0000 42 7593 TEMP
0304 1 0000 10 8018 Z
0305 0 0000 42 7594 TEMP
0306 1 0000 40 8006 X
0307 0 0000 10 7595 J
0308 0 0000 12 8005
0309 0 0000 14 8004
0310 0 0001 49 0010
0310 0 0001 40 7594 TEMP
0311 0 0000 10 7662 CONST
0312 0 0000 42 7594 TEMP
0313 1 0000 40 8006 X
0293 X(2,J) = Z(1,J)$ X(1,J) = 1.0 END$
0292 0315
0283 0314
0314 0 0000 30
0315 0 0000 10 7598 CONST
0316 0 0000 40 7592 I
0317 0 0000 44
0318 0 0000 30
0319 0 0000 10 7669 CONST
0320 0 0000 12 7592 I
0321 0 0000 40 7592 I
0318 0322
0322 0 0000 13 7668 M1
0323 0 1111 31 0325
0324 0 0000 36
0325 0 0001 33
0326 0 0000 30
0325 0327
0324 0327
0315 FOR I = (2, 1, M1)$ BEGIN
0327 0 0000 10 7669 CONST
0328 0 0000 40 7595 J
0329 0 0000 44
0330 0 0000 30
0331 0 0000 10 7669 CONST
0332 0 0000 12 7595 J
0333 0 0000 40 7595 J
0330 0334
0334 0 0000 13 8015 N
0335 0 1111 31 0337
0336 0 0000 36
0337 0 0001 33
0327 FOR J = (1, 1, N)$
0338 0 0000 30
0337 0339
0336 0339
0339 0 0000 10 7669 CONST
0340 0 0000 12 7592 I
0341 0 0000 14 8005
0342 0 0001 49 0010
0343 0 0000 12 7595 J
0344 0 0000 14 8004
0345 0 0001 49 0010
0345 0 0001 40 7594 TEMP
0346 0 0000 10 7592 I
0347 0 0000 14 8005
0348 0 0001 49 0010
0349 0 0000 12 7595 J
0350 0 0000 14 8004
0351 0 0001 49 0010
0351 0 0001 40 7593 TEMP
0352 0 0000 10 7598 CONST
0353 0 0000 14 8005
0354 0 0001 49 0010
0355 0 0000 12 7595 J
0356 0 0000 14 8004
0357 0 0001 49 0010
0357 0 0001 40 7591 TEMP
0358 0 0000 42 7593 TEMP
0359 1 0000 10 8006 X
0360 0 0000 42 7591 TEMP
0361 1 0000 24 8006 X
0362 0 0000 42 7594 TEMP
0363 1 0000 40 8006 X
0338 0365
0329 0364
0364 0 0000 30
0326 0366
0317 0365
0365 0 0000 30
0338 X(I+1,J) = X(I,J) . X(2,J) END$ GO TO BOX2$
0366 0 0000 30 0000 BOX2
0279 0367
0367 0 0000 10 7669 CONST
0368 0 0000 40 7592 I
0369 0 0000 44
0370 0 0000 30
0371 0 0000 10 7669 CONST
0372 0 0000 12 7592 I
0373 0 0000 40 7592 I
0370 0374
0374 0 0000 13 8013 M
0375 0 1111 31 0377
0376 0 0000 36
0377 0 0001 33
0378 0 0000 30
0377 0379
0376 0379
0367 AT2.. FOR I = (1, 1, M)$ BEGIN
0379 0 0000 10 7669 CONST
0380 0 0000 40 7595 J
0381 0 0000 44
0382 0 0000 30
0383 0 0000 10 7669 CONST
0384 0 0000 12 7595 J
0385 0 0000 40 7595 J
0382 0386
0386 0 0000 13 8015 N
0387 0 1111 31 0389
0388 0 0000 36
0389 0 0001 33
0379 FOR J = (1, 1, N)$
0390 0 0000 30
0389 0391
0388 0391
0391 0 0000 10 7592 I
0392 0 0000 14 8005
0393 0 0001 49 0010
0394 0 0000 12 7595 J
0395 0 0000 14 8004
0396 0 0001 49 0010
0396 0 0001 40 7594 TEMP
0397 0 0000 10 7592 I
0398 0 0000 14 8017
0399 0 0001 49 0010
0400 0 0000 12 7595 J
0401 0 0000 14 8016
0402 0 0001 49 0010
0402 0 0001 40 7591 TEMP
0403 0 0000 42 7591 TEMP
0404 1 0000 10 8018 Z
0405 0 0000 42 7594 TEMP
0406 1 0000 40 8006 X
0390 0408
0381 0407
0407 0 0000 30
0390 X(I,J) = Z(I,J) END$
0378 0409
0369 0408
0408 0 0000 30
0366 0409
0409 0 0000 10 8012 P
0410 0 0000 36 0412
0411 0 0000 30
0409 BOX2.. EITHER IF P EQL 0$ GO TO BOX3$
0412 0 0000 30 0000 BOX3
0411 0414
0413 0 0000 30
0414 0 0001 42 8009 AUI
0415 1 0000 30
0416 0 0000 30 0000 AU2
0413 OTHERWISE$ SWITCH AUI, (AU1, AU2)$
0417 0 0000 30 0000 AU1
0415 0418
0413 0418
0417 0418
0418 0 0000 10 7669 CONST
0419 0 0000 40 7592 I
0420 0 0000 44
0421 0 0000 30
0422 0 0000 10 7669 CONST
0423 0 0000 12 7592 I
0424 0 0000 40 7592 I
0421 0425
0425 0 0000 13 8013 M
0426 0 1111 31 0428
0427 0 0000 36
0428 0 0001 33
0429 0 0000 30
0428 0430
0427 0430
0418 AU1.. FOR I = (1, 1, M)$ BEGIN
0430 0 0000 10 7667 N2
0431 0 0000 40 7595 J
0432 0 0000 44
0433 0 0000 30
0434 0 0000 10 7669 CONST
0435 0 0000 12 7595 J
0436 0 0000 40 7595 J
0433 0437
0437 0 0000 13 7671 NPP
0438 0 1111 31 0440
0439 0 0000 36
0440 0 0001 33
0430 FOR J = (N2, 1, NPP)$
0441 0 0000 30
0440 0442
0439 0442
0442 0 0000 10 7592 I
0443 0 0000 14 8005
0444 0 0001 49 0010
0445 0 0000 12 7595 J
0446 0 0000 14 8004
0447 0 0001 49 0010
0447 0 0001 40 7594 TEMP
0448 0 0000 42 7594 TEMP
0449 1 0000 46 8006 X
0441 0451
0432 0450
0450 0 0000 30
0451 0 0000 10 7592 I
0452 0 0000 14 8005
0453 0 0001 49 0010
0454 0 0000 12 8015 N
0455 0 0000 12 7592 I
0456 0 0000 14 8004
0457 0 0001 49 0010
0457 0 0001 40 7594 TEMP
0458 0 0000 10 7662 CONST
0459 0 0000 42 7594 TEMP
0460 1 0000 40 8006 X
0429 0462
0420 0461
0461 0 0000 30
0441 X(I,J) = 0.0$ X(I,N+I) = 1.0 END$ GO TO BOX3$
0462 0 0000 30 0000 BOX3
0416 0463
0463 0 0000 10 7669 CONST
0464 0 0000 40 7592 I
0465 0 0000 44
0466 0 0000 30
0467 0 0000 10 7669 CONST
0468 0 0000 12 7592 I
0469 0 0000 40 7592 I
0466 0470
0470 0 0000 13 8013 M
0471 0 1111 31 0473
0472 0 0000 36
0473 0 0001 33
0474 0 0000 30
0473 0475
0472 0475
0463 AU2.. FOR I = (1, 1, M)$ BEGIN
0475 0 0000 10 7667 N2
0476 0 0000 40 7595 J
0477 0 0000 44
0478 0 0000 30
0479 0 0000 10 7669 CONST
0480 0 0000 12 7595 J
0481 0 0000 40 7595 J
0478 0482
0482 0 0000 13 7671 NPP
0483 0 1111 31 0485
0484 0 0000 36
0485 0 0001 33
0475 FOR J = (N2, 1, NPP)$
0486 0 0000 30
0485 0487
0484 0487
0487 0 0000 10 7592 I
0488 0 0000 14 8005
0489 0 0001 49 0010
0490 0 0000 12 7595 J
0491 0 0000 14 8004
0492 0 0001 49 0010
0492 0 0001 40 7594 TEMP
0493 0 0000 10 7592 I
0494 0 0000 14 8017
0495 0 0001 49 0010
0496 0 0000 12 7595 J
0497 0 0000 14 8016
0498 0 0001 49 0010
0498 0 0001 40 7591 TEMP
0499 0 0000 42 7591 TEMP
0500 1 0000 10 8018 Z
0501 0 0000 42 7594 TEMP
0502 1 0000 40 8006 X
0486 0504
0477 0503
0503 0 0000 30
0486 X(I,J) = Z(I,J) END$
0474 0505
0465 0504
0504 0 0000 30
0462 0505
0412 0505
0505 BOX3.. DEI = NUI = E1Z1 = E1Z2 = K = 1$
0505 0 0000 10 7669 CONST
0506 0 0000 40 7590 K
0507 0 0000 40 7589 E1Z2
0508 0 0000 40 7588 E1Z1
0509 0 0000 40 7587 NUI
0510 0 0000 40 7586 DEI
0511 BOX4.. THI = 1$
0511 0 0000 10 7669 CONST
0512 0 0000 40 7585 THI
0513 0 0000 10 7669 CONST
0514 0 0000 40 7584 OMI
0515 0 0000 40 7583 ALI
0516 0 0000 10 8012 P
0517 0 0000 36 0519
0518 0 0000 30
0513 BOX5.. ALI = OMI = 1$ EITHER IF P EQL 0$ GO TO BOX6$
0519 0 0000 30 0000 BOX6
0518 0521
0520 0 0000 30
0521 0 0000 10 7669 CONST
0522 0 0000 40 7595 J
0523 0 0000 44
0524 0 0000 30
0525 0 0000 10 7669 CONST
0526 0 0000 12 7595 J
0527 0 0000 40 7595 J
0524 0528
0528 0 0000 13 8012 P
0529 0 1111 31 0531
0530 0 0000 36
0531 0 0001 33
0532 0 0000 30
0531 0533
0530 0533
0533 0 0000 10 7595 J
0534 0 0000 12 8015 N
0535 0 0000 40 7594 TEMP
0520 OTHERWISE$ FOR J = (1, 1, P)$ PK(N+J) = 0.0$
0536 0 0000 42 7594 TEMP
0537 1 0000 46 7869 PK
0532 0539
0523 0538
0538 0 0000 30
0520 0539
0519 0539
0539 0 0001 42 8008 MUI
0540 1 0000 30
0541 0 0000 30 0000 MU2
0539 BOX6.. SWITCH MUI, (MU1, MU2)$
0542 0 0000 30 0000 MU1
0540 0543
0542 0543
0543 0 0000 10 7669 CONST
0544 0 0000 40 7592 I
0545 0 0000 44
0546 0 0000 30
0547 0 0000 10 7669 CONST
0548 0 0000 12 7592 I
0549 0 0000 40 7592 I
0546 0550
0550 0 0000 13 8015 N
0551 0 1111 31 0553
0552 0 0000 36
0553 0 0001 33
0554 0 0000 30
0553 0555
0552 0555
0555 0 0000 10 7590 K
0556 0 0000 14 8005
0557 0 0001 49 0010
0558 0 0000 12 7592 I
0559 0 0000 14 8004
0560 0 0001 49 0010
0543 MU1.. FOR I = (1, 1, N)$ PK(I) = X(K,I)$
0560 0 0001 40 7594 TEMP
0561 0 0000 42 7594 TEMP
0562 1 0000 10 8006 X
0563 0 0000 42 7592 I
0564 1 0000 40 7869 PK
0554 0566
0545 0565
0565 0 0000 30
0566 GO TO BOX7$
0566 0 0000 30 0000 BOX7
0541 0567
0567 0 0000 10 7669 CONST
0568 0 0000 40 7592 I
0569 0 0000 44
0570 0 0000 30
0571 0 0000 10 7669 CONST
0572 0 0000 12 7592 I
0573 0 0000 40 7592 I
0570 0574
0574 0 0000 13 8015 N
0575 0 1111 31 0577
0576 0 0000 36
0577 0 0001 33
0567 MU2.. FOR I = (1, 1, N)$
0578 0 0000 30
0577 0579
0576 0579
0579 0 0000 10 7590 K
0580 0 0000 14 8005
0581 0 0001 49 0010
0582 0 0000 12 7592 I
0583 0 0000 14 8004
0584 0 0001 49 0010
0584 0 0001 40 7594 TEMP
0585 0 0000 10 7592 I
0586 0 0000 14 8022
0587 0 0001 49 0010
0587 0 0001 40 7591 TEMP
0588 0 0000 42 7594 TEMP
0589 1 0000 10 8006 X
0590 0 0000 42 7591 TEMP
0591 1 0000 24 8023 W
0592 0 0000 42 7592 I
0593 1 0000 40 7869 PK
0578 0595
0569 0594
0594 0 0000 30
0578 PK(I) = X(K,I) . W(I)$ GO TO BOX7$
0595 0 0000 30 0000 BOX7
0595 0596
0566 0596
0596 0 0001 42 7584 OMI
0597 1 0000 30
0598 0 0000 30 0000 OM2
0596 BOX7.. SWITCH OMI, (OM1, OM2)$
0599 0 0000 30 0000 OM1
0597 0600
0599 0600
0600 0 0000 10 7669 CONST
0601 0 0000 40 7592 I
0602 0 0000 44
0603 0 0000 30
0604 0 0000 10 7669 CONST
0605 0 0000 12 7592 I
0606 0 0000 40 7592 I
0603 0607
0607 0 0000 13 7590 K
0608 0 1111 31 0610
0609 0 0000 36
0610 0 0001 33
0611 0 0000 30
0610 0612
0609 0612
0600 OM1.. FOR I = (1, 1, K)$ BEGIN SUM = 0.0$
0612 0 0000 46 7582 SUM
0613 0 0000 10 7669 CONST
0614 0 0000 40 7595 J
0615 0 0000 44
0616 0 0000 30
0617 0 0000 10 7669 CONST
0618 0 0000 12 7595 J
0619 0 0000 40 7595 J
0616 0620
0620 0 0000 13 7671 NPP
0621 0 1111 31 0623
0622 0 0000 36
0623 0 0001 33
0613 FOR J = (1, 1, NPP)$
0624 0 0000 30
0623 0625
0622 0625
0625 0 0000 10 7592 I
0626 0 0000 14 8005
0627 0 0001 49 0010
0628 0 0000 12 7595 J
0629 0 0000 14 8004
0630 0 0001 49 0010
0630 0 0001 40 7591 TEMP
0631 0 0000 42 7595 J
0632 1 0000 10 7869 PK
0633 0 0000 42 7591 TEMP
0634 1 0000 24 8006 X
0635 0 0000 22 7582 SUM
0636 0 0000 40 7582 SUM
0624 0638
0615 0637
0637 0 0000 30
0638 0 0000 10 7582 SUM
0639 0 0000 42 7592 I
0640 1 0000 40 7671 QK
0624 SUM = SUM + PK(J) . X(I,J)$ QK(I) = SUM END$
0611 0642
0602 0641
0641 0 0000 30
0642 GO TO BOX8$
0642 0 0000 30 0000 BOX8
0598 0643
0643 0 0000 46 7581 DK2
0644 0 0000 10 7669 CONST
0645 0 0000 40 7592 I
0646 0 0000 44
0647 0 0000 30
0648 0 0000 10 7669 CONST
0649 0 0000 12 7592 I
0650 0 0000 40 7592 I
0647 0651
0651 0 0000 13 7671 NPP
0652 0 1111 31 0654
0653 0 0000 36
0654 0 0001 33
0643 OM2.. DK2 = 0.0$ FOR I = (1, 1, NPP)$
0655 0 0000 30
0654 0656
0653 0656
0656 0 0000 10 7590 K
0657 0 0000 14 8005
0658 0 0001 49 0010
0659 0 0000 12 7592 I
0660 0 0000 14 8004
0661 0 0001 49 0010
0655 DK2 = DK2 + PK(I) . X(K,I)$
0661 0 0001 40 7591 TEMP
0662 0 0000 42 7592 I
0663 1 0000 10 7869 PK
0664 0 0000 42 7591 TEMP
0665 1 0000 24 8006 X
0666 0 0000 22 7581 DK2
0667 0 0000 40 7581 DK2
0655 0669
0646 0668
0668 0 0000 30
0669 DK = SQRT(DK2)$
0669 0 0000 10 7581 DK2
0670 0 0000 44 7616 SQRT
0671 0 0000 30 7616
0672 0 0000 40 7580 DK
0673 0 0000 10 7601 I18
0674 0 0000 14 7971
0675 0 0001 49 0010
0675 0 0001 40 7591 TEMP
0676 0 0000 10 7580 DK
0677 0 0000 42 7591 TEMP
0678 1 0000 40 7972 GF
0673 GF(I18) = DK$ I18 = I18 + 1$
0679 0 0000 10 7669 CONST
0680 0 0000 12 7601 I18
0681 0 0000 40 7601 I18
0682 0 0000 10 7669 CONST
0683 0 0000 40 7592 I
0684 0 0000 44
0685 0 0000 30
0686 0 0000 10 7669 CONST
0687 0 0000 12 7592 I
0688 0 0000 40 7592 I
0685 0689
0689 0 0000 13 7671 NPP
0690 0 1111 31 0692
0691 0 0000 36
0692 0 0001 33
0682 FOR I = (1, 1, NPP)$
0693 0 0000 30
0692 0694
0691 0694
0694 0 0000 10 7590 K
0695 0 0000 14 8005
0696 0 0001 49 0010
0697 0 0000 12 7592 I
0698 0 0000 14 8004
0699 0 0001 49 0010
0699 0 0001 40 7591 TEMP
0700 0 0000 10 7590 K
0701 0 0000 14 8005
0702 0 0001 49 0010
0703 0 0000 12 7592 I
0704 0 0000 14 8004
0705 0 0001 49 0010
0705 0 0001 40 7594 TEMP
0693 X(K,I) = X(K,I)/DK$
0706 0 0000 42 7594 TEMP
0707 1 0000 10 8006 X
0708 0 0002 45 0000
0709 0 0000 25 7580 DK
0710 0 0000 42 7591 TEMP
0711 1 0000 40 8006 X
0693 0713
0684 0712
0712 0 0000 30
0713 0 0000 10 7669 CONST
0714 0 0000 40 7584 OMI
0713 OMI = 1$ GO TO BOX6$
0715 0 0000 30 0539 BOX6
0642 0716
0716 0 0001 42 7586 DEI
0717 1 0000 30
0718 0 0000 30 0000 DE2
0716 BOX8.. SWITCH DEI, (DE1, DE2)$
0719 0 0000 30 0000 DE1
0717 0720
0719 0720
0720 0 0000 11 7588 E1Z1
0721 0 0000 40 7588 E1Z1
0722 0 0000 10 7588 E1Z1
0723 0 0000 36
0724 0 0000 33
0720 DE1.. E1Z1 = -E1Z1$ EITHER IF E1Z1 LSS 0$ GO TO BOX8B$
0725 0 0000 30 0000 BOX8B
0724 0727
0723 0727
0726 0 0000 30
0726 OTHERWISE$ GO TO BOX8A$
0727 0 0000 30 0000 BOX8A
0726 0728
0727 0728
0728 0 0000 10 7669 CONST
0729 0 0000 40 7592 I
0730 0 0000 44
0731 0 0000 30
0732 0 0000 10 7669 CONST
0733 0 0000 12 7592 I
0734 0 0000 40 7592 I
0731 0735
0735 0 0000 40 7591 TEMP
0736 0 0000 10 7590 K
0737 0 0000 13 7669 CONST
0738 0 0000 13 7591 TEMP
0739 0 1111 31 0741
0740 0 0000 36
0741 0 0000 33
0728 BOX8A.. FOR I = (1, 1, K-1)$
0742 0 0000 30
0741 0743
0740 0743
0743 0 0000 42 7592 I
0744 1 0000 11 7671 QK
0745 1 0000 40 7671 QK
0742 0747
0730 0746
0746 0 0000 30
0742 QK(I) = -QK(I)$ QK(K) = 1.0$
0747 0 0000 10 7662 CONST
0748 0 0000 42 7590 K
0749 1 0000 40 7671 QK
0750 0 0000 10 7669 CONST
0751 0 0000 40 7592 I
0752 0 0000 44
0753 0 0000 30
0754 0 0000 10 7669 CONST
0755 0 0000 12 7592 I
0756 0 0000 40 7592 I
0753 0757
0757 0 0000 13 7671 NPP
0758 0 1111 31 0760
0759 0 0000 36
0760 0 0001 33
0761 0 0000 30
0760 0762
0759 0762
0750 FOR I = (1, 1, NPP)$ BEGIN
0762 0 0000 46 7582 SUM
0763 0 0000 10 7669 CONST
0764 0 0000 40 7595 J
0765 0 0000 44
0766 0 0000 30
0767 0 0000 10 7669 CONST
0768 0 0000 12 7595 J
0769 0 0000 40 7595 J
0766 0770
0770 0 0000 13 7590 K
0771 0 1111 31 0773
0772 0 0000 36
0773 0 0001 33
0763 SUM = 0.0$ FOR J = (1, 1, K)$
0774 0 0000 30
0773 0775
0772 0775
0775 0 0000 10 7595 J
0776 0 0000 14 8005
0777 0 0001 49 0010
0778 0 0000 12 7592 I
0779 0 0000 14 8004
0780 0 0001 49 0010
0780 0 0001 40 7591 TEMP
0774 SUM = SUM + X(J,I) . QK(J)$
0781 0 0000 42 7591 TEMP
0782 1 0000 10 8006 X
0783 0 0000 42 7595 J
0784 1 0000 24 7671 QK
0785 0 0000 22 7582 SUM
0786 0 0000 40 7582 SUM
0774 0788
0765 0787
0787 0 0000 30
0788 0 0000 10 7582 SUM
0789 0 0000 42 7592 I
0790 1 0000 40 7770 XP
0761 0792
0752 0791
0791 0 0000 30
0788 XP(I) = SUM END$ GO TO BOX9$
0792 0 0000 30 0000 BOX9
0725 0793
0793 0 0000 10 7601 I18
0794 0 0000 14 7969
0795 0 0001 49 0010
0795 0 0001 40 7591 TEMP
0796 0 0000 42 7590 K
0797 1 0000 10 7671 QK
0798 0 0000 44 7616 SQRT
0799 0 0000 30 7616
0800 0 0000 42 7591 TEMP
0801 1 0000 40 7970 ENF
0793 BOX8B.. ENF(I18) = SQRT(QK(K))$ GO TO BOX8A$
0802 0 0000 30 0728 BOX8A
0718 0803
0803 0 0000 11 7589 E1Z2
0804 0 0000 40 7589 E1Z2
0805 0 0000 10 7589 E1Z2
0806 0 0000 36
0807 0 0000 33
0803 DE2.. E1Z2 = -E1Z2$ EITHER IF E1Z2 LSS 0$ GO TO BOX8C$
0808 0 0000 30 0000 BOX8C
0807 0810
0806 0810
0809 0 0000 30
0809 OTHERWISE$ GO TO BOX8A$
0810 0 0000 30 0728 BOX8A
0809 0811
0808 0811
0811 0 0000 10 7669 CONST
0812 0 0000 40 7592 I
0813 0 0000 44
0814 0 0000 30
0815 0 0000 10 7669 CONST
0816 0 0000 12 7592 I
0817 0 0000 40 7592 I
0814 0818
0818 0 0000 13 8013 M
0819 0 1111 31 0821
0820 0 0000 36
0821 0 0001 33
0822 0 0000 30
0821 0823
0820 0823
0811 BOX8C.. FOR I = (1, 1, M)$ BEGIN
0823 0 0000 10 7665 R1
0824 0 0000 14 7986
0825 0 0001 49 0010
0826 0 0000 12 7592 I
0827 0 0000 14 7985
0828 0 0001 49 0010
0828 0 0001 40 7591 TEMP
0829 0 0000 42 7592 I
0830 1 0000 10 7671 QK
0831 0 0000 42 7591 TEMP
0832 1 0000 40 7987 Q
0833 0 0000 10 7665 R1
0834 0 0000 14 7983
0835 0 0001 49 0010
0836 0 0000 12 7592 I
0837 0 0000 14 7982
0838 0 0001 49 0010
0838 0 0001 40 7591 TEMP
0839 0 0000 42 7592 I
0840 1 0000 10 7671 QK
0841 1 0000 24 7671 QK
0842 0 0000 42 7591 TEMP
0843 1 0000 40 7984 Q2
0823 Q(R1,I) = QK(I)$ Q2(R1,I) = QK(I) . QK(I) END$
0822 0845
0813 0844
0844 0 0000 30
0845 0 0000 10 7665 R1
0846 0 0000 14 7986
0847 0 0001 49 0010
0848 0 0000 12 7666 M2
0849 0 0000 14 7985
0850 0 0001 49 0010
0850 0 0001 40 7591 TEMP
0851 0 0000 42 7666 M2
0852 1 0000 10 7671 QK
0853 0 0000 42 7591 TEMP
0854 1 0000 40 7987 Q
0855 0 0000 10 7665 R1
0856 0 0000 14 7980
0857 0 0001 49 0010
0858 0 0000 12 7669 CONST
0859 0 0000 14 7979
0860 0 0001 49 0010
0860 0 0001 40 7591 TEMP
0861 0 0000 10 7665 R1
0862 0 0000 14 7986
0863 0 0001 49 0010
0864 0 0000 12 7666 M2
0865 0 0000 14 7985
0866 0 0001 49 0010
0866 0 0001 40 7594 TEMP
0867 0 0000 10 7665 R1
0868 0 0000 14 7983
0869 0 0001 49 0010
0870 0 0000 12 7669 CONST
0871 0 0000 14 7982
0872 0 0001 49 0010
0845 Q(R1,M2) = QK(M2)$ E(R1,1) = Q(R1,M2) - Q2(R1,1)$
0872 0 0001 40 7593 TEMP
0873 0 0000 42 7594 TEMP
0874 1 0000 10 7987 Q
0875 0 0000 42 7593 TEMP
0876 1 0000 23 7984 Q2
0877 0 0000 42 7591 TEMP
0878 1 0000 40 7981 E
0879 0 0000 10 7598 CONST
0880 0 0000 40 7595 J
0881 0 0000 44
0882 0 0000 30
0883 0 0000 10 7669 CONST
0884 0 0000 12 7595 J
0885 0 0000 40 7595 J
0882 0886
0886 0 0000 13 8013 M
0887 0 1111 31 0889
0888 0 0000 36
0889 0 0001 33
0879 FOR J = (2, 1, M)$
0890 0 0000 30
0889 0891
0888 0891
0891 0 0000 10 7665 R1
0892 0 0000 14 7980
0893 0 0001 49 0010
0894 0 0000 12 7595 J
0895 0 0000 14 7979
0896 0 0001 49 0010
0896 0 0001 40 7591 TEMP
0897 0 0000 10 7665 R1
0898 0 0000 14 7980
0899 0 0001 49 0010
0900 0 0000 12 7595 J
0901 0 0000 13 7669 CONST
0902 0 0000 14 7979
0903 0 0001 49 0010
0903 0 0001 40 7593 TEMP
0904 0 0000 10 7665 R1
0905 0 0000 14 7983
0906 0 0001 49 0010
0907 0 0000 12 7595 J
0908 0 0000 14 7982
0909 0 0001 49 0010
0890 E(R1,J) = E(R1,J-1) - Q2(R1,J)$
0909 0 0001 40 7594 TEMP
0910 0 0000 42 7593 TEMP
0911 1 0000 10 7981 E
0912 0 0000 42 7594 TEMP
0913 1 0000 23 7984 Q2
0914 0 0000 42 7591 TEMP
0915 1 0000 40 7981 E
0890 0917
0881 0916
0916 0 0000 30
0917 FI = 1.0$
0917 0 0000 10 7662 CONST
0918 0 0000 40 7579 FI
0919 0 0000 10 7669 CONST
0920 0 0000 40 7592 I
0921 0 0000 44
0922 0 0000 30
0923 0 0000 10 7669 CONST
0924 0 0000 12 7592 I
0925 0 0000 40 7592 I
0922 0926
0926 0 0000 13 8013 M
0927 0 1111 31 0929
0928 0 0000 36
0929 0 0001 33
0930 0 0000 30
0929 0931
0928 0931
0919 FOR I = (1, 1, M)$ BEGIN
0931 0 0000 10 8014 FN
0932 0 0000 23 7579 FI
0933 0 0000 36
0934 0 0001 33
0933 EITHER IF (FN - FI) GTR 0.0$ BEGIN
0935 0 0000 10 7665 R1
0936 0 0000 14 7980
0937 0 0001 49 0010
0938 0 0000 12 7592 I
0939 0 0000 14 7979
0940 0 0001 49 0010
0940 0 0001 40 7591 TEMP
0935 EITHER IF E(R1,I) LSS 0.0$
0941 0 0000 42 7591 TEMP
0942 1 0000 10 7981 E
0943 0 0000 36
0944 0 0000 33
0945 0 0000 10 7665 R1
0946 0 0000 14 7977
0947 0 0001 49 0010
0948 0 0000 12 7592 I
0949 0 0000 14 7976
0950 0 0001 49 0010
0950 0 0001 40 7591 TEMP
0951 0 0000 10 7665 R1
0952 0 0000 14 7980
0953 0 0001 49 0010
0954 0 0000 12 7592 I
0955 0 0000 14 7979
0956 0 0001 49 0010
0956 0 0001 40 7594 TEMP
0957 0 0000 42 7594 TEMP
0958 1 0001 10 7981 E
0959 0 0000 40 7594 TEMP
0960 0 0000 10 8014 FN
0961 0 0000 23 7579 FI
0962 0 0000 40 7593 TEMP
0963 0 0000 10 7594 TEMP
0964 0 0002 45 0000
0965 0 0000 25 7593 TEMP
0945 BEGIN EP(R1,I) = -SQRT(ABS(E(R1,I))/(FN - FI))$
0966 0 0000 44 7616 SQRT
0967 0 0000 30 7616
0968 0 0000 40 7593 TEMP
0969 0 0000 11 7593 TEMP
0970 0 0000 42 7591 TEMP
0971 1 0000 40 7978 EP
0972 0 0000 30 0000 BOX8D
0972 GO TO BOX8D$ END$
0944 0974
0943 0974
0973 0 0000 30
0974 0 0000 10 7665 R1
0975 0 0000 14 7977
0976 0 0001 49 0010
0977 0 0000 12 7592 I
0978 0 0000 14 7976
0979 0 0001 49 0010
0979 0 0001 40 7591 TEMP
0980 0 0000 10 7665 R1
0981 0 0000 14 7980
0982 0 0001 49 0010
0983 0 0000 12 7592 I
0984 0 0000 14 7979
0985 0 0001 49 0010
0985 0 0001 40 7593 TEMP
0986 0 0000 10 8014 FN
0987 0 0000 23 7579 FI
0988 0 0000 40 7594 TEMP
0989 0 0000 42 7593 TEMP
0990 1 0000 10 7981 E
0991 0 0002 45 0000
0992 0 0000 25 7594 TEMP
0973 OTHERWISE$ EP(R1,I) = SQRT(E(R1,I)/(FN - FI))$
0993 0 0000 44 7616 SQRT
0994 0 0000 30 7616
0995 0 0000 42 7591 TEMP
0996 1 0000 40 7978 EP
0973 0997
0997 0 0000 30 0000 BOX8D
0934 0999
0933 0999
0998 0 0000 30
0999 0 0000 10 7665 R1
1000 0 0000 14 7980
1001 0 0001 49 0010
1002 0 0000 12 7592 I
1003 0 0000 14 7979
1004 0 0001 49 0010
1004 0 0001 40 7591 TEMP
0997 GO TO BOX8D$ END$ OTHERWISE$ E(R1,I) = -1.0$
1005 0 0000 11 7662 CONST
1006 0 0000 42 7591 TEMP
1007 1 0000 40 7981 E
0998 1008
0997 1008
0972 1008
1008 0 0000 10 7662 CONST
1009 0 0000 22 7579 FI
1010 0 0000 40 7579 FI
0930 1012
0921 1011
1011 0 0000 30
1008 BOX8D.. FI = FI + 1.0$ END$ GO TO BOX8A$
1012 0 0000 30 0728 BOX8A
0792 1013
1013 0 0001 42 7585 THI
1014 1 0000 30
1015 0 0000 30 0000 TH3
1016 0 0000 30 0000 TH2
1013 BOX9.. SWITCH THI, (TH1, TH2, TH3)$
1017 0 0000 30 0000 TH1
1014 1018
1017 1018
1018 0 0000 10 7669 CONST
1019 0 0000 40 7592 I
1020 0 0000 44
1021 0 0000 30
1022 0 0000 10 7669 CONST
1023 0 0000 12 7592 I
1024 0 0000 40 7592 I
1021 1025
1025 0 0000 13 7671 NPP
1026 0 1111 31 1028
1027 0 0000 36
1028 0 0001 33
1018 TH1.. FOR I = (1, 1, NPP)$
1029 0 0000 30
1028 1030
1027 1030
1030 0 0000 10 7590 K
1031 0 0000 14 8005
1032 0 0001 49 0010
1033 0 0000 12 7592 I
1034 0 0000 14 8004
1035 0 0001 49 0010
1035 0 0001 40 7591 TEMP
1036 0 0000 42 7592 I
1037 1 0000 10 7770 XP
1038 0 0000 42 7591 TEMP
1039 1 0000 40 8006 X
1029 1041
1020 1040
1040 0 0000 30
1029 X(K,I) = XP(I)$ GO TO BOX10$
1041 0 0000 30 0000 BOX10
1016 1042
1042 0 0000 10 7669 CONST
1043 0 0000 40 7592 I
1044 0 0000 44
1045 0 0000 30
1046 0 0000 10 7669 CONST
1047 0 0000 12 7592 I
1048 0 0000 40 7592 I
1045 1049
1049 0 0000 13 8015 N
1050 0 1111 31 1052
1051 0 0000 36
1052 0 0001 33
1042 TH2.. FOR I = (1, 1, N)$
1053 0 0000 30
1052 1054
1051 1054
1054 0 0000 10 7665 R1
1055 0 0000 14 8002
1056 0 0001 49 0010
1057 0 0000 12 7592 I
1058 0 0000 14 8001
1059 0 0001 49 0010
1059 0 0001 40 7591 TEMP
1053 DEV(R1,I) = XP(I)$
1060 0 0000 42 7592 I
1061 1 0000 10 7770 XP
1062 0 0000 42 7591 TEMP
1063 1 0000 40 8003 DEV
1053 1065
1044 1064
1064 0 0000 30
1065 0 0000 10 7669 CONST
1066 0 0000 40 7592 I
1067 0 0000 44
1068 0 0000 30
1069 0 0000 10 7669 CONST
1070 0 0000 12 7592 I
1071 0 0000 40 7592 I
1068 1072
1072 0 0000 13 8012 P
1073 0 1111 31 1075
1074 0 0000 36
1075 0 0001 33
1065 FOR I = (1, 1, P)$
1076 0 0000 30
1075 1077
1074 1077
1077 0 0000 10 7665 R1
1078 0 0000 14 7999
1079 0 0001 49 0010
1080 0 0000 12 7592 I
1081 0 0000 14 7998
1082 0 0001 49 0010
1082 0 0001 40 7591 TEMP
1083 0 0000 10 7592 I
1084 0 0000 12 8015 N
1085 0 0000 40 7594 TEMP
1086 0 0000 42 7594 TEMP
1087 1 0000 11 7770 XP
1088 0 0000 42 7591 TEMP
1089 1 0000 40 8000 COF
1076 1091
1067 1090
1090 0 0000 30
1091 0 0000 10 7578 CONST
1092 0 0000 40 7585 THI
1076 COF(R1,I) = -XP(N+I)$ THI = 3$ GO TO TH1$
1093 0 0000 30 1018 TH1
1015 1094
1094 TH3.. GO TO BOX11$
1094 0 0000 30 0000 BOX11
1041 1095
1095 0 0001 42 7583 ALI
1096 1 0000 30
1097 0 0000 30 0000 AL2
1095 BOX10.. SWITCH ALI, (AL1, AL2)$
1098 0 0000 30 0000 AL1
1096 1099
1098 1099
1099 0 0000 10 7598 CONST
1100 0 0000 40 7583 ALI
1101 0 0000 40 7584 OMI
1099 AL1.. OMI = ALI = 2$ GO TO BOX6$
1102 0 0000 30 0539 BOX6
1097 1103
1103 0 0000 10 7590 K
1104 0 0000 13 8013 M
1105 0 1111 31 1107
1106 0 0000 36
1107 0 0000 33
1108 0 0000 10 7669 CONST
1109 0 0000 12 7590 K
1110 0 0000 40 7590 K
1111 0 0000 30 0511 BOX4
1103 AL2.. EITHER IF K LSS M$ BEGIN K = K + 1$ GO TO BOX4$ END$
1107 1113
1106 1113
1112 0 0000 30
1112 OTHERWISE$ GO TO BOX12$
1113 0 0000 30 0000 BOX12
1112 1114
1094 1114
1114 0 0001 42 7587 NUI
1115 1 0000 30
1116 0 0000 30 0000 NU2
1114 BOX11.. SWITCH NUI, (NU1, NU2)$
1117 0 0000 30 0000 NU1
1115 1118
1117 1118
1118 0 0000 10 7598 CONST
1119 0 0000 40 7587 NUI
1118 NU1.. NUI = 2$ GO TO BOX14$
1120 0 0000 30 0000 BOX14
1116 1121
1121 0 0000 10 7580 DK
1122 0 0002 45 0000
1123 0 0000 25 7661 DENOM
1124 0 0000 40 7577 SS
1121 NU2.. SS = DK/DENOM$ SSQ = SS . SS$
1125 0 0000 10 7577 SS
1126 0 0000 24 7577 SS
1127 0 0000 40 7576 SSQ
1128 0 0000 10 7665 R1
1129 0 0000 14 7996
1130 0 0001 49 0010
1130 0 0001 40 7591 TEMP
1131 0 0000 10 7577 SS
1132 0 0000 42 7591 TEMP
1133 1 0000 40 7997 STD
1128 STD(R1) = SS$ GO TO BOX14$
1134 0 0000 30 0000 BOX14
1113 1135
1135 0 0001 42 7599 BEI
1136 1 0000 30
1137 0 0000 30 0000 BE2
1135 BOX12.. SWITCH BEI, (BE1, BE2)$
1138 0 0000 30 0000 BE1
1136 1139
1138 1139
1139 0 0000 10 7669 CONST
1140 0 0000 40 7592 I
1141 0 0000 44
1142 0 0000 30
1143 0 0000 10 7669 CONST
1144 0 0000 12 7592 I
1145 0 0000 40 7592 I
1142 1146
1146 0 0000 13 8013 M
1147 0 1111 31 1149
1148 0 0000 36
1149 0 0001 33
1150 0 0000 30
1149 1151
1148 1151
1139 BE1.. FOR I = (1, 1, M)$ BEGIN
1151 0 0000 10 7669 CONST
1152 0 0000 40 7595 J
1153 0 0000 44
1154 0 0000 30
1155 0 0000 10 7669 CONST
1156 0 0000 12 7595 J
1157 0 0000 40 7595 J
1154 1158
1158 0 0000 13 8012 P
1159 0 1111 31 1161
1160 0 0000 36
1161 0 0001 33
1151 FOR J = (1, 1, P)$
1162 0 0000 30
1161 1163
1160 1163
1163 0 0000 10 7592 I
1164 0 0000 14 7974
1165 0 0001 49 0010
1166 0 0000 12 7595 J
1167 0 0000 14 7973
1168 0 0001 49 0010
1168 0 0001 40 7591 TEMP
1169 0 0000 10 7592 I
1170 0 0000 14 8005
1171 0 0001 49 0010
1172 0 0000 12 8015 N
1173 0 0000 12 7595 J
1174 0 0000 14 8004
1175 0 0001 49 0010
1175 0 0001 40 7594 TEMP
1176 0 0000 42 7594 TEMP
1177 1 0000 10 8006 X
1178 0 0000 42 7591 TEMP
1179 1 0000 40 7975 A
1162 1181
1153 1180
1180 0 0000 30
1162 A(I,J) = X(I,N+J) END$
1150 1182
1141 1181
1181 0 0000 30
1182 0 0000 10 7662 CONST
1183 0 0000 40 7988 GMDT
1184 0 0000 10 7669 CONST
1185 0 0000 40 7592 I
1186 0 0000 44
1187 0 0000 30
1188 0 0000 10 7669 CONST
1189 0 0000 12 7592 I
1190 0 0000 40 7592 I
1187 1191
1191 0 0000 13 8013 M
1192 0 1111 31 1194
1193 0 0000 36
1194 0 0001 33
1182 GMDT = 1.0$ FOR I = (1, 1, M)$
1195 0 0000 30
1194 1196
1193 1196
1196 0 0000 10 7592 I
1197 0 0000 14 7971
1198 0 0001 49 0010
1198 0 0001 40 7591 TEMP
1199 0 0000 10 7592 I
1200 0 0000 14 7969
1201 0 0001 49 0010
1201 0 0001 40 7594 TEMP
1202 0 0000 42 7591 TEMP
1203 1 0000 10 7972 GF
1204 0 0002 45 0000
1205 0 0000 42 7594 TEMP
1206 1 0000 25 7970 ENF
1195 GMDT = GMDT . (GF(I)/ENF(I))$
1207 0 0000 24 7988 GMDT
1208 0 0000 40 7988 GMDT
1195 1210
1186 1209
1209 0 0000 30
1210 0 0000 10 7988 GMDT
1211 0 0000 24 7988 GMDT
1212 0 0000 40 7988 GMDT
1210 GMDT = GMDT . GMDT$ DEI = BEI = THI = 2$
1213 0 0000 10 7598 CONST
1214 0 0000 40 7585 THI
1215 0 0000 40 7599 BEI
1216 0 0000 40 7586 DEI
1217 0 0000 10 7669 CONST
1218 0 0000 12 7590 K
1219 0 0000 40 7590 K
1217 K = K + 1$ GO TO BOX13$
1220 0 0000 30 0000 BOX13
1137 1221
1221 BE2.. GO TO BOX11$
1221 0 0000 30 1114 BOX11
1220 1222
1222 0 0001 42 7596 GAI
1223 1 0000 30
1224 0 0000 30 0000 GA2
1222 BOX13.. SWITCH GAI, (GA1, GA2)$
1225 0 0000 30 0000 GA1
1223 1226
1225 1226
1226 GA1.. GO TO BOX11$
1226 0 0000 30 1114 BOX11
1224 1227
1227 0 0000 10 7669 CONST
1228 0 0000 40 7592 I
1229 0 0000 44
1230 0 0000 30
1231 0 0000 10 7669 CONST
1232 0 0000 12 7592 I
1233 0 0000 40 7592 I
1230 1234
1234 0 0000 13 8012 P
1235 0 1111 31 1237
1236 0 0000 36
1237 0 0001 33
1238 0 0000 30
1237 1239
1236 1239
1227 GA2.. FOR I = (1, 1, P)$ BEGIN
1239 0 0000 10 7592 I
1240 0 0000 40 7595 J
1241 0 0000 44
1242 0 0000 30
1243 0 0000 10 7669 CONST
1244 0 0000 12 7595 J
1245 0 0000 40 7595 J
1242 1246
1246 0 0000 13 8012 P
1247 0 1111 31 1249
1248 0 0000 36
1249 0 0001 33
1250 0 0000 30
1249 1251
1248 1251
1239 FOR J = (I, 1, P)$ BEGIN
1239 SUM = 0.0$
1251 0 0000 46 7582 SUM
1252 0 0000 10 7669 CONST
1253 0 0000 40 7575 NII
1254 0 0000 44
1255 0 0000 30
1256 0 0000 10 7669 CONST
1257 0 0000 12 7575 NII
1258 0 0000 40 7575 NII
1255 1259
1259 0 0000 13 8013 M
1260 0 1111 31 1262
1261 0 0000 36
1262 0 0001 33
1252 FOR NII = (1, 1, M)$
1263 0 0000 30
1262 1264
1261 1264
1264 0 0000 10 7575 NII
1265 0 0000 14 7974
1266 0 0001 49 0010
1267 0 0000 12 7592 I
1268 0 0000 14 7973
1269 0 0001 49 0010
1269 0 0001 40 7594 TEMP
1270 0 0000 10 7575 NII
1271 0 0000 14 7974
1272 0 0001 49 0010
1273 0 0000 12 7595 J
1274 0 0000 14 7973
1275 0 0001 49 0010
1263 SUM = SUM + A(NII,I) . A(NII,J)$
1275 0 0001 40 7591 TEMP
1276 0 0000 42 7594 TEMP
1277 1 0000 10 7975 A
1278 0 0000 42 7591 TEMP
1279 1 0000 24 7975 A
1280 0 0000 22 7582 SUM
1281 0 0000 40 7582 SUM
1263 1283
1254 1282
1282 0 0000 30
1283 0 0000 10 7592 I
1284 0 0000 14 7994
1285 0 0001 49 0010
1286 0 0000 12 7595 J
1287 0 0000 14 7993
1288 0 0001 49 0010
1288 0 0001 40 7591 TEMP
1289 0 0000 10 7582 SUM
1290 0 0000 42 7591 TEMP
1291 1 0000 40 7995 CV
1250 1293
1241 1292
1292 0 0000 30
1283 CV(I,J) = SUM END END$
1238 1294
1229 1293
1293 0 0000 30
1294 0 0000 10 7669 CONST
1295 0 0000 40 7592 I
1296 0 0000 44
1297 0 0000 30
1298 0 0000 10 7669 CONST
1299 0 0000 12 7592 I
1300 0 0000 40 7592 I
1297 1301
1301 0 0000 13 8012 P
1302 0 1111 31 1304
1303 0 0000 36
1304 0 0001 33
1294 FOR I = (1, 1, P)$
1305 0 0000 30
1304 1306
1303 1306
1306 0 0000 10 7663 P2
1307 0 0000 14 7994
1308 0 0001 49 0010
1309 0 0000 12 7592 I
1310 0 0000 14 7993
1311 0 0001 49 0010
1311 0 0001 40 7591 TEMP
1312 0 0000 10 7592 I
1313 0 0000 14 7994
1314 0 0001 49 0010
1315 0 0000 12 7592 I
1316 0 0000 14 7993
1317 0 0001 49 0010
1317 0 0001 40 7594 TEMP
1318 0 0000 42 7594 TEMP
1319 1 0000 10 7995 CV
1320 0 0000 44 7616 SQRT
1321 0 0000 30 7616
1322 0 0000 42 7591 TEMP
1323 1 0000 40 7995 CV
1305 1325
1296 1324
1324 0 0000 30
1325 0 0000 10 7669 CONST
1326 0 0000 40 7596 GAI
1305 CV(P2,I) = SQRT(CV(I,I))$ GAI = 1$ GO TO BOX11$
1327 0 0000 30 1114 BOX11
1134 1328
1120 1328
1328 0 0001 42 7600 RHI
1329 1 0000 30
1330 0 0000 30 0000 RH2
1328 BOX14.. SWITCH RHI, (RH1, RH2)$
1331 0 0000 30 0000 RH1
1329 1332
1331 1332
1332 0 0000 10 7664 RBAR
1333 0 0000 36 1335
1334 0 0000 30
1332 RH1.. EITHER IF RBAR EQL 0$ GO TO FINAL$
1335 0 0000 30 0000 FINAL
1334 1337
1336 0 0000 30
1336 OTHERWISE$ RBAR = RBAR - 1$
1337 0 0000 10 7664 RBAR
1338 0 0000 13 7669 CONST
1339 0 0000 40 7664 RBAR
1336 1340
1340 0 0000 10 7669 CONST
1341 0 0000 12 7665 R1
1342 0 0000 40 7665 R1
1343 0 0000 10 7598 CONST
1344 0 0000 40 7600 RHI
1345 0 0000 40 7585 THI
1346 0 0001 42 8007 ZEI
1347 1 0000 30
1348 0 0000 30 0000 ZE2
1340 R1 = R1 + 1$ THI = RHI = 2$ SWITCH ZEI, (ZE1, ZE2)$
1349 0 0000 30 0000 ZE1
1347 1350
1349 1350
1350 0 0000 10 7669 CONST
1351 0 0000 40 7592 I
1352 0 0000 44
1353 0 0000 30
1354 0 0000 10 7669 CONST
1355 0 0000 12 7592 I
1356 0 0000 40 7592 I
1353 1357
1357 0 0000 13 8015 N
1358 0 1111 31 1360
1359 0 0000 36
1360 0 0001 33
1350 ZE1.. FOR I = (1, 1, N)$
1361 0 0000 30
1360 1362
1359 1362
1362 0 0000 10 7666 M2
1363 0 0000 14 8005
1364 0 0001 49 0010
1365 0 0000 12 7592 I
1366 0 0000 14 8004
1367 0 0001 49 0010
1367 0 0001 40 7591 TEMP
1368 0 0000 10 7665 R1
1369 0 0000 14 8020
1370 0 0001 49 0010
1371 0 0000 12 7592 I
1372 0 0000 14 8019
1373 0 0001 49 0010
1361 X(M2,I) = Y(R1,I)$
1373 0 0001 40 7594 TEMP
1374 0 0000 42 7594 TEMP
1375 1 0000 10 8021 Y
1376 0 0000 42 7591 TEMP
1377 1 0000 40 8006 X
1361 1379
1352 1378
1378 0 0000 30
1379 0 0000 10 7669 CONST
1380 0 0000 40 7592 I
1381 0 0000 44
1382 0 0000 30
1383 0 0000 10 7669 CONST
1384 0 0000 12 7592 I
1385 0 0000 40 7592 I
1382 1386
1386 0 0000 13 8012 P
1387 0 1111 31 1389
1388 0 0000 36
1389 0 0001 33
1379 FOR I = (1, 1, P)$
1390 0 0000 30
1389 1391
1388 1391
1391 0 0000 10 7666 M2
1392 0 0000 14 8005
1393 0 0001 49 0010
1394 0 0000 12 8015 N
1395 0 0000 12 7592 I
1396 0 0000 14 8004
1397 0 0001 49 0010
1397 0 0001 40 7591 TEMP
1398 0 0000 42 7591 TEMP
1399 1 0000 46 8006 X
1390 1401
1381 1400
1400 0 0000 30
1390 X(M2,N+I) = 0.0$ GO TO BOX5$
1401 0 0000 30 0513 BOX5
1348 1402
1402 0 0000 10 7669 CONST
1403 0 0000 40 7592 I
1404 0 0000 44
1405 0 0000 30
1406 0 0000 10 7669 CONST
1407 0 0000 12 7592 I
1408 0 0000 40 7592 I
1405 1409
1409 0 0000 13 7671 NPP
1410 0 1111 31 1412
1411 0 0000 36
1412 0 0001 33
1402 ZE2.. FOR I = (1, 1, NPP)$
1413 0 0000 30
1412 1414
1411 1414
1414 0 0000 10 7666 M2
1415 0 0000 14 8005
1416 0 0001 49 0010
1417 0 0000 12 7592 I
1418 0 0000 14 8004
1419 0 0001 49 0010
1419 0 0001 40 7591 TEMP
1420 0 0000 10 7665 R1
1421 0 0000 14 8020
1422 0 0001 49 0010
1423 0 0000 12 7592 I
1424 0 0000 14 8019
1425 0 0001 49 0010
1425 0 0001 40 7594 TEMP
1426 0 0000 42 7594 TEMP
1427 1 0000 10 8021 Y
1428 0 0000 42 7591 TEMP
1429 1 0000 40 8006 X
1413 1431
1404 1430
1430 0 0000 30
1413 X(M2,I) = Y(R1,I)$ GO TO BOX5$
1431 0 0000 30 0513 BOX5
1330 1432
1432 0 0001 42 7597 SII
1433 1 0000 30
1434 0 0000 30 0000 SI2
1432 RH2.. SWITCH SII, (SI1, SI2)$
1435 0 0000 30 0000 SI1
1433 1436
1435 1436
1436 SI1.. GO TO RH1$
1436 0 0000 30 1332 RH1
1434 1437
1437 0 0000 10 7669 CONST
1438 0 0000 40 7592 I
1439 0 0000 44
1440 0 0000 30
1441 0 0000 10 7669 CONST
1442 0 0000 12 7592 I
1443 0 0000 40 7592 I
1440 1444
1444 0 0000 13 8012 P
1445 0 1111 31 1447
1446 0 0000 36
1447 0 0001 33
1448 0 0000 30
1447 1449
1446 1449
1437 SI2.. FOR I = (1, 1, P)$ BEGIN
1449 0 0000 10 7592 I
1450 0 0000 40 7595 J
1451 0 0000 44
1452 0 0000 30
1453 0 0000 10 7669 CONST
1454 0 0000 12 7595 J
1455 0 0000 40 7595 J
1452 1456
1456 0 0000 13 8012 P
1457 0 1111 31 1459
1458 0 0000 36
1459 0 0001 33
1449 FOR J = (I, 1, P)$
1460 0 0000 30
1459 1461
1458 1461
1461 0 0000 10 7665 R1
1462 0 0000 14 7991
1463 0 0001 49 0010
1464 0 0000 12 7592 I
1465 0 0000 14 7990
1466 0 0001 49 0010
1467 0 0000 12 7595 J
1468 0 0000 14 7989
1469 0 0001 49 0010
1469 0 0001 40 7591 TEMP
1470 0 0000 10 7592 I
1471 0 0000 14 7994
1472 0 0001 49 0010
1473 0 0000 12 7595 J
1474 0 0000 14 7993
1475 0 0001 49 0010
1475 0 0001 40 7594 TEMP
1476 0 0000 10 7576 SSQ
1477 0 0000 42 7594 TEMP
1478 1 0000 24 7995 CV
1479 0 0000 42 7591 TEMP
1480 1 0000 40 7992 VCV
1460 1482
1451 1481
1481 0 0000 30
1460 VCV(R1,I,J) = SSQ . CV(I,J) END$
1448 1483
1439 1482
1482 0 0000 30
1483 0 0000 10 7669 CONST
1484 0 0000 40 7592 I
1485 0 0000 44
1486 0 0000 30
1487 0 0000 10 7669 CONST
1488 0 0000 12 7592 I
1489 0 0000 40 7592 I
1486 1490
1490 0 0000 13 8012 P
1491 0 1111 31 1493
1492 0 0000 36
1493 0 0001 33
1483 FOR I = (1, 1, P)$
1494 0 0000 30
1493 1495
1492 1495
1495 0 0000 10 7665 R1
1496 0 0000 14 7991
1497 0 0001 49 0010
1498 0 0000 12 7663 P2
1499 0 0000 14 7990
1500 0 0001 49 0010
1501 0 0000 12 7592 I
1502 0 0000 14 7989
1503 0 0001 49 0010
1503 0 0001 40 7591 TEMP
1504 0 0000 10 7663 P2
1505 0 0000 14 7994
1506 0 0001 49 0010
1507 0 0000 12 7592 I
1508 0 0000 14 7993
1509 0 0001 49 0010
1509 0 0001 40 7594 TEMP
1510 0 0000 10 7577 SS
1511 0 0000 42 7594 TEMP
1512 1 0000 24 7995 CV
1513 0 0000 42 7591 TEMP
1514 1 0000 40 7992 VCV
1494 1516
1485 1515
1515 0 0000 30
1494 VCV(R1, P2, I) = SS . CV(P2,I)$ GO TO RH1$
1516 0 0000 30 1332 RH1
1335 1517
1517 0 0000 42 0223
1518 1 0000 30 0000
1517 FINAL.. RETURN END ORTHO()$
1517
1517
0225 1519
1519 0 0000 10 7970
1520 0 0410 40 1206
1521 0 0410 40 0801
1522 0 0000 10 7972
1523 0 0410 40 1203
1524 0 0410 40 0678
1525 0 0000 10 7975
1526 0 0410 40 1279
1527 0 0410 40 1277
1528 0 0410 40 1179
1529 0 0000 10 7978
1530 0 0410 40 0996
1531 0 0410 40 0971
1532 0 0000 10 7981
1533 0 0410 40 1007
1534 0 0410 40 0990
1535 0 0410 40 0958
1536 0 0410 40 0942
1537 0 0410 40 0915
1538 0 0410 40 0911
1539 0 0410 40 0878
1540 0 0000 10 7984
1541 0 0410 40 0913
1542 0 0410 40 0876
1543 0 0410 40 0843
1544 0 0000 10 7987
1545 0 0410 40 0874
1546 0 0410 40 0854
1547 0 0410 40 0832
1548 0 0000 10 7988
1549 0 0410 40 1212
1550 0 0410 40 1211
1551 0 0410 40 1210
1552 0 0410 40 1208
1553 0 0410 40 1207
1554 0 0410 40 1183
1555 0 0000 10 7992
1556 0 0410 40 1514
1557 0 0410 40 1480
1558 0 0000 10 7995
1559 0 0410 40 1512
1560 0 0410 40 1478
1561 0 0410 40 1323
1562 0 0410 40 1319
1563 0 0410 40 1291
1564 0 0000 10 7997
1565 0 0410 40 1133
1566 0 0000 10 8000
1567 0 0410 40 1089
1568 0 0000 10 8003
1569 0 0410 40 1063
1570 0 0000 10 8006
1571 0 0410 40 1429
1572 0 0410 40 1399
1573 0 0410 40 1377
1574 0 0410 40 1177
1575 0 0410 40 1039
1576 0 0410 40 0782
1577 0 0410 40 0711
1578 0 0410 40 0707
1579 0 0410 40 0665
1580 0 0410 40 0634
1581 0 0410 40 0589
1582 0 0410 40 0562
1583 0 0410 40 0502
1584 0 0410 40 0460
1585 0 0410 40 0449
1586 0 0410 40 0406
1587 0 0410 40 0363
1588 0 0410 40 0361
1589 0 0410 40 0359
1590 0 0410 40 0313
1591 0 0410 40 0306
1592 0 0000 10 8018
1593 0 0410 40 0500
1594 0 0410 40 0404
1595 0 0410 40 0304
1596 0 0000 10 8021
1597 0 0410 40 1427
1598 0 0410 40 1375
1599 0 0000 10 8023
1600 0 0410 40 0591
1601 0 0000 30 0226
0222 1602
1602 0 0000 30
1603 0 7574 01 1603
1604 0 0000 40 7572 TEMP
1602 PROCEDURE G (I, X, Y)$
1602 BEGIN
1605 REAL X, Y, G$ INTEGER I$
1605 0 0001 42 7574 I
1606 1 0000 30
1605 SWITCH I, (G1, G2, G3, G4, G5, G6, G7, G8, G9, G10,
1607 0 0000 30 0000 G17
1608 0 0000 30 0000 G16
1609 0 0000 30 0000 G15
1610 0 0000 30 0000 G14
1611 0 0000 30 0000 G13
1612 0 0000 30 0000 G12
1613 0 0000 30 0000 G11
1614 0 0000 30 0000 G10
1615 0 0000 30 0000 G9
1616 0 0000 30 0000 G8
1617 0 0000 30 0000 G7
1618 0 0000 30 0000 G6
1619 0 0000 30 0000 G5
1620 0 0000 30 0000 G4
1621 0 0000 30 0000 G3
1622 0 0000 30 0000 G2
1623 G11, G12, G13, G14, G15, G16, G17)$
1623 0 0000 30 0000 G1
1606 1624
1624 G() = 0$
1624 0 0001 45 0002
1625 0 0000 42 1603
1626 1 0000 30 0000
1625 RETURN$
1627 G1..
1623 1627
1627 G() = 1$
1627 0 0000 10 7662 CONST
1628 0 0000 42 1603
1629 1 0000 30 0000
1628 RETURN$
1630 G2..
1622 1630
1630 G() = X$
1630 0 0000 10 7573 X
1631 0 0000 42 1603
1632 1 0000 30 0000
1631 RETURN$
1633 G3..
1621 1633
1633 G() = Y$
1633 0 0000 10 7572 Y
1634 0 0000 42 1603
1635 1 0000 30 0000
1634 RETURN$
1636 G4..
1620 1636
1636 0 0000 10 7573 X
1637 0 0000 24 7573 X
1636 G() = X*2 - Y*2$
1638 0 0000 40 7571 TEMP
1639 0 0000 10 7572 Y
1640 0 0000 24 7572 Y
1641 0 0000 23 7571 TEMP
1642 0 0000 40 7571 TEMP
1643 0 0000 11 7571 TEMP
1644 0 0000 42 1603
1645 1 0000 30 0000
1644 RETURN$
1646 G5..
1619 1646
1646 G() = 2.0 . X . Y$
1646 0 0000 10 7573 X
1647 0 0000 24 7572 Y
1648 0 0000 24 7570 CONST
1649 0 0000 42 1603
1650 1 0000 30 0000
1649 RETURN$
1651 G6..
1618 1651
1651 0 0000 41 7578 CONST
1652 0 0000 10 7573 X
1653 0 0000 44 7532 FL*FX
1654 0 0000 30 7532
1651 G() = X*3 - 3.0 . X . Y*2$
1655 0 0000 40 7571 TEMP
1656 0 0000 10 7572 Y
1657 0 0000 24 7572 Y
1658 0 0000 24 7573 X
1659 0 0000 24 7531 CONST
1660 0 0000 23 7571 TEMP
1661 0 0000 40 7571 TEMP
1662 0 0000 11 7571 TEMP
1663 0 0000 42 1603
1664 1 0000 30 0000
1663 RETURN$
1665 G7..
1617 1665
1665 0 0000 10 7573 X
1666 0 0000 24 7573 X
1667 0 0000 24 7531 CONST
1668 0 0000 24 7572 Y
1665 G() = 3.0 . X*2 . Y - Y*3$
1669 0 0000 41 7578 CONST
1670 0 0000 40 7571 TEMP
1671 0 0000 10 7572 Y
1672 0 0000 44 7532 FL*FX
1673 0 0000 30 7532
1674 0 0000 23 7571 TEMP
1675 0 0000 40 7571 TEMP
1676 0 0000 11 7571 TEMP
1677 0 0000 42 1603
1678 1 0000 30 0000
1677 RETURN$
1679 G8..
1616 1679
1679 0 0000 41 7530 CONST
1680 0 0000 10 7573 X
1681 0 0000 44 7532 FL*FX
1682 0 0000 30 7532
1683 0 0000 41 7530 CONST
1684 0 0000 40 7571 TEMP
1685 0 0000 10 7572 Y
1686 0 0000 44 7532 FL*FX
1687 0 0000 30 7532
1688 0 0000 22 7571 TEMP
1689 0 0000 40 7571 TEMP
1690 0 0000 10 7573 X
1691 0 0000 24 7573 X
1692 0 0000 24 7529 CONST
1679 G() = X*4 + Y*4 - 6.0 . X*2 . Y*2$
1693 0 0000 40 7528 TEMP
1694 0 0000 10 7572 Y
1695 0 0000 24 7572 Y
1696 0 0000 24 7528 TEMP
1697 0 0000 23 7571 TEMP
1698 0 0000 40 7571 TEMP
1699 0 0000 11 7571 TEMP
1700 0 0000 42 1603
1701 1 0000 30 0000
1700 RETURN$
1702 G9..
1615 1702
1702 0 0000 41 7578 CONST
1703 0 0000 10 7573 X
1704 0 0000 44 7532 FL*FX
1705 0 0000 30 7532
1706 0 0000 24 7527 CONST
1707 0 0000 24 7572 Y
1702 G() = 4.0 . X*3 . Y - 4.0 . X . Y*3$
1708 0 0000 41 7578 CONST
1709 0 0000 40 7571 TEMP
1710 0 0000 10 7572 Y
1711 0 0000 44 7532 FL*FX
1712 0 0000 30 7532
1713 0 0000 24 7573 X
1714 0 0000 24 7527 CONST
1715 0 0000 23 7571 TEMP
1716 0 0000 40 7571 TEMP
1717 0 0000 11 7571 TEMP
1718 0 0000 42 1603
1719 1 0000 30 0000
1718 RETURN$
1720 G10..
1614 1720
1720 0 0000 41 7526 CONST
1721 0 0000 10 7573 X
1722 0 0000 44 7532 FL*FX
1723 0 0000 30 7532
1724 0 0000 41 7578 CONST
1725 0 0000 40 7571 TEMP
1726 0 0000 10 7573 X
1727 0 0000 44 7532 FL*FX
1728 0 0000 30 7532
1729 0 0000 24 7525 CONST
1730 0 0000 40 7528 TEMP
1731 0 0000 10 7572 Y
1732 0 0000 24 7572 Y
1733 0 0000 24 7528 TEMP
1734 0 0000 23 7571 TEMP
1720 G() = X*5 - 10.0 . X*3 . Y*2 + 5.0 . X . Y*4$
1735 0 0000 41 7530 CONST
1736 0 0000 40 7571 TEMP
1737 0 0000 10 7572 Y
1738 0 0000 44 7532 FL*FX
1739 0 0000 30 7532
1740 0 0000 24 7573 X
1741 0 0000 24 7524 CONST
1742 0 0000 23 7571 TEMP
1743 0 0000 42 1603
1744 1 0000 30 0000
1743 RETURN$
1745 G11..
1613 1745
1745 0 0000 41 7526 CONST
1746 0 0000 10 7572 Y
1747 0 0000 44 7532 FL*FX
1748 0 0000 30 7532
1749 0 0000 41 7578 CONST
1750 0 0000 40 7571 TEMP
1751 0 0000 10 7572 Y
1752 0 0000 44 7532 FL*FX
1753 0 0000 30 7532
1754 0 0000 24 7525 CONST
1755 0 0000 40 7528 TEMP
1756 0 0000 10 7573 X
1757 0 0000 24 7573 X
1758 0 0000 24 7528 TEMP
1759 0 0000 23 7571 TEMP
1745 G() = Y*5 - 10.0 . Y*3 . X*2 + 5.0 . Y . X*4$
1760 0 0000 41 7530 CONST
1761 0 0000 40 7571 TEMP
1762 0 0000 10 7573 X
1763 0 0000 44 7532 FL*FX
1764 0 0000 30 7532
1765 0 0000 24 7572 Y
1766 0 0000 24 7524 CONST
1767 0 0000 23 7571 TEMP
1768 0 0000 42 1603
1769 1 0000 30 0000
1768 RETURN$
1770 G12..
1612 1770
1770 0 0000 41 7523 CONST
1771 0 0000 10 7573 X
1772 0 0000 44 7532 FL*FX
1773 0 0000 30 7532
1774 0 0000 41 7530 CONST
1775 0 0000 40 7571 TEMP
1776 0 0000 10 7573 X
1777 0 0000 44 7532 FL*FX
1778 0 0000 30 7532
1779 0 0000 24 7522 CONST
1780 0 0000 40 7528 TEMP
1781 0 0000 10 7572 Y
1782 0 0000 24 7572 Y
1783 0 0000 24 7528 TEMP
1784 0 0000 23 7571 TEMP
1785 0 0000 40 7571 TEMP
1786 0 0000 10 7573 X
1787 0 0000 24 7573 X
1788 0 0000 24 7522 CONST
1789 0 0000 41 7530 CONST
1790 0 0000 40 7528 TEMP
1791 0 0000 10 7572 Y
1792 0 0000 44 7532 FL*FX
1793 0 0000 30 7532
1794 0 0000 24 7528 TEMP
1795 0 0000 23 7571 TEMP
1770 G() = X*6 - 15.0 . X*4 . Y*2 + 15.0 . X*2 . Y*4 - Y*6$
1796 0 0000 41 7523 CONST
1797 0 0000 40 7571 TEMP
1798 0 0000 10 7572 Y
1799 0 0000 44 7532 FL*FX
1800 0 0000 30 7532
1801 0 0000 23 7571 TEMP
1802 0 0000 40 7571 TEMP
1803 0 0000 11 7571 TEMP
1804 0 0000 42 1603
1805 1 0000 30 0000
1804 RETURN$
1806 G13..
1611 1806
1806 0 0000 41 7526 CONST
1807 0 0000 10 7573 X
1808 0 0000 44 7532 FL*FX
1809 0 0000 30 7532
1810 0 0000 24 7529 CONST
1811 0 0000 24 7572 Y
1812 0 0000 41 7526 CONST
1813 0 0000 40 7571 TEMP
1814 0 0000 10 7572 Y
1815 0 0000 44 7532 FL*FX
1816 0 0000 30 7532
1817 0 0000 24 7573 X
1818 0 0000 24 7529 CONST
1819 0 0000 22 7571 TEMP
1820 0 0000 41 7578 CONST
1821 0 0000 40 7571 TEMP
1822 0 0000 10 7573 X
1823 0 0000 44 7532 FL*FX
1824 0 0000 30 7532
1825 0 0000 24 7521 CONST
1806 G() = 6.0 . X*5 . Y + 6.0 . X . Y*5 - 20.0 . X*3 . Y*3$
1826 0 0000 41 7578 CONST
1827 0 0000 40 7528 TEMP
1828 0 0000 10 7572 Y
1829 0 0000 44 7532 FL*FX
1830 0 0000 30 7532
1831 0 0000 24 7528 TEMP
1832 0 0000 23 7571 TEMP
1833 0 0000 40 7571 TEMP
1834 0 0000 11 7571 TEMP
1835 0 0000 42 1603
1836 1 0000 30 0000
1835 RETURN$
1837 G14..
1610 1837
1837 0 0000 41 7520 CONST
1838 0 0000 10 7573 X
1839 0 0000 44 7532 FL*FX
1840 0 0000 30 7532
1841 0 0000 41 7526 CONST
1842 0 0000 40 7571 TEMP
1843 0 0000 10 7573 X
1844 0 0000 44 7532 FL*FX
1845 0 0000 30 7532
1846 0 0000 24 7519 CONST
1847 0 0000 40 7528 TEMP
1848 0 0000 10 7572 Y
1849 0 0000 24 7572 Y
1850 0 0000 24 7528 TEMP
1851 0 0000 23 7571 TEMP
1852 0 0000 41 7578 CONST
1853 0 0000 40 7571 TEMP
1854 0 0000 10 7573 X
1855 0 0000 44 7532 FL*FX
1856 0 0000 30 7532
1857 0 0000 24 7518 CONST
1858 0 0000 41 7530 CONST
1859 0 0000 40 7528 TEMP
1860 0 0000 10 7572 Y
1861 0 0000 44 7532 FL*FX
1862 0 0000 30 7532
1863 0 0000 24 7528 TEMP
1864 0 0000 23 7571 TEMP
1837 G() = X*7 - 21.0 .X*5 . Y*2 + 35.0 . X*3 . Y*4 - 7.0 . X . Y*6$
1865 0 0000 41 7523 CONST
1866 0 0000 40 7571 TEMP
1867 0 0000 10 7572 Y
1868 0 0000 44 7532 FL*FX
1869 0 0000 30 7532
1870 0 0000 24 7573 X
1871 0 0000 24 7517 CONST
1872 0 0000 23 7571 TEMP
1873 0 0000 40 7571 TEMP
1874 0 0000 11 7571 TEMP
1875 0 0000 42 1603
1876 1 0000 30 0000
1875 RETURN$
1877 G15..
1609 1877
1877 0 0000 41 7523 CONST
1878 0 0000 10 7573 X
1879 0 0000 44 7532 FL*FX
1880 0 0000 30 7532
1881 0 0000 24 7517 CONST
1882 0 0000 24 7572 Y
1883 0 0000 41 7530 CONST
1884 0 0000 40 7571 TEMP
1885 0 0000 10 7573 X
1886 0 0000 44 7532 FL*FX
1887 0 0000 30 7532
1888 0 0000 24 7518 CONST
1889 0 0000 41 7578 CONST
1890 0 0000 40 7528 TEMP
1891 0 0000 10 7572 Y
1892 0 0000 44 7532 FL*FX
1893 0 0000 30 7532
1894 0 0000 24 7528 TEMP
1895 0 0000 23 7571 TEMP
1896 0 0000 40 7571 TEMP
1897 0 0000 10 7573 X
1898 0 0000 24 7573 X
1899 0 0000 24 7519 CONST
1900 0 0000 41 7526 CONST
1901 0 0000 40 7528 TEMP
1902 0 0000 10 7572 Y
1903 0 0000 44 7532 FL*FX
1904 0 0000 30 7532
1905 0 0000 24 7528 TEMP
1906 0 0000 23 7571 TEMP
1877 G() = 7.0 . X*6 . Y - 35.0 . X*4 . Y*3 + 21.0 . X*2 . Y*5 -
1877 Y*7$
1907 0 0000 41 7520 CONST
1908 0 0000 40 7571 TEMP
1909 0 0000 10 7572 Y
1910 0 0000 44 7532 FL*FX
1911 0 0000 30 7532
1912 0 0000 23 7571 TEMP
1913 0 0000 40 7571 TEMP
1914 0 0000 11 7571 TEMP
1915 0 0000 42 1603
1916 1 0000 30 0000
1915 RETURN$
1917 G16..
1608 1917
1917 0 0000 41 7516 CONST
1918 0 0000 10 7573 X
1919 0 0000 44 7532 FL*FX
1920 0 0000 30 7532
1921 0 0000 41 7516 CONST
1922 0 0000 40 7571 TEMP
1923 0 0000 10 7572 Y
1924 0 0000 44 7532 FL*FX
1925 0 0000 30 7532
1926 0 0000 22 7571 TEMP
1927 0 0000 41 7523 CONST
1928 0 0000 40 7571 TEMP
1929 0 0000 10 7573 X
1930 0 0000 44 7532 FL*FX
1931 0 0000 30 7532
1932 0 0000 24 7515 CONST
1933 0 0000 40 7528 TEMP
1934 0 0000 10 7572 Y
1935 0 0000 24 7572 Y
1936 0 0000 24 7528 TEMP
1937 0 0000 23 7571 TEMP
1938 0 0000 41 7530 CONST
1939 0 0000 40 7571 TEMP
1940 0 0000 10 7573 X
1941 0 0000 44 7532 FL*FX
1942 0 0000 30 7532
1943 0 0000 24 7514 CONST
1944 0 0000 41 7530 CONST
1945 0 0000 40 7528 TEMP
1946 0 0000 10 7572 Y
1947 0 0000 44 7532 FL*FX
1948 0 0000 30 7532
1949 0 0000 24 7528 TEMP
1950 0 0000 23 7571 TEMP
1917 G() = X*8 + Y*8 - 28.0 . X*6 . Y*2 + 70.0 . X*4 . Y*4 - 28.0
1951 0 0000 40 7571 TEMP
1952 0 0000 10 7573 X
1953 0 0000 24 7573 X
1954 0 0000 24 7515 CONST
1917 . X*2 . Y*6$
1955 0 0000 41 7523 CONST
1956 0 0000 40 7528 TEMP
1957 0 0000 10 7572 Y
1958 0 0000 44 7532 FL*FX
1959 0 0000 30 7532
1960 0 0000 24 7528 TEMP
1961 0 0000 23 7571 TEMP
1962 0 0000 40 7571 TEMP
1963 0 0000 11 7571 TEMP
1964 0 0000 42 1603
1965 1 0000 30 0000
1964 RETURN$
1966 G17..
1607 1966
1966 0 0000 41 7520 CONST
1967 0 0000 10 7573 X
1968 0 0000 44 7532 FL*FX
1969 0 0000 30 7532
1970 0 0000 24 7513 CONST
1971 0 0000 24 7572 Y
1972 0 0000 41 7526 CONST
1973 0 0000 40 7571 TEMP
1974 0 0000 10 7573 X
1975 0 0000 44 7532 FL*FX
1976 0 0000 30 7532
1977 0 0000 24 7512 CONST
1978 0 0000 41 7578 CONST
1979 0 0000 40 7528 TEMP
1980 0 0000 10 7572 Y
1981 0 0000 44 7532 FL*FX
1982 0 0000 30 7532
1983 0 0000 24 7528 TEMP
1984 0 0000 23 7571 TEMP
1985 0 0000 41 7578 CONST
1986 0 0000 40 7571 TEMP
1987 0 0000 10 7573 X
1988 0 0000 44 7532 FL*FX
1989 0 0000 30 7532
1990 0 0000 24 7512 CONST
1966 G() = 8.0 . X*7 . Y - 56.0 . X*5 . Y*3 + 56.0 . X*3 . Y*5
1991 0 0000 41 7526 CONST
1992 0 0000 40 7528 TEMP
1993 0 0000 10 7572 Y
1994 0 0000 44 7532 FL*FX
1995 0 0000 30 7532
1996 0 0000 24 7528 TEMP
1997 0 0000 23 7571 TEMP
1966 - 8.0 . X . Y*7$
1998 0 0000 41 7520 CONST
1999 0 0000 40 7571 TEMP
2000 0 0000 10 7572 Y
2001 0 0000 44 7532 FL*FX
2002 0 0000 30 7532
2003 0 0000 24 7573 X
2004 0 0000 24 7513 CONST
2005 0 0000 23 7571 TEMP
2006 0 0000 40 7571 TEMP
2007 0 0000 11 7571 TEMP
2008 0 0000 42 1603
2009 1 0000 30 0000
2008 RETURN$
2010 END G()$
2010
2010
1602 2010
2010 COMMENT INITIALIZATION$
2010 N = 43$
2010 0 0000 10 7511 CONST
2011 0 0000 40 7510 N
2012 M = 11$
2012 0 0000 10 7509 CONST
2013 0 0000 40 7508 M
2014 P = 11$
2014 0 0000 10 7509 CONST
2015 0 0000 40 7507 P
2016 0 0000 10 7669 CONST
2017 0 0000 40 7506 I
2018 0 0000 44
2019 0 0000 30
2020 0 0000 10 7669 CONST
2021 0 0000 12 7506 I
2022 0 0000 40 7506 I
2019 2023
2023 0 0000 13 7510 N
2024 0 1111 31 2026
2025 0 0000 36
2026 0 0001 33
2016 FOR I = (1, 1, N)$
2027 0 0000 30
2026 2028
2025 2028
2027 BEGIN
2028 READ ($$ XYWIN)$
2028 0 0000 10 2029
2029 0 0000 01 0000 XYWIN
2030 0 0000 44 7367 READ
2031 0 0000 30 7367
2032 0 0000 30
2029 2033
2033 0 0000 30
2034 0 0000 42 2034
2035 0 0002 20 2033
2036 0 0000 42 7506 I
2037 1 0000 40 9956 X
2038 0 0000 42 2038
2039 0 0002 20 2033
2040 0 0000 42 7506 I
2041 1 0000 40 9913 Y
2032 INPUT XYWIN (X(I), Y(I), W(I))$
2042 0 0000 42 2042
2043 0 0002 20 2033
2044 0 0000 42 7506 I
2045 1 0000 40 9870 W
2046 0 0009 43 0000
2047 0 0000 30 2033
2032 2048
2048 0 0000 42 7506 I
2049 1 0000 10 9956 X
2050 0 0000 44 7292 EXP
2051 0 0000 30 7292
2052 0 0000 40 7281 TEMP
2053 0 0000 42 7506 I
2054 1 0000 10 9913 Y
2055 0 0000 44 7282 COS
2056 0 0000 30 7282
2057 0 0000 24 7281 TEMP
2058 0 0000 40 7281 TEMP
2059 0 0000 10 7662 CONST
2060 0 0000 42 7506 I
2061 1 0000 23 9913 Y
2062 0 0000 40 7193 TEMP
2063 0 0000 24 7193 TEMP
2064 0 0000 40 7193 TEMP
2065 1 0000 10 9956
2066 1 0000 24 9956 X
2067 0 0000 22 7193 TEMP
2048 BV(1,I) = EXP(X(I)) . COS(Y(I)) + LOG((1 - Y(I))*2 + X(I)*2)$
2068 0 0000 44 7194 LOG
2069 0 0000 30 7194
2070 0 0000 22 7281 TEMP
2071 0 0000 42 7506 I
2072 1 0000 40 9773 BV
2073 0 0000 10 7669 CONST
2074 0 0000 40 7192 J
2075 0 0000 44
2076 0 0000 30
2077 0 0000 10 7669 CONST
2078 0 0000 12 7192 J
2079 0 0000 40 7192 J
2076 2080
2080 0 0000 13 7508 M
2081 0 1111 31 2083
2082 0 0000 36
2083 0 0001 33
2073 FOR J = (1, 1, M)$
2084 0 0000 30
2083 2085
2082 2085
2085 0 0000 10 7192 J
2086 0 0000 14 7191 CONST
2087 0 0001 49 0010
2088 0 0000 12 7506 I
2089 0 0000 40 7281 TEMP
2090 0 0000 10 7192 J
2091 0 4400 28 1603
2092 1 0000 40 0000
2093 0 0000 42 7506 I
2094 1 0000 10 9956 X
2095 0 4400 28 1603
2096 1 0000 40 9999
2084 Z(J,I) = G (J, X(I), Y(I))$
2097 0 0000 42 7506 I
2098 1 0000 10 9913 Y
2099 0 0000 44 1603 G
2100 0 0200 30 1603
2101 0 0000 42 7281 TEMP
2102 1 0000 40 9125 Z
2084 2104
2075 2103
2103 0 0000 30
2104 END$
2104
2027 2105
2018 2104
2104 0 0000 30
2105 0 0000 10 2106
2106 0 0000 01 9870 W
2107 0 4400 28 0223
2108 1 0000 40 0000
2109 0 0000 10 7669 CONST
2110 1 0000 40 9999
2111 0 0000 10 2112
2112 0 0000 01 9719 BV
2113 1 0000 40 9998
2114 0 0000 10 7191 CONST
2115 1 0000 40 9997
2116 0 0000 10 7669 CONST
2117 1 0000 40 9996
2118 0 0000 10 2119
2119 0 0000 01 9125 Z
2120 1 0000 40 9995
2121 0 0000 10 7191 CONST
2122 1 0000 40 9994
2123 0 0000 10 7669 CONST
2124 1 0000 40 9993
2125 0 0000 10 7510 N
2126 1 0000 40 9992
2127 0 0000 10 7510 N
2128 0 0000 44 7602 FLOAT
2129 0 0000 30 7602
2130 0 4400 28 0223
2131 1 0000 40 9991
2132 0 0000 10 7508 M
2133 1 0000 40 9990
2134 0 0000 10 7507 P
2135 1 0000 40 9989
2136 0 0000 10 7669 CONST
2137 1 0000 40 9988
2138 0 0000 10 7598 CONST
2139 1 0000 40 9987
2140 0 0000 10 7669 CONST
2141 1 0000 40 9986
2142 0 0000 10 7598 CONST
2143 1 0000 40 9985
2105 ORTHO (W(), BV(,), Z(,), N , FLOAT(N) , M , P, 1, 2, 1, 2, 1$
2144 0 0000 10 7669 CONST
2145 1 0000 40 9984
2146 0 0000 10 2147
2147 0 0000 01 8477 ORTHV
2148 1 0000 40 9983
2149 0 0000 10 7191 CONST
2150 1 0000 40 9982
2151 0 0000 10 7669 CONST
2152 1 0000 40 9981
2153 0 0000 10 2154
2154 0 0000 01 8445 DEV
2155 1 0000 40 9980
2156 0 0000 10 7511 CONST
2157 1 0000 40 9979
2158 0 0000 10 7669 CONST
2159 1 0000 40 9978
2160 0 0000 10 2161
2161 0 0000 01 8466 COF
2162 1 0000 40 9977
2163 0 0000 10 7509 CONST
2164 1 0000 40 9976
2165 0 0000 10 7669 CONST
2166 1 0000 40 9975
2167 0 0000 10 2168
2168 0 0000 01 8476 STD
2169 1 0000 40 9974
2170 0 0000 10 7669 CONST
2171 1 0000 40 9973
2172 0 0000 10 2173
2173 0 0000 01 8333 CV
2174 1 0000 40 9972
2175 0 0000 10 7509 CONST
2176 1 0000 40 9971
2177 0 0000 10 7669 CONST
2178 1 0000 40 9970
2179 0 0000 10 2180
2180 0 0000 01 8069 VCV
2181 1 0000 40 9969
2182 0 0000 10 7190 CONST
2183 1 0000 40 9968
2184 0 0000 10 7509 CONST
2185 1 0000 40 9967
2146 ORTHV(,), DEV(,), COF(,), STD(), CV(,), VCV(,,),
2186 0 0000 10 7669 CONST
2187 1 0000 40 9966
2188 0 0000 10 2189
2189 0 0000 01 7189 GMDT
2190 1 0000 40 9965
2191 0 0000 10 2192
2192 0 0000 01 8188 Q
2193 1 0000 40 9964
2194 0 0000 10 7190 CONST
2195 1 0000 40 9963
2196 0 0000 10 7669 CONST
2197 1 0000 40 9962
2198 0 0000 10 2199
2199 0 0000 01 8178 Q2
2200 1 0000 40 9961
2201 0 0000 10 7509 CONST
2202 1 0000 40 9960
2203 0 0000 10 7669 CONST
2204 1 0000 40 9959
2205 0 0000 10 2206
2206 0 0000 01 8167 E
2207 1 0000 40 9958
2208 0 0000 10 7509 CONST
2209 1 0000 40 9957
2210 0 0000 10 7669 CONST
2211 1 0000 40 9956
2212 0 0000 10 2213
2213 0 0000 01 8156 EP
2214 1 0000 40 9955
2215 0 0000 10 7509 CONST
2216 1 0000 40 9954
2217 0 0000 10 7669 CONST
2218 1 0000 40 9953
2219 0 0000 10 2220
2220 0 0000 01 8035 A
2221 1 0000 40 9952
2222 0 0000 10 7509 CONST
2223 1 0000 40 9951
2224 0 0000 10 7669 CONST
2225 1 0000 40 9950
2226 0 0000 10 2227
2227 0 0000 01 8034 GF
2228 1 0000 40 9949
2229 0 0000 10 7669 CONST
2230 1 0000 40 9948
2231 0 0000 10 2232
2232 0 0000 01 8023 ENF
2233 1 0000 40 9947
2188 GMDT, Q(,), Q2(,), E(,), EP(,), A(,), GF(), ENF())$
2188
2234 0 0000 10 7669 CONST
2235 0 0000 44 0223 ORTHO
2236 0 5400 30 0223
2237 0 0000 10 7669 CONST
2238 0 0000 40 7506 I
2239 0 0000 44
2240 0 0000 30
2241 0 0000 10 7669 CONST
2242 0 0000 12 7506 I
2243 0 0000 40 7506 I
2240 2244
2244 0 0000 13 7510 N
2245 0 1111 31 2247
2246 0 0000 36
2247 0 0001 33
2237 FOR I = (1, 1, N)$
2248 0 0000 30
2247 2249
2246 2249
2248 BEGIN SUM = 0$
2249 0 0000 46 7188 SUM
2250 0 0000 10 7669 CONST
2251 0 0000 40 7192 J
2252 0 0000 44
2253 0 0000 30
2254 0 0000 10 7669 CONST
2255 0 0000 12 7192 J
2256 0 0000 40 7192 J
2253 2257
2257 0 0000 13 7508 M
2258 0 1111 31 2260
2259 0 0000 36
2260 0 0001 33
2250 FOR J = (1, 1, M)$
2261 0 0000 30
2260 2262
2259 2262
2262 0 0000 10 7192 J
2263 0 4400 28 1603
2264 1 0000 40 0000
2265 0 0000 42 7506 I
2266 1 0000 10 9956 X
2267 0 4400 28 1603
2268 1 0000 40 9999
2261 SUM = SUM + COF(1,J) . G (J, X(I), Y(I))$
2269 0 0000 42 7506 I
2270 1 0000 10 9913 Y
2271 0 0000 44 1603 G
2272 0 0200 30 1603
2273 0 0000 42 7192 J
2274 1 0000 24 8477 COF
2275 0 0000 22 7188 SUM
2276 0 0000 40 7188 SUM
2261 2278
2252 2277
2277 0 0000 30
2278 CBV(I) = SUM$
2278 0 0000 10 7188 SUM
2279 0 0000 42 7506 I
2280 1 0000 40 9827 CBV
2281 END$
2248 2282
2239 2281
2281 0 0000 30
2282 WRITE ($$ F2)$
2282 0 0000 10 2283
2283 0 0000 01 0207 F2
2284 0 0000 44 6948 WRITE
2285 0 0000 30 6948
2286 0 0000 10 2287
2287 0 0000 01 0000 RESUL
2288 0 4400 28 6948
2289 1 0000 40 0000
2286 WRITE ($$ RESULTS, F1)$
2290 0 0000 10 2291
2291 0 0000 01 0201 F1
2292 0 0000 44 6948 WRITE
2293 0 0100 30 6948
2294 0 0000 30
2287 2295
2295 0 0000 30
2296 0 0000 10 7669 CONST
2297 0 0000 40 7506 I
2298 0 0000 44
2299 0 0000 30
2300 0 0000 10 7669 CONST
2301 0 0000 12 7506 I
2302 0 0000 40 7506 I
2299 2303
2303 0 0000 13 7510 N
2304 0 1111 31 2306
2305 0 0000 36
2306 0 0001 33
2307 0 0000 30
2306 2308
2305 2308
2308 0 0000 10 7506 I
2309 0 0100 42 2309
2310 0 0002 20 2295
2311 0 0000 42 7506 I
2312 1 0000 10 9956 X
2313 0 0000 42 2313
2314 0 0002 20 2295
2315 0 0000 42 7506 I
2316 1 0000 10 9913 Y
2317 0 0000 42 2317
2318 0 0002 20 2295
2319 0 0000 42 7506 I
2320 1 0000 10 9870 W
2321 0 0000 42 2321
2322 0 0002 20 2295
2294 OUTPUT RESULTS (FOR I = (1, 1, N)$ (I,X(I),Y(I),W(I), BV(1,I),
2323 0 0000 42 7506 I
2324 1 0000 10 9773 BV
2325 0 0000 42 2325
2326 0 0002 20 2295
2327 0 0000 42 7506 I
2328 1 0000 10 9827 CBV
2329 0 0000 42 2329
2330 0 0002 20 2295
2331 0 0000 42 7506 I
2332 1 0000 10 9827 CBV
2333 1 0000 23 9773 BV
2334 0 0000 42 2334
2335 0 0002 20 2295
2307 2337
2298 2336
2336 0 0000 30
2327 CBV(I), (CBV(I)-BV(1,I))))$
2327
2337 0 0009 43 0000
2338 0 0000 30 2295
2294 2339
2339 0 0000 30
2340 0 6947 01 2340
2341 0 0000 40 6943 TEMP
2342 0 0000 30
2339 PROCEDURE DMMP (NAME, ROW(), RN, SZ)$
2339 BEGIN
2339 INTEGER
2339 NAME, RN, SZ$
2343 INTEGER
2343 I$
2343 FORMAT
2343 0 0000 30
2344 0 0006 60 0400
2345 0 0004 10 0500
2346 3 0033 00 1400
2347 0 0006 60 0000
2348 1 0000 00 2344
2343 F1 (W4,A5,* = *,W),
2349 0 0006 60 0400
2350 0 0004 10 0500
2351 3 2414 00 0000
2352 0 0004 90 0200
2353 3 0400 33 0014
2354 0 0006 60 0000
2355 1 0000 00 2349
2343 F2 (W4,A5,*(*,I2,*) = *,W),
2356 0 0064 60 2011
2357 0 0006 60 0000
2358 1 0000 00 2356
2343 F3 (6F20.11,W)$
2343 2359
2359 OUTPUT
2359 0 0000 30
2360 0 0000 30
2361 D1OUT (NAME),
2361 0 0000 10 6947 NAME
2362 0 0100 42 2362
2363 0 0002 20 2360
2364 0 0009 43 0000
2365 0 0000 30 2360
2359 2366
2366 0 0000 30
2367 0 0000 30
2368 0 0000 10 6947 NAME
2369 0 0100 42 2369
2370 0 0002 20 2367
2366 D2OUT (NAME, RN),
2371 0 0000 10 6944 RN
2372 0 0100 42 2372
2373 0 0002 20 2367
2374 0 0009 43 0000
2375 0 0000 30 2367
2366 2376
2376 0 0000 30
2377 0 0000 30
2378 0 0000 10 7669 CONST
2379 0 0000 40 6942 I
2380 0 0000 44
2381 0 0000 30
2382 0 0000 10 7669 CONST
2383 0 0000 12 6942 I
2384 0 0000 40 6942 I
2381 2385
2385 0 0000 13 6943 SZ
2386 0 1111 31 2388
2387 0 0000 36
2388 0 0001 33
2389 0 0000 30
2388 2390
2387 2390
2390 0 0000 10 6942 I
2391 0 0000 14 6945
2392 0 0001 49 0010
2392 0 0001 40 6941 TEMP
2393 0 0000 42 6941 TEMP
2394 1 0000 10 6946 ROW
2395 0 0000 42 2395
2396 0 0002 20 2377
2389 2398
2380 2397
2397 0 0000 30
2376 ROWOUT (FOR I = (1, 1, SZ)$ ROW(I))$
2376
2398 0 0009 43 0000
2399 0 0000 30 2377
2376 2400
2400 EITHER IF RN GTR 0$
2400 0 0000 10 6944 RN
2401 0 0000 36
2402 0 0001 33
2403 0 0000 10 2404
2404 0 0000 01 2367 D2OUT
2405 0 4400 28 6948
2406 1 0000 40 0000
2407 WRITE ($$ D2OUT, F2)$
2407 0 0000 10 2408
2408 0 0000 01 2349 F2
2409 0 0000 44 6948 WRITE
2410 0 0100 30 6948
2402 2412
2401 2412
2411 0 0000 30
2411 OTHERWISE$
2412 0 0000 10 2413
2413 0 0000 01 2360 D1OUT
2414 0 4400 28 6948
2415 1 0000 40 0000
2416 WRITE ($$ D1OUT, F1)$
2416
2416 0 0000 10 2417
2417 0 0000 01 2344 F1
2418 0 0000 44 6948 WRITE
2419 0 0100 30 6948
2411 2420
2420 0 0000 10 2421
2421 0 0000 01 2377 ROWOU
2422 0 4400 28 6948
2423 1 0000 40 0000
2420 WRITE ($$ ROWOUT, F3)$
2424 0 0000 10 2425
2425 0 0000 01 2356 F3
2426 0 0000 44 6948 WRITE
2427 0 0100 30 6948
2428 0 0000 42 2340
2429 1 0000 30 0000
2428 RETURN$
2430 END DMMP()$
2430
2342 2430
2430 0 0000 10 6946
2431 0 0410 40 2394
2432 0 0000 30 2343
2339 2433
2433 0 0000 10 6940 CONST
2434 0 4400 28 2340
2435 1 0000 40 0000
2436 0 0000 10 2437
2437 0 0000 01 9956 X
2438 1 0000 40 9999
2439 0 0000 10 7669 CONST
2440 1 0000 40 9998
2441 0 0000 10 6939 CONST
2442 1 0000 40 9997
2433 DMMP (6700000000, X(), 0, N)$
2443 0 0000 10 7510 N
2444 0 0000 44 2340 DMMP
2445 0 0400 30 2340
2446 0 0000 10 6938 CONST
2447 0 4400 28 2340
2448 1 0000 40 0000
2449 0 0000 10 2450
2450 0 0000 01 9913 Y
2451 1 0000 40 9999
2452 0 0000 10 7669 CONST
2453 1 0000 40 9998
2454 0 0000 10 6939 CONST
2455 1 0000 40 9997
2446 DMMP (6800000000, Y(), 0, N)$
2456 0 0000 10 7510 N
2457 0 0000 44 2340 DMMP
2458 0 0400 30 2340
2459 0 0000 10 6937 CONST
2460 0 4400 28 2340
2461 1 0000 40 0000
2462 0 0000 10 2463
2463 0 0000 01 9870 W
2464 1 0000 40 9999
2465 0 0000 10 7669 CONST
2466 1 0000 40 9998
2467 0 0000 10 6939 CONST
2468 1 0000 40 9997
2459 DMMP (6600000000, W(), 0, N)$
2469 0 0000 10 7510 N
2470 0 0000 44 2340 DMMP
2471 0 0400 30 2340
2472 0 0000 10 6936 CONST
2473 0 4400 28 2340
2474 1 0000 40 0000
2475 0 0000 10 2476
2476 0 0000 01 9827 CBV
2477 1 0000 40 9999
2478 0 0000 10 7669 CONST
2479 1 0000 40 9998
2480 0 0000 10 6939 CONST
2481 1 0000 40 9997
2472 DMMP (4342650000, CBV(), 0, N)$
2482 0 0000 10 7510 N
2483 0 0000 44 2340 DMMP
2484 0 0400 30 2340
2485 0 0000 10 6935 CONST
2486 0 4400 28 2340
2487 1 0000 40 0000
2488 0 0000 10 2489
2489 0 0000 01 9773 BV
2490 1 0000 40 9999
2491 0 0000 10 7669 CONST
2492 1 0000 40 9998
2493 0 0000 10 6939 CONST
2494 1 0000 40 9997
2495 0 0000 10 7507 P
2496 0 0000 12 7510 N
2485 DMMP (4265000000, BV(1,), 0, N+P)$
2497 0 0000 44 2340 DMMP
2498 0 0400 30 2340
2499 0 0000 10 7669 CONST
2500 0 0000 40 7506 I
2501 0 0000 44
2502 0 0000 30
2503 0 0000 10 7669 CONST
2504 0 0000 12 7506 I
2505 0 0000 40 7506 I
2502 2506
2506 0 0000 13 7508 M
2507 0 1111 31 2509
2508 0 0000 36
2509 0 0001 33
2499 FOR I = (1, 1, M)$
2510 0 0000 30
2509 2511
2508 2511
2511 0 0000 10 6934 CONST
2512 0 4400 28 2340
2513 1 0000 40 0000
2514 0 0000 10 7506 I
2515 0 0000 14 7191 CONST
2516 0 0001 49 0010
2517 0 0000 12 2518
2518 0 0000 01 9125 Z
2519 1 0000 40 9999
2520 0 0000 10 7669 CONST
2521 1 0000 40 9998
2522 0 0000 10 7506 I
2523 1 0000 40 9997
2524 0 0000 10 7507 P
2525 0 0000 12 7510 N
2510 DMMP (6900000000, Z(I,), I, N+P)$
2510
2526 0 0000 44 2340 DMMP
2527 0 0400 30 2340
2510 2529
2501 2528
2528 0 0000 30
2529 0 0000 10 7669 CONST
2530 0 0000 40 7506 I
2531 0 0000 44
2532 0 0000 30
2533 0 0000 10 7669 CONST
2534 0 0000 12 7506 I
2535 0 0000 40 7506 I
2532 2536
2536 0 0000 40 7281 TEMP
2537 0 0000 10 7669 CONST
2538 0 0000 12 7508 M
2539 0 0000 13 7281 TEMP
2540 0 1111 31 2542
2541 0 0000 36
2542 0 0000 33
2529 FOR I = (1, 1, M+1)$
2543 0 0000 30
2542 2544
2541 2544
2544 0 0000 10 6933 CONST
2545 0 4400 28 2340
2546 1 0000 40 0000
2547 0 0000 10 7506 I
2548 0 0000 14 7191 CONST
2549 0 0001 49 0010
2550 0 0000 12 2551
2551 0 0000 01 8477 ORTHV
2552 1 0000 40 9999
2553 0 0000 10 7669 CONST
2554 1 0000 40 9998
2555 0 0000 10 7506 I
2556 1 0000 40 9997
2557 0 0000 10 7507 P
2558 0 0000 12 7510 N
2543 DMMP (5659634865, ORTHV(I,), I, N+P)$
2543
2559 0 0000 44 2340 DMMP
2560 0 0400 30 2340
2543 2562
2531 2561
2561 0 0000 30
2562 0 0000 10 6932 CONST
2563 0 4400 28 2340
2564 1 0000 40 0000
2565 0 0000 10 2566
2566 0 0000 01 8488 DEV
2567 1 0000 40 9999
2568 0 0000 10 7669 CONST
2569 1 0000 40 9998
2570 0 0000 10 6939 CONST
2571 1 0000 40 9997
2562 DMMP (4445650000, DEV(1,), 0, N)$
2572 0 0000 10 7510 N
2573 0 0000 44 2340 DMMP
2574 0 0400 30 2340
2575 0 0000 10 6931 CONST
2576 0 4400 28 2340
2577 1 0000 40 0000
2578 0 0000 10 2579
2579 0 0000 01 8477 COF
2580 1 0000 40 9999
2581 0 0000 10 7669 CONST
2582 1 0000 40 9998
2583 0 0000 10 6939 CONST
2584 1 0000 40 9997
2575 DMMP (4356460000, COF(1,), 0, P)$
2585 0 0000 10 7507 P
2586 0 0000 44 2340 DMMP
2587 0 0400 30 2340
2588 0 0000 10 6930 CONST
2589 0 4400 28 2340
2590 1 0000 40 0000
2591 0 0000 10 2592
2592 0 0000 01 8476 STD
2593 1 0000 40 9999
2594 0 0000 10 7669 CONST
2595 1 0000 40 9998
2596 0 0000 10 6939 CONST
2597 1 0000 40 9997
2588 DMMP (6263440000, STD(), 0, 1)$
2598 0 0000 10 7669 CONST
2599 0 0000 44 2340 DMMP
2600 0 0400 30 2340
2601 0 0000 10 7669 CONST
2602 0 0000 40 7506 I
2603 0 0000 44
2604 0 0000 30
2605 0 0000 10 7669 CONST
2606 0 0000 12 7506 I
2607 0 0000 40 7506 I
2604 2608
2608 0 0000 40 7281 TEMP
2609 0 0000 10 7669 CONST
2610 0 0000 12 7507 P
2611 0 0000 13 7281 TEMP
2612 0 1111 31 2614
2613 0 0000 36
2614 0 0000 33
2601 FOR I = (1, 1, P+1)$
2615 0 0000 30
2614 2616
2613 2616
2616 0 0000 10 6929 CONST
2617 0 4400 28 2340
2618 1 0000 40 0000
2619 0 0000 10 7506 I
2620 0 0000 14 7509 CONST
2621 0 0001 49 0010
2622 0 0000 12 2623
2623 0 0000 01 8333 CV
2624 1 0000 40 9999
2625 0 0000 10 7669 CONST
2626 1 0000 40 9998
2627 0 0000 10 7506 I
2628 1 0000 40 9997
2615 DMMP (4365000000, CV(I,), I, P)$
2615
2629 0 0000 10 7507 P
2630 0 0000 44 2340 DMMP
2631 0 0400 30 2340
2615 2633
2603 2632
2632 0 0000 30
2633 0 0000 10 7669 CONST
2634 0 0000 40 7506 I
2635 0 0000 44
2636 0 0000 30
2637 0 0000 10 7669 CONST
2638 0 0000 12 7506 I
2639 0 0000 40 7506 I
2636 2640
2640 0 0000 40 7281 TEMP
2641 0 0000 10 7669 CONST
2642 0 0000 12 7507 P
2643 0 0000 13 7281 TEMP
2644 0 1111 31 2646
2645 0 0000 36
2646 0 0000 33
2633 FOR I = (1, 1, P+1)$
2647 0 0000 30
2646 2648
2645 2648
2648 0 0000 10 6928 CONST
2649 0 4400 28 2340
2650 1 0000 40 0000
2651 0 0000 10 7506 I
2652 0 0000 14 7509 CONST
2653 0 0001 49 0010
2654 0 0000 12 2655
2655 0 0000 01 8201 VCV
2656 1 0000 40 9999
2657 0 0000 10 7669 CONST
2658 1 0000 40 9998
2659 0 0000 10 7506 I
2660 1 0000 40 9997
2647 DMMP (6543650000, VCV(1,I,), I, P)$
2647
2661 0 0000 10 7507 P
2662 0 0000 44 2340 DMMP
2663 0 0400 30 2340
2647 2665
2635 2664
2664 0 0000 30
2665 0 0000 10 6927 CONST
2666 0 4400 28 2340
2667 1 0000 40 0000
2668 0 0000 10 2669
2669 0 0000 01 8167 EP
2670 1 0000 40 9999
2671 0 0000 10 7669 CONST
2672 1 0000 40 9998
2673 0 0000 10 6939 CONST
2674 1 0000 40 9997
2665 DMMP (4557000000, EP(1,), 0, M)$
2675 0 0000 10 7508 M
2676 0 0000 44 2340 DMMP
2677 0 0400 30 2340
2678 0 0000 10 7669 CONST
2679 0 0000 40 7506 I
2680 0 0000 44
2681 0 0000 30
2682 0 0000 10 7669 CONST
2683 0 0000 12 7506 I
2684 0 0000 40 7506 I
2681 2685
2685 0 0000 13 7508 M
2686 0 1111 31 2688
2687 0 0000 36
2688 0 0001 33
2678 FOR I = (1, 1, M)$
2689 0 0000 30
2688 2690
2687 2690
2690 0 0000 10 6926 CONST
2691 0 4400 28 2340
2692 1 0000 40 0000
2693 0 0000 10 7506 I
2694 0 0000 14 7509 CONST
2695 0 0001 49 0010
2696 0 0000 12 2697
2697 0 0000 01 8035 A
2698 1 0000 40 9999
2699 0 0000 10 7669 CONST
2700 1 0000 40 9998
2701 0 0000 10 7506 I
2702 1 0000 40 9997
2689 DMMP (4100000000, A(I,), I, P)$
2689
2703 0 0000 10 7507 P
2704 0 0000 44 2340 DMMP
2705 0 0400 30 2340
2689 2707
2680 2706
2706 0 0000 30
2707 0 0000 10 6925 CONST
2708 0 4400 28 2340
2709 1 0000 40 0000
2710 0 0000 10 2711
2711 0 0000 01 8034 GF
2712 1 0000 40 9999
2713 0 0000 10 7669 CONST
2714 1 0000 40 9998
2715 0 0000 10 6939 CONST
2716 1 0000 40 9997
2717 0 0000 10 7669 CONST
2718 0 0000 12 7508 M
2707 DMMP (4746000000, GF(), 0, M+1)$
2719 0 0000 44 2340 DMMP
2720 0 0400 30 2340
2721 0 0000 10 6924 CONST
2722 0 4400 28 2340
2723 1 0000 40 0000
2724 0 0000 10 2725
2725 0 0000 01 8200 Q
2726 1 0000 40 9999
2727 0 0000 10 7669 CONST
2728 1 0000 40 9998
2729 0 0000 10 6939 CONST
2730 1 0000 40 9997
2731 0 0000 10 7669 CONST
2732 0 0000 12 7508 M
2721 DMMP (5800000000, Q(1,), 0, M+1)$
2733 0 0000 44 2340 DMMP
2734 0 0400 30 2340
2735 0 0000 10 6923 CONST
2736 0 4400 28 2340
2737 1 0000 40 0000
2738 0 0000 10 2739
2739 0 0000 01 8189 Q2
2740 1 0000 40 9999
2741 0 0000 10 7669 CONST
2742 1 0000 40 9998
2743 0 0000 10 6939 CONST
2744 1 0000 40 9997
2735 DMMP (5882000000, Q2(1,), 0, M)$
2745 0 0000 10 7508 M
2746 0 0000 44 2340 DMMP
2747 0 0400 30 2340
2748 0 0000 10 6922 CONST
2749 0 4400 28 2340
2750 1 0000 40 0000
2751 0 0000 10 2752
2752 0 0000 01 8178 E
2753 1 0000 40 9999
2754 0 0000 10 7669 CONST
2755 1 0000 40 9998
2756 0 0000 10 6939 CONST
2757 1 0000 40 9997
2748 DMMP (4500000000, E(1,), 0, M)$
2758 0 0000 10 7508 M
2759 0 0000 44 2340 DMMP
2760 0 0400 30 2340
2761 0 0000 10 6921 CONST
2762 0 4400 28 2340
2763 1 0000 40 0000
2764 0 0000 10 2765
2765 0 0000 01 8023 ENF
2766 1 0000 40 9999
2767 0 0000 10 7669 CONST
2768 1 0000 40 9998
2769 0 0000 10 6939 CONST
2770 1 0000 40 9997
2761 DMMP (4555460000, ENF(), 0, M)$
2771 0 0000 10 7508 M
2772 0 0000 44 2340 DMMP
2773 0 0400 30 2340
2774 FINISH$
2774 0 9669 00 9669
2775 0 1000 60 0000
6939 0 0000 00 0000 POOL
7669 0 0000 00 0001
7598 0 0000 00 0002
7511 0 0000 00 0043
7509 0 0000 00 0011
7191 0 0000 00 0054
7190 0 0000 00 0012
7578 0 0000 00 0003
7530 0 0000 00 0004
7526 0 0000 00 0005
7523 0 0000 00 0006
7520 0 0000 00 0007
7516 0 0000 00 0008
6940 0 6700 00 0000
6938 0 6800 00 0000
6937 0 6600 00 0000
6936 0 4342 65 0000
6935 0 4265 00 0000
6934 0 6900 00 0000
6933 0 5659 63 4865
6932 0 4445 65 0000
6931 0 4356 46 0000
6930 0 6263 44 0000
6929 0 4365 00 0000
6928 0 6543 65 0000
6927 0 4557 00 0000
6926 0 4100 00 0000
6925 0 4746 00 0000
6924 0 5800 00 0000
6923 0 5882 00 0000
6922 0 4500 00 0000
6921 0 4555 46 0000
7662 0 5110 00 0000
7570 0 5120 00 0000
7531 0 5130 00 0000
7529 0 5160 00 0000
7527 0 5140 00 0000
7525 0 5210 00 0000
7524 0 5150 00 0000
7522 0 5215 00 0000
7521 0 5220 00 0000
7519 0 5221 00 0000
7518 0 5235 00 0000
7517 0 5170 00 0000
7515 0 5228 00 0000
7514 0 5270 00 0000
7513 0 5180 00 0000
7512 0 5256 00 0000
7602 0 0006 45 0000
7603 0 2200 36 7606
7604 0 0000 48 0001
7605 0 0001 20 7603
7606 0 0001 48 0008
7607 1 0000 10 7612
7608 0 0001 49 0008
7609 0 0000 22 7615
7610 0 0000 42 7602
7611 1 0000 30 0000
7612 0 0000 00 0058
7613 0 0000 00 0059
7614 0 0000 00 0060
7615 0 5800 00 0000
6948 0 0100 01 0000
6949 0 0410 40 6984
6950 0 0000 42 6952
6951 0 0010 29 7184
6952 0 0300 29 0101
6953 0 0000 42 6948
6954 0 0412 40 7033
6955 1 0000 41 9999
6956 0 0009 43 7557
6957 0 2200 37 6961
6958 0 0000 42 0100
6959 1 0000 44 0000
6960 1 2201 37 0001
6961 0 0000 40 0132
6962 0 0412 40 7015
6963 0 0000 41 0130
6964 0 0000 37 6982
6965 0 0000 10 0134
6966 0 0000 46 0133
6967 0 5246 37 7144
6968 0 5267 37 7120
6969 0 5249 37 7058
6970 0 5262 37 7171
6971 0 5241 37 6973
6972 0 0000 30 7159
6973 0 0000 41 6991
6974 0 0001 27 0129
6975 0 0000 44 7116
6976 0 0000 30 7107
6977 0 0000 10 0129
6978 0 0000 36 6998
6979 0 2299 37 7012
6980 0 0001 49 0010
6981 0 0000 30 6974
6982 0 0000 42 6949
6983 0 0000 31 6875 ERROR
6984 0 0000 10 9999
6985 0 0401 26 6984
6986 0 0000 33 7000
6987 0 0000 41 6991
6988 0 0001 33 7016
6989 0 2214 36 6984
6990 0 0000 44 7116
6991 0 9900 30 7107
6992 0 2299 37 6984
6993 0 0001 49 0010
6994 0 0000 30 6989
6995 0 0000 10 0129
6996 0 0000 19 0125
6997 0 0000 19 0125
6998 0 0000 10 0130
6999 0 3300 36 6982
7000 0 3300 36 7002
7001 0 0000 13 7185
7002 0 0000 40 0130
7003 0 0210 40 0131
7004 0 0001 48 0002
7005 0 0310 40 0129
7006 0 7242 36 6995
7007 0 7266 36 7036
7008 0 7257 36 7044
7009 0 7263 36 7046
7010 0 7243 36 7035
7011 0 0300 36 6984
7012 0 0000 10 0132
7013 0 0000 40 0134
7014 0 0009 33 6995
7015 0 0000 30 9999
7016 0 0000 42 6984
7017 0 6600 36 7032
7018 0 0001 49 0003
7019 0 0300 37 7026
7020 0 0000 13 7185
7021 0 3300 36 7028
7022 1 6301 27 9999
7023 1 0000 41 9999
7024 0 0411 40 6984
7025 0 0000 30 6984
7026 1 3310 40 9999
7027 0 0000 30 7020
7028 1 0000 10 9999
7029 0 0001 48 0003
7030 1 6610 40 9999
7031 0 0000 30 6984
7032 0 0000 10 0132
7033 0 0009 33 9999
7034 0 0000 30 7023
7035 0 1008 61 0124
7036 0 0001 48 0003
7037 0 3111 40 7038
7038 0 2408 44 6908 REED
7039 0 0101 30 6908 REED
7040 0 0000 42 7042
7041 0 0010 29 7184
7042 0 0240 29 0101
7043 0 0000 30 6998
7044 0 1008 61 0124
7045 0 0000 30 7040
7046 0 0300 36 7051
7047 0 0010 09 7050
7048 0 0001 12 7028
7049 0 0000 30 7046
7050 2 1602 02 0202
7051 0 0000 10 0125
7052 0 0000 36 6998
7053 0 0000 12 7121
7054 0 0001 48 0004
7055 0 3211 40 7056
7056 0 0990 09 0101
7057 0 0000 30 7040
7058 0 0000 42 7068
7059 0 0000 36 7117
7060 0 1100 36 7118
7061 0 0000 40 0134
7062 0 0003 45 0080
7063 0 0002 40 0128
7064 0 0000 46 0126
7065 0 0410 40 0126
7066 0 0001 40 0127
7067 0 0000 10 0134
7068 0 0002 48 0010
7069 0 0001 43 0023
7070 0 0000 12 0129
7071 0 0000 13 0128
7072 0 0001 33 7159
7073 0 0000 19 0125
7074 0 5000 19 0125
7075 0 0000 10 0134
7076 0 0000 41 7112
7077 0 0000 44 7116
7078 0 0001 33 7106
7079 0 0001 27 0128
7080 0 0000 32 7092
7081 0 0000 41 0127
7082 0 0000 37 6998
7083 0 0000 41 7069
7084 0 0000 44 7116
7085 0 0000 30 7106
7086 0 0000 10 0127
7087 0 0000 13 7074
7088 0 0000 42 7004
7089 0 0000 46 0129
7090 0 0003 26 0129
7091 0 0000 30 7061
7092 0 0001 27 0126
7093 0 0000 41 0126
7094 0 0000 37 7100
7095 0 0000 41 0133
7096 0 0000 37 7102
7097 0 0001 27 0133
7098 0 0000 41 7062
7099 0 0000 30 7106
7100 0 0000 41 7029
7101 0 0000 30 7106
7102 0 0000 10 0134
7103 0 0000 41 7121
7104 0 0001 49 0001
7105 0 0000 40 0134
7106 0 0001 49 0018
7107 0 0001 48 0008
7108 0 0001 42 0125
7109 1 0000 49 0008
7110 0 9400 28 0125
7111 0 0024 21 7116
7112 0 0000 43 0020
7113 1 0000 12 0125
7114 1 0010 40 0125
7115 0 0002 26 0125
7116 0 0000 30 9999
7117 0 0009 21 7062
7118 0 0000 49 0051
7119 0 0001 21 7060
7120 0 0002 45 7557
7121 0 0001 48 0008
7122 0 0410 18 7186
7123 0 0001 40 0134
7124 0 0001 34 7134
7125 0 0410 40 7132
7126 0 0449 27 7132
7127 0 0000 42 7132
7128 0 0000 10 0130
7129 0 0001 48 0004
7130 0 4211 40 7133
7131 0 0000 10 7132
7132 0 0002 45 9999
7133 0 0000 20 7063
7134 0 0000 43 7557
7135 0 0000 13 7186
7136 0 0210 40 0133
7137 0 0211 18 0130
7138 0 0000 35 7141
7139 0 0000 10 7186
7140 0 0000 30 7125
7141 0 0000 10 7118
7142 0 1110 40 0134
7143 0 0000 30 7125
7144 0 0304 27 0129
7145 0 0000 32 7148
7146 0 0000 30 7158
7147 0 0000 10 7187
7148 0 0000 36 7147
7149 0 0002 45 7557
7150 0 2210 40 7073
7151 0 0001 48 0008
7152 0 0001 40 0134
7153 0 0002 48 0010
7154 0 0000 12 0130
7155 0 0000 17 7118
7156 0 0310 18 0129
7157 0 0001 34 7167
7158 0 0004 26 0129
7159 0 0000 10 0129
7160 0 0000 19 0125
7161 0 0000 19 0125
7162 0 0002 27 0125
7163 0 0000 41 7174
7164 0 0000 44 7116
7165 0 0000 30 7106
7166 0 0000 30 6998
7167 0 0000 41 7073
7168 0 0000 10 7104
7169 0 0000 42 0131
7170 0 0001 20 7063
7171 0 0002 45 7557
7172 0 0001 48 0008
7173 0 0001 40 0134
7174 0 0000 43 0014
7175 0 0000 13 7186
7176 0 0002 45 7557
7177 0 0001 33 7182
7178 0 0210 18 0130
7179 0 0000 34 7159
7180 0 0000 12 7104
7181 0 0000 30 7169
7182 0 0010 40 0133
7183 0 0000 30 7168
7184 2 0000 00 0000
7185 0 0010 00 0000
7186 0 0000 00 0050
7187 0 5000 00 0000
7367 0 7495 01 0000
7368 0 0410 40 7457
7369 0 0410 40 7458
7370 0 0401 26 7458
7371 0 0000 44 7464
7372 0 0000 30 7457
7373 0 0000 42 7495
7374 1 0000 46 0000
7375 0 0000 46 7503
7376 0 0000 44 6851 RITE
7377 0 0117 30 6851 RITE
7378 0 0000 46 7505
7379 0 0502 26 7505
7380 0 0000 42 7495
7381 0 9999 20 7385
7382 0 6400 28 7503
7383 0 0000 10 0101
7384 0 9999 20 7479
7385 0 9400 28 7505
7386 1 0000 10 0101
7387 0 0000 42 7505
7388 1 0000 49 0000
7389 0 0502 26 7505
7390 0 0000 41 7503
7391 0 0000 37 7405
7392 0 0160 21 7376
7393 0 4400 28 7503
7394 0 2213 36 7420
7395 0 0000 48 0008
7396 1 0000 49 0000
7397 0 0000 19 7502
7398 0 4102 27 7503
7399 0 0000 32 7385
7400 0 0000 10 7502
7401 0 0000 44 7464
7402 0 0000 30 7457
7403 0 5212 27 7503
7404 0 0000 30 7385
7405 0 0162 21 7376
7406 0 1108 36 7436
7407 0 2203 36 7432
7408 0 2220 36 7430
7409 0 2234 36 7430
7410 0 2223 36 7425
7411 0 2213 36 7487
7412 0 2214 36 7418
7413 0 0000 42 7499
7414 0 9999 20 7385
7415 0 0000 44 7464
7416 0 0000 30 7443
7417 0 0000 30 7385
7418 0 9416 26 7505
7419 0 0000 30 7413
7420 0 0000 46 7503
7421 0 0000 10 7502
7422 0 0000 44 7464
7423 0 9992 20 7457
7424 0 0000 30 7385
7425 0 0001 26 7501
7426 0 0000 44 7464
7427 0 0000 30 7443
7428 0 0001 26 7498
7429 0 0000 30 7385
7430 0 0001 26 7497
7431 0 0000 30 7385
7432 0 0000 41 7491
7433 0 2211 40 7496
7434 0 0001 26 7500
7435 0 0000 30 7385
7436 0 0000 49 0001
7437 0 0000 41 7502
7438 0 0001 49 0001
7439 0 0001 40 7502
7440 0 2201 27 7496
7441 0 0001 26 7499
7442 0 0000 30 7385
7443 0 0000 41 7498
7444 0 0000 37 7470
7445 0 0000 42 7497
7446 0 0000 11 7502
7447 0 0000 49 0008
7448 0 9999 20 7450
7449 0 0000 43 0000
7450 0 0001 13 7504
7451 0 1210 27 7504
7452 0 0000 32 7457
7453 0 0000 43 0000
7454 0 0000 30 7457
7455 0 0000 42 7501
7456 0 0001 21 7465
7457 0 0000 44 0090
7458 0 0000 30 0091
7459 0 0009 33 7467
7460 0 0412 40 7458
7461 0 0000 42 7475
7462 0 0000 46 7496
7463 0 0070 29 7496
7464 0 0000 30 0097
7465 0 0000 40 7504
7466 0 0000 30 7461
7467 0 0000 42 7367
7468 0 0000 46 7495
7469 1 0000 30 0000
7470 0 0000 10 7502
7471 0 0000 42 7500
7472 0 9999 20 7475
7473 0 0000 12 7496
7474 0 0000 22 7496
7475 0 0000 42 7497
7476 0 9999 20 7455
7477 0 0001 43 0000
7478 0 0000 30 7455
7479 0 0810 18 7492
7480 0 0001 35 7385
7481 0 0000 41 0102
7482 0 0011 18 7493
7483 0 0001 35 7385
7484 0 0000 42 7495
7485 1 0001 26 0000
7486 0 0000 30 7467
7487 0 0000 42 7499
7488 0 9999 20 7403
7489 0 0502 27 7505
7490 0 0000 30 7415
7491 0 5800 00 0000
7492 2 8562 45 5563
7493 2 4955 45 5300
7494 0 5110 00 0000
7495 0 0000 00 0000
7496 0 0000 00 0000
7497 0 0000 00 0000
7498 0 0000 00 0000
7499 0 0000 00 0000
7500 0 0000 00 0000
7501 0 0000 00 0000
7502 0 0000 00 0000
7503 0 0000 00 0000
7504 0 0000 00 0000
7505 0 0000 00 0000
6854 0 0000 44 6887
6855 0 0000 30 6883
6856 2 5945 62 6453
6857 2 6300 56 6463
6858 2 0056 46 0059
6859 2 4155 47 4500
6860 2 4955 00 0000
6861 0 0000 44 6887
6862 0 0000 30 6883
6863 2 5945 62 6453
6864 2 6300 64 5544
6865 2 4546 49 5545
6866 2 4400 46 5659
6867 2 0000 00 0000
6868 0 0000 44 6887
6869 0 0000 30 6883
6870 2 5945 62 6453
6871 2 6300 49 5353
6872 2 2044 45 4649
6873 2 5545 44 0046
6874 2 5659 00 0000
6875 0 0000 46 6896
6876 0 0000 44 6887
6877 0 0000 30 6885
6878 0 0000 00 0000
6879 2 0041 59 4963
6880 2 4854 45 6349
6881 2 4300 56 6545
6882 2 5946 53 5666
6883 0 0001 40 6896
6884 0 0003 45 0000
6885 0 0412 40 6890
6886 0 0000 42 6907
6887 0 0050 29 0033
6888 0 1106 44 6908 REED
6889 0 6891 30 6908 REED
6890 0 0000 30 0036
6891 0 0000 00 0000
6892 0 0000 00 0000
6893 0 0000 00 0000
6894 0 0000 00 0000
6895 0 0000 00 0000
6896 0 0000 00 0000
6897 0 0000 00 0000
6898 0 0000 00 0000
6899 0 0000 00 0000
6900 0 0000 00 0000
6901 0 0000 00 0000
6902 0 5000 00 0000
6903 0 0000 00 0000
6904 0 0000 00 0000
6905 0 5110 00 0000
6906 0 0000 00 0000
6907 0 0000 00 6891
7616 0 0004 45 0000
7617 0 0000 42 7616
7618 1 0000 36 0000
7619 0 0001 33 7650
7620 0 0810 40 7652
7621 0 2310 40 7653
7622 0 0000 10 6902 ERROR
7623 0 0000 14 7653
7624 0 0000 13 7654
7625 0 2310 40 7653
7626 0 3110 18 7653
7627 0 0000 35 7630
7628 0 0001 33 7630
7629 0 2201 26 7653
7630 0 0000 10 7655
7631 0 0000 24 7652
7632 0 0000 22 7656
7633 0 0000 24 7652
7634 0 0000 22 7657
7635 0 0000 40 6903 ERROR
7636 0 0000 10 7652
7637 0 0000 25 6903 ERROR
7638 0 0000 22 6903 ERROR
7639 0 0000 24 7658
7640 0 0000 40 6903 ERROR
7641 0 0000 10 7652
7642 0 0000 25 6903 ERROR
7643 0 0000 22 6903 ERROR
7644 0 0000 12 7653
7645 0 0000 35 7648
7646 0 0000 24 7659
7647 1 0000 30 0000
7648 0 0000 24 7658
7649 1 0000 30 0000
7650 0 0000 41 7660
7651 0 0000 30 6861 ERROR
7652 0 5110 00 0000
7653 0 0000 00 0000
7654 0 2550 00 0000
7655 1 4916 45 0338
7656 0 5041 11 7101
7657 0 5062 69 7923
7658 0 5050 00 0000
7659 0 5015 81 1388
7660 2 6258 59 6300
7292 0 0002 45 0000
7293 0 0000 41 7354
7294 0 0411 40 7349
7295 0 1210 40 7292
7296 0 0010 18 7356
7297 0 0000 34 7347
7298 0 0001 49 0002
7299 0 0211 40 7300
7300 0 0002 45 0000
7301 0 0000 42 7300
7302 0 0000 14 7357
7303 0 9949 20 7306
7304 1 0001 49 0001
7305 0 0001 42 7304
7306 0 0001 49 0008
7307 0 2211 40 7353
7308 0 2251 26 7353
7309 0 0001 49 0012
7310 0 0002 45 0000
7311 0 0010 20 7313
7312 1 0001 49 0001
7313 0 0001 49 0010
7314 0 0000 40 6904 ERROR
7315 0 0000 14 6904 ERROR
7316 0 0000 40 6906 ERROR
7317 0 0000 14 7358
7318 0 0000 12 7359
7319 0 0000 14 6906 ERROR
7320 0 0000 12 7360
7321 0 0000 14 6906 ERROR
7322 0 0000 12 7361
7323 0 0000 14 6904 ERROR
7324 0 0000 40 6904 ERROR
7325 0 0000 40 6903 ERROR
7326 0 0000 10 7362
7327 0 0000 14 6906 ERROR
7328 0 0000 12 7363
7329 0 0000 14 6906 ERROR
7330 0 0000 12 7364
7331 0 0000 14 6906 ERROR
7332 0 0000 12 7365
7333 0 0000 19 6903 ERROR
7334 0 0000 13 6904 ERROR
7335 0 0001 48 0003
7336 0 0000 15 6903 ERROR
7337 0 0001 12 7353
7338 0 1210 27 7292
7339 0 0000 42 7292
7340 0 0000 32 7342
7341 1 0000 30 0000
7342 0 0000 40 6904 ERROR
7343 0 0000 10 7366
7344 0 9999 41 7344
7345 0 0000 25 6904 ERROR
7346 1 0000 30 0000
7347 0 0000 42 7292
7348 0 0001 33 7351
7349 0 0000 41 7355
7350 0 0000 30 6854 ERROR
7351 0 0001 45 0000
7352 1 0000 30 0000
7353 0 0000 00 0000
7354 0 0000 00 7355
7355 2 4567 57 0000
7356 0 5311 28 2665
7357 0 4342 94 4819
7358 1 0000 01 7159
7359 1 0004 89 3282
7360 1 0169 20 3872
7361 1 0995 71 1477
7362 0 0000 41 7304
7363 0 0035 41 8755
7364 0 0529 08 7016
7365 0 0864 86 4000
7366 0 5099 99 9999
7194 0 0006 45 0000
7195 0 0001 33 7255
7196 0 0000 36 7255
7197 0 0001 48 0002
7198 0 4210 40 7262
7199 0 0001 49 0004
7200 0 0000 18 7208
7201 0 0001 34 7238
7202 0 0000 18 7227
7203 0 0000 34 7238
7204 0 0001 48 0001
7205 0 0000 12 7263
7206 0 0000 40 6906 ERROR
7207 0 0000 13 7264
7208 0 1014 15 6906 ERROR
7209 0 0000 40 6906 ERROR
7210 0 0000 14 6906 ERROR
7211 0 0000 40 6903 ERROR
7212 0 0000 14 7265
7213 0 0000 12 7266
7214 0 0000 14 6903 ERROR
7215 0 0000 12 7267
7216 0 0000 14 6903 ERROR
7217 0 0000 12 7268
7218 0 0000 14 6903 ERROR
7219 0 0000 12 7269
7220 0 0000 14 6903 ERROR
7221 0 0000 12 7270
7222 0 0000 14 6903 ERROR
7223 0 0000 12 7271
7224 0 0000 14 6906 ERROR
7225 0 0000 12 7272
7226 0 2200 36 7229
7227 0 9858 48 0001
7228 0 0001 20 7226
7229 1 0810 40 7258
7230 0 0000 10 7262
7231 0 0000 23 7273
7232 0 0001 34 7234
7233 0 0000 22 6905 ERROR
7234 0 0000 24 7274
7235 1 0000 22 7258
7236 0 0000 42 7194
7237 1 0000 30 0000
7238 0 1101 36 7241
7239 0 0001 48 0001
7240 0 0000 13 7275
7241 0 0000 22 7276
7242 0 0000 36 7253
7243 0 0000 40 6906 ERROR
7244 0 2239 26 6906 ERROR
7245 0 0000 10 6906 ERROR
7246 0 0000 24 7277
7247 0 0000 22 7278
7248 0 0000 24 6906 ERROR
7249 0 0000 22 7279
7250 0 0000 24 6906 ERROR
7251 0 0000 24 6906 ERROR
7252 0 0000 22 6906 ERROR
7253 0 0000 40 7261
7254 0 0003 20 7230
7255 0 0000 41 7280
7256 0 0000 42 7194
7257 0 0000 30 6861 ERROR
7258 0 4900 00 0000
7259 0 5000 00 0000
7260 0 5100 00 0000
7261 0 0000 00 0000
7262 0 5200 00 0000
7263 0 0316 22 7766
7264 0 0632 45 5532
7265 0 0410 59 7044
7266 0 0057 22 8327
7267 0 0250 34 1093
7268 0 0282 43 3571
7269 0 0400 19 3033
7270 0 0666 66 1710
7271 0 2000 00 0037
7272 0 1151 29 2547
7273 0 5251 00 0000
7274 0 5123 02 5851
7275 0 2000 00 0000
7276 0 1000 00 0000
7277 1 5025 00 0000
7278 0 5033 33 3333
7279 1 5050 00 0000
7280 2 5356 47 0000
7532 0 7535 01 0000
7533 0 4400 28 7532
7534 0 0000 31 6875 ERROR
7535 0 0001 40 6903 ERROR
7536 0 0000 40 6906 ERROR
7537 0 0000 42 7532
7538 0 0000 36 7561
7539 0 0000 10 6905 ERROR
7540 1 0000 37 0000
7541 0 0000 40 6904 ERROR
7542 0 0000 10 6902 ERROR
7543 0 0000 14 6903 ERROR
7544 0 0000 40 6903 ERROR
7545 0 0000 37 7549
7546 0 0000 10 6904 ERROR
7547 0 0000 24 6906 ERROR
7548 0 0000 40 6904 ERROR
7549 0 0000 41 6903 ERROR
7550 0 0000 37 7555
7551 0 0000 10 6906 ERROR
7552 0 0000 24 6906 ERROR
7553 0 0000 40 6906 ERROR
7554 0 0000 30 7542
7555 0 0000 31 7565
7556 0 1210 37 7558
7557 1 0000 30 0000
7558 0 0000 10 6905 ERROR
7559 0 0000 25 6904 ERROR
7560 1 0000 30 0000
7561 0 0001 18 6878 ERROR
7562 1 0000 34 0000
7563 0 0000 41 7569
7564 0 0000 30 6861 ERROR
7565 0 0001 45 0000
7566 1 1210 37 0000
7567 0 0000 41 7569
7568 0 0000 30 6854 ERROR
7569 2 4653 46 6700
6795 0 0006 45 0000
6796 0 0000 41 6841
6797 0 0411 40 6839
6798 0 0000 46 6906 ERROR
6799 0 0000 24 6844
6800 0 0001 49 0002
6801 0 0211 40 6843
6802 0 0000 42 6843
6803 0 9949 20 6809
6804 0 0007 21 6838
6805 1 0001 49 0018
6806 0 0000 40 6906 ERROR
6807 0 0000 10 6808
6808 0 0001 49 0050
6809 0 0001 49 0018
6810 0 0000 40 6904 ERROR
6811 0 0000 22 6904 ERROR
6812 0 0010 18 6905 ERROR
6813 0 0001 34 6817
6814 0 0000 43 0000
6815 0 0000 23 6845
6816 0 0001 49 0000
6817 0 0000 40 6904 ERROR
6818 0 0000 24 6904 ERROR
6819 0 0000 40 6903 ERROR
6820 0 0000 24 6846
6821 0 0000 22 6847
6822 0 0000 24 6903 ERROR
6823 0 0000 22 6848
6824 0 0000 24 6903 ERROR
6825 0 0000 22 6849
6826 0 0000 24 6903 ERROR
6827 0 0000 22 6850
6828 0 0000 24 6904 ERROR
6829 0 0000 22 6904 ERROR
6830 0 0000 40 6904 ERROR
6831 0 0000 10 6902 ERROR
6832 0 0000 14 6906 ERROR
6833 0 0000 10 6904 ERROR
6834 0 0000 42 6795
6835 1 0000 37 0000
6836 0 0000 11 6904 ERROR
6837 1 0000 30 0000
6838 0 0000 42 6795
6839 0 0000 41 6842
6840 0 0000 30 6868 ERROR
6841 0 0000 00 6842
6842 2 6249 55 0000
6843 0 0000 00 0000
6844 0 5031 83 0989
6845 0 5120 00 0000
6846 0 4715 14 8419
6847 1 4846 73 7656
6848 0 4979 68 9679
6849 1 5064 59 6371
6850 0 5057 07 9632
7282 0 0006 45 0000
7283 0 0000 41 7282
7284 0 0411 40 6795 SIN
7285 0 0000 41 7289
7286 0 0000 22 7291
7287 0 0000 22 7291
7288 0 0000 30 6797 SIN
7289 0 0000 00 7290
7290 2 4356 62 0000
7291 0 5078 53 9816
6851 0 0000 01 0000
6852 0 1000 60 0117
6853 0 0000 30 7378 READ
6908 0 0000 01 0000
6909 0 0000 42 6908
6910 1 0000 10 9999
6911 0 0000 48 0006
6912 0 0410 40 6918
6913 1 0000 10 9998
6914 0 4210 40 6918
6915 0 0000 48 0008
6916 0 0000 13 6920
6917 0 0000 19 6918
6918 0 2000 61 0000
6919 1 0000 30 0000
6920 0 0000 00 0001
COMPILED PROGRAM ENDS AT 2775
PROGRAM VARIABLES BEGIN AT 6795
X Y W BV CBV DEV
1 .000 .110 .01414 .76088 .76399 .00310
2 -.050 .108 .01427 .72024 .72347 .00323
3 -.100 .115 .01963 .66721 .67048 .00327
4 -.160 .150 .02300 .55235 .55576 .00340
5 -.220 .205 .03897 .40067 .40386 .00318
6 -.320 .300 .02792 .17014 .17015 .00000
7 -.400 .358 .03324 .06949 .06500 -.00448
8 -.500 .420 .01483 .02006 .01359 -.00646
9 -.550 .436 .01423 .04590 .04344 -.00245
10 -.600 .430 .01505 .12036 .12444 .00407
11 -.644 .400 .01483 .22849 .23541 .00691
12 -.660 .350 .01420 .33248 .33512 .00264
13 -.655 .300 .02881 .41179 .41040 -.00139
14 -.635 .200 .03043 .56168 .55792 -.00376
15 -.595 .100 .03076 .70069 .69969 -.00099
16 -.552 .000 .03311 .84177 .84369 .00191
17 -.500 -.105 .03175 .98914 .99145 .00230
18 -.440 -.200 .01809 1.12198 1.12185 -.00013
19 -.400 -.250 .01998 1.19325 1.19145 -.00180
20 -.350 -.300 .01882 1.26792 1.26504 -.00287
21 -.300 -.344 .03140 1.33733 1.33459 -.00274
22 -.204 -.400 .03450 1.44504 1.44501 -.00003
23 -.100 -.436 .02846 1.54874 1.55125 .00251
24 .000 -.448 .02831 1.64168 1.64342 .00174
25 .100 -.442 .03860 1.73582 1.73434 -.00147
26 .230 -.400 .02431 1.85882 1.85512 -.00369
27 .300 -.350 .02059 1.91643 1.91501 -.00141
28 .353 -.300 .03566 1.95563 1.95689 .00126
29 .430 -.200 .03122 1.99206 1.99507 .00301
30 .477 -.100 .02975 1.96610 1.96578 -.00032
31 .510 .000 .02846 1.89648 1.89241 -.00407
32 .522 .100 .01696 1.75623 1.75328 -.00294
33 .520 .160 .02330 1.63625 1.63683 .00058
34 .500 .240 .02102 1.41224 1.41798 .00574
35 .456 .300 .01795 1.14765 1.15159 .00394
36 .400 .330 .01147 .91522 .91268 -.00254
37 .360 .337 .01762 .78912 .78354 -.00558
38 .300 .320 .01648 .68785 .68274 -.00510
39 .250 .290 .01901 .66230 .65991 -.00239
40 .300 .245 .01901 .89407 .89251 -.00155
41 .150 .200 .01809 .72694 .72885 .00191
42 .100 .160 .01677 .75642 .75909 .00267
43 .050 .128 .01501 .77202 .77498 .00296
X =
.00000000000, 00 -.50000000000,-01 -.10000000000, 00 -.16000000000, 00 -.22000000000, 00 -.32000000000, 00
-.40000000000, 00 -.50000000000, 00 -.55000000000, 00 -.60000000000, 00 -.64400000000, 00 -.66000000000, 00
-.65500000000, 00 -.63500000000, 00 -.59500000000, 00 -.55200000000, 00 -.50000000000, 00 -.44000000000, 00
-.40000000000, 00 -.35000000000, 00 -.30000000000, 00 -.20400000000, 00 -.10000000000, 00 .00000000000, 00
.10000000000, 00 .23000000000, 00 .30000000000, 00 .35300000000, 00 .43000000000, 00 .47700000000, 00
.51000000000, 00 .52200000000, 00 .52000000000, 00 .50000000000, 00 .45600000000, 00 .40000000000, 00
.36000000000, 00 .30000000000, 00 .25000000000, 00 .30000000000, 00 .15000000000, 00 .10000000000, 00
.50000000000,-01
Y =
.11000000000, 00 .10800000000, 00 .11500000000, 00 .15000000000, 00 .20500000000, 00 .30000000000, 00
.35800000000, 00 .42000000000, 00 .43600000000, 00 .43000000000, 00 .40000000000, 00 .35000000000, 00
.30000000000, 00 .20000000000, 00 .10000000000, 00 .00000000000, 00 -.10500000000, 00 -.20000000000, 00
-.25000000000, 00 -.30000000000, 00 -.34400000000, 00 -.40000000000, 00 -.43600000000, 00 -.44800000000, 00
-.44200000000, 00 -.40000000000, 00 -.35000000000, 00 -.30000000000, 00 -.20000000000, 00 -.10000000000, 00
.00000000000, 00 .10000000000, 00 .16000000000, 00 .24000000000, 00 .30000000000, 00 .33000000000, 00
.33700000000, 00 .32000000000, 00 .29000000000, 00 .24500000000, 00 .20000000000, 00 .16000000000, 00
.12800000000, 00
W =
.14140000000,-01 .14270000000,-01 .19630000000,-01 .23000000000,-01 .38970000000,-01 .27920000000,-01
.33240000000,-01 .14830000000,-01 .14230000000,-01 .15050000000,-01 .14830000000,-01 .14200000000,-01
.28810000000,-01 .30430000000,-01 .30760000000,-01 .33110000000,-01 .31750000000,-01 .18090000000,-01
.19980000000,-01 .18820000000,-01 .31400000000,-01 .34500000000,-01 .28460000000,-01 .28310000000,-01
.38600000000,-01 .24310000000,-01 .20590000000,-01 .35660000000,-01 .31220000000,-01 .29750000000,-01
.28460000000,-01 .16960000000,-01 .23300000000,-01 .21020000000,-01 .17950000000,-01 .11470000000,-01
.17620000000,-01 .16480000000,-01 .19010000000,-01 .19010000000,-01 .18090000000,-01 .16770000000,-01
.15010000000,-01
CBV =
.76399073000, 00 .72347682000, 00 .67048629000, 00 .55576020000, 00 .40386387000, 00 .17015283000, 00
.65003200000,-01 .13596552000,-01 .43440283000,-01 .12444357000, 00 .23541132000, 00 .33512773000, 00
.41040896000, 00 .55792220000, 00 .69969238000, 00 .84369147000, 00 .99145532000, 00 .11218515000, 01
.11914525000, 01 .12650415000, 01 .13345923000, 01 .14450102000, 01 .15512594000, 01 .16434232000, 01
.17343438000, 01 .18551261000, 01 .19150174000, 01 .19568946000, 01 .19950713000, 01 .19657882000, 01
.18924112000, 01 .17532836000, 01 .16368319000, 01 .14179803000, 01 .11515965000, 01 .91268660000, 00
.78354318000, 00 .68274384000, 00 .65991390000, 00 .89251312000, 00 .72885275000, 00 .75909449000, 00
.77498863000, 00
BV =
.76088841000, 00 .72024613000, 00 .66721239000, 00 .55235649000, 00 .40067717000, 00 .17014345000, 00
.69491780000,-01 .20063290000,-01 .45900150000,-01 .12036854000, 00 .22849674000, 00 .33248138000, 00
.41179999000, 00 .56168894000, 00 .70069088000, 00 .84177328000, 00 .98914967000, 00 .11219847000, 01
.11932581000, 01 .12679213000, 01 .13373396000, 01 .14450454000, 01 .15487488000, 01 .16416818000, 01
.17358214000, 01 .18588237000, 01 .19164317000, 01 .19556301000, 01 .19920608000, 01 .19661095000, 01
.18964821000, 01 .17562334000, 01 .16362508000, 01 .14122402000, 01 .11476546000, 01 .91522800000, 00
.78912810000, 00 .68785090000, 00 .66230780000, 00 .89407080000, 00 .72694000000, 00 .75642080000, 00
.77202140000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
Z ( 1) =
.10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01
.10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01
.10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01
.10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01
.10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01
.10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01
.10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01 .10000000000, 01
.10000000000, 01 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
Z ( 2) =
.00000000000, 00 -.50000000000,-01 -.10000000000, 00 -.16000000000, 00 -.22000000000, 00 -.32000000000, 00
-.40000000000, 00 -.50000000000, 00 -.55000000000, 00 -.60000000000, 00 -.64400000000, 00 -.66000000000, 00
-.65500000000, 00 -.63500000000, 00 -.59500000000, 00 -.55200000000, 00 -.50000000000, 00 -.44000000000, 00
-.40000000000, 00 -.35000000000, 00 -.30000000000, 00 -.20400000000, 00 -.10000000000, 00 .00000000000, 00
.10000000000, 00 .23000000000, 00 .30000000000, 00 .35300000000, 00 .43000000000, 00 .47700000000, 00
.51000000000, 00 .52200000000, 00 .52000000000, 00 .50000000000, 00 .45600000000, 00 .40000000000, 00
.36000000000, 00 .30000000000, 00 .25000000000, 00 .30000000000, 00 .15000000000, 00 .10000000000, 00
.50000000000,-01 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
Z ( 3) =
.11000000000, 00 .10800000000, 00 .11500000000, 00 .15000000000, 00 .20500000000, 00 .30000000000, 00
.35800000000, 00 .42000000000, 00 .43600000000, 00 .43000000000, 00 .40000000000, 00 .35000000000, 00
.30000000000, 00 .20000000000, 00 .10000000000, 00 .00000000000, 00 -.10500000000, 00 -.20000000000, 00
-.25000000000, 00 -.30000000000, 00 -.34400000000, 00 -.40000000000, 00 -.43600000000, 00 -.44800000000, 00
-.44200000000, 00 -.40000000000, 00 -.35000000000, 00 -.30000000000, 00 -.20000000000, 00 -.10000000000, 00
.00000000000, 00 .10000000000, 00 .16000000000, 00 .24000000000, 00 .30000000000, 00 .33000000000, 00
.33700000000, 00 .32000000000, 00 .29000000000, 00 .24500000000, 00 .20000000000, 00 .16000000000, 00
.12800000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
Z ( 4) =
-.12100000000,-01 -.91640000000,-02 -.32250000000,-02 .31000000000,-02 .63750000000,-02 .12400000000,-01
.31836000000,-01 .73600000000,-01 .11240400000, 00 .17510000000, 00 .25473600000, 00 .31310000000, 00
.33902500000, 00 .36322500000, 00 .34402500000, 00 .30470400000, 00 .23897500000, 00 .15360000000, 00
.97500000000,-01 .32500000000,-01 -.28336000000,-01 -.11838400000, 00 -.18009600000, 00 -.20070400000, 00
-.18536400000, 00 -.10710000000, 00 -.32500000000,-01 .34609000000,-01 .14490000000, 00 .21752900000, 00
.26010000000, 00 .26248400000, 00 .24480000000, 00 .19240000000, 00 .11793600000, 00 .51100000000,-01
.16031000000,-01 -.12400000000,-01 -.21600000000,-01 .29975000000,-01 -.17500000000,-01 -.15600000000,-01
-.13884000000,-01 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
Z ( 5) =
.00000000000, 00 -.10800000000,-01 -.23000000000,-01 -.48000000000,-01 -.90200000000,-01 -.19200000000, 00
-.28640000000, 00 -.42000000000, 00 -.47960000000, 00 -.51600000000, 00 -.51520000000, 00 -.46200000000, 00
-.39300000000, 00 -.25400000000, 00 -.11900000000, 00 .00000000000, 00 .10500000000, 00 .17600000000, 00
.20000000000, 00 .21000000000, 00 .20640000000, 00 .16320000000, 00 .87200000000,-01 .00000000000, 00
-.88400000000,-01 -.18400000000, 00 -.21000000000, 00 -.21180000000, 00 -.17200000000, 00 -.95400000000,-01
.00000000000, 00 .10440000000, 00 .16640000000, 00 .24000000000, 00 .27360000000, 00 .26400000000, 00
.24264000000, 00 .19200000000, 00 .14500000000, 00 .14700000000, 00 .60000000000,-01 .32000000000,-01
.12800000000,-01 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
Z ( 6) =
.00000000000, 00 .16246000000,-02 .29675000000,-02 .67040000000,-02 .17088500000,-01 .53632000000,-01
.89796800000,-01 .13960000000, 00 .14728340000, 00 .11682000000, 00 .42030020000,-01 -.44946000000,-01
-.10416137000, 00 -.17984787000, 00 -.19279487000, 00 -.16819660000, 00 -.10846250000, 00 -.32384000000,-01
.11000000000,-01 .51625000000,-01 .79502400000,-01 .89430336000,-01 .56028800000,-01 .00000000000, 00
-.57609200000,-01 -.98233000000,-01 -.83250000000,-01 -.51323023000,-01 .27907000000,-01 .94221330000,-01
.13265100000, 00 .12657664000, 00 .10067200000, 00 .38600000000,-01 -.28301190000,-01 -.66680000000,-01
-.75998520000,-01 -.65160000000,-01 -.47450000000,-01 -.27022500000,-01 -.14625000000,-01 -.66800000000,-02
-.23326000000,-02 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
Z ( 7) =
-.13310000000,-02 -.44971200000,-03 .19291250000,-02 .81450000000,-02 .21150875000,-01 .65160000000,-01
.12595729000, 00 .24091200000, 00 .31278815000, 00 .38489300000, 00 .43368320000, 00 .41450500000, 00
.35912250000, 00 .23393500000, 00 .10520750000, 00 .00000000000, 00 -.77592375000,-01 -.10816000000, 00
-.10437500000, 00 -.83250000000,-01 -.52172416000,-01 .14060800000,-01 .69801856000,-01 .89915392000,-01
.73090888000,-01 .52000000000,-03 -.51625000000,-01 -.85148100000,-01 -.10294000000, 00 -.67258700000,-01
.00000000000, 00 .80745200000,-01 .12569600000, 00 .16617600000, 00 .16014240000, 00 .12246300000, 00
.92752850000,-01 .53632000000,-01 .29986000000,-01 .51443875000,-01 .55000000000,-02 .70400000000,-03
-.11371520000,-02 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
Z ( 8) =
.14641000000,-03 -.32661110000,-04 -.51859938000,-03 -.22943900000,-02 -.80954000000,-02 -.36710240000,-01
-.81011430000,-01 -.17098304000, 00 -.21738151000, 00 -.23559599000, 00 -.20054062000, 00 -.11541239000, 00
-.39511050000,-01 .67416400000,-01 .10419220000, 00 .92844527000,-01 .46084050000,-01 -.73830400000,-02
-.30493750000,-01 -.43043750000,-01 -.41798032000,-01 -.12619469000,-01 .24830729000,-01 .40282095000,-01
.26545252000,-01 -.22385590000,-01 -.43043750000,-01 -.43661458000,-01 -.85879900000,-02 .38217705000,-01
.67652010000,-01 .57998490000,-01 .32238080000,-01 -.20582240000,-01 -.60948060000,-01 -.67084790000,-01
-.58617177000,-01 -.36710240000,-01 -.20558440000,-01 -.20710500000,-01 -.32937500000,-02 -.78064000000,-03
.28925450000,-04 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
Z ( 9) =
.00000000000, 00 .19794240000,-03 .14835000000,-03 -.29760000000,-03 -.11500500000,-02 -.47616000000,-02
-.18235664000,-01 -.61824000000,-01 -.10781792000, 00 -.18070320000, 00 -.26247996000, 00 -.28930440000, 00
-.26647362000, 00 -.18451828000, 00 -.81877948000,-01 .00000000000, 00 .50184750000,-01 .54067200000,-01
.39000000000,-01 .13650000000,-01 -.11697100000,-01 -.38640538000,-01 -.31408742000,-01 .00000000000, 00
.32772355000,-01 .39412800000,-01 .13650000000,-01 -.14660370000,-01 -.49845600000,-01 -.41504532000,-01
.00000000000, 00 .54806656000,-01 .81469440000,-01 .92352000000,-01 .64534570000,-01 .26980800000,-01
.77795240000,-02 -.47616000000,-02 -.62640000000,-02 .88126500000,-02 -.21000000000,-02 -.99840000000,-03
-.35543040000,-03 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
Z (10) =
.00000000000, 00 -.19744722000,-04 .34799690000,-04 .41174240000,-03 .20167482000,-02 .13175757000,-01
.38932940000,-01 .11145760000, 00 .16656845000, 00 .21905997000, 00 .23414014000, 00 .17742873000, 00
.10582183000, 00 -.59057600000,-02 -.53806564000,-01 -.51250178000,-01 -.17772626000,-01 .14061978000,-01
.21947500000,-01 .19160313000,-01 .85156080000,-02 -.12881843000,-01 -.16177284000,-01 .00000000000, 00
.17139906000,-01 .10616434000,-01 -.81356250000,-02 -.19810607000,-01 -.13661956000,-01 .14079392000,-01
.34502525000,-01 .24794546000,-01 .37286910000,-02 -.32455600000,-01 -.47152689000,-01 -.35737580000,-01
-.23723885000,-01 -.94893600000,-02 -.33230510000,-02 -.83722500000,-02 -.74062500000,-04 .81680000000,-04
.46941360000,-04 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
Z (11) =
.16105100000,-04 -.13424520000,-04 -.74473930000,-04 -.29654250000,-03 -.14065459000,-02 -.94893600000,-02
-.21707828000,-01 -.40900880000,-01 -.35478490000,-01 .71156400000,-02 .88820840000,-01 .15054656000, 00
.16268692000, 00 .13065240000, 00 .59136600000,-01 .00000000000, 00 -.29931201000,-01 -.22312960000,-01
-.79765620000,-02 .81356250000,-02 .17887653000,-01 .12930458000,-01 -.76853240000,-02 -.18046378000,-01
-.84557660000,-02 .18019180000,-01 .19160313000,-01 .79233270000,-02 -.19716010000,-01 -.23619432000,-01
.00000000000, 00 .34408925000,-01 .47522198000,-01 .41236262000,-01 .11143350000,-01 -.11345661000,-01
-.16953360000,-01 -.13175757000,-01 -.75279490000,-02 -.24302770000,-02 -.97375000000,-03 -.22474240000,-03
-.14069063000,-04 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
ORTHV( 1) =
.99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00
.99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00
.99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00
.99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00
.99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00
.99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00
.99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00 .99999500000, 00
.99999500000, 00 .99999500000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
ORTHV( 2) =
.18091427000, 00 .54155198000,-01 -.72603875000,-01 -.22471475000, 00 -.37682564000, 00 -.63034379000, 00
-.83315831000, 00 -.10866764000, 01 -.12134355000, 01 -.13401946000, 01 -.14517425000, 01 -.14923054000, 01
-.14796295000, 01 -.14289259000, 01 -.13275186000, 01 -.12185058000, 01 -.10866764000, 01 -.93456557000, 00
-.83315831000, 00 -.70639923000, 00 -.57964016000, 00 -.33626274000, 00 -.72603875000,-01 .18091427000, 00
.43443242000, 00 .76400601000, 00 .94146872000, 00 .10758333000, 01 .12710423000, 01 .13901958000, 01
.14738568000, 01 .15042790000, 01 .14992086000, 01 .14485050000, 01 .13369570000, 01 .11949868000, 01
.10935796000, 01 .94146872000, 00 .81470964000, 00 .94146872000, 00 .56119149000, 00 .43443242000, 00
.30767335000, 00 .18091427000, 00 .25351814000, 01 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
ORTHV( 3) =
.38077157000, 00 .34986617000, 00 .35105210000, 00 .44732308000, 00 .61490817000, 00 .90610240000, 00
.10748749000, 01 .12484008000, 01 .12816781000, 01 .12365099000, 01 .11086176000, 01 .92272463000, 00
.74681667000, 00 .39975553000, 00 .62204002000,-01 -.27392111000, 00 -.62359539000, 00 -.93380881000, 00
-.10930750000, 01 -.12475863000, 01 -.13807035000, 01 -.15347371000, 01 -.16136526000, 01 -.16088930000, 01
-.15399508000, 01 -.13283787000, 01 -.11168098000, 01 -.91332406000, 00 -.52014138000, 00 -.14122310000, 00
.23103847000, 00 .59331495000, 00 .80630642000, 00 .10820534000, 01 .12750747000, 01 .13554191000, 01
.13613598000, 01 .12722140000, 01 .11414689000, 01 .10047859000, 01 .77300716000, 00 .60660489000, 00
.46872824000, 00 -.11456249000,-01 .47547983000, 00 .35657072000, 01 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
ORTHV( 4) =
-.79823084000, 00 -.80067049000, 00 -.79715824000, 00 -.84591472000, 00 -.95234255000, 00 -.11314958000, 01
-.11363566000, 01 -.99645490000, 00 -.76925127000, 00 -.32886317000, 00 .28084893000, 00 .78622687000, 00
.10665792000, 01 .14311515000, 01 .14902281000, 01 .14042354000, 01 .11394765000, 01 .71813505000, 00
.41957389000, 00 .61596314000,-01 -.27664894000, 00 -.78143528000, 00 -.11106587000, 01 -.11848816000, 01
-.10288778000, 01 -.46140586000, 00 .32308239000,-01 .46208864000, 00 .11312984000, 01 .15094606000, 01
.16607847000, 01 .15075803000, 01 .12712447000, 01 .73648366000, 00 .63127163000,-01 -.50803500000, 00
-.79805526000, 00 -.10081120000, 01 -.10494365000, 01 -.56626296000, 00 -.91487780000, 00 -.85755024000, 00
-.81573714000, 00 -.51512617000, 00 .54781566000, 00 -.17716119000, 01 .72915218000, 01 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
ORTHV( 5) =
.18981381000, 00 .18212744000, 00 .17475536000, 00 .12803558000, 00 .93802955000,-04 -.38283436000, 00
-.76609576000, 00 -.13297297000, 01 -.15742390000, 01 -.16959509000, 01 -.16291856000, 01 -.13290517000, 01
-.97979526000, 00 -.29957491000, 00 .31698759000, 00 .83300432000, 00 .12465664000, 01 .14633005000, 01
.14900215000, 01 .14254110000, 01 .12926716000, 01 .87268738000, 00 .29307249000, 00 -.30636385000, 00
-.88181795000, 00 -.14708733000, 01 -.16128321000, 01 -.16083570000, 01 -.13434388000, 01 -.86437106000, 00
-.28253741000, 00 .35064980000, 00 .72721854000, 00 .11834505000, 01 .14200295000, 01 .14142870000, 01
.13264542000, 01 .10846619000, 01 .85246233000, 00 .80444616000, 00 .42659404000, 00 .29664451000, 00
.22061041000, 00 .11601141000, 00 -.10299527000, 01 .72452555000, 00 .48722419000, 00 .54782807000, 01
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
ORTHV( 6) =
-.22439014000, 00 -.16640021000, 00 -.11311004000, 00 -.49521238000,-01 .66231974000,-01 .47868721000, 00
.93068800000, 00 .15880767000, 01 .17567631000, 01 .15337821000, 01 .83305321000, 00 -.40547616000,-01
-.64723534000, 00 -.13993441000, 01 -.14865983000, 01 -.11641636000, 01 -.47404492000, 00 .34695177000, 00
.78480969000, 00 .11567580000, 01 .13698078000, 01 .12599795000, 01 .64003964000, 00 -.19396392000, 00
-.98793296000, 00 -.14967635000, 01 -.12604325000, 01 -.80772268000, 00 .27909752000, 00 .11697197000, 01
.16759236000, 01 .15734277000, 01 .12060794000, 01 .32769000000, 00 -.64217597000, 00 -.12363963000, 01
-.14092013000, 01 -.13030612000, 01 -.10690714000, 01 -.71443887000, 00 -.56031300000, 00 -.40687146000, 00
-.29966720000, 00 -.11776283000, 00 -.71537430000, 00 -.74472034000, 00 .20419912000, 01 .48098507000, 00
.12268324000, 02 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
ORTHV( 7) =
-.78303128000, 00 -.82670960000, 00 -.87782819000, 00 -.99231211000, 00 -.11251143000, 01 -.11901667000, 01
-.94296622000, 00 -.20726089000, 00 .38853264000, 00 .11203441000, 01 .17679318000, 01 .18477265000, 01
.15528102000, 01 .78394589000, 00 -.60386533000,-01 -.69968161000, 00 -.10675443000, 01 -.10223156000, 01
-.80722121000, 00 -.42666585000, 00 .24115536000,-01 .83016678000, 00 .14193087000, 01 .15394855000, 01
.12072960000, 01 .17010108000, 00 -.54611511000, 00 -.10124807000, 01 -.13137230000, 01 -.94392447000, 00
-.17576350000, 00 .76332275000, 00 .12852945000, 01 .17341260000, 01 .15897648000, 01 .10354691000, 01
.60165256000, 00 .26740050000,-01 -.32587375000, 00 .63548022000,-01 -.67339898000, 00 -.73552799000, 00
-.76015103000, 00 -.50063003000, 00 .62880748000, 00 -.24045999000, 01 .24167570000, 00 .24954270000, 01
-.44240286000, 00 .11247907000, 02 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
ORTHV( 8) =
.55102002000, 00 .58645009000, 00 .62428330000, 00 .73203588000, 00 .88408873000, 00 .94749583000, 00
.56688291000, 00 -.60706421000, 00 -.13943599000, 01 -.19442944000, 01 -.18003310000, 01 -.85006750000, 00
.45289579000,-01 .11446080000, 01 .11943730000, 01 .55020793000, 00 -.50255456000, 00 -.13472553000, 01
-.15508542000, 01 -.14391875000, 01 -.10484757000, 01 .87104467000,-01 .11285561000, 01 .13864951000, 01
.80573497000, 00 -.74981468000, 00 -.14008705000, 01 -.14816721000, 01 -.62478891000, 00 .61501606000, 00
.14574617000, 01 .13413081000, 01 .76525341000, 00 -.48887054000, 00 -.14679685000, 01 -.15829690000, 01
-.13224276000, 01 -.66652200000, 00 -.16426751000, 00 -.28328812000, 00 .39611816000, 00 .48883284000, 00
.52627678000, 00 .32234679000, 00 -.39832310000, 00 .16860255000, 01 -.35606157000, 01 -.20279340000, 01
.57521862000, 01 .23456721000, 01 .22192140000, 02 .00000000000, 00 .00000000000, 00 .00000000000, 00
ORTHV( 9) =
-.45955274000, 00 -.35755074000, 00 -.24995704000, 00 -.11053534000, 00 .87766258000,-01 .63296047000, 00
.11288219000, 01 .15502927000, 01 .13488167000, 01 .51243557000, 00 -.80100787000, 00 -.15824341000, 01
-.15976266000, 01 -.90491107000, 00 .20968329000, 00 .10436154000, 01 .13189151000, 01 .84327198000, 00
.31069788000, 00 -.35764783000, 00 -.92765981000, 00 -.13190668000, 01 -.78834099000, 00 .27551224000, 00
.12751762000, 01 .14767473000, 01 .72245107000, 00 -.12051077000, 00 -.12653925000, 01 -.12528713000, 01
-.32237525000, 00 .10187241000, 01 .16797819000, 01 .18934508000, 01 .10021637000, 01 -.20543081000, 00
-.85024971000, 00 -.12807004000, 01 -.12997190000, 01 -.68241251000, 00 -.91830207000, 00 -.73739478000, 00
-.58203234000, 00 -.27135492000, 00 -.91327396000, 00 -.13336863000, 01 .26991516000, 01 -.34108894000, 01
-.10926272000, 01 .64046102000, 01 -.21043290000, 01 .23555474000, 02 .00000000000, 00 .00000000000, 00
ORTHV(10) =
.56769322000, 00 .47459886000, 00 .37529677000, 00 .22902504000, 00 -.29245545000,-01 -.75814991000, 00
-.12693359000, 01 -.11056706000, 01 -.28041898000, 00 .10461666000, 01 .20123702000, 01 .14237750000, 01
.33769500000, 00 -.11595225000, 01 -.11814670000, 01 -.21013213000, 00 .10346085000, 01 .14670507000, 01
.11525928000, 01 .39253260000, 00 -.48993602000, 00 -.14872851000, 01 -.10651410000, 01 .30267749000, 00
.14172762000, 01 .84654413000, 00 -.42465406000, 00 -.12574176000, 01 -.11814109000, 01 .23876902000, 00
.13923885000, 01 .10676716000, 01 .10584892000, 00 -.15393325000, 01 -.19670925000, 01 -.98114772000, 00
-.10871432000, 00 .83211815000, 00 .11580742000, 01 .51125088000, 00 .10013547000, 01 .83575431000, 00
.68434980000, 00 .34981017000, 00 .62306451000, 00 .15884627000, 01 -.27471804000, 01 .26259118000, 01
-.89065461000, 01 -.57305481000, 01 .15599810000, 02 .43980736000, 01 .45372355000, 02 .00000000000, 00
ORTHV(11) =
.56098628000, 00 .60525530000, 00 .63997055000, 00 .72380950000, 00 .82845115000, 00 .73494149000, 00
.12477575000, 00 -.13319182000, 01 -.19670249000, 01 -.17316141000, 01 -.29174653000, 00 .11200854000, 01
.14771642000, 01 .77284113000, 00 -.61485446000, 00 -.14174620000, 01 -.11628807000, 01 -.38616697000,-01
.64765981000, 00 .11118669000, 01 .11257507000, 01 .13044567000, 00 -.11426954000, 01 -.13774719000, 01
-.41368614000, 00 .13315981000, 01 .13457626000, 01 .63350557000, 00 -.10752539000, 01 -.14991116000, 01
-.48744750000, 00 .10753438000, 01 .16194111000, 01 .11442346000, 01 -.41994206000, 00 -.14182396000, 01
-.15250174000, 01 -.98116325000, 00 -.40235519000, 00 -.35659195000, 00 .32262116000, 00 .45572501000, 00
.51948438000, 00 .32587539000, 00 -.66787069000, 00 .16578738000, 01 -.34405579000, 01 -.21355981000, 01
.39643260000, 01 -.81232322000, 01 -.28493973000, 01 .14176898000, 02 .25817176000, 01 .44661036000, 02
ORTHV(12) =
-.10310559000, 01 -.10737387000, 01 -.10881514000, 01 -.11313062000, 01 -.10591200000, 01 -.30114984000,-02
.14920974000, 01 .21496275000, 01 .81777007000, 00 -.13544230000, 01 -.22982785000, 01 -.87952706000, 00
.46243453000, 00 .12521285000, 01 .33196285000, 00 -.63757676000, 00 -.76633328000, 00 .44341489000,-01
.60023883000, 00 .95726427000, 00 .91325518000, 00 .11733542000,-01 -.83444433000, 00 -.57883260000, 00
.49121328000, 00 .12291633000, 01 .47020592000, 00 -.42028020000, 00 -.10006418000, 01 .10689822000, 00
.13532131000, 01 .98053192000, 00 -.19298852000, 00 -.19078806000, 01 -.13100350000, 01 .84491477000, 00
.18565455000, 01 .16976840000, 01 .79588319000, 00 .51781153000, 00 -.63567879000, 00 -.88860144000, 00
-.98616934000, 00 -.33299095000, 03 -.33155983000, 03 .66177954000, 03 -.49206594000, 03 .30223837000, 01
-.62567340000, 02 -.20719404000, 03 .11804512000, 03 -.78860274000, 01 .39372889000, 02 .93216397000, 02
DEV =
-.31019000000,-02 -.32303100000,-02 -.32736700000,-02 -.34035000000,-02 -.31863300000,-02 -.90600000000,-05
.44889290000,-02 .64670880000,-02 .24602360000,-02 -.40747400000,-02 -.69143000000,-02 -.26460300000,-02
.13912200000,-02 .37669900000,-02 .99870000000,-03 -.19181300000,-02 -.23054900000,-02 .13340000000,-03
.18058000000,-02 .28799000000,-02 .27475000000,-02 .35300000000,-04 -.25104000000,-02 -.17414000000,-02
.14778000000,-02 .36979000000,-02 .14146000000,-02 -.12644000000,-02 -.30104000000,-02 .32160000000,-03
.40711000000,-02 .29499000000,-02 -.58060000000,-03 -.57398000000,-02 -.39412000000,-02 .25419000000,-02
.55853600000,-02 .51074300000,-02 .23943900000,-02 .15578200000,-02 -.19124200000,-02 -.26733300000,-02
-.29668600000,-02
COF =
.10017930000, 01 .99748751000, 00 -.19909433000, 01 .14803652000, 01 -.90927480000,-02 .18823191000, 00
.62333689000, 00 -.35513511000, 00 .23724870000,-01 -.11845212000, 00 -.28043865000, 00
STD =
.53182724000,-03
CV ( 1) =
.19822656000, 01 -.59297670000,-01 .42486303000, 01 -.80233565000, 01 -.17588931000, 00 -.89630820000, 00
-.11264608000, 02 .12253009000, 02 -.23350080000, 00 .16713029000, 02 .14553932000, 02
CV ( 2) =
.00000000000, 00 .10748280000, 02 -.57169120000, 00 .17231591000, 01 .25679539000, 01 -.18545000000, 02
.21440365000, 01 .47049036000, 01 -.28240652000, 02 .26545651000, 02 -.29827796000, 02
CV ( 3) =
.00000000000, 00 .00000000000, 00 .32607678000, 02 -.34337497000, 02 -.62902970000, 00 -.44924790000, 01
-.54203648000, 02 .60278802000, 02 -.92593000000, 00 .76352454000, 02 .74042361000, 02
CV ( 4) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .96979653000, 02 .24023835000, 01 .12342795000, 02
.55344621000, 02 -.11774956000, 03 .27210560000, 01 -.13352858000, 03 -.15365888000, 03
CV ( 5) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .63672933000, 02 -.34995337000, 02
.37660910000, 01 .92223304000, 01 -.99072319000, 02 .11363029000, 03 -.95378023000, 02
CV ( 6) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .28003140000, 03
.20355034000, 02 -.20283799000, 02 -.87071510000, 01 -.39387620000, 03 .17705090000, 03
CV ( 7) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.27186269000, 03 -.27671069000, 02 .10498020000, 02 -.28098035000, 03 -.36279196000, 03
CV ( 8) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .74839240000, 03 -.21354969000, 02 .70044378000, 03 -.12725703000, 03
CV ( 9) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .77518783000, 03 .23615169000, 03 .63315495000, 03
CV (10) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .20653157000, 04 .11530218000, 03
CV (11) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .19946081000, 04
CV (12) =
.14079295000, 01 .32784568000, 01 .57103131000, 01 .98478246000, 01 .79795320000, 01 .16734138000, 02
.16488259000, 02 .27356761000, 02 .27842195000, 02 .45445744000, 02 .44661034000, 02
VCV ( 1) =
.56066441000,-06 -.16771765000,-07 .12016834000,-05 -.22693278000,-05 -.49748569000,-07 -.25351199000,-06
-.31860840000,-05 .34656436000,-05 -.66043415000,-07 .47271166000,-05 .41164371000,-05
VCV ( 2) =
.00000000000, 00 .30400457000,-05 -.16169725000,-06 .48737868000,-06 .72632062000,-06 -.52452716000,-05
.60641973000,-06 .13307359000,-05 -.79875919000,-05 .75081775000,-05 -.84365000000,-05
VCV ( 3) =
.00000000000, 00 .00000000000, 00 .92227624000,-05 -.97120248000,-05 -.17791489000,-06 -.12706537000,-05
-.15330971000,-04 .17049269000,-04 -.26189023000,-06 .21595544000,-04 .20942156000,-04
VCV ( 4) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .27429745000,-04 .67949065000,-06 .34910387000,-05
.15653684000,-04 -.33304310000,-04 .76962405000,-06 -.37767251000,-04 -.43460909000,-04
VCV ( 5) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .18009265000,-04 -.98980884000,-05
.10652019000,-05 .26084458000,-05 -.28021635000,-04 .32139215000,-04 -.26976740000,-04
VCV ( 6) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .79204139000,-04
.57572220000,-05 -.57370739000,-05 -.24627324000,-05 -.11140402000,-03 .50077113000,-04
VCV ( 7) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.76893700000,-04 -.78264909000,-05 .29692621000,-05 -.79472541000,-04 -.10261215000,-03
VCV ( 8) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .21167546000,-03 -.60400439000,-05 .19811366000,-03 -.35993405000,-04
VCV ( 9) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .21925428000,-03 .66793193000,-04 .17908167000,-03
VCV (10) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .58415432000,-03 .32612092000,-04
VCV (11) =
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .56415537000,-03
VCV (12) =
.74877526000,-03 .17435726000,-02 .30369000000,-02 .52373413000,-02 .42437324000,-02 .88996704000,-02
.87689052000,-02 .14549070000,-01 .14807237000,-01 .24169284000,-01 .23751954000,-01
EP =
.94481477000,-01 .70814687000,-01 .30811633000,-01 .10512005000,-01 .94616035000,-02 .86705762000,-02
.28740655000,-02 .15152546000,-02 .12514215000,-02 .12081566000,-02 .52258335000,-03
A ( 1) =
.99999500000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
A ( 2) =
.18091427000, 00 .25351814000, 01 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
A ( 3) =
-.11456249000,-01 .47547983000, 00 .35657072000, 01 .00000000000, 00 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
A ( 4) =
-.51512617000, 00 .54781566000, 00 -.17716119000, 01 .72915218000, 01 .00000000000, 00 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
A ( 5) =
.11601141000, 00 -.10299527000, 01 .72452555000, 00 .48722419000, 00 .54782807000, 01 .00000000000, 00
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
A ( 6) =
-.11776283000, 00 -.71537430000, 00 -.74472034000, 00 .20419912000, 01 .48098507000, 00 .12268324000, 02
.00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
A ( 7) =
-.50063003000, 00 .62880748000, 00 -.24045999000, 01 .24167570000, 00 .24954270000, 01 -.44240286000, 00
.11247907000, 02 .00000000000, 00 .00000000000, 00 .00000000000, 00 .00000000000, 00
A ( 8) =
.32234679000, 00 -.39832310000, 00 .16860255000, 01 -.35606157000, 01 -.20279340000, 01 .57521862000, 01
.23456721000, 01 .22192140000, 02 .00000000000, 00 .00000000000, 00 .00000000000, 00
A ( 9) =
-.27135492000, 00 -.91327396000, 00 -.13336863000, 01 .26991516000, 01 -.34108894000, 01 -.10926272000, 01
.64046102000, 01 -.21043290000, 01 .23555474000, 02 .00000000000, 00 .00000000000, 00
A (10) =
.34981017000, 00 .62306451000, 00 .15884627000, 01 -.27471804000, 01 .26259118000, 01 -.89065461000, 01
-.57305481000, 01 .15599810000, 02 .43980736000, 01 .45372355000, 02 .00000000000, 00
A (11) =
.32587539000, 00 -.66787069000, 00 .16578738000, 01 -.34405579000, 01 -.21355981000, 01 .39643260000, 01
-.81232322000, 01 -.28493973000, 01 .14176898000, 02 .25817176000, 01 .44661036000, 02
GF =
.10000050000, 01 .39444908000, 00 .28044927000, 00 .13714558000, 00 .18253902000, 00 .81510725000,-01
.88905426000,-01 .45060999000,-01 .42452977000,-01 .22039852000,-01 .22390882000,-01 .30084691000,-02
Q =
.10575557000, 01 .41148509000, 00 -.40942553000, 00 .18347938000, 00 -.30128957000,-01 .24904116000,-01
.49842252000,-01 -.14731233000,-01 .52071090000,-02 -.22533730000,-02 -.62792690000,-02 .14933475000, 01
Q2 =
.11184240000, 01 .16931997000, 00 .16762926000, 00 .33664682000,-01 .90775404000,-03 .62021499000,-03
.24842500000,-02 .21700922000,-03 .27113984000,-04 .50776898000,-05 .39429219000,-04
E =
.37492350000, 00 .20560353000, 00 .37974270000,-01 .43095880000,-02 .34018340000,-02 .27816191000,-02
.29736910000,-03 .80359880000,-04 .53245896000,-04 .48168207000,-04 .87389880000,-05
ENF =
.10000050000, 01 .40085234000, 00 .28562298000, 00 .17750536000, 00 .21074417000, 00 .88491857000,-01
.14230965000, 00 .68284810000,-01 .84648748000,-01 .57770283000,-01 .46122049000,-01
Reference in New Issue View Git Blame Copy Permalink