mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-04-25 03:35:52 +00:00
af47e574af
2. Commit initial sample BALGOL programs from BAC-220 manual. 3. Modify BAC-Assembler to allow independent selection of listings from pass 1 and pass 2.
440 lines
41 KiB
Plaintext
440 lines
41 KiB
Plaintext
|
|
Wed, Feb 22, 2017 09:19:00, SYSTEM SERIAL: 4448, LX100 MCP: *SYSTEM/511/051-1A-45/DELTA/MCP. 51.190.8474, HOSTNAME: MCPVMMA
|
|
|
|
|
|
|
|
|
|
W O R K F L O W S T A T E M E N T S
|
|
|
|
|
|
00100100 ?BEGIN JOB BALGOL/EXAMPLE1;
|
|
00100200 JOBSUMMARY=UNCONDITIONAL;
|
|
00100250 PRINTDEFAULTS=(PRINTDISPOSITION=EOJ);
|
|
00100300
|
|
00100400 COMPILE OBJECT/BALGOL/EXAMPLE1 ALGOL GO;
|
|
00100500 ALGOL FILE CARD=SRCE/DEMO/BALGOL/EXAMPLE1 ON OPS;
|
|
00100600 OPTION=(FAULT,DSED,ARRAY);
|
|
00100700 DATA INPUT
|
|
00999900 ? END JOB
|
|
|
|
|
|
J O B S U M M A R Y
|
|
|
|
Wed, Feb 22, 2017
|
|
|
|
09:18:59 BOJ 4900 BALGOL/EXAMPLE1.
|
|
JOB ENTERED SYSTEM: 02/22/2017 09:18:59 FROM WFL 51.189
|
|
QUEUE: 0, ORIGINATING LSN: 186 MCS: 1
|
|
STACK NUMBER: 0B1B, PRIORITY: 50, SOURCENAME: DIGMGX39/CANDE/1.
|
|
USERCODE: PAUL. REALUSERCODE: PAUL.
|
|
INITIATING MCS: SYSTEM/CANDE.
|
|
09:18:59 BOT 4901 *SYSTEM/ALGOL.
|
|
CODE COMPILED: 09/07/2005 15:02:44 BY ALGOL 51.190
|
|
RELEASE ID: IC ALGOL-051.1A.4 [51.190.004] (51.190.8023)
|
|
TASK TYPE: COROUTINE (CALL)
|
|
STACK NUMBER: 0B1E, PRIORITY: 50, SOURCENAME: DIGMGX39/CANDE/1.
|
|
CODEFILE: OBJECT/BALGOL/EXAMPLE1.
|
|
USERCODE: PAUL. REALUSERCODE: PAUL.
|
|
INITIATING MCS: SYSTEM/CANDE.
|
|
09:18:59 BOT 4902 (PAUL)OBJECT/BALGOL/EXAMPLE1 ON OPS.
|
|
CODE COMPILED: 02/22/2017 09:18:59 BY ALGOL 51.190
|
|
TASK TYPE: DEPENDENT TASK (PROCESS)
|
|
STACK NUMBER: 0B20, PRIORITY: 50, SOURCENAME: DIGMGX39/CANDE/1.
|
|
USERCODE: PAUL. REALUSERCODE: PAUL.
|
|
INITIATING MCS: SYSTEM/CANDE.
|
|
09:18:59 4902 MESSAGE: STACK EXTENDED FROM 1602 TO 1852 WORDS.
|
|
09:19:00 EOT 4901 *SYSTEM/ALGOL.
|
|
RELEASE ID:IC ALGOL-051.1A.4 [51.190.004] (51.190.8023)
|
|
USERCODE: PAUL. REALUSERCODE: PAUL.
|
|
STACK NUMBER: 0B1E AVERAGE DISK SECTORS IN USE BY PERMANENT FILES: 1197.
|
|
PROCESSOR TIME: 00:00:00.4198 LINES PRINTED: 231.
|
|
I/O TIME: 00:00:00.1447 NUMBER OF ARRAY RESIZES: 4.
|
|
READYQ TIME: 00:00:00.0303 AVERAGE MEMORY USAGE: CODE=22920, DATA=75186
|
|
INITPBIT TIME: 00:00:00.2522 MEMORY INTEGRAL: CODE=12.940, DATA=42.449
|
|
ELAPSED TIME: 00:00:00.8738 INITIAL PBITS: 451.
|
|
MAXIMUM NUMBER OF ASDS USED: 164.
|
|
MAXIMUM SAVE MEMORY USED: 12295.
|
|
|
|
09:19:00 4902 MESSAGE: STACK EXTENDED FROM 1852 TO 2102 WORDS.
|
|
09:19:00 EOT 4902 (PAUL)OBJECT/BALGOL/EXAMPLE1 ON OPS.
|
|
USERCODE: PAUL. REALUSERCODE: PAUL.
|
|
STACK NUMBER: 0B20 AVERAGE DISK SECTORS IN USE BY PERMANENT FILES: 486.
|
|
PROCESSOR TIME: 00:00:00.1376 CARDS READ: 3.
|
|
I/O TIME: 00:00:00.0411 LINES PRINTED: 123.
|
|
READYQ TIME: 00:00:00.1193 NUMBER OF ARRAY RESIZES: 5.
|
|
ELAPSED TIME: 00:00:00.3780 AVERAGE MEMORY USAGE: CODE=930, DATA=4503
|
|
MEMORY INTEGRAL: CODE=0.166, DATA=0.805
|
|
INITIAL PBITS: 145.
|
|
MAXIMUM NUMBER OF ASDS USED: 70.
|
|
MAXIMUM SAVE MEMORY USED: 8421.
|
|
|
|
09:19:00 EOJ 4900 BALGOL/EXAMPLE1.
|
|
USERCODE: PAUL. REALUSERCODE: PAUL.
|
|
STACK NUMBER: 0B1B NUMBER OF ARRAY RESIZES: 1.
|
|
PROCESSOR TIME: 00:00:00.0000 AVERAGE MEMORY USAGE: CODE=88, DATA=1921
|
|
I/O TIME: 00:00:00.0007 MEMORY INTEGRAL: CODE=0.000, DATA=0.001
|
|
READYQ TIME: 00:00:00.0085 INITIAL PBITS: 38.
|
|
ELAPSED TIME: 00:00:01.1283 MAXIMUM NUMBER OF ASDS USED: 10.
|
|
MAXIMUM SAVE MEMORY USED: 1808.
|
|
|
|
|
|
Unisys ClearPath LX Series SYSTEMS BDMSALGOL COMPILER, VERSION 51.190.8023, WEDNESDAY, 02/22/2017, 09:18 AM.
|
|
|
|
|
|
|
|
( P A U L ) O B J E C T / B A L G O L / E X A M P L E 1 O N O P S
|
|
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
|
|
|
|
|
|
$ SET LINEINFO 00000100 0000:0000:0 170222PK
|
|
BEGIN 00001000 0000:0000:0
|
|
BLOCK#1 IS SEGMENT 0003
|
|
COMMENT 1 00001100 0003:0000:1
|
|
BAC-EXAMPLE-1 CONVERTED FROM BALGOL TO BURROUGHS B5500 EXTENDED ALGOL. 00001200 0003:0000:1
|
|
2017-02-13 P.KIMPEL 00001300 0003:0000:1
|
|
; 00001400 0003:0000:1
|
|
00010000 0003:0000:1
|
|
FILE INPUT (KIND=READER, MAXRECSIZE=80, FRAMESIZE=8); 00010100 0003:0000:1 170222PK
|
|
DATA LENGTH IN WORDS IS 000C
|
|
FILE OUTPUT (KIND=PRINTER, MAXRECSIZE=120, FRAMESIZE=8); 00010200 0003:0000:1 170222PK
|
|
DATA LENGTH IN WORDS IS 000C
|
|
00011000 0003:0000:1 170222PK
|
|
DEFINE 00011100 0003:0000:1 170222PK
|
|
DEGREE1 = 0.017453293 #, % PI/180 = 1 DEGREE 00011200 0003:0000:1 170222PK
|
|
DEGREE2 = 0.034906585 #, % PI/90 = 2 DEGREES 00011300 0003:0000:1 170222PK
|
|
DEGREE5 = 0.087266463 #, % PI/36 = 5 DEGREES 00011400 0003:0000:1 170222PK
|
|
DEGREE34 = 0.59341195 #, % 34PI/180 = 34 DEGREES 00011500 0003:0000:1 170222PK
|
|
DEGREE45 = 0.78539816 #; % PI/4 = 45 DEGREES 00011600 0003:0000:1 170222PK
|
|
00020000 0003:0000:1
|
|
REAL 00050000 0003:0000:1
|
|
AVT, 00050100 0003:0000:1
|
|
CONST, 00050200 0003:0000:1
|
|
SUM; 00050300 0003:0000:1
|
|
LABEL 00080000 0003:0000:1
|
|
FINISH, 00080100 0003:0000:1
|
|
RDIM, 00080200 0003:0000:1
|
|
START; 00080300 0003:0000:1
|
|
00200000 0003:0000:1
|
|
COMMENT FIRST EXAMPLE PROGRAM FROM BALGOL MANUAL, MARCH 1963. 00200100 0003:0000:1 170222PK
|
|
J.G. HERRIOT, OF STANFORD UNIVERSITY, HAS WRITTEN THE FOLLOWING 00200200 0003:0000:1
|
|
PROGRAM TO DETERMINE AN APROXIMATION OF HARMONIC-BOUNDARY VALUES, 00200300 0003:0000:1
|
|
USING ORTHONORMAL FUNCTIONS; 00200400 0003:0000:1
|
|
00200500 0003:0000:1
|
|
COMMENT THIS PROGRAM FIRST CONSTRUCTS A SET OF ORTHONORMAL FUNCTIONS 00200600 0003:0000:1
|
|
AND THEN USES THEM TO FIND AN APPROXIMATION TO THE SOLUTION OF A 00200700 0003:0000:1
|
|
HARMONIC BOUNDARY-VALUE PROBLEM; 00200800 0003:0000:1
|
|
00200900 0003:0000:1
|
|
COMMENT WE FIRST CONSTRUCT THE ORTHONORMAL FUNCTIONS; 00201000 0003:0000:1
|
|
00201100 0003:0000:1
|
|
INTEGER I, J, K, L, M, N, NU, TH; 00201200 0003:0000:1
|
|
ARRAY R[1:29], HFN[1:29], DSUM[1:24], HFCN[1:5], HFCEN[1:6], 00201300 0003:0000:1
|
|
FA[1:25,1:25], A[1:25,1:25], B[1:25,1:25], HA[1:47], HAA[1:24]; 00201400 0003:0000:1
|
|
LIST DATA (FOR I:=1 STEP 1 UNTIL 29 DO R[I]), DIMEN(N); 00201500 0003:0012:3 170222PK
|
|
LIST FRESULTS (FOR I:=1 STEP 1 UNTIL N DO 00201600 0003:002F:3 170222PK
|
|
FOR J:=1 STEP 1 UNTIL N DO FA[I,J]), 00201700 0003:0030:1 170222PK
|
|
ARESULTS (FOR I:=1 STEP 1 UNTIL N DO 00201800 0003:0050:1 170222PK
|
|
FOR J:=1 STEP 1 UNTIL N DO A[I,J]), 00201900 0003:0050:5 170222PK
|
|
BRESULTS (FOR I:=1 STEP 1 UNTIL N DO 00202000 0003:0070:4 170222PK
|
|
FOR J:=1 STEP 1 UNTIL N DO B[I,J]), 00202100 0003:0071:2 170222PK
|
|
COEFFS (FOR NU:=4 STEP 4 UNTIL N-1 DO HA[2*NU-1]), 00202200 0003:0091:1 170222PK
|
|
HFNRES (FOR K:=1 STEP 1 UNTIL 29 DO HFN[K]), 00202300 0003:00AA:1 170222PK
|
|
CRES(CONST), HFCNRES (TH, FOR K:=1 STEP 1 UNTIL 5 DO HFCN[K]), 00202400 0003:00BE:4 170222PK
|
|
HFCENRES(TH, FOR K:=1 STEP 1 UNTIL 6 DO HFCEN[K]); 00202500 0003:00E1:1 170222PK
|
|
FORMAT VECTOR (X8,6F16.8), 00202600 0003:00FB:1 170222PK
|
|
FTITLE (/,X48,"FRESULTS,FA[I,J]"), 00202700 0003:00FB:1
|
|
BTITLE (/,X48,"BRESULTS,B[I,J]"), 00202800 0003:00FB:1 170222PK
|
|
ATITLE (/,X48,"ARESULTS,A[I,J]"), 00202900 0003:00FB:1
|
|
COEFTITLE (/,X30,"HA[8NU-1]"), 00203000 0003:00FB:1
|
|
BDYVALUES (/,X42,"PRELIMINARY BOUNDARY VALUES"), 00203100 0003:00FB:1
|
|
CBDYVALUES (/,X43,"CORRECTED BOUNDARY VALUES"), 00203200 0003:00FB:1
|
|
CONTITLE (/,X50,"CONSTANT"), 00203300 0003:00FB:1
|
|
TABLE (X8,I2,X6,6F16.8), 00203400 0003:00FB:1
|
|
TABLEHEAD (/,X40, "THE VALUES OF H(RHO,TH) IN B"), 00203500 0003:00FB:1
|
|
TABLELINE (X13,"RHO",X6,"0.5",X13,"1.0",X13,"1.5",X13, 00203600 0003:00FB:1
|
|
"2.0",X13,"2.5",X13,"3.0"), 00203700 0003:00FB:1
|
|
TABLETH (X8,"TH"); 00203800 0003:00FB:1
|
|
START: 00800100 0003:00FB:1
|
|
READ (INPUT, /, DATA); 00800200 0003:00FB:1
|
|
WRITE (OUTPUT, <"INPUT DATA:",/,6(5F16.4,/)>, DATA); 00800250 0003:0104:4
|
|
RDIM: 00800300 0003:010B:4
|
|
READ (INPUT, /, DIMEN) [FINISH]; 00800400 0003:010B:4
|
|
WRITE (OUTPUT, <"NUMBER OF DIMENSIONS:",I3>, DIMEN); 00800450 0003:0116:3
|
|
FOR I:=1 STEP 1 UNTIL N DO 00800500 0003:011D:4 170222PK
|
|
FOR J:=I STEP 4 UNTIL N DO 00800600 0003:011E:2 170222PK
|
|
BEGIN 00800700 0003:011F:1
|
|
L:= I-J; K:= I+J; 2 00800800 0003:011F:1 170222PK
|
|
SUM:= R[1]**K + 1.5*R[18]**K*COS(DEGREE34*L) 00800900 0003:0122:1 170222PK
|
|
+ 0.5*R[29]**K*COS(DEGREE45*L); 00801000 0003:012A:0 170222PK
|
|
FOR M:=2 STEP 1 UNTIL 17 DO 00801100 0003:0131:3 170222PK
|
|
SUM:= SUM + 2.0*R[M]**K*COS((M-1)*DEGREE2*L); 00801200 0003:0132:2 170222PK
|
|
FOR M:=19 STEP 1 UNTIL 28 DO 00801300 0003:013C:5 170222PK
|
|
SUM:= SUM + R[M]**K*COS((DEGREE34 + (M-18)*DEGREE1)*L); 00801400 0003:013D:4 170222PK
|
|
FA[I,J]:= (8.0/K)*DEGREE1*SUM 00801500 0003:0149:0 170222PK
|
|
END; 00801600 0003:014E:1
|
|
WRITE (OUTPUT[SPACE 2]); 2 00801700 0003:0153:2 170222PK
|
|
WRITE (OUTPUT, FTITLE); 00801800 0003:0159:2
|
|
WRITE (OUTPUT, VECTOR, FRESULTS); 00801900 0003:015E:4
|
|
FOR J:=1 STEP 1 UNTIL N DO 00802000 0003:0165:4 170222PK
|
|
B[1,J]:= FA[1,J]; 00802100 0003:0166:2 170222PK
|
|
FOR I:=2 STEP 1 UNTIL N DO 00802200 0003:016B:4 170222PK
|
|
BEGIN 00802300 0003:016C:3
|
|
FOR J:=1 STEP 1 UNTIL I-1 DO 2 00802400 0003:016C:3 170222PK
|
|
B[I,J]:= -B[J,I]/B[J,J]; 00802500 0003:016E:3 170222PK
|
|
FOR J:=I STEP 1 UNTIL N DO 00802600 0003:0176:1 170222PK
|
|
BEGIN 00802700 0003:0177:0
|
|
B[I,J]:= FA[I,J]; 3 00802800 0003:0177:0 170222PK
|
|
FOR K:=1 STEP 1 UNTIL I-1 DO 00802900 0003:017B:1 170222PK
|
|
B[I,J]:= B[I,J] + B[I,K]*B[K,J] 00803000 0003:017D:1 170222PK
|
|
END; 00803100 0003:0185:0
|
|
FOR J:=1 STEP 1 UNTIL I-1 DO 3 00803200 0003:0189:0 170222PK
|
|
B[I,J]:= B[I,J]*SQRT(B[J,J]/B[I,I]) 00803300 0003:018B:0 170222PK
|
|
END; 00803400 0003:0193:2
|
|
FOR I:=1 STEP 1 UNTIL N DO 2 00803500 0003:0197:3 170222PK
|
|
B[I,I]:= 1.0/(SQRT(B[I,I])*I); 00803600 0003:0198:1 170222PK
|
|
WRITE (OUTPUT, BTITLE); 00803700 0003:01A0:5
|
|
WRITE (OUTPUT, VECTOR, BRESULTS); 00803800 0003:01A5:4
|
|
FOR I:=1 STEP 1 UNTIL N DO 00803900 0003:01AC:4 170222PK
|
|
FOR J:=1 STEP 1 UNTIL N DO 00804000 0003:01AD:2 170222PK
|
|
A[I,J]:= 0; 00804100 0003:01AE:0 170222PK
|
|
A[1,1]:= B[1,1]; 00804200 0003:01B4:4 170222PK
|
|
FOR I:=2 STEP 1 UNTIL N DO 00804300 0003:01B6:5 170222PK
|
|
BEGIN 00804400 0003:01B7:4
|
|
FOR J:=1 STEP 1 UNTIL I-1 DO 2 00804500 0003:01B7:4 170222PK
|
|
BEGIN 00804600 0003:01B9:4
|
|
A[I,J]:= 0; 3 00804700 0003:01B9:4 170222PK
|
|
FOR K:=J STEP 1 UNTIL I-1 DO 00804800 0003:01BC:0 170222PK
|
|
A[I,J]:= A[I,J] + B[I,K]*A[K,J] 00804900 0003:01BE:1 170222PK
|
|
END; 00805000 0003:01C6:0
|
|
A[I,I]:= B[I,I] 3 00805100 0003:01C9:0 170222PK
|
|
END; 00805200 0003:01CC:5
|
|
WRITE (OUTPUT[SPACE 2]); 2 00805300 0003:01CF:2 170222PK
|
|
WRITE (OUTPUT, ATITLE); 00805400 0003:01D5:2
|
|
WRITE (OUTPUT, VECTOR, ARESULTS); 00805500 0003:01DA:4
|
|
00805600 0003:01E1:4
|
|
COMMENT NOW CONSTRUCT THE APROXIMATION TO THE SOLUTION; 00805700 0003:01E1:4
|
|
00805800 0003:01E1:4
|
|
FOR J:=4 STEP 4 UNTIL N-1 DO 00805900 0003:01E1:4 170222PK
|
|
BEGIN 00806000 0003:01E3:5
|
|
DSUM[J]:= 0; 2 00806100 0003:01E3:5 170222PK
|
|
FOR M:=1 STEP 1 UNTIL 17 DO 00806200 0003:01E5:2 170222PK
|
|
DSUM[J]:= DSUM[J] + (R[M]**2 + R[M+1]**2)* 00806300 0003:01E6:0 170222PK
|
|
(R[M+1]**J*SIN(M*DEGREE2*J) 00806400 0003:01EB:2 170222PK
|
|
- R[M]**J*SIN((M-1)*DEGREE2*J)); 00806500 0003:01F1:1 170222PK
|
|
FOR M:=18 STEP 1 UNTIL 28 DO 00806600 0003:01FA:5 170222PK
|
|
DSUM[J]:= DSUM[J] + (R[M]**2 + R[M+1]**2*(R[M+1]**J* 00806700 0003:01FB:4 170222PK
|
|
SIN((DEGREE34 + (M-17)*DEGREE1)*J) 00806800 0003:0202:5 170222PK
|
|
- R[M]**J*SIN((DEGREE34 00806900 0003:0208:2 170222PK
|
|
+ (M-18)*DEGREE1)*J))) 00807000 0003:020C:1 170222PK
|
|
END; 00807100 0003:0210:2
|
|
FOR NU:=4 STEP 4 UNTIL N-1 DO 2 00807200 0003:0215:3 170222PK
|
|
BEGIN 00807300 0003:0217:4
|
|
HA[2*NU-1]:= 0; 2 00807400 0003:0217:4 170222PK
|
|
FOR J:=4 STEP 4 UNTIL NU DO 00807500 0003:021A:0 170222PK
|
|
HA[2*NU-1]:= HA[2*NU-1] + A[NU,J]*DSUM[J]; 00807600 0003:021A:5 170222PK
|
|
HA[2*NU-1]:= 4.0*HA[2*NU-1] 00807700 0003:0224:5 170222PK
|
|
END; 00807800 0003:0229:3
|
|
WRITE (OUTPUT, COEFTITLE); 2 00807900 0003:022B:2
|
|
WRITE (OUTPUT, VECTOR, COEFFS); 00808000 0003:0230:4
|
|
FOR J:=4 STEP 4 UNTIL N-1 DO 00808100 0003:0237:4 170222PK
|
|
BEGIN 00808200 0003:0239:5
|
|
HAA[J]:= 0; 2 00808300 0003:0239:5 170222PK
|
|
FOR NU:=J STEP 4 UNTIL N-1 DO 00808400 0003:023B:2 170222PK
|
|
HAA[J]:= HAA[J] + HA[2*NU-1]*A[NU,J] 00808500 0003:023D:3 170222PK
|
|
END; 00808600 0003:0243:4
|
|
FOR M:=1 STEP 1 UNTIL 18 DO 2 00808700 0003:0247:0 170222PK
|
|
BEGIN 00808800 0003:0247:4
|
|
HFN[M]:= 0; 2 00808900 0003:0247:4 170222PK
|
|
FOR J:=4 STEP 4 UNTIL N-1 DO 00809000 0003:0249:1 170222PK
|
|
HFN[M]:= HFN[M] + HAA[J]*R[M]**J*COS((M-1)*DEGREE2*J) 00809100 0003:024B:2 170222PK
|
|
END; 00809200 0003:0254:1
|
|
FOR M:=19 STEP 1 UNTIL 29 DO 2 00809300 0003:0258:5 170222PK
|
|
BEGIN 00809400 0003:0259:4
|
|
HFN[M]:= 0; 2 00809500 0003:0259:4 170222PK
|
|
FOR J:=4 STEP 4 UNTIL N-1 DO 00809600 0003:025B:1 170222PK
|
|
HFN[M]:= HFN[M] + HAA[J]*R[M]**J* 00809700 0003:025D:2 170222PK
|
|
COS((DEGREE34 + (M-18)*DEGREE1)*J) 00809800 0003:0262:0 170222PK
|
|
END; 00809900 0003:0268:2
|
|
WRITE (OUTPUT[SPACE 2]); 2 00810000 0003:026D:0 170222PK
|
|
WRITE (OUTPUT, BDYVALUES); 00810100 0003:0273:2
|
|
WRITE (OUTPUT, VECTOR, HFNRES); 00810200 0003:0278:4
|
|
AVT:= 0; 00810300 0003:027F:4 170222PK
|
|
FOR M:=1 STEP 1 UNTIL 29 DO 00810400 0003:0280:2 170222PK
|
|
AVT:= AVT + R[M]**2 - HFN[M]; 00810500 0003:0281:0 170222PK
|
|
CONST:= AVT/29.0; 00810600 0003:0287:0 170222PK
|
|
WRITE (OUTPUT, CONTITLE); 00810700 0003:0289:0
|
|
WRITE (OUTPUT, VECTOR, CRES); 00810800 0003:028D:4
|
|
FOR M:=1 STEP 1 UNTIL 29 DO 00810900 0003:0294:4 170222PK
|
|
HFN[M]:= CONST + HFN[M]; 00811000 0003:0295:2 170222PK
|
|
WRITE (OUTPUT, CBDYVALUES); 00811100 0003:029A:3
|
|
WRITE (OUTPUT, VECTOR, HFNRES); 00811200 0003:029F:4
|
|
FOR I:=1 STEP 1 UNTIL 5 DO 00811300 0003:02A6:4 170222PK
|
|
BEGIN 00811400 0003:02A7:2
|
|
TH:= 5*(I-1); 2 00811500 0003:02A7:2 170222PK
|
|
FOR J:=1 STEP 1 UNTIL 5 DO 00811600 0003:02A9:1 170222PK
|
|
BEGIN 00811700 0003:02A9:5
|
|
HFCN[J]:= CONST; 3 00811800 0003:02A9:5 170222PK
|
|
FOR M:=4 STEP 4 UNTIL N-1 DO 00811900 0003:02AB:3 170222PK
|
|
HFCN[J]:= HFCN[J] + HAA[M]*(0.5*J)**M*COS((I-1)*DEGREE5*M) 00812000 0003:02AD:4 170222PK
|
|
END; 00812100 0003:02B7:1
|
|
WRITE (OUTPUT[SPACE 2]); 3 00812200 0003:02BB:5 170222PK
|
|
WRITE (OUTPUT, TABLEHEAD); 00812300 0003:02C2:2
|
|
WRITE (OUTPUT, TABLELINE); 00812400 0003:02C7:4
|
|
WRITE (OUTPUT, TABLETH); 00812500 0003:02CC:4
|
|
WRITE (OUTPUT, TABLE, HFCNRES) 00812600 0003:02D1:4
|
|
END; 00812700 0003:02D6:3
|
|
FOR I:=6 STEP 1 UNTIL 10 DO 2 00812800 0003:02DA:5 170222PK
|
|
BEGIN 00812900 0003:02DB:4
|
|
TH:= 5*(I-1); 2 00813000 0003:02DB:4 170222PK
|
|
FOR J:=1 STEP 1 UNTIL 6 DO 00813100 0003:02DD:3 170222PK
|
|
BEGIN 00813200 0003:02DE:1
|
|
HFCEN[J]:= CONST; 3 00813300 0003:02DE:1 170222PK
|
|
FOR M:=4 STEP 4 UNTIL N-1 DO 00813400 0003:02DF:5 170222PK
|
|
HFCEN[J]:= HFCEN[J] + HAA[M]*(0.5*J)**M* 00813500 0003:02E2:0 170222PK
|
|
COS((I-1)*DEGREE5*M) 00813550 0003:02E6:5 170222PK
|
|
END; 00813600 0003:02EB:1
|
|
WRITE (OUTPUT, TABLE, HFCNRES) 3 00813700 0003:02EF:5
|
|
END; 00813800 0003:02F4:4
|
|
GO TO RDIM; 2 00813900 0003:02F8:5
|
|
00899000 0003:02F9:2
|
|
FINISH: 00899100 0003:02F9:2
|
|
END. 00899800 0003:02F9:2
|
|
DATA LENGTH IN WORDS IS 007B
|
|
DATA LENGTH IN WORDS IS 002B
|
|
BLOCK#1(0003) LENGTH IN WORDS IS 02FB
|
|
STACKCODE IS SEGMENT 0010
|
|
STACKCODE(0010) LENGTH IN WORDS IS 006A
|
|
|
|
====================================================================================================================================
|
|
NUMBER OF ERRORS DETECTED = 0.
|
|
NUMBER OF WARNINGS ISSUED = 1.
|
|
NUMBER OF SEGMENTS = 14. TOTAL SEGMENT SIZE = 1059 WORDS. CORE ESTIMATE = 2163 WORDS. STACK ESTIMATE = 66
|
|
PROGRAM SIZE = 209 CARDS, 2091 SYNTACTIC ITEMS, 68 DISK SECTORS.
|
|
PROGRAM FILE NAME: (PAUL)OBJECT/BALGOL/EXAMPLE1 ON OPS.
|
|
COMPILATION TIME = 0.467 SECONDS ELAPSED; 0.223 SECONDS PROCESSING; 0.102 SECONDS I/O.
|
|
====================================================================================================================================
|
|
|
|
INPUT DATA:
|
|
0.1000 0.2000 0.3000 0.4000 0.5000
|
|
0.6000 0.7000 0.8000 0.9000 0.1000
|
|
0.1100 0.1200 0.1300 0.1400 0.1500
|
|
0.1600 0.1700 0.1800 0.1900 0.2000
|
|
0.2100 0.2200 0.2300 0.2400 0.2500
|
|
0.2600 0.2700 0.2800 0.2900
|
|
NUMBER OF DIMENSIONS: 10
|
|
|
|
|
|
FRESULTS,FA[I,J]
|
|
0.46363975 0.00000000 0.00000000 0.00000000 0.02376409 0.00000000
|
|
0.00000000 0.00000000 -0.00715683 0.00000000 0.00000000 0.10859772
|
|
0.00000000 0.00000000 0.00000000 0.01179355 0.00000000 0.00000000
|
|
0.00000000 -0.00466756 0.00000000 0.00000000 0.04559661 0.00000000
|
|
0.00000000 0.00000000 0.00662809 0.00000000 0.00000000 0.00000000
|
|
0.00000000 0.00000000 0.00000000 0.02364557 0.00000000 0.00000000
|
|
0.00000000 0.00403492 0.00000000 0.00000000 0.00000000 0.00000000
|
|
0.00000000 0.00000000 0.01372359 0.00000000 0.00000000 0.00000000
|
|
0.00259449 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
|
|
0.00000000 0.00855046 0.00000000 0.00000000 0.00000000 0.00173528
|
|
0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
|
|
0.00559259 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
|
|
0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00378860
|
|
0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
|
|
0.00000000 0.00000000 0.00000000 0.00000000 0.00263495 0.00000000
|
|
0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
|
|
0.00000000 0.00000000 0.00000000 0.00187017
|
|
|
|
BRESULTS,B[I,J]
|
|
1.46862078 0.00000000 0.00000000 0.00000000 0.02376409 0.00000000
|
|
0.00000000 0.00000000 -0.00715683 0.00000000 0.00000000 1.51725873
|
|
0.00000000 0.00000000 0.00000000 0.01179355 0.00000000 0.00000000
|
|
0.00000000 -0.00466756 0.00000000 0.00000000 1.56103436 0.00000000
|
|
0.00000000 0.00000000 0.00662809 0.00000000 0.00000000 0.00000000
|
|
0.00000000 0.00000000 0.00000000 1.62579256 0.00000000 0.00000000
|
|
0.00000000 0.00403492 0.00000000 0.00000000 -0.31208978 0.00000000
|
|
0.00000000 0.00000000 1.78845750 0.00000000 0.00000000 0.00000000
|
|
0.00296132 0.00000000 0.00000000 -0.41973584 0.00000000 0.00000000
|
|
0.00000000 1.95474707 0.00000000 0.00000000 0.00000000 0.00224217
|
|
0.00000000 0.00000000 -0.45621891 0.00000000 0.00000000 0.00000000
|
|
2.09968015 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
|
|
0.00000000 -0.47127520 0.00000000 0.00000000 0.00000000 2.24504077
|
|
0.00000000 0.00000000 0.24615534 0.00000000 0.00000000 0.00000000
|
|
-0.62017166 0.00000000 0.00000000 0.00000000 2.60217293 0.00000000
|
|
0.00000000 0.45290397 0.00000000 0.00000000 0.00000000 -0.84088529
|
|
0.00000000 0.00000000 0.00000000 3.19761985
|
|
|
|
|
|
ARESULTS,A[I,J]
|
|
1.46862078 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
|
|
0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 1.51725873
|
|
0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
|
|
0.00000000 0.00000000 0.00000000 0.00000000 1.56103436 0.00000000
|
|
0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
|
|
0.00000000 0.00000000 0.00000000 1.62579256 0.00000000 0.00000000
|
|
0.00000000 0.00000000 0.00000000 0.00000000 -0.45834154 0.00000000
|
|
0.00000000 0.00000000 1.78845750 0.00000000 0.00000000 0.00000000
|
|
0.00000000 0.00000000 0.00000000 -0.63684787 0.00000000 0.00000000
|
|
0.00000000 1.95474707 0.00000000 0.00000000 0.00000000 0.00000000
|
|
0.00000000 0.00000000 -0.71217340 0.00000000 0.00000000 0.00000000
|
|
2.09968015 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
|
|
0.00000000 -0.76619571 0.00000000 0.00000000 0.00000000 2.24504077
|
|
0.00000000 0.00000000 0.64575929 0.00000000 0.00000000 0.00000000
|
|
-1.10915066 0.00000000 0.00000000 0.00000000 2.60217293 0.00000000
|
|
0.00000000 1.22268850 0.00000000 0.00000000 0.00000000 -1.64371805
|
|
0.00000000 0.00000000 0.00000000 3.19761985
|
|
|
|
HA[8NU-1]
|
|
5.05459676 4.22746744
|
|
|
|
|
|
PRELIMINARY BOUNDARY VALUES
|
|
0.00049796 0.00791169 0.03929300 0.12059664 0.28013585 0.52195921
|
|
0.74267215 0.54385348 -1.08334289 0.00015377 0.00012639 0.00003562
|
|
-0.00014939 -0.00046394 -0.00094593 -0.00163344 -0.00256166 -0.00375919
|
|
-0.00496748 -0.00643700 -0.00819553 -0.01026852 -0.01267808 -0.01544181
|
|
-0.01857169 -0.02207304 -0.02594347 -0.03017200 -0.03473833
|
|
|
|
CONSTANT
|
|
0.09317613
|
|
|
|
CORRECTED BOUNDARY VALUES
|
|
0.09367409 0.10108781 0.13246913 0.21377277 0.37331197 0.61513533
|
|
0.83584828 0.63702960 -0.99016676 0.09332990 0.09330251 0.09321175
|
|
0.09302673 0.09271219 0.09223020 0.09154268 0.09061446 0.08941694
|
|
0.08820865 0.08673912 0.08498060 0.08290760 0.08049804 0.07773432
|
|
0.07460443 0.07110308 0.06723265 0.06300412 0.05843780
|
|
|
|
|
|
THE VALUES OF H(RHO,TH) IN B
|
|
RHO 0.5 1.0 1.5 2.0 2.5 3.0
|
|
TH
|
|
0 0.44141586 14.56267126 268.53739949 2509.40591811 14676.43961763
|
|
|
|
|
|
THE VALUES OF H(RHO,TH) IN B
|
|
RHO 0.5 1.0 1.5 2.0 2.5 3.0
|
|
TH
|
|
5 0.41397667 12.04198740 210.11008942 1936.17081242 11276.59767973
|
|
|
|
|
|
THE VALUES OF H(RHO,TH) IN B
|
|
RHO 0.5 1.0 1.5 2.0 2.5 3.0
|
|
TH
|
|
10 0.33798098 5.55511615 61.63905157 483.02016362 2663.82243907
|
|
|
|
|
|
THE VALUES OF H(RHO,TH) IN B
|
|
RHO 0.5 1.0 1.5 2.0 2.5 3.0
|
|
TH
|
|
15 0.23022241 -2.16291316 -108.92447960 -1174.90468122 -7143.60132265
|
|
|
|
|
|
THE VALUES OF H(RHO,TH) IN B
|
|
RHO 0.5 1.0 1.5 2.0 2.5 3.0
|
|
TH
|
|
20 0.11237179 -7.96075825 -224.10072940 -2269.20240586 -13574.64010918
|
|
25 0.11237179 -7.96075825 -224.10072940 -2269.20240586 -13574.64010918
|
|
30 0.11237179 -7.96075825 -224.10072940 -2269.20240586 -13574.64010918
|
|
35 0.11237179 -7.96075825 -224.10072940 -2269.20240586 -13574.64010918
|
|
40 0.11237179 -7.96075825 -224.10072940 -2269.20240586 -13574.64010918
|
|
45 0.11237179 -7.96075825 -224.10072940 -2269.20240586 -13574.64010918
|
|
|