一般人のための

  gfortranとWin32/64 API

   図形表示と株価テクニカル分析 

サンプルプログラムダウンロード

2018年10月1日更新

down load

ダウンロードしたファイルのパスワードは,付録3の白抜き文字です

ファイル名内  容
Win01.f90ウインドウを表示するプログラム(ソース)
Win02.f90図形を表示するプログラム(ソース)
Win04a.f90図形表示ルーチンと使用例(ソース)
Win05.f90株価チャートを表示するプログラム(ソース)
Win32.f90Win32/64 APIインタフェースプログラム(ソース)
menu_win04.rcWin04用メニュー(リソースファイル)
menu.rcWin05用メニュー(リソースファイル)
win01.batWin01用コンパイルリンク Batch ファイル
win02.batWin01用コンパイルリンク Batch ファイル
win04.batWin04用コンパイルリンク Batch ファイル
win05.batWin05用コンパイルリンク Batch ファイル
9999.csvWin05用サンプルデータファイル

本文の内容に訂正がある場合は,以下に記載します。

正誤表

所在ページ
10ページ
6行目〜
という項目をクリックすると,… 〈クリックする場所がページ中程に変更〉
23ページ
12行目
URL:http://www.geocities.co.jp/… URL:http://pipan9737.g1.xrea.com/(URL変更)
36ページ
プログラム14,15行目の間
  YP = 0.0
13 XP1 = FX(XP,YP)
  YP = 0.0
  if (IPEN.eq.-3) go to 19  一行追加。
13 XP1 = FX(XP,YP)
64ページ
プログラム16行目
call BARCHRT(FLOAT(I)*1.5,1.0,0.8,,F(1,I),10.0,IC,8) call BARCHRT(FLOAT(I)*1.5,1.0,0.8,F(1,I),10.0,IC,8)
78ページ
プログラム4行目
'全てのファイ(*.*)' '全てのファイル(*.*)'
83ページ
プログラム下から13〜7行目
101ページ
プログラム下から13〜7行目
if (ILVL >= 32) then  ! 目盛りの数を8から32に調整
 ILVL = ILVL / 2
 IEMP = IEMP * 2    ! 目盛数半分なら株価目盛が倍
else if (ILVL < 8)
 ILVL = ILVL * 2    ! 1目盛の株価
 IEMP = IEMP / 2    ! 株価目盛りの数
end if
do while(ILVL >= 32)  ! 目盛りの数を8から32に調整
 ILVL = ILVL / 2
 IEMP = IEMP * 2    ! 目盛数半分なら株価目盛が倍
end do
do while(ILVL < 8)
 ILVL = ILVL * 2    ! 1目盛の株価
 IEMP = IEMP / 2    ! 株価目盛りの数
end do
123ページ8行目 開始を支持します。 開始を指示します。
129ページ付録
プログラム2行目
及び21行目
character*(32) dmDeviceName
character*(32) dmFormName
(gfortran V8.1でエラーとなる)
character dmDeviceName(32)
character dmFormName(32)
(gfortran V8.1に対応)
137ページ
最下行
http://www.geocities.co.jp/… http://pipan9737.g1.xrea.com/gfortran/
(URL変更)

ePaintプログラムのダウンロード

2021年9月21日更新

down load