147 lines
4.7 KiB
Plaintext
147 lines
4.7 KiB
Plaintext
//+------------------------------------------------------------------+
|
|
//| PaPP_Median.mq5 |
|
|
//| PaPP v2 |
|
|
//+------------------------------------------------------------------+
|
|
#property copyright "PaPP v2"
|
|
#property version "2.00"
|
|
#property description "PaPP Median - Media 8 MA (1g-1y)"
|
|
#property description "Linea singola = fair value multi-TF"
|
|
#property indicator_chart_window
|
|
#property indicator_buffers 1
|
|
#property indicator_plots 1
|
|
|
|
input int FontSize = 9;
|
|
|
|
double Buff_Median[];
|
|
|
|
int hMA[8];
|
|
int bars[8];
|
|
string _pfx = "PM_";
|
|
|
|
//+------------------------------------------------------------------+
|
|
int TimeToBars(int d)
|
|
{
|
|
datetime n = TimeCurrent();
|
|
if(n==0)
|
|
{
|
|
long s = (long)d*86400L, p = PeriodSeconds((ENUM_TIMEFRAMES)_Period);
|
|
return (int)MathMax(1,s/p);
|
|
}
|
|
return MathMax(1,Bars(_Symbol,_Period,n-d*86400,n));
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
int OnInit()
|
|
{
|
|
int days[8] = {365,182,121,30,14,7,3,1};
|
|
for(int i=0;i<8;i++)
|
|
{
|
|
bars[i] = (i<7) ? TimeToBars(days[i]) : 1;
|
|
hMA[i] = iMA(_Symbol,_Period,bars[i],0,MODE_SMA,PRICE_CLOSE);
|
|
if(hMA[i]==INVALID_HANDLE) return INIT_FAILED;
|
|
}
|
|
|
|
SetIndexBuffer(0,Buff_Median,INDICATOR_DATA);
|
|
ArraySetAsSeries(Buff_Median,true);
|
|
|
|
PlotIndexSetInteger(0,PLOT_DRAW_TYPE,DRAW_LINE);
|
|
PlotIndexSetInteger(0,PLOT_LINE_COLOR,clrGold);
|
|
PlotIndexSetInteger(0,PLOT_LINE_WIDTH,2);
|
|
PlotIndexSetString(0,PLOT_LABEL,"PaPP Median");
|
|
IndicatorSetString(INDICATOR_SHORTNAME,"PaPP Median");
|
|
return INIT_SUCCEEDED;
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
void OnDeinit(const int reason)
|
|
{
|
|
for(int i=0;i<8;i++) if(hMA[i]!=INVALID_HANDLE) IndicatorRelease(hMA[i]);
|
|
ObjectsDeleteAll(0,_pfx);
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
double GetMA(int idx,int m)
|
|
{
|
|
double buf[1];
|
|
if(CopyBuffer(hMA[m],0,idx+1,1,buf)==1) return buf[0];
|
|
return 0;
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
int OnCalculate(const int rates_total,
|
|
const int prev_calculated,
|
|
const datetime &time[],
|
|
const double &open[],
|
|
const double &high[],
|
|
const double &low[],
|
|
const double &close[],
|
|
const long &tick_volume[],
|
|
const long &volume[],
|
|
const int &spread[])
|
|
{
|
|
if(rates_total<2) return 0;
|
|
ArraySetAsSeries(close,true);
|
|
|
|
int limit = rates_total - prev_calculated;
|
|
if(limit>1) limit=rates_total-1;
|
|
|
|
for(int idx=limit;idx>=0;idx--)
|
|
{
|
|
double sum=0; int cnt=0;
|
|
for(int m=0;m<8;m++)
|
|
{
|
|
double v = GetMA(idx,m);
|
|
if(v>0) { sum+=v; cnt++; }
|
|
}
|
|
Buff_Median[idx]=(cnt>0) ? sum/cnt : 0;
|
|
}
|
|
|
|
DrawInfo();
|
|
return rates_total;
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
void DrawInfo()
|
|
{
|
|
double bid = SymbolInfoDouble(_Symbol,SYMBOL_BID);
|
|
double median = Buff_Median[0];
|
|
if(median<=0) return;
|
|
|
|
int x=10,y=30,lh=FontSize+4;
|
|
ObjectsDeleteAll(0,_pfx);
|
|
|
|
Lbl("T","PaPP Median ["+EnumToString((ENUM_TIMEFRAMES)_Period)+"]",x,y,FontSize+2,clrGold,true);
|
|
y+=lh+4;
|
|
|
|
double distPct = (bid-median)/median*100;
|
|
string distS = StringFormat("%+.2f%%",distPct);
|
|
color distC = (distPct>0)?clrRed:clrLimeGreen;
|
|
Lbl("M","Median: "+DoubleToString(median,_Digits),x,y,FontSize,clrWhite,false); y+=lh;
|
|
Lbl("D","Dist: "+distS,x,y,FontSize,distC,true); y+=lh+2;
|
|
|
|
//--- Dispersione MA e bande (info)
|
|
double ds=0; int dc=0;
|
|
for(int m=0;m<8;m++) { double v=GetMA(0,m); if(v>0) { ds+=MathAbs(v-median)/median*100; dc++; } }
|
|
double vol = (dc>0)?ds/dc:0;
|
|
Lbl("V","Cluster +/-"+DoubleToString(vol,3)+"%",x,y,FontSize,clrGray,false); y+=lh;
|
|
Lbl("H","Sopra=SELL | Sotto=BUY",x,y,FontSize-1,clrGray,false);
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
void Lbl(string n,string t,int x,int y,int fs,color c,bool b)
|
|
{
|
|
string o=_pfx+n;
|
|
if(ObjectFind(0,o)<0) ObjectCreate(0,o,OBJ_LABEL,0,0,0);
|
|
ObjectSetInteger(0,o,OBJPROP_XDISTANCE,x);
|
|
ObjectSetInteger(0,o,OBJPROP_YDISTANCE,y);
|
|
ObjectSetInteger(0,o,OBJPROP_CORNER,CORNER_LEFT_UPPER);
|
|
ObjectSetString(0,o,OBJPROP_TEXT,t);
|
|
ObjectSetString(0,o,OBJPROP_FONT,b?"Lucida Console Bold":"Lucida Console");
|
|
ObjectSetInteger(0,o,OBJPROP_FONTSIZE,fs);
|
|
ObjectSetInteger(0,o,OBJPROP_COLOR,c);
|
|
ObjectSetInteger(0,o,OBJPROP_BACK,false);
|
|
ObjectSetInteger(0,o,OBJPROP_SELECTABLE,false);
|
|
ObjectSetInteger(0,o,OBJPROP_HIDDEN,true);
|
|
}
|
|
//+------------------------------------------------------------------+
|