Индикаторы: Индикатор анализа свечных фигур

MetaQuotes 2010.01.17 08:27

Индикатор ищет различные фигуры свечей и выдает сигнал при появлении новой фигуры.

Владимир 2010.01.18 21:48 #1

Прикольный индикатор. :) Только у меня на графике только модели поглощения есть. Пинцет то я сделал.. Видимо остальные модели надо самому додумывать... Да? А как быть с молотом, повешенным, дожи и др?

У меня предложение! Может быть кто нибудь отважится провести работу по забиванию в данный индикатор других моделей? И выложит здесь))

Тестер: Визуализация тестирования. Графики Библиотеки: Библиотека NeuroNet и EURUSD - Тенденции, прогнозы

Vladimir Khlystov 2010.01.19 10:21 #2

vldim:

Поддерживаю! Именно для этого я и написал этот индикатор. Давайте работать вместе.

Алексей 2010.01.20 16:50 #3

Доброго времени суток. У меня вопрос, может автор реализовать чтобы вместо баров рисовались японские свечи. Так было бы удобней.

Vladimir Khlystov 2010.01.20 18:16 #4

Temnyj:

Замените функцию

int Redraw(int bar,color col,string name)
{
   if (!DrawCandle) return;
   name = StringConcatenate(name," ",TimeToStr(Time[bar],TIME_DATE|TIME_SECONDS));
   ObjectCreate(name, OBJ_TREND, 0,Time[bar],High[bar],Time[bar],Low[bar]);
   ObjectSet   (name, OBJPROP_COLOR, col);
   ObjectSet   (name, OBJPROP_STYLE, STYLE_SOLID);
   ObjectSet   (name, OBJPROP_BACK,  false);    
   ObjectSet   (name, OBJPROP_RAY,   false);
   ObjectSet   (name, OBJPROP_WIDTH, 2);
   name=StringConcatenate(name," o");
   ObjectCreate(name, OBJ_TREND, 0,Time[bar+1],Open[bar],Time[bar],Open[bar]);
   ObjectSet   (name, OBJPROP_COLOR, col);
   ObjectSet   (name, OBJPROP_STYLE, STYLE_SOLID);
   ObjectSet   (name, OBJPROP_BACK,  false);    
   ObjectSet   (name, OBJPROP_RAY,   false);
   ObjectSet   (name, OBJPROP_WIDTH, 2);
   name=StringConcatenate(name," c");
   ObjectCreate(name, OBJ_TREND, 0,Time[bar],Close[bar],Time[bar]+Period()*60,Close[bar]);
   ObjectSet   (name, OBJPROP_COLOR, col);
   ObjectSet   (name, OBJPROP_STYLE, STYLE_SOLID);
   ObjectSet   (name, OBJPROP_BACK,  false);    
   ObjectSet   (name, OBJPROP_RAY,   false);
   ObjectSet   (name, OBJPROP_WIDTH, 2);
}

на

int Redraw(int bar,color col,string name)
{
   if (!DrawCandle) return;
   name = StringConcatenate(name," ",TimeToStr(Time[bar],TIME_DATE|TIME_SECONDS));
   ObjectCreate(name, OBJ_TREND, 0,Time[bar],High[bar],Time[bar],Low[bar]);
   ObjectSet   (name, OBJPROP_COLOR, col);
   ObjectSet   (name, OBJPROP_STYLE, STYLE_SOLID);
   ObjectSet   (name, OBJPROP_BACK,  false);    
   ObjectSet   (name, OBJPROP_RAY,   false);
   ObjectSet   (name, OBJPROP_WIDTH, 2);
   name = StringConcatenate(name," ",TimeToStr(Time[bar],TIME_DATE|TIME_SECONDS));
   ObjectCreate(name, OBJ_TREND, 0,Time[bar],Open[bar],Time[bar],Close[bar]);
   ObjectSet   (name, OBJPROP_COLOR, col);
   ObjectSet   (name, OBJPROP_STYLE, STYLE_SOLID);
   ObjectSet   (name, OBJPROP_BACK,  false);    
   ObjectSet   (name, OBJPROP_RAY,   false);
   ObjectSet   (name, OBJPROP_WIDTH, 6);
}

и получите такую картинку:

Удачи!

[Удален] 2010.01.27 00:02 #5

Будьте добры помогите добавит фигуры из этого и сделать как у вас. Заранее спасибо!

#property indicator_chart_window

#property indicator_buffers 2

#property indicator_color1 Yellow

#property indicator_color2 Yellow

extern bool Show_Alert = true;

extern bool Display_ShootStar_2 = true;

extern bool Show_ShootStar_Alert_2 = true;

extern bool Display_ShootStar_3 = true;

extern bool Show_ShootStar_Alert_3 = true;

extern bool Display_ShootStar_4 = true;

extern bool Show_ShootStar_Alert_4 = true;

extern color Color_ShootStar = Crimson;

int Text_ShootStar = 8;

extern bool Display_Hammer_2 = true;

extern bool Show_Hammer_Alert_2 = true;

extern bool Display_Hammer_3 = true;

extern bool Show_Hammer_Alert_3 = true;

extern bool Display_Hammer_4 = true;

extern bool Show_Hammer_Alert_4 = true;

extern color Color_Hammer = Lime;

int Text_Hammer = 8;

extern bool Display_Doji = true;

extern bool Show_Doji_Alert = true;

extern color Color_Doji = Crimson;

int Text_Doji = 8;

extern bool Display_Stars = true;

extern bool Show_Stars_Alert = true;

extern int Star_Body_Length = 5;

extern color Color_Star = Lime;

int Text_Star = 8;

extern bool Display_Dark_Cloud_Cover = true;

extern bool Show_DarkCC_Alert = true;

extern color Color_DarkCC = Crimson;

int Text_DarkCC = 8;

extern bool Display_Piercing_Line = true;

extern bool Show_Piercing_Line_Alert = true;

extern color Color_Piercing_Line = Lime;

int Text_Piercing_Line = 8;

extern bool Display_Bearish_Engulfing = true;

extern bool Show_Bearish_Engulfing_Alert = true;

extern color Color_Bearish_Engulfing = Crimson;

int Text_Bearish_Engulfing = 8;

extern bool Display_Bullish_Engulfing = false;

extern bool Show_Bullish_Engulfing_Alert = false;

extern color Color_Bullish_Engulfing = Lime;

int Text_Bullish_Engulfing = 8;

//---- buffers

double upArrow[];

double downArrow[];

//+------------------------------------------------------------------+

//| Custom indicator initialization function |

//+------------------------------------------------------------------+

int init() {

//---- indicators

SetIndexStyle(0,DRAW_ARROW, EMPTY);

SetIndexArrow(0,72);

SetIndexBuffer(0, downArrow);

SetIndexStyle(1,DRAW_ARROW, EMPTY);

SetIndexArrow(1,71);

SetIndexBuffer(1, upArrow);

return(0);

}

//+------------------------------------------------------------------+

//| Custom indicator deinitialization function |

//+------------------------------------------------------------------+

int deinit() {

ObjectsDeleteAll(0, OBJ_TEXT);

return(0);

}

//+------------------------------------------------------------------+

//| Custom indicator iteration function |

//+------------------------------------------------------------------+

