$:.push "../work"  #  These tricks are needed for
$:.push "work"     #          pre-install test only. 

require "num/dcl"
include DCL

include Math

NMAX = 400
dt = 2*PI / (NMAX-1)
x, y = [], []

for n in 0..NMAX
  t = dt*n
  x[n] = 1e2*sin(4*t)
  y[n] = 1e-3*cos(5*t)+6
end

iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; sgpwsn; gets)).to_i
gropn iws
grfrm

ussttl('X-TITLE', 'x-unit', 'Y-TITLE', 'y-unit')
usgrph(NMAX, x, y)

grcls