DESARROLLO DE HERRAMIENTAS - FI-UAEMex

LET esfx = 45 / mfx
ELSE
esfx = 1
END IF
IF mfy 0 THEN
LET esfy = 30 / mfy
ELSE
esfy = 1
END IF
IF mfa 0 THEN
LET esfa = 10 / mfa
ELSE
esfa = 1
END IF
IF esfx < esfy THEN
esf = esfx
ELSE
esf = esfy
END IF
REM factor de escala para desplazamientos
IF mdx 0 THEN
LET esdx = 45 / mdx
ELSE
esdx = 1
END IF
IF mdy 0 THEN
LET esdy = 30 / mdy
ELSE
esdy = 1
END IF
IF esdx < esdy THEN
esd = esdx
ELSE
esd = esdy
END IF
REM multiplica por el factor de escala
FOR i = 1 TO nna STEP 1
x(i) = es * x(i)
y(i) = es * y(i)
fx(i) = esf * fx(i)
fy(i) = esf * fy(i)
NEXT i
REM desplazamientos a escala
FOR i = 1 TO nna STEP 1
dx(i) = esd * dx(i)
dy(i) = esd * dy(i)
NEXT i
REM esfuerzos a escala
FOR i = 1 TO nb STEP 1
fa(i) = esfa * fa(i)
NEXT i
REM limites de la ventana de interfaz
WINDOW (-140, -70)-(500, 280)
REM marco de la interfaz gráfica
LINE (-50, -55)-(490, 265), 10, B
HERRAMIENTAS DE CÓMPUTO 169
DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL
PARA SU USO DESDE LA INTERNET