ruby-dcl 1.7.1 → 1.8.2

data/demo/grph2/uspack/uspk05.rb

@@ -1,10 +1,9 @@
 #
 # uspk05.rb
 #
-# $Id: uspk05.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uspack/uspk06.rb

@@ -1,10 +1,9 @@
 #
 # uspk06.rb
 #
-# $Id: uspk06.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu
@@ -36,7 +35,7 @@ DCL::gropn iws
 
 DCL::grfrm
 
-DCL::ussttl('TIME', 'SEC', 'HEAT FLUX', 'W/m|2"')
+DCL::ussttl('TIME', 'SEC', 'HEAT FLUX', 'W/m\^2')
 DCL::usgrph(t, a)
 
 DCL::grcls

data/demo/grph2/uspack/uspk07.rb

@@ -1,10 +1,9 @@
 #
 # uspk07.rb
 #
-# $Id: uspk07.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uspack/uspk08.rb

@@ -1,10 +1,9 @@
 #
 # uspk08.rb
 #
-# $Id: uspk08.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu
@@ -39,7 +38,7 @@ DCL::uscset('CYSPOS', 'B')
 DCL::uscset('CXSIDE', 'T')
 DCL::uscset('CYSIDE', 'L')
 
-DCL::ussttl('TEMPERATURE', 'C|'+ DCL::csgi(4) + '"', 'DEPTH', 'm')
+DCL::ussttl('TEMPERATURE', '\^'+ DCL::usgi(228) + 'C', 'DEPTH', 'm')
 DCL::usgrph(t, z)
 
 DCL::grcls

data/demo/grph2/uspack/uspk09.rb

@@ -1,10 +1,9 @@
 #
 # uspk09.rb
 #
-# $Id: uspk09.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uspack/uspk10.rb

@@ -1,10 +1,9 @@
 #
 # uspk10.rb
 #
-# $Id: uspk10.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uspack/uspk11.rb

@@ -1,10 +1,9 @@
 #
 # uspk11.rb
 #
-# $Id: uspk11.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uspack/uspk12.rb

@@ -1,10 +1,9 @@
 #
 # uspk12.rb
 #
-# $Id: uspk12.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uupack/uupk01.rb

@@ -1,10 +1,9 @@
 #
 # uupk01.rb
 #
-# $Id: uupk01.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uupack/uupk02.rb

@@ -1,10 +1,9 @@
 #
 # uupk02.rb
 #
-# $Id: uupk02.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uupack/uupk03.rb

@@ -1,10 +1,9 @@
 #
 # uupk03.rb
 #
-# $Id: uupk03.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uupack/uupk04.rb

@@ -1,10 +1,9 @@
 #
 # uupk04.rb
 #
-# $Id: uupk04.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uupack/uupk05.rb

@@ -1,10 +1,9 @@
 #
 # uupk05.rb
 #
-# $Id: uupk05.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uupack/uupk06.rb

@@ -1,10 +1,9 @@
 #
 # uupk06.rb
 #
-# $Id: uupk06.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uupack/uupk07.rb

@@ -1,10 +1,9 @@
 #
 # uupk07.rb
 #
-# $Id: uupk07.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uxyzpk/uxyz01.rb

@@ -1,10 +1,9 @@
 #
 # uxyz01.rb
 #
-# $Id: uxyz01.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uxyzpk/uxyz02.rb

@@ -1,10 +1,9 @@
 #
 # uxyz02.rb
 #
-# $Id: uxyz02.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uxyzpk/uxyz03.rb

@@ -1,10 +1,9 @@
 #
 # uxyz03.rb
 #
-# $Id: uxyz03.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uxyzpk/uxyz04.rb

@@ -1,10 +1,9 @@
 #
 # uxyz04.rb
 #
-# $Id: uxyz04.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uxyzpk/uxyz05.rb

@@ -1,10 +1,9 @@
 #
 # uxyz05.rb
 #
-# $Id: uxyz05.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uxyzpk/uxyz06.rb

@@ -1,10 +1,9 @@
 #
 # uxyz06.rb
 #
-# $Id: uxyz06.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uxyzpk/uxyz07.rb

@@ -1,10 +1,9 @@
 #
 # uxyz07.rb
 #
-# $Id: uxyz07.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uxyzpk/uxyz08.rb

@@ -1,10 +1,9 @@
 #
 # uxyz08.rb
 #
