ruby-dcl 1.6.2

data/demo/grph2/uupack/uupk06.rb

@@ -0,0 +1,77 @@
+#
+# uupk06.rb
+#
+# $Id: uupk06.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+n = 100
+m = 5
+y1 = NArray.sfloat(n)
+y2 = NArray.sfloat(n)
+a = NArray.sfloat(m)
+
+#-----------------------------------------------------------------------
+dt = 1.0/(n-1)
+pi = 3.14159
+for j in 0..m-1
+  jj = j*2+1
+  a[j] = (-1.0)**(j+1) *2.0/(jj*pi)
+end
+
+for i in 0..n-1
+  t = dt*i*2*pi
+  y1[i] = a[0]*cos(t)
+  y2[i] = 0.0
+  for j in 0..m-1
+    jj = j*2+1
+    yy = a[j]*cos(jj*t)
+    y2[i]  = y2[i] + yy
+  end
+end
+
+#-----------------------------------------------------------------------
+rundef = DCL::glrget('RUNDEF')
+
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+DCL::sglset('LCLIP', true)
+
+DCL::usspnt(rundef, y1)
+DCL::usspnt(rundef, y2)
+DCL::grswnd(0.0, 1.0, rundef, rundef)
+DCL::uspfit
+DCL::grstrf
+
+DCL::usdaxs
+
+DCL::uusarp(5999, 4999)
+DCL::uvdif(rundef, y1, y2)
+DCL::uulin(rundef, y1)
+DCL::uulin(rundef, y2)
+
+DCL::grfrm
+DCL::sglset('LCLIP', true)
+
+DCL::usspnt(y1, rundef)
+DCL::usspnt(y2, rundef)
+DCL::grswnd(rundef, rundef, 0.0, 1.0)
+DCL::uspfit
+DCL::grstrf
+
+DCL::usdaxs
+
+DCL::uhdif(y1, y2, rundef)
+DCL::uulin(y1, rundef)
+DCL::uulin(y2, rundef)
+
+DCL::grcls
+

data/demo/grph2/uupack/uupk07.rb

@@ -0,0 +1,88 @@
+#
+# uupk07.rb
+#
+# $Id: uupk07.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+MAX = 5
+
+#-- data ---
+xnec = NArray[1.2, 2.5, 3.3, 3.7, 3.1]
+xapl = NArray[1.3, 2.6, 3.8, 4.4, 4.5]
+xibm = NArray[1.7, 2.2, 3.5, 4.2, 5.7]
+
+rundef = DCL::glrget('RUNDEF')
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::grswnd(0.0, 5.0, rundef, rundef)
+DCL::usspnt(rundef, xibm)
+DCL::usspnt(rundef, xnec)
+DCL::usspnt(rundef, xapl)
+DCL::usspnt(rundef, [0.0])
+DCL::uspfit
+DCL::grstrf
+
+DCL::usdaxs
+
+DCL::uusidv(0.3, 4.3)
+DCL::uusarp(2999, 2999)
+DCL::uvbra(rundef, xnec, rundef)
+DCL::uvbrf(rundef, xnec, rundef)
+
+DCL::uusidv(0.5, 4.5)
+DCL::uusarp(3999, 3999)
+DCL::uvbra(rundef, xapl, rundef)
+DCL::uvbrf(rundef, xapl, rundef)
+
+DCL::uusidv(0.7, 4.7)
+DCL::uusarp(4999, 4999)
+DCL::uvbra(rundef, xibm, rundef)
+DCL::uvbrf(rundef, xibm, rundef)
+
+DCL::grfrm
+
+for i in 0..MAX-1
+  xapl[i] = xnec[i] + xapl[i]
+  xibm[i] = xapl[i] + xibm[i]
+end
+
+DCL::grswnd(0.0, 5.0, rundef, rundef)
+DCL::usspnt(rundef, xibm)
+DCL::usspnt(rundef, [0.0])
+DCL::uspfit
+DCL::grstrf
+
+DCL::usdaxs
+
+DCL::uusidv(0.5, 4.5)
+
+DCL::uusarp(2999, 2999)
+DCL::uusbrs(0.05)
+DCL::uvbra(rundef, xnec, rundef)
+DCL::uusarp(3999, 3999)
+DCL::uvbra(rundef, xnec, xapl)
+DCL::uusarp(4999, 4999)
+DCL::uvbra(rundef, xapl, xibm)
+
+DCL::uvbrf(rundef, xnec, rundef)
+DCL::uvbrf(rundef, xnec, xapl)
+DCL::uvbrf(rundef, xapl, xibm)
+
+DCL::uvbrl(rundef, xnec)
+DCL::uvbrl(rundef, xapl)
+DCL::uvbrl(rundef, xibm)
+
+DCL::grcls
+

data/demo/grph2/uxyzpk/uxyz01.rb

@@ -0,0 +1,38 @@
+#
+# uxyz01.rb
+#
+# $Id: uxyz01.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::sgswnd(-180.0, +180.0, -90.0, +90.0)
+DCL::sgsvpt(0.2, 0.8, 0.3, 0.7)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::uxaxdv('B', 10.0, 60.0)
+DCL::uxaxdv('T', 10.0, 60.0)
+DCL::uxsttl('B', 'LONGITUDE', 0.0)
+DCL::uxsttl('B', '<- WEST      EAST ->', 0.0)
+
+DCL::uyaxdv('L', 10.0, 30.0)
+DCL::uyaxdv('R', 10.0, 30.0)
+DCL::uysttl('L', 'LATITUDE', 0.0)
+DCL::uysttl('L', '<- SH    NH ->', 0.0)
+
+DCL::uxmttl('T', 'UXAXDV/UYAXDV', 0.0)
+
+DCL::grcls
+

data/demo/grph2/uxyzpk/uxyz02.rb

@@ -0,0 +1,36 @@
+#
+# uxyz02.rb
+#
+# $Id: uxyz02.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::sgswnd(1.0e0, 1.0e5, 1.0e3, 1.0e0)
+DCL::sgsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::sgstrn(4)
+DCL::sgstrf
+
+DCL::ulxlog('B', 1, 9)
+DCL::ulxlog('T', 1, 9)
+DCL::uxsttl('B', '[X]', 1.0)
+
+DCL::ulylog('L', 3, 9)
+DCL::ulylog('R', 3, 9)
+DCL::uysttl('L', '[Y]', 1.0)
+
+DCL::uxmttl('T', 'ULXLOG/ULYLOG', 0.0)
+
+DCL::grcls
+

data/demo/grph2/uxyzpk/uxyz03.rb

@@ -0,0 +1,37 @@
+#
+# uxyz03.rb
+#
+# $Id: uxyz03.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::sgswnd(-50.0, +50.0, 1.0e3, 0.4)
+DCL::sgsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::sgstrn(2)
+DCL::sgstrf
+
+DCL::uxaxdv('B', 5.0, 20.0)
+DCL::uxaxdv('T', 5.0, 20.0)
+DCL::uxsttl('B', 'LATITUDE', 0.0)
+
+DCL::uliset('IYTYPE', 3)
+DCL::ulylog('L', 3, 9)
+DCL::ulylog('R', 3, 9)
+DCL::uysttl('L', 'PRESSURE (MB)', 0.0)
+
+DCL::uxmttl('T', 'UXAXDV/ULYLOG', 0.0)
+
+DCL::grcls
+

data/demo/grph2/uxyzpk/uxyz04.rb

@@ -0,0 +1,54 @@
+#
+# uxyz04.rb
+#
+# $Id: uxyz04.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+nx1 = 21
+nx2 = 5
+ny1 = 0
+ny2 = 18
+
+#-- data ---
+rx1 = NArray[-50,-45,-40,-35,-30,-25,-20,-15,-10, -5,  0,
+                 5, 10, 15, 20, 25, 30, 35, 40, 45, 50]
+rx2 = NArray[  -40 ,  -20 ,    0 ,   20 ,   40 ]
+cx2 =         ['40S ','20S ','EQ  ','20N ','40N ']
+ry2 = NArray[ 1000 , 850  , 700  , 500  , 400  , 300  ,
+                250  , 200  , 150  , 100  , 70   , 50   ,
+                30   , 10   , 5    , 2    , 1    , 0.4  ]
+cy2=          ['1000','    ','    ','500 ','    ','    ',
+               '    ','200 ','    ','100 ','    ','50  ',
+               '30  ','10  ','5   ','2   ','1   ','.4  ']
+dummy = []
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::sgswnd(-50.0, +50.0, 1.0e3, 0.4)
+DCL::sgsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::sgstrn(2)
+DCL::sgstrf
+
+DCL::uxaxlb('B', rx1, rx2, cx2, 4)
+DCL::uxaxlb('T', rx1, rx2, cx2, 4)
+DCL::uxsttl('B', 'LATITUDE', 0.0)
+
+DCL::uyaxlb('L', dummy, ry2, cy2, 4)
+DCL::uyaxlb('R', dummy, ry2, cy2, 4)
+DCL::uysttl('L', 'PRESSURE (MB)', 0.0)
+
+DCL::uxmttl('T', 'UXAXLB/UYAXLB', 0.0)
+
+DCL::grcls
+

data/demo/grph2/uxyzpk/uxyz05.rb

@@ -0,0 +1,41 @@
+#
+# uxyz05.rb
+#
+# $Id: uxyz05.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+id0 = 19910401
+nd = 90
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+rnd=nd
+DCL::sgswnd(0.0, rnd, -1.0, +1.0)
+DCL::sgsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::ucxacl('B', id0, nd)
+DCL::ucxacl('T', id0, nd)
+
+DCL::uyaxdv('L', 0.05, 0.25)
+DCL::uzlset('LABELYR', true)
+DCL::uysfmt('(F6.2)')
+DCL::uyaxdv('R', 0.05, 0.25)
+DCL::uysttl('L', 'CORRILATION', 0.0)
+
+DCL::uxmttl('T', 'UCXACL/UYAXDV', 0.0)
+
+DCL::grcls
+

data/demo/grph2/uxyzpk/uxyz06.rb

@@ -0,0 +1,42 @@
+#
+# uxyz06.rb
+#
+# $Id: uxyz06.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+id0 = 19811201
+nd = 720
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::uzfact(0.8)
+DCL::grfrm
+
+rnd=nd
+DCL::sgswnd(-180.0, 180.0, rnd, 0.0)
+DCL::sgsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::uxaxdv('B', 10.0, 60.0)
+DCL::uxaxdv('T', 10.0, 60.0)
+DCL::uxsttl('B', 'LONGITUDE', 0.0)
+
+DCL::ucyacl('L', id0, nd)
+DCL::uzlset('LABELYR', true)
+DCL::uyaxdv('R', 20.0, 100.0)
+DCL::uysttl('R', 'DAY NUMBER', 0.0)
+
+DCL::uxmttl('T', 'UXAXDV/UCYACL', 0.0)
+
+DCL::grcls
+

data/demo/grph2/uxyzpk/uxyz07.rb

@@ -0,0 +1,38 @@
+#
+# uxyz07.rb
+#
+# $Id: uxyz07.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::sgswnd(1985.0, 1990.0, -2.0, +2.0)
+DCL::sgsvpt(0.2, 0.8, 0.3, 0.7)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::uzrset('UYUSER', 0.0)
+DCL::uzlset('LBTWN', true)
+DCL::uxsfmt('(I4)')
+DCL::uxaxdv('U', 0.25, 1.0)
+DCL::uzlset('LBTWN', false)
+DCL::uxsttl('U', 'YEAR', +1.0)
+
+DCL::uyaxdv('L', 0.25, 1.0)
+DCL::uysttl('L', 'S.O.I.', 0.0)
+
+DCL::uxmttl('T', 'UXAXDV/UYAXDV', 0.0)
+
+DCL::grcls
+