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