DESARROLLO DE HERRAMIENTAS - FI-UAEMex

IF i j THEN
IF y(i) > y(j) THEN
IF my < y(i) THEN
my = y(i)
ELSE
END IF
ELSE
END IF
ELSE
END IF
NEXT j
NEXT i
PRINT #2, "Máxima y = ", my
PRINT #2, " "
IF mx = 0 THEN
mx = 1
ELSE
END IF
IF my = 0 THEN
my = 1
ELSE
END IF
REM dibujo de las barras
REM cálculo del factor de escala
LET esx = 450 / mx
LET esy = 230 / my
IF esx < esy THEN
es = esx
ELSE
es = esy
END IF
REM máxima fuerza en x
LET mfx = 0
FOR i = 1 TO nna STEP 1
FOR j = 1 TO nna STEP 1
IF i j THEN
IF ABS(fx(i)) > ABS(fx(j)) THEN
IF mfx < ABS(fx(i)) THEN
mfx = ABS(fx(i))
ELSE
END IF
ELSE
END IF
ELSE
END IF
NEXT j
NEXT i
PRINT #2, "Máxima fuerza en x = ", mfx
PRINT #2, " "
REM máxima fuerza en y
LET mfy = 0
FOR i = 1 TO nna STEP 1
FOR j = 1 TO nna STEP 1
IF i j THEN
IF ABS(fy(i)) > ABS(fy(j)) THEN
IF mfy < ABS(fy(i)) THEN
mfy = ABS(fy(i))
ELSE
END IF
ELSE
END IF
ELSE
END IF
HERRAMIENTAS DE CÓMPUTO 167
DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL
PARA SU USO DESDE LA INTERNET