home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh11b.d64
/
schwingkreis
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
943b
|
37 lines
10 REM PROGRAMM ZUR BERECHNUNG VON
20 REM SERIEN- UND PARALLEL-
30 REM SCHWINGKREISEN
40 :
90 PI=3.141592654
100 PRINT CHR$(14)"[147]"TAB(13)"[194]ERECHNUNG VON"
110 PRINT" [211]ERIEN- UND [208]ARALLELSCHWINGKREISEN"
120 PRINT" [211][146]ERIEN- ODER [208][146]ARALLELSCHWINGKREIS ?"
130 GETE$:IFE$=""THEN130
140 IFE$="P"THEN170
150 IFE$<>"S"THEN130
160 AS%=1
170 INPUT"[215]ERT DES [203]ONDENSATORS [P[198]]:";C
180 INPUT"[215]ERT DER [211]PULE [U[200]]:";L
190 INPUT"[215]IDERSTAND DER [211]PULE [[207]HM]:";R
200 C=C*10^(-12):L=L*10^(-6):
210 FO=INT(1/(2*PI*SQR(L*C))):W0=1/FO
215 F1=FO/1000
220 PRINT"[210]ESONANZFREQUENZ :";F1;"[203][200]Z"
230 B=R/(2*PI*L)
240 PRINT"[194]ANDBREITE :";(INT(B*1000))/1000;"[200]Z"
250 D=B/FO
260 PRINT"[196]AEMPFUNG :";(INT(D*1000))/1000
270 Q=1/D
280 PRINT"[199]UETE :";(INT(Q*1000))/1000
290 IFAS%THENR0=R:GOTO310
300 R0=Q^2*R
310 PRINT"[210]ESONANZWIDERSTAND :";(INT(R0*1000))/1000;"[207]HM"
320 PRINT"[215]OLLEN [211]IE NEUE [215]ERTE EINGEBEN ([202]/[206]) ?"
330 GET A$:IF A$=""THEN 330
340 IF A$="J"THEN90
350 END
400 PRINT"[215]OLLEN [211]IE NEUE [215]ERTE EINGEBEN ([202]/[206]) ?"
410 GET A$:IF A$=""THEN 410
420 IF A$="J"THEN90
430 END