%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:125 File Name:SEMELLES Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText "Quel type de semelle" "1.Carre" "2.R\Rectangulaire" "3.Filante" ?\->Z \If Z=1 \Then \Prog "SC" \IfEnd \If Z=2 \Then \Prog "SR" \IfEnd \If Z=3 \Then \Prog "SF" \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:107 File Name:POTEAUX Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText "Quel type de Poteaux" "1.Carre\slashR\Rectangulaire" "2.Circulaire" ?\->Z \If Z=1 \Then \Prog "PR" \IfEnd \If Z=2 \Then \Prog "PC" \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1048 File Name:SC Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText "Ned en kN"?\->N "qd en KPa"?\->Q "b en m (base du poteau)"?\->I "Calcul de d et h," "b'=\sqrt(Ned/qd)" (\sqrt(N/Q))\->B\Disp"On arrondira au dixieme superieur" \Lbl 1 "valeur prise de b'"?\->B "d=(b'-b)/4" ((B-I)/4)\Disp"Arrondi au dixieme" "Valeur prise de d"?\->D "h=d+5cm" (D+0.05)\Disp"Arrondi au dixieme" "h="?\->H \ClrText "Verification R\Rd>Vd" "Vd=Ned+1.35(b'*b'*h*25)" "Vd= en kN" (N+1.35*(B*B*H*25))\->V\Disp"R\Rd= en kN" (B*B*Q)\->R\Disp\If R>V \Then "R\Rd>Vd donc c'est ok\!mark"\Disp(0)\->K \Else "R\RdK \IfEnd \If K=1 \Then \Goto1 \IfEnd \ClrText "Calcul du moment sur la semelle" "\Med,x=\Med,y=(Ned/8b')*(b'-0.7b)\x^2" (((N/(8*B))(B-0.7I)^2))\->M\Disp"Calcul de section des armatures As pour X et Y" "R\Resistance du beton en MPa"?\->P "R\Resistance de l'acier = 500MPa" (500)\->Y "Fcd= Fck/1.5 (MPa)" (P/1.5)\->S\Disp"Fyd= Fyk/1.15 (MPa)" (Y/1.15)\->X\Disp"u=(\Med,x)/(b'*d\x^2*fcd)" (M*10^\(-)3)/(B*D\x^2*S)\->U\Disp"a=1.25(1-\sqrt(1-2u))" (1.25(1-\sqrt(1-2*U))\->A\Disp"z=d(1-0.4a)" (D(1-0.4*A))\->W\Disp"As,x\>=(\Med,x)/(z*fyd)en cm\x^2" (((M*10^\(-)3)/(W*X))*10^4)\Disp"Calcul du nombre de barres n" "St,max"?\->O "n=b'/St,max" (B/O)\Disp\Prog "SEMELLES" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1606 File Name:SR Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText "Ned (kN)"?\->N "qd (KPa)"?\->Q "b (m)(petite base du poteau)"?\->I "c (m)(gr\ande base du poteau)"?\->C "Calcul de b',c',d et h," "Petite base de la semelle b'= \sqrt(Ned*b/qd*c)" \sqrt((N*I)/(Q*C))\Disp"On arrondira au 10' sup pr tenir compte du poid propre de la semelle" \Lbl 1 "Valeur prise de b'"?\->B "\Grande base de la semelle c'= b'*(c/b) en m" (B*(C/I))\Disp"Arrondi au 10'" "Valeur prise pour c'"?\->R "d\>=(b'-b)/4;(c'-c)/4" ((B-I)/4)\Disp((R-C)/4)\Disp"Je prend la valeur la plus gr\ande arrondi au 10'" "Valeur prise de d"?\->D "h=d+5cm" (D+0.05)\Disp"J'arrondi au 10' sup pr tenir compte de l'enrobage"\Disp"Valeur prise de h"?\->H "Verification R\Rd>Vd" "Vd=Ned+1.35(b'*c'*h*25)" "Vd= en kN" (N+1.35*(B*R*H*25))\->E\Disp"R\Rd= b'*c'*qd en kN" (B*R*Q)\->G\Disp\If G>E \Then "R\Rd>Vd donc c'est ok\!mark"\Disp(0)\->K \Else "R\RdK \IfEnd \If K=1 \Then \Goto1 \IfEnd \ClrText "Calcul du moment sur la semelle" "\Med,x=(Ned/8b')*(b'-0.7b)\x^2" (((N/(8*B))(B-0.7I)^2))\->M\Disp"\Med,y=(Ned/8c')*(c'-0.7c)\x^2" (((N/(8*R))(R-0.7C)^2))\->L\Disp"Calcul de section des armatures As" "pour X" "\Resistance du beton Fck"?\->P "\Resistance de l'acier Fyk=500MPa" (500)\->Y "Fcd= Fck/1.5 (MPa)" (P/1.5)\->S\Disp"Fyd= Fyk/1.15 (MPa)" (Y/1.15)\->X\Disp"u1=(\Med,x)/(c'*d\x^2*fcd)" (M*10^\(-)3)/(R*D\x^2*S)\->U\Disp"a1=1.25(1-\sqrt(1-2u))" (1.25(1-\sqrt(1-2*U))\->A\Disp"z1=d(1-0.4a)" (D(1-0.4*A))\->W\Disp"As,x\>=(\Med,x)/(z*fyd)en cm\x^2" (((M*10^\(-)3)/(W*X))*10^4)\Disp"Calcul du nombre de barres n" "St,max"?\->O "n=c'/St,max" (R/O)\Disp"pour Y" "u2=(\Med,y)/(b'*d\x^2*fcd)" (L*10^\(-)3)/(B*D\x^2*S)\->U\Disp"a2=1.25(1-\sqrt(1-2u))" (1.25(1-\sqrt(1-2*U))\->A\Disp"z2=d(1-0.4a)" (D(1-0.4*A))\->W\Disp"As,y\>=(\Med,y)/(z*fyd)en cm\x^2" (((L*10^\(-)3)/(W*X))*10^4)\Disp"n=d'/St,max" (B/O)\Disp\If Z=2 \Then \Prog "SEMELLES" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1419 File Name:SF Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText "Ned (kN)"?\->N "qd (KPa)"?\->Q 1\->R "b (m)(epaisseur du mur)"?\->I "Calcul de b',d et h," "Largueur de la semelle b'= \sqrt(Ned/qd)" \sqrt(N/Q)\Disp"On arrondira au 10' sup pr tenir compte du poid propre de la semelle" \Lbl 1 "Valeur prise de b'"?\->B "d\>=(b'-b)/4" ((B-I)/4)\Disp"On arrondi au 10'" "Valeur prise de d"?\->D "h=d+5cm" (D+0.05)\Disp"J'arrondi au 10' sup pr tenir compte de l'enrobage" "Valeur prise de h"?\->H "Verification R\Rd>Vd" "Vd=Ned+1.35(b'*c'*h*25)" "Vd= en kN/m" (N+1.35*(B*R*H*25))\->E\Disp"R\Rd= b'*c'*qd en kN/m" (B*R*Q)\->G\Disp\If G>E \Then "R\Rd>Vd donc c'est ok\!mark"\Disp(0)\->K \Else "R\RdK \IfEnd \If K=1 \Then \Goto1 \IfEnd \ClrText "Calcul du moment sur la semelle" "\Med,x=(Ned/8b')*(b'-0.7b)\x^2" (((N/(8*B))(B-0.7I)^2))\->M\Disp"\Med,y=(Ned/8c')*(c'-0.7c)\x^2" (((N/(8*R))(R-0.7R)^2))\->L\Disp"Calcul de section des armatures As" "pour X" "Fck (R\Resistance du beton en MPa)"?\->P "Fyk (R\Resistance de l'acier)= 500 Mpa" 500\->Y "Fcd= Fck/1.5 (MPa)" (P/1.5)\->S\Disp"Fyd= Fyk/1.15 (MPa)" (Y/1.15)\->X\Disp"u1=(\Med,x)/(c'*d\x^2*fcd)" (M*10^\(-)3)/(R*D\x^2*S)\->U\Disp"a1=1.25(1-\sqrt(1-2u))" (1.25(1-\sqrt(1-2*U))\->A\Disp"z1=d(1-0.4a)" (D(1-0.4*A))\->W\Disp"As,x\>=(\Med,x)/(z*fyd)en cm\x^2" (((M*10^\(-)3)/(W*X))*10^4)\Disp"Calcul du nombre de barres n" "St,max"?\->O "n=c'/St,max" (R/O)\Disp"pour Y" "u2=(\Med,y)/(b'*d\x^2*fcd)" (L*10^\(-)3)/(B*D\x^2*S)\->U\Disp"a2=1.25(1-\sqrt(1-2u))" (1.25(1-\sqrt(1-2*U))\->A\Disp"z2=d(1-0.4a)" (D(1-0.4*A))\->W\Disp"As,y\>=(\Med,y)/(z*fyd)en cm\x^2" (((L*10^\(-)3)/(W*X))*10^4)\Disp"n=d'/St,max" (B/O)\Disp\Prog "SEMELLES" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1008 File Name:PC Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText "Ned (kN)"?\->N "D diametre du poteau (m)"?\->B (((B\x^2*\Pi))/4)\->A "Fck (R\Resistance du beton en MPa)"?\->P 500\->Y "Fyk (R\Resistance de l'acier)= 500 Mpa" "Fcd= Fck/1.5 (MPa)" (P/1.5)\->S\Disp"Fyd= Fyk/1.15 (MPa)" (Y/1.15)\->X\Disp"Lo"?\->L "Calcul de Alpha, a, kh et As :" "Alpha = (4Lo/D)" ((4*L)/B)\->E\Disp\If E\<=60 \Then "Alpha\<=60 donc" "a=" "0.84/(1+(Alpha/52)\x^2)" (0.84/(1+(E/52)\x^2)\->R\Disp\Else "60R\Disp\IfEnd "kh= 0.93*(0.7+0.5*D)" (0.93*(0.7+0.5*B))\->K\Disp\If B>0.6 \Then "Mais D est superieur a 0.6m donc on prend Kh=1"\Disp1\->K \IfEnd "As\>=" "[((Ned*10^-3)/(a*kh))-Ac*Fcd)*1/fyd]*10^4" (((((N/1000)/(R*K))-(A*S))*(1/X))*10000)\Disp"Calcul de As,min :" "As,min=" "max[0.2\@25*Ac;0.1*(Ned/Fyd)]" ((0.2/100)*(A*10000)\Disp((0.1*(N/X))\Disp"As,max=4\@25Ac" ((4/100)*(A*10000)\Disp"Choix du diametre desbarres"\Disp\ClrText "Calcul As transversal" "Diametre des barres longitudinales choisie (ol)"?\->M "Diametre des cadres=" "ot\>=max [ol/4;6mm]" (M/4)\Disp(6)\Disp"Espacement des cadres" "Scl,t\<=" "min[b;20*ol;400]" (B*1000)\Disp(20*M)\Disp(400)\Disp\If Z=3 \Then \Prog "POTEAUX" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:994 File Name:PR Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText "Ned (kN)"?\->N "b petit cote du poteau (m)"?\->B "c autre cote du poteau (m)"?\->O (B*O)\->A "Fck (R\Resistance du beton en MPa)"?\->P 500\->Y "Fyk (R\Resistance de l'acier)= 500 Mpa" "Fcd= Fck/1.5 (MPa)" (P/1.5)\->S\Disp"Fyd= Fyk/1.15 (MPa)" (Y/1.15)\->X\Disp"Lo"?\->L "Calcul de Alpha, a, kh et As :" "Alpha = (Lo*\sqrt12)/b" ((L*\sqrt12)/B)\->E\Disp\If E\<=60 \Then "Alpha\<=60 donc" "a=" "0.86/(1+(Alpha/62)\x^2)" (0.86/(1+(E/62)\x^2)\->R\Disp\Else "60R\Disp\IfEnd "kh= 0.95*(0.75+0.5*b)" (0.95*(0.75+0.5*B))\->K\Disp"As\>=" "[((Ned*10^-3)/(a*kh))-Ac*Fcd)*1/fyd]*10^4" (((((N/1000)/(R*K))-(A*S))*(1/X))*10000)\Disp"Calcul de As,min :" "As,min=" "max[0.2\@25*Ac;0.1*(Ned/Fyd)]" ((0.2/100)*A*10000)\Disp(N/X)\Disp"As,max=4\@25Ac" ((4/100)*(A*10000)\Disp"Choix du diametre desbarres" "1 barre minumum dans chaque angle"\Disp\ClrText "Calcul As transversal" "Diametre des barres longitudinales choisie (ol)"?\->M "Diametre des cadres=" "ot\>=max [ol/4;6mm]" (M/4)\Disp(6)\Disp"Espacement des cadres" "Scl,t\<=" "min[b;20*ol;400]" (B*1000)\Disp(20*M)\Disp(400)\Disp\Prog "POTEAUX" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:97 File Name:METHODE Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "1. Mt1,max" "2. Mt2,max" "3. M1,max" ?\->Z \If Z=1 \Then \Prog "MT1" \IfEnd \If Z=2 \Then \Prog "MT2" \IfEnd \If Z=3 \Then \Prog "M1" \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:479 File Name:MT1 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText "L1 (m)"?\->A "L2 (m)"?\->B "Charge travee 1 (+) (kN)"?\->Q "Charge travee 2 (-) (kN)"?\->G \ClrText "L1*M0+(L1+L2)*2*M1+L2*M2" "=6EI[(\(-)L1^3*P2)\slash24EI-(L2^3*P1)\slash24EI]"\Disp"=(-L1^3*P2\slash4)-(L2^3*P1\slash4)" "(L1+L2)*2*M1=" ((-A^3*G)/4)\->K\Disp((-B^3*Q)/4)\->J\Disp"=" (K+J)\->V\Disp\If V<0 \Then (-V)\->V \IfEnd "M1=" (V/((A+B)*2))\->T\Disp"Mo1=(P1*L1\x^2)/8 (m.kN)" ((Q*A\x^2)/8)\->C\Disp"Mt1,max= Mo1-((M0+M1)/2)+((M0-M1)\x^2/16Mo1)" "Mt1,max=(m.kN)" (C-(\sqrt((0+T)\x^2)/2)+(((0-T)\x^2)/(16*C)))\Disp"Xt1=L1/2+(M0-M1)/(P1*L1)" ((A/2)+(0-T)/(Q*A))\Disp\ClrText \Prog "METHODE" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:461 File Name:MT2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText "L1 (m)"?\->A "L2 (m)"?\->B "Charge travee 1 (-) (kN)"?\->G "Charge travee 2 (+) (kN)"?\->Q \ClrText "L1*M0+(L1+L2)*2*M1+L2*M2" "=6EI[(\(-)L1^3*P2)\slash24EI-(L2^3*P1)\slash24EI]"\Disp"=(-L1^3*P2\slash4)-(L2^3*P1\slash4)" "(L1+L2)*2*M1=" ((-A^3*G)/4)\->K\Disp((-B^3*Q)/4)\->J\Disp"=" (K+J)\->V\Disp"M2=" (V/((A+B)*2))\->T\Disp"Mo2=(P2*L2\x^2)/8 (m.kN)" ((Q*B\x^2)/8)\->C\Disp"Mt2,max= Mo2-((M1+M2)/2)+((M1-M2)\x^2/16Mo2)" "Mt2,max=(m.kN)" (C-(\sqrt((0+T)\x^2)/2)+(((0-T)\x^2)/(16*C)))\Disp"Xt2=L2/2+(M1-M2)/(P2*L2)" ((B/2)+(0-T)/(Q*B))\Disp\ClrText \Prog "METHODE" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:242 File Name:M1 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText "L1 (m)"?\->A "L2 (m)"?\->B "Charge travees 1"?\->Q \ClrText "L1*M0+(L1+L2)*2*M1+L2*M2" "=6EI[(\(-)L1^3*P2)\slash24EI-(L2^3*P1)\slash24EI]"\Disp"=(-L1^3*P2\slash4)-(L2^3*P1\slash4)" "(L1+L2)*2*M1=" ((-A^3*Q)/4)\->K\Disp((-B^3*Q)/4)\->J\Disp"=" (K+J)\->V\Disp"M1=" (V/((A+B)*2))\->T\Disp\ClrText \Prog "METHODE" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:392 File Name:ACIER Group Name: Password: Option1: Option2: Option3: Option4: %Data Record "R\Resistance du beton en MPa"?\->P "R\Resistance de l'acier = 500MPa" (500)\->Y "Fcd= Fck/1.5 (MPa)" (P/1.5)\->S\Disp"Fyd= Fyk/1.15 (MPa)" (Y/1.15)\->X\Disp"Mu"?\->M "b'"?\->B "d"?\->D "u=(\Med,x)/(b'*d\x^2*fcd)" (M*10^\(-)3)/(B*D\x^2*S)\->U\Disp"a=1.25(1-\sqrt(1-2u))" (1.25(1-\sqrt(1-2*U))\->A\Disp"z=d(1-0.4a)" (D(1-0.4*A))\->W\Disp"As,x\>=(\Med,x)/(z*fyd)en cm\x^2" (((M*10^\(-)3)/(W*X))*10^4)\Disp"Calcul du nombre de barres n" "St,max"?\->O "n=b'/St,max" (B/O)\Disp %End