Aide Syntaxe

[yob]

Code: Tout sélectionner

Define els3()=
Prgm
:
:Request "bw = [m]", B
:Request "d = [m]", D
:Request "As en [cm²]", A
:((A)/(10^(4)))→S
:Request "Mser perm = [MN*m]", P
:Request "Mser cara = [MN*m]", C
:Request "fck = [MPa]", K
:Request "fyk = [MPa]", J
:
:((15*S)/(B))*(√(1+((((2*B*D)/(15)))/(S)))-1)→Z
:Disp "Z en [cm]=",Z*100
:pause
:((B*Z )/(3))+15*S*(D-Z)²→I
:Disp "I en [cm^4]=",I*10^((8)

)
:pause
:((P*Z)/(I))→X
:Disp "σc,max perm [MPa]=",X
:pause
:((15*C*(D-Z))/(I))→Y
:Disp "σs,max cara[MPa]=",Y
:pause
:If X≤0.45*K  Then
:Disp "σc,max béton OK"
:Else
:Disp "NON pb sigma béton"
:EndIf
:
:If Y≤0.8*J  Then
:Disp "σs,max acier OK"
:Else
:Disp "NON PB sigma acier"
:EndIf
:pause
:((15*P*(D-Z))/(I))→E
:Disp "σs,max perm en[MPa]=",E
:pause
:Disp "maîtrise des fissurations:"
:pause
:
:Disp "section minimale des As:"
:pause
:Disp "hauteur de la section:[m]"
:Request "L =", L
:Request "fctm en [MPa]:", G
:Request "σs,max du Tab7.2N [MPa]:", Q
:Request "Act section tendue en m²", N
:((0.4*G*N*10000)/(Q))→V
:Disp "As,min =",V
:
:If V≤A Then
:Disp "OK, vérifiée!"
:Else
:Disp "NON > As,réelle!"
:EndIf
:pause
:Disp "vérif. flèche sans calcul"
:pause
:Disp "Leff en [m] ="
:Request "F =", F
:((F)/(D))→H
:((310)/(E))→M
:((((((A)/(L)))/(B)))/(10000))→O
:Request "(L/d)lim:",
:R R*M→W Disp "(L/d)=",H
:Disp "(L/d)lim * Ccorr=",W 
:If H≤W  Then
:Disp "Ok flèche vérifiée"
: Else Disp "PB flèche!"
:EndIf
:
:EndPrgm

Bonjour
J'ai le message" manque d'une instruction en débutou fin de bloc" mais je ne vois pas ou se situe le problème
une petite aide svp?

Code: Tout sélectionner

Define els3()=
Prgm
:
Request "bw = [m]", B
Request "d = [m]", D
Request "As en [cm²]", A
((A)/(10^(4)))→S
Request "Mser perm = [MN*m]", P
Request "Mser cara = [MN*m]", C
Request "fck = [MPa]", K
Request "fyk = [MPa]", J

((15*S)/(B))*(√(1+((((2*B*D)/(15)))/(S)))-1)→Z
Disp "Z en [cm]=",Z*100
pause
((B*Z )/(3))+15*S*(D-Z)²→I
Disp "I en [cm^4]=",I*10^((8))
pause
((P*Z)/(I))→X
Disp "σc,max perm [MPa]=",X
pause
((15*C*(D-Z))/(I))→Y
Disp "σs,max cara[MPa]=",Y
pause
If X≤0.45*K  Then
Disp "σc,max béton OK"
Else
Disp "NON pb sigma béton"
EndIf

If Y≤0.8*J  Then
Disp "σs,max acier OK"
Else
Disp "NON PB sigma acier"
EndIf
pause
((15*P*(D-Z))/(I))→E
Disp "σs,max perm en[MPa]=",E
pause
Disp "maîtrise des fissurations:"
pause

Disp "section minimale des As:"
pause
Disp "hauteur de la section:[m]"
Request "L =", L
Request "fctm en [MPa]:", G
Request "σs,max du Tab7.2N [MPa]:", Q
Request "Act section tendue en m²", N
((0.4*G*N*10000)/(Q))→V
Disp "As,min =",V

If V≤A Then
Disp "OK, vérifiée!"
Else
Disp "NON > As,réelle!"
EndIf
pause
Disp "vérif. flèche sans calcul"
pause
Disp "Leff en [m] ="
Request "F =", F
((F)/(D))→H
((310)/(E))→M
((((((A)/(L)))/(B)))/(10000))→O
Request "(L/d)lim:",
R R*M→W Disp "(L/d)=",H
Disp "(L/d)lim * Ccorr=",W 
If H≤W  Then
Disp "Ok flèche vérifiée"
Else Disp "PB flèche!"
EndIf

EndPrgm

[Adriweb]

ici peut être:

Code: Tout sélectionner

:Request "(L/d)lim:",
:R ....

Il faut que le R soit sur la même ligne que le request, pas apres

[yob]

je viens de changer, mais toujours le même problème ...

[Adriweb]

Et qu'est-ce que te raconte Ctrl-B ? Normalement ça t'amène à l'endroit du problème

[yob]

non ca me dit rien

[yob]

Maintenant, j'ai juste un probleme de syntaxe!

Code: Tout sélectionner

Define els3()=
Prgm
:
:Request "bw = [m]",B
:Request "d = [m]", D
:Request "As en [cm²]", A
:((A)/(10^(4)))→S
:Request "Mser perm = [MN*m]", P
:Request "Mser cara = [MN*m]", C
:Request "fck = [MPa]", K
:Request "fyk = [MPa]", J
:
:((15*S)/(B))*(√(1+((((2*B*D)/(15)))/(S)))-1)→Z
:Disp "Z en [cm]=",Z*100
:pause
:((B*Z )/(3))+15*S*(D-Z)^(2)→I
:Disp "I en [cm^4]=",I*10^(8)
:pause
:((P*Z)/(I))→X
:Disp "σc,max perm [MPa]=",X
:pause
:((15*C*(D-Z))/(I))→Y
:Disp "σs,max cara[MPa]=",Y
:pause
:If X≤0.45*K  Then
:Disp "σc,max béton OK"
:Else
:Disp "NON pb sigma béton"
:EndIf
:
:If Y≤0.8*J  Then
:Disp "σs,max acier OK"
:Else
:Disp "NON PB sigma acier"
:EndIf
:pause
:((15*P*(D-Z))/(I))→E
:Disp "σs,max perm en[MPa]=",E
:pause
:Disp "maîtrise des fissurations:"
:pause
:
:Disp "section minimale des As:"
:pause
:Disp "hauteur de la section:[m]"
:Request "L =", L
:Request "fctm en [MPa]:", G
:Request "σs,max du Tab7.2N [MPa]:", Q
:Request "Act section tendue en m²", N
:((0.4*G*N*10000)/(Q))→V
:Disp "As,min =",V
:
:If V≤A Then
:Disp "OK, vérifiée!"
:Else
:Disp "NON > As,réelle!"
:EndIf
:pause
:Disp "vérif. flèche sans calcul"
:pause
:Disp "Leff en [m] ="
:Request "F =", F
:((F)/(D))→H
:((310)/(E))→M
:((((((A)/(L)))/(B)))/(10000))→O
:Request "(L/d)lim:", R
:R*M→W
:Disp "(L/d)=",H
:Disp "(L/d)lim * Ccorr=",W 
:If H≤W  Then
:Disp "Ok fleche vérifiee"
: Else Disp "PB fleche!"
:EndIf
:
:EndPrgm