//+----------------------------------------------------------------------+ //|ZigZag универсальный с паттернами Песавенто | //|----------------------------------------------------------------------+ //| | //|ExtIndicator - выбор варианта индикатора, на основе которого | //| строятся паттерны Песавенто | //| 0 - Zigzag из метатрейдера, стандартный | //| 1 - Zigzag Алекса, | //| 2 - индикатор подобный встроенному в Ensign | //| 3 - ZigZag Ensign с переменным значением minBars | //| 4 - ZigZag, разработал tauber | //| 5 - вариация на тему свингов Ганна | //| 6 - DT-ZigZag с внешним ZigZag_new_nen3.mq4 | //| 7 - DT-ZigZag с внешним DT_ZZ.mq4 (разработал klot) | //| 8 - DT-ZigZag с внешним CZigZag.mq4 (разработал Candid) | //| 10 - DT-ZigZag с внешним Swing_zz - это ExtIndicator=5 | //| в режиме DT | //| | //|minBars - фильтр баровый (задается количество баров) | //|minSize - фильтр по количеству пунктов (задается количество пунктов) | //| | //|ExtDeviation и ExtBackstep - параметры оставшиеся от ZigZag из MT4 | //| | //|minPercent - процентный фильтр (задается процент, например 0.5) | //| Если используются проценты - ставите число, а minSize=0; | //|GrossPeriod - значение таймфрейма, выраженное в минутах (число минут),| //| данные с которого берутся для построения ZigZag в режиме DT-ZigZag | //|ZigZagHighLow - задает, от каких точек делать построение | //| паттернов Песавенто, вил Эндрюса и т.д. | //|true - от экстремумов баров | //|false - от переломов ZigZag, когда они висят в "воздухе" | //|----------------------------------------------------------------------| //|ExtHidden - 0 - линии и числа паттернов Песавенто скрыты. | //| 1 - показывает все линии между фракталами, у которых | //| процент восстановления >0.14 и <5. | //| 2 - показывает только те линии, где процент восстано- | //| вления равен числам Песавенто (и 0.447, 0.886, 2.236, | //| 3.14, 3,618 для построения паттернов Gartley) | //| 3 - показывает числа, перечисленные в пункте 2 | //| и соответствующие линии | //| 4 - показывает числа не Песавенто и соответствующие линии | //| 5 - скрывает всю оснастку. Остается только ZigZag | //| | //|ExtFiboZigZag - разрешает вывод "ZiaZag Fibonacci" | //| | //|ExtFractal - количество фракталов (максимумов, минимумов), | //| от которых идут линии к другим фракталам | //| | //|ExtFractalEnd - количество фракталов, к которым идут линии | //| дальше этого фрактала соединяющих линий не будет | //| Если ExtFractalEnd=0 то последний фрактал равен | //| максимальному числу фракталов. | //| Минимальное значение ExtFractalEnd=1 | //| | //|ExtDelta - (допуск) отклонение в расчете. Задает величину | //| потенциальной разворотной зоны. | //| должно быть 0 0 (=1) выводятся динамические вилы Эндрюса от | //| последних двух экстремумов ZigZag | //| =2 50% медиана | //| =3 50% вилы | //| =4 линии Шиффа | //| | //|ExtPitchforkStatic > 0 (=1) выводятся статические вилы Эндрюса от | //| экстремума ZigZag с номером ExtPitchforkStaticNum | //| =2 50% медиана | //| =3 50% вилы | //| =4 линии Шиффа | //| | //|32 и <=9 статические расширения Фибоначчи | //| | //|ExtFiboExpansionColor - задает цвет линий расширений Фибоначчи | //|----------------------------------------------------------------------| //|ExtVLStaticColor - включает Versum Levels статические выбором цвета | //|ExtVLDinamicColor - включае Versum Levels динамические выбором цвета | //| | //|ExtVLStaticNum - задает номер вершины, от которой выводятся | //| Versum Levels | //|----------------------------------------------------------------------| //| | //|chHL = true - Если хотите посмотреть уровни подтверждения | //|PeakDet = true - Если хотите посмотреть уровни предыдущих | //| максимумов | //| | //|chHL_PeakDet_or_vts - true - По умолчанию разрешает вывод линий | //| подтверждения (ценовой канал) и уровни предыдущих максимумов ZigZag. | //| false - выводится индикатор i-vts. | //| | //|NumberOfBars - Количество баров обсчёта (0-все) для i-vts. | //| | //|NumberOfVTS - это, я так понимаю, параметр сглаживания для i-vts. | //|NumberOfVTS1 - параметр сглаживания для второй копии i-vts. | //| | //|infoTF - включает информацию по 5 старшим таймфреймам. | //| Выводится наименование таймфрейма. Размер свечи в пунктах. | //| Текущее положение цены относительно минимума. | //| Также показывает Высоту луча зигзага выраженную в процентах | //| | //|ExtBack - задает вывод всех объектов в виде фона | //|ExtSave - разрешает сохранение комплекта статических вил и | //| Fibo Time | //| | //|ExtAlert - разрешает вывод сообщения и звукового сигнала при | //| возникновении нового луча ZigZag | //| | //|ExtStyleZZ - = true - задает стиль линий ZigZag через вкладку ЦВЕТА | //| = false - Zigzag выводится точками у экстремумов | //| | //|ExtComplekt - задает номер индикатора. При выводе на график нескольких| //| индикаторов через этот параметр задается номер копии. | //| При этом все копии индикатора будут работать корректно. | //+----------------------------------------------------------------------+ #property copyright "nen" #property link "http://onix-trade.net/forum/index.php?s=&showtopic=118&view=findpost&p=178619" // описание http://onix-trade.net/forum/index.php?s=&showtopic=373&view=findpost&p=72865 #property stacksize 16384 #property indicator_chart_window #property indicator_buffers 6 #property indicator_color1 Aqua #property indicator_color2 Green #property indicator_color3 Orange #property indicator_color4 LightSkyBlue #property indicator_color5 LemonChiffon #property indicator_color6 Yellow //=================================== //---- indicator parameters extern int ExtIndicator = 11; extern int minBars = 8; extern int minSize = 55; // Переменные от ZigZag из МТ extern int ExtDeviation = 5; extern int ExtBackstep = 3; // Переменная для nen-ZigZag extern int GrossPeriod = 1440; //---- extern double minPercent = 0; //---- extern int ExtHidden = 1; extern bool ZigZagHighLow = true; extern bool ExtFiboZigZag = false; extern int ExtFractal = 7; extern int ExtFractalEnd = 7; extern double ExtDelta = 0.04; extern int ExtDeltaType = 2; extern int ExtPPWithBars = 0; // -------------------------------- // Паттерны Gartley extern bool ExtGartleyOnOff = false; extern int maxDepth = 33; extern int minDepth = 3; extern bool DirectionOfSearchMaxMin = true; //extern int VarDisplay=0; extern int maxBarToD = 15; extern double ExtDeltaGartley = 0.09; extern double ExtCD = 0.886; extern color ExtColorPatterns = Blue; // -------------------------------- //------------------------------------- extern bool ExtFiboType = true; extern int ExtFiboChoice = 2; extern bool ExtFiboCorrectionExpansion = false; extern bool ExtFiboDinamic = false; extern bool ExtFiboStatic = false; extern int ExtFiboStaticNum = 2; extern int ExtSizeTxt = 7; extern color ExtLine = DarkBlue; extern color ExtNotFibo = SlateGray; extern color ExtPesavento = Yellow; extern color ExtGartley886 = GreenYellow; color colorPPattern; extern color ExtFiboS = Teal; extern color ExtFiboD = Sienna; //---------------------------------------------------------------------- // Комплект инструментов, работающих совместно с вилами Эндрюса. Начало. //---------------------------------------------------------------------- // Переменные для вил Эндрюса extern int ExtPitchforkDinamic = 0; extern int ExtPitchforkStatic = 0; extern int ExtPitchforkStaticNum = 3; extern color ExtLinePitchforkS = MediumBlue; extern color ExtLinePitchforkD = MediumSlateBlue; extern color ExtPitchforkStaticColor = CLR_NONE; extern int ExtPitchforkStyle = 1; // Переменные для фибовееров extern bool ExtFiboFanDinamic = false; // может выводиться самостоятельно extern bool ExtFiboFanStatic = false; // выводится только совместно со статическими вилами extern bool ExtFiboFanExp = true; extern bool ExtFiboFanHidden = false; extern color ExtFiboFanS = Teal; extern color ExtFiboFanD = Sienna; extern color ExtFiboFanMedianaStaticColor = CLR_NONE; extern color ExtFiboFanMedianaDinamicColor = CLR_NONE; // Временные зоны Фибо extern bool ExtFiboTime1 = false; extern bool ExtFiboTime2 = false; extern color ExtFiboTime1C = Teal; extern color ExtFiboTime2C = Sienna; // Pivot Zone extern color ExtPivotZoneStaticColor = CLR_NONE; extern color ExtPivotZoneDinamicColor = CLR_NONE; extern bool ExtPivotZoneFramework = false; // Включение предупреждающих и контрольных линий extern bool ExtUTL = false; extern bool ExtLTL = false; extern bool ExtUWL = false; extern bool ExtLWL = false; extern bool ExtISLStatic = false; extern bool ExtISLDinamic = false; // Включение линий реакции extern bool ExtRLine = true; extern bool ExtRLineBase = true; //---------------------------------------------------------------------- //extern bool ExtPitchforkCandle = false; //extern bool ExtPitchfork_1_HighLow = false; //extern datetime ExtDateTimePitchfork_1 = D'11.07.2006 00:00'; //extern datetime ExtDateTimePitchfork_2 = D'19.07.2006 00:00'; //extern datetime ExtDateTimePitchfork_3 = D'09.08.2006 00:00'; //---------------------------------------------------------------------- // Ниже выбраны временные параметры для построения вил Эндрюса для всей истории eurusd для дневок //---------------------------------------------------------------------- extern bool ExtPitchforkCandle = false; extern bool ExtPitchfork_1_HighLow = false; extern datetime ExtDateTimePitchfork_1 = D'15.06.1989 00:00'; extern datetime ExtDateTimePitchfork_2 = D'08.03.1995 00:00'; extern datetime ExtDateTimePitchfork_3 = D'26.10.2000 00:00'; //---------------------------------------------------------------------- // Каналы micmed'a extern int ExtCM_0_1A_2B = 0; extern double ExtCM_Fibo = 0.618; //---------------------------------------------------------------------- // Комплект инструментов, работающих совместно с вилами Эндрюса. Конец. //---------------------------------------------------------------------- // Фибовееры дополнительные extern int ExtFiboFanNum = 0; extern color ExtFiboFanColor = CLR_NONE; // Расширения Фибоначчи extern int ExtFiboExpansion = 0; extern color ExtFiboExpansionColor = Yellow; //-------------------------------------- extern int ExtVLStaticNum = 0; extern color ExtVLStaticColor = CLR_NONE; extern color ExtVLDinamicColor = CLR_NONE; //-------------------------------------- extern bool chHL = false; extern bool PeakDet = false; // Переменные для i-vts extern bool chHL_PeakDet_or_vts = true; extern int NumberOfBars = 1000; // Количество баров обсчёта (0-все) extern int NumberOfVTS = 13; extern int NumberOfVTS1 = 1; // -------------------------------- // Дополнительные финкции extern bool infoTF = false; // Вывод объектов в виде фона extern bool ExtBack = true; // Сохранение статических вил Эндрюса, Fibo Time extern bool ExtSave = false; extern bool ExtStyleZZ = true; extern bool ExtAlert = false; extern int ExtComplekt=0; //=================================== // Массивы для ZigZag // Массив для отрисовки ZigZag double zz[]; // Массив минимумов ZigZag double zzL[]; // Массив максимумов ZigZag double zzH[]; // Массивы для nen-ZigZag double nen_ZigZag[]; // Массив для оптимизированного ZigZag //double TempBuffer[1],ZigZagBuffer[1]; // Переменные для оснавстки // Массив чисел Песавенто (Фибы и модифицированные Фибы) //double fi[]={0.146, 0.236, 0.382, 0.447, 0.5, 0.618, 0.707, 0.786, 0.841, 0.886, 1.0, 1.128, 1.272, 1.414, 1.5, 1.618, 1.732, 1.902, 2.0, 2.236, 2.414, 2.618, 3.14, 3.618, 4.0}; //string fitxt[]={"0.146", "0.236", ".382", ".447", ".5", ".618", ".707", ".786", ".841", ".886", "1.0", "1.128", "1.272", "1.414", "1.5", "1.618", "1.732", "1.902", "2.0", "2.236", "2.414", "2.618", "3.14", "3.618", "4.0"}; //double fi1[]={0.146, 0.236, 0.382, 0.5, 0.618, 0.764, 0.854, 1.0, 1.236, 1.618}; //string fitxt1[]={"0.146", "0.236", ".382", ".5", ".618", ".764", ".854", "1.0", "1.236", "1.618"}; double number[64]; string numbertxt[64]; int numberFibo[64]; int numberPesavento[64]; int numberGartley[64]; int numberMix[64]; int numberGilmorQuality[64]; int numberGilmorGeometric[64]; int numberGilmorHarmonic[64]; int numberGilmorArithmetic[64]; int numberGilmorGoldenMean[64]; int numberSquare[64]; int numberCube[64]; int numberRectangle[64]; int numberExt[64]; string nameObj,nameObjtxt,save; // bool descript_b=false; // PPWithBars - текст, выводимый у соединительной линии // descript - описание объектов string PPWithBars, descript; // Матрица для поиска исчезнувших баров afr - массив значений времени пяти последних фракталов и отрисовки динамических и статических фиб // afrl - минимумы, afrh - максимумы int afr[]={0,0,0,0,0,0,0,0,0,0}; double afrl[]={0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0}, afrh[]={0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0}; // Параметры таймфрймов double openTF[]={0.0,0.0,0.0,0.0,0.0}, closeTF[]={0.0,0.0,0.0,0.0,0.0}, lowTF[]={0.0,0.0,0.0,0.0,0.0}, highTF[]={0.0,0.0,0.0,0.0,0.0}; double close_TF=0; string TF[]={"MN","W1","D1","H4","H1","m30","m15","m5","m1"}; string Period_tf; bool afrm=true; double ExtHL; double HL,HLp,kk,kj,Angle; // LowPrim,HighPrim,LowLast,HighLast - значения минимумов и максимумов баров double LowPrim,HighPrim,LowLast,HighLast; // numLowPrim,numHighPrim,numLowLast,numHighLast -номера баров int numLowPrim,numHighPrim,numLowLast,numHighLast,k,k1,k2,ki,kiPRZ=0,countLow1,countHigh1,shift,shift1; string txtkk; // Время свечи с первым от нулевого бара фракталом int timeFr1new; // Счетчик фракталов int countFr; // Бар, до которого надо рисовать соединительные линии от нулевого бара int countBarEnd=0,TimeBarEnd; // Бар, до которого надо пересчитывать от нулевого бара int numBar=0; // Номер объекта int numOb; // flagFrNew=true - образовался новый фрактал или первый фрактал сместился на другой бар. =false - по умолчанию. bool flagFrNew=false; // flagGartle - появление нового паттерна Gartley или исчезновение паттерна Gartley bool flagGartle=false; // Период текущего графика int perTF; bool Demo; double int_to_d=0, int_to_d1=0, int_to_d2=0; int counted_bars, cbi, iBar; // средний размер бара текущего таймфрейма // The average size of a bar double ASBar; // Переменные для ZigZag Алекса и индикатора подобного встроенному в Ensign double ha[],la[],hi,li,si,sip,di,hm,lm,ham[],lam[],him,lim,lLast=0,hLast=0; int fs=0,fsp,countBar; int ai,aip,bi,bip,ai0,aip0,bi0,bip0; datetime tai,tbi,taip,tbip,ti; // fcount0 - при обнулении счетчика пропущенных баров на 0 баре fcount0=true. // На следующем баре =false и можно определять точку перелома bool fh=false,fl=false,fcount0; // Переменные для Свингов Ганна double lLast_m=0, hLast_m=0; int countBarExt; // счетчик внешних баров int countBarl,countBarh; // Переменные для nen-ZigZag bool hi_nen; bool init_zz=true; // Переменные для расширенного режима работы индикатора int mFibo[]={0,0}, mPitch[]={0,0,0}, mFan[]={0,0}, mExpansion[]={0,0,0}, mVL[]={0,0,0}; // Переменные для построения вил Эндрюса по свечам int mPitchTime[]={0,0,0}; int mPitchTimeSave; double mPitchCena[]={0.0,0.0,0.0}; // переменные для vts double ms[2]; // Переменные для паттернов Gartley string vBullBear = ""; // переменная для обозначения бычий или медвежий паттерн string vNamePattern = ""; // переменная для обозначения наименования паттерна int maxPeak, vPatOnOff, vPatNew=0; double hBar, lBar; datetime tiZZ; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { string aa,aa1; int aa2, i; IndicatorBuffers(8); if (ExtStyleZZ) {SetIndexStyle(0,DRAW_SECTION);} else {SetIndexStyle(0,DRAW_ARROW); SetIndexArrow(0,159);} SetIndexLabel(0,"ZUP"+ExtComplekt+" (zz"+ExtIndicator+")"); if (ExtIndicator==6) SetIndexLabel(5,"ZUP"+ExtComplekt+" DT6_"+minBars+"/"+ExtDeviation+"/"+ExtBackstep+"/GP"+GrossPeriod+""); else if (ExtIndicator==7) SetIndexLabel(5,"ZUP"+ExtComplekt+" DT7_"+minBars+"/GP"+GrossPeriod+""); else if (ExtIndicator==8) SetIndexLabel(5,"ZUP"+ExtComplekt+" DT8_"+minBars+"/"+ExtDeviation+"/GP"+GrossPeriod+""); if (chHL_PeakDet_or_vts) { SetIndexLabel(1,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" H_PeakDet"); SetIndexLabel(2,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" L_PeakDet"); SetIndexLabel(3,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" H_chHL"); SetIndexLabel(4,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" L_chHL"); } else { SetIndexLabel(1,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" H_vts"); SetIndexLabel(2,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" L_vts"); SetIndexLabel(3,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" H_vts1"); SetIndexLabel(4,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" L_vts1"); } SetIndexBuffer(0,zz); SetIndexBuffer(5,nen_ZigZag); SetIndexBuffer(6,zzL); SetIndexBuffer(7,zzH); SetIndexStyle(5,DRAW_ARROW); SetIndexArrow(5,159); // Уровни предыдущих пиков SetIndexStyle(1,DRAW_LINE,STYLE_DOT); SetIndexStyle(2,DRAW_LINE,STYLE_DOT); SetIndexBuffer(1,ham); SetIndexBuffer(2,lam); // Уровни подтверждения SetIndexStyle(3,DRAW_LINE,STYLE_DOT); SetIndexStyle(4,DRAW_LINE,STYLE_DOT); SetIndexBuffer(3,ha); SetIndexBuffer(4,la); SetIndexEmptyValue(0,0.0); SetIndexEmptyValue(1,0.0); SetIndexEmptyValue(2,0.0); SetIndexEmptyValue(3,0.0); SetIndexEmptyValue(4,0.0); SetIndexEmptyValue(5,0.0); SetIndexEmptyValue(6,0.0); SetIndexEmptyValue(7,0.0); if (ExtIndicator<6 || ExtIndicator>10) { switch (Period()) { case 1 : {Period_tf=TF[8];break;} case 5 : {Period_tf=TF[7];break;} case 15 : {Period_tf=TF[6];break;} case 30 : {Period_tf=TF[5];break;} case 60 : {Period_tf=TF[4];break;} case 240 : {Period_tf=TF[3];break;} case 1440 : {Period_tf=TF[2];break;} case 10080 : {Period_tf=TF[1];break;} case 43200 : {Period_tf=TF[0];break;} } } else switch (GrossPeriod) { case 1 : {Period_tf=TF[8];break;} case 5 : {Period_tf=TF[7];break;} case 15 : {Period_tf=TF[6];break;} case 30 : {Period_tf=TF[5];break;} case 60 : {Period_tf=TF[4];break;} case 240 : {Period_tf=TF[3];break;} case 1440 : {Period_tf=TF[2];break;} case 10080 : {Period_tf=TF[1];break;} case 43200 : {Period_tf=TF[0];break;} } if (ExtIndicator==1) if (minSize!=0) di=minSize*Point/2; if (ExtIndicator==2) {di=minSize*Point; countBar=minBars;} if (ExtIndicator==3) {countBar=minBars;} if (ExtIndicator>5 && ExtIndicator<11 && GrossPeriod>Period()) { if (GrossPeriod==43200 && Period()==10080) maxBarToD=maxBarToD*5; else maxBarToD=maxBarToD*GrossPeriod/Period(); } if (ExtIndicator<6 ||ExtIndicator>10) GrossPeriod=Period(); // Проверка правильности введенных внешних переменных if (ExtDelta<=0) ExtDelta=0.001; if (ExtDelta>1) ExtDelta=0.999; if (ExtHidden<0) ExtHidden=0; if (ExtHidden>5) ExtHidden=5; if (ExtDeltaType<0) ExtDeltaType=0; if (ExtDeltaType>3) ExtDeltaType=3; if (ExtFiboChoice<0) ExtFiboChoice=0; if (ExtFiboChoice>11) ExtFiboChoice=11; if (ExtFractalEnd>0) { if (ExtFractalEnd<1) ExtFractalEnd=1; } if (ExtCM_Fibo<0) ExtCM_Fibo=0; if (ExtCM_Fibo>1) ExtCM_Fibo=1; if (ExtPitchforkStatic>4) ExtPitchforkStatic=4; if (ExtPitchforkDinamic>4) ExtPitchforkDinamic=4; if (ExtCM_0_1A_2B<0) ExtCM_0_1A_2B=0; if (ExtCM_0_1A_2B>4) ExtCM_0_1A_2B=4; if (ExtCM_Fibo<0) ExtCM_Fibo=0; if (ExtCM_Fibo>1) ExtCM_Fibo=1; //-------------------------------------------- if (ExtPitchforkStaticNum<3) ExtPitchforkStaticNum=3; if (ExtFiboStaticNum<2) ExtFiboStaticNum=2; if (ExtFiboStaticNum>9) { aa=DoubleToStr(ExtFiboStaticNum,0); aa1=StringSubstr(aa,0,1); mFibo[0]=StrToInteger(aa1); aa1=StringSubstr(aa,1,1); mFibo[1]=StrToInteger(aa1); } else { mFibo[0]=ExtFiboStaticNum; mFibo[1]=ExtFiboStaticNum-1; } if (ExtFiboFanNum<1) ExtFiboFanNum=1; if (ExtFiboFanNum>9) { aa=DoubleToStr(ExtFiboFanNum,0); aa1=StringSubstr(aa,0,1); mFan[0]=StrToInteger(aa1); aa1=StringSubstr(aa,1,1); mFan[1]=StrToInteger(aa1); } else { mFan[0]=ExtFiboFanNum; mFan[1]=ExtFiboFanNum-1; } if (ExtPitchforkStaticNum>99) { aa=DoubleToStr(ExtPitchforkStaticNum,0); aa1=StringSubstr(aa,0,1); mPitch[0]=StrToInteger(aa1); aa1=StringSubstr(aa,1,1); mPitch[1]=StrToInteger(aa1); aa1=StringSubstr(aa,2,1); mPitch[2]=StrToInteger(aa1); } else { mPitch[0]=ExtPitchforkStaticNum; mPitch[1]=ExtPitchforkStaticNum-1; mPitch[2]=ExtPitchforkStaticNum-2; } if (ExtFiboExpansion<2) ExtFiboExpansion=0; if (ExtFiboExpansion>0) { if (ExtFiboExpansion>99) { aa=DoubleToStr(ExtFiboExpansion,0); aa1=StringSubstr(aa,0,1); mExpansion[0]=StrToInteger(aa1); aa1=StringSubstr(aa,1,1); mExpansion[1]=StrToInteger(aa1); aa1=StringSubstr(aa,2,1); mExpansion[2]=StrToInteger(aa1); } else { mExpansion[0]=ExtFiboExpansion; mExpansion[1]=ExtFiboExpansion-1; mExpansion[2]=ExtFiboExpansion-2; } } if (ExtPitchforkCandle) { mPitchTime[0]=ExtDateTimePitchfork_1; mPitchTime[1]=ExtDateTimePitchfork_2; mPitchTime[2]=ExtDateTimePitchfork_3; if (ExtPitchfork_1_HighLow) { mPitchCena[0]=High[iBarShift(Symbol(),Period(),ExtDateTimePitchfork_1,true)]; mPitchCena[1]=Low[iBarShift(Symbol(),Period(),ExtDateTimePitchfork_2,true)]; mPitchCena[2]=High[iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3,true)]; } else { mPitchCena[0]=Low[iBarShift(Symbol(),Period(),ExtDateTimePitchfork_1,true)]; mPitchCena[1]=High[iBarShift(Symbol(),Period(),ExtDateTimePitchfork_2,true)]; mPitchCena[2]=Low[iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3,true)]; } if (mPitchCena[0]<=0 || mPitchCena[1]<=0 || mPitchCena[2]<=0) {ExtPitchforkCandle=false;ExtPitchforkStatic=0;} } if (ExtVLStaticNum>0) { if (ExtVLStaticNum<2) ExtVLStaticNum=2; if (ExtVLStaticNum>99) { aa=DoubleToStr(ExtVLStaticNum,0); aa1=StringSubstr(aa,0,1); mVL[0]=StrToInteger(aa1); aa1=StringSubstr(aa,1,1); mVL[1]=StrToInteger(aa1); aa1=StringSubstr(aa,2,1); mVL[2]=StrToInteger(aa1); } else { mVL[0]=ExtVLStaticNum; mVL[1]=ExtVLStaticNum-1; mVL[2]=ExtVLStaticNum-2; } } if (ExtSave) { MathSrand(LocalTime()); save=MathRand(); } if (ExtCM_0_1A_2B==4) { for (i=Bars-1; i>-1; i--) { ASBar=ASBar + iHigh(NULL,GrossPeriod,0) - iLow(NULL,GrossPeriod,0) + Point; } ASBar=ASBar/Bars; } // Comment(""); array_(); perTF=Period(); Demo=IsDemo(); delete_objects1(); return(0); } //+------------------------------------------------------------------+ //| Деинициализация. Удаление всех трендовых линий и текстовых объектов //+------------------------------------------------------------------+ int deinit() { int i; delete_objects_dinamic(); delete_objects3(); ObjectDelete("fiboS" + ExtComplekt+"_"); ObjectDelete("fiboFanS" + ExtComplekt+"_"); ObjectDelete("RLineS" + ExtComplekt+"_"); ObjectDelete("pitchforkS" + ExtComplekt+"_"); ObjectDelete("pmedianaS" + ExtComplekt+"_"); ObjectDelete("1-2pmedianaS" + ExtComplekt+"_"); ObjectDelete("fiboTime1" + ExtComplekt+"_");ObjectDelete("fiboTime2" + ExtComplekt+"_"); ObjectDelete("UTL" + ExtComplekt+"_");ObjectDelete("LTL" + ExtComplekt+"_"); ObjectDelete("UWL" + ExtComplekt+"_");ObjectDelete("LWL" + ExtComplekt+"_"); ObjectDelete("ISL_S" + ExtComplekt+"_"); ObjectDelete("CL" + ExtComplekt+"_"); ObjectDelete("PivotZoneS" + ExtComplekt+"_"); ObjectDelete("FanMedianaStatic" + ExtComplekt+"_"); ObjectDelete("FiboFan" + ExtComplekt+"_"); Comment(""); for (i=0; i<7; i++) { nameObj="VLS"+i+" " + ExtComplekt+"_"; ObjectDelete(nameObj); } return(0); } //******************************************************** // НАЧАЛО int start() { if ((ExtIndicator==6 || ExtIndicator==7 || ExtIndicator==8 || ExtIndicator==10) && Period()>GrossPeriod) { for (iBar=Bars-1; iBar>0; iBar--) {zzL[iBar]=0.0; zzH[iBar]=0.0; zz[iBar]=0.0; nen_ZigZag[iBar]=0.0;} init_zz=true; return; } counted_bars=IndicatorCounted(); if (perTF!=Period()) { delete_objects1(); perTF=Period(); } if (Demo!=IsDemo()) { delete_objects1(); Demo=IsDemo(); counted_bars=0; } //----------------------------------------- // // 1. // // Блок заполнения буферов. Начало. //----------------------------------------- // zz[] - буфер, данные из которого берутся для отрисовки самого ZigZag-a // zzL[] - массив минимумов черновой // zzH[] - массив максимумов черновой // //----------------------------------------- if (Bars-IndicatorCounted()>2) { cbi=Bars-1; tiZZ=0; for (iBar=cbi; iBar>0; iBar--) {zzL[iBar]=0.0; zzH[iBar]=0.0; zz[iBar]=0.0; nen_ZigZag[iBar]=0.0;} init_zz=true; afrm=true; delete_objects_dinamic(); delete_objects3(); } else cbi=Bars-IndicatorCounted()+1; if (lBar<=iLow(NULL,GrossPeriod,0) && hBar>=iHigh(NULL,GrossPeriod,0) && tiZZ==iTime(NULL,GrossPeriod,0)) return(0); else { lBar=iLow(NULL,GrossPeriod,0); hBar=iHigh(NULL,GrossPeriod,0); tiZZ=iTime(NULL,GrossPeriod,0); switch (ExtIndicator) { case 0 : {ZigZag_(); break;} case 1 : {ang_AZZ_(); break;} case 2 : {Ensign_ZZ(); break;} case 3 : {Ensign_ZZ(); break;} case 4 : {ZigZag_tauber();break;} case 5 : {GannSwing(); break;} case 6 : {nenZigZag(); break;} // DT-ZigZag - с исправленным, оптимизированным зигзагом ZigZag_new_nen3.mq4 case 7 : {nenZigZag(); break;} // DT-ZigZag - вариант зигзага, который любезно предоставил klot - DT_ZZ.mq4 case 8 : {nenZigZag(); break;} // DT-ZigZag - вариант зигзага, который любезно предоставил Candid - CZigZag.mq4 case 10 : {nenZigZag(); break;} // DT-ZigZag - вариант зигзага ExtIndicator=5 в режиме DT - внешний зигзаг Swing_zz.mq4 // Поиск паттернов case 11 : { ZigZag_(); if (vPatOnOff==1 && vPatNew==0) { afrm=true; delete_objects_dinamic(); vPatNew=1; flagGartle=true; counted_bars=0; } else if (vPatOnOff==0 && vPatNew==1) { afrm=true; delete_objects_dinamic(); vPatNew=0; flagGartle=true; counted_bars=0; } break; } } } if (ExtHidden<5) // Разрешение на вывод оснастки. Начало. { if(!chHL_PeakDet_or_vts) {i_vts(); i_vts1();} // Инициализация матрицы matriza(); if (infoTF) if (close_TF!=Close[0]) info_TF(); } //----------------------------------------- // Блок заполнения буферов. Конец. //----------------------------------------- if (ExtHidden>0 && ExtHidden<5) // Разрешение на вывод оснастки. Начало. { //====================== //====================== //====================== //----------------------------------------- // // 2. // // Блок подготовки данных. Начало. //----------------------------------------- if (Bars - counted_bars>2 || flagFrNew) { // Поиск времени и номера бара, до которого будут рисоваться соединительные линии if (countBarEnd==0) { if (ExtFractalEnd>0) { k=ExtFractalEnd; for (shift=0; shift0; shift++) { if (zz[shift]>0 && zzH[shift]>0) {countBarEnd=shift; TimeBarEnd=Time[shift]; k--;} } } else { countBarEnd=Bars-3; TimeBarEnd=Time[Bars-3]; } } else { countBarEnd=iBarShift(Symbol(),Period(),TimeBarEnd); } } //----------------------------------------- // Блок подготовки данных. Конец. //----------------------------------------- //----------------------------------------- // // 3. // // Блок проверок и удаления линий, // потерявших актуальность. Начало. //----------------------------------------- // Коррекция соединяющих линий и чисел. Начало. if (Bars - counted_bars<3) { // Поиск времени бара первого экстремума, считая от нулевого бара for (shift1=0; shift10.0 && (zzH[shift1]==zz[shift1] || zzL[shift1]==zz[shift1])) { timeFr1new=Time[shift1]; break; } } // Поиск бара, на котором первый экстремум был ранее. shift=iBarShift(Symbol(),Period(),afr[0]); // Появился новый луч ZigZag if ((zzH[shift1]>0 && afrl[0]>0) || (zzL[shift1]>0 && afrh[0]>0)) { ExtFiboStatic=false; ExtPitchforkStatic=0; ExtFiboExpansion=0; ExtFiboFanNum=0; if (ExtAlert) { Alert (Symbol()," ",Period()," появился новый луч ZigZag"); PlaySound("alert.wav"); } } // Сравнение текущего значения экстремума с тем, который был ранее // Образовался новый экстремум if (timeFr1new!=afr[0]) { flagFrNew=true; if (shift>=shift1) numBar=shift; else numBar=shift1; afrm=true; } // Экстремум на максимуме сдвинулся на другой бар if (afrh[0]>0 && zz[shift]==0.0) { flagFrNew=true; if (numBar0 && zz[shift]==0.0) { flagFrNew=true; if (numBar0) { flagFrNew=true; numBar=0; delete_objects2(afr[0]); afrh[0]=High[shift]; if (ExtFiboFanDinamic) screenFiboFanD(); if (mFibo[1]==0 && ExtFiboStatic) screenFiboS(); if (ExtFiboDinamic) screenFiboD(); if (ExtPitchforkDinamic>0) screenPitchforkD(); if (ExtVLDinamicColor>0) VLD(); if (mVL[2]==0 && ExtVLStaticNum>0) VLS(); if (ExtPitchforkStatic>0) { if (ExtPitchforkCandle) { if (iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)==0) screenPitchforkS(); } else { if (mPitch[2]==0) screenPitchforkS(); } } if (mExpansion[2]==0 && ExtFiboExpansion>0) FiboExpansion(); if (mFan[1]==0 && ExtFiboFanNum>0 && ExtFiboFanColor>0) screenFiboFan(); } //============= 1 сместился максимум. Конец. // //============= 1 сместился минимум. Начало. if (afrl[0]-Low[shift]!=0 && afrl[0]>0) { flagFrNew=true; numBar=0; delete_objects2(afr[0]); afrl[0]=Low[shift]; if (mFibo[1]==0 && ExtFiboStatic) screenFiboS(); if (ExtFiboDinamic) screenFiboD(); if (ExtFiboFanDinamic) screenFiboFanD(); if (ExtVLDinamicColor>0) VLD(); if (mVL[2]==0 && ExtVLStaticNum>0) VLS(); if (ExtPitchforkStatic>0) { if (ExtPitchforkCandle) { if (iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)==0) screenPitchforkS(); } else { if (mPitch[2]==0) screenPitchforkS(); } } if (mExpansion[2]==0 && ExtFiboExpansion>0) FiboExpansion(); if (mFan[1]==0 && ExtFiboFanNum>0 && ExtFiboFanColor>0) screenFiboFan(); } //============= 1 сместился минимум. Конец. //-----------3 Сместился максимум или минимум, но остался на том же баре. Конец. // Поиск исчезнувших фракталов и удаление линий, исходящих от этих фракталов. Начало. countBarEnd=iBarShift(Symbol(),Period(),TimeBarEnd); for (k=0; k<5; k++) { // Проверка максимумов. if (afrh[k]>0) { // Поиск бара, на котором был этот фрактал shift=iBarShift(Symbol(),Period(),afr[k]); if (zz[shift]==0) { flagFrNew=true; if (shift>numBar) numBar=shift; afrm=true; numHighPrim=shift; numHighLast=0;HighLast=0.0; for (k1=shift+1; k1<=countBarEnd; k1++) { if (zzH[k1]>0) { if (ZigZagHighLow) HighLast=High[k1]; else HighLast=zzH[k1]; numHighLast=k1; nameObj="_" + ExtComplekt + "ph" + Time[numHighPrim] + "_" + Time[numHighLast]; numOb=ObjectFind(nameObj); if (numOb>-1) { ObjectDelete(nameObj); nameObjtxt="_" + ExtComplekt + "phtxt" + Time[numHighPrim] + "_" + Time[numHighLast]; ObjectDelete(nameObjtxt); } } } } } // Проверка минимумов. if (afrl[k]>0) { // Поиск бара, на котором был этот фрактал shift=iBarShift(Symbol(),Period(),afr[k]); if (zz[shift]==0) { flagFrNew=true; if (shift>numBar) numBar=shift; afrm=true; numLowPrim=shift; numLowLast=0;LowLast=10000000; for (k1=shift+1; k1<=countBarEnd; k1++) { if (zzL[k1]>0) { if (ZigZagHighLow) LowLast=Low[k1]; else LowLast=zzL[k1]; numLowLast=k1; nameObj="_" + ExtComplekt + "pl" + Time[numLowPrim] + "_" + Time[numLowLast]; numOb=ObjectFind(nameObj); if (numOb>-1) { ObjectDelete(nameObj); nameObjtxt="_" + ExtComplekt + "pltxt" + Time[numLowPrim] + "_" + Time[numLowLast]; ObjectDelete(nameObjtxt); } } } } } } // Поиск исчезнувших фракталов и удаление линий, исходящих от этих фракталов. Конец. // Перезапись матрицы. Начало. matriza (); // Перезапись матрицы. Конец. } // Коррекция соединяющих линий и чисел. Конец. //----------------------------------------- // Блок проверок и удаления линий, // потерявших актуальность. Конец. //----------------------------------------- // Подсчет количества фракталов. Начало. countFractal(); // Подсчет количества фракталов. Конец. //----------------------------------------- // // 4. // // Блок вывода соединительных линий. Начало. //----------------------------------------- if (Bars - counted_bars>2) { //-----------1 Отрисовка максимумов. Начало. //+--------------------------------------------------------------------------+ //| Вывод соединяющих линий и чисел Песавенто и 0.886 для максимумов ZigZag-a //| Отрисовка начинается от нулевого бара //+--------------------------------------------------------------------------+ numLowPrim=0; numLowLast=0; numHighPrim=0; numHighLast=0; LowPrim=0.0; LowLast=0.0; HighPrim=0.0; HighLast=0.0; Angle=-100; if (flagFrNew && !flagGartle) countFr=1; else countFr=ExtFractal; for (k=0; (k0 && countFr>0); k++) { if (zzL[k]>0.0 && (zzL[k]0 && zzL[k]==zz[k]) { if (ZigZagHighLow) LowPrim=Low[k]; else LowPrim=zzL[k]; numLowPrim=k; } if (zzH[k]>0.0 && zzH[k]==zz[k]) { if (HighPrim>0) { if (ZigZagHighLow) HighLast=High[k]; else HighLast=zzH[k]; numHighLast=k; HL=HighLast-LowPrim; kj=(HighPrim-HighLast)*1000/(numHighLast-numHighPrim); if (HL>0 && (Angle>=kj || Angle==-100)) // Проверка угла наклона линии { Angle=kj; // Создание линии и текстового объекта HLp=HighPrim-LowPrim; k1=MathCeil((numHighPrim+numHighLast)/2); kj=HLp/HL; if (ExtPPWithBars==0) PPWithBars=""; else if (ExtPPWithBars==1) PPWithBars=" ("+(numHighLast-numHighPrim)+")"; else if (ExtPPWithBars==2) PPWithBars=" ("+(numHighLast-numLowPrim)+"-"+(numLowPrim-numHighPrim)+")"; else if (ExtPPWithBars==3) { int_to_d1=(numLowPrim-numHighPrim); int_to_d2=(numHighLast-numLowPrim); int_to_d=int_to_d1/int_to_d2; PPWithBars=" ("+DoubleToStr(int_to_d,2)+")"; } else if (ExtPPWithBars==4) { int_to_d1=(Time[numLowPrim]-Time[numHighPrim]); int_to_d2=(Time[numHighLast]-Time[numLowPrim]); int_to_d=int_to_d1/int_to_d2; PPWithBars=" ("+DoubleToStr(int_to_d,2)+")"; } else if (ExtPPWithBars==5) { int_to_d1=(numLowPrim-numHighPrim)*(High[numHighPrim]-Low[numLowPrim]); int_to_d2=(numHighLast-numLowPrim)*(High[numHighLast]-Low[numLowPrim]); int_to_d=int_to_d1/int_to_d2; PPWithBars=" ("+DoubleToStr(int_to_d,2)+")"; } // ExtPPWithBars=6 Вычисляется количство пунктов и процент отклонения от ретресмента "Песавенто" if (kj>0.1 && kj<9.36) { // Создание текстового объекта (числа Песавенто). % восстановления между максимумами kk=kj; k2=1; Pesavento_patterns(); if (k2<0) // процент восстановления числа Песавенто и 0.886 { if (ExtHidden!=4) { nameObj="_" + ExtComplekt + "phtxt" + Time[numHighPrim] + "_" + Time[numHighLast]; ObjectCreate(nameObj,OBJ_TEXT,0,Time[k1],(HighPrim+HighLast)/2); if (ExtPPWithBars==6) { int_to_d=MathAbs((kk-kj)/kk)*100; PPWithBars=" ("+DoubleToStr((LowPrim+(HighLast-LowPrim)*kk-HighPrim)/Point,0)+"/"+DoubleToStr(int_to_d,2)+"%)"; } descript=txtkk; ObjectSetText(nameObj,txtkk+PPWithBars,ExtSizeTxt,"Arial", colorPPattern); if (ExtPPWithBars==6) PPWithBars=""; } } else // процент восстановления (не Песавенто и 0.886) { if (ExtHidden==1 || ExtHidden==4) { nameObj="_" + ExtComplekt + "phtxt" + Time[numHighPrim] + "_" + Time[numHighLast]; ObjectCreate(nameObj,OBJ_TEXT,0,Time[k1],(HighPrim+HighLast)/2); descript=DoubleToStr(kk,3); if (ExtDeltaType==3) { ObjectSetText(nameObj,""+DoubleToStr(kk,3)+PPWithBars,ExtSizeTxt,"Arial",colorPPattern); } else { ObjectSetText(nameObj,""+DoubleToStr(kk,2)+PPWithBars,ExtSizeTxt,"Arial",colorPPattern); } } } if ((ExtHidden==2 && k2<0) || ExtHidden!=2) { nameObj="_" + ExtComplekt + "ph" + Time[numHighPrim] + "_" + Time[numHighLast]; ObjectCreate(nameObj,OBJ_TREND,0,Time[numHighLast],HighLast,Time[numHighPrim],HighPrim); if (descript_b) ObjectSetText(nameObj,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" PPesavento "+"Line High "+descript); ObjectSet(nameObj,OBJPROP_RAY,false); ObjectSet(nameObj,OBJPROP_STYLE,STYLE_DOT); ObjectSet(nameObj,OBJPROP_COLOR,ExtLine); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); } if (ExtFiboZigZag) k=countBarEnd; } } } else { if (ZigZagHighLow) HighPrim=High[k]; else HighPrim=zzH[k]; numHighPrim=k; } } // Переход на следующий экстремум if (k>countBarEnd) { k=numHighPrim+1; countHigh1--; countFr--; numLowPrim=0; numLowLast=0; numHighPrim=0; numHighLast=0; LowPrim=0.0; LowLast=0.0; HighPrim=0.0; HighLast=0.0; Angle=-100; } } //-----------1 Отрисовка максимумов. Конец. //-----------2 Отрисовка минимумов. Начало. //+-------------------------------------------------------------------------+ //| Вывод соединяющих линий и чисел Песавенто и 0.886 для минимумов ZigZag-a //| Отрисовка идет от нулевого бара //+-------------------------------------------------------------------------+ numLowPrim=0; numLowLast=0; numHighPrim=0; numHighLast=0; LowPrim=0.0; LowLast=0.0; HighPrim=0.0; HighLast=0.0; Angle=-100; if (flagFrNew && !flagGartle) countFr=1; else countFr=ExtFractal; flagFrNew=false; flagGartle=false; for (k=0; (k0 && countFr>0); k++) { if (zzH[k]>HighPrim && LowPrim>0) { if (ZigZagHighLow) HighPrim=High[k]; else HighPrim=zzH[k]; numHighPrim=k; } if (zzL[k]>0.0 && zzL[k]==zz[k]) { if (LowPrim>0) { if (ZigZagHighLow) LowLast=Low[k]; else LowLast=zzL[k]; numLowLast=k; // вывод соединяющих линий и процентов восстановления(чисел Песавенто) HL=HighPrim-LowLast; kj=(LowPrim-LowLast)*1000/(numLowLast-numLowPrim); if (HL>0 && (Angle<=kj || Angle==-100)) // Проверка угла наклона линии { Angle=kj; HLp=HighPrim-LowPrim; k1=MathCeil((numLowPrim+numLowLast)/2); kj=HLp/HL; if (ExtPPWithBars==0) PPWithBars=""; else if (ExtPPWithBars==1) PPWithBars=" ("+(numLowLast-numLowPrim)+")"; else if (ExtPPWithBars==2) PPWithBars=" ("+(numLowLast-numHighPrim)+"-"+(numHighPrim-numLowPrim)+")"; else if (ExtPPWithBars==3) { int_to_d1=(numHighPrim-numLowPrim); int_to_d2=(numLowLast-numHighPrim); int_to_d=int_to_d1/int_to_d2; PPWithBars=" ("+DoubleToStr(int_to_d,2)+")"; } else if (ExtPPWithBars==4) { int_to_d1=(Time[numHighPrim]-Time[numLowPrim]); int_to_d2=(Time[numLowLast]-Time[numHighPrim]); int_to_d=int_to_d1/int_to_d2; PPWithBars=" ("+DoubleToStr(int_to_d,2)+")"; } else if (ExtPPWithBars==5) { int_to_d1=(numHighPrim-numLowPrim)*(High[numHighPrim]-Low[numLowPrim]); int_to_d2=(numLowLast-numHighPrim)*(High[numHighPrim]-Low[numLowLast]); int_to_d=int_to_d1/int_to_d2; PPWithBars=" ("+DoubleToStr(int_to_d,2)+")"; } // ExtPPWithBars=6 Вычисляется количство пунктов и процент отклонения от ретресмента "Песавенто" if ( kj>0.1 && kj<9.36) { // Создание текстового объекта (числа Песавенто). % восстановления между минимумами kk=kj; k2=1; Pesavento_patterns(); if (k2<0) // процент восстановления числа Песавенто и 0.886 { if (ExtHidden!=4) { nameObj="_" + ExtComplekt + "pltxt" + Time[numLowPrim] + "_" + Time[numLowLast]; ObjectCreate(nameObj,OBJ_TEXT,0,Time[k1],(LowPrim+LowLast)/2); if (ExtPPWithBars==6) { int_to_d=MathAbs((kk-kj)/kk)*100; PPWithBars=" ("+DoubleToStr((HighPrim-(HighPrim-LowLast)*kk-LowPrim)/Point,0)+"/"+DoubleToStr(int_to_d,2)+"%)"; } descript=txtkk; ObjectSetText(nameObj,txtkk+PPWithBars,ExtSizeTxt,"Arial", colorPPattern); if (ExtPPWithBars==6) PPWithBars=""; } } else // процент восстановления (не Песавенто и 0.886) { if (ExtHidden==1 || ExtHidden==4) { nameObj="_" + ExtComplekt + "pltxt" + Time[numLowPrim] + "_" + Time[numLowLast]; ObjectCreate(nameObj,OBJ_TEXT,0,Time[k1],(LowPrim+LowLast)/2); descript=DoubleToStr(kk,3); if (ExtDeltaType==3) { ObjectSetText(nameObj,""+DoubleToStr(kk,3)+PPWithBars,ExtSizeTxt,"Arial",colorPPattern); } else { ObjectSetText(nameObj,""+DoubleToStr(kk,2)+PPWithBars,ExtSizeTxt,"Arial",colorPPattern); } } } if ((ExtHidden==2 && k2<0) || ExtHidden!=2) { nameObj="_" + ExtComplekt + "pl" + Time[numLowPrim] + "_" + Time[numLowLast]; ObjectCreate(nameObj,OBJ_TREND,0,Time[numLowLast],LowLast,Time[numLowPrim],LowPrim); if (descript_b) ObjectSetText(nameObj,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" PPesavento "+"Line Low "+descript); ObjectSet(nameObj,OBJPROP_RAY,false); ObjectSet(nameObj,OBJPROP_STYLE,STYLE_DOT); ObjectSet(nameObj,OBJPROP_COLOR,ExtLine); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); } if (ExtFiboZigZag) k=countBarEnd; } } } else { numLowPrim=k; if (ZigZagHighLow) LowPrim=Low[k]; else LowPrim=zzL[k]; } } // Переход на следующий экстремум if (k>countBarEnd) { k=numLowPrim+1; countLow1--; countFr--; numLowPrim=0; numLowLast=0; numHighPrim=0; numHighLast=0; LowPrim=0.0; LowLast=0.0; HighPrim=0.0; HighLast=0.0; Angle=-100; } } //-----------2 Отрисовка минимумов. Конец. } //----------------------------------------- // Блок вывода соединительных линий. Конец. //----------------------------------------- //====================== //====================== //====================== } // Разрешение на вывод оснастки. Конец. // КОНЕЦ } // start //---------------------------------------------------- // Подпрограммы и функции //---------------------------------------------------- //-------------------------------------------------------- // Подсчет количества экстремумов. Минимумов и максимумов. Начало. //-------------------------------------------------------- void countFractal() { int shift; countLow1=0; countHigh1=0; if (flagFrNew && !flagGartle) { for(shift=0; shift<=numBar; shift++) { if (zzL[shift]>0.0) {countLow1++;} if (zzH[shift]>0.0) {countHigh1++;} } numBar=0; counted_bars=Bars-4; } else { if (flagGartle) {counted_bars=0;} for(shift=0; shift<=countBarEnd; shift++) { if (zzL[shift]>0.0) {countLow1++;} if (zzH[shift]>0.0) {countHigh1++;} } } } //-------------------------------------------------------- // Подсчет количества экстремумов. Минимумов и максимумов. Конец. //-------------------------------------------------------- //-------------------------------------------------------- // Формирование матрицы. Начало. // // Матрица используется для поиска исчезнувших экстремумов. // Это инструмент компенсации непредвиденных закидонов стандартного ZigZag-a. // // Также выводятся статические и динамические фибы и вееры Фибоначчи, // вилы Эндрюса... //------------------------------------------------------ void matriza() { if (afrm) { afrm=false; int shift,k; k=0; for (shift=0; shift0) { afr[k]=Time[shift]; if (zz[shift]==zzL[shift]) { if (ZigZagHighLow) afrl[k]=Low[shift]; else { if (k==0) afrl[k]=Low[shift]; else afrl[k]=zzL[shift]; } afrh[k]=0.0; } if (zz[shift]==zzH[shift]) { if (ZigZagHighLow) afrh[k]=High[shift]; else { if (k==0) afrh[k]=High[shift]; else afrh[k]=zzH[shift]; } afrl[k]=0.0; } k++; } } // Вывод вил Эндрюса if (ExtPitchforkStatic>0) { if (mPitch[2]>0) {screenPitchforkS(); ExtPitchforkStatic=0;} if (ExtPitchforkCandle) { if (iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)==0) screenPitchforkS(); } else { if (mPitch[2]==0) screenPitchforkS(); } } if (ExtPitchforkDinamic>0) screenPitchforkD(); // Вывод статических и динамических фиб. if (ExtFiboStatic) { if (mFibo[1]>0) {ExtFiboStatic=false; screenFiboS();} if (mFibo[1]==0) screenFiboS(); } if (ExtFiboDinamic) {screenFiboD();} // Расширения Фибоначчи if (ExtFiboExpansion>0) { if (mExpansion[2]>0) {FiboExpansion(); ExtFiboExpansion=0;} if (mExpansion[2]==0) FiboExpansion(); } // Вывод фибовееров if (ExtFiboFanNum>0 && ExtFiboFanColor>0) { if (mFan[1]>0) {screenFiboFan(); ExtFiboFanNum=0;} if (mFan[1]==0) screenFiboFan(); } if (ExtFiboFanDinamic) screenFiboFanD(); // Вывод Versum Levels if (ExtVLStaticColor>0) { if (mVL[2]>0) {ExtVLStaticNum=0; VLS();} if (mVL[2]==0) VLS(); } if (ExtVLDinamicColor>0) {VLD();} // Поиск паттернов Gartley if (ExtGartleyOnOff) { switch (ExtIndicator) { case 0 : {_Gartley("ExtIndicator=0_" + minBars+"/"+ExtDeviation+"/"+ExtBackstep);break;} case 1 : {_Gartley("ExtIndicator=1_" + minSize+"/"+minPercent);break;} case 2 : {_Gartley("ExtIndicator=2_" + minBars+"/"+minSize);break;} case 3 : {_Gartley("ExtIndicator=3_" + minBars);break;} case 4 : {_Gartley("ExtIndicator=4_" + minSize);break;} case 5 : {_Gartley("ExtIndicator=5_" + minBars);break;} case 6 : {_Gartley("ExtIndicator=6_" + minBars+"/"+ExtDeviation+"/"+ExtBackstep);break;} case 7 : {_Gartley("ExtIndicator=7_" + minBars);break;} case 8 : {_Gartley("ExtIndicator=8_" + minBars+"/"+ExtDeviation);break;} case 10 : {_Gartley("ExtIndicator=10_" + minBars);break;} } } ExtSave=false; } } //-------------------------------------------------------- // Формирование матрицы. Конец. //-------------------------------------------------------- //-------------------------------------------------------- // Вывод Versum Levels статических. Начало. //-------------------------------------------------------- void VLS() { VL(mVL[0],mVL[1],mVL[2],ExtVLStaticColor,"VLS"); } //-------------------------------------------------------- // Вывод Versum Levels статических. Конецо. //-------------------------------------------------------- //-------------------------------------------------------- // Вывод Versum Levels динамических. Начало. //-------------------------------------------------------- void VLD() { VL(2,1,0,ExtVLDinamicColor,"VLD"); } //-------------------------------------------------------- // Вывод Versum Levels динамических. Конец. //-------------------------------------------------------- //-------------------------------------------------------- // Versum Levels. Начало. //-------------------------------------------------------- void VL(int na,int nb,int nc,color color_line,string vl) { double line_pesavento[7]={0.236, 0.382, 0.447, 0.5, 0.618, 0.786, 0.886}, line_fibo[7]={0.236, 0.382, 0.455, 0.5, 0.545, 0.618, 0.764}; int c_bar1, c_bar2, i; double H_L, mediana, tangens, cena; c_bar1=iBarShift(Symbol(),Period(),afr[na])-iBarShift(Symbol(),Period(),afr[nb]); // количество бар в отрезке AB c_bar2=iBarShift(Symbol(),Period(),afr[nb])-iBarShift(Symbol(),Period(),afr[nc]); // количество бар в отрезке ВС if (afrl[na]>0) { H_L=afrh[nb]-afrl[nc]; // высота отрезка ВС for (i=0; i<7; i++) { if (ExtFiboType) { mediana=line_pesavento[i]*H_L+afrl[nc]; tangens=(mediana-afrl[na])/(c_bar1+(1-line_pesavento[i])*c_bar2); cena=c_bar2*line_pesavento[i]*tangens+mediana; nameObj=vl+i+" " + ExtComplekt+"_"; ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_TREND,0,afr[na],afrl[na],afr[nc],cena); ObjectSetText(nameObj,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" "+vl+" "+DoubleToStr(line_pesavento[i]*100,1)+""); ObjectSet(nameObj,OBJPROP_COLOR,color_line); } else { mediana=line_fibo[i]*H_L+afrl[nc]; tangens=(mediana-afrl[na])/(c_bar1+(1-line_fibo[i])*c_bar2); cena=c_bar2*line_fibo[i]*tangens+mediana; nameObj=vl+i+" " + ExtComplekt+"_"; ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_TREND,0,afr[na],afrl[na],afr[nc],cena); ObjectSetText(nameObj,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" "+vl+" "+DoubleToStr(line_fibo[i]*100,1)+""); ObjectSet(nameObj,OBJPROP_COLOR,color_line); } } } else { H_L=afrh[nc]-afrl[nb]; // высота отрезка ВС for (i=0; i<7; i++) { if (ExtFiboType) { mediana=afrh[nc]-line_pesavento[i]*H_L; tangens=(afrh[na]-mediana)/(c_bar1+(1-line_pesavento[i])*c_bar2); cena=mediana-c_bar2*line_pesavento[i]*tangens; nameObj=vl+i+" " + ExtComplekt+"_"; ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_TREND,0,afr[na],afrh[na],afr[nc],cena); ObjectSetText(nameObj,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" "+vl+" "+DoubleToStr(line_pesavento[i]*100,1)+""); ObjectSet(nameObj,OBJPROP_COLOR,color_line); } else { mediana=afrh[nc]-line_fibo[i]*H_L; tangens=(afrh[na]-mediana)/(c_bar1+(1-line_fibo[i])*c_bar2); cena=mediana-c_bar2*line_fibo[i]*tangens; nameObj=vl+i+" " + ExtComplekt+"_"; ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_TREND,0,afr[na],afrh[na],afr[nc],cena); ObjectSetText(nameObj,"ZUP"+ExtComplekt+" zz"+ExtIndicator+" "+vl+" "+DoubleToStr(line_fibo[i]*100,1)+""); ObjectSet(nameObj,OBJPROP_COLOR,color_line); } } } } //-------------------------------------------------------- // Versum Levels. Конец. //-------------------------------------------------------- //-------------------------------------------------------- // Вывод вил Эндрюса статических. Начало. //-------------------------------------------------------- void screenPitchforkS() { int k1,n,nbase1,nbase2; double a1,b1,c1,ab1,bc1,ab2,bc2,tangens,n1,cl1,ch1,cena; datetime ta1,tb1,tc1,tab2,tbc2,tcl1,tch1; bool fo1=false,fo2=false; int pitch_time[]={0,0,0}; double pitch_cena[]={0,0,0}; double TLine, m618=0.618, m382=0.382; if (ExtPitchforkCandle) { if (iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)==0) { if (ExtPitchfork_1_HighLow) { mPitchCena[2]=High[iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)]; } else { mPitchCena[2]=Low[iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)]; } } } if (ExtPitchforkCandle) { cena=mPitchCena[0]; if (ExtPitchfork_1_HighLow) { if (ExtCM_0_1A_2B==1) { cena=mPitchCena[0]-(mPitchCena[0]-mPitchCena[1])*ExtCM_Fibo; } else if (ExtCM_0_1A_2B==4) { mPitchTimeSave=mPitchTime[0]; mPitchTime[0]=mPitchTime[1]; if (maxGipotenuza(mPitchTime,mPitchCena)) { cena=mPitchCena[1]+(mPitchCena[2]-mPitchCena[1])*m618; } else { cena=mPitchCena[1]+(mPitchCena[2]-mPitchCena[1])*m382; } } else if (ExtCM_0_1A_2B>1) { if (ExtCM_0_1A_2B==2) mPitchTime[0]=mPitchTime[1]; cena=mPitchCena[1]+(mPitchCena[2]-mPitchCena[1])*ExtCM_Fibo; } } else { if (ExtCM_0_1A_2B==1) { cena=mPitchCena[0]+(mPitchCena[1]-mPitchCena[0])*ExtCM_Fibo; } else if (ExtCM_0_1A_2B==4) { mPitchTimeSave=mPitchTime[0]; mPitchTime[0]=mPitchTime[1]; // if (MathAbs(mPitchCena[0]-mPitchCena[1])>MathAbs(mPitchCena[1]-mPitchCena[2])) if (maxGipotenuza(mPitchTime,mPitchCena)) { cena=mPitchCena[1]-(mPitchCena[1]-mPitchCena[2])*m618; } else { cena=mPitchCena[1]-(mPitchCena[1]-mPitchCena[2])*m382; } } else if (ExtCM_0_1A_2B>1) { if (ExtCM_0_1A_2B==2) mPitchTime[0]=mPitchTime[1]; cena=mPitchCena[1]-(mPitchCena[1]-mPitchCena[2])*ExtCM_Fibo; } } } else { mPitchTime[0]=afr[mPitch[0]]; mPitchTime[1]=afr[mPitch[1]]; mPitchTime[2]=afr[mPitch[2]]; if (afrl[mPitch[0]]>0) { cena=afrl[mPitch[0]]; mPitchCena[0]=afrl[mPitch[0]]; mPitchCena[1]=afrh[mPitch[1]]; mPitchCena[2]=afrl[mPitch[2]]; if (ExtCM_0_1A_2B==1) { cena=mPitchCena[0]+(mPitchCena[1]-mPitchCena[0])*ExtCM_Fibo; } else if (ExtCM_0_1A_2B==4) { mPitchTimeSave=mPitchTime[0]; mPitchTime[0]=mPitchTime[1]; if (maxGipotenuza(mPitchTime,mPitchCena)) { cena=mPitchCena[1]-(mPitchCena[1]-mPitchCena[2])*m618; } else { cena=mPitchCena[1]-(mPitchCena[1]-mPitchCena[2])*m382; } } else if (ExtCM_0_1A_2B>1) { if (ExtCM_0_1A_2B==2) mPitchTime[0]=mPitchTime[1]; cena=mPitchCena[1]-(mPitchCena[1]-mPitchCena[2])*ExtCM_Fibo; } } else { cena=afrh[mPitch[0]]; mPitchCena[0]=afrh[mPitch[0]]; mPitchCena[1]=afrl[mPitch[1]]; mPitchCena[2]=afrh[mPitch[2]]; if (ExtCM_0_1A_2B==1) { cena=mPitchCena[0]-(mPitchCena[0]-mPitchCena[1])*ExtCM_Fibo; } else if (ExtCM_0_1A_2B==4) { mPitchTimeSave=mPitchTime[0]; mPitchTime[0]=mPitchTime[1]; if (maxGipotenuza(mPitchTime,mPitchCena)) { cena=mPitchCena[1]+(mPitchCena[2]-mPitchCena[1])*m618; } else { cena=mPitchCena[1]+(mPitchCena[2]-mPitchCena[1])*m382; } } else if (ExtCM_0_1A_2B>1) { if (ExtCM_0_1A_2B==2) mPitchTime[0]=mPitchTime[1]; cena=mPitchCena[1]+(mPitchCena[2]-mPitchCena[1])*ExtCM_Fibo; } } } mPitchCena[0]=cena; if (ExtFiboFanStatic) {ExtFiboFanStatic=false; screenFiboFanS();} nameObj="pmedianaS" + ExtComplekt+"_"; ObjectDelete(nameObj); if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } coordinaty_1_2_mediany_AP(mPitchCena[0], mPitchCena[1], mPitchCena[2], mPitchTime[0], mPitchTime[1], mPitchTime[2], tab2, tbc2, ab1, bc1); pitch_time[0]=tab2;pitch_cena[0]=ab1; if (ExtPitchforkStatic==2) { ObjectCreate(nameObj,OBJ_TREND,0,tab2,ab1,tbc2,bc1); ObjectSet(nameObj,OBJPROP_STYLE,STYLE_DASH); ObjectSet(nameObj,OBJPROP_COLOR,ExtLinePitchforkS); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); nameObj="1-2pmedianaS" + ExtComplekt+"_"; if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_TEXT,0,tab2,ab1+3*Point); ObjectSetText(nameObj," 1/2 ML",9,"Arial", ExtLinePitchforkS); } nameObj="pitchforkS" + ExtComplekt+"_"; if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } ObjectDelete(nameObj); if (ExtPitchforkStatic!=4) { pitch_time[0]=mPitchTime[0];pitch_cena[0]=mPitchCena[0]; if (ExtPitchforkStatic==3) pitch_cena[0]=ab1; } pitch_time[1]=mPitchTime[1];pitch_cena[1]=mPitchCena[1]; pitch_time[2]=mPitchTime[2];pitch_cena[2]=mPitchCena[2]; ObjectCreate(nameObj,OBJ_PITCHFORK,0,pitch_time[0],pitch_cena[0],pitch_time[1],pitch_cena[1],pitch_time[2],pitch_cena[2]); if (ExtPitchforkStyle<5) { ObjectSet(nameObj,OBJPROP_STYLE,ExtPitchforkStyle); } else if(ExtPitchforkStyle<11) { ObjectSet(nameObj,OBJPROP_WIDTH,ExtPitchforkStyle-5); } ObjectSet(nameObj,OBJPROP_COLOR,ExtLinePitchforkS); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); if (ExtFiboFanMedianaStaticColor>0) { coordinaty_mediany_AP(pitch_cena[0], pitch_cena[1], pitch_cena[2], pitch_time[0], pitch_time[1], pitch_time[2], tb1, b1); nameObj="FanMedianaStatic" + ExtComplekt+"_"; /* if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } */ ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_FIBOFAN,0,pitch_time[0],pitch_cena[0],tb1,b1); ObjectSet(nameObj,OBJPROP_LEVELSTYLE,STYLE_DASH); ObjectSet(nameObj,OBJPROP_LEVELCOLOR,ExtFiboFanMedianaStaticColor); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); screenFibo(); } //------------------------------------------------------- if (ExtUTL) { nameObj="UTL" + ExtComplekt+"_"; if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } ObjectDelete(nameObj); if (pitch_cena[1]>pitch_cena[2]) { ObjectCreate(nameObj,OBJ_TREND,0,pitch_time[0],pitch_cena[0],pitch_time[1],pitch_cena[1]); } else { ObjectCreate(nameObj,OBJ_TREND,0,pitch_time[0],pitch_cena[0],pitch_time[2],pitch_cena[2]); } ObjectSet(nameObj,OBJPROP_STYLE,STYLE_SOLID); ObjectSet(nameObj,OBJPROP_COLOR,ExtLinePitchforkS); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); } if (ExtPivotZoneStaticColor>0 && ExtPitchforkStatic<4) PivotZone(pitch_time, pitch_cena, ExtPivotZoneStaticColor, "PivotZoneS"); if (ExtLTL) { nameObj="LTL" + ExtComplekt+"_"; if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } ObjectDelete(nameObj); if (pitch_cena[1]>pitch_cena[2]) { ObjectCreate(nameObj,OBJ_TREND,0,pitch_time[0],pitch_cena[0],pitch_time[2],pitch_cena[2]); } else { ObjectCreate(nameObj,OBJ_TREND,0,pitch_time[0],pitch_cena[0],pitch_time[1],pitch_cena[1]); } ObjectSet(nameObj,OBJPROP_STYLE,STYLE_SOLID); ObjectSet(nameObj,OBJPROP_COLOR,ExtLinePitchforkS); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); } //------------------------------------------------------- if (ExtISLStatic) { n1=iBarShift(Symbol(),Period(),pitch_time[0])-(iBarShift(Symbol(),Period(),pitch_time[1])+iBarShift(Symbol(),Period(),pitch_time[2]))/2.0; ta1=pitch_time[1]; a1=pitch_cena[1]; tangens=(pitch_cena[0]-(pitch_cena[1]+pitch_cena[2])/2.0)/n1; ML_RL400(tangens, pitch_cena, pitch_time, tb1, b1, true); tc1=pitch_time[2]; c1=pitch_cena[2]; nameObj="ISL_S" + ExtComplekt+"_"; if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_FIBOCHANNEL,0,ta1,a1,tb1,b1,tc1,c1); ObjectSet(nameObj,OBJPROP_LEVELCOLOR,ExtLinePitchforkS); ObjectSet(nameObj,OBJPROP_LEVELSTYLE,ExtPitchforkStyle); ObjectSet(nameObj,OBJPROP_RAY,false); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); ObjectSet(nameObj,OBJPROP_COLOR,CLR_NONE); ObjectSet(nameObj,OBJPROP_FIBOLEVELS,6); if (ExtFiboType) { ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,-0.886); ObjectSetFiboDescription(nameObj, 0, " I S L 88.6"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,-0.786); ObjectSetFiboDescription(nameObj, 1, " I S L 78.6"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,-0.618); ObjectSetFiboDescription(nameObj, 2, " I S L 61.8"); } else { ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,-0.854); ObjectSetFiboDescription(nameObj, 0, " I S L 85.4"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,-0.764); ObjectSetFiboDescription(nameObj, 1, " I S L 76.4"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,-0.618); ObjectSetFiboDescription(nameObj, 2, " I S L 61.8"); } ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,-0.382); ObjectSetFiboDescription(nameObj, 3, " I S L 38.2"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,-0.236); ObjectSetFiboDescription(nameObj, 4, " I S L 23.6"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,-0.146); ObjectSetFiboDescription(nameObj, 5, " I S L 14.6"); } //------------------------------------------------------- if (ExtUWL || ExtLWL) { n1=iBarShift(Symbol(),Period(),pitch_time[0])-(iBarShift(Symbol(),Period(),pitch_time[1])+iBarShift(Symbol(),Period(),pitch_time[2]))/2.0; ta1=pitch_time[0]; tb1=Time[0]; a1=pitch_cena[0]; tangens=(pitch_cena[0]-(pitch_cena[1]+pitch_cena[2])/2.0)/n1; b1=pitch_cena[0]-tangens*iBarShift(Symbol(),Period(),pitch_time[0]); ML_RL400(tangens, pitch_cena, pitch_time, tb1, b1, false); if (pitch_cena[1]>pitch_cena[2]) { if (ExtUWL) { ch1=pitch_cena[1]; tch1=pitch_time[1]; } if (ExtLWL) { cl1=pitch_cena[2]; tcl1=pitch_time[2]; } } else { if (ExtUWL) { ch1=pitch_cena[2]; tch1=pitch_time[2]; } if (ExtLWL) { cl1=pitch_cena[1]; tcl1=pitch_time[1]; } } // if (fo2) {fo2=false; b1=b1+tangens;} if (ExtUWL) { nameObj="UWL" + ExtComplekt+"_"; if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_FIBOCHANNEL,0,ta1,a1,tb1,b1,tch1,ch1); ObjectSet(nameObj,OBJPROP_LEVELCOLOR,ExtLinePitchforkS); ObjectSet(nameObj,OBJPROP_LEVELSTYLE,STYLE_DOT); ObjectSet(nameObj,OBJPROP_RAY,false); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); ObjectSet(nameObj,OBJPROP_COLOR,CLR_NONE); ObjectSet(nameObj,OBJPROP_FIBOLEVELS,6); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,0.618); ObjectSetFiboDescription(nameObj, 0, "U W L 61.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,1.0); ObjectSetFiboDescription(nameObj, 1, "U W L 100.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,1.618); ObjectSetFiboDescription(nameObj, 2, "U W L 161.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,2.0); ObjectSetFiboDescription(nameObj, 3, "U W L 200.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,2.618); ObjectSetFiboDescription(nameObj, 4, "U W L 261.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,4.0); ObjectSetFiboDescription(nameObj, 5, "U W L 400.0"); } if (ExtLWL) { nameObj="LWL" + ExtComplekt+"_"; if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_FIBOCHANNEL,0,ta1,a1,tb1,b1,tcl1,cl1); ObjectSet(nameObj,OBJPROP_LEVELCOLOR,ExtLinePitchforkS); ObjectSet(nameObj,OBJPROP_LEVELSTYLE,STYLE_DOT); ObjectSet(nameObj,OBJPROP_RAY,false); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); ObjectSet(nameObj,OBJPROP_COLOR,CLR_NONE); ObjectSet(nameObj,OBJPROP_FIBOLEVELS,6); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,0.618); ObjectSetFiboDescription(nameObj, 0, "L W L 61.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,1.0); ObjectSetFiboDescription(nameObj, 1, "L W L 100.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,1.618); ObjectSetFiboDescription(nameObj, 2, "L W L 161.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,2.0); ObjectSetFiboDescription(nameObj, 3, "L W L 200.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,2.618); ObjectSetFiboDescription(nameObj, 4, "L W L 261.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,4.0); ObjectSetFiboDescription(nameObj, 5, "L W L 400.0"); } } //------------------------------------------------------- if (ExtPitchforkStaticColor>0) { n1=iBarShift(Symbol(),Period(),pitch_time[0])-(iBarShift(Symbol(),Period(),pitch_time[1])+iBarShift(Symbol(),Period(),pitch_time[2]))/2.0; TLine=pitch_cena[1]-iBarShift(Symbol(),Period(),pitch_time[1])*(pitch_cena[0]-(pitch_cena[2]+pitch_cena[1])/2)/n1; nameObj="CL" + ExtComplekt+"_"; /* if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } */ ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_CHANNEL,0,pitch_time[1],pitch_cena[1],Time[0],TLine,pitch_time[2],pitch_cena[2]); ObjectSet(nameObj, OBJPROP_BACK, true); ObjectSet(nameObj, OBJPROP_COLOR, ExtPitchforkStaticColor); } //------------------------------------------------------- if (ExtRLine) { n=iBarShift(Symbol(),Period(),pitch_time[0])-(iBarShift(Symbol(),Period(),pitch_time[1])+iBarShift(Symbol(),Period(),pitch_time[2]))/2.0; nbase1=iBarShift(Symbol(),Period(),mPitchTime[1]); nbase2=iBarShift(Symbol(),Period(),mPitchTime[2]); tc1=mPitchTime[1]; ta1=Time[nbase1+n]; tb1=Time[nbase2+n]; c1=mPitchCena[1]; a1=(pitch_cena[0]-(mPitchCena[1]+mPitchCena[2])/2)+mPitchCena[1]; b1=(pitch_cena[0]-(mPitchCena[1]+mPitchCena[2])/2)+mPitchCena[2]; nameObj="RLineS" + ExtComplekt+"_"; if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_FIBOCHANNEL,0,ta1,a1,tb1,b1,tc1,c1); ObjectSet(nameObj,OBJPROP_LEVELCOLOR,ExtLinePitchforkS); if (ExtRLineBase) { ObjectSet(nameObj,OBJPROP_COLOR,CLR_NONE); } else { ObjectSet(nameObj,OBJPROP_COLOR,ExtLinePitchforkS); } ObjectSet(nameObj,OBJPROP_LEVELSTYLE,STYLE_DOT); ObjectSet(nameObj,OBJPROP_RAY,false); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); if (ExtFiboType) { ObjectSet(nameObj,OBJPROP_FIBOLEVELS,15); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,0.382); ObjectSetFiboDescription(nameObj, 0, " RL 38.2"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,0.5); ObjectSetFiboDescription(nameObj, 1, " RL 50.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,0.618); ObjectSetFiboDescription(nameObj, 2, " RL 61.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,0.707); ObjectSetFiboDescription(nameObj, 3, " RL 70.7"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,0.786); ObjectSetFiboDescription(nameObj, 4, " RL 78.6"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,0.886); ObjectSetFiboDescription(nameObj, 5, " RL 88.6"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+6,1.0); ObjectSetFiboDescription(nameObj, 6, " RL 100.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+7,1.128); ObjectSetFiboDescription(nameObj, 7, " RL 112.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+8,1.272); ObjectSetFiboDescription(nameObj, 8, " RL 127.2"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+9,1.414); ObjectSetFiboDescription(nameObj, 9, " RL 141.4"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+10,1.618); ObjectSetFiboDescription(nameObj, 10, " RL 161.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+11,2.0); ObjectSetFiboDescription(nameObj, 11, " RL 200.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+12,2.414); ObjectSetFiboDescription(nameObj, 12, " RL 241.4"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+13,2.618); ObjectSetFiboDescription(nameObj, 13, " RL 261.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+14,4.0); ObjectSetFiboDescription(nameObj, 14, " RL 400.0"); } else { ObjectSet(nameObj,OBJPROP_FIBOLEVELS,10); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,0.236); ObjectSetFiboDescription(nameObj, 0, " RL 23.6"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,0.382); ObjectSetFiboDescription(nameObj, 1, " RL 38.2"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,0.5); ObjectSetFiboDescription(nameObj, 2, " RL 50.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,0.618); ObjectSetFiboDescription(nameObj, 3, " RL 61.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,0.764); ObjectSetFiboDescription(nameObj, 4, " RL 76.4"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,1.0); ObjectSetFiboDescription(nameObj, 5, " RL 100.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+6,1.618); ObjectSetFiboDescription(nameObj, 6, " RL 161.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+7,2.0); ObjectSetFiboDescription(nameObj, 7, " RL 200"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+8,2.618); ObjectSetFiboDescription(nameObj, 8, " RL 261.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+9,4.0); ObjectSetFiboDescription(nameObj, 9, " RL 400.0"); } } //------------------------------------------------------- // Временные зоны Фибо if (ExtFiboTime1) { nameObj="fiboTime1" + ExtComplekt+"_"; if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } ObjectDelete(nameObj); if (ExtPitchforkCandle) { if (!ExtPitchfork_1_HighLow) { if (mPitchCena[0]>mPitchCena[2]) { ObjectCreate(nameObj,OBJ_FIBOTIMES,0,mPitchTime[0],mPitchCena[2]-5*Point,mPitchTime[2],mPitchCena[2]-5*Point); } else { ObjectCreate(nameObj,OBJ_FIBOTIMES,0,mPitchTime[0],mPitchCena[0]-5*Point,mPitchTime[2],mPitchCena[0]-5*Point); } } else { ObjectCreate(nameObj,OBJ_FIBOTIMES,0,mPitchTime[0],mPitchCena[1]-5*Point,mPitchTime[2],mPitchCena[1]-5*Point); } } else { if (afrl[mPitch[0]]>0) { if (afrl[mPitch[0]]>afrl[mPitch[2]]) { ObjectCreate(nameObj,OBJ_FIBOTIMES,0,mPitchTime[0],mPitchCena[2]-5*Point,mPitchTime[2],mPitchCena[2]-5*Point); } else { ObjectCreate(nameObj,OBJ_FIBOTIMES,0,mPitchTime[0],mPitchCena[0]-5*Point,mPitchTime[2],mPitchCena[0]-5*Point); } } else { ObjectCreate(nameObj,OBJ_FIBOTIMES,0,mPitchTime[0],mPitchCena[1]-5*Point,mPitchTime[2],afrl[mPitch[1]]-5*Point); } } ObjectSet(nameObj,OBJPROP_LEVELSTYLE,STYLE_DOT); ObjectSet(nameObj,OBJPROP_STYLE,STYLE_DOT); ObjectSet(nameObj,OBJPROP_LEVELCOLOR,ExtFiboTime1C); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); if (ExtFiboType) { ObjectSet(nameObj,OBJPROP_FIBOLEVELS,17); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,0.0); ObjectSetFiboDescription(nameObj, 0, "0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,1.0); ObjectSetFiboDescription(nameObj, 1, "1"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,1.382); ObjectSetFiboDescription(nameObj, 2, "Ft .382"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,1.5); ObjectSetFiboDescription(nameObj, 3, "Ft .5"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,1.618); ObjectSetFiboDescription(nameObj, 4, "Ft .618"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,1.707); ObjectSetFiboDescription(nameObj, 5, "Ft .707"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+6,1.786); ObjectSetFiboDescription(nameObj, 6, "Ft .786"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+7,1.886); ObjectSetFiboDescription(nameObj, 7, "Ft .886"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+8,2.0); ObjectSetFiboDescription(nameObj, 8, "Ft 1."); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+9,2.272); ObjectSetFiboDescription(nameObj, 9, "Ft 1.272"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+10,2.414); ObjectSetFiboDescription(nameObj, 10, "Ft 1.414"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+11,2.618); ObjectSetFiboDescription(nameObj, 11, "Ft 1.618"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+12,3.0); ObjectSetFiboDescription(nameObj, 12, "Ft 2."); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+13,3.414); ObjectSetFiboDescription(nameObj, 13, "Ft 2.414"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+15,3.618); ObjectSetFiboDescription(nameObj, 15, "Ft 2.618"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+16,4.0); ObjectSetFiboDescription(nameObj, 16, "Ft 3."); } else { ObjectSet(nameObj,OBJPROP_FIBOLEVELS,15); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,0.0); ObjectSetFiboDescription(nameObj, 0, "0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,1.0); ObjectSetFiboDescription(nameObj, 1, "1"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,1.146); ObjectSetFiboDescription(nameObj, 2, "Ft .146"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,1.236); ObjectSetFiboDescription(nameObj, 3, "Ft .236"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,1.382); ObjectSetFiboDescription(nameObj, 4, "Ft .382"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,1.5); ObjectSetFiboDescription(nameObj, 5, "Ft .5"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+6,1.618); ObjectSetFiboDescription(nameObj, 6, "Ft .618"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+7,1.764); ObjectSetFiboDescription(nameObj, 7, "Ft .764"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+8,1.854); ObjectSetFiboDescription(nameObj, 8, "Ft .854"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+9,2.0); ObjectSetFiboDescription(nameObj, 9, "Ft 1."); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+10,2.236); ObjectSetFiboDescription(nameObj, 10, "Ft 1.236"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+11,2.618); ObjectSetFiboDescription(nameObj, 11, "Ft 1.618"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+12,3.0); ObjectSetFiboDescription(nameObj, 12, "Ft 2."); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+13,3.618); ObjectSetFiboDescription(nameObj, 13, "Ft 2.618"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+14,5.0); ObjectSetFiboDescription(nameObj, 14, "Ft 4."); } } if (ExtFiboTime2) { nameObj="fiboTime2" + ExtComplekt+"_"; if (ExtSave) { if (ExtPitchforkCandle && iBarShift(Symbol(),Period(),ExtDateTimePitchfork_3)>0) { nameObj=nameObj + save; } else { if (mPitch[2]>0) { nameObj=nameObj + save; } } } ObjectDelete(nameObj); if (ExtPitchforkCandle) { if (ExtPitchfork_1_HighLow) { ObjectCreate(nameObj,OBJ_FIBOTIMES,0,mPitchTime[1],mPitchCena[1]-8*Point,mPitchTime[2],mPitchCena[1]-8*Point); } else { ObjectCreate(nameObj,OBJ_FIBOTIMES,0,mPitchTime[1],mPitchCena[2]-8*Point,mPitchTime[2],mPitchCena[2]-8*Point); } } else { if (afrl[mPitch[1]]>0) { ObjectCreate(nameObj,OBJ_FIBOTIMES,0,mPitchTime[1],mPitchCena[1]-8*Point,mPitchTime[2],mPitchCena[1]-8*Point); } else { ObjectCreate(nameObj,OBJ_FIBOTIMES,0,mPitchTime[1],mPitchCena[2]-8*Point,mPitchTime[2],mPitchCena[2]-8*Point); } } ObjectSet(nameObj,OBJPROP_LEVELSTYLE,STYLE_DOT); ObjectSet(nameObj,OBJPROP_STYLE,STYLE_DOT); ObjectSet(nameObj,OBJPROP_LEVELCOLOR,ExtFiboTime2C); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); if (ExtFiboType) { ObjectSet(nameObj,OBJPROP_FIBOLEVELS,17); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,0.0); ObjectSetFiboDescription(nameObj, 0, "0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,1.0); ObjectSetFiboDescription(nameObj, 1, "1"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,1.382); ObjectSetFiboDescription(nameObj, 2, "Ft .382"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,1.5); ObjectSetFiboDescription(nameObj, 3, "Ft .5"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,1.618); ObjectSetFiboDescription(nameObj, 4, "Ft .618"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,1.707); ObjectSetFiboDescription(nameObj, 5, "Ft .707"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+6,1.786); ObjectSetFiboDescription(nameObj, 6, "Ft .786"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+7,1.886); ObjectSetFiboDescription(nameObj, 7, "Ft .886"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+8,2.0); ObjectSetFiboDescription(nameObj, 8, "Ft 1."); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+9,2.272); ObjectSetFiboDescription(nameObj, 9, "Ft 1.272"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+10,2.414); ObjectSetFiboDescription(nameObj, 10, "Ft 1.414"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+11,2.618); ObjectSetFiboDescription(nameObj, 11, "Ft 1.618"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+12,3.0); ObjectSetFiboDescription(nameObj, 12, "Ft 2."); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+13,3.414); ObjectSetFiboDescription(nameObj, 13, "Ft 2.414"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+15,3.618); ObjectSetFiboDescription(nameObj, 15, "Ft 2.618"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+16,4.0); ObjectSetFiboDescription(nameObj, 16, "Ft 3."); } else { ObjectSet(nameObj,OBJPROP_FIBOLEVELS,15); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,0.0); ObjectSetFiboDescription(nameObj, 0, "0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,1.0); ObjectSetFiboDescription(nameObj, 1, "1"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,1.146); ObjectSetFiboDescription(nameObj, 2, "Ft .146"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,1.236); ObjectSetFiboDescription(nameObj, 3, "Ft .236"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,1.382); ObjectSetFiboDescription(nameObj, 4, "Ft .382"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,1.5); ObjectSetFiboDescription(nameObj, 5, "Ft .5"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+6,1.618); ObjectSetFiboDescription(nameObj, 6, "Ft .618"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+7,1.764); ObjectSetFiboDescription(nameObj, 7, "Ft .764"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+8,1.854); ObjectSetFiboDescription(nameObj, 8, "Ft .854"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+9,2.0); ObjectSetFiboDescription(nameObj, 9, "Ft 1."); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+10,2.236); ObjectSetFiboDescription(nameObj, 10, "Ft 1.236"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+11,2.618); ObjectSetFiboDescription(nameObj, 11, "Ft 1.618"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+12,3.0); ObjectSetFiboDescription(nameObj, 12, "Ft 2."); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+13,3.618); ObjectSetFiboDescription(nameObj, 13, "Ft 2.618"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+14,5.0); ObjectSetFiboDescription(nameObj, 14, "Ft 4."); } } } //-------------------------------------------------------- // Вывод вил Эндрюса статических. Конец. //-------------------------------------------------------- //-------------------------------------------------------- // Вывод вил Эндрюса динамических. Начало. //-------------------------------------------------------- void screenPitchforkD() { int k1,n,nbase1,nbase2; double a1,b1,c1,ab1,bc1,ab2,bc2,d,n1,cena,m618=0.618,m382=0.382, tangens; datetime ta1,tb1,tc1,tab2,tbc2; bool fo1=false,fo2=false; int pitch_time[]={0,0,0}; double pitch_cena[]={0,0,0}; mPitchTime[0]=afr[2]; mPitchTime[1]=afr[1]; mPitchTime[2]=afr[0]; if (afrl[2]>0) { cena=afrl[2]; mPitchCena[0]=afrl[2]; mPitchCena[1]=afrh[1]; mPitchCena[2]=afrl[0]; if (ExtCM_0_1A_2B==1) { cena=mPitchCena[0]+(mPitchCena[1]-mPitchCena[0])*ExtCM_Fibo; } else if (ExtCM_0_1A_2B==4) { mPitchTimeSave=mPitchTime[0]; mPitchTime[0]=mPitchTime[1]; if (maxGipotenuza(mPitchTime,mPitchCena)) { cena=mPitchCena[1]-(mPitchCena[1]-mPitchCena[2])*m618; } else { cena=mPitchCena[1]-(mPitchCena[1]-mPitchCena[2])*m382; } } else if (ExtCM_0_1A_2B>1) { if (ExtCM_0_1A_2B==2) mPitchTime[0]=mPitchTime[1]; cena=mPitchCena[1]-(mPitchCena[1]-mPitchCena[2])*ExtCM_Fibo; } } else { cena=afrh[2]; mPitchCena[0]=afrh[2]; mPitchCena[1]=afrl[1]; mPitchCena[2]=afrh[0]; if (ExtCM_0_1A_2B==1) { cena=mPitchCena[0]-(mPitchCena[0]-mPitchCena[1])*ExtCM_Fibo; } else if (ExtCM_0_1A_2B==4) { mPitchTimeSave=mPitchTime[0]; mPitchTime[0]=mPitchTime[1]; if (maxGipotenuza(mPitchTime,mPitchCena)) { cena=mPitchCena[1]+(mPitchCena[2]-mPitchCena[1])*m618; } else { cena=mPitchCena[1]+(mPitchCena[2]-mPitchCena[1])*m382; } } else if (ExtCM_0_1A_2B>1) { if (ExtCM_0_1A_2B==2) mPitchTime[0]=mPitchTime[1]; cena=mPitchCena[1]+(mPitchCena[2]-mPitchCena[1])*ExtCM_Fibo; } } mPitchCena[0]=cena; coordinaty_1_2_mediany_AP(mPitchCena[0], mPitchCena[1], mPitchCena[2], mPitchTime[0], mPitchTime[1], mPitchTime[2], tab2, tbc2, ab1, bc1); pitch_time[0]=tab2;pitch_cena[0]=ab1; nameObj="pmedianaD" + ExtComplekt+"_"; ObjectDelete(nameObj); if (ExtPitchforkDinamic==2) { ObjectCreate(nameObj,OBJ_TREND,0,tab2,ab1,tbc2,bc1); ObjectSet(nameObj,OBJPROP_STYLE,STYLE_DASH); ObjectSet(nameObj,OBJPROP_COLOR,ExtLinePitchforkD); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); nameObj="1-2pmedianaD" + ExtComplekt+"_"; ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_TEXT,0,tab2,ab1+3*Point); ObjectSetText(nameObj," 1/2 ML",9,"Arial", ExtLinePitchforkD); } nameObj="pitchforkD" + ExtComplekt+"_"; ObjectDelete(nameObj); if (ExtPitchforkDinamic!=4) { pitch_time[0]=mPitchTime[0];pitch_cena[0]=mPitchCena[0]; if (ExtPitchforkDinamic==3) pitch_cena[0]=ab1; } pitch_time[1]=mPitchTime[1];pitch_cena[1]=mPitchCena[1]; pitch_time[2]=mPitchTime[2];pitch_cena[2]=mPitchCena[2]; ObjectCreate(nameObj,OBJ_PITCHFORK,0,pitch_time[0],pitch_cena[0],pitch_time[1],pitch_cena[1],pitch_time[2],pitch_cena[2]); if (ExtPitchforkStyle<5) { ObjectSet(nameObj,OBJPROP_STYLE,ExtPitchforkStyle); } else if(ExtPitchforkStyle<11) { ObjectSet(nameObj,OBJPROP_WIDTH,ExtPitchforkStyle-5); } ObjectSet(nameObj,OBJPROP_COLOR,ExtLinePitchforkD); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); if (ExtPivotZoneDinamicColor>0 && ExtPitchforkDinamic<4) PivotZone(pitch_time, pitch_cena, ExtPivotZoneDinamicColor, "PivotZoneD"); if (ExtFiboFanMedianaDinamicColor>0) { coordinaty_mediany_AP(pitch_cena[0], pitch_cena[1], pitch_cena[2], pitch_time[0], pitch_time[1], pitch_time[2], tb1, b1); nameObj="FanMedianaDinamic" + ExtComplekt+"_"; ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_FIBOFAN,0,pitch_time[0],pitch_cena[0],tb1,b1); ObjectSet(nameObj,OBJPROP_LEVELSTYLE,STYLE_DASH); ObjectSet(nameObj,OBJPROP_LEVELCOLOR,ExtFiboFanMedianaDinamicColor); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); screenFibo(); } if (ExtISLDinamic) { n1=iBarShift(Symbol(),Period(),pitch_time[0])-(iBarShift(Symbol(),Period(),pitch_time[1])+iBarShift(Symbol(),Period(),pitch_time[2]))/2.0; ta1=pitch_time[1]; a1=pitch_cena[1]; tangens=(pitch_cena[0]-(pitch_cena[1]+pitch_cena[2])/2.0)/n1; ML_RL400(tangens, pitch_cena, pitch_time, tb1, b1, true); tc1=pitch_time[2]; c1=pitch_cena[2]; nameObj="ISL_D" + ExtComplekt+"_"; ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_FIBOCHANNEL,0,ta1,a1,tb1,b1,tc1,c1); ObjectSet(nameObj,OBJPROP_LEVELCOLOR,ExtLinePitchforkD); ObjectSet(nameObj,OBJPROP_LEVELSTYLE,ExtPitchforkStyle); ObjectSet(nameObj,OBJPROP_RAY,false); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); ObjectSet(nameObj,OBJPROP_COLOR,CLR_NONE); ObjectSet(nameObj,OBJPROP_FIBOLEVELS,6); if (ExtFiboType) { ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,-0.886); ObjectSetFiboDescription(nameObj, 0, " I S L 88.6"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,-0.786); ObjectSetFiboDescription(nameObj, 1, " I S L 78.6"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,-0.618); ObjectSetFiboDescription(nameObj, 2, " I S L 61.8"); } else { ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,-0.854); ObjectSetFiboDescription(nameObj, 0, " I S L 85.4"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,-0.764); ObjectSetFiboDescription(nameObj, 1, " I S L 76.4"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,-0.618); ObjectSetFiboDescription(nameObj, 2, " I S L 61.8"); } ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,-0.382); ObjectSetFiboDescription(nameObj, 3, " I S L 38.2"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,-0.236); ObjectSetFiboDescription(nameObj, 4, " I S L 23.6"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,-0.146); ObjectSetFiboDescription(nameObj, 5, " I S L 14.6"); } if (ExtRLine) { nameObj="RLineD" + ExtComplekt+"_"; ObjectDelete(nameObj); n=iBarShift(Symbol(),Period(),pitch_time[0])-(iBarShift(Symbol(),Period(),pitch_time[1])+iBarShift(Symbol(),Period(),pitch_time[2]))/2.0; nbase1=iBarShift(Symbol(),Period(),pitch_time[1]); nbase2=iBarShift(Symbol(),Period(),pitch_time[2]); tc1=pitch_time[1]; ta1=Time[nbase1+n]; tb1=Time[nbase2+n]; // изменение цены на один бар // d=(afrl[2]-(afrh[1]+afrl[0])/2)/n; c1=pitch_cena[1]; a1=(pitch_cena[0]-(pitch_cena[1]+pitch_cena[2])/2)+pitch_cena[1]; b1=(pitch_cena[0]-(pitch_cena[1]+pitch_cena[2])/2)+pitch_cena[2]; ObjectCreate(nameObj,OBJ_FIBOCHANNEL,0,ta1,a1,tb1,b1,tc1,c1); ObjectSet(nameObj,OBJPROP_LEVELCOLOR,ExtLinePitchforkD); if (ExtRLineBase) { ObjectSet(nameObj,OBJPROP_COLOR,CLR_NONE); } else { ObjectSet(nameObj,OBJPROP_COLOR,ExtLinePitchforkD); } ObjectSet(nameObj,OBJPROP_LEVELSTYLE,STYLE_DOT); ObjectSet(nameObj,OBJPROP_RAY,false); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); if (ExtFiboType) { ObjectSet(nameObj,OBJPROP_FIBOLEVELS,15); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,0.382); ObjectSetFiboDescription(nameObj, 0, " RL 38.2"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,0.5); ObjectSetFiboDescription(nameObj, 1, " RL 50.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,0.618); ObjectSetFiboDescription(nameObj, 2, " RL 61.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,0.707); ObjectSetFiboDescription(nameObj, 3, " RL 70.7"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,0.786); ObjectSetFiboDescription(nameObj, 4, " RL 78.6"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,0.886); ObjectSetFiboDescription(nameObj, 5, " RL 88.6"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+6,1.0); ObjectSetFiboDescription(nameObj, 6, " RL 100.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+7,1.128); ObjectSetFiboDescription(nameObj, 7, " RL 112.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+8,1.272); ObjectSetFiboDescription(nameObj, 8, " RL 127.2"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+9,1.414); ObjectSetFiboDescription(nameObj, 9, " RL 141.4"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+10,1.618); ObjectSetFiboDescription(nameObj, 10, " RL 161.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+11,2.0); ObjectSetFiboDescription(nameObj, 11, " RL 200.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+12,2.414); ObjectSetFiboDescription(nameObj, 12, " RL 241.4"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+13,2.618); ObjectSetFiboDescription(nameObj, 13, " RL 261.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+14,4.0); ObjectSetFiboDescription(nameObj, 14, " RL 400.0"); } else { ObjectSet(nameObj,OBJPROP_FIBOLEVELS,10); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,0.236); ObjectSetFiboDescription(nameObj, 0, " RL 23.6"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,0.382); ObjectSetFiboDescription(nameObj, 1, " RL 38.2"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,0.5); ObjectSetFiboDescription(nameObj, 2, " RL 50.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,0.618); ObjectSetFiboDescription(nameObj, 3, " RL 61.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,0.764); ObjectSetFiboDescription(nameObj, 4, " RL 76.4"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,1.0); ObjectSetFiboDescription(nameObj, 5, " RL 100.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+6,1.618); ObjectSetFiboDescription(nameObj, 6, " RL 161.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+7,2.0); ObjectSetFiboDescription(nameObj, 7, " RL 200.0"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+8,2.618); ObjectSetFiboDescription(nameObj, 8, " RL 261.8"); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+9,4.0); ObjectSetFiboDescription(nameObj, 9, " RL 400.0"); } } } //-------------------------------------------------------- // Вывод вил Эндрюса динамических. Конец. //-------------------------------------------------------- //-------------------------------------------------------- // Подпрограмма расчета координат 1/2 медианы вил Эндрюса. Начало. //-------------------------------------------------------- // Передаваемые параметры цена и время трех точек вил Эндрюса // а также ссылка на переменные - // tAB2, tBC2 - время баров, через которые проводится 1/2 медиана // AB2, BC2 - ценовое значение точек, через которые проводится 1/2 медиана // void coordinaty_1_2_mediany_AP(double A_1, double B_2, double C_3, datetime T_1, datetime T_2, datetime T_3, datetime& tAB2, datetime& tBC2, double& AB2, double& BC2) { double tangens; int n1, n2, n3, nab2, nbc2; // номера баров, от которых строятся вилы Эндрюса n1=iBarShift(Symbol(),Period(),T_1); n2=iBarShift(Symbol(),Period(),T_2); n3=iBarShift(Symbol(),Period(),T_3); // тангенс угла наклона 1/2 медианы вил Эндрюса tangens=(C_3 - A_1)/(n1 - n3); // номера баров, через которые будет построена 1/2 медиана nab2=MathCeil((n1+n2)/2.0); nbc2=MathCeil((n2+n3)/2.0); // значения цены точек, через которые будет построена 1/2 медиана AB2=(A_1 + B_2)/2 - (nab2-(n1+n2)/2.0)*tangens; BC2=(B_2 + C_3)/2 - (nbc2-(n2+n3)/2.0)*tangens; // время баров, через которые будет построена 1/2 медиана tAB2=Time[nab2]; tBC2=Time[nbc2]; } //-------------------------------------------------------- // Подпрограмма расчета координат 1/2 медианы вил Эндрюса. Конец. //-------------------------------------------------------- //-------------------------------------------------------- // Подпрограмма расчета координаты точки на медиане вил Эндрюса. Начало. //-------------------------------------------------------- // Передаваемые параметры цена и время трех точек вил Эндрюса // а также ссылка на переменные - // tAB2, tBC2 - время баров, через которые проводится 1/2 медиана // AB2, BC2 - ценовое значение точек, через которые проводится 1/2 медиана // void coordinaty_mediany_AP(double A_1, double B_2, double C_3, datetime T_1, datetime T_2, datetime T_3, datetime& tB1, double& B1) { double tangens; int n1, n2, n3, nbc2; // номера баров, от которых строятся вилы Эндрюса n1=iBarShift(Symbol(),Period(),T_1); n2=iBarShift(Symbol(),Period(),T_2); n3=iBarShift(Symbol(),Period(),T_3); // тангенс угла наклона медианы вил Эндрюса tangens=(A_1-(C_3+B_2)/2)/(n1 - (n3+n2)/2.0); // номер бара, через который проходит медиана nbc2=MathCeil((n2+n3)/2.0); // значения цены точки, через который проходит медиана B1=(B_2 + C_3)/2 - ((n2+n3)/2.0-nbc2)*tangens; // время бара, через который проходит медиана tB1=Time[nbc2]; } //-------------------------------------------------------- // Подпрограмма расчета координаты точки на медиане вил Эндрюса. Конец. //-------------------------------------------------------- //-------------------------------------------------------- // Сравнение гипотенуз. Начало. //------------------------------------------------------- bool maxGipotenuza(datetime pitch_time1[], double pitch_cena1[]) { double k2,k3; datetime k4,k5; /* k2=MathAbs(pitch_cena1[0]-pitch_cena1[1])/Point; k3=MathAbs(pitch_cena1[1]-pitch_cena1[2])/Point; k4=(mPitchTimeSave-pitch_time1[1])/(GrossPeriod*60); k5=(pitch_time1[1]-pitch_time1[2])/(GrossPeriod*60); */ k2=MathAbs(pitch_cena1[0]-pitch_cena1[1])/ASBar; k3=MathAbs(pitch_cena1[1]-pitch_cena1[2])/ASBar; k4=iBarShift(NULL,GrossPeriod,mPitchTimeSave)-iBarShift(NULL,GrossPeriod,pitch_time1[1]); k5=iBarShift(NULL,GrossPeriod,pitch_time1[1])-iBarShift(NULL,GrossPeriod,pitch_time1[2]); if (k2*k2+k4*k4>k3*k3+k5*k5) return(true); else return(false); } //-------------------------------------------------------- // Сравнение гипотенуз. Конец. //------------------------------------------------------- //-------------------------------------------------------- // Pivot Zone. Начало. //------------------------------------------------------- void PivotZone(datetime pitch_time1[], double pitch_cena1[], color PivotZoneColor, string name) { datetime ta1, tb1; double a1, b1, d, n1; int m, m1, m2; ta1=pitch_time1[2]; a1=pitch_cena1[2]; m1=iBarShift(Symbol(),Period(),pitch_time1[0])-iBarShift(Symbol(),Period(),pitch_time1[1]); m2=iBarShift(Symbol(),Period(),pitch_time1[1])-iBarShift(Symbol(),Period(),pitch_time1[2]); m=iBarShift(Symbol(),Period(),pitch_time1[2]); n1=iBarShift(Symbol(),Period(),pitch_time1[0])-(iBarShift(Symbol(),Period(),pitch_time1[1])+iBarShift(Symbol(),Period(),pitch_time1[2]))/2.0; d=(pitch_cena1[0]-(pitch_cena1[1]+pitch_cena1[2])/2.0)/n1; if (m1>m2) { if (m1>m) { tb1=Time[0]+(m1-m)*Period()*60; } else { tb1=Time[iBarShift(Symbol(),Period(),pitch_time1[2])-m1]; } b1=pitch_cena1[0]-d*(2*m1+m2); } else { if (m2>m) { tb1=Time[0]+(m2-m)*Period()*60; } else { tb1=Time[iBarShift(Symbol(),Period(),pitch_time1[2])-m2]; } b1=pitch_cena1[0]-d*(2*m2+m1); } // nameObj="PivotZoneS" + ExtComplekt+"_"; nameObj=name + ExtComplekt+"_"; ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_RECTANGLE,0,ta1,a1,tb1,b1); ObjectSetText(nameObj,"PZ "+Period_tf+" "+TimeToStr(tb1,TIME_DATE|TIME_MINUTES)); ObjectSet(nameObj, OBJPROP_BACK, ExtPivotZoneFramework); ObjectSet(nameObj, OBJPROP_COLOR, PivotZoneColor); } //-------------------------------------------------------- // Pivot Zone. Конец. //------------------------------------------------------- //-------------------------------------------------------- // Определение точки пересечения RL400 медианы. Начало. //------------------------------------------------------- // flag=true - рассчитывается ISL // flag=false - рассчитывается UWL/LWL void ML_RL400(double Tangens, double pitch_cena1[], datetime pitch_time1[], int& tB1, double& B1, bool flag) { int m, m1, m2; m1=iBarShift(Symbol(),Period(),pitch_time1[0]); m2=MathCeil((iBarShift(Symbol(),Period(),pitch_time1[1])+iBarShift(Symbol(),Period(),pitch_time1[2]))/2.0); m=(m1-m2)*4; if (m>m2) { tB1=Time[0]+(m-m2)*Period()*60; if (tB1<0) tB1=2133648000; if (flag) B1=pitch_cena1[1]-Tangens*(iBarShift(Symbol(),Period(),pitch_time1[1])+(tB1-Time[0])/(60*Period())); else B1=pitch_cena1[0]-Tangens*(iBarShift(Symbol(),Period(),pitch_time1[0])+(tB1-Time[0])/(60*Period())); } else { tB1=Time[m2-m]; if (flag) B1=pitch_cena1[1]-Tangens*(iBarShift(Symbol(),Period(),pitch_time1[1])-iBarShift(Symbol(),Period(),tB1)); else B1=pitch_cena1[0]-Tangens*(iBarShift(Symbol(),Period(),pitch_time1[0])-iBarShift(Symbol(),Period(),tB1)); } } //-------------------------------------------------------- // Определение точки пересечения RL400 медианы. Конец. //------------------------------------------------------- //-------------------------------------------------------- // Вывод произвольных фибовееров. Начало. //-------------------------------------------------------- void screenFiboFan() { double a1,b1; if (afrl[mFan[0]]>0) { a1=afrl[mFan[0]]; b1=afrh[mFan[1]]; } else { a1=afrh[mFan[0]]; b1=afrl[mFan[1]]; } nameObj="FiboFan" + ExtComplekt+"_"; if (mFan[1]>0) { if (ExtSave) { nameObj=nameObj + save; } } ObjectDelete(nameObj); ObjectCreate(nameObj,OBJ_FIBOFAN,0,afr[mFan[0]],a1,afr[mFan[1]],b1); ObjectSet(nameObj,OBJPROP_LEVELSTYLE,STYLE_DASH); ObjectSet(nameObj,OBJPROP_LEVELCOLOR,ExtFiboFanColor); ObjectSet(nameObj,OBJPROP_BACK,ExtBack); screenFibo(); } //-------------------------------------------------------- // Вывод произвольных фибовееров. Конец. //-------------------------------------------------------- //-------------------------------------------------------- // Список фиб. Начало. //-------------------------------------------------------- void screenFibo() { if (!ExtFiboType) { // ObjectSet(nameObj,OBJPROP_FIBOLEVELS,18); ObjectSet(nameObj,OBJPROP_FIBOLEVELS,9); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+0,0.236); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+1,0.382); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+2,0.5); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+3,0.618); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+4,0.764); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+5,0.854); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+6,1.0); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+7,1.618); // ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+8,2.0); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+8,2.618); /* ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+9,-0.236); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+10,-0.382); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+11,-0.5); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+12,-0.618); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+13,-0.764); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+14,-1.0); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+15,-1.618); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+16,-2.0); ObjectSet(nameObj,OBJPROP_FIRSTLEVEL+17,-2.618); */ // if (ExtFiboFanHidden) // { ObjectSetFiboDescription(nameObj, 0, "23.6"); ObjectSetFiboDescription(nameObj, 1, "38.2"); ObjectSetFiboDescription(nameObj, 2, "50.0"); ObjectSetFiboDescription(nameObj, 3, "61.8"); ObjectSetFib