APPENDIX 



*■**#*****#□ I MENS I ONAL COMPUTER PROGRAM *********** 



C STRESS ON ANY PLANE -INFINITE SLOPE THEORY W. HARTSOG 



Q *************** * * * * * * ******* * * * * * * * * * * ******************************** 



READ 1, COHES* PHID, GAMMA, T MET AD 

 C COHES=COHESION P.S.F. , PH I D=FR I CT I ON ANGLE IN DEGREES 



C GAMMA=UNIT WEIGHT OE SOIL ABOVE W.T. IN P. OF. 

 C THETAD= INCLINATION OF PLANE IN DEGREES 

 1 FORMAT (4F10.1) 



PRINT 2, COMES , PHID, GAMMA, THETAD 

 20FORMAT ( 10X»10HCOHESION =»F6.1,4H PSF , 7x , 6HPH I D =,F6.1»5H DEC., 

 1 7 X , 7 H GAM MA =,F6«1»4H PC F , 7 X , 8 HTH E T AD =,F6.1,5H DEG. ) 

 READ 3 , GAMM AB , ZW 

 C GAMMAB=BUOYANT UNIT WEIGHT, ZW=VERTICAL DEPTH TO W.T. 



3 FORMAT (2F10.1) 

 READ 3 3 » N 



C N IS INCREMENT OF ALPHA IN DEGREES 



33 FORMAT (113) 

 READ 3 4, L » M 



C L IS INCREMENT OF DEPTH M IS MAXIMUM DEPTH 



34 FORMAT (2110) 

 PRINT 4,N,GAMMAB,ZW 



4 FORMAT (39X,3HN = , I 3 , 1 5 X , 8 HGAMM AB =,F6.1»4H PCF,11X»4HZW =»F6.1» 

 14H FT. ) 



PRINT 9- 



9 p o R M A T ( 1hO,19X, 46 H ************************************** * *******) 

 P 1 = 3. 141 59 

 PH I = ( PH I D*P I ) / 1 80. 

 ThETA= THETAD*PI/180. 

 GAMMAW-62 . 4 

 A=COSF( THETA ) 

 A2= A*A 



b=sinf( theta) 

 tant=b/a 



TANT2=TANT*TANT 

 H=S INF( PHI ) /COSF ( PH I ) 

 D= 1 ,+H*H 

 GA2=GAMMA*A2 

 GA2D=GA2*D 

 COHESH=COHES*H 

 7 2 DO 5 1 IZ=L»M,L 

 Z= 17 



C Z=TOTAL DEPTH TO PLANE UNDER STUDY 

 I F ( Z-ZW ) 20 , 20 , 30 

 2 Z1=Z 

 Z2=0. 



29 



