**TI92P*mainT:6&}J.T::V%l%RACCPRVERZ() Prgm Progetto e verifica sezioni in acciaio Local Vers,Data,Tit *********************** "Acciaio: progetto e verifica"Tit Autori: ing. P.Benetti : prof.A.Carotti " 1.0.2"Vers "27/06/2005"Data *********************** Global SMat,Mat,Fd,Serie,SSerie,Verif Global 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 Define Find(Fd,Mf,Ft,Fn,Var)=Func Local s1,s2,Aw,s,i 1i:0s 3*(3)*Ft/(2*Fd)Aw While Var[i,8]Fd If iRowDim(Var) Then Return 1 EndIf i+1i Fn/Var[i,7]-Mf/Var[i,9]*Var[i,2]/2s1 Fn/Var[i,7]+Mf/Var[i,9]*Var[i,2]/2s2 Max({abs(s1), abs(s2)})s EndWhile Return i EndFunc 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***************** Local Pr_Ver,SPr_Ver,i Local Mf,Ft,Fn,Temp,NewDat Local Alt,nAlt,Var,s1,s2,t 0NewDat 0Mf:0Ft:0Fn {"Fe 360","Fe 430","Fe 510"}SMat:1Mat {235,275,355}Fd {"HEA","IPE"}SSerie:1Serie 0Alt:0nAlt:1Pr_Ver {"Progetto","Verifica"}SPr_Ver #("ZLib\"&(SSerie[Serie]))Var 0s1:0s2:0t ZLib\Splash(Tit,Vers,Data) Lbl Sez ClrDraw PxlText "Materiale: "&SMat[Mat],0,0 PxlText "Calcolo: "&SPr_Ver[Pr_Ver],8,0 PxlText "Serie: "&SSerie[Serie],16,0 If NewDat=1 Then If Pr_Ver=1 Then PxlText "Computing...",24,0 Find(Fd[Mat],Mf,Ft,Fn,Var)Alt If Alt0 Then PxlText "Altezza minima: N/A",24,0 RowDim(Var)Alt Else PxlText "Altezza minima: " &String(Var[Alt,1]),24,0 EndIf 0NewDat ElseIf Pr_Ver=2 Then Fn/Var[Alt,7]-Mf/Var[Alt,9]*Var[Alt,2]/2 s1 Fn/Var[Alt,7]+Mf/Var[Alt,9]*Var[Alt,2]/2 s2 Ft*Var[Alt,10]/(Var[Alt,9]*Var[Alt,4])t PxlText "_sup: "&String(s1) &" MPa",35,0 PxlText "_inf: "&String(s2) &" MPa",43,0 PxlText "_bar: "&String(t) &" MPa",51,0 If abs(s1)