%%HP: T(1)A(D)F(.);

"ARMADURAS PARA HORMIGON EHE.
Por:Jeremas Martnez
Pastor."
MSGBOX CLEAR
"HORMIGON-VIGAS" {
{ "Hormigon:"
"Fck en N/mm" 0 }
{ } { "Acero:"
"B400S o B500S" 0 }
{ } { "SeccionH:"
"Altura EN cm" 0 }
{ "B:" "Base EN cm"
0 } { "D:"
"Canto Util EN m" 0
} { "M:"
"MOMENTO DE CALCULO EN M*KN"
0 } } { 2 0 } {
NOVAL 400 NOVAL
NOVAL NOVAL NOVAL }
{ NOVAL 400 NOVAL
NOVAL NOVAL NOVAL }
INFORM DROP { f a h
b d m } STO CLEAR
  IF 'm<.319*(f*10/
1.5)*b*d^2'
  THEN
    IF '0<(8.5*f*b*
d/1.5+((8.5*f*b*d/
1.5)^2-4*m*(8.5*f*b
/3)))/(2*8.5*f*b/3)
<d/2'
    THEN '8.5*f*b/
1.5*(8.5*f*b*d/1.5+
((8.5*f*b*d/1.5)^2
-4*m*(8.5*f*b/3)))/
(2*8.5*f*b/3)' EVAL
"Us1" TAG
    ELSE '8.5*f*b/
1.5*(8.5*f*b*d/1.5-
((8.5*f*b*d/1.5)^2
-4*m*(8.5*f*b/3)))/
(2*8.5*f*b/3)' EVAL
"Us1" TAG
    END
  ELSE '(m-.319*(f*
10/1.5)*b*d^2)/(d-
.05)' EVAL "Us2"
TAG '(m-3.19*(f/
1.5)*b*d^2)/(d-.05)
+7.225*f*b*d/1.5'
EVAL "Us1" TAG
  END '3.19*(f/1.5)
*b*d^2' EVAL
"Mdlim" TAG '.04*(
f/1.5)*b*(h/10)'
EVAL "Mim Mec Us1"
TAG
  IF 'a==400'
  THEN '3.3/1000*b*
h' EVAL
"Min Geo As1" TAG
'3.3/1000*b*h*.3'
EVAL "Min Geo As2"
TAG
  ELSE '2.8/1000*b*
h' EVAL "As1" TAG
'2.8/1000*b*h*.3'
EVAL "As2" TAG
  END { a b d m f h
} PURGE

