【実装】田中勝博さんのブログより

田中勝博さんのブログ にあったコードを

Yes Languageに翻訳してみました。

------------------------------------------------------------

Input:
Price( Close ),
gobagap(30),
rikaku(100),
stoploss(50);

var:
CA( 0 ),
gobayori(0);

//■■■■■■■■■■■■■■■■■■■■■■■■■■■
//ＣＡ分類
CA = 0;

If C[0]-O[0] > 0 Then {
CA = 1; //陽線
}

If C[0]-O[0] < 0 Then {
CA = 2; //陰線
}

//■■■■■■■■■■■■■■■■■■■■■■■■■■■
//後場ギャップ
If MarketPosition == 0 and sTime == 123000 and O < C[1] and C[1] - O >= gobagap and CA == 1 Then {
Buy("新買", AtMarket);
}

If MarketPosition == 0 and sTime == 123000 and O > C[1] and O - C[1] >= gobagap and CA == 2 Then {
Sell("新売", AtMarket);
}

//■■■■■■■■■■■■■■■■■■■■■■■■■■■
// 損切り 定額 買/売
If MarketPosition == 1 Then {
ExitLong("損買", AtStop, EntryPrice(0) - stoploss);
}

If MarketPosition == -1 Then Begin
ExitShort("損売", AtStop, EntryPrice(0) + stoploss);
End;

//■■■■■■■■■■■■■■■■■■■■■■■■■■■
// 利確 買/売

gobayori=0;

IF date <> date[1] and sTime == 123000 then {
gobayori = O;
}

If MarketPosition == 1 and gobayori + rikaku < H Then {
ExitLong("利買", AtLimit, EntryPrice(0) + rikaku);
}

If MarketPosition == -1 and gobayori -rikaku > L Then {
ExitShort("利売", AtLimit, EntryPrice(0) - rikaku);
}

//■■■■■■■■■■■■■■■■■■■■■■■■■■■
// 時間決済 売/買
If sTime >= 150000 and Time < 151500 Then {
ExitLong ("時売");
}

If sTime >= 150000 and Time < 151500 Then {
ExitShort("時買");
}

------------------------------------------------------------

さすがにプロのソースは洗練されていますね。

利益の出るシステムへの改善の方法も示されており、

いろいろと試したくなる内容です。