|
发表于 2013-10-15 10:05 PM
|
显示全部楼层
#
# TD Ameritrade IP Company, Inc. (c) 2008-2013
#
declare lower;
input over_bought = 80;
input over_sold = 20;
input KPeriod = 10;
input DPeriod = 10;
input priceH = high;
input priceL = low;
input priceC = close;
input smoothingType = {Default SMA, EMA};
plot SlowK = reference StochasticFull(over_bought,over_sold,KPeriod,DPeriod,priceH,priceL,priceC,3,smoothingType).FullK;
SlowK.setDefaultColor(GetColor(5));
plot SlowD = reference StochasticFull(over_bought,over_sold,KPeriod,DPeriod,priceH,priceL,priceC,3,smoothingType).FullD;
SlowD.setDefaultColor(GetColor(0));
plot OverBought = over_bought;
OverBought.SetDefaultColor(GetColor(1));
plot OverSold = over_sold;
OverSold.SetDefaultColor(GetColor(1));
=============StochasticFull code================================
#
# TD Ameritrade IP Company, Inc. (c) 2008-2013
#
declare lower;
input over_bought = 80;
input over_sold = 20;
input KPeriod = 10;
input DPeriod = 10;
input priceH = high;
input priceL = low;
input priceC = close;
input slowing_period = 3;
input smoothingType = {Default SMA, EMA};
def lowest_k = Lowest(priceL, KPeriod);
def c1 = priceC - lowest_k;
def c2 = Highest(priceH, KPeriod) - lowest_k;
def FastK = if c2 != 0 then c1 / c2 * 100 else 0;
plot FullK;
plot FullD;
switch(smoothingType) {
case SMA:
FullK = Average(FastK, slowing_period);
FullD = Average(FullK, DPeriod);
case EMA:
FullK = ExpAverage(FastK, slowing_period);
FullD = ExpAverage(FullK, DPeriod);
}
plot OverBought = over_bought;
plot OverSold = over_sold;
FullK.SetDefaultColor(GetColor(5));
FullD.SetDefaultColor(GetColor(0));
OverBought.SetDefaultColor(GetColor(1));
OverSold.SetDefaultColor(GetColor(1)); |
|