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

  1. 100 REM BERECHNUNG VON EINLAGIGEN SPULEN
  2. 110 REM ENG GEWICKELT
  3. 120 :
  4. 130 PRINTCHR$(14)"[147]    [194]ERECHNUNG VON EINLAGIGEN [211]PULEN"
  5. 140 PRINT"[196]IESES [208]ROGRAMM ERRECHNET [215]INDUNGEN,"
  6. 150 PRINT"[199]UETE [209]L UND [211]PULENWIDERSTAND [210]S VON"
  7. 160 PRINT"EINLAGIGEN [211]PULEN MIT [197]ISENKERN."
  8. 170 INPUT"[201]NDUKTIVITAETSFAKTOR [193]L [N[200]] :";AL
  9. 180 INPUT"[201]NDUKTIVITAET [MIKRO[200]] :";L
  10. 190 AL=AL*10^-9:L=L*10^-6
  11. 200 N=INT(SQR(L/AL))
  12. 210 INPUT"[196]URCHMESSER [197]ISENKERN [MM] :";D
  13. 220 D=D*10^-3
  14. 230 PRINT"[196]URCHMESSER [195]U[204]-[196]RAHT [MM] :"
  15. 235 PRINT"MIT <[211][208][193][195][197]> AUSWAEHLEN"
  16. 240 READ CD:READ RC:IF CD=-1 THEN RESTORE:GOTO240
  17. 250 PRINT""TAB(28);CD;"   "
  18. 260 GETA$:IFA$=""THEN260
  19. 270 IF A$=" "THEN240
  20. 280 IF A$<>CHR$(13)THEN260
  21. 290 PRINT"                             "
  22. 300 PRINT"[215]INDUNGEN : ";N
  23. 310 RS=((3.141592654*D)*RC*N)
  24. 320 PRINT"[211]PULENWIDERSTAND :";(INT(10000*RS))/10000;"[207]HM"
  25. 330 PRINT"[215]OLLEN [211]IE NEUE [215]ERTE EINGEBEN ([202]/[206]) ?"
  26. 340 GETA$:IFA$=""THEN340
  27. 350 IFA$="J"THEN RUN
  28. 360 IFA$<>"N" THEN 340
  29. 370 END
  30. 1000 DATA .065,8.94,.075,6.21,.098,3.49,.122,2.23,.142,1.55,.179,.99
  31. 1010 DATA .23,.56,.285,.36,.337,.25,.444,.14,.551,.089,.659,.062
  32. 1020 DATA .759,.046,.872,.035,1.072,.022,1.291,.015,-1,-1
  33. 10000 DATA .065,.075,.098,.122,.142,.179500
  34.