#
# kihon8.rb

require "narray"
require "numru/advanceddcl"
include NumRu::AdvancedDCL
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)

#-- 一次関数 ----
  x.indgen(2.0, 2.0)
  y = x

  Plot.draw(x, y)

#-- 指数関数 ----
  y = exp(0.05*x)

  Plot.draw(x, y, "linetype"=>2)

#-- 対数関数 ----
  y = 20.0 * log(x)

  Plot.draw(x, y, "linetype"=>3)

#-- 文字列 ----
  Text.draw(30.0, 40.0, '(30,40)', "charsize"=>0.02)

  Frame.pvpr(1)
end


#-- graph ---
Dev.open

Fig.lclip=true

Frame.new
#-- 直角一様座標(左上) ----
Fig.window=[xmin, xmax, ymin, ymax]
Fig.viewport=[0.1, 0.4, 0.6, 0.9]
Fig.transnum=1

bplot

#-- 片対数(y)座標(右上) ----
Fig.viewport=[0.6, 0.9, 0.6, 0.9]
Fig.transnum=2

bplot

#-- 片対数(x)座標(左下) ----
Fig.viewport=[0.1, 0.4, 0.1, 0.4]
Fig.transnum=3

bplot
      
#-- 対数座標(右下) ----
Fig.viewport=[0.6, 0.9, 0.1, 0.4]
Fig.transnum=4

bplot

Dev.close