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

Howdy, Stranger!

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

Categories

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

raoultoludraoultolud Posts: 2Member
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.