**TI92P*mainK:åøä6&ǪØä¿K:å:ååV%Ç-RC_GRIORT ¥Z Å() Prgm ©GRIGLIATO ORT. 2x2 APPOGGIATO Local Vers,Data,Tit ©*********************** "C_GRIORT"Tit ©Autori: ing. P.Benetti © : prof.A.Carotti "07/12/2005"Data " 0.0.1"Vers ©Works with ZLib 0.0.8 ©*********************** ©Global OldMode ©Inizio del programma*** Local choice, index Local OldDir Local bRetry ©Create and set the Temp Folder 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 ClrIo Disp ZLib\Splash(Tit,Vers,Data) ZLib\OutputEx(2,"GRIGLIATO ORTOGONALE", "C") ZLib\OutputEx(3,"2x2 APPOGGIATO AI BORDI", "C") ZLib\OutputEx(7,"Premere ENTER","R") Pause Lbl start ClrIo if (NOT ZLib\IsNum(Load)) 150Load if (NOT ZLib\IsNum(length)) 24length if (NOT ZLib\IsNum(width)) 12width truebRetry while (bRetry) String(load) strLoa String(length)strLen String(width) strWid String(I1) strI1 String(I2) strI2 Dialog Title "Dati (Premere ESC per uscire)" Request "Carico [daN/m²]", strLoa Request "L1 [m]",strLen Request "L2 [m]",strWid Request "I1 [cm^4]",strI1 Request "I2 [cm^4]",strI2 EndDlog if ok = 0 Goto blExit Expr(strLoa)load Expr(strLen)length Expr(strWid)width Expr(strI1) I1 Expr(strI2) I2 © Validate the input data if (NOT ZLib\IsNum(load)) OR (NOT ZLib\IsNum(length)) OR (NOT ZLib\IsNum(width)) OR (NOT Zlib\IsNum(I1)) OR (NOT ZLib\IsNum(I2))Then Dialog Title "Errore" Text "Sono stati inseriti dati non" Text "validi." Text "Correggerli prima di continuare." EndDlog ElseIf (length < 0 OR width < 0 OR length < width OR I1 < 0 OR I2 < 0) Then Dialog Title "Errore" Text "I dati inseriti sono fuori" Text "dall'intervallo ammissibile" Text "(l1žl2)." Text "Correggerli prima di continuare." EndDlog Else falsebRetry EndIf EndWhile © Compute the reactions and the Mmax load*(length/3)*(width/3)P P/(1+((length/width)^3)*(I1/I2))X (P-X)*length/3M1 X*width/3M2 © Print the results ClrIo ZLib\OutputEx (1,"REAZIONI","C") ZLib\OutputEx (3,"Interazione nel nodo","L") ZLib\OutputEx (4,"X = "&String(X)& " daN","L") ZLib\OutputEx (7,"Premere ENTER","R") Pause ClrIo ZLib\OutputEx (1,"MOMENTO MASSIMO","C") ZLib\OutputEx (3,"M1mx = "&String(M1)& " daN*m", "L") ZLib\OutputEx (4,"M2mx = "&String(M2)& " daN*m","L") ZLib\OutputEx (7,"Premere ENTER","R") Pause © Return to main menu Goto start Lbl blExit Dialog Title "fine programma" Text " " EndDlog If ok=0 Then Goto Start EndIf ClrIo ZLib\OutputEx (4, "Premere HOME", "C") SetMode(OldMode) DelVar OldMode SetFold(#OldDir) EndPrgm äåÜ;L