//+------------------------------------------------------------------+
//| maloma 4 vicont 1-2-3.mq4 |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, maloma."
extern double Óðîâåíü_1=1.2937;//1.2937;
extern double Óðîâåíü_2=1.2725;//1.2630;
extern double Óðîâåíü_3=1.2874;//1.2829;
int start(){
int time_1=0; int time_2=0; int time_3=0;
int p1d=0; int p2d=0; int p3d=0;
double Óðîâåíü_4=0; double Óðîâåíü_5=0; double Óðîâåíü_6=0; double Óðîâåíü_t=0;
int time_4=0; int time_5=0; int time_6=0;
int i=0; int j=0; int k=0;
while (time_3==0){
if (High[i] == Óðîâåíü_3) {time_3=i; p3d=1;}
if (Low[i] == Óðîâåíü_3) {time_3=i; p3d=-1;}
i++;}
while (time_2==0){
if (High[i] == Óðîâåíü_2) {time_2=i; p2d=1;}
if (Low[i] == Óðîâåíü_2) {time_2=i; p2d=-1;}
i++;}
while (time_1==0){
if (High[i] == Óðîâåíü_1) {time_1=i; p1d=1;}
if (Low[i] == Óðîâåíü_1) {time_1=i; p1d=-1;}
i++;}
i=time_3-1;
Óðîâåíü_4=Óðîâåíü_3-(Óðîâåíü_3-Óðîâåíü_2)*1.62;
while (i>=0 && time_5<i)
{// while start äëÿ ïîèñêà 4
if (Low[i]<=Óðîâåíü_4)
{// íà÷àëî Åñëè íàøëè òî÷êó 4
Óðîâåíü_4=Low[i];
time_4=i;
j=time_4-1;
Óðîâåíü_t=Óðîâåíü_3-(Óðîâåíü_3-Óðîâåíü_4)/2;
Óðîâåíü_5=Óðîâåíü_t-(Óðîâåíü_2-Óðîâåíü_t);
while (j>=0 && time_6<j)
{// while start äëÿ ïîèñêà 5
if (High[j]>=Óðîâåíü_5)
{// íà÷àëî Åñëè íàøëè òî÷êó 5
Óðîâåíü_5=High[j];
time_5=j;
k=time_5-1;
Óðîâåíü_t=Óðîâåíü_4-(Óðîâåíü_4-Óðîâåíü_5)/2;
Óðîâåíü_6=Óðîâåíü_t-(Óðîâåíü_1-Óðîâåíü_t);
while (k>=0)
{// while start äëÿ ïîèñêà 6
if (Low[k]<=Óðîâåíü_6)
{// íà÷àëî Åñëè íàøëè òî÷êó 6
Óðîâåíü_6=Low[k];
time_6=k;
}// êîíåö Åñëè íàøëè òî÷êó 6
k--;
}// while end äëÿ ïîèñêà 6
}// êîíåö Åñëè íàøëè òî÷êó 5
j--;
}// while end äëÿ ïîèñêà 5
}// êîíåö Åñëè íàøëè òî÷êó 4
i--;
}// while end äëÿ ïîèñêà 4
if (ObjectFind("Point_6")==-1){
ObjectCreate ("Point_6",OBJ_TEXT,0,Time[time_6],Óðîâåíü_6+50*Point*p2d,0,0,0,0);
ObjectSetText("Point_6", "6", 14, "Times New Roman", Gold);}
else {
ObjectMove("Point_6", 0, Time[time_6],Óðîâåíü_6+50*Point*p2d);}
if (ObjectFind("Point_5")==-1){
ObjectCreate ("Point_5",OBJ_TEXT,0,Time[time_5],Óðîâåíü_5+50*Point*p3d,0,0,0,0);
ObjectSetText("Point_5", "5", 14, "Times New Roman", Gold);}
else {
ObjectMove("Point_5", 0, Time[time_5],Óðîâåíü_5+50*Point*p3d);}
if (ObjectFind("Point_4")==-1){
ObjectCreate ("Point_4",OBJ_TEXT,0,Time[time_4],Óðîâåíü_4+50*Point*p2d,0,0,0,0);
ObjectSetText("Point_4", "4", 14, "Times New Roman", Gold);}
else {
ObjectMove("Point_4", 0, Time[time_4],Óðîâåíü_4+50*Point*p2d);}
if (ObjectFind("Point_3")==-1){
ObjectCreate ("Point_3",OBJ_TEXT,0,Time[time_3],Óðîâåíü_3+50*Point*p3d,0,0,0,0);
ObjectSetText("Point_3", "3", 14, "Times New Roman", Gold);}
else {
ObjectMove("Point_3", 0, Time[time_3],Óðîâåíü_3+50*Point*p3d);}
if (ObjectFind("Point_2")==-1){
ObjectCreate ("Point_2",OBJ_TEXT,0,Time[time_2],Óðîâåíü_2+50*Point*p2d,0,0,0,0);
ObjectSetText("Point_2", "2", 14, "Times New Roman", Gold);}
else {
ObjectMove("Point_2", 0, Time[time_2],Óðîâåíü_2+50*Point*p2d);}
if (ObjectFind("Point_1")==-1){
ObjectCreate ("Point_1",OBJ_TEXT,0,Time[time_1],Óðîâåíü_1+50*Point*p1d,0,0,0,0);
ObjectSetText("Point_1", "1", 14, "Times New Roman", Gold);}
else {
ObjectMove("Point_1", 0, Time[time_1],Óðîâåíü_1+50*Point*p1d);}
Comment("Óðîâåíü_1=",Óðîâåíü_1,"; time_1=",time_1,"\n",
"Óðîâåíü_2=",Óðîâåíü_2,"; time_2=",time_2,"\n",
"Óðîâåíü_3=",Óðîâåíü_3,"; time_3=",time_3,"\n",
"Óðîâåíü_4=",Óðîâåíü_4,"; time_4=",time_4,"\n",
"Óðîâåíü_5=",Óðîâåíü_5,"; time_5=",time_5,"\n",
"Óðîâåíü_6=",Óðîâåíü_6,"; time_6=",time_6);
return (0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: