de fortran a scilab
Publicado por Marco (1 intervención) el 16/08/2010 22:28:50
necesito ayuda o sugerencias para poder pasar este codigo en fortran a scilab. cualquier ayuda se agradece.
READ T,H,HO
DATA...
LO=9.81*T^2/2/PI
MN=LO: IT=O: L=LO
IT=IT+1: IF IT>100 THEN GOTO150
A=EXP(2*PI*H/MN): B=EXP(-2*PI*H/MN)
TP=L: L=LO*(A-B)/(A+B)
IF ABS(TP-L)<.0001 THEN GOTO110
MN=(TP+L)/2: GOTO60
A=4*PI*H/L
N=.5*(1+A/(EXP(A)-EXP(-A))*2)
H1=HO*AQR(.5*LO/N/L)
PRINT,H1,L
END
READ T,H,HO
DATA...
LO=9.81*T^2/2/PI
MN=LO: IT=O: L=LO
IT=IT+1: IF IT>100 THEN GOTO150
A=EXP(2*PI*H/MN): B=EXP(-2*PI*H/MN)
TP=L: L=LO*(A-B)/(A+B)
IF ABS(TP-L)<.0001 THEN GOTO110
MN=(TP+L)/2: GOTO60
A=4*PI*H/L
N=.5*(1+A/(EXP(A)-EXP(-A))*2)
H1=HO*AQR(.5*LO/N/L)
PRINT,H1,L
END
Valora esta pregunta
0