-# $Id: uxyz08.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uxyzpk/uxyz09.rb

@@ -1,10 +1,9 @@
 #
 # uxyz09.rb
 #
-# $Id: uxyz09.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uxyzpk/uxyz10.rb

@@ -1,10 +1,9 @@
 #
 # uxyz10.rb
 #
-# $Id: uxyz10.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/ximage/ximg01.rb

@@ -1,14 +1,13 @@
 #
 # ximg01.rb
 #
-# $Id: ximg01.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
 #-----------------------------------------------------------------------
 #     TOMS OZONE DISTRIBUTION (MONTHLY MEAN CLIMATOLOGY)
 #-----------------------------------------------------------------------
 
-require "narray"
 require "numru/dcl"
 
 include NumRu
@@ -81,7 +80,7 @@ tlevn.indgen(203.0, 3.0)
 cdsn = 'tomsclm.dat'
 file = open(cdsn, "r")
 
-DCL::swlstx('LWAIT', false)
+DCL::swlstx('LWAIT', true)
 DCL::swlstx('LWAIT0', false)
 DCL::swlstx('LDUMP', false)
 DCL::swistx('IPOSX', 200)

data/demo/math1/clsplib/cslb01.rb

@@ -1,10 +1,9 @@
 #
 # cslb01.rb
 #
-# $Id: cslb01.rb,v 1.2 2012/03/30 13:57:40 koshiro Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/math2/fftlib/fftl01.rb

@@ -1,10 +1,9 @@
 #
 # fftl01.rb
 #
-# $Id: fftl01.rb,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/math2/fftlib/fftl02.rb

@@ -1,10 +1,9 @@
 #
 # fftl02.rb
 #
-# $Id: fftl02.rb,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/math2/intrlib/intr01.rb

@@ -1,10 +1,9 @@
 #
 # intr01.rb
 #
-# $Id: intr01.rb,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/math2/rnmlib/rnml01.rb

@@ -1,10 +1,9 @@
 #
 # rnml01.rb
 #
-# $Id: rnml01.rb,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/math2/vstlib/vstl01.rb

@@ -1,10 +1,9 @@
 #
 # vstl01.rb
 #
-# $Id: vstl01.rb,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/math2/vstlib/vstl02.rb

@@ -1,10 +1,9 @@
 #
 # vstl02.rb
 #
-# $Id: vstl02.rb,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/misc2/tmpack/tmpk01.rb

