Compare commits
2 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
 Pietro Giacobazzi
|
884354d67e | ||
|
Pietro Giacobazzi
|
41a2324b0d |
+123
-29
@@ -16,12 +16,14 @@ input bool InpAllHistory = true; // true = tutto lo storico D1
|
||||
input datetime InpStart = D'2010.01.01'; // inizio intervallo (se AllHistory=false)
|
||||
input datetime InpEnd = D'2100.01.01'; // fine intervallo (se AllHistory=false)
|
||||
input string InpFileName = ""; // nome file ("" = automatico)
|
||||
input bool InpBaseline = true; // crea anche il file baseline (tutte le barre D1)
|
||||
|
||||
//--- costanti (stesse 7 MA dell'indicatore)
|
||||
#define ANCHOR_TF PERIOD_D1
|
||||
#define NSER 9 // PRICE, MED, MA365..MA3
|
||||
#define KSLOPE 5 // barre per pendenza / variazione cluster
|
||||
#define MAXH 20 // orizzonte massimo per gli esiti
|
||||
#define KSLOPE 5 // barre D1 per velocita'/accelerazione
|
||||
#define NVOL 14 // barre D1 per la volatilita'
|
||||
#define MAXH 20 // orizzonte massimo per gli esiti
|
||||
|
||||
int gDays[7] = {365,182,121,30,14,7,3};
|
||||
string SER[NSER]= {"PRICE","MED","MA365","MA182","MA121","MA30","MA14","MA7","MA3"};
|
||||
@@ -53,6 +55,61 @@ double Median7(double &v[]) // mediana dei valori validi in v[0..6]
|
||||
return 0.5*(a[c/2-1]+a[c/2]);
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
// mediana dei primi c valori di src
|
||||
double MedArr(double &src[],int c)
|
||||
{
|
||||
if(c<=0) return 0;
|
||||
double a[]; ArrayResize(a,c);
|
||||
for(int j=0;j<c;j++) a[j]=src[j];
|
||||
ArraySort(a);
|
||||
if((c&1)==1) return a[c/2];
|
||||
return 0.5*(a[c/2-1]+a[c/2]);
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
// Velocita' = mediana delle 7 pendenze (variazione % di ogni MA su K barre D1)
|
||||
double VelMed(const double &S[][NSER],int i,int K)
|
||||
{
|
||||
double v[7]; int c=0;
|
||||
for(int m=0;m<7;m++)
|
||||
{ double a=S[i][2+m], b=S[i-K][2+m]; if(IsVal(a)&&IsVal(b)) v[c++]=(a-b)/b*100.0; }
|
||||
return MedArr(v,c);
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
// Accelerazione = mediana delle 7 seconde differenze (cambio di pendenza)
|
||||
double AccMed(const double &S[][NSER],int i,int K)
|
||||
{
|
||||
double v[7]; int c=0;
|
||||
for(int m=0;m<7;m++)
|
||||
{
|
||||
double a=S[i][2+m], b=S[i-K][2+m], d=S[i-2*K][2+m];
|
||||
if(IsVal(a)&&IsVal(b)&&IsVal(d)) v[c++]=(a-2.0*b+d)/d*100.0;
|
||||
}
|
||||
return MedArr(v,c);
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
// Volatilita' = mediana delle 7 dev.std dei rendimenti giornalieri di ogni MA su N barre
|
||||
double VolMed(const double &S[][NSER],int i,int N)
|
||||
{
|
||||
double v[7]; int c=0;
|
||||
for(int m=0;m<7;m++)
|
||||
{
|
||||
double r[]; int rc=0; ArrayResize(r,N);
|
||||
for(int t=i-N+1;t<=i;t++)
|
||||
{ double a=S[t][2+m], b=S[t-1][2+m]; if(IsVal(a)&&IsVal(b)) r[rc++]=(a-b)/b*100.0; }
|
||||
if(rc>=2)
|
||||
{
|
||||
double mean=0; for(int j=0;j<rc;j++) mean+=r[j]; mean/=rc;
|
||||
double s=0; for(int j=0;j<rc;j++){ double dd=r[j]-mean; s+=dd*dd; }
|
||||
v[c++]=MathSqrt(s/(rc-1));
|
||||
}
|
||||
}
|
||||
return MedArr(v,c);
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
void OnStart()
|
||||
{
|
||||
@@ -60,7 +117,7 @@ void OnStart()
|
||||
if(!SymbolSelect(sym,true)) { Print("Simbolo non valido: ",sym); return; }
|
||||
int digits = (int)SymbolInfoInteger(sym,SYMBOL_DIGITS);
|
||||
|
||||
//--- handle delle 7 MA su D1 + ATR
|
||||
//--- handle delle 7 MA su D1 (volatilita'/accelerazione calcolate dalle MA, no ATR di MT5)
|
||||
int hMA[7];
|
||||
for(int m=0;m<7;m++)
|
||||
{
|
||||
@@ -68,33 +125,30 @@ void OnStart()
|
||||
hMA[m] = iMA(sym,ANCHOR_TF,per,0,MODE_SMA,PRICE_CLOSE);
|
||||
if(hMA[m]==INVALID_HANDLE) { Print("iMA fallita m=",m); return; }
|
||||
}
|
||||
int hATR = iATR(sym,ANCHOR_TF,14);
|
||||
if(hATR==INVALID_HANDLE) { Print("iATR fallita"); return; }
|
||||
int LB = MathMax(2*KSLOPE,NVOL); // lookback necessario per vel/acc/vol
|
||||
|
||||
//--- attendo che lo storico D1 sia pronto
|
||||
int total=0;
|
||||
for(int t=0; t<100; t++)
|
||||
{
|
||||
total = Bars(sym,ANCHOR_TF);
|
||||
bool ok = (total>MAXH+KSLOPE+50);
|
||||
bool ok = (total>MAXH+LB+50);
|
||||
for(int m=0;m<7 && ok;m++) if(BarsCalculated(hMA[m])<total) ok=false;
|
||||
if(ok && BarsCalculated(hATR)>=total) break;
|
||||
if(ok) break;
|
||||
Sleep(100);
|
||||
}
|
||||
total = Bars(sym,ANCHOR_TF);
|
||||
if(total<=MAXH+KSLOPE+50) { Print("Storico D1 insufficiente: ",total," barre"); return; }
|
||||
if(total<=MAXH+LB+50) { Print("Storico D1 insufficiente: ",total," barre"); return; }
|
||||
|
||||
//--- carico tutta la storia D1 (indice 0 = piu' vecchio)
|
||||
datetime tm[]; double cl[],hi[],lo[],atr[];
|
||||
datetime tm[]; double cl[],hi[],lo[];
|
||||
MABuf ma[7];
|
||||
ArraySetAsSeries(tm,false); ArraySetAsSeries(cl,false);
|
||||
ArraySetAsSeries(hi,false); ArraySetAsSeries(lo,false);
|
||||
ArraySetAsSeries(atr,false);
|
||||
if(CopyTime(sym,ANCHOR_TF,0,total,tm)<=0) { Print("CopyTime KO"); return; }
|
||||
if(CopyClose(sym,ANCHOR_TF,0,total,cl)<=0) { Print("CopyClose KO"); return; }
|
||||
if(CopyHigh(sym,ANCHOR_TF,0,total,hi)<=0) { Print("CopyHigh KO"); return; }
|
||||
if(CopyLow(sym,ANCHOR_TF,0,total,lo)<=0) { Print("CopyLow KO"); return; }
|
||||
if(CopyBuffer(hATR,0,0,total,atr)<=0) { Print("CopyATR KO"); return; }
|
||||
for(int m=0;m<7;m++)
|
||||
{
|
||||
ArraySetAsSeries(ma[m].v,false);
|
||||
@@ -117,8 +171,8 @@ void OnStart()
|
||||
//--- intervallo di scansione (eventi)
|
||||
datetime from = InpAllHistory ? 0 : InpStart;
|
||||
datetime to = InpAllHistory ? TimeCurrent(): InpEnd;
|
||||
int iStart = KSLOPE+1, iEnd = n-1;
|
||||
for(int i=KSLOPE+1;i<n;i++) if(tm[i]>=from) { iStart=i; break; }
|
||||
int iStart = LB+1, iEnd = n-1;
|
||||
for(int i=LB+1;i<n;i++) if(tm[i]>=from) { iStart=i; break; }
|
||||
for(int i=n-1;i>=0;i--) if(tm[i]<=to) { iEnd=i; break; }
|
||||
|
||||
//--- apro il file CSV
|
||||
@@ -128,7 +182,7 @@ void OnStart()
|
||||
|
||||
//--- header
|
||||
string head = "time,symbol,pair,a,b,dir,price,med,ma365,ma182,ma121,ma30,ma14,ma7,ma3,"
|
||||
"dist_med_pct,cluster_pct,cluster_exp,slope_a,slope_b,trend,atr_pct,dow,month";
|
||||
"dist_med_pct,cluster_pct,cluster_exp,slope_a,slope_b,trend,vel_med,acc_med,vol_med,dow,month";
|
||||
for(int hh=0;hh<5;hh++)
|
||||
{
|
||||
string s=IntegerToString(gHor[hh]);
|
||||
@@ -138,16 +192,32 @@ void OnStart()
|
||||
head += ",bars_to_revert,disc_max_pct";
|
||||
FileWriteString(fh,head+"\r\n");
|
||||
|
||||
//--- file baseline (una riga per OGNI barra D1 valida): serve per il confronto
|
||||
// "extra-rendimento" = incrocio vs giorno qualunque nello stesso regime
|
||||
int fhB = INVALID_HANDLE;
|
||||
if(InpBaseline)
|
||||
{
|
||||
string bname = "PaPP_bars_"+sym+"_D1.csv";
|
||||
fhB = FileOpen(bname,FILE_WRITE|FILE_TXT|FILE_ANSI);
|
||||
if(fhB==INVALID_HANDLE) Print("FileOpen baseline KO: ",bname," err=",GetLastError());
|
||||
else
|
||||
{
|
||||
string bh = "time,symbol,price,med,dist_med_pct,cluster_pct,cluster_exp,trend,vel_med,acc_med,vol_med,dow,month,bars_to_revert,disc_max_pct";
|
||||
for(int b=1;b<=MAXH;b++) bh += ",cret_"+IntegerToString(b);
|
||||
FileWriteString(fhB,bh+"\r\n");
|
||||
}
|
||||
}
|
||||
|
||||
//--- scansione incroci
|
||||
long rows=0;
|
||||
long rows=0, brows=0;
|
||||
for(int i=iStart;i<=iEnd;i++)
|
||||
{
|
||||
if(i<KSLOPE+1) continue;
|
||||
if(i<LB+1) continue;
|
||||
|
||||
//--- esporto solo barre con TUTTE le 9 serie valide (cluster completo)
|
||||
//--- esporto solo barre con TUTTE le 9 serie valide su tutto il lookback
|
||||
bool allok=true;
|
||||
for(int k=0;k<NSER && allok;k++)
|
||||
if(!IsVal(S[i][k]) || !IsVal(S[i-1][k]) || !IsVal(S[i-KSLOPE][k])) allok=false;
|
||||
if(!IsVal(S[i][k]) || !IsVal(S[i-1][k]) || !IsVal(S[i-LB][k])) allok=false;
|
||||
if(!allok) continue;
|
||||
|
||||
double price=S[i][0], med=S[i][1], ma365=S[i][2];
|
||||
@@ -162,9 +232,21 @@ void OnStart()
|
||||
double clusterP = (cmaxP-cminP)/S[i-KSLOPE][0]*100.0;
|
||||
double cluster_exp = cluster-clusterP;
|
||||
int trend = (price>ma365)?1:-1;
|
||||
double atr_pct = atr[i]/price*100.0;
|
||||
//--- velocita'/accelerazione/volatilita': mediana delle 7 scale (no ATR di MT5)
|
||||
double vel_med = VelMed(S,i,KSLOPE);
|
||||
double acc_med = AccMed(S,i,KSLOPE);
|
||||
double vol_med = VolMed(S,i,NVOL);
|
||||
MqlDateTime dt; TimeToStruct(tm[i],dt);
|
||||
|
||||
//--- traiettoria forward (rendimento cumulato a +1..+MAXH), calcolata una volta per barra
|
||||
string bpath="";
|
||||
for(int b=1;b<=MAXH;b++)
|
||||
{
|
||||
int iB=i+b;
|
||||
if(iB>n-1) bpath += ",";
|
||||
else bpath += ","+DoubleToString((cl[iB]-cl[i])/cl[i]*100.0,5);
|
||||
}
|
||||
|
||||
//--- esito globale: ritorno alla Mediana entro MAXH
|
||||
int side = (price>med)?1:-1;
|
||||
int b2rev=-1; double discMax=0;
|
||||
@@ -178,6 +260,22 @@ void OnStart()
|
||||
if(MathAbs(d)>MathAbs(discMax)) discMax=d;
|
||||
}
|
||||
|
||||
//--- riga baseline (barra qualunque, indipendente dagli incroci)
|
||||
if(fhB!=INVALID_HANDLE)
|
||||
{
|
||||
string br = TimeToString(tm[i],TIME_DATE)+","+sym+","
|
||||
+DoubleToString(price,digits)+","+DoubleToString(med,digits)+","
|
||||
+DoubleToString(dist_med,5)+","+DoubleToString(cluster,5)+","
|
||||
+DoubleToString(cluster_exp,5)+","+IntegerToString(trend)+","
|
||||
+DoubleToString(vel_med,5)+","+DoubleToString(acc_med,5)+","
|
||||
+DoubleToString(vol_med,5)+","+IntegerToString(dt.day_of_week)+","
|
||||
+IntegerToString(dt.mon)+","
|
||||
+(b2rev>0?IntegerToString(b2rev):"")+","+DoubleToString(discMax,5)
|
||||
+bpath;
|
||||
FileWriteString(fhB,br+"\r\n");
|
||||
brows++;
|
||||
}
|
||||
|
||||
//--- controllo ogni coppia (a,b)
|
||||
for(int a=0;a<NSER;a++)
|
||||
for(int b=a+1;b<NSER;b++)
|
||||
@@ -190,7 +288,7 @@ void OnStart()
|
||||
|
||||
double slope_a = (S[i][a]-S[i-KSLOPE][a])/S[i-KSLOPE][a]*100.0;
|
||||
double slope_b = (S[i][b]-S[i-KSLOPE][b])/S[i-KSLOPE][b]*100.0;
|
||||
double thr = 0.25*atr_pct;
|
||||
double thr = 0.25*vol_med;
|
||||
|
||||
string row = StringFormat("%s,%s,%sx%s,%s,%s,%d,",
|
||||
TimeToString(tm[i],TIME_DATE),sym,SER[a],SER[b],SER[a],SER[b],dir);
|
||||
@@ -199,7 +297,8 @@ void OnStart()
|
||||
row += DoubleToString(dist_med,5)+","+DoubleToString(cluster,5)+","
|
||||
+DoubleToString(cluster_exp,5)+","+DoubleToString(slope_a,5)+","
|
||||
+DoubleToString(slope_b,5)+","+IntegerToString(trend)+","
|
||||
+DoubleToString(atr_pct,5)+","+IntegerToString(dt.day_of_week)+","
|
||||
+DoubleToString(vel_med,5)+","+DoubleToString(acc_med,5)+","
|
||||
+DoubleToString(vol_med,5)+","+IntegerToString(dt.day_of_week)+","
|
||||
+IntegerToString(dt.mon);
|
||||
|
||||
//--- esiti per orizzonte
|
||||
@@ -217,13 +316,7 @@ void OnStart()
|
||||
row += ","+DoubleToString(ret,5)+","+DoubleToString(mfe,5)+","
|
||||
+DoubleToString(mae,5)+","+IntegerToString(dlab)+","+IntegerToString(rev);
|
||||
}
|
||||
//--- traiettoria: rendimento cumulato a +1..+MAXH barre
|
||||
for(int b=1;b<=MAXH;b++)
|
||||
{
|
||||
int iB=i+b;
|
||||
if(iB>n-1) { row += ","; continue; }
|
||||
row += ","+DoubleToString((cl[iB]-cl[i])/cl[i]*100.0,5);
|
||||
}
|
||||
row += bpath; // traiettoria forward (uguale per ogni coppia di questa barra)
|
||||
row += ","+(b2rev>0?IntegerToString(b2rev):"")+","+DoubleToString(discMax,5);
|
||||
FileWriteString(fh,row+"\r\n");
|
||||
rows++;
|
||||
@@ -232,10 +325,11 @@ void OnStart()
|
||||
}
|
||||
|
||||
FileClose(fh);
|
||||
if(fhB!=INVALID_HANDLE) FileClose(fhB);
|
||||
for(int m=0;m<7;m++) IndicatorRelease(hMA[m]);
|
||||
IndicatorRelease(hATR);
|
||||
Comment("");
|
||||
PrintFormat("PaPP export COMPLETATO: %d incroci -> %s (cartella MQL5\\Files)",(int)rows,fname);
|
||||
if(InpBaseline) PrintFormat("Baseline: %d barre -> PaPP_bars_%s_D1.csv",(int)brows,sym);
|
||||
Print("Periodo: ",TimeToString(tm[iStart])," -> ",TimeToString(tm[iEnd]));
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
|
||||
+22
-239
@@ -10,16 +10,11 @@
|
||||
#property indicator_buffers 8
|
||||
#property indicator_plots 8
|
||||
|
||||
input int FontSize = 9;
|
||||
input bool Smooth = true; // interpola tra i valori D1 -> linea morbida
|
||||
input bool ShowMA = true; // mostra anche le 7 MA (oltre alla mediana)
|
||||
input bool ShowPanel = true; // box con sfondo dietro al pannello info
|
||||
input color PanelBg = C'20,20,25'; // colore sfondo del box
|
||||
input int FontSize = 9;
|
||||
input bool Smooth = true; // interpola tra i valori D1 -> linea morbida
|
||||
input bool ShowMA = true; // mostra anche le 7 MA (oltre alla mediana)
|
||||
|
||||
#define ANCHOR_TF PERIOD_D1 // calcolo ancorato a D1: linea identica su ogni TF
|
||||
#define KSLOPE 5 // barre D1 per velocita'/accelerazione
|
||||
#define NVOL 14 // barre D1 per la volatilita'
|
||||
#define CLWIN 252 // finestra D1 (~1 anno) per il percentile del cluster
|
||||
|
||||
double Buff_Median[];
|
||||
double B0[],B1[],B2[],B3[],B4[],B5[],B6[];
|
||||
@@ -28,7 +23,6 @@ int gDays[7] = {365,182,121,30,14,7,3};
|
||||
color gCol[7] = {clrDodgerBlue,clrDeepSkyBlue,clrTurquoise,clrLimeGreen,clrOrange,clrTomato,clrRed};
|
||||
int hMA[7];
|
||||
int bars[7];
|
||||
struct PBuf { double v[]; }; // buffer dinamico per copiare una MA
|
||||
string _pfx = "PM_"; // oggetti pannello
|
||||
string _pfx2 = "PME_"; // etichette a fine linea
|
||||
|
||||
@@ -160,160 +154,6 @@ double MedianAtD1(int d1shift)
|
||||
return Median(vals,cnt);
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
// valore valido = positivo e finito (esclude EMPTY_VALUE di warmup)
|
||||
bool IsVal(double v) { return (v>0.0 && v<1.0e12); }
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
// mediana dei primi c valori di src
|
||||
double MedArr(double &src[],int c)
|
||||
{
|
||||
if(c<=0) return 0;
|
||||
double a[]; ArrayResize(a,c);
|
||||
for(int j=0;j<c;j++) a[j]=src[j];
|
||||
ArraySort(a);
|
||||
if((c&1)==1) return a[c/2];
|
||||
return 0.5*(a[c/2-1]+a[c/2]);
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
// Metriche a una specifica barra D1 (j), calcolate sui buffer gia' copiati mb[7]
|
||||
double ClusterAtJ(PBuf &mb[],int j)
|
||||
{
|
||||
double v[7]; int c=0;
|
||||
for(int m=0;m<7;m++){ double x=mb[m].v[j]; if(IsVal(x)) v[c++]=x; }
|
||||
if(c<2) return 0;
|
||||
double md=MedArr(v,c); if(md<=0) return 0;
|
||||
double ds=0; for(int m=0;m<c;m++) ds+=MathAbs(v[m]-md)/md*100.0;
|
||||
return ds/c;
|
||||
}
|
||||
double VelAtJ(PBuf &mb[],int j,int K)
|
||||
{
|
||||
double v[7]; int c=0;
|
||||
for(int m=0;m<7;m++){ double a=mb[m].v[j], b=mb[m].v[j+K]; if(IsVal(a)&&IsVal(b)) v[c++]=(a-b)/b*100.0; }
|
||||
return MedArr(v,c);
|
||||
}
|
||||
double AccAtJ(PBuf &mb[],int j,int K)
|
||||
{
|
||||
double v[7]; int c=0;
|
||||
for(int m=0;m<7;m++){ double a=mb[m].v[j], b=mb[m].v[j+K], d=mb[m].v[j+2*K];
|
||||
if(IsVal(a)&&IsVal(b)&&IsVal(d)) v[c++]=(a-2.0*b+d)/d*100.0; }
|
||||
return MedArr(v,c);
|
||||
}
|
||||
double VolAtJ(PBuf &mb[],int j,int N)
|
||||
{
|
||||
double v[7]; int c=0;
|
||||
for(int m=0;m<7;m++)
|
||||
{
|
||||
double r[]; int rc=0; ArrayResize(r,N);
|
||||
for(int t=j;t<j+N;t++){ double a=mb[m].v[t], b=mb[m].v[t+1]; if(IsVal(a)&&IsVal(b)) r[rc++]=(a-b)/b*100.0; }
|
||||
if(rc>=2)
|
||||
{
|
||||
double mn=0; for(int q=0;q<rc;q++) mn+=r[q]; mn/=rc;
|
||||
double s=0; for(int q=0;q<rc;q++){ double dd=r[q]-mn; s+=dd*dd; }
|
||||
v[c++]=MathSqrt(s/(rc-1));
|
||||
}
|
||||
}
|
||||
return MedArr(v,c);
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
// percentile (0..1) di cur fra i primi cc valori di arr
|
||||
double PctlOf(double &arr[],int cc,double cur)
|
||||
{
|
||||
if(cc<=0) return 0.5;
|
||||
int b=0; for(int k=0;k<cc;k++) if(arr[k]<=cur) b++;
|
||||
return (double)b/cc;
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
// Valori correnti + percentile storico (win giorni D1) di cluster/velocita'/accel/volatilita'
|
||||
// per i segnali con segno (vel/acc) il percentile e' calcolato sul VALORE ASSOLUTO (forza)
|
||||
void AllMetrics(int win,
|
||||
double &cluCur,double &cluPct,
|
||||
double &velCur,double &velPct,
|
||||
double &accCur,double &accPct,
|
||||
double &volCur,double &volPct)
|
||||
{
|
||||
cluCur=velCur=accCur=volCur=0; cluPct=volPct=0.5; velPct=accPct=0;
|
||||
int ext = MathMax(2*KSLOPE,NVOL+1);
|
||||
int need = win+ext+2;
|
||||
PBuf mb[7];
|
||||
for(int m=0;m<7;m++)
|
||||
{
|
||||
ArraySetAsSeries(mb[m].v,true);
|
||||
if(CopyBuffer(hMA[m],0,0,need,mb[m].v)!=need) return;
|
||||
}
|
||||
double cA[],vA[],aA[],oA[]; int cc=0,vc=0,ac=0,oc=0;
|
||||
ArrayResize(cA,win); ArrayResize(vA,win); ArrayResize(aA,win); ArrayResize(oA,win);
|
||||
for(int j=1;j<=win;j++)
|
||||
{
|
||||
double cv=ClusterAtJ(mb,j); if(cv>0) cA[cc++]=cv;
|
||||
vA[vc++]=MathAbs(VelAtJ(mb,j,KSLOPE));
|
||||
aA[ac++]=MathAbs(AccAtJ(mb,j,KSLOPE));
|
||||
double ov=VolAtJ(mb,j,NVOL); if(ov>0) oA[oc++]=ov;
|
||||
}
|
||||
cluCur=ClusterAtJ(mb,1); velCur=VelAtJ(mb,1,KSLOPE);
|
||||
accCur=AccAtJ(mb,1,KSLOPE); volCur=VolAtJ(mb,1,NVOL);
|
||||
cluPct=PctlOf(cA,cc,cluCur);
|
||||
volPct=PctlOf(oA,oc,volCur);
|
||||
velPct=PctlOf(vA,vc,MathAbs(velCur)); // forza (su |valore|)
|
||||
accPct=PctlOf(aA,ac,MathAbs(accCur));
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
// descrizione a parole per una grandezza di sola ampiezza (cluster, volatilita')
|
||||
string MagWord(double pct,string w0,string w1,string w2,string w3,string w4)
|
||||
{
|
||||
if(pct<0.20) return w0;
|
||||
if(pct<0.40) return w1;
|
||||
if(pct<0.60) return w2;
|
||||
if(pct<0.80) return w3;
|
||||
return w4;
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
// descrizione a parole per un segnale con segno (velocita', accelerazione)
|
||||
string DirWord(double val,double absPct,string up,string down,string flat)
|
||||
{
|
||||
if(absPct<0.15) return flat;
|
||||
string forza = (absPct<0.40)?"lieve":((absPct<0.70)?"moderata":"forte");
|
||||
return (val>0?up:down)+" "+forza;
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
// descrizione a parole per la distanza prezzo-mediana (con segno)
|
||||
string DistWord(double val,double absPct)
|
||||
{
|
||||
if(absPct<0.15) return "sulla mediana";
|
||||
string q = (absPct<0.40)?"poco":((absPct<0.70)?"moderatamente":"molto");
|
||||
return q+(val>0?" sopra":" sotto");
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
// mediana delle 7 MA a barra j dai buffer mb
|
||||
double MedMAatJ(PBuf &mb[],int j)
|
||||
{
|
||||
double v[7]; int c=0;
|
||||
for(int m=0;m<7;m++){ double x=mb[m].v[j]; if(IsVal(x)) v[c++]=x; }
|
||||
return MedArr(v,c);
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
// distanza prezzo-mediana: percentile storico (su |valore|) sugli ultimi 'win' giorni D1
|
||||
void DistStats(int win,double curDist,double &absPct)
|
||||
{
|
||||
absPct=0.5;
|
||||
int need=win+2;
|
||||
double cl[]; ArraySetAsSeries(cl,true);
|
||||
if(CopyClose(_Symbol,ANCHOR_TF,0,need,cl)!=need) return;
|
||||
PBuf mb[7];
|
||||
for(int m=0;m<7;m++){ ArraySetAsSeries(mb[m].v,true); if(CopyBuffer(hMA[m],0,0,need,mb[m].v)!=need) return; }
|
||||
double dA[]; int dc=0; ArrayResize(dA,win);
|
||||
for(int j=1;j<=win;j++)
|
||||
{
|
||||
double md=MedMAatJ(mb,j); if(md<=0) continue;
|
||||
dA[dc++]=MathAbs((cl[j]-md)/md*100.0);
|
||||
}
|
||||
absPct=PctlOf(dA,dc,MathAbs(curDist));
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
// interpolazione lineare con fallback se uno dei valori manca
|
||||
double Interp(double vStart,double vEnd,double frac)
|
||||
@@ -440,77 +280,41 @@ int OnCalculate(const int rates_total,
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
// larghezza in pixel di un testo nel font del pannello
|
||||
int TxtW(string s,int fs,bool bold)
|
||||
{
|
||||
TextSetFont(bold?"Consolas Bold":"Consolas",-fs*10);
|
||||
uint w=0,h=0;
|
||||
bool ok=TextGetSize(s,w,h);
|
||||
int est=(int)MathCeil(StringLen(s)*fs*0.62); // fallback se TextGetSize non disponibile
|
||||
if(!ok || (int)w<=0) return est;
|
||||
return MathMax((int)w,est); // mai meno della stima
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
void DrawInfo()
|
||||
{
|
||||
double bid = SymbolInfoDouble(_Symbol,SYMBOL_BID);
|
||||
double median = MedianAtD1(1); // valore D1 chiuso (stabile, non-repaint)
|
||||
if(median<=0) return;
|
||||
|
||||
int x=10,y0=30,lh=FontSize+4;
|
||||
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;
|
||||
|
||||
//--- 1) calcolo metriche e preparo tutte le stringhe
|
||||
double distPct = (bid-median)/median*100;
|
||||
color distC = (distPct>0)?clrRed:clrLimeGreen;
|
||||
double distAbsPct; DistStats(CLWIN,distPct,distAbsPct);
|
||||
string distS = StringFormat("%+.2f%%",distPct);
|
||||
color distC = (distPct>0)?clrRed:clrLimeGreen;
|
||||
Lbl("M","Median: "+DoubleToString(median,_Digits),x,y,FontSize,clrGold,false); y+=lh;
|
||||
Lbl("D","Dist: "+distS,x,y,FontSize,distC,true); y+=lh+2;
|
||||
|
||||
double cluCur,cluPct,velCur,velPct,accCur,accPct,volCur,volPct;
|
||||
AllMetrics(CLWIN,cluCur,cluPct,velCur,velPct,accCur,accPct,volCur,volPct);
|
||||
//--- Dispersione MA e bande (info)
|
||||
double ds=0; int dc=0;
|
||||
for(int m=0;m<7;m++) { double v=GetMA(m,1); 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+2;
|
||||
|
||||
string sT = "PaPP Median ["+StringSubstr(EnumToString((ENUM_TIMEFRAMES)_Period),7)+"]";
|
||||
string sM = "Median: "+DoubleToString(median,_Digits);
|
||||
string sD = StringFormat("Dist: %+.2f%% - %s (P%.0f)",distPct,DistWord(distPct,distAbsPct),distAbsPct*100);
|
||||
string sV = StringFormat("Cluster %.3f%% - %s (P%.0f)",cluCur,MagWord(cluPct,"molto stretto","stretto","normale","largo","molto largo"),cluPct*100);
|
||||
string sVE = StringFormat("Velocita' %+.3f%% - %s",velCur,DirWord(velCur,velPct,"in salita","in discesa","quasi piatta"));
|
||||
string sAC = StringFormat("Accel %+.4f%% - %s",accCur,DirWord(accCur,accPct,"in accelerazione","in decelerazione","stabile"));
|
||||
string sVO = StringFormat("Volatilita' %.4f%% - %s (P%.0f)",volCur,MagWord(volPct,"molto bassa","bassa","normale","alta","molto alta"),volPct*100);
|
||||
string sMA[7];
|
||||
for(int m=0;m<7;m++) sMA[m]=StringFormat("MA %3dg: %s",gDays[m],DoubleToString(GetMA(m,1),_Digits));
|
||||
string sH = "Sopra=SELL | Sotto=BUY";
|
||||
|
||||
//--- 2) larghezza/altezza del box: misuro la larghezza REALE in pixel (TextGetSize)
|
||||
int maxw=0;
|
||||
maxw=MathMax(maxw,TxtW(sT,FontSize+2,true));
|
||||
maxw=MathMax(maxw,TxtW(sM,FontSize,false));
|
||||
maxw=MathMax(maxw,TxtW(sD,FontSize,true));
|
||||
maxw=MathMax(maxw,TxtW(sV,FontSize,false));
|
||||
maxw=MathMax(maxw,TxtW(sVE,FontSize,false));
|
||||
maxw=MathMax(maxw,TxtW(sAC,FontSize,false));
|
||||
maxw=MathMax(maxw,TxtW(sVO,FontSize,false));
|
||||
maxw=MathMax(maxw,TxtW(sH,FontSize-1,false));
|
||||
for(int m=0;m<7;m++) maxw=MathMax(maxw,TxtW(sMA[m],FontSize-1,false));
|
||||
int boxX=x-6, boxY=y0-6;
|
||||
int w=maxw+(x-boxX)+10; // padding sinistro (x-boxX) + destro 10
|
||||
int bodyH=15*lh+6; // 7 righe in alto + 7 MA + riga finale + padding
|
||||
PanelBox(boxX,boxY,w,bodyH);
|
||||
|
||||
//--- 3) scritte (aggiornate in-place: niente ObjectsDeleteAll -> niente lampeggio)
|
||||
int y=y0;
|
||||
Lbl("T",sT,x,y,FontSize+2,clrGold,true); y+=lh+4;
|
||||
Lbl("M",sM,x,y,FontSize,clrGold,false); y+=lh;
|
||||
Lbl("D",sD,x,y,FontSize,distC,true); y+=lh+2;
|
||||
Lbl("V",sV,x,y,FontSize,(cluPct<0.40)?clrLimeGreen:((cluPct>0.60)?clrTomato:clrSilver),false); y+=lh;
|
||||
Lbl("VEL",sVE,x,y,FontSize,(velCur>0)?clrLimeGreen:clrTomato,false); y+=lh;
|
||||
Lbl("ACC",sAC,x,y,FontSize,(accCur>0)?clrLimeGreen:clrTomato,false); y+=lh;
|
||||
Lbl("VOL",sVO,x,y,FontSize,(volPct<0.40)?clrLimeGreen:((volPct>0.60)?clrTomato:clrAqua),false); y+=lh+2;
|
||||
//--- Valori delle 7 MA (giorni : valore) con colore = linea
|
||||
for(int m=0;m<7;m++)
|
||||
{
|
||||
double v=GetMA(m,1);
|
||||
Lbl("a"+IntegerToString(m),sMA[m],x,y,FontSize-1,(v>0)?gCol[m]:clrGray,false);
|
||||
Lbl("a"+IntegerToString(m),
|
||||
StringFormat("MA %3dg: %s",gDays[m],DoubleToString(v,_Digits)),
|
||||
x,y,FontSize-1,(v>0)?gCol[m]:clrGray,false);
|
||||
y+=lh-2;
|
||||
}
|
||||
y+=2;
|
||||
Lbl("H",sH,x,y,FontSize-1,clrGray,false);
|
||||
Lbl("H","Sopra=SELL | Sotto=BUY",x,y,FontSize-1,clrGray,false);
|
||||
}
|
||||
|
||||
//+------------------------------------------------------------------+
|
||||
@@ -558,27 +362,6 @@ void Lbl(string n,string t,int x,int y,int fs,color c,bool b)
|
||||
ObjectSetInteger(0,o,OBJPROP_FONTSIZE,fs);
|
||||
ObjectSetInteger(0,o,OBJPROP_COLOR,c);
|
||||
ObjectSetInteger(0,o,OBJPROP_BACK,false);
|
||||
ObjectSetInteger(0,o,OBJPROP_ZORDER,1); // sopra il box di sfondo
|
||||
ObjectSetInteger(0,o,OBJPROP_SELECTABLE,false);
|
||||
ObjectSetInteger(0,o,OBJPROP_HIDDEN,true);
|
||||
}
|
||||
//+------------------------------------------------------------------+
|
||||
// riquadro di sfondo del pannello (dietro alle scritte)
|
||||
void PanelBox(int px,int py,int w,int h)
|
||||
{
|
||||
string o=_pfx+"BOX";
|
||||
if(!ShowPanel) { ObjectDelete(0,o); return; }
|
||||
if(ObjectFind(0,o)<0) ObjectCreate(0,o,OBJ_RECTANGLE_LABEL,0,0,0);
|
||||
ObjectSetInteger(0,o,OBJPROP_CORNER,CORNER_LEFT_UPPER);
|
||||
ObjectSetInteger(0,o,OBJPROP_XDISTANCE,px);
|
||||
ObjectSetInteger(0,o,OBJPROP_YDISTANCE,py);
|
||||
ObjectSetInteger(0,o,OBJPROP_XSIZE,w);
|
||||
ObjectSetInteger(0,o,OBJPROP_YSIZE,h);
|
||||
ObjectSetInteger(0,o,OBJPROP_BGCOLOR,PanelBg);
|
||||
ObjectSetInteger(0,o,OBJPROP_BORDER_TYPE,BORDER_FLAT);
|
||||
ObjectSetInteger(0,o,OBJPROP_COLOR,clrDimGray); // bordo
|
||||
ObjectSetInteger(0,o,OBJPROP_BACK,false);
|
||||
ObjectSetInteger(0,o,OBJPROP_ZORDER,0); // dietro alle scritte
|
||||
ObjectSetInteger(0,o,OBJPROP_SELECTABLE,false);
|
||||
ObjectSetInteger(0,o,OBJPROP_HIDDEN,true);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user