%%HP: T(1)A(D)F(.);
DIR
  calculo
     3 FIX
      DO
"CALCULO CORTANTE"
{ { "BW=" "BW EM M"
0 } { "H=" "H EM M"
0 } { "VD="
"VD+ OU VD- EM MODULO  MN"
0 } { "FCK="
"FCK EM MPA" 0 } {
"ACO="
"ACO CA 25,32,40,50 OU 60"
0 } { "E="
"ESTRIBOS 1 BARRAS DOBRADAS 2"
0 } { "AS="
"AREA ACO TRACIONADO 2H APOIO CM"
0 } { "="
"ANGULO INCLINACAO DAS BARRAS"
0 } } { 2 8 } { } {
} INFORM DROP { BW
H VD FCK ACO E T 
} STO WD. 1. fywd
 SIN  COS + F *
INV 10000 * BW * d
* 'A' STO fad AK
amin "Asw=" Asw
STR + " cm" +
CLLCD 1 DISP 0 WAIT
Asw 'As' STO BARRA
esp
"RESULTADOS FINAIS"
"REPLAY ?" "Asw="
Asw STR + "cm" +
"esp=" e. STR +
"cm" + "n=" n STR
+ STD "="  STR +
"" + 3 FIX "fcd="
FCD STR + "fyk="
FYK STR + "fyd="
FYD STR + "d=" D
STR + "cm" + "k="
K STR + "Amin=" AM
STR + "cm" +
"wd=" wd STR +
"wu=" wu STR +
"1="  STR +
"d=" d STR + 15
LIST CLLCD 1
CHOOSE
      UNTIL 0 ==
      END STD { A
d As wu FCD wd D
c  1 F FYD  T E
ACO FYK e. B n g
FCK VD H BW Z AM W
l Asw r AK K V v }
PURGE
    
  CALCULOS
    DIR
      CST {
CALCULO. }
      CALCULO.
         CLLCD
" DIMENSIONAMENTO PARA

    FORA CORTANTE

    Geraldo Leonel

     tel.:2324321"
1 DISP .1 WAIT :0:
calculo EVAL
        
    END
  BARRA
     STD
"ESTRIBOS - BITOLA"
As .64 / CEIL STR
" _6,3mm" + As 1 /
CEIL STR " _8mm"
+ As 1.6 / CEIL
STR " _10mm" + As
2.5 / CEIL STR
" _12,5mm" + As 4
/ CEIL STR
" _16mm" + As 6.3
/ CEIL STR
" _20mm" + As 9.82
/ CEIL STR
" _25mm" + 7 LIST
0 CLLCD CHOOSE
CLEAR 3 FIX
    
  fad
     "FADIGA" { {
"V.MIN.="
"V.MIN. EM KN" 0 }
{ "V.MAX.="
"V.MAX. EM KN" 0 }
{ "COEF.="
"COEFIC. P/ CALCULO DE K"
0 } } { 1 3 } { } {
} INFORM DROP { v V
r } STO v V * 'G'
STO
      CASE G 0 >
        THEN 1 v V
/ - FYK * r / 'K'
STO
          IF K 1 
          THEN 1
'K' STO
          END
        END G 0 
        THEN FYK r
/ 'K' STO
          IF K 1 
          THEN 1
'K' STO
          END
        END
      END K A *
'AK' STO
    
  esp
     D 100 * 'D'
STO "ESPACAMENTO" {
{ "BITOLA ="
"BITOLA ACO ESCOLHIDO EM MM"
0 } { "COMPR.="
" BARRA LONGIT. COMPR.  MM"
0 } } { 1 2 } { } {
} INFORM DROP { B l
} STO 3.14159 B 10
/ 2 ^ * 4 / 'W' STO
Asw 2 W * / 'n' STO
100 n / 'e.' STO
      IF l 0 ==
      THEN
        IF e. D 2 /

        THEN e.
'e.' STO
        ELSE D 2 /
'e.' STO
        END
        IF e. 30 
        THEN e.
'e.' STO
        ELSE 30
'e.' STO
        END
      ELSE
        IF ACO 25
== ACO 32 == OR
        THEN D 2 /
30 21 l * 3 LIST
SORT 1 GET 'g' STO
          IF e. g 
          THEN e.
'e.' STO
          ELSE g
'e.' STO
          END
        ELSE D 2 /
30 12 l * 3 LIST
SORT 1 GET 'g' STO
        END
        IF e. g 
        THEN e.
'e.' STO
        ELSE g 'e.'
STO
        END
      END
    
  WD.
     H .95 * 'D'
STO VD BW D * /
'wd' STO FCK 1.5 /
'FCD' STO
      IF  45 ==
      THEN .3 FCD *
'wu' STO
        IF wu 5.5

        THEN wu
'wu' STO
        ELSE 5.5
'wu' STO
        END
      ELSE .25 FCD
* 'wu' STO
        IF wu 4.5

        THEN wu
'wu' STO
        ELSE 4.5
'wu' STO
        END
      END
      IF wd wu 
      THEN wd
'wd' STO
      ELSE wu
'wd' STO
      END
    
  fywd
     ACO 10 *
'FYK' STO FYK 1.15
/ 'FYD' STO
      IF E 1 ==
      THEN
        IF FYD 435
<
        THEN FYD
'F' STO
        ELSE 435
'F' STO
        END
      ELSE .7 FYD *
'Z' STO
        IF Z 435 <
        THEN Z 'F'
STO
        ELSE 435
'F' STO
        END
      END
    
  1.
     T BW 100 * H
100 * * / '1' STO
      CASE 1 .001

        THEN .07
'' STO
        END 1 .015

        THEN .14
'' STO
        END 1 .001
> 1 .015 < AND
        THEN 1
.015 - .001 .015 -
/ .07 .14 - * .14 +
'' STO
        END
      END  FCK  *
'c' STO
"c arredondado ?"
c STR INPUT OBJ
'c' STO 1.15 wd *
c - 'd' STO
    
  amin
    
      IF ACO 25 ==
ACO 32 == OR
      THEN .25 BW *
 SIN * 100 * 'AM'
STO
      ELSE .14 BW *
 SIN * 100 * 'AM'
STO
      END AK AM 2
LIST SORT 2 GET
'Asw' STO
    
END
