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

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

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.