//+------------------------------------------------------------------+
//| maloma 4 vicont 1-2-3.mq4 |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, maloma."
#property indicator_chart_window
extern double level_1=1.2971;//1.2937;//1.2937;
extern double level_2=1.2694;//1.2725;//1.2630;
extern double level_3=1.2978;//1.2874;//1.2829;
/*
extern double level_1=1.2764;//1.2483;//1.2937;
extern double level_2=1.2668;//1.2641;//1.2630;
extern double level_3=1.2714;//1.2524;//1.2829;
*/
extern bool Show_etalon=true;
extern bool Show_target=true;
extern bool Show_true=true;
double level_4=0; double level_5=0; double level_6=0; double level_t=0;
double etalon_4=0; double etalon_5=0; double etalon_6=0;
double true_4=0; double true_5=0; double true_6=0;
int index_1=0; int index_2=0; int index_3=0; int index_4=0; int index_5=0; int index_6=0;
int p2d=0; int p3d=0;
bool get_4=false; bool get_5=false; bool get_6=false;
int init() {
int i=0;
if (level_3>level_2 && level_1>level_2) {p3d=1; p2d=-1;}
if (level_3<level_2 && level_1<level_2) {p3d=-1; p2d=1;}
if (p3d==1) {
while (index_3==0 && i<Bars){
if (High[i] == level_3) index_3=Time[i];
i++;}
while (index_2==0 && i<Bars){
if (Low[i] == level_2) index_2=Time[i];
i++;}
while (index_1==0 && i<Bars){
if (High[i] == level_1) index_1=Time[i];
i++;}
} else
if (p3d==-1) {
while (index_3==0 && i<Bars){
if (Low[i] == level_3) index_3=Time[i];
i++;}
while (index_2==0 && i<Bars){
if (High[i] == level_2) index_2=Time[i];
i++;}
while (index_1==0 && i<Bars){
if (Low[i] == level_1) index_1=Time[i];
i++;}
}
CreateText("Point_3","3",index_3,level_3+50*Point*p3d,FireBrick);
CreateText("Point_2","2",index_2,level_2+50*Point*p2d,FireBrick);
CreateText("Point_1","1",index_1,level_1+50*Point*p3d,FireBrick);
etalon_4=(level_3-(level_3-level_2)*1.62);
etalon_5=((level_3-(level_3-(level_3-(level_3-level_2)*1.62))/2)-(level_2-(level_3-(level_3-(level_3-(level_3-level_2)*1.62))/2)));
etalon_6=(((level_3-(level_3-level_2)*1.62)-((level_3-(level_3-level_2)*1.62)-((level_3-(level_3-(level_3-(level_3-level_2)*1.62))/2)-(level_2-(level_3-(level_3-(level_3-(level_3-level_2)*1.62))/2))))/2)-(level_1-((level_3-(level_3-level_2)*1.62)-((level_3-(level_3-level_2)*1.62)-((level_3-(level_3-(level_3-(level_3-level_2)*1.62))/2)-(level_2-(level_3-(level_3-(level_3-(level_3-level_2)*1.62))/2))))/2)));
if (Show_etalon) CreateObj("Etalon_4",OBJ_HLINE,Time[0],etalon_4,SaddleBrown,STYLE_DASHDOT);
if (Show_etalon) CreateObj("Etalon_5",OBJ_HLINE,Time[0],etalon_5,Teal,STYLE_DASHDOT);
if (Show_etalon) CreateObj("Etalon_6",OBJ_HLINE,Time[0],etalon_6,Purple,STYLE_DASHDOT);
}
int deinit(){
if (ObjectFind("Point_1")==0) ObjectDelete("Point_1");
if (ObjectFind("Point_2")==0) ObjectDelete("Point_2");
if (ObjectFind("Point_3")==0) ObjectDelete("Point_3");
if (ObjectFind("Point_4")==0) ObjectDelete("Point_4");
if (ObjectFind("Point_5")==0) ObjectDelete("Point_5");
if (ObjectFind("Point_6")==0) ObjectDelete("Point_6");
if (ObjectFind("Etalon_4")==0) ObjectDelete("Etalon_4");
if (ObjectFind("Etalon_5")==0) ObjectDelete("Etalon_5");
if (ObjectFind("Etalon_6")==0) ObjectDelete("Etalon_6");
if (ObjectFind("Level_4")==0) ObjectDelete("Level_4");
if (ObjectFind("Level_5")==0) ObjectDelete("Level_5");
if (ObjectFind("Level_6")==0) ObjectDelete("Level_6");
if (ObjectFind("True_4")==0) ObjectDelete("True_4");
if (ObjectFind("True_5")==0) ObjectDelete("True_5");
if (ObjectFind("True_6")==0) ObjectDelete("True_6");
Comment ("");
}
void find_4(int index, int dir) {
int tBar=iBarShift(Symbol(),0,index,false)-1;
if (tBar<0) return(0);
level_4=(level_3-(level_3-level_2)*1.62);
if (Show_target) CreateObj("Level_4",OBJ_HLINE,Time[0],level_4,Gold,STYLE_DOT);
for (int cb=tBar;cb>=0;cb--) {
if (dir==-1) {
if (true_4==0) double level=level_4; else level=true_4;
if (Low[cb]<=level && get_4==false) {
true_4=Low[cb];
index_4=Time[cb];
if (Show_true) CreateObj("True_4",OBJ_HLINE,Time[0],true_4,Gold,STYLE_DASH);
CreateText("Point_4","4",index_4,true_4+50*Point*p2d,Gold);
level_5=(level_3-(level_3-true_4)/2)-(level_2-(level_3-(level_3-true_4)/2));
if (Show_target) CreateObj("Level_5",OBJ_HLINE,Time[0],level_5,Aqua,STYLE_DOT); }
if (true_4!=0 && cb>0)
if (level_5<=High[cb-1]) {
get_4=true;
find_5(index_4,p3d);
}
}
if (dir==1) {
if (true_4==0) level=level_4; else level=true_4;
if (High[cb]>=level && get_4==false) {
true_4=High[cb];
index_4=Time[cb];
if (Show_true) CreateObj("True_4",OBJ_HLINE,Time[0],true_4,Gold,STYLE_DASH);
CreateText("Point_4","4",index_4,true_4+50*Point*p2d,Gold);
level_5=(level_3-(level_3-true_4)/2)-(level_2-(level_3-(level_3-true_4)/2));
if (Show_target) CreateObj("Level_5",OBJ_HLINE,Time[0],level_5,Aqua,STYLE_DOT); }
if (true_4!=0 && cb>0)
if (level_5>=Low[cb-1]) {
get_4=true;
find_5(index_4,p3d);
}
}
}
}
void find_5(int index, int dir) {
int tBar=iBarShift(Symbol(),0,index,false)-1;
if (tBar<0) return(0);
for (int cb=tBar;cb>=0;cb--) {
if (dir==-1) {
if (true_5==0) double level=level_5; else level=true_5;
if (Low[cb]<=level && get_5==false) {
true_5=Low[cb];
index_5=Time[cb];
if (Show_true) CreateObj("True_5",OBJ_HLINE,Time[0],true_5,Aqua,STYLE_DASH);
CreateText("Point_5","5",index_5,true_5+50*Point*p3d,Aqua);
level_6=(true_4-(true_4-true_5)/2)-(level_1-(true_4-(true_4-true_5)/2));
if (Show_target) CreateObj("Level_6",OBJ_HLINE,Time[0],level_6,Magenta,STYLE_DOT); }
if (true_5!=0 && cb>0)
if (level_6<=High[cb-1]) {
get_5=true;
find_6(index_5,p2d);
}
}
if (dir==1) {
if (true_5==0) level=level_5; else level=true_5;
if (High[cb]>=level && get_5==false) {
true_5=High[cb];
index_5=Time[cb];
if (Show_true) CreateObj("True_5",OBJ_HLINE,Time[0],true_5,Aqua,STYLE_DASH);
CreateText("Point_5","5",index_5,true_5+50*Point*p3d,Aqua);
level_6=(true_4-(true_4-true_5)/2)-(level_1-(true_4-(true_4-true_5)/2));
if (Show_target) CreateObj("Level_6",OBJ_HLINE,Time[0],level_6,Magenta,STYLE_DOT); }
if (true_5!=0 && cb>0)
if (level_6>=Low[cb-1]) {
get_5=true;
find_6(index_5,p2d);
}
}
}
}
void find_6(int index, int dir) {
int tBar=iBarShift(Symbol(),0,index,false)-1;
if (tBar<0) return(0);
for (int cb=tBar;cb>=0;cb--) {
if (dir==-1) {
if (true_6==0) double level=level_6; else level=true_6;
if (Low[cb]<=level && get_6==false) {
true_6=Low[cb];
index_6=Time[cb];
if (Show_true) CreateObj("True_6",OBJ_HLINE,Time[0],true_6,Magenta,STYLE_DASH);
CreateText("Point_6","6",index_6,true_6+50*Point*p2d,Magenta);
}
}
if (dir==1) {
if (true_6==0) level=level_6; else level=true_6;
if (High[cb]>=level && get_6==false) {
true_6=High[cb];
index_6=Time[cb];
if (Show_true) CreateObj("True_6",OBJ_HLINE,Time[0],true_6,Magenta,STYLE_DASH);
CreateText("Point_6","6",index_6,true_6+50*Point*p2d,Magenta);
}
}
}
}
void CreateText(string name, string text, int index, double level, color col) {
if (ObjectFind(name)==-1){
ObjectCreate (name,OBJ_TEXT,0,index,level,0,0,0,0);
ObjectSetText(name, text, 14, "Times New Roman", col);}
else {
ObjectMove(name, 0, index,level);}
}
void CreateObj(string name, int type, int index, double level, color col, int style) {
if (ObjectFind(name)==-1){
ObjectCreate (name,type,0,index,level,0,0,0,0);
ObjectSet (name, OBJPROP_COLOR, col);
ObjectSet (name, OBJPROP_STYLE, style);}
else {
ObjectMove(name, 0, index,level);}
}
int start() {
int i=0; int j=0; int k=0;
find_4(index_3,p2d);
Comment("1: óðîâåíü=",level_1,"; äàòà=",TimeToStr(index_1,TIME_DATE),"\n",
"2: óðîâåíü=",level_2,"; äàòà=",TimeToStr(index_2,TIME_DATE),"\n",
"3: óðîâåíü=",level_3,"; äàòà=",TimeToStr(index_3,TIME_DATE),"\n",
"4: ýòàëîí=",etalon_4,"; öåëåâîé=",level_4,"; äîñòèãëè=",true_4,"; äàòà=",TimeToStr(index_4,TIME_DATE),"\n",
"5: ýòàëîí=",etalon_5,"; öåëåâîé=",level_5,"; äîñòèãëè=",true_5,"; äàòà=",TimeToStr(index_5,TIME_DATE),"\n",
"6: ýòàëîí=",etalon_6,"; öåëåâîé=",level_6,"; äîñòèãëè=",true_6,"; äàòà=",TimeToStr(index_6,TIME_DATE));
return (0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains the highest prices of each bar
Series array that contains open time of each bar
Series array that contains the lowest prices of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: