**TI92P*mainT:å÷øä6&×´=Ïb&ÏT÷:å:å÷ÏåV%×*"Rca_tbpile¥Z () Prgm ©Tabella pilastri Local Vers,Data,Tit ©*********************** "Tab. pilastri corpo doppio"Tit ©Autori: ing. P.Benetti © : prof.A.Carotti "07/02/2005"Data " 1.0.2"Vers ©*********************** ©Global OldMode ©Inizio del programma*** 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 Rck,scc,Temp,SFe,Fe,fk,fd,Gs,NumP Local STipo,Tipo,BInfl,HInfl,AInfl,i Local bTSp,hTSp,P,CarAcc,NP,hPia,hSol Local NPil,APil,bPil,hPil,PPil,PTra,PImpa Local PsSol,PsImp,Ps4cm,PsInt,Go,bTBo,hTBo 25Rck:8.5scc:0Temp {"Fe B 38 k","Fe B 44 k"}SFe:1Fe {375,430}fk:1.15Gs:fk/Gsfd:0NumP {"d'angolo","di bordo","centrale"}STipo 1Tipo:0BInfl:0HInfl:0AInfl:0i:0bTSp 0hTSp:0P:0NP:{0}CarAcc:0hPia:0hSol 0NPil:0APil:0bPil:0hPil:0PPil:0PTra 0PImpa:2000PsSol:1500PsImp:1000Ps4cm 400PsInt:0Go:0bTBo:0hTBo 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 "Pianta",bldp Item "Alzato",blda Item "Travi di spina",blds Item "Travi di bordo",bldb Title "Carichi" Item "Permanenti",blcp Item "Accidentali",blca Title "Esegui" Item "Calcolo pilastro",blep 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 ZLib\sccamm92(Rck)scc Dialog Title "Sforzi ammissibili (DM 14/2/92)" Text "a compr: "&String(scc) &" 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 bldp {NumP,Tipo,BInfl,HInfl}Temp String(NumP)NumP String (BInfl)BInfl String (HInfl)HInfl Dialog Title "Dimensioni caratteristiche" Request "Num. pilastro",NumP DropDown "Tipologia: ",STipo,Tipo Text "Area di influenza" Request "b [m]",BInfl Request "h [m]",HInfl EndDlog If ok=0 Then Temp[1]NumP Temp[2]Tipo Temp[3]BInfl Temp[4]HInfl Else Expr(NumP)NumP Expr(BInfl)BInfl Expr(HInfl)HInfl BInfl*HInflAInfl EndIf Goto Start Lbl blda {NP,HPia,HSol}Temp String(NP)NP String(HPia)HPia String(HSol)HSol Dialog Title "Dimensioni prospetto" Request "Num. Piani",NP Request "Alt. piano [m]",HPia Request "Alt. soletta [m]",HSol EndDlog If ok=0 Then Temp[1]NP Temp[2]HPia Temp[3]HSol Else Expr(NP)NP Expr(HPia)HPia Expr(HSol)HSol NewList(NP)CarAcc NewList(NP)NPil NewList(NP)APil NewList(NP)bPil NewList(NP)hPil EndIf Goto Start Lbl blds {bTSp,HTSp}Temp String(bTSp)bTSp String(hTSp)hTSp Dialog Title "Dim. travi di spina" Request "Larghezza [m]",bTSp Request "Altezza [m]",hTSp EndDlog If ok=0 Then Temp[1]bTSp Temp[2]hTSp Else Expr(bTSp)bTSp Expr(hTSp)hTSp EndIf Goto Start Lbl bldb {bTBo,HTBo}Temp String(bTBo)bTBo String(hTBo)hTBo Dialog Title "Dim. travi di bordo" Request "Larghezza [m]",bTBo Request "Altezza [m]",hTBo EndDlog If ok=0 Then Temp[1]bTBo Temp[2]hTBo Else Expr(bTBo)bTBo Expr(hTBo)hTBo EndIf Goto Start Lbl blcp {PsSol,PsImp,Ps4cm,PsInt}Temp String(PsSol)PsSol String(PsImp)PsImp String(Ps4cm)Ps4cm String(PsInt)PsInt Dialog Title "Pesi specifici car. permanenti" Request "Imperm. [N/m²]",PsImp Request "Solaio [N/m²]",PsSol Request "Solettina [N/m²]",Ps4cm Request "Intonaco [N/m²]",PsInt EndDlog If ok=0 Then Temp[1]PsSol Temp[2]PsImp Temp[3]Ps4cm Temp[4]PsInt Else Expr(PsSol)PsSol Expr(PsImp)PsImp Expr(Ps4cm)Ps4cm Expr(PsInt)PsInt EndIf Goto Start Lbl blca If NP=0 Then Dialog Title "Attenzione" Text "Immettere prima i dati sui piani" EndDlog Goto Start EndIf 1Temp Dialog Title "Carichi accidentali" Text "Carichi uguali su tutti i" DropDown "piani? ",{"Si","No"},Temp EndDlog If ok=0 Then:Goto Start:EndIf If Temp=1 Then String(CarAcc[1])P Dialog Title "Car. accidentali costanti" Request "Valore [N/m²]",P EndDlog If ok=0 Then:Goto Start:EndIf For i,1,NP Expr(P)CarAcc[i] EndFor Else For i,1,NP Dialog Title "Carico acc. piano n."&String(i) Request "Valore [N/m²]",P EndDlog If ok=0 Then Goto Start Else Expr(P)CarAcc[i] EndIf EndFor EndIf Goto Start Lbl blep If NP=0 Then Dialog Title "Attenzione" Text "Immettere prima i dati sui piani" EndDlog Goto Start EndIf For i,NP,1,­1 ©Ipotizzo un pilastro di 40*40 .4*.4*HPia*25000PPil If Tipo=1 OR Tipo=2 Then bTBo*hTBo*bInfl*25000PTra Else bTSp*hTSp*bInfl*25000PTra EndIf AInfl*(CarAcc[i]+PsSol+PsImp+Ps4cm+PsInt) PImpa ©Disp "PPil,PTra",PPil,PTra:Pause ©Disp "PsImpa",CarAcc[i]+PsSol+PsImp+ Ps4cm+PsInt:Pause ©Disp "PImpa",PImpa:Pause If i=NP Then PPil+PTra+PImpaNPil[i] Else NPil[i+1]+PPil+PTra+PImpaNPil[i] EndIf NPil[i]/sccAPil[i] If Tipo=1 OR Tipo=2 Then ¨(APil[i])bPil[i] If bPil[i]<300 Then 300bPil[i] EndIf bPil[i]hPil[i] Else 300hPil[i] APil[i]/hPil[i]bPil[i] ©Disp "bPil[i]",bPil[i]:Pause If bPil[i]>600 Then 0Go While Go1 hPil[i]+50hPil[i] APil[i]/hPil[i]bPil[i] If bPil[i]<600 AND hPil[i]<600 Then 1Go ElseIf bPil[i]>600 AND hPil[i]>600 Then ¨(APil[i])hPil[i] ¨(APil[i])bPil[i] 1Go EndIf EndWhile ElseIf bPil[i]<300 Then 300bPil[i] EndIf EndIf Dialog Title "Piano n."&String(i) Text "Carico piede pilastro: " & String(NPil[i])&" N" Text "Area minima: "&String(APil[i])& " mm²" Text "Dimensioni suggerite:" Text "b: "&String(bPil[i])& " mm" Text "h: "&String(hPil[i])& " mm" EndDlog If ok=0 Then:Goto Start:EndIf EndFor 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 OldMode setFold(#OldDir) DispHome EndPrgm äåÜÔ‡