ruby-dcl 1.6.2

data/demo/rakuraku/kihon/kihon4.rb

@@ -0,0 +1,70 @@
+#
+# kihon4.rb
+#   $Id: kihon4.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+nmax = 9
+x1 = 0.1
+xc = 0.5
+x2 = 0.9
+
+y = NArray.sfloat(nmax)
+
+#-- graph ----
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+DCL::sgfrm
+
+#-- line ----
+for n in 0..nmax-1
+  y[n] = 0.1*(9-n)
+  DCL::sglnv(x1, y[n], x2, y[n])
+end
+
+DCL::sglnv(xc, 0.05, xc, 0.95)
+
+#-- default ----
+DCL::sgtxv(xc, y[0], 'SGTXV')
+
+#-- text line index ----
+DCL::sgstxi(3)
+DCL::sgtxv(xc, y[1], 'INDEX3')
+
+DCL::sgstxi(5)
+DCL::sgtxv(xc, y[2], 'INDEX5')
+
+DCL::sgstxi(1)
+
+#-- text size ----
+DCL::sgstxs(0.03)
+DCL::sgtxv(xc, y[3], 'SMALL')
+
+DCL::sgstxs(0.07)
+DCL::sgtxv(xc, y[4], 'LARGE')
+
+DCL::sgstxs(0.05)
+
+#-- text centering option ----
+DCL::sgstxc(-1)
+DCL::sgtxv(xc, y[5], 'LEFT')
+
+DCL::sgstxc(1)
+DCL::sgtxv(xc, y[6], 'RIGHT')
+
+DCL::sgstxc(0)
+
+#-- text rotation ----
+DCL::sgstxr(10)
+DCL::sgtxv(xc, y[7], 'ROTATION+')
+
+DCL::sgstxr(-10)
+DCL::sgtxv(xc, y[8], 'ROTATION-')
+
+DCL::sgcls
+

data/demo/rakuraku/kihon/kihon5.rb

@@ -0,0 +1,56 @@
+#
+# kihon5.rb
+#   $Id: kihon5.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+nmax = 40
+imax = 4
+
+x = NArray.sfloat(nmax+1, imax)
+y = NArray.sfloat(nmax+1, imax)
+xc = NArray[0.25, 0.75, 0.25, 0.75]
+yc = NArray[0.75, 0.75, 0.25, 0.25]
+
+#-- data ----
+dt = 2*PI/6
+for n in 0..5
+  for i in 0..imax-2
+    x[n,i] = 0.2*cos(n*dt) + xc[i]  
+    y[n,i] = 0.2*sin(n*dt) + yc[i]  
+  end
+end
+
+dt = 4*PI/nmax
+for n in 0..nmax
+  x[n,imax-1] = 0.4*n/nmax - 0.2 + xc[imax-1]
+  y[n,imax-1] = 0.2*sin(n*dt) + yc[imax-1]
+end
+
+#-- graph ----
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+DCL::sglset('LSOFTF', true)
+DCL::sgfrm
+
+#-- default ----
+DCL::sgtnv(x[0..5,0], y[0..5,0])
+
+#-- tone pattern ----
+DCL::sgstnp(3)
+DCL::sgtnv(x[0..5,1], y[0..5,1])
+
+DCL::sgstnp(601)
+DCL::sgtnv(x[0..5,2], y[0..5,2])
+
+#-- twisted polygon ----
+DCL::sgtnv(x[true,3], y[true,3])
+
+DCL::sgcls
+

data/demo/rakuraku/kihon/kihon6.rb

@@ -0,0 +1,40 @@
+#
+# kihon6.rb
+#   $Id: kihon6.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+nmax = 50
+x = NArray.sfloat(nmax+1)
+y = NArray.sfloat(nmax+1)
+
+#-- data ----
+r = 3.7
+x.indgen(1950.0, 1.0)
+y[0] = 0.5
+for n in 0..nmax-1
+  y[n+1] = r*y[n]*(1-y[n])
+end
+
+y = -4 * y + 20.0
+
+#-- graph ----
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+DCL::sgfrm
+
+DCL::grswnd(1950.0, 2000.0, 15.0, 20.0)
+DCL::grsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::grstrn(1)
+DCL::grstrf
+
+DCL::usdaxs
+DCL::sgplu(x, y)
+
+DCL::grcls
+

data/demo/rakuraku/kihon/kihon7.rb

