FX　外為の挑戦

損切と利確のやりかた
口座の金額増減でリミットとストップをつけた。
pipsではできないようだ。（できるならコメントプリーズ！）

１）ロング

input
lots = 1,
profit_target = 20000,
max_loss = 20000;

if (long() and fpl() <= -max_loss) then exitlong();
if (long() and fpl() >= profit_target) then exitlong();

２）ショート

input
lots = 1,
profit_target = 20000,
max_loss = 20000

if (short() and fpl() <= -max_loss) then exitshort();
if (short() and fpl() >= profit_target) then exitshort();

・2勝1負
・＋17pips

これでどうなるかは別としてシグナルの１つとして考えてみたい。
ADXが前の足よりプラスでロング逆で仕手舞い。

strategy test8_str_adx_buy ;
input lots = 1;
vars
lstc = 1, adx(series);{adx}



begin

ind_adx();{adx}
adx := ind_adx.line;
lstc := back(adx);
if lstc < front(adx) + 40 then return;

if
adx[lstc-2] < adx[lstc-1]
then buy(lots);

if
adx[lstc-2] > adx[lstc-1]
then exitlong();

end.

DMIがプラスのとき平均足がプラスならロング，逆ならショート。
if --- then begin--- end;としてみたが、今度はDMIのみ有効に。

strategy str_heikinashi_dmi_buysell ;
input lots=1,{heikinashi dmi}
period = 14;{dmi}
vars
i(number), c_line(series), o_line(series),{heikinashi}
lst = 1, pdi(series), mdi(series);{dmi}

begin

ind_heikinsen_a();{heikinashi}
c_line := ind_heikinsen_a.close_line ;
o_line := ind_heikinsen_a.open_line ;
i := back(c_line);
if i < front(c_line) then return;

directional_movement(period);{dmi}
pdi := directional_movement.line_plus;
mdi := directional_movement.line_minus;
lst := back(pdi);
if lst < front(pdi) + 1 then return;


if pdi[lst] > mdi[lst] then begin
if c_line[i] > o_line[i] then buy(lots);
end;


if pdi[lst] < mdi[lst] then begin
if c_line[i] < o_line[i] then sell(lots);
end;


end.

うまくいきませんね。神様ヘルプ！！

平均足をDMIでフィルタしてみた。
これは試験的で平均足がプラスかつDMIがプラスの時ロング，逆のときショートとしてみた。

strategy str_heikinashi_dmi_buysell ;
input lots=1,{heikinashi dmi}
period = 14;{dmi}
vars
i(number), c_line(series), o_line(series),{heikinashi}
lst = 1, pdi(series), mdi(series);{dmi}

begin

ind_heikinsen_a();{heikinashi}
c_line := ind_heikinsen_a.close_line ;
o_line := ind_heikinsen_a.open_line ;
i := back(c_line);
if i < front(c_line) then return;

directional_movement(period);{dmi}
pdi := directional_movement.line_plus;
mdi := directional_movement.line_minus;
lst := back(pdi);
if lst < front(pdi) + 1 then return;


if pdi[lst] > mdi[lst] and
c_line[i] > o_line[i] then buy(lots);


if pdi[lst] < mdi[lst] and
c_line[i] < o_line[i] then sell(lots);


end.

結果的に平均足のスタラテジーのみが有効になった。
ANDの使い方がおかしい？

誰か神様ヘルプ！！

bingodogさんでは買い、又は売りを別々で書いている。
http://fxrun.blog55.fc2.com/blog-entry-325.html
以下のスクリプトは上抜けで仕掛け、下抜けで仕手舞い。

strategy str_heikinashi_buy ;
input lots=1 ;
vars c_line(series), o_line(series) ;

begin
ind_heikinsen_a();

c_line := ind_heikinsen_a.close_line ;
o_line := ind_heikinsen_a.open_line ;
{ 左辺と右辺を入れ替えるとエラーになります }
{ これから使う変数が左辺です }
if crossup(c_line, o_line) then buy(lots) ;
if crossdown(c_line, o_line) then exitlong(lots) ;

end.

FX外為太郎は、ロングもショートもどちらでもいけるように改造した。

strategy str_heikinashi_buysell ;
input lots=1 ;
vars
i(number), c_line(series), o_line(series) ;

begin
ind_heikinsen_a();

c_line := ind_heikinsen_a.close_line ;
o_line := ind_heikinsen_a.open_line ;
i := back(c_line);
if i < front(c_line) + 1 then return;

