3 'NETZTEILDIMENSIONIERUNG (c) by Dietmar Harlos 210793 4 'definitions 5 DEFCHR$(255)="fefe828282":DEFCHR$(254)="828282fefe":IFs<0ORs>4;s=0 6 o=s:i$=CHR$(28)+CHR$(28)+CHR$(28)+CHR$(28)+CHR$(28):w$=" "+i$+" ":s$="˙"+i$+"ŝ" 9 'menux 10 CLS:PRINT "*** NETZTEILDIMENSIONIERUNG *** Uinpu Uoutp Udiff Cstab Imaxi";:LOCATE0,0 20 LOCATEo*6,1:PRINTw$;:LOCATEs*6,1:PRINTs$;:o=s 30 i=ASC(INPUT$(1,@)) 31 IFi=28;IFs<4;s=s+1:GOTO20ELSE30 32 IFi=29;IFs>0;s=s-1:GOTO20ELSE30 33 CLS:IFi<>13;END 199 'input 200 IFs;INPUT"Uinput["+STR$(uin)+"V] ";uin 210 IFs<>1;INPUT"Uoutput["+STR$(uout)+"V] ";uout 215 IFs<>2;INPUT"Udiff["+STR$(ud)+"V] ";ud 220 IFs<>3;INPUT"Cstabil["+STR$(cabr)+"yF] ";cabr 240 IFs<>4;INPUT"Imaximal["+STR$(imax)+"A] ";imax 249 'calculation 250 ONs GOTO310,330,320,340 300 GOSUB420:GOSUB440:GOSUB500:GOSUB490:uin=ROUND(uin,-4) 301 i$="Uinà"+STR$(uin)+"V":GOTO350 310 GOSUB400:GOSUB420:GOSUB410:GOSUB430:uout=ROUND(uout,-4) 311 i$="Uoutá"+STR$(uout)+"V":GOTO350 320 GOSUB400:GOSUB440:GOSUB450:GOSUB480:cabr=ROUND(cabr*1E6,-3) 321 i$="Cstabà"+STR$(cabr)+"yF":GOTO350 330 GOSUB400:GOSUB420:GOSUB410:GOSUB470:ud=ROUND(ud,-4) 331 i$="Udiffá"+STR$(ud)+"V":GOTO350 340 GOSUB400:GOSUB440:GOSUB450:GOSUB460:imax=ROUND(imax,-4) 341 i$="Imaximalá"+STR$(imax)+"A" 350 p=ROUND((ud+ubr*.6)*imax,-4):PRINTi$TAB(18)"Pmaxá"STR$(p)"W":GOTO10 399 'equations 400 uema=uin*SQR2-2*.6:RETURN 410 uemi=uema-ubr:RETURN 420 ubr=imax/(100*cabr*1E-6):RETURN 430 uout=uemi-ud:RETURN 440 uemi=uout+ud:RETURN 450 ubr=uema-uemi:RETURN 460 imax=ubr*100*cabr*1E-6:RETURN 470 ud=uemi-uout:RETURN 480 cabr=imax/(100*ubr):RETURN 490 uin=(uema+2*.6)/SQR2:RETURN 500 uema=uemi+ubr:RETURN