ウインドウの最小値・最大値は必ずしも切りのよい値でなくても大丈夫です.
uxyz4 のプログラム例では, x軸については-50から50の範囲で,
y軸については1000から0.4の範囲でウインドウを設定しています. このと
き, uxaxdv はきざみ値の整数倍となるところに目盛とラベルを描きま
す. また, ulylog は10nから10n+1を1サイクルとして目盛とラ
ベルを描きます. このように, 目盛やラベルは切りのよいサイクルを単位とし
て作画がおこなわれます. さらに, 好みの間隔で目盛をうち, 好みのところに
ラベルを描きたい場合は, 次章を見て下さい.
なお, この例では, ulylog を用いて対数座標軸を描画する際に, uliset ルーチンで整数型内部変数 'IYTYPE' を3に変更してラベルの 書式を変えました. 対数軸に付けるラベルの書式は全部で4種類用意されてい ます.
# uxyz4.rb 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::grswnd(-50.0, 50.0, 1.0e3, 0.4) DCL::grsvpt(0.2, 0.8, 0.2, 0.8) DCL::grstrn(2) DCL::grstrf DCL::uxaxdv('B', 5.0, 20.0) DCL::uxaxdv('T', 5.0, 20.0) DCL::uxsttl('B', 'LATITUDE (deg)', 0.0) DCL::uliset('IYTYPE', 3) DCL::ulylog('L', 3, 9) DCL::ulylog('R', 3, 9) DCL::uysttl('L', 'PRESSURE (hPa)', 0.0) DCL::uxmttl('T', 'UXAXDV/ULYLOG', 0.0) DCL::grclsprogram uxyz4
計算機のなまり 3
|