Price Data Components
Indicators Used
Miscellaneous
0
Views
0
Downloads
0
Favorites
Madlen_5_0
//+------------------------------------------------------------------+
//| 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
//+------------------------------------------------------------------+
Comments
Markdown Formatting Guide
# H1## H2
### H3
**bold text***italicized text*[title](https://www.example.com)`code````code block
```
> blockquote- Item 1- Item 2
1. First item2. Second item
---