chunk_85.json•1.41 kB
{
"id": "chunk_85",
"text": "570 IF SORTI•4 THEN GOSUB 3430 :GOTO 600 'Calcul des Aciers Abaques \n580 GOSUB 3580 ' Lecture des Aciers \n590 CPS• ! ·Section d'Acier Preoontrainte pris en Compte a 100% \n600 IF TOUR< ! THEN GOSUB 9910 'Ecriture des Donnees \n610 IF E(l)>O THEN GOSUB 10950 'Repetition des Donnees Aciers \n620 GOSUB 8500 • Calcul des Caracteristiques Mecaniques Brutes \n630 IF TOUR<! OR E(l)>O THEN GOSUB 9330' Titre des Resultats \n640 IF TOUR< ! THEN GOSUB 8780' Ecriture des Caracteristiques Mecanlques Brutes \n650 IF E(l)>O AND TOUR<! THEN GOSUB 9000' Ecriture des Caractertstiques Meca. Homogenes \n660 GOSUB 4080 'Valeurs de Base \n670 IF SORTI<4 THEN IPCT•l \n680 ON SORTI GOTO 690,800,850,910 \n690 GOSUB 5810 • Ecriture Titre Tableau de Verification \n700 FOR ICM• l TO NMP \n710 IF BP>O AND ELU<l.l THEN GOSUB 1090:GOTO 730' Beton Preoontraint en ELS \n720 GOSUB 5950 'Calcul des Moments et Eft. Normaux Resistants \n730 NEXTICM \n740 PRINT:INPUT'Voulez-Vous Recalculer avec Meme Geometrte et d'Autres Aciers : Oul•l, Non•O",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 85,
"line_start": 2750,
"line_end": 2767,
"has_formulas": false,
"has_tables": false
}
}