Schaff Trend Cycle

#property version   "1.04"
#property strict

#property description "Schaff Trend Cycle - Cyclical Stochastic over Stochastic over MACD."
#property description "Falling below 75 is a sell signal."
#property description "Rising above 25 is a buy signal."
#property description "Four kinds of alert: arrows, text, sound, email, and push."
#property description "Developed by Doug Schaff."
#property description "Code adapted from the original TradeStation EasyLanguage version."

#property indicator_separate_window
#property indicator_buffers 3
#property indicator_plots 1
#property indicator_minimum 0
#property indicator_maximum 100
#property indicator_level1 25
#property indicator_level2 75
#property indicator_width1 2
#property indicator_type1  DRAW_LINE
#property indicator_style1 STYLE_SOLID
#property indicator_color1 clrDarkOrchid
#property indicator_label1 "Schaff Trend Cycle"
#property indicator_color2 clrNONE
#property indicator_color3 clrNONE

input int MAShort = 23;
input int MALong = 50;
input int Cycle = 50;

input bool ShowArrows = false;
input color UpColor = clrBlue;
input color DownColor = clrRed;
input bool ShowAlerts = false;
input bool SoundAlerts = false;
input bool EmailAlerts = false;
input bool PushAlerts = false;

double Factor = 0.5;
int BarsRequired;
datetime LastAlert = D'1980.01.01';

double MACD[];
double ST[];
double ST2[];

void OnInit()
{
      // код доступен только после оплаты
   }

void OnDeinit(const int reason)
{
   ObjectsDeleteAll(0, "ST_down_");
   ObjectsDeleteAll(0, "ST_up_");
}

int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime& time[],
                const double& open[],
                const double& high[],
                const double& low[],
                const double& close[],
                const long& tick_volume[],
                const long& volume[],
                const int& spread[]
)
{
      // код доступен только после оплаты
   }
   if (Bars <= BarsRequired) return(0);

   int counted_bars = IndicatorCounted();

   double LLV = 0, HHV = 0;
   int shift, n = 1, i;

   static bool st1_pass = false;
   static bool st2_pass = false;
   int st1_count = 0;
   bool check_st1 = false, check_st2 = false;

   if (counted_bars < BarsRequired)
   {
      for (i = 1; i <= BarsRequired; i++) ST2[Bars - i] = 0;
      for (i = 1; i <= BarsRequired; i++) ST[Bars - i] = 0;
   }

   if (counted_bars > 0) counted_bars--;

   shift = Bars - counted_bars + BarsRequired - MALong;

   if (shift > Bars - 1) shift = Bars - 1;

   while (shift >= 0)
   {
      double MA_Short = iMA(NULL, 0, MAShort, 0, MODE_EMA, PRICE_CLOSE, shift);
	   double MA_Long = iMA(NULL, 0, MALong, 0, MODE_EMA, PRICE_CLOSE, shift);
	   MACD[shift] = MA_Short - MA_Long;

      if (n >= Cycle) check_st1 = true;
      else n++;

      if (check_st1)  
      {

         for (i = 0; i < Cycle; i++)
         {	
            if (i == 0)
            {
               LLV = MACD[shift + i];
               HHV = M

Показано первые 50% кода (символов: 4574)