Pilotes de seccion circular: programa en Basic

'pilotes de seccion circular

cls
pi#=4*atn(1)
'pilar circular de diametro d
d.p=120       ' diametro del pilar en cm
N=530         ' Carga de servicio en toneladas
Mx=150:My=145 ' Momento T.m
Qx=14 :Qy=12  ' T de cortante


'terreno
'cota superior del encepado = cota 0


'primer estrato de 0 a 6 m, arcillas
h.enc=1 'altura del encepado
h1=6-h.enc
de1=1.9  'densidad T/m3
Cu1=10    'T/m2


'Segundo estrato de 6 a 12 m. gravas arcillosas.
h2=6
de2=2
fi=36    'angulo de rozamiento


'Tercer estrato de 12.4 en adelante, argilita triasica
de3=2
Cu3=50


'Materiales
'hormigon HA-25
r.c.h=250  'resistencia caracteristica del hormigon  kg/cm2
'Acero B-400
l.e.a=4100 'limite elastico del acero kg/cm2
'coeficientes de seguridad
c.s.h=1.5
c.s.a=1.15
c.s.f=1.5
rec=5 'cm de recubrimiento


'Calculo del tope estructural del pilote  de diametro=85 cm (d.nom=d.nominal)
'hormigonado in situ sin camisa de chapa de hierro.


for d.nom=0.45 to 0.9 step 0.05
'd.nom=0.85
d.cal=0.95*d.nom  'articulo 59.6 EHE
if d.cal
if d.cal>d.nom-0.02 then d.cal=d.nom-0.02
d1$="\                                                  \  #####.,### \      \"
print using d1$;"Diametro nominal";d.nom;"m"
'print using d1$;"Diametro de calculo";d.cal;"m"


B=pi#*((d.cal*100)^2)/4
'print using d1$;"Area de calculo del hormigon B";B;"cm2"
A=7*pi#*0.8^2
'print using d1$;"Area de la armadura minima A (7r16 s/CPI)";A;"cm2"


l.e.c.a=0.35*l.e.a/c.s.a
if l.e.c.a>1300 then l.e.c.a=1300
'print using d1$;"limite elastico de calculo del acero";l.e.c.a;"kg/cm2"
r.c.c.h=0.22*r.c.h/c.s.h
if r.c.c.h>53 then r.c.c.h=53
'print using d1$;"resistencia caracteristica de calculo del hormigon";r.c.c.h;"kg/cm2"
T.e=r.c.c.h*B/1000+l.e.c.a*A/1000
'print using d1$;"Tope estructural (formula de J.A.Jimenez Salas";T.e;"T"


c.m.e.min=(d.cal+0.05)/d.cal
if c.m.e.min<9/8 then c.m.e.min=9/8
'print using d1$;"Coef. minorador por excent.min.(s/Jimenez Montoya)";c.m.e.min;""
T.e.a=T.e/c.m.e.min
print using d1$;" Tope estructural admisible";T.e.a;"T"




'Carga de hundimiento del pilote aislado


alfa1=0.7
qf1=alfa1*Cu1
if qf1>10 then qf1=10
'print using d1$;" Resistencia unitaria por fuste qf1";qf1;"T/m2"


qf2=4
if qf2>10 then qf2=10
'print using d1$;" Resistencia unitaria por fuste qf2";qf2;"T/m2"


l.emp=5*d.nom
if l.emp<2.5 then l.emp=2.5
'print using d1$;" Longitud de empotramiento del pilote l.emp";l.emp;"m"
qf3=10
'print using d1$;" Resistencia unitaria por fuste qf3";qf3;"T/m2"


l.t.m.p=h1+h2+l.emp
'print using d1$;" Longitud total minima del pilote l.t.m.p";l.t.m.p;"m"


Pf=2*pi#*d.nom/2*(h1*qf1+h2*qf2+l.emp*qf3)
'print using d1$;" Carga de hundimiento  por fuste Pf";Pf;"T"


Nc=9: 'generalmente
qp=Nc*Cu3
'print using d1$;" Resistencia unitaria por punta qp";qp;"T/m2"
Pp=pi#*(d.nom/2)^2*qp
'print using d1$;" Carga de hundimiento  por punta Pp";Pp;"T"


Pu=(Pf+Pp)/3
'print using d1$;" Carga de hundimiento  total de calculo Pu";Pu;"T"


next