Je commence à programmer sur ma calculatrice et je n'arrive à rentre dans mon programme.
Quand je lance le programme, la calculatrice m'écrit terminer dans rien m'envoyer.
Voici le script, merci d'avance.
- Code: Tout sélectionner
Define tirant()=
Prgm
:Local G, Q, fck, fyk, a, b, p, Amp
:Request "Entrez G:",G
:Request "Entrez Q:",Q
:Request "Entrez fck:",fck
:Request "Entrez fyk:",fyk
:Request "Entrez la base de la section de béton:",a
:Request "Entrez la hauteur de la section de béton:",b
:Request "Entrez le coefficient Psi2:",p
:Nu:=1.35*G+1.5*Q
:Nser,rare:=G+Q
:Nser,qp:=g+p*q
:Disp "ELU"
:Amp:=Nu/470
:Return Amp
:Disp "ELS"
:If Nser,rare/Amp≤0.8*fyk Then
: Disp "Contraintes vérifiées"
:Else
: Disp "Mettre plus d'acier"
:EndIf
:Disp "Voire tableau fissure 7.2N et 7.3N"
:σstqp:=Nser,qp/Amp
:Return σstqp
:Disp "Vérification 1 partie fissure"
:If Amp≥((0.3*fck^(2/3))/fyk)*a*b Then
: Disp "Vérifié"
:Else
: Disp "Non vérifié"
:EndIf
:EndPrgm
.
