github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-03-02 01:40:31 +00:00
Code Issues Releases Wiki Activity
Files
master
pkimpel.retro-220/software/BALGOL/BALGOL-Examples/Simpsons-Rule/SIMPS-List-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

1213 lines
78 KiB
Plaintext
Raw Permalink 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 SIMPSON-S RULE INTEGRATION PROCEDURE, TRANSLATED TO BALGOL
0200 FROM THE EXAMPLE IN THE PRELIMINARY IAL REPORT$
0200
0200 COMMENT
0200 EXAMPLE.. INTEGRATION OF A FUNCTION F(X) BY SIMPSON-S RULE. THE
0200 VALUES OF F(X) ARE SUPPLIED BY AN ASSUMED EXISTENT FUNCTION
0200 ROUTINE. THE MESH SIZE IS HALVED UNTIL TWO SUCCESSIVE SIMPSON
0200 SUMS AGREE WITHIN A PRESCRIBED ERROR. DURING THE MESH REDUCTION
0200 F(X) IS EVALUATED AT MOST ONCE FOR ANY X. A VALUE V GREATER THAN
0200 THE MAXIMUM ABSOLUTE VALUE ATTAINED BY THE FUNCTION ON THE
0200 INTERVAL IS REQUIRED FOR INITIALZING$
0200
0200 0 0000 30
0201 0 4999 01 0201
0202 0 0000 40 4995 TEMP
0203 0 0000 30
0204 PROCEDURE SIMPS(A, B, DELTA, V$$ F())$
0204 COMMENT A, B ARE THE MIN AND MAX, RESP. OF THE POINTS DEF.
0204 INTERVAL OF INTEG. F() IS THE FUNCTION TO INTEGRATED.
0204 DELTA IS THE PERMISSIBLE DIFFERENCE BETWEEN TO SUCCESSIVE SIMPSON
0204 SUMS. V IS GREATER THAN THE MAXIMUM ABSOLUTE VALUE OF F ON A, B$
0204 BEGIN
0204 MONITOR IBAR, N, H, J, S, K, I$
0204 INTEGER K, N$
0204
0204 0 0000 10 4998 B
0205 0 0000 23 4999 A
0204 IBAR = V(B-A)$
0206 0 0000 24 4996 V
0207 0 0000 40 4938 IBAR
0208 0 1000 44 4939 MONIT
0209 0 4937 30 4939
0210 N = 1$
0210 0 0000 10 4936 CONST
0211 0 0000 40 4935 N
0212 0 1100 44 4939 MONIT
0213 0 4934 30 4939
0214 0 0000 10 4998 B
0215 0 0000 23 4999 A
0214 H = (B-A)/2$
0216 0 0002 45 0000
0217 0 0000 25 4933 CONST
0218 0 0000 40 4932 H
0219 0 1000 44 4939 MONIT
0220 0 4931 30 4939
0221 0 0000 10 4999 A
0222 0 0000 44 4995 F
0223 0 0000 30 4995
0224 0 0000 40 4930 TEMP
0225 0 0000 10 4998 B
0226 0 0000 44 4995 F
0227 0 0000 30 4995
0228 0 0000 22 4930 TEMP
0221 J = H(F(A) + F(B))$
0221
0229 0 0000 24 4932 H
0230 0 0000 40 4929 J
0231 0 1000 44 4939 MONIT
0232 0 4928 30 4939
0233 J1..
0233 0 0000 44 4875 LABEL
0234 0 4874 30 4875
0233 S = 0$
0235 0 0000 46 4873 S
0236 0 1000 44 4939 MONIT
0237 0 4872 30 4939
0238 0 0000 10 4936 CONST
0239 0 0000 40 4871 K
0240 0 1100 44 4939 MONIT
0241 0 4870 30 4939
0242 0 0000 44
0243 0 0000 30
0244 0 0000 10 4936 CONST
0245 0 0000 12 4871 K
0246 0 0000 40 4871 K
0247 0 1100 44 4939 MONIT
0248 0 4870 30 4939
0243 0249
0249 0 0000 13 4935 N
0250 0 1111 31 0252
0251 0 0000 36
0252 0 0001 33
0238 FOR K = (1, 1, N)$
0253 0 0000 30
0252 0254
0251 0254
0254 0 0000 10 4869 CONST
0255 0 0000 14 4871 K
0256 0 0001 49 0010
0257 0 0000 13 4936 CONST
0258 0 1100 44 4855 FLOAT
0259 0 0000 30 4855
0260 0 0000 24 4932 H
0261 0 0000 22 4999 A
0253 S = S + F(A + (2K-1)H)$
0253
0262 0 0000 44 4995 F
0263 0 0000 30 4995
0264 0 0000 22 4873 S
0265 0 0000 40 4873 S
0266 0 1000 44 4939 MONIT
0267 0 4872 30 4939
0253 0269
0242 0268
0268 0 0000 30
0269 I = J + 4H.S$
0269 0 0000 10 4932 H
0270 0 0000 24 4873 S
0271 0 0000 24 4854 CONST
0272 0 0000 22 4929 J
0273 0 0000 40 4853 I
0274 0 1000 44 4939 MONIT
0275 0 4852 30 4939
0276 0 0000 10 4853 I
0277 0 0000 23 4938 IBAR
0276 IF DELTA LSS ABS(I-IBAR)$
0278 0 0000 43 0000
0279 0 0000 13 4997 DELTA
0280 0 1111 31 0282
0281 0 0000 36
0282 0 0001 33
0276 BEGIN
0276 IBAR = I$
0283 0 0000 10 4853 I
0284 0 0000 40 4938 IBAR
0285 0 1000 44 4939 MONIT
0286 0 4937 30 4939
0287 0 0000 10 4929 J
0288 0 0000 22 4853 I
0287 J = (I+J)/4$
0289 0 0002 45 0000
0290 0 0000 25 4854 CONST
0291 0 0000 40 4929 J
0292 0 1000 44 4939 MONIT
0293 0 4928 30 4939
0294 N = 2N$
0294 0 0000 10 4869 CONST
0295 0 0000 14 4935 N
0296 0 0001 49 0010
0296 0 0001 40 4935 N
0297 0 1100 44 4939 MONIT
0298 0 4934 30 4939
0299 H = H/2$
0299 0 0000 10 4932 H
0300 0 0002 45 0000
0301 0 0000 25 4933 CONST
0302 0 0000 40 4932 H
0303 0 1000 44 4939 MONIT
0304 0 4931 30 4939
0305 GO TO J1
0305 0 0000 30 0233 J1
0306 END$
0306
0282 0306
0281 0306
0306 SIMPS() = I/3$
0306 0 0000 10 4853 I
0307 0 0002 45 0000
0308 0 0000 25 4851 CONST
0309 0 0000 42 0201
0310 1 0000 30 0000
0309 RETURN$
0311 END SIMPS()$
0311
0203 0311
0311 0 0410 40 0263
0312 0 0410 40 0262
0313 0 0410 40 0227
0314 0 0410 40 0226
0315 0 0410 40 0223
0316 0 0410 40 0222
0317 0 0000 30 0204
0200 0318
0318 0 0000 30
0319 0 4850 01 0319
0320 0 0000 40 4850 TEMP
0321 0 0000 10 4849 CONST
0322 0 0000 24 4850 X
0318 FUNCTION TORADS(X) = 3.1415926X/180$
0318
0323 0 0002 45 0000
0324 0 0000 25 4848 CONST
0325 0 0000 42 0319
0326 1 0000 30 0000
0318 0327
0327 0 0000 30
0328 0 4847 01 0328
0329 0 0000 40 4847 TEMP
0330 0 0000 10 4847 X
0331 0 0000 24 4847 X
0332 0 0000 22 4846 CONST
0327 FUNCTION DARCTAN(X) = 1/(X*2 + 1)$
0327
0333 0 0000 40 4845 TEMP
0334 0 0000 10 4846 CONST
0335 0 0002 45 0000
0336 0 0000 25 4845 TEMP
0337 0 0000 42 0328
0338 1 0000 30 0000
0327 0339
0339 0 0000 30
0340 0 4844 01 0340
0341 0 0000 40 4844 TEMP
0339 PROCEDURE LOGISTICSIGMOID(X)$
0339 BEGIN
0342 0 0000 11 4844 X
0343 0 0000 44 4769 EXP
0344 0 0000 30 4769
0345 0 0000 22 4846 CONST
0342 LOGISTICSIGMOID() = 1/(1 + EXP(-X))$
0346 0 0000 40 4768 TEMP
0347 0 0000 10 4846 CONST
0348 0 0002 45 0000
0349 0 0000 25 4768 TEMP
0350 0 0000 42 0340
0351 1 0000 30 0000
0350 RETURN$
0352 END LOGISTICSIGMOID()$
0352
0339 0352
0352 0 0000 10 4767 CONST
0353 0 0000 44 0319 TORAD
0354 0 0000 30 0319
0355 0 4400 28 0201
0356 1 0000 40 0000
0357 0 0000 10 4766 CONST
0358 0 0000 44 0319 TORAD
0359 0 0000 30 0319
0360 0 4400 28 0201
0361 1 0000 40 9999
0362 0 0000 10 4765 CONST
0363 1 0000 40 9998
0364 0 0000 10 4933 CONST
0365 1 0000 40 9997
0352 SUM = SIMPS(TORADS(30.0), TORADS(90.0), 0.00001, 2.0$$ SIN())$
0366 0 0000 10 0367
0367 0 0000 01 4709
0368 0 0000 44 0201 SIMPS
0369 0 0400 30 0201
0370 0 0000 40 4708 SUM
0371 0 0000 10 0372
0372 0 0000 01 0000 RESUL
0373 0 4400 28 4468
0374 1 0000 40 0000
0371 WRITE($$ RESULT, F1)$
0375 0 0000 10 0376
0376 0 0000 01 0000 F1
0377 0 0000 44 4468 WRITE
0378 0 0100 30 4468
0379 0 0000 10 4467 CONST
0380 0 4400 28 0201
0381 1 0000 40 0000
0382 0 0000 10 4846 CONST
0383 1 0000 40 9999
0384 0 0000 10 4765 CONST
0385 1 0000 40 9998
0386 0 0000 10 4933 CONST
0387 1 0000 40 9997
0379 SUM = SIMPS(0.0, 1.0, 1**-5, 2.0$$ DARCTAN())$
0388 0 0000 10 0389
0389 0 0000 01 0328
0390 0 0000 44 0201 SIMPS
0391 0 0400 30 0201
0392 0 0000 40 4708 SUM
0393 0 0000 10 0394
0394 0 0000 01 0000 RESUL
0395 0 4400 28 4468
0396 1 0000 40 0000
0393 WRITE($$ RESULT, F2)$
0397 0 0000 10 0398
0398 0 0000 01 0000 F2
0399 0 0000 44 4468 WRITE
0400 0 0100 30 4468
0401 0 0000 10 4466 CONST
0402 0 4400 28 0201
0403 1 0000 40 0000
0404 0 0000 10 4851 CONST
0405 1 0000 40 9999
0406 0 0000 10 4765 CONST
0407 1 0000 40 9998
0408 0 0000 10 4933 CONST
0409 1 0000 40 9997
0401 SUM = SIMPS(0.5, 3.0, 1**-5, 2.0$$ LOGISTICSIGMOID())$
0410 0 0000 10 0411
0411 0 0000 01 0340
0412 0 0000 44 0201 SIMPS
0413 0 0400 30 0201
0414 0 0000 40 4708 SUM
0415 0 0000 10 0416
0416 0 0000 01 0000 RESUL
0417 0 4400 28 4468
0418 1 0000 40 0000
0415 WRITE($$ RESULT, F3)$
0415
0419 0 0000 10 0420
0420 0 0000 01 0000 F3
0421 0 0000 44 4468 WRITE
0422 0 0100 30 4468
0423 0 0000 30
0416 0424
0394 0424
0372 0424
0424 0 0000 30
0423 OUTPUT RESULT(SUM)$
0425 0 0000 10 4708 SUM
0426 0 0000 42 0426
0427 0 0002 20 0424
0428 0 0009 43 0000
0429 0 0000 30 0424
0423 0430
0430 0 0000 30
0376 0431
0431 2 6249 55 4500
0432 2 4955 63 4547
0433 2 5941 53 0033
0434 3 0000 00 0014
0435 0 0006 70 1006
0436 0 0006 60 0000
0437 1 0000 00 0431
0430 FORMAT F1(*SINE INTEGRAL = *,X10.6,W0),
0398 0438
0438 2 4441 59 4363
0439 2 4155 00 4955
0440 2 6345 47 5941
0441 3 5300 33 0014
0442 0 0006 70 1006
0443 0 0006 60 0000
0444 1 0000 00 0438
0430 F2(*DARCTAN INTEGRAL = *,X10.6,W0),
0420 0445
0445 2 5356 47 4962
0446 2 6349 43 0049
0447 2 5563 45 4759
0448 3 4153 00 3314
0449 0 0006 70 1006
0450 0 0006 60 0000
0451 1 0000 00 0445
0430 F3(*LOGISTIC INTEGRAL =*,X10.6,W0)$
0430 0452
0452 FINISH$
0452 0 9669 00 9669
0453 0 1000 60 0000
4936 0 0000 00 0001 POOL
4869 0 0000 00 0002
4467 0 0000 00 0000
4846 0 5110 00 0000
4933 0 5120 00 0000
4937 0 4942 41 5900
4934 0 5500 00 0000
4931 0 4800 00 0000
4928 0 5100 00 0000
4874 0 5181 00 0000
4872 0 6200 00 0000
4870 0 5200 00 0000
4854 0 5140 00 0000
4852 0 4900 00 0000
4851 0 5130 00 0000
4849 0 5131 41 5926
4848 0 5318 00 0000
4767 0 5230 00 0000
4766 0 5290 00 0000
4765 0 4610 00 0000
4466 0 5050 00 0000
4855 0 0006 45 0000
4856 0 2200 36 4859
4857 0 0000 48 0001
4858 0 0001 20 4856
4859 0 0001 48 0008
4860 1 0000 10 4865
4861 0 0001 49 0008
4862 0 0000 22 4868
4863 0 0000 42 4855
4864 1 0000 30 0000
4865 0 0000 00 0058
4866 0 0000 00 0059
4867 0 0000 00 0060
4868 0 5800 00 0000
4468 0 0100 01 0000
4469 0 0410 40 4504
4470 0 0000 42 4472
4471 0 0010 29 4704
4472 0 0300 29 0101
4473 0 0000 42 4468
4474 0 0412 40 4553
4475 1 0000 41 9999
4476 0 0009 43 7557
4477 0 2200 37 4481
4478 0 0000 42 0100
4479 1 0000 44 0000
4480 1 2201 37 0001
4481 0 0000 40 0132
4482 0 0412 40 4535
4483 0 0000 41 0130
4484 0 0000 37 4502
4485 0 0000 10 0134
4486 0 0000 46 0133
4487 0 5246 37 4664
4488 0 5267 37 4640
4489 0 5249 37 4578
4490 0 5262 37 4691
4491 0 5241 37 4493
4492 0 0000 30 4679
4493 0 0000 41 4511
4494 0 0001 27 0129
4495 0 0000 44 4636
4496 0 0000 30 4627
4497 0 0000 10 0129
4498 0 0000 36 4518
4499 0 2299 37 4532
4500 0 0001 49 0010
4501 0 0000 30 4494
4502 0 0000 42 4469
4503 0 0000 31 4420 ERROR
4504 0 0000 10 9999
4505 0 0401 26 4504
4506 0 0000 33 4520
4507 0 0000 41 4511
4508 0 0001 33 4536
4509 0 2214 36 4504
4510 0 0000 44 4636
4511 0 9900 30 4627
4512 0 2299 37 4504
4513 0 0001 49 0010
4514 0 0000 30 4509
4515 0 0000 10 0129
4516 0 0000 19 0125
4517 0 0000 19 0125
4518 0 0000 10 0130
4519 0 3300 36 4502
4520 0 3300 36 4522
4521 0 0000 13 4705
4522 0 0000 40 0130
4523 0 0210 40 0131
4524 0 0001 48 0002
4525 0 0310 40 0129
4526 0 7242 36 4515
4527 0 7266 36 4556
4528 0 7257 36 4564
4529 0 7263 36 4566
4530 0 7243 36 4555
4531 0 0300 36 4504
4532 0 0000 10 0132
4533 0 0000 40 0134
4534 0 0009 33 4515
4535 0 0000 30 9999
4536 0 0000 42 4504
4537 0 6600 36 4552
4538 0 0001 49 0003
4539 0 0300 37 4546
4540 0 0000 13 4705
4541 0 3300 36 4548
4542 1 6301 27 9999
4543 1 0000 41 9999
4544 0 0411 40 4504
4545 0 0000 30 4504
4546 1 3310 40 9999
4547 0 0000 30 4540
4548 1 0000 10 9999
4549 0 0001 48 0003
4550 1 6610 40 9999
4551 0 0000 30 4504
4552 0 0000 10 0132
4553 0 0009 33 9999
4554 0 0000 30 4543
4555 0 1008 61 0124
4556 0 0001 48 0003
4557 0 3111 40 4558
4558 0 2408 44 4453 REED
4559 0 0101 30 4453 REED
4560 0 0000 42 4562
4561 0 0010 29 4704
4562 0 0240 29 0101
4563 0 0000 30 4518
4564 0 1008 61 0124
4565 0 0000 30 4560
4566 0 0300 36 4571
4567 0 0010 09 4570
4568 0 0001 12 4548
4569 0 0000 30 4566
4570 2 1602 02 0202
4571 0 0000 10 0125
4572 0 0000 36 4518
4573 0 0000 12 4641
4574 0 0001 48 0004
4575 0 3211 40 4576
4576 0 0990 09 0101
4577 0 0000 30 4560
4578 0 0000 42 4588
4579 0 0000 36 4637
4580 0 1100 36 4638
4581 0 0000 40 0134
4582 0 0003 45 0080
4583 0 0002 40 0128
4584 0 0000 46 0126
4585 0 0410 40 0126
4586 0 0001 40 0127
4587 0 0000 10 0134
4588 0 0002 48 0010
4589 0 0001 43 0023
4590 0 0000 12 0129
4591 0 0000 13 0128
4592 0 0001 33 4679
4593 0 0000 19 0125
4594 0 5000 19 0125
4595 0 0000 10 0134
4596 0 0000 41 4632
4597 0 0000 44 4636
4598 0 0001 33 4626
4599 0 0001 27 0128
4600 0 0000 32 4612
4601 0 0000 41 0127
4602 0 0000 37 4518
4603 0 0000 41 4589
4604 0 0000 44 4636
4605 0 0000 30 4626
4606 0 0000 10 0127
4607 0 0000 13 4594
4608 0 0000 42 4524
4609 0 0000 46 0129
4610 0 0003 26 0129
4611 0 0000 30 4581
4612 0 0001 27 0126
4613 0 0000 41 0126
4614 0 0000 37 4620
4615 0 0000 41 0133
4616 0 0000 37 4622
4617 0 0001 27 0133
4618 0 0000 41 4582
4619 0 0000 30 4626
4620 0 0000 41 4549
4621 0 0000 30 4626
4622 0 0000 10 0134
4623 0 0000 41 4641
4624 0 0001 49 0001
4625 0 0000 40 0134
4626 0 0001 49 0018
4627 0 0001 48 0008
4628 0 0001 42 0125
4629 1 0000 49 0008
4630 0 9400 28 0125
4631 0 0024 21 4636
4632 0 0000 43 0020
4633 1 0000 12 0125
4634 1 0010 40 0125
4635 0 0002 26 0125
4636 0 0000 30 9999
4637 0 0009 21 4582
4638 0 0000 49 0051
4639 0 0001 21 4580
4640 0 0002 45 7557
4641 0 0001 48 0008
4642 0 0410 18 4706
4643 0 0001 40 0134
4644 0 0001 34 4654
4645 0 0410 40 4652
4646 0 0449 27 4652
4647 0 0000 42 4652
4648 0 0000 10 0130
4649 0 0001 48 0004
4650 0 4211 40 4653
4651 0 0000 10 4652
4652 0 0002 45 9999
4653 0 0000 20 4583
4654 0 0000 43 7557
4655 0 0000 13 4706
4656 0 0210 40 0133
4657 0 0211 18 0130
4658 0 0000 35 4661
4659 0 0000 10 4706
4660 0 0000 30 4645
4661 0 0000 10 4638
4662 0 1110 40 0134
4663 0 0000 30 4645
4664 0 0304 27 0129
4665 0 0000 32 4668
4666 0 0000 30 4678
4667 0 0000 10 4707
4668 0 0000 36 4667
4669 0 0002 45 7557
4670 0 2210 40 4593
4671 0 0001 48 0008
4672 0 0001 40 0134
4673 0 0002 48 0010
4674 0 0000 12 0130
4675 0 0000 17 4638
4676 0 0310 18 0129
4677 0 0001 34 4687
4678 0 0004 26 0129
4679 0 0000 10 0129
4680 0 0000 19 0125
4681 0 0000 19 0125
4682 0 0002 27 0125
4683 0 0000 41 4694
4684 0 0000 44 4636
4685 0 0000 30 4626
4686 0 0000 30 4518
4687 0 0000 41 4593
4688 0 0000 10 4624
4689 0 0000 42 0131
4690 0 0001 20 4583
4691 0 0002 45 7557
4692 0 0001 48 0008
4693 0 0001 40 0134
4694 0 0000 43 0014
4695 0 0000 13 4706
4696 0 0002 45 7557
4697 0 0001 33 4702
4698 0 0210 18 0130
4699 0 0000 34 4679
4700 0 0000 12 4624
4701 0 0000 30 4689
4702 0 0010 40 0133
4703 0 0000 30 4688
4704 2 0000 00 0000
4705 0 0010 00 0000
4706 0 0000 00 0050
4707 0 5000 00 0000
4399 0 0000 44 4432
4400 0 0000 30 4428
4401 2 5945 62 6453
4402 2 6300 56 6463
4403 2 0056 46 0059
4404 2 4155 47 4500
4405 2 4955 00 0000
4406 0 0000 44 4432
4407 0 0000 30 4428
4408 2 5945 62 6453
4409 2 6300 64 5544
4410 2 4546 49 5545
4411 2 4400 46 5659
4412 2 0000 00 0000
4413 0 0000 44 4432
4414 0 0000 30 4428
4415 2 5945 62 6453
4416 2 6300 49 5353
4417 2 2044 45 4649
4418 2 5545 44 0046
4419 2 5659 00 0000
4420 0 0000 46 4441
4421 0 0000 44 4432
4422 0 0000 30 4430
4423 0 0000 00 0000
4424 2 0041 59 4963
4425 2 4854 45 6349
4426 2 4300 56 6545
4427 2 5946 53 5666
4428 0 0001 40 4441
4429 0 0003 45 0000
4430 0 0412 40 4435
4431 0 0000 42 4452
4432 0 0050 29 0033
4433 0 1106 44 4453 REED
4434 0 4436 30 4453 REED
4435 0 0000 30 0036
4436 0 0000 00 0000
4437 0 0000 00 0000
4438 0 0000 00 0000
4439 0 0000 00 0000
4440 0 0000 00 0000
4441 0 0000 00 0000
4442 0 0000 00 0000
4443 0 0000 00 0000
4444 0 0000 00 0000
4445 0 0000 00 0000
4446 0 0000 00 0000
4447 0 5000 00 0000
4448 0 0000 00 0000
4449 0 0000 00 0000
4450 0 5110 00 0000
4451 0 0000 00 0000
4452 0 0000 00 4436
4769 0 0002 45 0000
4770 0 0000 41 4831
4771 0 0411 40 4826
4772 0 1210 40 4769
4773 0 0010 18 4833
4774 0 0000 34 4824
4775 0 0001 49 0002
4776 0 0211 40 4777
4777 0 0002 45 0000
4778 0 0000 42 4777
4779 0 0000 14 4834
4780 0 9949 20 4783
4781 1 0001 49 0001
4782 0 0001 42 4781
4783 0 0001 49 0008
4784 0 2211 40 4830
4785 0 2251 26 4830
4786 0 0001 49 0012
4787 0 0002 45 0000
4788 0 0010 20 4790
4789 1 0001 49 0001
4790 0 0001 49 0010
4791 0 0000 40 4449 ERROR
4792 0 0000 14 4449 ERROR
4793 0 0000 40 4451 ERROR
4794 0 0000 14 4835
4795 0 0000 12 4836
4796 0 0000 14 4451 ERROR
4797 0 0000 12 4837
4798 0 0000 14 4451 ERROR
4799 0 0000 12 4838
4800 0 0000 14 4449 ERROR
4801 0 0000 40 4449 ERROR
4802 0 0000 40 4448 ERROR
4803 0 0000 10 4839
4804 0 0000 14 4451 ERROR
4805 0 0000 12 4840
4806 0 0000 14 4451 ERROR
4807 0 0000 12 4841
4808 0 0000 14 4451 ERROR
4809 0 0000 12 4842
4810 0 0000 19 4448 ERROR
4811 0 0000 13 4449 ERROR
4812 0 0001 48 0003
4813 0 0000 15 4448 ERROR
4814 0 0001 12 4830
4815 0 1210 27 4769
4816 0 0000 42 4769
4817 0 0000 32 4819
4818 1 0000 30 0000
4819 0 0000 40 4449 ERROR
4820 0 0000 10 4843
4821 0 9999 41 4821
4822 0 0000 25 4449 ERROR
4823 1 0000 30 0000
4824 0 0000 42 4769
4825 0 0001 33 4828
4826 0 0000 41 4832
4827 0 0000 30 4399 ERROR
4828 0 0001 45 0000
4829 1 0000 30 0000
4830 0 0000 00 0000
4831 0 0000 00 4832
4832 2 4567 57 0000
4833 0 5311 28 2665
4834 0 4342 94 4819
4835 1 0000 01 7159
4836 1 0004 89 3282
4837 1 0169 20 3872
4838 1 0995 71 1477
4839 0 0000 41 7304
4840 0 0035 41 8755
4841 0 0529 08 7016
4842 0 0864 86 4000
4843 0 5099 99 9999
4709 0 0006 45 0000
4710 0 0000 41 4755
4711 0 0411 40 4753
4712 0 0000 46 4451 ERROR
4713 0 0000 24 4758
4714 0 0001 49 0002
4715 0 0211 40 4757
4716 0 0000 42 4757
4717 0 9949 20 4723
4718 0 0007 21 4752
4719 1 0001 49 0018
4720 0 0000 40 4451 ERROR
4721 0 0000 10 4722
4722 0 0001 49 0050
4723 0 0001 49 0018
4724 0 0000 40 4449 ERROR
4725 0 0000 22 4449 ERROR
4726 0 0010 18 4450 ERROR
4727 0 0001 34 4731
4728 0 0000 43 0000
4729 0 0000 23 4759
4730 0 0001 49 0000
4731 0 0000 40 4449 ERROR
4732 0 0000 24 4449 ERROR
4733 0 0000 40 4448 ERROR
4734 0 0000 24 4760
4735 0 0000 22 4761
4736 0 0000 24 4448 ERROR
4737 0 0000 22 4762
4738 0 0000 24 4448 ERROR
4739 0 0000 22 4763
4740 0 0000 24 4448 ERROR
4741 0 0000 22 4764
4742 0 0000 24 4449 ERROR
4743 0 0000 22 4449 ERROR
4744 0 0000 40 4449 ERROR
4745 0 0000 10 4447 ERROR
4746 0 0000 14 4451 ERROR
4747 0 0000 10 4449 ERROR
4748 0 0000 42 4709
4749 1 0000 37 0000
4750 0 0000 11 4449 ERROR
4751 1 0000 30 0000
4752 0 0000 42 4709
4753 0 0000 41 4756
4754 0 0000 30 4413 ERROR
4755 0 0000 00 4756
4756 2 6249 55 0000
4757 0 0000 00 0000
4758 0 5031 83 0989
4759 0 5120 00 0000
4760 0 4715 14 8419
4761 1 4846 73 7656
4762 0 4979 68 9679
4763 1 5064 59 6371
4764 0 5057 07 9632
4875 0 8000 38 0000
4876 0 0000 42 4911
4877 0 0000 31 4420 ERROR
4878 0 0000 42 4875
4879 1 4401 28 9998
4880 0 0002 40 4924
4881 0 0000 42 4875
4882 1 4400 28 9999
4883 0 0000 40 4925
4884 1 0000 10 0000
4885 0 0000 40 4448 ERROR
4886 0 0001 48 0010
4887 0 0000 44 4923
4888 0 0001 33 4911
4889 0 0000 40 4443 ERROR
4890 0 0001 40 4444 ERROR
4891 0 0001 10 4924
4892 0 0000 13 4926
4893 0 0001 48 0010
4894 0 0000 44 4923
4895 0 0000 30 4911
4896 0 0811 40 4445 ERROR
4897 0 0000 30 4898
4898 0 2224 26 4445 ERROR
4899 0 2204 26 4446 ERROR
4900 0 0403 26 4897
4901 0 7000 38 4905
4902 0 0000 42 4875
4903 0 0000 10 4925
4904 1 0000 30 0000
4905 0 0000 42 4907
4906 0 0010 29 4423 ERROR
4907 0 0050 29 4436 ERROR
4908 0 0000 44 4435 ERROR
4909 0 0000 30 4433 ERROR
4910 0 0000 30 4902
4911 0 8001 45 4878
4912 0 0000 49 0001
4913 0 0001 49 0001
4914 0 0000 13 4927
4915 0 1108 26 4911
4916 0 0000 31 4912
4917 0 1105 26 4916
4918 0 0000 31 4921
4919 0 0000 40 4449 ERROR
4920 0 0000 30 4911
4921 0 0001 48 0010
4922 0 0000 10 4449 ERROR
4923 0 0000 30 0048
4924 0 0000 00 0000
4925 0 0000 00 0000
4926 0 0000 01 0000
4927 0 0000 00 0080
4939 0 0000 38 0000
4940 0 0002 40 4448 ERROR
4941 0 0000 42 4956
4942 0 0000 31 4420 ERROR
4943 0 0000 40 4451 ERROR
4944 0 0000 42 4939
4945 1 4400 28 9999
4946 1 0000 41 0000
4947 0 0001 40 4989
4948 0 0000 42 4939
4949 0 0000 46 4992
4950 0 0000 46 4993
4951 0 6412 40 4990
4952 1 0000 10 9997
4953 0 0000 33 4955
4954 0 0000 13 4448 ERROR
4955 0 0410 40 4959
4956 0 0001 45 4943
4957 1 0000 41 9998
4958 0 1108 37 4961
4959 0 0000 12 0020
4960 0 0000 30 4962
4961 0 0000 12 4451 ERROR
4962 0 2100 37 4973
4963 0 0000 40 4991
4964 0 0000 33 4966
4965 0 4220 26 4990
4966 0 0412 40 4971
4967 0 0504 44 4453 REED
4968 0 4989 30 4453 REED
4969 0 0000 10 4451 ERROR
4970 0 0000 42 4448 ERROR
4971 0 0000 30 0032
4972 0 0000 30 0033
4973 0 0001 48 0008
4974 0 0000 46 4991
4975 0 8811 40 4991
4976 0 0000 33 4978
4977 0 4220 26 4990
4978 0 0000 43 0000
4979 0 8800 37 4981
4980 0 0000 13 4994
4981 0 0223 26 4992
4982 0 6203 26 4990
4983 0 0110 40 4993
4984 0 0000 49 0001
4985 0 8910 40 4993
4986 0 9108 26 4993
4987 0 7108 26 4993
4988 0 0000 30 4966
4989 0 0000 00 0000
4990 2 3300 00 0000
4991 0 0000 00 0000
4992 0 0000 00 0000
4993 0 0000 00 0000
4994 0 0000 00 0050
4453 0 0000 01 0000
4454 0 0000 42 4453
4455 1 0000 10 9999
4456 0 0000 48 0006
4457 0 0410 40 4463
4458 1 0000 10 9998
4459 0 4210 40 4463
4460 0 0000 48 0008
4461 0 0000 13 4465
4462 0 0000 19 4463
4463 0 2000 61 0000
4464 1 0000 30 0000
4465 0 0000 00 0001
COMPILED PROGRAM ENDS AT 0453
PROGRAM VARIABLES BEGIN AT 4399
IBAR = .2094395000, 01
N = 0000000001
H = .5235987500, 00
J = .7853980700, 00
S = .0000000000, 00
K = 0000000001
S = .8660253800, 00
K = 0000000002
I = .2599197200, 01
IBAR = .2599197200, 01
J = .8461488000, 00
N = 0000000002
H = .2617993700, 00
S = .0000000000, 00
K = 0000000001
S = .7071067600, 00
K = 0000000002
S = .1673032500, 01
K = 0000000003
I = .2598144200, 01
IBAR = .2598144200, 01
J = .8610732500, 00
N = 0000000004
H = .1308996800, 00
S = .0000000000, 00
K = 0000000001
S = .6087614000, 00
K = 0000000002
S = .1402114700, 01
K = 0000000003
S = .2325994100, 01
K = 0000000004
S = .3317438900, 01
K = 0000000005
I = .2598079900, 01
IBAR = .2598079900, 01
J = .8647882700, 00
N = 0000000008
H = .6544984000,-01
S = .0000000000, 00
K = 0000000001
S = .5555702100, 00
K = 0000000002
S = .1214915900, 01
K = 0000000003
S = .1966755600, 01
K = 0000000004
S = .2798225100, 01
K = 0000000005
S = .3695097700, 01
K = 0000000006
S = .4642027800, 01
K = 0000000007
S = .5622813000, 01
K = 0000000008
S = .6620671900, 01
K = 0000000009
I = .2598075800, 01
SINE INTEGRAL = .866025
IBAR = .2000000000, 01
N = 0000000001
H = .5000000000, 00
J = .7500000000, 00
S = .0000000000, 00
K = 0000000001
S = .8000000000, 00
K = 0000000002
I = .2350000000, 01
IBAR = .2350000000, 01
J = .7750000000, 00
N = 0000000002
H = .2500000000, 00
S = .0000000000, 00
K = 0000000001
S = .9411764700, 00
K = 0000000002
S = .1581176400, 01
K = 0000000003
I = .2356176400, 01
IBAR = .2356176400, 01
J = .7827941000, 00
N = 0000000004
H = .1250000000, 00
S = .0000000000, 00
K = 0000000001
S = .9846153800, 00
K = 0000000002
S = .1861327700, 01
K = 0000000003
S = .2580428800, 01
K = 0000000004
S = .3146800400, 01
K = 0000000005
I = .2356194300, 01
IBAR = .2356194300, 01
J = .7847471000, 00
N = 0000000008
H = .6250000000,-01
S = .0000000000, 00
K = 0000000001
S = .9961089900, 00
K = 0000000002
S = .1962146700, 01
K = 0000000003
S = .2873178700, 01
K = 0000000004
S = .3712522900, 01
K = 0000000005
S = .4472166800, 01
K = 0000000006
S = .5151211900, 01
K = 0000000007
S = .5753564800, 01
K = 0000000008
S = .6285789300, 01
K = 0000000009
I = .2356194400, 01
DARCTAN INTEGRAL = .785398
IBAR = .5000000000, 01
N = 0000000001
H = .1250000000, 01
J = .1968791800, 01
S = .0000000000, 00
K = 0000000001
S = .8519528300, 00
K = 0000000002
I = .6228555800, 01
IBAR = .6228555800, 01
J = .2049336900, 01
N = 0000000002
H = .6250000000, 00
S = .0000000000, 00
K = 0000000001
S = .7549150200, 00
K = 0000000002
S = .1669816000, 01
K = 0000000003
I = .6223876900, 01
IBAR = .6223876900, 01
J = .2068303400, 01
N = 0000000004
H = .3125000000, 00
S = .0000000000, 00
K = 0000000001
S = .6926419800, 00
K = 0000000002
S = .1500709200, 01
K = 0000000003
S = .2387913800, 01
K = 0000000004
S = .3324198800, 01
K = 0000000005
I = .6223551800, 01
IBAR = .6223551800, 01
J = .2072963800, 01
N = 0000000008
H = .1562500000, 00
S = .0000000000, 00
K = 0000000001
S = .6584175200, 00
K = 0000000002
S = .1383287700, 01
K = 0000000003
S = .2165950200, 01
K = 0000000004
S = .2997093200, 01
K = 0000000005
S = .3867690400, 01
K = 0000000006
S = .4769611100, 01
K = 0000000007
S = .5695914800, 01
K = 0000000008
S = .6640909500, 01
K = 0000000009
I = .6223532200, 01
IBAR = .6223532200, 01
J = .2074124000, 01
N = 0000000016
H = .7812500000,-01
S = .0000000000, 00
K = 0000000001
S = .6406358700, 00
K = 0000000002
S = .1316400400, 01
K = 0000000003
S = .2025419500, 01
K = 0000000004
S = .2765593800, 01
K = 0000000005
S = .3534674000, 01
K = 0000000006
S = .4330332100, 01
K = 0000000007
S = .5150225400, 01
K = 0000000008
S = .5992051000, 01
K = 0000000009
S = .6853589200, 01
K = 0000000010
S = .7732735900, 01
K = 0000000011
S = .8627525300, 01
K = 0000000012
S = .9536143200, 01
K = 0000000013
S = .1045693200, 02
K = 0000000014
S = .1138839400, 02
K = 0000000015
S = .1232918300, 02
K = 0000000016
S = .1327810000, 02
K = 0000000017
I = .6223530000, 01
LOGISTIC INTEGRAL = 2.074510
Reference in New Issue View Git Blame Copy Permalink