@@ -0,0 +1,98 @@
+#
+# kihon7.rb
+#   $Id: kihon7.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+def aplot
+  nmax = 40
+  x = NArray.sfloat(nmax+1)
+  y = NArray.sfloat(nmax+1)
+
+  DCL::slpvpr(1)
+
+  #-- circle ----
+  dt = 2.0*PI/nmax
+  for n in 0..nmax
+    x[n] = 40.0*sin(n*dt)
+    y[n] = 40.0*cos(n*dt)
+  end
+
+  DCL::sgplu(x, y)
+
+  #-- triangle ----
+  dt = 2.0*PI/3
+  for n in 0..3
+    x[n] = 40.0*sin(n*dt)
+    y[n] = 40.0*cos(n*dt)
+  end
+
+  DCL::sgplu(x, y)
+
+  #-- string ----
+  DCL::sgtxu(0.0, 0.0, 'SGTXU')
+
+end
+
+#-- graph ----
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+#sglset('LCLIP', true)
+
+#-- frame 1 ----
+DCL::sgfrm
+#        xmin,  xmax,   ymin,  ymax
+DCL::sgswnd(-100.0, 100.0, -100.0, 100.0)
+DCL::sgsvpt(   0.0,   1.0,    0.0,   1.0)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+aplot
+
+#-- frame 2 ----
+DCL::sgfrm
+
+#-- upper left ----
+#        xmin,  xmax,   ymin,  ymax
+DCL::sgswnd(-100.0, 100.0, -100.0, 100.0)
+DCL::sgsvpt(   0.1,   0.4,    0.6,   0.9)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+aplot
+
+#-- upper right ----
+#        xmin,  xmax,   ymin,  ymax
+DCL::sgswnd(-100.0, 100.0,  -40.0,  40.0)
+DCL::sgsvpt(   0.6,   0.9,    0.6,   0.9)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+aplot
+
+#-- lower left ----
+#        xmin,  xmax,   ymin,  ymax
+DCL::sgswnd(-100.0, 100.0, -200.0,   0.0)
+DCL::sgsvpt(   0.1,   0.4,    0.1,   0.4)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+aplot
+      
+#-- lower right ----
+#        xmin,  xmax,   ymin,   ymax
+DCL::sgswnd(-100.0, 100.0,    0.0, -200.0)
+DCL::sgsvpt(   0.6,   0.9,    0.1,   0.4)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+aplot
+
+DCL::sgcls
+

data/demo/rakuraku/kihon/kihon8.rb

@@ -0,0 +1,93 @@
+#
+# kihon8.rb
+#   $Id: kihon8.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+
+require "narray"
+require "numru/dcl"
+include NumRu
+include NMath
+
+
+xmin = 1.0
+xmax = 100.0
+ymin = 1.0
+ymax = 100.0
+
+
+def bplot
+
+  nmax = 50
+  x = NArray.sfloat(nmax)
+  y = NArray.sfloat(nmax)
+
+  DCL::slpvpr(1)
+
+#-- �켡�ؿ� ----
+  x.indgen(2.0, 2.0)
+  y = x
+
+  DCL::sgsplt(1)
+  DCL::sgplu(x, y)
+
+#-- �ؿ��ؿ� ----
+  y = exp(0.05*x)
+
+  DCL::sgsplt(2)
+  DCL::sgplu(x, y)
+
+#-- �п��ؿ� ----
+  y = 20.0 * log(x)
+
+  DCL::sgsplt(3)
+  DCL::sgplu(x, y)
+
+#-- ʸ���� ----
+  DCL::sgstxs(0.02)
+  DCL::sgtxu(30.0, 40.0, '(30,40)')
+
+end
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+DCL::sglset('LCLIP', true)
+
+DCL::sgfrm
+#-- ľ�Ѱ��ͺ�ɸ(����) ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.1, 0.4, 0.6, 0.9)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+bplot
+
+#-- ���п�(y)��ɸ(����) ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.6, 0.9, 0.6, 0.9)
+DCL::sgstrn(2)
+DCL::sgstrf
+
+bplot
+
+#-- ���п�(x)��ɸ(����) ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.1, 0.4, 0.1, 0.4)
+DCL::sgstrn(3)
+DCL::sgstrf
+
+bplot
+      
+#-- �п���ɸ(����) ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.6, 0.9, 0.1, 0.4)
+DCL::sgstrn(4)
+DCL::sgstrf
+
+bplot
+
+DCL::sgcls
+

data/demo/rakuraku/kihon/kihon9.rb

