M. Belkhayate Et Le Filtre De Gauss - Forex Forum

[LegacyColorValue = true];


Inputs:
    prix(Close),
    periode(32),
    np(2),
    Coul_asc(Blue),
    Coul_desc(Red),
    Coul_Norm(Green),
    Shift(1);

Var: Bam_G_V (0);

Bam_G_V = G_Filter(prix, periode, np);

Plot1(Bam_G_V, "BAM G FILTER");

if Bam_G_V > Bam_G_V[1] then
 SetPlotColor[Shift]( 1, Coul_asc )
else if Bam_G_V < Bam_G_V[1] then
 SetPlotColor[Shift]( 1, Coul_desc )
else
 SetPlotColor[Shift]( 1, Coul_Norm );

//  Belkhayate Timer}
//  Settings:
//    "B Indicateur : Histo
//    "B Timer : Point
//

Inputs:
Prix((h+l)/2),
Periode(20), { Periode pour calculer l'ATR et la DEVIATION STD }
Fac_Keltner(1.5), { Facteur ATR pour les bandes Keltner }
Fac_Bollinger(2),{ Facteur  DEVIATION STD pour les bandes de Bollinger }
AlertLine( 1 ), { Niveau d'alerte /cette version ne gre pas les alertes }
Couleur_Alerte( Blue ),
Couleur_Normale(Red);

Variables:
ATR(0), { Average True Range }
StDev(0), { Deviation Standard }
BBS_Ind(0), { l'indicateur }
alertTextID(-1);
if barnumber = 1 and alertTextID = -1 then
alertTextID = Text_New(date,time,0,"dummy");

//Calcul du Squeeze
ATR = AvgTrueRange(Periode);
StDev = StandardDev(Prix, Periode, 1);
BBS_Ind = (Fac_Bollinger * StDev) / (Fac_Keltner * ATR);

If BBS_Ind < Alertline then
SetPlotColor(1, Couleur_Normale)
else
SetPlotColor(1, Couleur_Alerte);

Plot1(0, "B indicateur");

value2 = LinearRegValue(Prix-((Highest(H, Periode)+Lowest(L, Periode))/2
+
xAverage(c,Periode))/2,Periode,0);
var:color(0); color = yellow;
if value2>0 then
if value2 > value2[1] then
color = green
else
color = darkgreen;

if value2<0 then
if value2 < value2[1] then
color = red
else
color = darkred;

plot3(value2,"B timer",color);

Inputs: Prix(NumericSeries), Periode(NumericSimple), Np(NumericSimple);

variables: aa(0), b(0), w(0), x(0), y(0), y1(0), y2(0), y3(0), y4(0),
       a_1(0), a_12(0), a_13(0), a_14(0), a2(0), a3(0), a4(0), Pi(3.141592654),
       sqrtOf2(1.414213562);

If (Np >= 1) and (Np <= 4) then
begin

    if CurrentBar = 1 then
    begin
    w = 2 * Pi / Periode;
    w = 180 * w / Pi;    
 
    b = (1 - cosine(w)) / (power(sqrtOf2, 2.0/Np) - 1.0);

    aa = -b + squareroot(b*b + 2*b);
    a_1 = 1.0 - aa;
    a_12 = a_1 * a_1;
    a_13 = a_1 * a_1 * a_1;
    a_14 = a_12 * a_12;
    a2 = aa * aa;
    a3 = aa * aa * aa;
    a4 = a2 * a2;
 
    y1 = Prix;
    y2 = y1;
       y3 = y2;
    y4 = y3;
    end;

    x = Prix;

    if (Np = 1) then
 y = aa * x + a_1 * y1
    else if (Np = 2) then
 y = a2 * x + 2 * a_1 * y1 - a_12 * y2
    else if (Np = 3) then
 y = a3 * x + 3 * a_1 * y1 - 3 * a_12 * y2 + a_13 * y3
    else if (Np = 4) then
 y = a4 * x + 4 * a_1 * y1 - 6 * a_12 * y2 + 4 * a_13 * y3 - a_14 * y4;

    y4 = y3;
    y3 = y2;
    y2 = y1;
    y1 = y;  

    G_filter = y;
end
else
    G_filter = 0.0;

//+------------------------------------------------------------------+
//|                                                        Snake.mq4 |
//|                                       |
//|                           Bookkeeper, 2006, yuzefovich@gmail.com |
//+------------------------------------------------------------------+
#property copyright ""
#property link      ""
//----
#property indicator_chart_window
#property indicator_buffers 1
#property indicator_color1 Yellow
//----
extern int Snake_HalfCycle=24; // Snake_HalfCycle = 4...10 or other
//----
double Snake_Buffer[];
double Snake_Sum, Snake_Weight, Snake_Sum_Minus, Snake_Sum_Plus;
int Snake_FullCycle;
//----
int init()
{
int    draw_begin;
   Snake_FullCycle=Snake_HalfCycle*2+1;
   draw_begin=Snake_FullCycle+1;
   SetIndexDrawBegin(0,draw_begin);
   SetIndexBuffer(0,Snake_Buffer);
   SetIndexStyle(0,DRAW_LINE);
   return(0);
}
//----
int start()
{
int FirstPos, ExtCountedBars=0;
   if(Bars<=150) return(0);
   if(Snake_HalfCycle<3) Snake_HalfCycle=3;
   ExtCountedBars=IndicatorCounted();
   if (ExtCountedBars<0) return(-1);
   if (ExtCountedBars>0) ExtCountedBars--;
   FirstPos=Bars-ExtCountedBars-1;
   if(FirstPos>Bars-Snake_HalfCycle-1) FirstPos=Bars-Snake_HalfCycle-1;
   Snake(FirstPos);
   return(0);
}
//----
void Snake(int Pos)
{
int i;
   if(Pos<=Snake_HalfCycle+1) Pos=Snake_HalfCycle+2;
   Snake_Buffer[Pos]=SnakeFirstCalc(Pos);
   Pos--;
   while(Pos>=Snake_HalfCycle)
   {
      Snake_Buffer[Pos]=SnakeNextCalc(Pos);
      Pos--;
   }
   while(Pos>0)
   {
      Snake_Buffer[Pos]=SnakeFirstCalc(Pos);
      Pos--;
   }
   if(Pos==0)
      Snake_Buffer[0]=iMA(NULL,0,Snake_HalfCycle,0,MODE_LWMA,PRICE_TYPICAL,0);
   return;
}
//----
double SnakePrice(int Shift)
{
   return((2*Close[Shift]+High[Shift]+Low[Shift])/4);
}
//----
double SnakeFirstCalc(int Shift)
{
int i, j, w;
   Snake_Sum=0.0;
   Snake_Weight=0.0;
   if(Shift<Snake_HalfCycle)
   {
      i=0;
      w=Shift+Snake_HalfCycle;
      while(w>=Shift)
      {
         i++;
         Snake_Sum=Snake_Sum+i*SnakePrice(w);
         Snake_Weight=Snake_Weight+i;
         w--;
      }
      while(w>=0)
      {
         i--;
         Snake_Sum=Snake_Sum+i*SnakePrice(w);
         Snake_Weight=Snake_Weight+i;
         w--;
      }
   }
   else
   {
      Snake_Sum_Minus=0.0;
      Snake_Sum_Plus=0.0;
      for(j=Shift-Snake_HalfCycle,i=Shift+Snake_HalfCycle,w=1;
          w<= Snake_HalfCycle;
          j++,i--,w++)
      {
         Snake_Sum=Snake_Sum+w*(SnakePrice(i)+SnakePrice(j));
         Snake_Weight=Snake_Weight+2*w;
         Snake_Sum_Minus=Snake_Sum_Minus+SnakePrice(i);
         Snake_Sum_Plus=Snake_Sum_Plus+SnakePrice(j);
      }
      Snake_Sum=Snake_Sum+( Snake_HalfCycle+1)*SnakePrice(Shift);
      Snake_Weight=Snake_Weight+ Snake_HalfCycle+1;
      Snake_Sum_Minus=Snake_Sum_Minus+SnakePrice(Shift);
   }
   return(Snake_Sum/ Snake_Weight);
}
//----
double SnakeNextCalc(int Shift)
{
   Snake_Sum_Plus=Snake_Sum_Plus+SnakePrice(Shift-Snake_HalfCycle);
   Snake_Sum=Snake_Sum-Snake_Sum_Minus+Snake_Sum_Plus;
   Snake_Sum_Minus=Snake_Sum_Minus-SnakePrice(Shift+Snake_HalfCycle+1)+SnakePrice(Shift);
   Snake_Sum_Plus=Snake_Sum_Plus-SnakePrice(Shift);
   return(Snake_Sum/Snake_Weight);
}
//----