paramI9Z 20ps c implicit real (a-z) c sqrtf(x)=sqrt(x) c cosf(x)=cos(x) c sinf(x)=sin(x) c expf(x)=exp(x) c logf(x)=log(x) C Appendix E Sample Program 2 C Exercise library functions and punch object deck print 8 8 format(48h1A=2I(SQRT(1-COS(X)**2)COS(X)SIN(X)/ABS(SIN(X)))) print 1 1 format(97h0 I DEGREES A EXPONENTIAL(A)=B 1 LOGARITHM(B)=C I SIN(2X=D) C-D//) fi=1.0 degree=7.5 delta=1.57079632679489661923/12.0 arg=delta 3 a=(fi+fi)*sqrtf(1.0-cosf(arg)**2)*cosf(arg) if(fi-24.)7,7,6 6 a=-a 7 b=expf(a) c=logf(b) d=fi*sinf(arg+arg) diff=c-d print 2,fi,degree,a,b,c,d,diff 2 format(1x,f3.0,f9.1,f19.10,e19.10,2f19.10,e12.1) fi=fi+1.0 degree=degree+7.5 arg=arg+delta if(fi-49.0)3,4,5 4 print 9 9 format(1h1) stop 111 5 stop 777 end