Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0087/lan12.bas
There is 1 other file named lan12.bas in the archive. Click here to see a list.
00010 ' LAN12
00020 ' DUANE MOORE D I G I T A L
00030 ' READS THE FILE YPARAM.LAN AND THE PARAMETERS ARE LISTED
00040 ' IN A FILE: YTABLE.LAN. BOTH POLAR AND RECTANGULAR FORMS
00050 ' ARE LISTED.
00060 '
00070 FILES YPARAM.LAN,LAN.BAK,YTABLE.LAN
00080 MARGIN #3,110
00090 SCRATCH #2,#3
00100 PRINT "OUTPUT FILE: YTABLE.LAN"
00110 FOR J=1 TO 7 STEP 2
00120 IF END#1 GOTO 230
00130 INPUT #1,F
00140 FOR I=1 TO 8
00150 INPUT #1,Y(I)
00160 NEXT I
00170 IF Y(J)>=0 GOTO 200
00180 LET Y(J)=-Y(J)
00190 LET Y(J+1)=Y(J+1)+180
00200 PRINT #2,F,Y(J),20*CLOG(Y(J)),Y(J+1);
00210 PRINT #2,Y(J)*COS(Y(J+1)/57.29577951),Y(J)*SIN(Y(J+1)/57.29577951)
00220 GOTO 120
00230 IF J=1 GOTO 280
00240 IF J=3 GOTO 300
00250 IF J=5 GOTO 320
00260 LET D$="Y(2,2)"
00270 GOTO 330
00280 LET D$="Y(1,1)"
00290 GOTO 330
00300 LET D$="Y(1,2)"
00310 GOTO 330
00320 LET D$="Y(2,1)"
00330 RESTORE #2
00340 GOSUB 400
00350 RESTORE #2
00360 SCRATCH #2
00370 RESTORE #1
00380 NEXT J
00390 CHAIN LAN,200
00400 PRINT #3 TAB(37)"***"D$"***"
00410 PRINT #3
00420 PRINT #3 "FREQUENCY"," MAGNITUDE"," MAG (DB)"," PHASE"," CONDUCTANCE",
00430 PRINT #3 " SUSCEPTANCE"
00440 IF END #2 GOTO 510
00450 FOR I=1 TO 6
00460 INPUT #2,A
00470 PRINT #3,A,
00480 NEXT I
00490 PRINT #3
00500 GOTO 440
00510 PRINT #3 <PA>
00520 RETURN
00530 END