"AVEC LIGNE DE GIRON"?
IF =0
Then goto "AVEC LIGNE DE GIRON"
Else goto "SANS LONGUEUR LIGNE DE GIRON"
IfEnd
"AVEC LIGNE DE GIRON"
"COTES EN mm"
"Hauteur palier"?->Y
"Longueur ligne de giron"?->X
"Nombre de hauteurs"
((2*Y)+X+250)/615[disp]
"Corriger nbre de hauteurs"?->Z
"Nombre de foulées"->Z-1[disp]
"Hauteur marche"
Y/(Z-1)[disp]
"Longueur foulée"
X/(Z-1)[disp]
"Rapport"
(2x(Y/(Z-1)))+1x(X/(Z-1)[disp]
"Pente escalier"
tan-1(Y-((Y/(Z-1))))/X

"SANS LONGUEUR LIGNE DE GIRON"
"cotes en mm"
"Hauteur palier"?->Y
"Nombre de hauteurs"
Y/170
"corriger nbre de hauteurs"?->Z
"Nombre de foulées"
Z-1
"Hauteur marche"
Y/(Z-1)[disp]
"Longueur foulée"
630-(2x(y/(Z-1)))[disp]
"Rapport"
2*(Y/(Z-1))+(630-(2x(y/(Z-1))))[disp]
"Longueur ligne de giron"
(630-(2*(y/(Z-1))))*(Z-1)[disp]
"Pente escalier"
tan-1(y-(y/(Z-1)/(630-(2*(y/(Z-1))))*(Z-1)