home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11b.d64 / schwingkreis (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  943b  |  37 lines

  1. 10 REM PROGRAMM ZUR BERECHNUNG VON
  2. 20 REM SERIEN- UND PARALLEL-
  3. 30 REM SCHWINGKREISEN
  4. 40 :
  5. 90 PI=3.141592654
  6. 100 PRINT CHR$(14)"[147]"TAB(13)"[194]ERECHNUNG VON"
  7. 110 PRINT"   [211]ERIEN- UND [208]ARALLELSCHWINGKREISEN"
  8. 120 PRINT"  [211][146]ERIEN- ODER [208][146]ARALLELSCHWINGKREIS ?"
  9. 130 GETE$:IFE$=""THEN130
  10. 140 IFE$="P"THEN170
  11. 150 IFE$<>"S"THEN130
  12. 160 AS%=1
  13. 170 INPUT"[215]ERT DES [203]ONDENSATORS [P[198]]:";C
  14. 180 INPUT"[215]ERT DER [211]PULE [U[200]]:";L
  15. 190 INPUT"[215]IDERSTAND DER [211]PULE [[207]HM]:";R
  16. 200 C=C*10^(-12):L=L*10^(-6):
  17. 210 FO=INT(1/(2*PI*SQR(L*C))):W0=1/FO
  18. 215 F1=FO/1000
  19. 220 PRINT"[210]ESONANZFREQUENZ :";F1;"[203][200]Z"
  20. 230 B=R/(2*PI*L)
  21. 240 PRINT"[194]ANDBREITE :";(INT(B*1000))/1000;"[200]Z"
  22. 250 D=B/FO
  23. 260 PRINT"[196]AEMPFUNG :";(INT(D*1000))/1000
  24. 270 Q=1/D
  25. 280 PRINT"[199]UETE :";(INT(Q*1000))/1000
  26. 290 IFAS%THENR0=R:GOTO310
  27. 300 R0=Q^2*R
  28. 310 PRINT"[210]ESONANZWIDERSTAND :";(INT(R0*1000))/1000;"[207]HM"
  29. 320 PRINT"[215]OLLEN [211]IE NEUE [215]ERTE EINGEBEN ([202]/[206]) ?"
  30. 330 GET A$:IF A$=""THEN 330
  31. 340 IF A$="J"THEN90
  32. 350 END
  33. 400 PRINT"[215]OLLEN [211]IE NEUE [215]ERTE EINGEBEN ([202]/[206]) ?"
  34. 410 GET A$:IF A$=""THEN 410
  35. 420 IF A$="J"THEN90
  36. 430 END
  37.