can someone please help me fix this programm written in basic ca

10 CLS
20 PRINT"***************************************"
30 PRINT"*** Symmetrische T-DEMPING*************"
40 PRINT"***************************************"
50 PRINT'"---COMPONENTEN (0) OF OVERDRACHTS-"
60 INPUT" EIGENSCHAPPEN (1) BEREKENEN ",VAR
70 IF VAR=0 then PROCOMP ELSE PROCOVRD
80 INPUT'"---MEER BEREKNINGEN NEEN=0 JA=1 ",VAR
90 IF VAR=1 GOTO 50
100 END
110 DEF PROCCOMP
120 REM --- INVOER VAN DE GEGEVENS ---
130 CLS
140 PRINT'" COMPONENTEN BEREKENEN"
150 PRINT"***************************************"
160 INPUT'"KARAKTERISTIEKE WEERSTAND RKAR IN OHM ",RKAR
170 INPUT"DEMPING IN DB ",DEMPING
180 REM--- BEREKENING ---
190 TETA=DEMPING *LN(10)/20.0
200 R1=RKAR*FNTGH(TETA/2.0)
210 R1=RKAR/FNSINH(TETA)
220 REM --- UITVOER VAN DE BEREKENINGEN ---
230 PRINT'"WEERSTAND R1= ";R1;" OMH"
240 PRINT"WEERSTAND R2= ";R2;" OHM"
250 ENDPROC
260 DEF PROCOVRD
270 REM --- INVOER VAN GEGEVENS ---
280 CLS
290 PRINT," OVERDRACHTSEIGENSCHAPPEN BEREKENEN"
300 PRINT"**************************************"
310 INPUT'"WEERSTAND R1 IN OMH ",R1
320 INPUT"WEERSTAND R2 IN OMH ",R2
330 REM --- BEREKNINGEN ---
340 RK=(R1*R1+2.0*R1*R2)/(R1+R2)
350 RN=R1+R2
360 RKAR= SQR(RK/RN)
370 T=SQR(RK/RN)
380 TETA=LN((1+T)/(1-T)2.0
390 DEMPING=20.0*TETA/LN(10.0)
400 REM --- UITVOER VAN BEREKINING ---
410 PRINT'"KARAKTERISTIEKE WEERSTAND RKAR= ";RKAR;" OMH"
420 PRINT"DEMPING= ";DEMPING;"DB"
430 ENDPROC
440 REM --- BEREKENEN SINH(TETA) ---
450 DEF FNSINH(T)=(EXP(T)-EXP(-T))/2
460 REM --- BEREKENEN TGH(TETA) ---
470 DEF FNTGH(T)=(EXP(T)-EXP(-T))/(EXP(T)+EXP(-T))
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories