T3 SSL MTF TT IR

#property description "Presented by Tim Tillson in the January 1998 issue of Stocks & Commodities."  //"T3 – индикатор, относящийся к классу Moving Average.  Он создан Тимом Тиллсоном ещё" 
#property description "T3 is considered superior to traditional Moving Averages as it is smoother,"  //"в 1998 году. Цель, поставленная при создании - получить MA, которая будет давать меньше"
#property description "more responsive and thus performs better in ranging market conditions as well."  //"шумов и быстрее реагировать на изменения цены. T3 применяется как и обычная MA."
#property description "T3 smoothness is derived from the fact, that it's a weighted sum of a six EMAs."
#property description " "
#property description "Indicator repaints in MTF mode!  ALERTBAR corrected for MTF."   //if RePaintMTF=true!"   //"Не перерисовывается в режиме MTF если RePaintMTF=false!"  //"Индикатор НЕ перерисовывается! в режиме MTF." 
#property description " " //"ARROWBAR и ALERTBAR скорректированы для MTF."  
#property description "E-mail:  t*******e*@mail.ru" 
#property version  "3.24"  //"2.62"  //"2.59" //"3.66"

#property indicator_chart_window
#property indicator_buffers 3

#property indicator_color1  clrLime  //LightSteelBlue  //
#property indicator_color2  clrRed  //Magenta  //
#property indicator_color3  clrLightSkyBlue  //CornflowerBlue  //LightCyan  //Dark  //Red

#property indicator_width3  0

#property indicator_style1  STYLE_DASH
#property indicator_style2  STYLE_DASH
#property indicator_style3  STYLE_DOT

enum setIntpl { Intp0,/*OFF*/ Intp1,/*HALF*/ Intp2/*FULL*/ };
enum calcCHL { CoralOFF, Standart, LowHigh, bySTD, byATR, likeSSL };
enum showCOR { LINE, ARROW };

extern int                 History  =  4567;  //288=D1/M5 //576=D2/M5; //864=D3/M5; //1152=D4/M5;  //1440=D5/M5;
extern ENUM_TIMEFRAMES   TimeFrame  =  PERIOD_CURRENT;

extern setIntpl      Interpolation  =  Intp0;

extern int                T3Period  =  21;  //14;                    //1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584;
extern double               T3Beta  =  0.618;  //0.2424;  //0.1;     //0.1454, 0.236, 0.382, 0.5, 0.618, 0.786, 1.0, 1.272, 1.414, 1.618, 2.058, 2.618, 3.32, 4.236, 5.35, 6.853.... 
extern bool             T3Original  =  false;
extern ENUM_APPLIED_PRICE  T3Price  =  PRICE_CLOSE;
extern int                 T3Shift  =  0;

extern calcCHL           CalcCoral  =  likeSSL;
extern int               DeltaPips  =  0;
extern double           KoefSpread  =  0.0;  //5.0;  //

extern bool                 ShowT3  =  true;
extern showCOR           ShowCoral  =  ARROW;  //LINE;  //
extern int               DotCodeUP  =  167,  //119,  //233,  //147,  116, 117, 234,   //226
                         DotCodeDN  =  167,  //119,  //234,   //181,  233,   //225
                           DotSize  =  1;  //3;

extern string            SoundFile  =  "alert2.wav";  //"expert.wav";   //"stops.wav"   //"alert.wav"   //"news.wav"
extern int                ALERTBAR  =  1;
extern bool          AlertsMessage  =  true,   //false,    
                       AlertsSound  =  true,   //false,
                       AlertsEmail  =  false,
                      AlertsMobile  =  false;

extern ENUM_BASE_CORNER TextCorner  =  CORNER_RIGHT_LOWER;
extern int               TextWidth  =  25;
extern color           TextColorBU  =  clrWhite,  
                       TextColorSE  =  clrRed;  
extern int                  TextXX  =  125,
                            TextYY  =  5;

double T3UP[], T3DN[], T3MAIN[], LOWT3[], HIGHT3[], TREND[],  DLT, SPR;  
string sTFR, cTFR, IndikName, PREF;   int TFK, MAX, mns, SGB;  datetime NewTime=0, TimeBar=0;

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

void OnDeinit(const int reason)
{ 
   ALL_OBJ_DELETE(PREF);  Comment("");
}     

void ALL_OBJ_DELETE(string Pref)
{
   string name;
   for (int s=ObjectsTotal(0,-1,-1)-1; s>=0; s--) {
     name=ObjectName(0,s,-1,-1);
     if (StringSubstr(name,0,StringLen(Pref))==Pref) ObjectDelete(0,name); }
}

int start()
{
      // код доступен только после оплаты
   }  if (Bars<=MAX*1)  return(0);  
   int i, CountedBars=IndicatorCounted();   
   if (CountedBars<0) return(-1);   //Стандарт+Tankk-Вариант!!!
   if (CountedBars>0) CountedBars--;
   int limit=fmin(Bars-CountedBars-1+TFK,Bars-3-MAX);  //+MAX*10*TFK
   if (History>MAX) limit=fmin(History+MAX*6,Bars-3-MAX);  //Comment(limit);
   if (NewTime!=iTime(NULL,1,0)) { ALL_OBJ_DELETE(PREF);  if (History<=MAX) limit=Bars-3;  NewTime=iTime(NULL,1,0); }  //Time[0]

   for (i=0; i<6; i++) { 
     SetIndexEmptyValue(i,0.0);                         //--- значение 0 отображаться не будет 
     if (History>MAX)  SetIndexDrawBegin(i,Bars-History); //--- пропуск отрисовки первых баров
     if (History<=MAX) SetIndexDrawBegin(i,MAX*6); }        //--- пропуск отрисовки первых баров     

   for (i=limit; i>=0; i--)
    {
     int y = iBarShift(NULL,TimeFrame,Time[i],false);

     T3MAIN[i]=0;   T3MAIN[i] = initT3(T3Original,iMA(NULL,TimeFrame,1,0,0,T3Price,y),T3Period,T3Beta,y,0);       T3MAIN[i]= getINTPL(T3MAIN[i],TimeFrame,Interpolation,i,0);   
     LOWT3[i]=0;    LOWT3[i]  = initT3(T3Original,iMA(NULL,TimeFrame,1,0,0,PRICE_LOW,y),T3Period,T3Beta,y,1);     LOWT3[i] = getINTPL(LOWT3[i],TimeFrame,Interpolation,i,1);   
     HIGHT3[i]=0;   H

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