4.2 異なる大きさの図形

大きい図形の隣に小さな図形を並べる時には, Fig のパラメタviewport を使って陽にビューポートを設定することになります. 次のプログラム JUMP1 を御覧下さい. まず, ビューポートを (0.15,0.45,0.65,0.95) として, 描画範囲の左上に正方形の図を描きます. 内容は, 第2.1節のプログラム HOP と同様のリサジュー図です. 次に, Fig.new メソッドを呼んで2番めの図を描くために必要な初期化をします. Frame.new と違って, 次のフレームには移りません. そして, ビューポートを (0.15,0.95,0.1,0.5) として下の図を描きます. こうすれば, 縦横比が1:2の長方形の図となります. 内容は, 第3.3節の分布図と同様のものです.

Fig.new [新しい図を描くために必要な初期化をする]
一つのフレーム内に複数の図を描くとき, 2つ目以降の図を描き始める前に, そのつど, このルーチンを呼ぶ.

$\resizebox{10cm}{!}{\includegraphics{jump/jump1.eps}}$
jump1.rb: frame1

 #
# jump1.rb

require "narray"
require "numru/advanceddcl"

include NumRu::AdvancedDCL
include NMath

nmax = 400
dt = 2*PI/(nmax-1)

x = NArray.sfloat(nmax)
y = NArray.sfloat(nmax)

#-- data 1 ----
for n in 0..nmax-1
  t = dt*n
  x[n] = 5*sin(4*t)
  y[n] = 5*cos(5*t)
end

#-- graph 1 ----
Dev.open
Frame.new

Fig.window = [-6.0, 6.0, -6.0, 6.0]
Fig.viewport = [0.15, 0.45, 0.65, 0.95]
Fig.transnum = 1 

Axis.title('X1', '', 'Y1', '')
Axis.draw

Plot.draw(x, y)

#-- data 2 ----
iseed = 0

x[0] = 2*(rand(iseed)-0.5)
y[nmax-1] = x[0]

for n in 1..nmax-1
  x[n] = 2*(rand(iseed)-0.5)
  y[n-1] = x[n]
end

#-- graph 2 ----
Fig.new

Fig.window = [-1.1, 1.1, -1.1, 1.1]
Fig.viewport = [0.15, 0.95, 0.1, 0.5]

Axis.title('X2-TITLE', '', 'Y2-TITLE', '')
Axis.draw

Mark.draw(x, y)

Dev.close

PROGRAM JUMP1