forex tester2のインディケーターを自作： RCIを適当に移植

RCI_3Line_v130.mq4 を移植してみました。
Rank Correlation Index　というみたいです。

以下がコードです。同じことを3回繰り返しているだけです。

procedure Calculate(index: integer); stdcall;
var
di : Array [ 0..51 ] of Integer;
i,j,d: integer;
begin

  if (Bars - index) < RCIPeriod3 then exit;
  if index <> 1 then exit;

  for i:=0 to RCIPeriod1 - 1 do di[i] := -2*i;

  d := 0;
  for i:=0 to RCIPeriod1 - 2 do
  begin
    for j:=i+1 to RCIPeriod1 - 1 do
    begin
      if Close(i+index) < Close(j+index) then di[i] := di[i] + 2
      else if Close(i+index) > Close(j+index) then di[j] := di[j] + 2
      else
      begin
        di[i] := di[i] + 1;  di[j] := di[j] + 1;
      end;
    end;
    d := d + (di[i] * di[i]);
  end;
  d := d + (di[RCIPeriod1 - 1] * di[RCIPeriod1 - 1]);
  RCI1[index] := (1 - (6 * d / (RCIPeriod1 * ((RCIPeriod1 * RCIPeriod1) - 1))) / 4) * 100;

  for i:=0 to RCIPeriod2 - 1 do di[i] := -2*i;
  d := 0;
  for i:=0 to RCIPeriod2 - 2 do
  begin
    for j:=i+1 to RCIPeriod2 - 1 do
    begin
      if Close(i+index) < Close(j+index) then di[i] := di[i] + 2
      else if Close(i+index) > Close(j+index) then di[j] := di[j] + 2
      else
      begin
        di[i] := di[i] + 1;  di[j] := di[j] + 1;
      end;
    end;
    d := d + (di[i] * di[i]);
  end;
  d := d + (di[RCIPeriod2 - 1] * di[RCIPeriod2 - 1]);
  RCI2[index] := (1 - (6 * d / (RCIPeriod2 * ((RCIPeriod2 * RCIPeriod2) - 1))) / 4) * 100;

  for i:=0 to RCIPeriod3 - 1 do di[i] := -2*i;
  d := 0;
  for i:=0 to RCIPeriod3 - 2 do
  begin
    for j:=i+1 to RCIPeriod3 - 1 do
    begin
      if Close(i+index) < Close(j+index) then di[i] := di[i] + 2
      else if Close(i+index) > Close(j+index) then di[j] := di[j] + 2
      else
      begin
        di[i] := di[i] + 1;  di[j] := di[j] + 1;
      end;
    end;
    d := d + (di[i] * di[i]);
  end;
  d := d + (di[RCIPeriod3 - 1] * di[RCIPeriod3 - 1]);
  RCI3[index] := (1 - (6 * d / (RCIPeriod3 * ((RCIPeriod3 * RCIPeriod3) - 1))) / 4) * 100;

end;

MT4と同じ感じに表示されます。

http://www.tantalusonline.com/Traditional.htm
こちらでは$14.97で販売しています。

インジケーター作成

フォレックステスタで使えるGann HiLo Activator　というインジケーターを探しているのですがお持ちでしょうか？
作成の代行は可能できますか？可能でしたら費用をお知らせください。

posted by しろうず at 2010/07/15 08:38 [ コメントを修正する ]

Re:インジケーター作成

コードを見てみましたが簡単でした。
高値と安値の10日間移動平均線ですね。
終値がどちらかの移動平均線を超えたら
反対側の移動平均線を超えるまで維持するようですね。

2010/07/15 09:18

無題

早速の回答ありがとうございます。
自分でいろいろやってみましたがさっぱりわかりません^^;
コードは簡単と判断頂いてますので作成代行を依頼したいのですがいかがでしょうか。
メルアド載せました回答よろしくお願いします

posted by しろうず at 2010/07/15 11:11 [ コメントを修正する ]

Re:無題

3連休中に考えてみます。
必要な方に安く提供しようと思いますが個々に販売するのは面倒なので
個々の対応をしなくてもいいように
www.dl-market.com などで販売する方向で検討してみます。
値段は100円程度にする予定です。
販売開始できましたらブログでそのことを書きます。
メールにて連絡差し上げます。

2010/07/15 11:34

たびたびの質問にお答えいただき
ありがとうございます。

posted by しろうず at 2010/07/15 11:55 [ コメントを修正する ]

すみません。メールアドレスが消えてしまいました。
コメント消した時に消えてしまったようです。ブログのバグ？

http://www.dl-market.com/default.php/manufacturers_id/3182
で販売しています。よかったらどうぞ。

2010/07/18 19:00

こちらを見てRCI_3Lineを購入したのですが、金額を間違えていないか不安になっています。
77円と思って決済したのですが、7万7千777円ではないですよね？
すみませんがメールの方に連絡いただければと思います。
よろしくお願いいたします。

posted by ボリス at 2013/02/09 22:42 [ コメントを修正する ]

S	M	T	W	T	F	S
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30

forex tester2のインディケーターを自作

[PR]

RCIを適当に移植

トラックバック

コメント

コメントを投稿する