Strip Theory 



READ INPUT TAPE 5, 208,KCOP,NSTR1 ,NSTR2 

 C 

 C STILL WATER SHEAR AHD BEflDING MOMENT 



C 



DC 06 J=1.K ■ „ V'- ■ 



A(J)=CA(1 J) 

 86 E(J)=0.001*CG(6,J) 



KDEF^K 

 |:!DEF<=12 

 GC TC 301 

 £7 DC PC J=1.K 



p". iprj)=c"j) 

 cc :^(J)=c(j) -. , ■' 



i;:nEF=i3 



GC TC 301 



C9 nc so J=i," 



T'^.A'n,J)=:'>\iP(J)-pr'.is(j) 



so T a: (? J)=C(J)-SECS(J) 



rpCL^^ 



DC S3 J=l,2 

 DZ 91 1=1, r 



DIS-(I)=CA(1,I) 



SI C'n(i)=T.-iA;:(J,i) 

 DC 93 1=1, IS 

 F=l 



UV=0,05*F*UVE 

 GC TC 501 



92 UIL(J, I)=USC 



93 CCIITI'UE 



DC 57 J=l,i' 

 57 CG(6,J)=CG(6-J)/9.ei 

 if(;:St:;2)55,55,7 



v'EiGMT dist"j:utic;: cha- acteristics 



7 DC C J=1.K 



AU)=CA(1,J) 

 C r(J)=CG(6.J) 



I'DEF=K 



l!'DEF=l 



GC TC 301 

 9 CC(1,if)=DEF 



DC 10 J=1.K 



10 B(J)=B(J)*A(J) 

 INDEF«=2 



GC TC 301 



11 FG=DEF/CC(1,1+) 

 DC 12 J»1.K 



CG(1 J)=CA(1,J)-FG 

 A(J)=CGM.j/ 



12 D(J)=CG(6'J)*A(J)**2 

 lflDEF=3 



GC TC 301 



13 CC(3,^)=DEF 

 DIS«=0.00981*CC(1 U) 

 RGI»100.*SQ:JF(CC(3,4)/CC(1,If))/UVE 



C * 



C V/RITE STILL V/ATEf; SHEAR AND BENDING MOMENT 



867 



