home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_B.d64 / spulenberechnung (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.