@@ -0,0 +1,46 @@
+#
+# tmpk01.rb
+#
+
+require "numru/dcl"
+
+include NumRu
+include Math
+
+nx = 101
+ny = 101
+thres = 1
+
+dx = 6.2832/(nx - 1).to_f
+dy = 6.2832/(ny - 1).to_f
+arrow_thres = 1.0
+
+skip = (ARGV[0] || (puts ' SKIP NUM (I)  ? ;'; gets)).to_i
+
+x = NArray.sfloat(nx).indgen*dx
+y = NArray.sfloat(ny).indgen*dy
+
+u = NArray.sfloat(nx,ny)
+v = NArray.sfloat(nx,ny)
+
+ny.times do |j|
+  nx.times do |i|
+    u[i,j] = -cos(y[j])
+    v[i,j] =  cos(x[i])
+  end
+end
+
+iws = (ARGV[1] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+DCL::grswnd(x[0], x[nx-1], y[0], y[ny-1])
+DCL::uspfit
+DCL::grstrf
+DCL::usdaxs
+
+DCL::tmiset('SKIPINTV', skip)
+DCL::tmstlc(x, y, u, v)
+
+DCL::grcls
+

data/demo/misc2/tmpack/tmpk02.rb

@@ -0,0 +1,58 @@
+#
+# tmpk02.rb
+#
+
+require "numru/dcl"
+
+include NumRu
+include Math
+
+nx = 101
+ny = 101
+thres = 1
+
+dx = 6.2832/(nx - 1).to_f
+dy = 6.2832/(ny - 1).to_f
+dyt = 360.0/(ny - 1).to_f
+arrow_thres = 1.0
+
+skip = (ARGV[0] || (puts ' SKIP NUM (I)  ? ;'; gets)).to_i
+
+x = NArray.sfloat(nx).indgen*dx
+y = (NArray.sfloat(ny).indgen - ny/2)*dy
+yt = (NArray.sfloat(ny).indgen - ny/2)*dyt
+xt = NArray.sfloat(ny).fill(x[nx-1])
+
+u = NArray.sfloat(nx,ny)
+v = NArray.sfloat(nx,ny)
+
+ny.times do |j|
+  nx.times do |i|
+    u[i,j] = -cos(y[j])
+    v[i,j] =  cos(x[i])
+  end
+end
+
+iws = (ARGV[1] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+DCL::grswnd(x[0], x[nx-1], yt[0], yt[ny-1])
+DCL::grsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::grssim(0.5*0.6/x[nx-1], 0.0, 0.0)
+DCL::grstrn(5)
+DCL::grstrf
+DCL::uzrset('UYUSER', 0.0)
+DCL::uxpaxs('U', 1)
+DCL::uzrset('UYUSER', -180.0)
+DCL::uxpaxs('U', 1)
+
+DCL::tmiset('SKIPINTV', skip)
+DCL::tmlset('PERIODY', true)
+DCL::tmlset('NODRSHRT', true)
+DCL::tmstla(x, yt, u, v)
+
+DCL::uulin(xt, yt)
+
+DCL::grcls
+

data/demo/misc2/tmpack/tmpk03.rb

@@ -0,0 +1,56 @@
+#
+# tmpk03.rb
+#
+
+require "numru/dcl"
+
+include NumRu
+include Math
+
+nx = 101
+ny = 101
+thres = 1
+
+dx = 6.2832/(nx - 1).to_f
+dy = 1.57079/(ny - 1).to_f
+dxt = 360.0/(ny - 1).to_f
+dyt = 90.0/(ny - 1).to_f
+arrow_thres = 1.0
+
+skip = (ARGV[0] || (puts ' SKIP NUM (I)  ? ;'; gets)).to_i
+
+x = NArray.sfloat(nx).indgen*dx
+y = (NArray.sfloat(ny).indgen - ny/2)*dy
+xt = NArray.sfloat(nx).indgen*dxt
+yt = (NArray.sfloat(ny).indgen - ny/2)*dyt
+
+puts("Y, YT #{y[0]}  #{y[ny-1]}  #{yt[0]}  #{yt[ny-1]}")
+
+u = NArray.sfloat(nx,ny)
+v = NArray.sfloat(nx,ny)
+
+ny.times do |j|
+  nx.times do |i|
+    u[i,j] = -cos(y[j])
+    v[i,j] =  cos(x[i])
+  end
+end
+
+iws = (ARGV[1] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+DCL::grswnd(xt[0], xt[nx-1], yt[0], yt[ny-1])
+DCL::grsvpt(0.05, 0.95, 0.1, 0.9)
+DCL::sgstrn(10)
+DCL::umpfit
+DCL::grstrf
+
+DCL::umpmap('coast_world')
+DCL::umpglb
+
+DCL::tmlset('PERIODX', true)
+DCL::tmiset('SKIPINTV', skip)
+DCL::tmstls(xt, yt, u, v)
+
+DCL::grcls

data/demo/rakuraku/color/color1.rb

@@ -1,10 +1,9 @@
 #
 # color1.rb
-#   $Id: color1.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/color/color2.rb

@@ -1,10 +1,9 @@
 #
 # color2.rb
-#   $Id: color2.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math
@@ -21,8 +20,9 @@ y[0] = 0.5
 for n in 0..nmax-1
   y[n+1] = r*y[n]*(1.0-y[n])
 end
-yave = DCL::rave(y, nmax+1, 1)
-y = -4 * (y - yave)
+
+yave=DCL::rave(y,nmax+1,1)
+y =  -4 * (y - yave)
 
 #-- graph ---
 iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
@@ -46,7 +46,7 @@ DCL::uxsttl('B', 'YEAR', 0.0)
 
 DCL::uyaxdv('L', 0.1, 0.5)
 DCL::uyaxdv('R', 0.1, 0.5)
-cttl = DCL::csgi(131) + 'T [K]'
+cttl = DCL::usgi(131) + 'T [K]'
 DCL::uysttl('L', cttl, 0.0)
 
 DCL::uxmttl('T', 'INTERANNUAL VARIATION', 0.0)

data/demo/rakuraku/color/color3.rb

@@ -1,10 +1,9 @@
 #
 # color3.rb
-#   $Id: color3.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math