//+------------------------------------------------------------------+
//| Madlen.mq4 |
//| Copyright © 2007, DKeN |
//| http://dken.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007, DKeN"
#property link "http://dken.biz"
//----
#property indicator_chart_window
#property indicator_buffers 2
//----
#property indicator_color1 Red
#property indicator_color2 Blue
/*
Update 5.0
- öâåòà ëèíèé èçìåíåíû, èñïðàâëåíà îòðèñîâêà ëèíèé 45 è 315
- ñèãíàë â çàâèñèìîñòè îò ïîëîæåíèÿ öåíû ìåæäó óðîâíÿìè
- äîáàâëåíà èíôîðìàöèÿ ïî ñðåäíåäíåâíîìó è ñðåäíåíåäåëüíîìó
- óáðàí Ìþððåé, Èøèìîêó
Update 4.4
- äîáàâëåíû íàñòðîéêè ðèñêîâ
ïî óìîë÷àíèþ 0.1 ëîò, 1% îò äåïî
Update 4.31
- èñïðàâëåíû íàäïèñè:-)
Ipdate 4.3
- ïî óìîë÷àíèþ òðåíäîâûå, ôèáî è óðîâíè ôðàêòàëîâ
Update 4.2
- äîáàâëåíû óðîâíè ðàçâîðîòà ïî Ìþððåþ
- óäàëåí Ïèâîò
Update 4.1
- èçìåíåíû óðîâíè Ôèááîíà÷è
- äîáàâëåíû ôëàãè äëÿ îòðèñîâêè ïèâîò óðîâíåé è ñåññèé
- äîáàâëåíà îòðèñîâêà Ñåññèé Åâðîïåéñêîé è Àìåðèêàíñêîé íà ÷àñîâûõ ãðàôèêàõ
- äîáàâëåí Pivot
Update 4.0
- äîáàâëåí èíäèêàòîð Èøèìîêó (íàñòðîéêè ïî óìîë÷àíèþ äëÿ D1, W1, H4)
- Èñïîëüçóþòñÿ òîëüêî ñèãíàëû çîëîòîé è ìåðòâûé êðåñò è îòáîé îò Êåäæóí ñåí, îñòàëüíûå ëèíèè è îáëàêà óáðàíû
Update 3.1
- äîáàâëåíà îòðèñîâêà ôèááîíà÷è óðîíåé
Update 3.0
- äîáàâëåíû óðîâíè ïî ôðàêòàëàì
- óäàëåíû ôóíêöèè ñîïðîâîæäåíèÿ îðäåðîâ
Update 2.9
- ïîäîáðàíû êîýô. äëÿ ìàñøòàáîâ
Update 2.8
- óáðàíî èñïîëüçîâàíèå dll
- èñïðàâëåíû ìåëêèå ãëþêè
Update 2.7
- ïîäïðàâëåí àëãîðèòì ðèñîâàíèÿ
- äîáàâëåíà îïöèÿ äëÿ ïðèíóäèòåëüíîãî ðèñîâàíèÿ ëèíèé íà ïðåäïîñëåäíåé ñâå÷å
Update 2.6
- ëèíèè îòðèñîâûâàþòñÿ ïðè ëþáîé òðàíñôîðìàöèè ãðàôèêà ïðàâèëüíî! âñåãäà 45 äëÿ 1:1
- óëó÷øåíû ïðàâèëà äëÿ ñèãíàëîâ
Update 2.5.
- èñïðàâëåí àíàëèç ñâå÷åé
- äîáàâëåí òðåéëèíã
Update 2.4.
- óáðàíà îòðèñîâêà ïî íîâîìó ôðàêòàëó ò.ê. äîëãî îòðèñîâêà äëèòñÿ
- Äîáàâëåíà âîçìîæíîñòü ðèñîâàòü ëèáî ïî ÇèãÇàãó, ëèáî ïî Ôðàêòàëó, è â çàâèñèìîñòè îò ýòîãî áåðåòñÿ çà àíàëèç.
- èñïðàâëåíà îøèáêà èçìåíåíèÿ óãëà ïðè ìàñøòàáèðîâàíèè, òåïåðü îí âñåãäà 45.
Update 2.3.
- Äîáàâëåíà îòðèñîâêà ïî ìîäèôèöèðîâàííîìó ôðàêòàëó.
- èçìåíåí ñïîñîá àíàëèçà ñèãíàëîâ
Update 2.2.
- Äîáàâëåíà âîçìîæíîñòü îòêðûâàòü ïîçèöèè ïî ñèãíàëó
*/
#include <stdlib.mqh>
string str="Madlen v5";
extern string __="Âûäà÷à ñèãíàëà";
extern bool cfg_Signal=false;
extern string _="Ïàðàìåòðû îòðèñîâêè";
extern int cfg_Period=0; //D1
extern int cfg_MaxBars=5; //êîëè÷åñòâî ñâå÷åé êîòîðûå îòðèñîâûâàþòñÿ
extern bool cfg_Ray=true; //îòðèñîâêà ëó÷àìè èëè íåò
extern bool cfg_DrawLast=true; //îòðèñîâêà ïðåäïîñëåäíåé ñâå÷êè.
extern bool cfg_DrawFibo=true; //îòðèñîâêà Fibo
extern string _Session="Íàñòðîéêè îòðèñîâêè ñåññèé";
extern bool cfg_DrawSession=true;
extern color cfg_SessionColor1=MediumTurquoise; //Åâðîïåéñêàÿ
extern color cfg_SessionColor2=Gainsboro; //Àìåðèêàíñêàÿ
extern string _Risks="Ðèñêè";
double cfg_RiskLots=0.1;
extern double cfg_Risk=0.01;
extern int cfg_RiskLevelPoint=25;
/*
Ì5 72-144-288
Ì10 36-72-144
Í1 12-24-120 èëè 120-240-480
H4 30-60-120
D1 5-10-20 èëè 9-26-52
W1 9-26-52
*/
//local
double up,low,dUp,dLow; //fractals
double width=0; //kanal
int g_Zoom=36; //øàã ìåæäó áàðàìè äëÿ 1:1 32,16,8,4,1 ñòåïåíè 2-êè
int g_typeSignal=-1; //signal
double Pivot; //pivot
double haOpen, haHigh, haLow, haClose; //heiken ashi
int ExtCountedBars=0;
double dFibo38,dFibo50,dFibo62,dFibo100,dFibo162,dFibo200,dFibo262;
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
DeleteAll();
if(Symbol()=="XAUUSD")
{
switch(Period())
{
case PERIOD_W1: g_Zoom=32*5; break;
case PERIOD_D1: g_Zoom=32*5; break;
case PERIOD_H4: g_Zoom=9*5; break;
case PERIOD_H1: g_Zoom=32; break;
default: g_Zoom=1;
}
}
else
{
switch(Period())
{
case PERIOD_W1: g_Zoom=48; break;
case PERIOD_D1: g_Zoom=32; break;
case PERIOD_H4: g_Zoom=16; break;
case PERIOD_H1: g_Zoom=8; break;
default: g_Zoom=1;
}
}
//ïðåäâàðèòåëüíàÿ îòðèñîâêà
int last_pos=-1;
int k=0;
int f1=0,f2=0;
int it1,it2;
for(int i=1;i<=Bars;i++)
{
up=iFractals(Symbol(),cfg_Period,MODE_UPPER,i);
low=iFractals(Symbol(),cfg_Period,MODE_LOWER,i);
//----
if(k<cfg_MaxBars && (low>0 || up>0))
{
DrawLine45(i,0);
if(last_pos==-1) last_pos=i; k++;
}
if(f1==0 && up>0){ DrawLevel(up,low); f1++; it1=i;}
if(f2==0 && low>0){ DrawLevel(up,low); f2++; it2=i;}
}
if(cfg_DrawLast) DrawLine45(1,1);
if(cfg_DrawFibo) DrawFibo(it1,it2);
//----
if(Period()<=PERIOD_H4 && cfg_DrawSession==true)
{
DrawRect("Europe_session",10,dUp,20,dLow,cfg_SessionColor1);
DrawRect("USA_session",15,dUp,23,dLow,cfg_SessionColor2);
}
//double price=PriceTriagl(last_pos); //ïîëó÷èì òî÷êó ïåðåñå÷åíèÿ
//double line45[2];
//GetCurrentLine(line45,last_pos,0);//ïîëó÷èì êîîðäèíàòû ëèíèé
//AnalizSignal(price,line45,true);
//----
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int deinit()
{
//óäàëåíèå âñåõ ëèíèé
DeleteAll();
//----
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void DeleteAll()
{
ObjectsDeleteAll(0,OBJ_TREND);
ObjectsDeleteAll(0,OBJ_HLINE);
ObjectsDeleteAll(0,OBJ_FIBO);
ObjectsDeleteAll(0,OBJ_RECTANGLE);
ObjectsDeleteAll(0,OBJ_TEXT);
//ArrayInitialize(fibo,0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
// if(IsDllsAllowed()==FALSE){Alert("Ðàçðåøèòå èñïîëüçîâàíèå ôóíêöèé èç DLL!"); return (0);}
if(IsTradeContextBusy())
{
Print("Òîðãîâûé ïîòîê çàíÿò. Ïîäîæäèòå");
return(0);
}
if(Bars<=10)
{
Print("Íåò èñòîðèè áàðîâ!");
return(0);
}
//----
DeleteAll();
//ïîëó÷åíèå äàííûõ îò ôðàêòàëîâ è çèãçàãà
int last_pos=-1;
int k=0;
int f1=0,f2=0;
int it1,it2;
for(int i=1;i<=Bars;i++)
{
up=iFractals(Symbol(),cfg_Period,MODE_UPPER,i);
low=iFractals(Symbol(),cfg_Period,MODE_LOWER,i);
//----
if(k<cfg_MaxBars && (low>0 || up>0))
{
DrawLine45(i,0);
if(last_pos==-1) last_pos=i; k++;
}
if(f1==0 && up>0){ DrawLevel(up,low); f1++; it1=i; dUp=up;}
if(f2==0 && low>0){ DrawLevel(up,low); f2++; it2=i; dLow=low;}
}
width=MathAbs(dUp-dLow)/Point;
if(cfg_DrawLast) DrawLine45(1,1);
if(cfg_DrawFibo) DrawFibo(it1,it2);
//----
if(Period()<=PERIOD_H4 && cfg_DrawSession==true)
{
DrawRect("Europe_session",10,dUp,20,dLow,cfg_SessionColor1);
DrawRect("USA_session",15,dUp,23,dLow,cfg_SessionColor2);
}
//(string rname,int h1,double v1,int h2,double v2,color c)
double price=PriceTriagl(last_pos); //ïîëó÷èì òî÷êó ïåðåñå÷åíèÿ
double line45[2];
GetCurrentLine(line45,last_pos,0);//ïîëó÷èì êîîðäèíàòû ëèíèé
AnalizSignal(price,line45,false);
//----
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void AnalizSignal(double price,double line45[2],bool isInit)
{
double l=MarketInfo(Symbol(),MODE_SWAPLONG);
double s=MarketInfo(Symbol(),MODE_SWAPSHORT);
double swap=0;
string sSwap="";
double sl_b=0,sl_s=0;
double osl_b=0,osl_s=0;
double lot_b=0,lot_s=0;
int iFiboSignal=-1;
double dUp=ObjectGet("level_up",OBJPROP_PRICE1);
double dDown=ObjectGet("level_down",OBJPROP_PRICE1);
//----
if(Bid>dDown && Ask<dUp)
{
sl_s=dUp+Point*cfg_RiskLevelPoint;
sl_b=dDown-Point*cfg_RiskLevelPoint;
osl_b=dDown+Point*10;
osl_s=dUp-Point*10;
lot_s=GetLotOfRisk(cfg_Risk,sl_s,0);
lot_b=GetLotOfRisk(cfg_Risk,sl_b,1);
}
else
if(Bid>dUp && Bid>dDown)
{
sl_s=0;lot_s=0;
sl_b=dUp-Point*cfg_RiskLevelPoint;
osl_b=dUp+Point*10;
osl_s=0;
lot_b=GetLotOfRisk(cfg_Risk,sl_b,1);
}
else
if(Ask<dUp && Ask<dDown)
{
sl_b=0;lot_b=0;
sl_s=dDown+Point*cfg_RiskLevelPoint;
osl_s=dDown-Point*10;
lot_s=GetLotOfRisk(cfg_Risk,sl_s,0);
}
InitFibo();
iFiboSignal=AnalizeFibo();
string sFiboSignal="NOT";
if(iFiboSignal==OP_BUY) sFiboSignal="BUY";
else if(iFiboSignal==OP_SELL) sFiboSignal="SELL";
//----
if(l>0 && s<0){sSwap="BUY"; swap=l;}
else if(l<0 && s>0){sSwap="SELL"; swap=s;}
else if(l>0 && s>0){sSwap="BUY,SELL"; swap=MathMin(l,s);}
else {sSwap=""; swap=l;}
//line45[0] = 315
//line45[1] = 45
if(iClose(Symbol(),cfg_Period,0)>price && iClose(Symbol(),cfg_Period,0)>line45[1] && iClose(Symbol(),cfg_Period,0)>line45[0] && line45[1]!=0 && iFiboSignal==OP_BUY)
{
Comment("Signal: BUY,Close: ",iClose(Symbol(),cfg_Period,1),", line45: ",line45[1],"\nWidthCanal: ",width," pips"," SwapType: ",sSwap," = ",swap,
"\n","Risk: ",cfg_Risk*100,"% RiskLots for buy(",lot_b,"), sell(",lot_s,")","\nNormal open for buy(",osl_b,"), sel(",osl_s,")",
"\nStop for buy(",sl_b,"), sell(",sl_s,")\n",GetMidleDay(20),"\nFibo signal: ",sFiboSignal);
//----
if((g_typeSignal==OP_SELL || isInit==true)&& cfg_Signal==true )
{
Alert(Hour(),":",Minute()," (",Symbol(),") Signal: BUY ,Close: ",iClose(Symbol(),cfg_Period,1),", line45: ",line45[1],
"\n","Risk: ",cfg_Risk*100,"% RiskLots for buy(",lot_b,"), sell(",lot_s,")","\nNormal open for buy(",osl_b,"), sel(",osl_s,")",
"\nStop for buy(",sl_b,"), sell(",sl_s,")\n",GetMidleDay(20));
}
g_typeSignal=OP_BUY;
}
else if(iClose(Symbol(),cfg_Period,0)<price && iClose(Symbol(),cfg_Period,0)<line45[0] && iClose(Symbol(),cfg_Period,0)<line45[1] && line45[0]!=0 && iFiboSignal==OP_SELL)
{
Comment("Signal: SELL ,Close: ",iClose(Symbol(),cfg_Period,1),", line45: ",line45[1],"\nWidthCanal: ",width," pips"," SwapType: ",sSwap," = ",swap,
"\n","Risk: ",cfg_Risk*100,"% RiskLots for buy(",lot_b,"), sell(",lot_s,")","\nNormal open for buy(",osl_b,"), sel(",osl_s,")",
"\nStop for buy(",sl_b,"), sell(",sl_s,")\n",GetMidleDay(20),"\nFibo signal: ",sFiboSignal);
//----
if((g_typeSignal==OP_BUY || isInit==true)&& cfg_Signal==true)
{
Alert(Hour(),":",Minute()," (",Symbol(),") Signal: SELL ,Close: ",iClose(Symbol(),cfg_Period,1),",line315: ",line45[0],
"\n","Risk: ",cfg_Risk*100,"% RiskLots for buy(",lot_b,"), sell(",lot_s,")","\nNormal open for buy(",osl_b,"), sel(",osl_s,")",
"\nStop for buy(",sl_b,"), sell(",sl_s,")\n",GetMidleDay(20));
}
g_typeSignal=OP_SELL;
}
else
{
Comment("Signal: NOT ,Close: ",iClose(Symbol(),cfg_Period,1),", line45: ",line45[1],"\nWidthCanal: ",width," pips"," SwapType: ",sSwap," = ",swap,
"\n","Risk: ",cfg_Risk*100,"% RiskLots for buy(",lot_b,"), sell(",lot_s,")","\nNormal open for buy(",osl_b,"), sel(",osl_s,")",
"\nStop for buy(",sl_b,"), sell(",sl_s,")\n",GetMidleDay(20),"\nFibo signal: ",sFiboSignal);
g_typeSignal=-1;
}
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void InitFibo()
{
string sFibo="fibo_level";
double dUp=ObjectGet("level_up",OBJPROP_PRICE1);
double dDown=ObjectGet("level_down",OBJPROP_PRICE1);
//----
if(ObjectFind(sFibo)!=-1)
{
if(Ask<dDown)
{
dFibo38=NormalizeDouble(dUp-(dUp-dDown)*0.382,Digits); //0
dFibo50=NormalizeDouble(dUp-(dUp-dDown)*0.5,Digits); //0
dFibo62=NormalizeDouble(dUp-(dUp-dDown)*0.618,Digits); //0
dFibo100=NormalizeDouble(dUp-(dUp-dDown)*1,Digits); //0
dFibo162=NormalizeDouble(dUp-(dUp-dDown)*1.618,Digits); //0
dFibo200=NormalizeDouble(dUp-(dUp-dDown)*2,Digits); //0
dFibo262=NormalizeDouble(dUp-(dUp-dDown)*2.618,Digits); //0
}
else
{
dFibo38=NormalizeDouble(dDown+(dUp-dDown)*0.382,Digits); //0
dFibo50=NormalizeDouble(dDown+(dUp-dDown)*0.5,Digits); //0
dFibo62=NormalizeDouble(dDown+(dUp-dDown)*0.618,Digits); //0
dFibo100=NormalizeDouble(dDown+(dUp-dDown)*1,Digits); //0
dFibo162=NormalizeDouble(dDown+(dUp-dDown)*1.618,Digits); //0
dFibo200=NormalizeDouble(dDown+(dUp-dDown)*2,Digits); //0
dFibo262=NormalizeDouble(dDown+(dUp-dDown)*2.618,Digits); //0
}
}
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int AnalizeFibo()
{
double dUp=ObjectGet("level_up",OBJPROP_PRICE1);
double dDown=ObjectGet("level_down",OBJPROP_PRICE1);
double price=Ask;
int iSignal=-1;
if(price<dUp && price>dDown)
{
if(price>dFibo38 && price<dFibo50) iSignal=OP_SELL;
else
if(price>dFibo50 && price<dFibo62) iSignal=OP_BUY;
}
else if(price>dUp && price>dFibo100 && price<dFibo162) iSignal=OP_BUY;
else if(price<dDown && price<dFibo100 && price>dFibo162) iSignal=OP_SELL;
else if(price<dDown && price<dFibo200 && price>dFibo262) iSignal=OP_BUY;
else if(price>dUp && price>dFibo200 && price<dFibo262) iSignal=OP_SELL;
else iSignal=-1;
// Print(iSignal,"Price: ",price," dUp: ",dUp," dDown: ",dDown," 100: ",dFibo100," 162: ",dFibo162);
return(iSignal);
}
//òî÷êà ïåðåñå÷åíèÿ ïðÿìûõ äëÿ êîíêðåòíîãî áàðà
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double PriceTriagl(int i)
{
if(i==-1) return(0);
return((iHigh(Symbol(),cfg_Period,i)-iLow(Symbol(),cfg_Period,i))/2+iLow(Symbol(),cfg_Period,i));
}
//êîîðäèíàòà ïðÿìûõ äëÿ êîíêðåòíîãî áàðà, îò îïðåäåëåííîé ñâå÷êè
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void GetCurrentLine(double &price[]/*buf size 2*/,int i,int bar)
{
price[0]=0;
price[1]=0;
if(i==-1) return(0);
string ss=TimeToStr(iTime(Symbol(),cfg_Period,i));
for(int j=0;j<StringLen(ss);j++)
{
if(StringGetChar(ss,j)=='.' || StringGetChar(ss,j)==':' || StringGetChar(ss,j)==' ')
ss=StringSetChar(ss,j,'_');
}
string n315h="kanal315h_"+ss;
string n45l="kanal45l_"+ss;
double t=0;
//t=g_Zoom/c*Point; //êîýô. òðàíñôîðìàöèè
t=g_Zoom*Point;
double y2,y1;
double pi=3.1415926535;
if(ObjectFind(n315h)==0)
{
y1=iHigh(Symbol(),cfg_Period,i);
price[0]=y1+(i-bar)*MathTan(pi*315/180)*t;
// Print("y1=",y1," pp1=",price[0]," i315=",i," bar=",bar);
}
if(ObjectFind(n45l)==0)
{
y1=iLow(Symbol(),cfg_Period,i);
price[1]=y1+(i-bar)*MathTan(pi*45/180)*t;
//Print("y1=",y1," pp2=",price[1]," i45=",i," bar=",bar);
}
}
//îòðèñîâêà ëèíèé
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void DrawLine45(int i,int type)
{ //0-now draw low
string ss=TimeToStr(iTime(Symbol(),cfg_Period,i));
for(int j=0;j<StringLen(ss);j++)
{
if(StringGetChar(ss,j)=='.' || StringGetChar(ss,j)==':' || StringGetChar(ss,j)==' ')
ss=StringSetChar(ss,j,'_');
}
string n315h="kanal315h_"+ss;
string n45l="kanal45l_"+ss;
double t=0.0;
//----
t=g_Zoom*Point; //êîýô. òðàíñôîðìàöèè
//Print("pix=",b," height=",c," t=",t);
double y2,y1;
double pi=3.1415926535;
color cCanal,cLevel;
if(type==1)
{
cCanal=Lime;
cLevel=Orange;
}
else
{
cCanal=White;
cLevel=Red;
}
DrawElem(n315h,iHigh(Symbol(),cfg_Period,i),i,t,315,indicator_color2);
DrawElem(n45l,iLow(Symbol(),cfg_Period,i),i,t,45,indicator_color1);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void DrawElem(string name,double y1,int i,double t,int angle,color icolor,int bar=1)
{
double y2;
double pi=3.1415926535;
if(ObjectFind(name)==-1 )
{
//y1=iOpen(Symbol(),cfg_Period,i);
y2=y1+MathTan(pi*angle/180)*t*i;
ObjectCreate(name,OBJ_TREND,0,iTime(Symbol(),cfg_Period,i),y1,iTime(Symbol(),cfg_Period,0),y2);
ObjectSet (name,OBJPROP_RAY,cfg_Ray);
ObjectSet (name,OBJPROP_COLOR,icolor);
}
else
{
// y1=iOpen(Symbol(),cfg_Period,i);
ObjectDelete(name);
y2=y1+MathTan(pi*angle/180)*t*i;
ObjectCreate(name,OBJ_TREND,0,iTime(Symbol(),cfg_Period,i),y1,iTime(Symbol(),cfg_Period,0),y2);
ObjectSet (name,OBJPROP_RAY,cfg_Ray);
ObjectSet (name,OBJPROP_COLOR,icolor);
}
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void DrawLevel(double up, double low)
{
color icolor=Blue;
string sUP="level_up";
string sDOWN="level_down";
string sUP_Text="level_up_text";
string sDOWN_Text="level_down_text";
//----
if(up>0){ icolor=Blue;
if(ObjectFind(sUP)==0) ObjectMove(sUP,0,iTime(Symbol(),cfg_Period,0),up);
else ObjectCreate(sUP,OBJ_HLINE,0,0,up);
// Print("up=",up);
ObjectSet(sUP,OBJPROP_COLOR,icolor);
ObjectSet(sUP,OBJPROP_WIDTH,3);
if(ObjectFind(sUP_Text)==-1)
{
ObjectCreate(sUP_Text, OBJ_TEXT, 0, Time[1], up);
ObjectSetText(sUP_Text,"HIGH-Level", 10, "Times New Roman", icolor);
}
else
{
ObjectMove(sUP_Text,0,Time[1],up);
}
}
if(low>0)
{
icolor=Red;
if(ObjectFind(sDOWN)==0) ObjectMove(sDOWN,0,iTime(Symbol(),cfg_Period,0),low);
else ObjectCreate(sDOWN,OBJ_HLINE,0,0,low);
// Print("down=",low);
ObjectSet(sDOWN,OBJPROP_COLOR,icolor);
ObjectSet(sDOWN,OBJPROP_WIDTH,3);
if(ObjectFind(sDOWN_Text)==-1)
{
ObjectCreate(sDOWN_Text, OBJ_TEXT, 0, Time[1], low);
ObjectSetText(sDOWN_Text,"LOW-Level", 10, "Times New Roman", icolor);
}else{
ObjectMove(sDOWN_Text,0,Time[1],low);
}
}
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void DrawFibo(int it1, int it2)
{
string sUP="level_up";
string sDOWN="level_down";
string sFibo="fibo_level";
double p1,p2;
datetime t1,t2;
if(ObjectFind(sUP)==0)
{
p1=ObjectGet(sUP,OBJPROP_PRICE1);
t1=iTime(Symbol(),cfg_Period,it1);
}
if(ObjectFind(sDOWN)==0)
{
p2=ObjectGet(sDOWN,OBJPROP_PRICE1);
t2=iTime(Symbol(),cfg_Period,it2);
}
// Print(t1," ",t2);
//string s0,s100,s162,s262,s23,s50,s38,s62;
if(p1>0 && p2>0)
{
ObjectDelete(sFibo);
if(ObjectFind(sFibo)==-1)
{
if(Ask<p1 && Ask>p2)
{
if(it1<it2)
ObjectCreate(sFibo,OBJ_FIBO,0,t1,p1,t2,p2);
else
ObjectCreate(sFibo,OBJ_FIBO,0,t2,p2,t1,p1);
}
if(Bid<p1 && Bid<p2) ObjectCreate(sFibo,OBJ_FIBO,0,t2,p2,t1,p1);
else
if(Ask>p2 && Ask>p1) ObjectCreate(sFibo,OBJ_FIBO,0,t1,p1,t2,p2);
}
}
ObjectSet(sFibo,OBJPROP_FIBOLEVELS,9);
ObjectSet(sFibo,OBJPROP_LEVELCOLOR,Yellow);
ObjectSet(sFibo,OBJPROP_FIRSTLEVEL+0,0);
ObjectSet(sFibo,OBJPROP_FIRSTLEVEL+1,0.236);
ObjectSet(sFibo,OBJPROP_FIRSTLEVEL+2,0.382);
ObjectSet(sFibo,OBJPROP_FIRSTLEVEL+3,0.5);
ObjectSet(sFibo,OBJPROP_FIRSTLEVEL+4,0.618);
ObjectSet(sFibo,OBJPROP_FIRSTLEVEL+5,1);
ObjectSet(sFibo,OBJPROP_FIRSTLEVEL+6,1.618);
ObjectSet(sFibo,OBJPROP_FIRSTLEVEL+7,2);
ObjectSet(sFibo,OBJPROP_FIRSTLEVEL+8,2.618);
//----
ObjectSetFiboDescription(sFibo,0,"0%% (%$)");
ObjectSetFiboDescription(sFibo,1,"23%% (%$)");
ObjectSetFiboDescription(sFibo,2,"38%% (%$)");
ObjectSetFiboDescription(sFibo,3,"50%% (%$)");
ObjectSetFiboDescription(sFibo,4,"62%% (%$)");
ObjectSetFiboDescription(sFibo,5,"100%% (%$)");
ObjectSetFiboDescription(sFibo,6,"162%% (%$)");
ObjectSetFiboDescription(sFibo,7,"200%% (%$)");
ObjectSetFiboDescription(sFibo,8,"262%% (%$)");
// Print(MathMin(p1,p2)+MathAbs(p1-p2)*0.5);
// InitFibo(p1,p2);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void DrawRect(string rname,int h1,double v1,int h2,double v2,color c)
{
datetime dx,dx2;
dx=StrToTime(Year()+"."+Month()+"."+Day()+" "+h1+":00");
dx2=StrToTime(Year()+"."+Month()+"."+Day()+" "+h2+":59");
if(ObjectFind(rname)!=-1)
ObjectDelete(rname);
ObjectCreate(rname,OBJ_RECTANGLE,0,dx,v1,dx2,v2);
ObjectSet(rname,OBJPROP_COLOR,c);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double GetLotOfRisk(double risk,double stop,int type)
{
RefreshRates();
double b=AccountBalance();
double point=MarketInfo(Symbol(),MODE_TICKVALUE);
double procent=b*risk;
double cena=MarketInfo(Symbol(),MODE_ASK);
if(type==0) cena=MarketInfo(Symbol(),MODE_BID);
if(cena>0 && point >0){
double lot=NormalizeDouble((procent/point)/(MathAbs(cena-stop)/MarketInfo(Symbol(),MODE_POINT)),2);
return(lot);
}
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
string GetMidleDay(int iDaysNumber)
{
double avg,avg2;
int x;
string comm="";
avg=0; avg2=0;
//----
for(x=1;x<=iDaysNumber;x++)
{
avg=avg+(iHigh(NULL,PERIOD_D1,x)-iLow(NULL,PERIOD_D1,x))/iDaysNumber;
avg2=avg2+(iHigh(NULL,PERIOD_W1,x)-iLow(NULL,PERIOD_W1,x))/iDaysNumber;
}
double last_day=iHigh(NULL,PERIOD_D1,0)-iLow(NULL,PERIOD_D1,0);
double last_week=iHigh(NULL,PERIOD_W1,0)-iLow(NULL,PERIOD_W1,0);
comm="VariantDay: "+DoubleToStr(avg/Point,2)
+", Current VarDay: "+DoubleToStr(last_day/Point,2)
+"\nVariantWeek: "+DoubleToStr(avg2/Point,2)
+", Current VarWeek: "+DoubleToStr(last_week/Point,2);
return(comm);
}
//work
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains close prices for each bar
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:
Fractals
Custom Indicators Used:
Order Management characteristics:
Other Features:
It issuies visual alerts to the screen