@@ -0,0 +1,77 @@
+#
+# kihon9.rb
+#   $Id: kihon9.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+
+require "narray"
+require "numru/dcl"
+include NumRu
+include NMath
+
+
+nmax = 40
+xmin = 0.0
+xmax = 4*PI
+ymin = -1.0
+ymax = 1.0
+
+x = NArray.sfloat(nmax+1)
+y = NArray.sfloat(nmax+1)
+
+#-- data ---
+dt = xmax/nmax
+x = x.indgen * dt
+y = sin(x)
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+DCL::sgfrm
+
+#--  �饤�󥿥��� = 4 (�ǥե����) ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.0, 1.0, 0.7, 0.9)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sgsplt(4)
+DCL::sgplu(x, y)
+
+#--  �饤�󥿥��� = 4 (BITLEN*2) ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.0, 1.0, 0.5, 0.7)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sgrset('BITLEN', 0.006)
+DCL::sgplu(x, y)
+
+DCL::sgrset('BITLEN', 0.003)
+
+#--  �ӥåȥѥ����� ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.0, 1.0, 0.3, 0.5)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+#itype = bitpci('1111111100100100')
+itype = '0b1111111100100100'.oct
+DCL::sgsplt(itype)
+DCL::sgplu(x, y)
+
+#--  �ӥåȥѥ�����(��Ĺ) ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.0, 1.0, 0.1, 0.3)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sgiset('NBITS', 32)
+#itype = bitpci('10010010011111000111110001111100')
+itype =  '0b10010010011111000111110001111100'.oct -  ('0b1' + "0"*32).oct 
+DCL::sgsplt(itype)
+DCL::sgplu(x, y)
+
+DCL::sgcls
+

data/demo/rakuraku/kihon/kihona.rb

@@ -0,0 +1,123 @@
+#
+# kihona.rb
+#   $Id: kihona.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+
+require "narray"
+require "numru/dcl"
+include NumRu
+include NMath
+
+
+nmax = 40
+xmin = 0.0
+xmax = 4*PI
+ymin = -1.0
+ymax = 1.0
+x = NArray.sfloat(nmax+1)
+y = NArray.sfloat(nmax+1)
+
+#-- data ---
+dt = xmax/nmax
+x = x.indgen * dt
+y = sin(x)
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+DCL::sgfrm
+
+DCL::sglset('LCHAR', true)
+
+#-- ��٥�Ĥ��ޤ��� ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.0, 1.0, 0.9, 1.0)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sgsplc('A')
+DCL::sgsplt(1)
+DCL::sgplu(x, y)
+
+#-- �����٥�: A,B,C,... ----
+for i in 1..2
+  vymin = 0.9 - 0.1*i
+  vymax = vymin + 0.1
+  DCL::sgswnd(xmin, xmax, ymin, ymax)
+  DCL::sgsvpt(0.0, 1.0, vymin, vymax)
+  DCL::sgstrn(1)
+  DCL::sgstrf
+
+  DCL::sgnplc
+  DCL::sgplu(x, y)
+end
+
+#-- �����٥�: K=1,K=2,... ----
+DCL::sgsplc('K=1')
+
+for i in 3..4
+  vymin = 0.9 - 0.1*i
+  vymax = vymin + 0.1
+  DCL::sgswnd(xmin, xmax, ymin, ymax)
+  DCL::sgsvpt(0.0, 1.0, vymin, vymax)
+  DCL::sgstrn(1)
+  DCL::sgstrf
+
+  DCL::sgsplt(i-1)
+  DCL::sgplu(x, y)
+  DCL::sgnplc
+end
+
+DCL::sgsplt(1)
+
+#--  ��٥��ʸ����ι⤵ ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.0, 1.0, 0.4, 0.5)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sgspls(0.01)
+DCL::sgsplc('small')
+DCL::sgplu(x, y)
+
+DCL::sgspls(0.02)
+
+#--  ��٥�γ��� ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.0, 1.0, 0.3, 0.4)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sglset('LROT', true)
+DCL::sgiset('IROT', 90)
+DCL::sgsplc('ROT')
+DCL::sgplu(x, y)
+
+DCL::sglset('LROT', false)
+
+#--  ��٥�δֳ� ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.0, 1.0, 0.2, 0.3)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sgrset('CWL', 5.0)
+DCL::sgsplc('CWL')
+DCL::sgplu(x, y)
+
+DCL::sgrset('CWL', 30.0)
+
+#--  ��٥�ν񤭻Ϥ� ----
+DCL::sgswnd(xmin, xmax, ymin, ymax)
+DCL::sgsvpt(0.0, 1.0, 0.1, 0.2)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sgrset('FFCT', 0.9)
+DCL::sgsplc('FCT')
+DCL::sgplu(x, y)
+
+DCL::sgcls
+