int start(){

Comment("\n", "\n", "Медвежий",

"\n", "SS 2,3,4 - Падающая звезда",

"\n", "E_Star - Вечерняя звезда",

"\n", "E_Doji - Вечерняя звезда doji",

"\n", "DCC - Завеса из тёмных облаков",

"\n", "S_E - Медвежья модель поглащения",

"\n", "\n", "Бычий",

"\n", "HMR 2,3,4 - Бычий молот",

"\n", "M_Star - Утренняя звезда",

"\n", "M_Doji - Утренняя звезда doji",

"\n", "P_L - Просвет в облаках",

"\n", "L_E - Бычья модель поглощения");

double Range, AvgRange;

int counter, setalert;

static datetime prevtime = 0;

int shift;

int shift1;

int shift2;

int shift3;

int shift4;

string pattern, period;

int setPattern = 0;

int alert = 0;

int arrowShift;

int textShift;

double O, O1, O2, C, C1, C2, C3, L, L1, L2, L3, H, H1, H2, H3;

double CL, CLmin, CL1, CL2, BL, BLa, BL90, BL1, BL2, UW, UWa, UW1, UW2, LW, LWa, LW1, LW2, BodyHigh, BodyLow;

BodyHigh = 0;

BodyLow = 0;

double Doji_Star_Ratio = 0;

double Doji_MinLength = 0;

double Star_MinLength = 0;

int Pointer_Offset = 0; // The offset value for the arrow to be located off the candle high or low point.

int High_Offset = 0; // The offset value added to the high arrow pointer for correct plotting of the pattern label.

int Offset_ShootStar = 0; // The offset value of the shooting star above or below the pointer arrow.

int Offset_Hammer = 0; // The offset value of the hammer above or below the pointer arrow.

int Offset_Doji = 0; // The offset value of the doji above or below the pointer arrow.

int Offset_Star = 0; // The offset value of the star above or below the pointer arrow.

int Offset_Piercing_Line = 0; // The offset value of the piercing line above or below the pointer arrow.

int Offset_DarkCC = 0; // The offset value of the dark cloud cover above or below the pointer arrow.

int Offset_Bullish_Engulfing = 0;

int Offset_Bearish_Engulfing = 0;

int CumOffset = 0; // The counter value to be added to as more candle types are met.

int IncOffset = 0; // The offset value that is added to a cummaltive offset value for each pass through the routine so any

// additional candle patterns that are also met, the label will print above the previous label.

double Piercing_Line_Ratio = 0;

int Piercing_Candle_Length = 0;

int Engulfing_Length = 0;

double Candle_WickBody_Percent = 0;

int CandleLength = 0;

if(prevtime == Time[0]) {

return(0);

}

prevtime = Time[0];

switch (Period()) {

case 1:

period = "M1";

Doji_Star_Ratio = 0;

Piercing_Line_Ratio = 0.5;

Piercing_Candle_Length = 10;

Engulfing_Length = 10;

Candle_WickBody_Percent = 0.9;

CandleLength = 12;

Pointer_Offset = 9;

High_Offset = 15;

Offset_Hammer = 5;

Offset_ShootStar = 5;

Offset_Doji = 5;

Offset_Star = 5;

Offset_Piercing_Line = 5;

Offset_DarkCC = 5;

Offset_Bearish_Engulfing = 5;

Offset_Bullish_Engulfing = 5;

Text_ShootStar = 8;

Text_Hammer = 8;

Text_Star = 8;

Text_DarkCC = 8;

Text_Piercing_Line = 8;

Text_Bearish_Engulfing = 8;

Text_Bullish_Engulfing = 8;

IncOffset = 16;

break;

case 5:

period = "M5";

Doji_Star_Ratio = 0;

Piercing_Line_Ratio = 0.5;

Piercing_Candle_Length = 10;

Engulfing_Length = 10;

Candle_WickBody_Percent = 0.9;

CandleLength = 12;

Pointer_Offset = 9;

High_Offset = 15;

Offset_Hammer = 5;

Offset_ShootStar = 5;

Offset_Doji = 5;

Offset_Star = 5;

Offset_Piercing_Line = 5;

Offset_DarkCC = 5;

Offset_Bearish_Engulfing = 5;

Offset_Bullish_Engulfing = 5;

Text_ShootStar = 8;

Text_Hammer = 8;

Text_Star = 8;

Text_DarkCC = 8;

Text_Piercing_Line = 8;

Text_Bearish_Engulfing = 8;

Text_Bullish_Engulfing = 8;

IncOffset = 16;

break;

case 15:

period = "M15";

Doji_Star_Ratio = 0;

Piercing_Line_Ratio = 0.5;

Piercing_Candle_Length = 10;

Engulfing_Length = 0;

Candle_WickBody_Percent = 0.9;

CandleLength = 12;

Pointer_Offset = 9;

High_Offset = 15;

Offset_Hammer = 5;

Offset_ShootStar = 5;

Offset_Doji = 5;

Offset_Star = 5;

Offset_Piercing_Line = 5;

Offset_DarkCC = 5;

Offset_Bearish_Engulfing = 5;

Offset_Bullish_Engulfing = 5;

Text_ShootStar = 8;

Text_Hammer = 8;

Text_Star = 8;

Text_DarkCC = 8;

Text_Piercing_Line = 8;

Text_Bearish_Engulfing = 8;

Text_Bullish_Engulfing = 8;

IncOffset = 16;

break;

case 30:

period = "M30";

Doji_Star_Ratio = 0;

Piercing_Line_Ratio = 0.5;

Piercing_Candle_Length = 10;

Engulfing_Length = 15;

Candle_WickBody_Percent = 0.9;

CandleLength = 12;

Pointer_Offset = 9;

High_Offset = 15;

Offset_Hammer = 5;

Offset_ShootStar = 5;

Offset_Doji = 5;

Offset_Star = 5;

Offset_Piercing_Line = 5;

Offset_DarkCC = 5;

Offset_Bearish_Engulfing = 5;

Offset_Bullish_Engulfing = 5;

Text_ShootStar = 8;

Text_Hammer = 8;

Text_Star = 8;

Text_DarkCC = 8;

Text_Piercing_Line = 8;

Text_Bearish_Engulfing = 8;

Text_Bullish_Engulfing = 8;

IncOffset = 16;

break;

case 60:

period = "H1";

Doji_Star_Ratio = 0;

Piercing_Line_Ratio = 0.5;

Piercing_Candle_Length = 10;

Engulfing_Length = 25;

Candle_WickBody_Percent = 0.9;

CandleLength = 12;

Pointer_Offset = 9;

High_Offset = 20;

Offset_Hammer = 8;

Offset_ShootStar = 8;

Offset_Doji = 8;

Offset_Star = 8;

Offset_Piercing_Line = 8;

Offset_DarkCC = 8;

Offset_Bearish_Engulfing = 8;

Offset_Bullish_Engulfing = 8;

Text_ShootStar = 8;

Text_Hammer = 8;

Text_Star = 8;

Text_DarkCC = 8;

Text_Piercing_Line = 8;

Text_Bearish_Engulfing = 8;

Text_Bullish_Engulfing = 8;

IncOffset = 18;

break;

case 240:

period = "H4";

Doji_Star_Ratio = 0;

Piercing_Line_Ratio = 0.5;

Piercing_Candle_Length = 10;

Engulfing_Length = 20;

Candle_WickBody_Percent = 0.9;

CandleLength = 12;

Pointer_Offset = 20;

High_Offset = 40;

Offset_Hammer = 10;

Offset_ShootStar = 10;

Offset_Doji = 10;

Offset_Star = 10;

Offset_Piercing_Line = 10;

Offset_DarkCC = 10;

Offset_Bearish_Engulfing = 10;

Offset_Bullish_Engulfing = 10;

Text_ShootStar = 8;

Text_Hammer = 8;

Text_Star = 8;

Text_DarkCC = 8;

Text_Piercing_Line = 8;

Text_Bearish_Engulfing = 8;

Text_Bullish_Engulfing = 8;

IncOffset = 25;

break;

case 1440:

period = "D1";

Doji_Star_Ratio = 0;

Piercing_Line_Ratio = 0.5;

Piercing_Candle_Length = 10;

Engulfing_Length = 30;

Candle_WickBody_Percent = 0.9;

CandleLength = 12;

Pointer_Offset = 9;

High_Offset = 80;

Offset_Hammer = 15;

Offset_ShootStar = 15;

Offset_Doji = 15;

Offset_Star = 15;

Offset_Piercing_Line = 15;

Offset_DarkCC = 15;

Offset_Bearish_Engulfing = 15;

Offset_Bullish_Engulfing = 15;

Text_ShootStar = 8;

Text_Hammer = 8;

Text_Star = 8;

Text_DarkCC = 8;

Text_Piercing_Line = 8;

Text_Bearish_Engulfing = 8;

Text_Bullish_Engulfing = 8;

IncOffset = 60;

break;

case 10080:

period = "W1";

Doji_Star_Ratio = 0;

Piercing_Line_Ratio = 0.5;

Piercing_Candle_Length = 10;

Engulfing_Length = 40;

Candle_WickBody_Percent = 0.9;

CandleLength = 12;

Pointer_Offset = 9;

High_Offset = 35;

Offset_Hammer = 20;

Offset_ShootStar = 20;

Offset_Doji = 20;

Offset_Star = 20;

Offset_Piercing_Line = 20;

Offset_DarkCC = 20;

Offset_Bearish_Engulfing = 20;

Offset_Bullish_Engulfing = 20;

Text_ShootStar = 8;

Text_Hammer = 8;

Text_Star = 8;

Text_DarkCC = 8;

Text_Piercing_Line = 8;

Text_Bearish_Engulfing = 8;

Text_Bullish_Engulfing = 8;

IncOffset = 35;

break;

case 43200:

period = "MN";

Doji_Star_Ratio = 0;

Piercing_Line_Ratio = 0.5;

Piercing_Candle_Length = 10;

Engulfing_Length = 50;

Candle_WickBody_Percent = 0.9;

CandleLength = 12;

Pointer_Offset = 9;

High_Offset = 45;

Offset_Hammer = 30;

Offset_ShootStar = 30;

Offset_Doji = 30;

Offset_Star = 30;

Offset_Piercing_Line = 30;

Offset_DarkCC = 30;

Offset_Bearish_Engulfing = 30;

Offset_Bullish_Engulfing = 30;

Text_ShootStar = 8;

Text_Hammer = 8;

Text_Star = 8;

Text_DarkCC = 8;

Text_Piercing_Line = 8;

Text_Bearish_Engulfing = 8;

Text_Bullish_Engulfing = 8;

IncOffset = 45;

break;

}

for (shift = 0; shift < Bars; shift++) {

CumOffset = 0;

setalert = 0;

counter=shift;

Range=0;

AvgRange=0;

for (counter=shift ;counter<=shift+9;counter++) {

AvgRange=AvgRange+MathAbs(High[counter]-Low[counter]);

}

Range=AvgRange/10;

shift1 = shift + 1;

shift2 = shift + 2;

shift3 = shift + 3;

shift4 = shift + 4;

O = Open[shift1];

O1 = Open[shift2];

O2 = Open[shift3];

H = High[shift1];

H1 = High[shift2];

H2 = High[shift3];

H3 = High[shift4];

L = Low[shift1];

L1 = Low[shift2];

L2 = Low[shift3];

L3 = Low[shift4];

C = Close[shift1];

C1 = Close[shift2];

C2 = Close[shift3];

C3 = Close[shift4];

if (O>C) {

BodyHigh = O;

BodyLow = C; }

else {

BodyHigh = C;

BodyLow = O; }

CL = High[shift1]-Low[shift1];

CL1 = High[shift2]-Low[shift2];

CL2 = High[shift3]-Low[shift3];

BL = Open[shift1]-Close[shift1];

UW = High[shift1]-BodyHigh;

LW = BodyLow-Low[shift1];

BLa = MathAbs(BL);

BL90 = BLa*Candle_WickBody_Percent;

// Bearish Patterns

// Check for Bearish Shooting ShootStar

if ((H>=H1)&&(H>H2)&&(H>H3)) {

if (((UW/2)>LW)&&(UW>(2*BL90))&&(CL>=(CandleLength*Point))&&(O!=C)&&((UW/3)<=LW)&&((UW/4)<=LW)/*&&(L>L1)&&(L>L2)*/) {

if (Display_ShootStar_2 == true) {

ObjectCreate(GetName("SS 2",shift), OBJ_TEXT, 0, Time[shift1], High[shift1] + (Pointer_Offset+Offset_ShootStar+High_Offset+CumOffset)*Point);

ObjectSetText(GetName("SS 2",shift), "SS 2", Text_ShootStar, "Times New Roman", Color_ShootStar);

CumOffset = CumOffset+IncOffset;

downArrow[shift1] = High[shift1] + (Pointer_Offset*Point);

}

if (Show_ShootStar_Alert_2) {

if (setalert == 0 && Show_Alert == true) {

pattern = "Shooting ShootStar 2";

setalert = 1;

}

// Check for Bearish Shooting ShootStar

if ((H>=H1)&&(H>H2)&&(H>H3)) {

if (((UW/3)>LW)&&(UW>(2*BL90))&&(CL>=(CandleLength*Point))&&(O!=C)&&((UW/4)<=LW)/*&&(L>L1)&&(L>L2)*/) {

if (Display_ShootStar_3 == true) {

ObjectCreate(GetName("SS 3",shift), OBJ_TEXT, 0, Time[shift1], High[shift1] + (Pointer_Offset+Offset_ShootStar+High_Offset+CumOffset)*Point);

ObjectSetText(GetName("SS 3",shift), "SS 3", Text_ShootStar, "Times New Roman", Color_ShootStar);

CumOffset = CumOffset+IncOffset;

downArrow[shift1] = High[shift1] + (Pointer_Offset*Point);

}

if (Show_ShootStar_Alert_3) {

if (setalert == 0 && Show_Alert == true) {

pattern = "Shooting ShootStar 3";

setalert = 1;

}

// Check for Bearish Shooting ShootStar

if ((H>=H1)&&(H>H2)&&(H>H3)) {

if (((UW/4)>LW)&&(UW>(2*BL90))&&(CL>=(CandleLength*Point))&&(O!=C)/*&&(L>L1)&&(L>L2)*/) {

if (Display_ShootStar_4 == true) {

ObjectCreate(GetName("SS 4",shift), OBJ_TEXT, 0, Time[shift1], High[shift1] + (Pointer_Offset+Offset_ShootStar+High_Offset+CumOffset)*Point);

ObjectSetText(GetName("SS 4",shift), "SS 4", Text_ShootStar, "Times New Roman", Color_ShootStar);

CumOffset = CumOffset+IncOffset;

downArrow[shift1] = High[shift1] + (Pointer_Offset*Point);

}

if (Show_ShootStar_Alert_4) {

if (setalert == 0 && Show_Alert == true) {

pattern = "Shooting ShootStar 4";

setalert = 1;

}

// Check for Evening Star pattern

if ((H>=H1)&&(H1>H2)&&(H1>H3)) {

if (/*(L>O1)&&*/(BLa<(Star_Body_Length*Point))&&(C2>O2)&&(!O==C)&&((C2-O2)/(0.001+H2-L2)>Doji_Star_Ratio)/*&&(C2<O1)*/&&(C1>O1)/*&&((H1-L1)>(3*(C1-O1)))*/&&(O>C)&&(CL>=(Star_MinLength*Point))){

if (Display_Stars == true) {

ObjectCreate(GetName("Star",shift), OBJ_TEXT, 0, Time[shift1], High[shift1] + (Pointer_Offset+Offset_Star+High_Offset+CumOffset)*Point);

ObjectSetText(GetName("Star",shift), "E_Star", Text_Star, "Times New Roman", Color_Star);

CumOffset = CumOffset+IncOffset;

downArrow[shift1] = High[shift1] + (Pointer_Offset*Point);

}

if (Show_Stars_Alert) {

if (setalert == 0 && Show_Alert == true) {

pattern="Evening Star Pattern";

setalert = 1;

}

// Check for Evening Doji Star pattern

if ((H>=H1)&&(H1>H2)&&(H1>H3)) {

if (/*(L>O1)&&*/(O==C)&&((C2>O2)&&(C2-O2)/(0.001+H2-L2)>Doji_Star_Ratio)/*&&(C2<O1)*/&&(C1>O1)/*&&((H1-L1)>(3*(C1-O1)))*/&&(CL>=(Doji_MinLength*Point))) {

if (Display_Doji == true) {

ObjectCreate(GetName("Doji",shift), OBJ_TEXT, 0, Time[shift1], High[shift1] + (Pointer_Offset+Offset_Doji+High_Offset+CumOffset)*Point);

ObjectSetText(GetName("Doji",shift), "E_Doji", Text_Doji, "Times New Roman", Color_Doji);

CumOffset = CumOffset+IncOffset;

downArrow[shift1] = High[shift1] + (Pointer_Offset*Point);

}

if (Show_Doji_Alert) {

if (setalert == 0 && Show_Alert == true) {

pattern="Evening Doji Star Pattern";

setalert = 1;

}

// Check for a Dark Cloud Cover pattern

if ((C1>O1)&&(((C1+O1)/2)>C)&&(O>C)/*&&(O>C1)*/&&(C>O1)&&((O-C)/(0.001+(H-L))>Piercing_Line_Ratio)&&((CL>=Piercing_Candle_Length*Point))) {

if (Display_Dark_Cloud_Cover == true) {

ObjectCreate(GetName("DCC",shift), OBJ_TEXT, 0, Time[shift1], High[shift1] + (Pointer_Offset+Offset_DarkCC+High_Offset+CumOffset)*Point);

ObjectSetText(GetName("DCC",shift), "DCC", Text_DarkCC, "Times New Roman", Color_DarkCC);

CumOffset = CumOffset+IncOffset;

downArrow[shift1] = High[shift1] + (Pointer_Offset*Point);

}

if (Show_DarkCC_Alert) {

if (setalert == 0 && Show_Alert == true) {

pattern="Dark Cloud Cover Pattern";

setalert = 1;

}

// Check for Bearish Engulfing pattern

if ((C1>O1)&&(O>C)&&(O>=C1)&&(O1>=C)&&((O-C)>(C1-O1))&&(CL>=(Engulfing_Length*Point))) {

if (Display_Bearish_Engulfing == true) {

ObjectCreate(GetName("S_E",shift), OBJ_TEXT, 0, Time[shift1], High[shift1] + (Pointer_Offset+Offset_Bearish_Engulfing+High_Offset+CumOffset)*Point);

ObjectSetText(GetName("S_E",shift), "S_E", Text_Bearish_Engulfing, "Times New Roman", Color_Bearish_Engulfing);

CumOffset = CumOffset+IncOffset;

downArrow[shift1] = High[shift1] + (Pointer_Offset*Point);

}

if (Show_Bearish_Engulfing_Alert) {

if (setalert == 0 && Show_Alert == true) {

pattern = "Bearish Engulfing Pattern";

setalert = 1;

}

// End of Bearish Patterns

// Bullish Patterns

// Check for Bullish Hammer

if ((L<=L1)&&(L<L2)&&(L<L3)) {

if (((LW/2)>UW)&&(LW>BL90)&&(CL>=(CandleLength*Point))&&(O!=C)&&((LW/3)<=UW)&&((LW/4)<=UW)/*&&(H<H1)&&(H<H2)*/) {

if (Display_Hammer_2 == true) {

ObjectCreate(GetName("HMR 2",shift), OBJ_TEXT, 0, Time[shift1], Low[shift1] - (Pointer_Offset+Offset_Hammer+CumOffset)*Point);

ObjectSetText(GetName("HMR 2",shift), "HMR 2", Text_Hammer, "Times New Roman", Color_Hammer);

CumOffset = CumOffset+IncOffset;

upArrow[shift1] = Low[shift1] - (Pointer_Offset*Point);

}

if (Show_Hammer_Alert_2) {

if (setalert == 0 && Show_Alert == true) {

pattern = "Bullish Hammer 2";

setalert = 1;

}

// Check for Bullish Hammer

if ((L<=L1)&&(L<L2)&&(L<L3)) {

if (((LW/3)>UW)&&(LW>BL90)&&(CL>=(CandleLength*Point))&&(O!=C)&&((LW/4)<=UW)/*&&(H<H1)&&(H<H2)*/) {

if (Display_Hammer_3 == true) {

ObjectCreate(GetName("HMR 3",shift), OBJ_TEXT, 0, Time[shift1], Low[shift1] - (Pointer_Offset+Offset_Hammer+CumOffset)*Point);

ObjectSetText(GetName("HMR 3",shift), "HMR 3", Text_Hammer, "Times New Roman", Color_Hammer);

CumOffset = CumOffset+IncOffset;

upArrow[shift1] = Low[shift1] - (Pointer_Offset*Point);

}

if (Show_Hammer_Alert_3) {

if (setalert == 0 && Show_Alert == true) {

pattern = "Bullish Hammer 3";

setalert = 1;

}

// Check for Bullish Hammer

if ((L<=L1)&&(L<L2)&&(L<L3)) {

if (((LW/4)>UW)&&(LW>BL90)&&(CL>=(CandleLength*Point))&&(O!=C)/*&&(H<H1)&&(H<H2)*/) {

if (Display_Hammer_4 == true) {

ObjectCreate(GetName("HMR 4",shift), OBJ_TEXT, 0, Time[shift1], Low[shift1] - (Pointer_Offset+Offset_Hammer+CumOffset)*Point);

ObjectSetText(GetName("HMR 4",shift), "HMR 4", Text_Hammer, "Times New Roman", Color_Hammer);

CumOffset = CumOffset+IncOffset;

upArrow[shift1] = Low[shift1] - (Pointer_Offset*Point);

}

if (Show_Hammer_Alert_4) {

if (setalert == 0 && Show_Alert == true) {

pattern = "Bullish Hammer 4";

setalert = 1;

}

// Check for Morning Star

if ((L<=L1)&&(L1<L2)&&(L1<L3)) {

if (/*(H1<(BL/2))&&*/(BLa<(Star_Body_Length*Point))&&(!O==C)&&((O2>C2)&&((O2-C2)/(0.001+H2-L2)>Doji_Star_Ratio))/*&&(C2>O1)*/&&(O1>C1)/*&&((H1-L1)>(3*(C1-O1)))*/&&(C>O)&&(CL>=(Star_MinLength*Point))) {

if (Display_Stars == true) {

ObjectCreate(GetName("Star",shift), OBJ_TEXT, 0, Time[shift1], Low[shift1] - (Pointer_Offset+Offset_Star+CumOffset)*Point);

ObjectSetText(GetName("Star",shift), "M_Star", Text_Star, "Times New Roman", Color_Star);

CumOffset = CumOffset+IncOffset;

upArrow[shift1] = Low[shift1] - (Pointer_Offset*Point);

}

if (Show_Stars_Alert) {

if (shift == 0 && Show_Alert == true) {

pattern="Morning Star Pattern";

setalert = 1;

}

// Check for Morning Doji Star

if ((L<=L1)&&(L1<L2)&&(L1<L3)) {

if (/*(H1<(BL/2))&&*/(O==C)&&((O2>C2)&&((O2-C2)/(0.001+H2-L2)>Doji_Star_Ratio))/*&&(C2>O1)*/&&(O1>C1)/*&&((H1-L1)>(3*(C1-O1)))*/&&(CL>=(Doji_MinLength*Point))) {

if (Display_Doji == true) {

ObjectCreate(GetName("Doji",shift), OBJ_TEXT, 0, Time[shift1], Low[shift1] - (Pointer_Offset+Offset_Doji+CumOffset)*Point);

ObjectSetText(GetName("Doji",shift), "M_Doji", Text_Doji, "Times New Roman", Color_Doji);

CumOffset = CumOffset+IncOffset;

upArrow[shift1] = Low[shift1] - (Pointer_Offset*Point);

}

if (Show_Doji_Alert) {

if (shift == 0 && Show_Alert == true) {

pattern="Morning Doji Pattern";

setalert = 1;

}

// Check for Piercing Line pattern

if ((C1<O1)&&(((O1+C1)/2)<C)&&(O<C)/*&&(O<C1)*//*&&(C<O1)*/&&((C-O)/(0.001+(H-L))>Piercing_Line_Ratio)&&(CL>=(Piercing_Candle_Length*Point))) {

if (Display_Piercing_Line == true) {

ObjectCreate(GetName("PrcLn",shift), OBJ_TEXT, 0, Time[shift1], Low[shift1] - (Pointer_Offset+Offset_Piercing_Line+CumOffset)*Point);

ObjectSetText(GetName("PrcLn",shift), "P_L", Text_Piercing_Line, "Times New Roman", Color_Piercing_Line);

CumOffset = CumOffset+IncOffset;

upArrow[shift1] = Low[shift1] - (Pointer_Offset*Point);

}

if (Show_Piercing_Line_Alert) {

if (shift == 0 && Show_Alert == true) {

pattern="Piercing Line Pattern";

setalert = 1;

}

// Check for Bullish Engulfing pattern

if ((O1>C1)&&(C>O)&&(C>=O1)&&(C1>=O)&&((C-O)>(O1-C1))&&(CL>=(Engulfing_Length*Point))) {

if (Display_Bullish_Engulfing) {

ObjectCreate(GetName("L_E",shift), OBJ_TEXT, 0, Time[shift1], Low[shift1] - (Pointer_Offset+Offset_Bullish_Engulfing+CumOffset)*Point);

ObjectSetText(GetName("L_E",shift), "L_E", Text_Bullish_Engulfing, "Times New Roman", Color_Bullish_Engulfing);

CumOffset = CumOffset+IncOffset;

upArrow[shift1] = Low[shift1] - (Pointer_Offset*Point);

}

if (Show_Bullish_Engulfing_Alert) {

if (shift == 0 && Show_Alert == true) {

pattern="Bullish Engulfing Pattern";

setalert = 1;

}

// End of Bullish Patterns

if (setalert == 1 && shift == 0) {

Alert(Symbol(), " ", period, " ", pattern);

setalert = 0;

}

CumOffset = 0;

} // End of for loop

return(0);

}

//+------------------------------------------------------------------+

string GetName(string aName,int shift)

{

return(aName+DoubleToStr(Time[shift],0));

}

Помощь в кодировании Помогите найти ошибку 4051 Японские свечи- хороший индикатор

Vladimir Khlystov 2010.01.27 10:40 #6

strojiz:

Будьте добры помогите добавит фигуры из этого и сделать как у вас. Заранее спасибо!

У меня мало времени на бесплатные доработки, но если Вы очень в этом заинтересованы, то могу предложить поработать совместно.

Вы описываете мне фигуры, используя величины баров (H-макс L-мин O-откр C-закр) следующим образом

Пример: Н1>H2 и H2>H3 и (L1-L2)<(L3-L4) = фигура Х

где Н1 - максимум 1 свечи L3 минимум 3 свечи (счет свечей справа налево, т.е. текущая - 0, прошлая - 1 и т.д.)

и так все фигуры и скидываете мне на почту cmilliom@narod.ru, я их заношу в код и выкладываю на сайте.

С уважением Владимир.

Ошибки при работе с Нужно написать простой индикатор Почему перерисовывается индикатор?

Савва 2010.01.29 18:00 #7

cmillion:

strojiz:

Будьте добры помогите добавит фигуры из этого и сделать как у вас. Заранее спасибо!

Вы описываете мне фигуры, используя величины баров (H-макс L-мин O-откр C-закр) следующим образом

Пример: Н1>H2 и H2>H3 и (L1-L2)<(L3-L4) = фигура Х

где Н1 - максимум 1 свечи L3 минимум 3 свечи (счет свечей справа налево, т.е. текущая - 0, прошлая - 1 и т.д.)

и так все фигуры и скидываете мне на почту cmilliom@narod.ru, я их заношу в код и выкладываю на сайте.

С уважением Владимир.

По моему, все это уже давно сделано, включая все свечные фигуры.

Vladimir Khlystov 2010.05.07 17:16 #8

savva08:

cmillion:

strojiz:

Будьте добры помогите добавит фигуры из этого и сделать как у вас. Заранее спасибо!

Вы описываете мне фигуры, используя величины баров (H-макс L-мин O-откр C-закр) следующим образом

Пример: Н1>H2 и H2>H3 и (L1-L2)<(L3-L4) = фигура Х

где Н1 - максимум 1 свечи L3 минимум 3 свечи (счет свечей справа налево, т.е. текущая - 0, прошлая - 1 и т.д.)

и так все фигуры и скидываете мне на почту cmilliom@narod.ru, я их заношу в код и выкладываю на сайте.

С уважением Владимир.

По моему, все это уже давно сделано, включая все свечные фигуры.

Все в этом мире уже придумано и сделано, мы можем лишь повторить и улучшить.

[Удален] 2010.05.27 15:56 #9

А есть ли возможность создать советник по этому индикатору?

Vladimir Khlystov 2010.06.26 19:36 #10

DaVinci:
А есть ли возможность создать советник по этому индикатору?

Конечно есть, пишите на почту cmillion@narod.ru а то я в эту ветку захожу очень редко

1 2

Новый комментарий