C [DEM22] C PLANETARY COPPER MINE C DEMONSTRATION FOR THE PROGRAM PLTSV, WHICH SHOWS A PERSPECTIVE C VIEW OF FUNCTIONS DEFINED OVER A SPHERE. QUANTIFICATION IS USED C TO INDICATE THE VARIOUS RADIAL CONTOUR LEVELS OF THE FUNCTIONS. C [THD] EDER 28-APR-76 COPIED FROM DECUS 10-228 EXTERNAL PLTPO,VISSP DIMENSION EF(181,71),O(3,3) DATA O/0.408,-0.707,0.577, * 0.816,0.0,-0.577, * 0.408,0.707,0.577/ NT=71 NP=181 DT=3.14159/FLOAT(NT-1) DP=6.28318/FLOAT(NP) T=0.0 DO 20 I=1,NT P=0.0 DO 10 J=1,NP R1=0.9+SIN(3.0*T+P) R2=1.+SIN(5.0*T-P) E1=0.75*SIN(T)*EXP(-R1*R1) E2=0.25*SIN(T)*EXP(-1.5*R2*R2) EF(J,I)=0.1*FLOAT(IFIX(10.0*(0.33+E1-E2))) 10 P=P+DP 20 T=T+DT CALL PFNAME('DEM22.BLD') CALL PLT00 CALL PLTFR CALL PLTLA('DEM22') CALL PLTSV(EF,NP,NT,O,VISSP,PLTPO) CALL PLTEND END