FX取引ルール確立のために

取引方針が定まらぬ臆病者の外国為替証拠金取引の行方。 取引ルールの柱にテクニカルな売買サインを導入中。システム開発状況を全て公開。

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

ミニミニシステムのソースコード

ミニミニシステムのソースコードです。

使い方は、ソースコードのコメントと前回の売買ルールを参照してください。

dealbook360のバージョンは、2.11.4.12.9.3に対応しています。
ダウンロードはこちら
外国為替証拠金取引ならサザインベストメントへ

参考になったら、励みのクリックよろしく 人気blogランキング
banner_11.gif
/* ストキャススロ-のクロスで売買ドテンエントリ-
条件付き、リミットライン付 */

strategy str_stochastics_reversal_smafilter_limitA;
input price = close,
sma_period =40,
period = 21,
k_slow_period = 8,
d_slow_period = 8,
normal_exit = true, { high_lineより上では、trueハイでexitlong,exitshort。falseいいえでexitlongのみ }
           { low_lineより下では、trueハイでexitlong,exitshort。falseいいえでexitshortのみ }
high_line = 62,
low_line =40,
first_limit =true, { trueハイでlonglimit_line上抜けでexitlong。shortlimit_line下抜けでexitshort }
{ falseいいえでlonglimit_line下抜けでexitlong。shortlimit_line上抜けでexitshort }
longlimit = 90,
shortlimit =20,
lots = 1;
vars lst=1, k_line(series), d_line(series),sma_line(series),
longlimit_line(series), shortlimit_line(series);
begin

slow_stochastics(price, period , k_slow_period, d_slow_period );
lst := back(slow_stochastics.line_k);
k_line := slow_stochastics.line_k ;
d_line := slow_stochastics.line_d ;
sma_line := sma(close, sma_period);

longlimit_line :=makeseries(front(close), back(close), longlimit);
shortlimit_line :=makeseries(front(close), back(close), shortlimit);

if lst <= front(slow_stochastics.line_k)+ sma_period - 1 then return;

/* 中間領域 */
if low_line <= d_line[lst] and d_line[lst] <= high_line and crossup(k_line, d_line) then begin
exitshort();
if sma_line[lst] >= sma_line[lst-1] then buy(lots); { smaが上向きの時買いエントリ- }
end;

if high_line >= d_line[lst] and d_line[lst] >= low_line and crossdown(k_line, d_line) then begin
exitlong();
if sma_line[lst] <= sma_line[lst-1] then sell(lots); { smaが下向きの時売りエントリ- }
end;

/* 下領域 */
if low_line > d_line[lst] then begin
if crossup(k_line, d_line) then begin
exitshort();
buy(lots);
end;
  { 買い手仕舞いをするかしないか選択する }
if normal_exit = true and crossdown(k_line, d_line) then exitlong();
end;


/* 上領域 */
if high_line < d_line[lst] then begin
if crossdown(k_line, d_line) then begin
exitlong();
sell(lots);
end;
{ 売り手仕舞いをするかしないか選択する }
if normal_exit = true and crossup(k_line, d_line) then exitshort();
end;

/* リミット手仕舞い */
if first_limit = false then begin
if long() and crossdown(k_line, longlimit_line) then exitlong();
if short() and crossup(k_line, shortlimit_line) then exitshort();
end;

if first_limit = true then begin
if long() and crossup(k_line, longlimit_line) then exitlong();
if short() and crossdown(k_line, shortlimit_line) then exitshort();
end;

end.
スポンサーサイト

コメント

コメントの投稿


管理者にだけ表示を許可する

トラックバック

トラックバックURLはこちら
http://fxrun.blog55.fc2.com/tb.php/1098-47a2ebfd
この記事にトラックバックする(FC2ブログユーザー)

FC2Ad

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。