1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   OPAMP301
3 REM ! Utg}va  1      81-05-03
4 REM ! av (c) ROBERT SEIMANN
7 REM ! Minne 16 Kbytes
8 REM ! Ins{nt av ROBERT SEIMANN
9 REM +++++++++++++++++++++++++++++++++
10 ; CHR$(12)
20 RESTORE 
30 ; '*** OPERATIONS F\RST[RKAR OPTIMERING ***'
40 ; '                F\R 301A'
50 ; : ; 
60 ; '\NSKAD MINIMUM FREKVENS RESPONS I Hz'
70 ; 'HERTZ :';
80 ONERRORGOTO 60
90 INPUT A
100 ; 
110 ; '\NSKAD CLOSED LOOP F\RST[RKNING ';
120 ONERRORGOTO 110
130 INPUT B
140 C=A*B
150 IF C>1E+6 THEN 170
160 GOTO 210
170 ; : ; 'REDUCERA ANTINGEN FREKVENS RESPONSEN    ELLER F\RST[RKNINGEN,';
180 ; 'S] ATT PRODUKTEN   AV DOM TV] BLIR MINDRE [N ELLER         LIKA MED 1.000.000.'
190 ; 
200 GOTO 60
210 IF B>20000 THEN 230
220 GOTO 310
230 ; : ; 'MAXIMALA F\RST[RKNINGEN TILLG[NGLIG     MED DEN GIVNA FREKVENSEN [R ';
240 IF 1E+6/A>=20000 THEN 280
250 ; 1E+6/A
260 ; 
270 GOTO 60
280 ; '20000.'
290 ; 
300 GOTO 60
310 IF B<10 THEN 330
320 GOTO 360
330 ; : ; 'F\RST[RKNINGEN M]STE VARA ST\RRE [N 10, OM LINEARITETEN OCH STABILITETEN SKALL  BIBEH]LLAS.'
340 ; 
350 GOTO 60
360 REM UPPSKATTA R2.
370 R2=(100*B)-100
380 REM TA REDA P] EIA STANDARD V[RDET F\R R2.'
390 READ C
400 IF R2<=C THEN 420
410 GOTO 390
420 R2=C
430 R1=R2/(B-1)
440 REM TA REDA P] BETA
450 D=R1/(R1+R2)
460 REM TA REDA P] LOOP F\RST[RKNINGEN
470 E=(1E+6/A)*D
480 REM TA REDA P] SANNA SIGNAL F\RST[RKNINGEN
490 REM TA MED CLOSED LOOP FELEN I BER[KNINGEN
500 B=((R1+R2)/R1)*(1/(1+(1/E)))
510 REM TA REDA P] % FELET
520 F=100/(E+1)
530 REM TA REDA P] UTG]NGS IMPEDANSEN
540 G=150/(1+E)
550 REM TA REDA P] TRANSIENT RESPONSEN
560 H=.35/A
570 REM TA REDA P] OFFSET UTG]NGS SP[NNINGEN BEROENDE P] ING]NGS OFFSET SP[NNINGEN
580 I=.002*(1/D)
590 REM TA REDA P] LINEARITETEN (THD)
600 J=.01/(1+E)
610 REM OMVANDLA TILL %
620 J=J*100
630 ; CHR$(12)
640 ; 'VERKLIG CLOSED LOOP GAIN [R';B
650 ; 
660 ; 'LOOP F\RST[RKNINGEN [R';E;' G]NGER.'
670 ; 
680 ; 'FEL ORSAKAD AV CLOSED LOOP,             CONFIGURATIONEN [R';F;" %"
690 ; 
700 ; 'UTG]NGS IMPEDANSEN [R';G;' OHM.'
710 ; 
720 ; 'TRANSIENT RESPONSEN [R';H
730 ; 
740 ; 'OFFSET UTG]NGS SP[NNINGEN [R';I
750 ; 
760 ; 'LINEARITETEN (THD) [R';J;" %"
770 ; 
780 ; 'MOTKOPPLINGS MOTST]ND R2 [R';R2;' OHM.'
790 ; 
800 ; 'MOTKOPPLINGS/BIAS MOTST]ND R1 [R';INT(R1);' OHM'
810 ; 
820 ; 'TRYCK P] RET F\R ATT F] UPPKOPPLINGEN.'
830 GET Q$
840 RESTORE 1000
850 ; CHR$(12)
860 FOR I=0 TO 22
870 READ A$
880 ; CUR(I,0);CHR$(151);A$
890 NEXT I
900 ; '  VILL DU G\RA EN NY BER[KNING (J/N)?'; : GET Q$ : IF Q$='J' THEN 10 ELSE ; : ; '  TACK F\R DEN H[R G]NGEN.'
910 END 
920 DATA 1E3,1.2E3,1.5E3,1.8E3,2.2E3
930 DATA 2.7E3,3.3E3,3.9E3.4.7E3,5.6E3
940 DATA 6.8E3,8.2E3,1E4,1.2E4,1.5E4
950 DATA 1.8E4,2.2E4,2.7E4,3.3E4,3.9E4
960 DATA 4.7E4,5.6E4,6.8E4,8.2E4,1E5
970 DATA 1.2E5,1.5E5,1.8E5,2.2E5,2.7E5
980 DATA 3.3E5,3.9E5,4.7E5,5.6E5,6.8E5
990 DATA 8.2E5,1E6,1.2E6,1.5E6,1.8E6,2.2E6
1000 DATA "                h,,,,,4"
1010 DATA "           7####kppppp7######k"
1020 DATA "           5     R 2       j"
1030 DATA "           5                 j"
1040 DATA "   R 1   5   2h0         j"
1050 DATA " pp7####kppuppppppz""d        j"
1060 DATA " 5 -,,,,.      _j  )0      j"
1070 DATA " 5                j   ""d     j"
1080 DATA "pu0               j     )0   j"
1090 DATA "##!               j      ""d  j6`0"
1100 DATA "                  j301A 8######+%UT"
1110 DATA "                  j     `&"
1120 DATA "                  j    8k"
1130 DATA "        p      +j  `& j +12 V BEN 7"
1140 DATA "     IN /#########k 8!  j"
1150 DATA "               3j&5   j -12 V BEN 4"
1160 DATA "                    5jj j"
1170 DATA "                    #kj##"
1180 DATA "                     """""
1190 DATA "KOMPENSERING     30 pF"
1200 DATA "MELLAN BEN 1-8"
1210 DATA "BALANSERING BEN 1-5"
1220 DATA ""