次のプログラム UXYZ2 は対数座標軸の例です. 対数座標軸の描画は ULPACK が担当しています.
PROGRAM UXYZ2 WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL GROPN( IWS ) CALL GRFRM CALL GRSWND( 1.E0, 1.E5, 1.E3, 1.E0 ) CALL GRSVPT( 0.2, 0.8, 0.2, 0.8 ) CALL GRSTRN( 4 ) CALL GRSTRF CALL ULXLOG( 'B', 1, 9 ) CALL ULXLOG( 'T', 1, 9 ) CALL UXSTTL( 'B', '[X]', 1. ) CALL ULYLOG( 'L', 3, 9 ) CALL ULYLOG( 'R', 3, 9 ) CALL UYSTTL( 'L', '[Y]', 1. ) CALL UXMTTL( 'T', 'ULXLOG/ULYLOG', 0. ) CALL GRCLS END
対数座標軸を描くには, まず GRSTRN ルーチンによって対数変換をあら
わす変換関数番号を設定します. 変換関数番号についてはすでに第
4.1.3節で説明しましたが, 1: 直角一様座標(線形座標), 2:
片対数(y軸)座標, 3: 片対数(x軸)座標, 4: 両対数座標です.
対数座標軸を描くサブルーチンは ULXLOG, ULYLOGです. ここで
も, 最初の引数で座標軸を描く場所を指定します. 2番めの引数は, 1桁の範
囲に描くラベルの数であり, x軸については1となっていて, 10nのところ
にのみラベルが描かれます. また, y軸については3となっていて, 10n以
外にも
,
にラベルが描かれてます. この引数
が2ならば, 10nと
にラベルが描かれます. 最後の引数は,
1桁の範囲に描く目盛りの数です. ここでは1から9まですべての目盛を打つよ
うに, 9を指定しています. 8以下の場合には, 目盛間隔の狭いところから省か
れます.