GO TO 5 

 3 Z 1 = 7 W 

 C Z1=DFPTH OF SOILS ABOV r W.T. 

 7.2 = 1-1 W 



C Z2=DEPTH OF SOILS BELOW W.T. 



5 SlGl=(Zl*GAVMA+Z2*GAMMAB)*A2 

 C S IG1 = NORMAL I NT ERGRANULAR STRESS ON PLANE INCLINED AT ThETa 



S=B*GAMMAW*Z2*A 

 Tl=S IG1*TANT+S 

 C Ti=ShEARING STRESS ON PLANE INCLINED AT ThETa 

 G r, = S I G 1 *D+C OHESH 



B0 = ( (-5 IG1*D-C0HESH) **2.)- ( ( S I G'1*S I Gl ) * ( D + TANT2 + H*H*TANT2 ) 



1 + 2 . *S I G 1 *T AN T*S*D+S* S*D-C OHE S*C ONES ) 

 I F ( B^O ) 1 O^ 1 , , 1 ^0? 



1001 PRINT 1003»Z 



10O3 FORMAT (1H1,3H Z= i F5, 1 , 6 8H *# * FAILURE CONDITIONS E X I S T AT THIS DEP 



1TH WITH ABOVE PROPEPTIFS *** ) 

 10 04 GO TO 1005 



1002 BO =SQRT F ( BOO ) 

 S I GOA=GO-BO 



C S I GO A = CENTER OF ACTIVE STRESS CIRCLE 



S I G0P=G0+B0 

 C S I GO P-C FN T FR OF PASSIVE STRESS CIRCLE 



SIG2A={ (2.*SIGOA-2.*TANT*S)/(l.+TANT2) ) - ^ I G 1 

 C SIG2A=N0RMAL I NTERGRANUL AR STRESS AT ORIGIN F PLANES FOR ACTIVE CASE 



SlG2P=( ( ?.*MG0P-2,*TANT*S ) / ( 1 . + TANT2 ) ) - c I G 1 

 C SIG2P=N0RMAL I N T F RGRAN ' 'L A R STRp cc ^ AT ORIGIN F PLANES FOP PASSIVE CASE 



T2A=S I G2A*TANT+S 

 C T2A= C >HFAR AT O.P. (ACTIVE CASE) 



T2P=SIG2P*TANT+S 

 C T2P= C HEAR AT O.P. (PASSIVF CASF) 

 C FOR AaOVE EQUATIONS REFER TO NOTES 



DEL A = AT AN F ( ( -S I G2 A + S I GO A ) / T2 A ) 



IF(DELA) 50,59,60 



59 IF ( T 2 A ) 50,60,60 



5 DDELA=180.+( ( 180. /PI )*DFLA) 

 C DDELA=ANGLE TANGENT MAKES WITH HORIZONTAL (ACTIVE) -NOTES 13-17 

 GO TO 201 



60 DDELA=( 180. /PI )*DELA 



20 1 DELP = ATANF ( (-SIG2P+SIG0P) / T2 P ) 



I F ( DEL P ) 100, 209,200 

 2 9 IF ( T 2 P ) 5 00 ,400,400 

 2^0 IF(T2P) 300,400,400 

 40 J DDELP*=( 180./PI )*DELP 

 C DDELP=ANGLE TANGENT MAKES WITH HORIZONTAL (PASSIVE) -NOTES 13-17 



GO TO 80 

 30 DDELP=180.+( ( 180. /PI ) *DELP) 



GO TO 80 

 inn jp ( T 2 P ) 50^,600,600 



30 



