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 >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
34 lines
100 rem berechnung von einlagigen spulen
110 rem eng gewickelt
120 :
130 printchr$(14)"[147] [194]erechnung von einlagigen [211]pulen"
140 print"[196]ieses [208]rogramm errechnet [215]indungen,"
150 print"[199]uete [209]l und [211]pulenwiderstand [210]s von"
160 print"einlagigen [211]pulen mit [197]isenkern."
170 input"[201]nduktivitaetsfaktor [193]l [n[200]] :";al
180 input"[201]nduktivitaet [mikro[200]] :";l
190 al=al*10^-9:l=l*10^-6
200 n=int(sqr(l/al))
210 input"[196]urchmesser [197]isenkern [mm] :";d
220 d=d*10^-3
230 print"[196]urchmesser [195]u[204]-[196]raht [mm] :"
235 print"mit <[211][208][193][195][197]> auswaehlen"
240 read cd:read rc:if cd=-1 then restore:goto240
250 print""tab(28);cd;" "
260 geta$:ifa$=""then260
270 if a$=" "then240
280 if a$<>chr$(13)then260
290 print" "
300 print"[215]indungen : ";n
310 rs=((3.141592654*d)*rc*n)
320 print"[211]pulenwiderstand :";(int(10000*rs))/10000;"[207]hm"
330 print"[215]ollen [211]ie neue [215]erte eingeben ([202]/[206]) ?"
340 geta$:ifa$=""then340
350 ifa$="j"then run
360 ifa$<>"n" then 340
370 end
1000 data .065,8.94,.075,6.21,.098,3.49,.122,2.23,.142,1.55,.179,.99
1010 data .23,.56,.285,.36,.337,.25,.444,.14,.551,.089,.659,.062
1020 data .759,.046,.872,.035,1.072,.022,1.291,.015,-1,-1
10000 data .065,.075,.098,.122,.142,.179500