chunk_565.json•1.46 kB
{
"id": "chunk_565",
"text": "400 FOR 1• 1 TO NC \n410' Abscisse, Charge Concentree, Couple Concentre \n420 IF ITR• 2 TIIEN READ XC(I),P(I),T(I):GOTO 470 \n430 PRINT USING'Charge U : ' ;I; \n440 INPUT CL$ \n450 GOSUB 1900 ' Format Ubre \n460 XC(l)•U(O):P(I)•U(l):T(I)• U(2) \n470NEXTI \n480 IF ITR- 2 lllEN READ E.XIN:GOTO 510 \n490 lNPUT'Module dYoung de 1a Poutre(MPa) •';E \n500 lNPUT'Moment d 'Inertie de 1a Poutre (m4) -';XIN \n510 EJaE\"XIN:EIL•EI' L \n520RETURN \n530 REM···---\n540 REM Calcul des Coelficients de Ia Matrice \n550 N1•2'NR:Nll•NI+ 1 \n560 FOR J • 1 TO NR \n570 X• XR(J) \n580 J1- 2'J-1:J2•2' J \n590 \nFOR 1• 1 TO NR \n600 A • XR(I) \n610 \nGOSUB 2210:A(J1,1)• FL:A(J2,1)•ROT \n620 GOSUB 2310:A(J1,NR+I)•FL:A(J2,NR+I)=ROT \n630 IF I•J lllEN A(Jl,I)• A(J1,1)-KR(I):A(J2,NR+I)- A(J2,NR+I)-KT(I) \n640 NEXT! \n650 FOR 13•1 TO NC \n660 A•XC(I3) \n670 GOSUB 2210:A(J1,Nil)• A(J1,NI1)+FL'P(I3):A(J2,Nil)• A(J2,Nil)+ROT'P(I3) \n680 GOSUB 2310:A(Jl ,Nll)•A(J I ,Nil)+FL 'T(I3):A(J2,NI1)•A(J2,Nil)+ROT'T(I3) \n690NEXTI3 \n700 IF KR(J)<>Oil TIIEN 720",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 565,
"line_start": 20025,
"line_end": 20057,
"has_formulas": true,
"has_tables": false
}
}