【実装】１４日スロー％ｋストキャスティック

http://ameblo.jp/traderssystem/entry-10102746225.html

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

Input : period_1(14), period_2(14), low_percent(25), high_percent(75);

If CrossUp(SlowK(period_1, period_2), low_percent) Then {
Buy("SW3201新規買", AtMarket);
}

If CrossDown(SlowK(period_1, period_2), high_percent) Then {
Sell("SW3201新規売", AtMarket);
}

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

SlowK()関数以降のソースも一応載せておきます。

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

SlowK()関数

Input : Period(NumericSimple), Period1(NumericSimple);

SlowK = FastD(Period, Period1);

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

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

FastD()関数

Input : Period(NumericSimple), Period1(NumericSimple);

FastD = ema(FastK(Period), Period1);

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

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

FastK()関数

Input : Period(NumericSimple);
Var : Value_Lowest(0), Value_Highest(0);

Value_Lowest = Lowest(L, Period);
Value_Highest = Highest(H, Period);

FastK = (Close - Value_Lowest) / (Value_Highest - Value_Lowest) * 100;

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