if c_line[i] > o_line[i] then buy(lots);
if c_line[i] < o_line[i] then sell(lots);

end.

これでは常にポジションをもっているのと、横ばいトレンドに弱いので何かしらのトレンド指標をミックスさせたいと思う。

案１
SMA,EMA,DEMA

案２
MACD

案３
DMI

平均値インジケータ
参考にしたサイトはこちら
http://fxrun.blog55.fc2.com/blog-entry-324.html

indicator ind_heikinsen_a;
draw close_line("m_c"), open_line("m_o");
vars i(number), m_close(series), m_open(series) ;

begin

m_close := (open+close+high+low)/4 ;

for i := front(close) to back(close) do begin
close_line[i] := m_close[i];
end;

m_open[1] := m_close[1] ;

for i := front(close)+1 to back(close) do begin
m_open[i] := (m_open[i-1]+m_close[i-1])/2;

open_line[i] := m_open[i] ;
end;

end.

以下のソースではMACD0超えで仕掛け、MACD0以下で仕手舞いなのでまったく利益になりません。

http://fx24gaitame.seesaa.net/article/95404698.html

そこでMACD0クロスで仕掛け、MACD SIGNALとクロスして仕手舞いにしました。

strategy macdaa;{use macda}
input lots = 1;
begin
MACDA();
if crossup(MACDA.line, MACDA.line_zero) then buy(lots);
if crossdown(MACDA.line, MACDA.line_signal) then exitlong();
if crossdown(MACDA.line, MACDA.line_zero) then sell(lots);
if crossup (MACDA.line, MACDA.line_signal) then exitshort();
end.

バックテストしてみると当然MACD0付近で上下に連続して振れるとおかしなことになってしまいます。

例えば、ポジションを持ちっぱなしでEXITに入らないんですよね。

とりあえずMACD0を超えてロング，0を切ってショートとしてみた。

以下が無理やり作ったソース

１．INDICATORは

indicator MACDA;
input price = close,
first_period = 12,
second_period = 26,
signal_period = 9;
draw line("MACDA"), line_signal("MACDA sig"), line_histogram("MACDA hgm"), line_zero("MACDA zero");
begin
line := ema(price, first_period) - ema(price, second_period);
line_signal := ema(line, signal_period);
line_histogram := line - line_signal;
line_zero := line - line;
end.

２．strategyは

strategy macdaa;
input lots = 1;
begin
MACDA();
if crossup (MACDA.line, MACDA.line_zero) then buy(lots);
if crossdown(MACDA.line, MACDA.line_zero) then sell(lots);
end.

シグナルを出してみると、ロウソク足が１本ずれて（遅れて）シグナル表示となる。
これだとトレンドに乗り遅れるとともにいきなり反転したときの損失も大きくなる。

やりたいことはロングの場合
・MACD0を超えた足のCLOSE
・仕込み（シグナル）

DealBookのシグナル
・MACD0を超えた足のCLOSE
・MACD0を超えた足のCLOSE
・仕込み（シグナル）
となり１本ずれてシグナル点灯となってしまいます。

どうすればいいんでしょうか。

FOMCは本日FFレートの誘導目標を0.25％引き下げ2.00％にすることを
決定した。

直近の情報は経済活動の弱さと、住宅、設備投資の圧迫、そして労働
市場の更なる軟化を示している。金融市場はかなりの圧迫が残り、タイト
な信用状態と住宅建設の深刻な低迷が、この先数四半期、経済成長を
圧迫する可能性がある。

コアインフレは幾分改善しているが、エネルギーを始めとした商品市場
は上昇しており、インフレ期待はこの数ヶ月間上昇している。委員会は、
この先の四半期において、商品市場はレベルアウトし、資源利用度も
緩和、インフレは鈍化すると見込んでいる。しかしながら、なおインフレ
見通しに対しては不確実性が高く、インフレの状況を注意深く監視する
必要があろう。

現在までの流動性供給継続と共に行ってきた大幅な金融緩和が、いず
れ緩やかな成長を促進し、経済活動のリスク減少を支援するだろう。
委員会は経済と金融市場の監視を続け、安定的な経済成長と物価安定
の促進のため、必要なら行動するだろう。

フィッシャー・ダラス連銀総裁とプロッサー・フィラデルフィア連銀総裁は
反対。公定歩合も0.25％引き下げ2.25％に。

声明文から察すると更なる利下げの余地ありと受け止められるため、ドル／円だと引きつけて戻し売りが妥当な線ではなかろうか。