**TI92P*mainJ:åøä6&ÇVÏ4`ßJ:å:åÏåV%Ç\Rca_murso¹¥Z_() Prgm ©Muri di sostegno in c.a Local Vers,Data,Tit ©*********************** "Muri di sostegno in c.a"Tit ©Autori: ing. P.Benetti © : prof.A.Carotti "03/04/2005"Data " 1.0.2"Vers ©*********************** ©Global Sa,da,sWall,Wall,Gam_t,Fi_t,c_t ©Global H_m,Ka,Gam_ca,sp_m,W_m,d_m,W_t,d_t ©Global Mf,Fn,Ft,d_tot,e_tot,B_m,Smax ©Global Smin,xas,Temp,OldMode Local OldDir getFold()OldDir Try NewFold Temp Else ClrErr SetFold(Temp) EndTry ZLib\ChngMode() NewProb 0Sa:0da {"Muro a gravità","Muro a mensola"}sWall 1Wall:0Gam_t:0Fi_t:0c_t:0H_m:0Ka 25•3Gam_ca:0sp_m:0W_m:0d_m:0W_t:0d_t 0Mf:0Fn:0Ft:0d_tot:0e_tot:0B_m 0Smax:0Smin:0xas:0Temp Define FindSa()=Prgm Gam_t*H_m^2*Ka/2-2*c_t*H_m*¨(Ka)+2.*c_t^2/Gam_tSa (H_m-2*c_t/(Gam_t*¨(Ka)))/3.da EndPrgm Define DrawWall(Type)=Prgm 0xMin:158xMax 0yMin:76yMax ClrDraw If Type=1 Then Line xMin,71,65,71 Line 65,71,65,15 Line 65,15,55,15 Line 55,15,55,5 Line 55,5,100,5 Line 100,5,100,15 Line 100,15,90,15 Line 90,15,75,71 Line 75,71,65,71 Line 100,15,xMax,15 Else Line xMin,71,80,71 Line 80,71,80,15 Line 80,15,50,15 Line 50,15,50,5 Line 50,5,100,5 Line 100,5,100,15 Line 100,15,90,15 Line 90,15,90,71 Line 90,71,80,71 Line 100,15,xMax,15 EndIf EndPrgm Define Sf_Terr()=Prgm Sa*(da+sp_m)-W_m*d_m-W_t*d_tMf Mf/(W_m+W_t)d_tot B_m/2-abs(d_tot)e_tot ©Disp "Mf,d_tot",Mf,d_tot:Pause ©Disp "e_tot",e_tot:pause If abs(e_tot)œB_m/6 Then "Sezione tutta compressa"Temp Fn/b_m*(1+6*e_tot/b_m)/1•6Smax Fn/b_m*(1-6*e_tot/b_m)/1•6Smin b_m*Smax/(Smax-Smin)xas Else "Sezione parzializzata"Temp 2*Fn/(3*(b_m/2-e_tot))/1•6Smax 0Smin 3*(b_m/2-e_tot)xas EndIf EndPrgm Local Rck,fcd,SFe,Fe,fk,fd,Gs,Del_t,Alfa_t Local Bi_m,Bs_m,sm_m,sv_m,e_m,S_m,Eta Local Verif,Mres,Mrib 25Rck:13fcd {"Fe B 38 k","Fe B 44 k"}SFe:1Fe {375,430}fk:1.15Gs:fk/Gsfd 0Del_t:0Alfa_t:0Bi_m:0Bs_m:0sm_m 0sv_m:0e_m:0S_m:0Eta ""Verif:0Mres:0Mrib ZLib\Splash(Tit,Vers,Data) ©Inizio del programma*** Lbl start Gam_t*H_m*sm_mW_t B_m-sm_m/2d_t W_m+W_tFn Toolbar Title "File" Item "About...",blabout Item "Esci",blexit Title "Materiali" Item "Calcestruzzo",blmc Item "Acciaio",blma Item "Terreno",blmt Title "Dimensioni" Item "Muro",bldm Item "Armatura",blda Title "Carichi",blc Title "Esegui" Item "Verif. pressioni",blep Item "Verif. scorrimento",bles Item "Verif. ribaltam.",bler Item "Verifiche c.a.",blec EndTBar Goto Start Lbl blmc RckTemp String(Rck)Rck Dialog Title "Resistenza caratt. cls" Request "Rck [MPa]",Rck EndDlog If ok=0 Then TempRck Goto Start EndIf Expr(Rck)Rck 0.83*Rck/1.6fcd Dialog Title "Resistenza di progetto (DM 9/1/96)" Text "fcd: "&String(fcd) &" MPa" EndDlog Goto Start Lbl blma FeTemp Dialog Title "Barre ad aderenza migliorata" DropDown "Scegli:",SFe,Fe EndDlog If ok=0 Then TempFe EndIf Dialog Title "Resistenza di progetto" Text "Tens. car. snerv: "&String(Fk[Fe])& " MPa" Text "fd = fk/ƒs = "&String(Fd[Fe])&" MPa" EndDlog Goto Start Lbl blmt {Gam_t,Fi_t,Del_t,c_t}Temp String(Gam_t)Gam_t String(Fi_t)Fi_t String(Del_t)Del_t String(c_t)c_t Dialog Title "Caratteristiche del terreno" Request "Peso spec. [N/m³]",Gam_t Request "Angolo d'attrito [°]",Fi_t Request "Ang.attr. muro-terr",Del_t Request "Coesione [N/m²]",c_t EndDlog If ok=0 Then Temp[1]Gam_t Temp[2]Fi_t Temp[3]Del_t Temp[4]c_t Else Expr(Gam_t)Gam_t Expr(Fi_t)Fi_t Expr(Del_t)Del_t Expr(c_t)c_t Œ/4-Fi_t/2*Œ/180Alfa_t (tan(Alfa_t))^2Ka EndIf Goto Start Lbl bldm Popup sWall,Wall DrawWall(Wall) Pause If Wall=1 Then {H_m,Bi_m,Bs_m}Temp String(H_m)H_m String(Bi_m)Bi_m String(Bs_m)Bs_m Dialog Title "Dimensioni "& SWall[Wall] Request "Altezza [m]",H_m Request "Larg.inf. [m]",Bi_m Request "Larg.sup. [m]",Bs_m EndDlog If ok=0 Then Temp[1]H_m Temp[2]Bi_m Temp[3]Bs_m Goto Start Else Expr(H_m)H_m Expr(Bi_m)Bi_m Expr(Bs_m)Bs_m EndIf ElseIf Wall=2 Then {H_m,Bi_m}Temp String(H_m)H_m String(Bi_m)Bi_m Dialog Title "Dimensioni "& SWall[Wall] Request "Altezza [m]",H_m Request "Larghezza [m]",Bi_m EndDlog If ok=0 Then Temp[1]H_m Temp[2]Bi_m Goto Start Else Expr(H_m)H_m Expr(Bi_m)Bi_m Bi_mBs_m EndIf EndIf {sm_m,sv_m,sp_m}Temp String(sm_m)sm_m String(sv_m)sv_m String(sp_m)sp_m Dialog Title "Fondazione" Request "Sporto a monte [m]",sm_m Request "Sporto a valle [m]",sv_m Request "Spessore [m]",sp_m EndDlog If ok=0 Then Temp[1]sm_m Temp[2]sv_m Temp[3]sp_m Else Expr(sm_m)sm_m Expr(sv_m)sv_m Expr(sp_m)sp_m EndIf sm_m+sv_m+Bi_mB_m sp_m*B_m+H_m*Bs_m+(Bi_m-Bs_m)*H_m/2.W_m sp_m*B_m^2/2+H_m*Bs_m*(sv_m+(bi_m-bs_m)+bs_m/2)+(Bi_m-Bs_m)*H_m/2.*(sv_m+2/3*(bi_m-bs_m))S_m S_m/W_md_m W_m*Gam_caW_m B_m/2-d_me_m Goto Start Lbl blda Dialog Title "Attenzione" Text "Armatura non disponibile" EndDlog Goto Start Lbl blc Dialog Title "Attenzione" Text "Sovraccarichi non disponibili" EndDlog Goto Start Lbl blep FindSa() Sf_Terr() Dialog Title "Sforzi sul terreno" Text Temp Text "Sforzo massimo: " & String(Smax) & " MPa" Text "Sforzo minimo: " & String(Smin) & " MPa" Text "Punto di annullamento degli sforzi" Text "x: " &String(xas) & " m" EndDlog Goto Start Lbl bles FindSa() Fn*Tan(Del_t*Œ/180.)+c_t*B_mFt Ft/SaEta ZLib\Check(1.3,Eta)Verif Dialog Title "Verifica allo scorrimento" Text "F_r = " &String(Ft)& " N/m" Text "F_s = S_a = " &String(Sa)& " N/m" Text "Coeff.sic: "&String(Eta) Text Verif EndDlog Goto Start Lbl bler FindSa() W_m*d_m+W_t*d_tMres Sa*(da+sp_m)Mrib Mres/MribEta ZLib\Check(1.5,Eta)Verif Dialog Title "Verifica al ribaltamento" Text "M_res :" &String(Mres) &" N*m/m" Text "M_rib :" &String(Mrib) &" N*m/m" Text "Coeff.sic.: " &String(Eta) Text Verif EndDlog Goto Start Lbl blec FindSa() Gam_ca*(bs_m+(bi_m-bs_m)/2)*H_mFn SaFt Gam_ca*H_m*(bs_m*(bi_m-bs_m/2)+(bi_m-bs_m)^2/3)/Fnd_tot Sa*da+(Gam_ca*H_m*((bi_m-bs_m)/2*(d_tot-2/3*(bi_m-bs_m))-bs_m*(bi_m-bs_m/2-d_tot)))Mf Dialog Title "Azioni alla base del muro" Text "Az. ass.: "&String(Fn)&" N/m" Text "Taglio: "&String(Ft)&" N/m" Text "Momento: "&String(Mf)&" N*m/m" Text "Calcolare l'armatura con il" Text "programma ca_prver" EndDlog If ok=0 Then:Goto Start:EndIf Sf_Terr() (xas-sv_m)/xas*SmaxTemp (Smax+Temp)*sv_m/2*1•6Ft sv_m^2*(Temp/2+(Smax-Temp)/3)*1•6Mf Dialog Title "Mensola a valle. Az. al piede" Text "Taglio: "&String(Ft)&" N/m" Text "Momento: "&String(Mf)&" N*m/m" Text "Calcolare l'armatura con il" Text "programma ca_prver" EndDlog H_m*Gam_tTemp Temp*sm_mFt Ft*sm_m/2Mf Dialog Title "Mensola a monte. Az. al piede" Text "Taglio: "&String(Ft)&" N/m" Text "Momento: "&String(Mf)&" N*m/m" Text "Calcolare l'armatura con il" Text "programma ca_prver" EndDlog Goto Start Lbl blAbout zlib\about(Vers,Data) Goto Start Lbl blexit Dialog Title "Fine programma" Text " " EndDlog If ok=0 Then Goto Start EndIf SetMode(OldMode) DelVar FindSa,DrawWall,Sf_Terr DelVar Sa,da,sWall,Wall,Gam_t,Fi_t,c_t DelVar H_m,Ka,Gam_ca,sp_m,W_m,d_m,W_t,d_t DelVar Mf,Fn,Ft,d_tot,e_tot,B_m,Smax,Smin DelVar xas,Temp,OldMode setFold(#OldDir) DispHome EndPrgm äåܺ”