home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh11b.d64
/
spulenberechnung
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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