**TI92P*mainJ:6&uJ::V%xqRca_prver^!Z!() Prgm Sezione in cem. armato Local Vers,Data,Tit *********************** "Sez. in c.a: prog. e verifica"Tit Autori: ing. P.Benetti : prof.A.Carotti "03/04/2005"Data " 1.0.3"Vers *********************** Global an,Tmpan,C1_1,C1_2,C_2,Ca,Ta Global OldMode Inizio del programma*** Local OldDir getFold()OldDir Try NewFold Temp Else ClrErr SetFold(Temp) EndTry ZLib\ChngMode() NewProb 0an:0TmpAn:0C1_1:0C1_2:0C_2:0Ca:0Ta Local Rck,fcd,Temp,SFe,Fe,fk,fd,Gs Local bc,b0c,Hc,sc,cf,cf1 Local Temp1,Temp2,Aft,Afc,Aff,Done Local Fn,Ft,Mf,n,K,Alfa,Beta,f_,h0 Local Jid,Sigc,Sigft,Sigfc,Verif Local e,u,Yg,Ssup,Asez,SShape,Jgid,Asid 25Rck:13fcd:0Temp {"Fe B 38 k","Fe B 44 k"}SFe:1Fe {375,430}fk:1.15Gs:fk/Gsfd 0bc:0b0c:0Hc:0sc:0cf:0cf1 0Temp1:0Temp2:0Aft:0Afc:0Aff:0Done 0Fn:0Ft:0Mf:15n 0K:0Alfa:0Beta:0f_:0h0:0Jid 0Sigc:0Sigft:0Sigfc:""Verif 0e:0u:0Yg:0Ssup:0ASez:""SShape 0Jgid:0Asid ZLib\Splash(Tit,Vers,Data) Lbl start Toolbar Title "File" Item "About...",blabout Item "Esci",blexit Title "Materiali" Item "Calcestruzzo",blmc Item "Acciaio",blma Title "Dimensioni" Item "Trave",bldt Item "Armatura inferiore",blda Item "Armatura superiore",bldc Item "Azzera armatura",bldz Title "Azioni",bla Title "Esegui" Item "Progetto",blep Item "Verifica",blev 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 bldt {bc,hc,b0c,sc,cf}Temp String(bc)bc String(hc)hc String(b0c)b0c String(sc)sc String(cf)cf Dialog Title "Dimensioni trave a T in cls" Text "Per il progetto porre H=0" Request "B [mm]",bc Request "H [mm]",hc Request "b_0 [mm]",b0c Request "s [mm]",sc Request "Copriferro [mm]",cf EndDlog If ok=0 Then Temp[1]bc:Temp[2]hc Temp[3]b0c:Temp[4]sc Temp[5]cf Else Expr(bc)bc:Expr(hc)hc Expr(b0c)b0c:Expr(sc)sc Expr(cf)cf:cfcf1 If sc>Hc OR b0c>Bc Then Dialog Title "Attenzione" Text "Hai inserito delle misure errate" Text "Correggile prima di proseguire" EndDlog Goto bldt EndIf If b0c=0 Then:bcb0c:EndIf If sc=0 Then:Hcsc:EndIf If bc=b0c Then "sezione rettangolare"SShape Hcsc Else "sezione a T"SShape EndIf EndIf Goto Start Lbl blda 0Temp1:0Temp2:0Done While Done=0 AftTemp Aft+Temp1*Temp2^2*/4.Aft String(0)Temp1 String(Temp2)Temp2 Dialog Title "Armatura inferiore" Text "Area: "&String(Aft)&" mm" Text "Inserire 0 per finire" Request "Num.ferri",Temp1 Request " [mm]",Temp2 EndDlog If ok=0 Then TempAft 1Done Else Expr(Temp1)Temp1 Expr(Temp2)Temp2 If Temp1=0 Then:1Done:EndIf EndIf EndWhile Goto Start Lbl bldc 0Temp1:0Temp2:0Done While Done=0 AfcTemp Afc+Temp1*Temp2^2*/4.Afc String(0)Temp1 String(Temp2)Temp2 Dialog Title "Armatura compressa" Text "Area: "&String(Afc)&" mm" Text "Inserire 0 per finire" Request "Num.ferri",Temp1 Request " [mm]",Temp2 EndDlog If ok=0 Then TempAfc 1Done Else Expr(Temp1)Temp1 Expr(Temp2)Temp2 If Temp1=0 Then:1Done:EndIf EndIf EndWhile Goto Start Lbl bldz 2Temp Dialog Title "Azzeramento armatura" Text "Attenzione:" Text "procedendo, le armature tese e " Text "quelle compresse saranno azzerate" DropDown "Sei sicuro?",{"SI","NO"},Temp EndDlog If ok=1 Then If Temp=1 Then 0Aft:0Afc EndIf EndIf Goto Start Lbl bla {Fn,Ft,Mf}Temp String(Fn)Fn String(Ft)Ft String(Mf)Mf Dialog Title "Azioni sulla trave" Request "Azione assiale [N]",Fn Request "Taglio [N]",Ft Request "Momento fl. [Nmm]",Mf Text "Per il progetto inserire solo M" Text "(+):trazioni, (-):compressioni." EndDlog If ok=0 Then Temp[1]Fn Temp[2]Ft Temp[3]Mf Else Expr(Fn)Fn Expr(Ft)Ft Expr(Mf)Mf EndIf Goto Start Lbl blep {Hc,Aft}Temp fcd/(fcd+fd[Fe]/n)K (2/(K*(1-K/3)*fcd))Alfa 1/(fd[Fe]*Alfa*(1-K/3))Beta Alfa*(Mf/bc)Hc Hc+cfHc Beta*(Mf*bc)Aft String(round(Hc,2))Hc String(round(Aft,2))Aft Dialog Title "Prog. della sez.(rettangolare)" Request "Hc minima [mm]",Hc Request "Area arm.tesa [mm]",Aft EndDlog If ok=0 Then Temp[1]Hc Temp[2]Aft Else Expr(Hc)Hc Expr(Aft)Aft EndIf Goto Start Lbl blev If SShape="" Then:Goto Start:EndIf If Fn=0 AND Ft=0 AND Mf=0 Then Goto Start EndIf ClrIO If Fn=0 Then Disp "Flessone pura" n*(Aft+Afc)/Bcf_ (Aft*(Hc-cf)+Afc*cf1)/(Aft+Afc)h0 f_*(1+(1+2*h0/f_))an If an0 Then If Aft=0 AND Afc=0 Then Dialog Title "Attenzione" Text "Non stata inserita armatura" EndDlog Goto Start EndIf Disp "Verifica tensoflessione" If bcb0c OR scHc Then Dialog Title "Attenzione" Text "La sezione deve essere" Text "rettangolare." Text "Modificare le dimensioni." EndDlog Goto Start EndIf Abs(Mf/Fn)e Hc/2Yg e-Yg+cfu If e0TmpAn Disp "Trovato asse neutro",Tmpan Pause Min(TmpAn)an Fn/(n*Aft*(Hc-cf-an)/an-n*Afc*(an-cf1)/an-Bc*an/2)SigC n*SigC/an*(Hc-cf-an)SigfT n*SigC/an*(an-cf1)SigfC EndIf ElseIf Fn<0 Then Disp "Verifica pressoflessione" Abs(Mf/Fn)e sc*(bc-b0c)*(sc/2)+Hc*b0c*Hc/2Ssup sc*(bc-b0c)+b0c*HcASez Ssup/ASezYg e-Ygu Dialog Title "Geometria" Text "e: "&String(round(e))&" mm" Text "SSup: "&String(round(SSup))&" mm" Text "ASez: "&String(round(ASez))&" mm" Text "Yg: "&String(Round(Yg))&" mm" Text "u: "&String(Round(u))&" mm" EndDlog (bc-b0c)*sc^3/12+(bc-b0c)*sc*(yg-sc/2)^2+ b0c*Hc^3/12+b0c*Hc*(Yg-Hc/2)^2Jgid ASez+n*(Aft+Afc)Asid if e>Jgid/(Asid*(Hc-yg)) Then Sezione parzializzata. Prima ipotesi: asse neutro nell'ala: sez. rettangolare DelVar an 0C1_1 0C1_2 an*Bc/2C_2 Afc*n*(an-cf1)/anCa Aft*n*(Hc-cf-an)/anTa Solve(Ca*(u+cf1)+C_2*(u+an/3)-Ta*(u+Hc-cf)=0,an)|(an>0 AND ansc Then asse neutro nell'anima: sez. a T Disp "an="&String(round(an)) Disp "L'a.n. taglia l'anima" DelVar an (an-sc)*sc*(Bc-b0c)/anC1_1 (1-(an-sc)/an)*sc/2*(Bc-b0c)C1_2 an*b0c/2C_2 Afc*n*(an-cf1)/anCa Aft*n*(Hc-cf-an)/anTa Solve(Ca*(u+cf1)+C1_1*(u+sc/2)+C1_2* (u+sc/3)+C_2*(u+an/3)-Ta*(u+Hc-cf)=0,an)|(an>0 AND an