Fortran Tip集

18 Gnuplot (for Windows) の利用例

幅広い分野で利用されているグラフ作成ソフト Gnuplot の Windows 環境における利用例を以下に示します。
ここでのポイントは、Fortran 2008 から導入された組込み手続 execute_command_line を用いて Gnuplot を起動していることです。

※　Gnuplot (for Windows) のインストールと初期設定はユーザーご自身で行ってください。
Gnuplot ホームページ http://www.gnuplot.info/

以下のプログラム例は，実行ファイル wgnuplot.exe の場所（パス）が環境変数 PATH に設定されていることを前提としています。

[ gnuplot-demo.f90 ] - Gnuplot (for Windows) の利用例

program gnuplot_demo
  implicit none
  real x
  integer i
  !
  ! 数値データファイルを作成する．
  !
  open (10, file = 'mygnuplot.dat', status = 'replace')
  do i = -50, 50
    x = i / 10.0
    write (10, *) x, myfunc(x)
  end do
  close (10)
  !
  ! スクリプトファイルを作成する．
  !
  open (10, file = 'mygnuplot.plt', status = 'replace')
  write (10, '(a)') 'plot "mygnuplot.dat"'
  write (10, '(a)') 'pause -1'
  close (10)
  !
  ! Gnuplot を起動する．
  !
  call execute_command_line('wgnuplot "mygnuplot.plt"')
contains
  function myfunc(x)
    real myfunc
    real, intent(in) :: x
    myfunc = (1 / cosh(x)) ** 2
  end function
end program

実行例：

前へ   上へ   次へ