PROGRAMA TESTE SAPATA
EXPORT SAPATAV5()
BEGIN
LOCAL a,b,d,MPA,h;
LOCAL RCA,RCC,FYK,CSA,CSC;
LOCAL ASP;
INPUT({{P,[0],{30,30,1}},
{X,[0],{20,20,3}},
{Y,[0],{70,20,3}},
{W,[0],{30,30,5}}},
"DIMENSAO E CARGA NO PILAR",
{"P(kgf)= ","a(cm)= ","b(cm)= ","d'(cm)= "},
{"Esforço normal (kgf)","Seção Lado a (lado maior)","Seção Lado b (lado menor)","Da base da sapata ao centro geométrico da camada (d')"});
a:=X;
b:=Y;
d:=W;
INPUT({{M,{"15","20","25","30"},{20,15,1}},
{T,{"AREIA UMIDA","PEDREGULHO e AREIA GROSSA","ROCHA SÃ","OUTRO"},{20,15,3}}},
"TENSAO DO CONCRETO (fck)",
{"fck","solo"},
{"MPa","kgf/cm²"});
L1:={2, 6.5, 30, 1000};
L2:={15, 20, 25, 30};
L3:={.139,.196,.312,.503,.785,1.227,2.011};
L4:={4,5,6.3,8,10,12.5,16,20,25};
S:=L1(T);
MPA:=L2(M);
// PARTE II
ASP:=a*b;
CSC:=1.4;
CSA:=1.15;
RCC:=ROUND(MPA*10/CSC,2);
FYK:=5000;
RCA:=ROUND(FYK/CSA,2);
// PARTE III
LOCAL CMEN,ENC;
CMEN:=1.4;
ENC:=P*CMEN;
// PARTE IV
LOCAL ABSap;
ABSap:=ENC/S;
// PARTE V
LOCAL BSA,BSAA,BSB,BSBA;
BSA:=(√(ABSap/(a/b)))*(a/b);
BSAA:=BSA;
BSB:=√(ABSap/(a/b));
BSBA:=BSB;
// PARTE VI
LOCAL ADS,ADSA,H52,J52;
LOCAL L52,I52,h;
H52:=(BSAA-a)/4;
J52:=(0.85*RCC)/1.96;
L52:=1.44*√(ENC/J52);
I52:=(BSBA-b)/4;
IF H52>L52 THEN ADS:=H52; ELSE ADS:=L52; END;
INPUT({ADSA},"ARREDONDA "+ROUND(ADS,0),{"d="},{"COLOQUE OS VALORES DE 5 em 5"});
h:=ADSA+d;
// PARTE VII
LOCAL FX, FY;
FX:=ROUND((ENC*(BSAA-a))/(8*ADSA),0);
FY:=ROUND((ENC*(BSBA-b))/(8*ADSA),0);
// PARTE VIII
LOCAL ASX, ASY;
ASX:=1.4*(FX/RCA);
ASY:=1.4*(FY/RCA);
// PARTE IX
LOCAL TLAAX, TLAAY;
LOCAL F78,BX,EFX,QFX;
LOCAL F79,BY,EFY,QFY;
TLAAX:=ROUND(ASX/(BSAA/100),2);
TLAAY:=ROUND(ASY/(BSBA/100),2);
F78:=L3(M);
LOCAL R1,R2;
CHOOSE(R1,"ESCOLHA A BITOLA PARA X(Ø)",L4());
CHOOSE(R2,"ESCOLHA A BITOLA PARA Y(Ø)",L4());
F78:=L3(R1);
F79:=L3(R2);
BX:=L4(R1);
EFX:=ROUND(100/(TLAAX/F78),1);
//QFX:=ROUND((BSAA/EFX)+1,0);
BY:=L4(R2);
EFY:=ROUND(100/(TLAAY/F79),1);
//QFY:=ROUND((BSBA/EFY)+1,0);
LOCAL QFXn,QFYn,QFXm,QFYm;
QFXn:=FP(BSAA/EFX)*10;
QFYn:=FP(BSBA/EFY)*10;
IF QFXn>0 THEN QFXm:=IP(BSAA/EFX)+1;
ELSE QFXm:=IP(BSAA/EFX); END;
IF QFYn>0 THEN QFYm:=IP(BSBA/EFY)+1;
ELSE QFYm:=IP(BSBA/EFY); END;
QFX:=QFXm+1;
QFY:=QFYm+1;
PRINT();
PRINT("DIMENSIONAMENTO DE SAPATAS ISOLADAS
I Lançamento das Cargas, Geometria e Resistência dos materiais
―—————————————————————
P= "+P+".kgf
S= "+S+"kgf/cm²
a= "+a+".cm
b= "+b+".cm
d= "+d+".cm
Área da seção do Pilar= "+ASP+"
Resistência Caracteristica a compressão do Concreto= "+MPA+"
Resistência a tração do aço (fyk)= "+FYK+"
―—————————————————————
II Redução das resistências dos materiais
Coeficiente de segurança do concreto "+CSC+"
Coeficiente de segurança do aço "+CSA+"
Resistência de cálculo do concreto "+RCC+"kgf/cm²
Resistência de cálculo do aço "+RCA+"kgf/cm²
―—————————————————————
III Majoração das Cargas
Coeficiente de majoração para esforço normal "+CSC+"
Esforço Normal de cálculo
ENC= "+ENC+".kgf
―—————————————————————
IV Área da Base da Sapata
Área da Base da Sapata
ABSap= "+ABSap+"
―—————————————————————
V Dimensionamento Geométrico da base da Sapata
Base da Sapata Lado A
BSA= "+BSA+"
Base da Sapata Lado A Arredondado "+BSAA+"
Base da Sapata Lado B= "+BSB+"
Base da Sapata Lado B Arredondado "+BSBA+"
―—————————————————————
VI Dimensionamento Geométrico da altura da Sapata
Altura (d) da sapata
.......................... "+ADS+"
Altura (d) da sapata arredondado
.......................... "+ADSA+"
Altura (h) da sapata
.......................... "+h+"
―—————————————————————
VII Dimensionamento Estrutural - Forças em X e Y
Força normal Fx
.......................... "+FX+"
Força normal Fy
.......................... "+FY+"
―—————————————————————
VIII Dimensionamento Estrutural - Área de aço em X e Y
Área de aço em AsX
.......................... "+ASX+".cm²
Área de aço em AsY
.......................... "+ASY+".cm²
―—————————————————————
IX Taxa linear de área de aço e quantidade de aço por bitola
Taxa linear de área de aço em X
.......................... "+TLAAX+".cm²/m
Taxa linear de área de aço em Y
.......................... "+TLAAY+".cm²/m
Bitola X(Ø)
.......................... "+BX+".mm
Espaçamento do ferro em X
.......................... "+EFX+".cm
Quantidade de ferro em X
.......................... "+QFX+"
BY= "+BY+"
EFY= "+EFY+"
QFY= "+QFY);
END;
