🚀 go-pugleaf

$BIw4V!w#N(B$B#T#T%=%U%H8&$G$9!#(B

In article <NKAWAI.92Feb10194317@rkna50.riken.go.jp> nkawai@rkna50.riken.go.jp (Nobuyuki Kawai) writes:
 > $BIY;NDL$NBg7?7W;;5!>e$N(B $B%0%i%U%#%C%/!&%Q%C%1!<%8$N(B PSP $B$rMQ$$$?(B FORTRAN 
 > $B%W%m%0%i%`$,$?$/$5$s$"$k$N$G$9$,!"%=!<%9$r=q$-49$($:$K!"(BPSP$B$N%G!<%?$N(B
 > $BBe$o$j$K%]%9%H%9%/%j%W%H$r=P(B$BNO$9$k$h$&$J(B FORTRAN $B%i%$%V%i%j!<$r$I$J$?(B
 > $B$+$4B8$8$J$$$G$7$g$&$+!)(B
 > 
 > PSP $B$O$b$H$b$H(B CALCOMP $B$N(B$B%Z%s!&%W%m%C%?!<MQ$N(B FORTRAN $B%i%$%V%i%j!<$G$9(B
 > $B$,!"5!G=$O>/$J$/!"Nc$($P(B
 > CALL PLOT(X,Y,3)$B!!$G(B x y moveto$B!"(BCALL PLOT(X,Y,2) $B$G!!(Bx y lineto $B$r(B
 > $B=PNO$9$k$h$&$J%5%V%k!<%A%s$r=q$1$P$h$$$N$@$H$O;W$$$^$9(B$B!#(B

$B!!$*J9$-$N$b$N$G$O$J$$$+$b$7$l$^$;$s$,<!$N$h$&$J$b$N$,$"$k$h$&$G$9!#;D(B
$BG0$J$,$i>\$7$$%X%C%@$O;D$C(B$B$F$$$^$;$s(B;-(

	From: naras@stat.fsu.edu (B. Narasimhan)
	Date: 26 Jun 90 01:25:18 GMT
	Message-ID: <835@stat.fsu.edu>
	Subject: PSDRAW---Fortran routines for Postscript plots. (Part01/01)

$B!!0l1~$3$l$K(B$B4^$^$l$F$$$k%5%s%W%k%W%m%0%i%`$rIU$1$^$9!#(B
--- demo 1 --------------------------------------------------------------------
      program normal
C
C This program illustrates the simplest interface to Postscript.
C
      real x(61), y(61)
C
C Let us create the values for the normal density function
C in the array y.
C
      c = 1./sqrt(2.*3.141592654)
      do 10 i=-30,30
         x(i+31)= i/10.
10       y(i+31) = c*exp(-0.005*i*i)
C
C Initialize the printer. The unit number we'll use is 1.
C Since we have not opened a file at unit number 1 output will
C go to a default file name 'plot.ps'.
C
      call psini(1)
C
C Now plot the array using the default parameters.
C Again, here we use two unit numbers 2 and 3 that do not
C refer to any file. So no parameter file will be read in
C to modify the default parameter settings and no
C log file will be written.
C
      call psplot(x,y,61,2,3)
C
C Now just eject a page and restore the printer's sanity.
C
      call pspage
      call psfini
      end
-------------------------------------------------------------------------------
--
	$BIw4V0lMN(B (kazama@expert-sun.ntt.jp)
	NTT$B%=%U%H%&%'%"8&5f=j(B $B%=%U%H%&%'%"4pAC5;=Q8&5fIt(B
	$BJ,;67?%=%U%H%&%'%"8&5f%0%k!<%W(B