10 READ C«E«A3>R«S 



15 I»0 



20 READ M 



30 READ D 



40 Bl=4*D*R*A3/<M*3*Pl) 



50 READ U 



60 READ T 



70 W=2*PI/T 



80 K=W/C 



85 READ RI 



90 READ L 



100 A1=K*M*B1/CR1*S) 



105 A2=A1/BI 



110 P=K*L 



120 A=(C0S(P)-A2*SIN<P))t2 



130 B=<Al*U*SIN<P))t2 



140 F=SQR<<A/{2*B))t2+l/B)-A/(2*B) 



142 IF I<>0 60 T0 210 



150 PRINT "C">"E"#"A"#"RH0"#"S" 



160 PRINT C*E«A3«R«S 



170 PRINT "M="M#"CD="D*"RH0-CABLE="R1 



180 PRINT ••U0="U*"T="T 



190 PRINT 



200 PRINT "LENGTH"* "DYNAMIC L0AD"»"T0TAL L0AD"*"T0TAL STRESS" 



210 Y=L 



220 QsK*Y 



240 Sl = (SIN(Q>4^A2*C0S(Q))t2 



250 Sl=Sl-i-F>»(Al*U>fC0S(Q))t2 



260 S1=E*K*U*SQR<F*S1) 



265 S1«S1/144 



266 L2=S1*S*144 



267 L3=L2+10000 



268 S2=L3/<S*144) 

 270 PRINT L*L2#L3*S2 

 280 1^1 



300 G0 T0 90 



310 DATA 11200*2. 16E+09*155. 5*1. 98# 1.03E-03 



320 DATA 1700 



330 DATA 1.0 



340 DATA 7 



350 DATA 9 



355 DATA 13.4 



360 DATA 50#75*100*200#300#400#500*600# 700*800*900*1000 



361 DATA 1200*1400*1600*1800*2000*2200*2400*2600*2800*3000 



362 DATA 3200*3400*3600*3800*4000 

 370 END 



79 



