**TI92P*mainS:6& ~2S::V%tfRAccSald&Z%() Prgm Collegamenti saldati in acciaio Local Vers,Data,Tit *********************** "Acciaio: giunti saldati"Tit Autori: ing. P.Benetti : prof.A.Carotti " 1.0.3"Vers "09/07/2005"Data *********************** Global SMat,Mat,Fd,Verif,OldMode Local OldDir getFold()OldDir try ZLib\ChngFold("Temp") ZLib\ChngMode() Else Dialog Title "Errore" Text "L'installazione non e' stata" Text "eseguita correttamente oppure" Text "e' corrotta." Text "Copiare il programma Setup_IA" Text "sulla TI-89 ed eseguirlo." EndDlog Return EndTry NewProb Local ChooseMa Define ChooseMa()=Prgm Local Tmp MatTmp PopUp SMat,Mat If ok=0 Then TmpMat Else Dialog Title "Caratteristiche di "& SMat[Mat] Text "Secondo il DM 9/1/96, per t40 mm" Text "f_d: "&String(Fd[Mat]) &" MPa" Text "f_d,V: "& String(round(Fd[Mat]/(3) ,2)) & " MPa" EndDlog EndIf EndPrgm Inizio del programma***************** {"Fe 360","Fe 430","Fe 510"}SMat:1Mat {235,275,355}Fd:""Verif Local Prg, Mf,Ft,Fn,Temp,Ti,Fi,Famm,Sel Local s1,s2 Local B1,B2,LCL,LSL,aCL,NCF,LCF,LSF,aCF Local Coeff,b_,NF Local hs1,bs2,bs3,ls1,ls2,ls3,as1,as2,as3 Local Sig,Tau,tp1,tp2,tn1,tn2,LS Local Alt,bs1,hs3,ji,NewDat,Sp 0Mf:0Ft:0Fn:0Temp 0Ti:0Fi:0FAmm:1Sel 0s1:0s2 0B1:0B2:0LCL:0LSL:0aCL 1NCF:0LCF:0LSF:0aCF:0Coeff 0b_:1NF 0hs1:0bs2:0bs3:0ls1:0ls2:0ls3 0as1:0as2:0as3:0Sig:0Tau 0tp1:0tn1:0tp2:0tn2:0LS 0Alt:0bs1:0hs3:0ji:0NewDat:0Sp ZLib\Splash(Tit,Vers,Data) Lbl Start PopUp {"Giunti tesi","Fless. e taglio", "Torsione","Uscita"},Sel If Sel=1 Then Goto blcst ElseIf Sel=2 Then Goto blcsf ElseIf Sel=3 Then Goto blcsr ElseIf Sel=4 Then Goto blexit EndIf Goto Start Lbl blcst ToolBar Title "File" Item "About...",blabout Item "Torna al menu",Start Title "Materiale",cst1 Title "Dimensioni" Item "Lamiere",cst2 Item "Cordoni laterali",cst3 Item "Cordoni frontali",cst4 Title "Sollecit.",cst5 Title "Verifiche",cst6 EndTBar Goto blcst Lbl cst1 MatTemp ChooseMa() If TempMat Then 1NewDat EndIf Goto blcst Lbl cst2 {NF,B1,s1,B2,s2}Temp String(B1)B1 String(s1)s1 String(B2)B2 String(s2)s2 dialog Title "Dimensioni lamiere in mm" DropDown "Num. facce contatto", {"1","2"},NF Request "Largh. maggiore",B1 Request "Spessore",s1 Request "Largh. minore",B2 Request "Spessore",s2 EndDlog If ok=0 Then Temp[1]NF Temp[2]B1:Temp[3]s1 Temp[4]B2:Temp[5]s2 Else Expr(B1)B1 Expr(s1)s1 Expr(B2)B2 Expr(s2)s2 EndIf Goto blcst Lbl cst3 {LCL,LSL}Temp If s2(B1-B2)/2 Then s2LSL Else (B1-B2)/2LSL EndIf String(LCL)LCL String(LSL)LSL Dialog Title "Dimensioni cordoni laterali" Request "Lungh.totale",LCL Request "Lato saldatura",LSL EndDlog If ok=0 Then Temp[1]LCL Temp[2]LSL Else Expr(LCL)LCL Expr(LSL)LSL LSL*(2)/2.aCL Dialog Title "Larghezza sezione di gola" Text "a_cl: "&String(aCL)&" mm" EndDlog EndIf Goto blcst Lbl cst4 {NCF,LCF,LSF}Temp LSLLSF String(LCF)LCF String(LSF)LSF Dialog Title "Dimensioni cordoni frontali" DropDown "Num. cordoni",{"0","1","2"},NCF Request "Lungh.totale",LCF Request "Lato saldatura",LSF EndDlog If ok=0 Then Temp[1]NCF Temp[2]LCF Temp[3]LSF Else NCF-1NCF Expr(LCF)LCF Expr(LSF)LSF LSF*(2)/2.aCF If NCF>0 Then Dialog Title "Larghezza sezione di gola" Text "a_cl: "&String(aCF)&" mm" EndDlog EndIf EndIf Goto blcst Lbl cst5 FnTemp String(Fn)Fn Dialog Title "Trazione sul giunto" Request "T [N]",Fn Text "(+): traz, (-): compr." EndDlog If ok=0 Then TempFn Else Expr(Fn)Fn EndIf Goto blcst Lbl cst6 Fn/(NF*(2*LCL*aCL+NCF*LCF*aCF))Ti If Mat=1 Then 0.85Coeff Else 0.70Coeff EndIf Coeff*fd[Mat]FAmm ZLib\Check(Ti,FAmm)Verif Dialog Title "Verifica" Text "t_sald: "&String(Ti)&" MPa" Text "f_amm= "&String(Coeff)&"*f_d= "&String(Famm)&" MPa" Text Verif EndDlog Goto blcst ********************** Lbl blcsf ToolBar Title "File" Item "About...",blabout Item "Torna al menu",Start Title "Materiale",csf1 Title "Dimensioni" Item "Trave ad I",csf2 Item "Cordoni d'anima",csf3 Item "Cordoni d'ala",csf4 Title "Sollecit.",csf5 Title "Verifiche",csf6 EndTBar Goto Blcsf Lbl csf1 MatTemp ChooseMa() If TempMat Then 1NewDat EndIf Goto Blcsf Lbl csf2 {Alt,b_,Sp}Temp String(Alt)Alt String(b_)b_ String(Sp)Sp Dialog Title "Dimensioni trave in mm" Request "Altezza",Alt Request "Larghezza",b_ Request "Spessore",Sp EndDlog If ok=0 Then Temp[1]Alt Temp[2]b_ Temp[3]Sp Else Expr(Alt)Alt Expr(b_)b_ Expr(Sp)Sp EndIf Goto Blcsf Lbl csf3 {hs3,ls3}Temp String(hs3)hs3 String(ls3)ls3 Dialog Title "Dimensioni cordoni d'anima" Request "Lunghezza",hs3 Request "Lato",ls3 EndDlog If ok=0 Then Temp[1]hs3 Temp[2]ls3 Else Expr(hs3)hs3 Expr(ls3)ls3 ls3*(2)/2.as3 Dialog Title "Larghezza sezione di gola" Text "a_s3: "&String(as3)&" mm" EndDlog EndIf Goto Blcsf Lbl csf4 {bs1,ls1,bs2,ls2}Temp String(bs1)bs1 String(ls1)ls1 String(bs2)bs2 String(ls2)ls2 Dialog Title "Dimensioni cordoni d'ala" Text "2 Esterni" Request "Lunghezza",bs1 Request "Lato",ls1 Text "4 Interni" Request "Lunghezza",bs2 Request "Lato",ls2 EndDlog If ok=0 Then Temp[1]bs1 Temp[2]ls1 Temp[3]bs2 Temp[4]ls2 Else Expr(bs1)bs1 Expr(ls1)ls1 Expr(bs2)bs2 Expr(ls2)ls2 ls1*(2)/2.as1 ls2*(2)/2.as2 Dialog Title "Larghezza sezione di gola" Text "a_s1: "&String(as1)&" mm" Text "a_s2: "&String(as2)&" mm" EndDlog EndIf Goto blcsf Lbl csf5 {Ft,Mf}Temp String(Ft)Ft String(Mf)Mf Dialog Title "Azioni sulla sezione" Request "Taglio [N]",Ft Request "Mom. flettente",Mf EndDlog If ok=0 Then Temp[1]Ft Temp[2]Mf Else Expr(Ft)Ft Expr(Mf)Mf EndIf Goto Blcsf Lbl csf6 as3*hs3^3/12+2*bs1*as1^3/3+bs1*as1*Alt^2/2 +4*bs2*as2^3/3+4*bs2*as2*(Alt/2-Sp-as2)^2Ji Mf/Ji*(Alt+as1)Sig If Mat=1 Then 0.85Coeff Else 0.70Coeff EndIf Coeff*fd[Mat]FAmm ZLib\Check(abs(Sig),Famm)Verif Dialog Title "Verifica saldatura sup. ala" Text "n_perp: "&String(Sig)&" MPa" Text "f_amm= "&String(Coeff)&"*f_d= "&String(Famm)&" MPa" Text Verif EndDlog If ok=0 Then:Goto Blcsf:EndIf Mf/Ji*(hs3/2)Sig Ft/(2*as3*hs3)Tau (Sig^2+Tau^2)Ti ZLib\Check(Ti,Famm)Verif Dialog Title "Verifica saldatura anima" Text "n_perp: "&String(Sig)&" MPa" Text "t_par: "&String(Tau)&" MPa" Text "_id: "&String(Ti)&" MPa" Text "f_amm= "&String(Coeff)&"*f_d= "&String(Famm)&" MPa" Text Verif EndDlog Goto Blcsf ************************* Lbl blcsr ToolBar Title "File" Item "About...",blabout Item "Torna al menu",Start Title "Materiale",csr1 Title "Dimensioni" Item "Lamiere",csr2 Item "Cordoni laterali",csr3 Item "Cordoni frontali",csr4 Title "Sollecit.",csr5 Title "Verifiche",csr6 EndTBar Goto blcsr Lbl csr1 MatTemp ChooseMa() If TempMat Then 1NewDat EndIf Goto blcsr Lbl csr2 {NF,B1,s1,B2,s2,LS}Temp String(B1)B1 String(s1)s1 String(B2)B2 String(s2)s2 String(LS)LS dialog Title "Dimensioni lamiere in mm" DropDown "Num. facce contatto", {"1","2"},NF Request "Largh. maggiore",B1 Request "Spessore",s1 Request "Largh. minore",B2 Request "Spessore",s2 Request "lungh. sovrapp",LS EndDlog If ok=0 Then Temp[1]NF Temp[2]B1:Temp[3]s1 Temp[4]B2:Temp[5]s2 Temp[6]LS Else Expr(B1)B1 Expr(s1)s1 Expr(B2)B2 Expr(s2)s2 Expr(LS)LS EndIf Goto blcsr Lbl csr3 {LCL,LSL}Temp If s2(B1-B2)/2 Then s2LSL Else (B1-B2)/2LSL EndIf String(LCL)LCL String(LSL)LSL Dialog Title "Dimensioni cordoni laterali" Request "Lungh.totale",LCL Request "Lato saldatura",LSL EndDlog If ok=0 Then Temp[1]LCL Temp[2]LSL Else Expr(LCL)LCL Expr(LSL)LSL LSL*(2)/2.aCL Dialog Title "Larghezza sezione di gola" Text "a_cl: "&String(aCL)&" mm" EndDlog EndIf Goto blcsr Lbl csr4 {NCF,LCF,LSF}Temp LSLLSF String(LCF)LCF String(LSF)LSF Dialog Title "Dimensioni cordoni frontali" DropDown "Num. cordoni",{"0","1","2"},NCF Request "Lungh.totale",LCF Request "Lato saldatura",LSF EndDlog If ok=0 Then Temp[1]NCF Temp[2]LCF Temp[3]LSF Else NCF-1NCF Expr(LCF)LCF Expr(LSF)LSF LSF*(2)/2.aCF If NCF>0 Then Dialog Title "Larghezza sezione di gola" Text "a_cf: "&String(aCF)&" mm" EndDlog EndIf EndIf Goto blcsr Lbl csr5 {Ft,Mf}Temp String(Ft)Ft String(Mf)Mf Dialog Title "Azioni sul giunto" Request "Taglio [N]",Ft Request "Momento [Nmm]",Mf Text "Conv: scienza delle costruzioni" EndDlog If ok=0 Then Temp[1]Ft Temp[2]Mf Else Expr(Ft)Ft Expr(Mf)Mf EndIf Goto blcsr Lbl csr6 If Mat=1 Then 0.85Coeff Else 0.70Coeff EndIf Coeff*fd[Mat]FAmm If NCF=0 Then Mf/(NF*(B2+aCL)*(aCL*LCL))tp2 Ft/(NF*2*LCL*aCL)tn2 0tp1:0tn1 ElseIf NCF=1 Then Mf/(NF*(B2+aCL)*(aCL*LCL))tp2 0tn2 Ft/(NF*LCF*aCF)tp1 0tn1 ElseIf NCF=2 Then Mf/(NF*(LS*LCF*aCF+B2*LCL*aCL))+Ft/ (NF*NCF*(aCF*LCL+aCL*LCL))tp1 0tn1 Mf/(NF*(LS*LCF*aCF+B2*LCL*aCL))tp2 Ft/(NF*NCF*(aCF*LCL+aCL*LCL))tn2 EndIf (tp2^2+tn2^2)Ti ZLib\Check(Ti,Famm)Verif Dialog Title "Verifica cordoni laterali" Text "t_par: "&String(tp2)&" MPa" Text "t_perp: "&String(tn2)&" MPa" Text "_id: "&String(Ti)&" MPa" Text "f_amm= "&String(Coeff)&"*f_d= "&String(Famm)&" MPa" Text Verif EndDlog If NCF>0 Then (tp1^2+tn1^2)Ti ZLib\Check(Ti,Famm)Verif Dialog Title "Verifica cordoni frontali" Text "t_par: "&String(tp1)&" MPa" Text "t_perp: "&String(tn1)&" MPa" Text "_id: "&String(Ti)&" MPa" Text "f_amm= "&String(Coeff)&"*f_d= "&String(Famm)&" MPa" Text Verif EndDlog EndIf Goto blcsr Lbl blAbout zlib\about(Vers,Data) If Sel=1 then Goto blcst ElseIf Sel=2 Then Goto blcsf ElseIf Sel=3 Then Goto blcsr EndIf Goto Start Lbl blexit Dialog Title "fine programma" Text " " EndDlog If ok=0 Then Goto Start EndIf SetMode(OldMode) DelVar SMat,Mat,Fd,Verif,OldMode setFold(#OldDir) DispHome EndPrgm ܻs