chunk_60.json•1.45 kB
{
"id": "chunk_60",
"text": "U(l):L• U(2):GOTO 590 \n580 IF IFM-2 mEN !NPUT'Largeur(m). lnertie(m4) et Longueur du Pieu (m)•';CL$:GOSUB 2810: \nB• U(O):X!N•U(l):L• U(2):GOTO 590 \n590 INPUT\"Module \nd'Young du Beton (MPa)=';EY \n600 INPUT'Le Pieu est-il : 1 -Articule en Tete, 2 = Encastre en Tete. • ' ;ENC \n610 \nINPUT'Effort Horizontal (MN) • ' ;VT \n620 IF ENC• 1 THEN INPUT'Moment en Tete (MNm) •';MT \n630 INPUT\"Nombre de Points de Calcul =';NX \n640 INPUT\"Nombre de Couches de Terrain •';NC \n650 NCT• NC:N1• NCT\"4+ 1 \n660 IF NX- 0 THEN PRINT 'Le Nombre de Points de Calcul ne Doit pas etre Nul' \n670 IF IDIM>O THEN ERASE D.A.W.HC,KC,FL \n680 DIM D(N1,N1 + 1),A(Nl,Nl+ 1),W(5).HC(NCT+ 1).KC(NCT+l).FL(4,NX+ 1) \n690 MM• NCT\"4:U2• 0 \n700 \nFOR II• I TO NC \n710 IF LDA• 2 mEN READ HC(II),KC(Jl):GOTO 740 \n720 \nPRINT USING'Couche Noltll, Epaisseur (m) et Module du Sol (MPaj m)\";II; \n730 INPUT' •'; CL$:GOSUB 2810:HC(Jl)•U(0):KC(II)•U(l):PRINT \n740 U2• U2+HC(Il) \n750 NEXTJI \n760 IF IFM• O THEN B• H:D• EY'HI\\411/6411'PI:GOTO 790 \n770",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 60,
"line_start": 1906,
"line_end": 1931,
"has_formulas": true,
"has_tables": false
}
}