Candletalk

Source code

function Swing_Low()
{
return ValueWhen(
(L>Ref(L,-1) AND Ref(L==LowestSince(L<Ref(L,-1),L,1),-1))
,Ref(L,-1),1) ;
}
function Swing_High()
{
return ValueWhen(
(H<Ref(H,-1) AND Ref(H==HighestSince(H>Ref(H,-1),H,1),-1)) 
,Ref(H,-1),1);
}

// pot. Swing Highs, Lows
SH=Swing_High();
SL=Swing_Low() ;
SL= IIf(SL!=Ref(SL,1),Ref(SL,1),Null);
SH= IIf(SH!=Ref(SH,1),Ref(SH,1),Null);
SLR=Null; //reale Werte (wenn sie feststehen)
SHR=Null;
// inside Bars kontrollieren

for ( i = 1; i < BarCount ; i++ )
  {
  if (Nz(SL[i])>0)
    {
    k=i+1;
    while (k<BarCount AND (H[k]<H[i] AND L[k]>L[i]))
      {
      SH[k]=0;
      SL[k]=0;
      k++ ; // inside-Bars weg
      }
    if (k==BarCount)
      SL[i]=Null;
    else
      {
      if (NOT(H[k]>H[i]) AND NOT(L[k]>L[i])) SL[i]=Null; // doch kein Swing
      else SLR[k]=SL[i];
      }
    }
  if (Nz(SH[i])>0)
    {
    k=i+1;
    while (k<BarCount AND (H[k]<H[i] AND L[k]>L[i])) 
      {
      SH[k]=0;
      SL[k]=0;
      k++; // inside-Bars weg
      }
    if (k==BarCount)
      SH[i]=Null;
    else
      {
      if (NOT(H[k]<H[i]) AND NOT(L[k]<L[i])) SH[i]=Null;
      else SHR[k]=SH[i];
      }
    }
  }
  
// outsidebars kontrollieren
SLF=0;
SHF=0;
for (i=0;i<BarCount;i++)
{
 if (SLR[i]>0 )
   {
   if (SLF==1 AND H[i-1]>H[i-2]) SHR[i]=H[i-1]; // outsidebar
   SLF=1;
   SHF=0;
   }
 if (SHR[i]>0 )
   {
   if (SHF==1 AND L[i-1]<L[i-2]) SLR[i]=L[i-1];
   SLF=0;
   SHF=1;
   }
}

SLF=0;
SHF=0;

dist = .41 * ATR( 10 );

for (i=0;i<BarCount;i++)
{
 if (SL[i]>0 )
   {
   if (SLF==0) PlotText( "SL",i, SL[ i ]- dist[i],colorGreen,colorYellow );
   else PlotText( "SL",i, SL[ i ]- dist[i],colorRed,colorYellow );
   SLF=1;
   SHF=0;
   }
 if (SH[i]>0 )
   {
   if (SHF==0) PlotText( "SH",i, SH[ i ]+ dist[i],colorGreen,colorYellow );
   else PlotText( "SH",i, SH[ i ]+ dist[i],colorRed,colorYellow );
   SLF=0;
   SHF=1;
   }
}

dt       = DateTime();
shdt     = ValueWhen(sh, dt);
sldt     = ValueWhen(sl, dt);
shh      = ValueWhen(sh, H);
sll      = ValueWhen(sl, L);
upline   = IIf( shdt > sldt, shh - (shh-sll) * 0.618, Null);
dnline   = IIf( sldt > shdt, sll + (shh-sll) * 0.618, Null);
Lastup   = LastValue(upline);
Lastdn   = LastValue(dnline);
whatline = IIf(Lastup > Lastdn, Lastup, Lastdn);
Colline  = IIf(Lastup > Lastdn, colorBrightGreen, colorRed);

nshh     = ValueWhen(H > Ref(H,-1), H);
stoppuptrend = nshh- (nshh-Ref(sll,-1)) * 0.618;
nsll     = ValueWhen(L < Ref(L,-1),L);
stoppdntrend = nsll + (Ref(shh,-1)- nsll) * 0.618;

uptrend = Flip(shdt > sldt,C< stoppuptrend);
dntrend = Flip(sldt > shdt,C> stoppdntrend);

//Plot(whatline, "", Colline, styleDashed);

Buy = H<Ref(H,-1) AND H != shh AND Lastup > Lastdn AND C > whatline AND uptrend;
Short = L>Ref(L,-1) AND L != sll AND Lastup < Lastdn AND C < whatline AND dntrend;
//Plot(uptrend ,"",colorBlue,4);
//Plot(dntrend ,"",colorBlack,4);
Plot(nshh,"",colorYellow);
//Plot(Ref(stoppuptrend,-1),"",colorBlue,4);
Plot(stoppuptrend,"",colorBlue,4);
Plot(nsll,"",colorYellow);
Plot(stoppdntrend,"",colorGreen,4);

//PlotShapes(shapeSmallUpTriangle*Buy,colorLime,0,Low-0.5*ATR(1));
//PlotShapes(shapeSmallDownTriangle*Short,colorRed,0,High+0.5*ATR(1));

Source code

function Swing_Low()
{
return ValueWhen(
(L>Ref(L,-1) AND Ref(L==LowestSince(L<Ref(L,-1),L,1),-1))
,Ref(L,-1),1) ;
}
function Swing_High()
{
return ValueWhen(
(H<Ref(H,-1) AND Ref(H==HighestSince(H>Ref(H,-1),H,1),-1)) 
,Ref(H,-1),1);
}

// pot. Swing Highs, Lows
SH=Swing_High();
SL=Swing_Low() ;
SL= IIf(SL!=Ref(SL,1),Ref(SL,1),Null);
SH= IIf(SH!=Ref(SH,1),Ref(SH,1),Null);
SLR=Null; //reale Werte (wenn sie feststehen)
SHR=Null;
// inside Bars kontrollieren

for ( i = 1; i < BarCount ; i++ )
  {
  if (Nz(SL[i])>0)
    {
    k=i+1;
    while (k<BarCount AND (H[k]<H[i] AND L[k]>L[i]))
      {
      SH[k]=0;
      SL[k]=0;
      k++ ; // inside-Bars weg
      }
    if (k==BarCount)
      SL[i]=Null;
    else
      {
      if (NOT(H[k]>H[i]) AND NOT(L[k]>L[i])) SL[i]=Null; // doch kein Swing
      else SLR[k]=SL[i];
      }
    }
  if (Nz(SH[i])>0)
    {
    k=i+1;
    while (k<BarCount AND (H[k]<H[i] AND L[k]>L[i])) 
      {
      SH[k]=0;
      SL[k]=0;
      k++; // inside-Bars weg
      }
    if (k==BarCount)
      SH[i]=Null;
    else
      {
      if (NOT(H[k]<H[i]) AND NOT(L[k]<L[i])) SH[i]=Null;
      else SHR[k]=SH[i];
      }
    }
  }
  
// outsidebars kontrollieren
SLF=0;
SHF=0;
for (i=0;i<BarCount;i++)
{
 if (SLR[i]>0 )
   {
   if (SLF==1 AND H[i-1]>H[i-2]) SHR[i]=H[i-1]; // outsidebar
   SLF=1;
   SHF=0;
   }
 if (SHR[i]>0 )
   {
   if (SHF==1 AND L[i-1]<L[i-2]) SLR[i]=L[i-1];
   SLF=0;
   SHF=1;
   }
}

SLF=0;
SHF=0;

dist = .41 * ATR( 10 );

for (i=0;i<BarCount;i++)
{
 if (SL[i]>0 )
   {
   if (SLF==0) PlotText( "SL",i, SL[ i ]- dist[i],colorGreen,colorYellow );
   else PlotText( "SL",i, SL[ i ]- dist[i],colorRed,colorYellow );
   SLF=1;
   SHF=0;
   }
 if (SH[i]>0 )
   {
   if (SHF==0) PlotText( "SH",i, SH[ i ]+ dist[i],colorGreen,colorYellow );
   else PlotText( "SH",i, SH[ i ]+ dist[i],colorRed,colorYellow );
   SLF=0;
   SHF=1;
   }
}

dt       = DateTime();
shdt     = ValueWhen(sh, dt);
sldt     = ValueWhen(sl, dt);
shh      = ValueWhen(sh, H);
sll      = ValueWhen(sl, L);
upline   = IIf( shdt > sldt, shh - (shh-sll) * 0.618, Null);
dnline   = IIf( sldt > shdt, sll + (shh-sll) * 0.618, Null);
Lastup   = LastValue(upline);
Lastdn   = LastValue(dnline);
whatline = IIf(Lastup > Lastdn, Lastup, Lastdn);
Colline  = IIf(Lastup > Lastdn, colorBrightGreen, colorRed);

nshh     = ValueWhen(H > Ref(H,-1), H);
stoppuptrend = nshh- (nshh-sll) * 0.618;

uptrend = Flip(shdt > sldt,C<Ref(nshh- (nshh-sll) * 0.618,-1));
dntrend = Flip(sldt > shdt,C> sll + (shh-sll) * 0.618);

//Plot(whatline, "", Colline, styleDashed);

Buy = H<Ref(H,-1) AND H != shh AND Lastup > Lastdn AND C > whatline AND uptrend;
Short = L>Ref(L,-1) AND L != sll AND Lastup < Lastdn AND C < whatline AND NOT uptrend;
//Plot(uptrend ,"",colorBlue,4);
//Plot(dntrend ,"",colorBlack,4);
Plot(nshh,"",colorRed,4);
Plot(Ref(stoppuptrend,-1),"",colorGreen,4);

//PlotShapes(shapeSmallUpTriangle*Buy,colorLime,0,Low-0.5*ATR(1));
//PlotShapes(shapeSmallDownTriangle*Short,colorRed,0,High+0.5*ATR(1));

Source code

// AFL code by E.M.Pottasch, 9/16/2011
nbar=Param("Lookback nbars",120,3,500,1);
shift = Param("Shift", 0, 0, 500, 1);
fut=Param("Future Bars",5,0,10,1);

mm=(H+L)/2;x=Cum(1);x1=x+fut;
selv=SelectedValue(x)-shift;
bbb=Ref(LinRegIntercept(mm,nbar), -shift);
aaa=Ref(LinRegSlope(mm,nbar), -shift);
dbb=SelectedValue(ValueWhen(x,bbb,1));
daa=SelectedValue(ValueWhen(x,aaa,1));
dbb1=SelectedValue(ValueWhen(x1,bbb,1));
daa1=SelectedValue(ValueWhen(x1,aaa,1));
 
xx=IIf(x>selv-nbar AND x<=selv,x-(selv-nbar),Null);
yy=dbb+daa*xx;
fxx=IIf(x1>selv AND x1<=selv+fut,x1-(selv-nbar),Null);
fyy=Ref(dbb1+daa1*fxx,0);
wd=Ref(SelectedValue(Ref(2*StdErr(mm,nbar), -shift)), 0);
 
clr0=IIf(daa>0,ColorRGB(0,250,0),ColorRGB(250,0,0));
clr1=IIf(daa>0,ColorRGB(0,30,0),ColorRGB(30,0,0));
 
SetChartOptions(0,chartShowDates);
Plot(yy,"LinReg",clr0,styleDashed|styleNoRescale,0,0,0,-1);
Plot(yy+wd,"Upper Boundary",clr0,styleLine|styleNoRescale,0,0,0,-1);
Plot(yy-wd,"Lower Boundary",clr0,styleLine|styleNoRescale,0,0,0,-1);
PlotOHLC(yy+wd,yy+wd,yy-wd,yy-wd,"",clr1,styleCloud|styleNoLabel,0,0,0,-1);
Plot(fyy,"",clr0,styleDots|styleNoLine,0,0,fut,2);
Plot(fyy+wd,"",clr0,styleDots|styleNoLine,0,0,fut,2);
Plot(fyy-wd,"",clr0,styleDots|styleNoLine,0,0,fut,2);
//Plot(C,"",colorBlack,styleCandle,0,0,0,1);

Source code

dt       = DateTime();
shdt     = ValueWhen(sh, dt);
sldt     = ValueWhen(sl, dt);
shh      = ValueWhen(sh, H);
sll      = ValueWhen(sl, L);
upline   = IIf( shdt > sldt, shh - (shh-sll) * 0.618, Null);
dnline   = IIf( sldt > shdt, sll + (shh-sll) * 0.618, Null);
Lastup   = LastValue(upline);
Lastdn   = LastValue(dnline);
whatline = IIf(Lastup > Lastdn, Lastup, Lastdn);
Colline  = IIf(Lastup > Lastdn, colorBrightGreen, colorRed);

Plot(whatline, "", Colline, styleDashed);

Buy = H<Ref(H,-1) AND H != shh AND Lastup > Lastdn AND C > whatline;
Short = L>Ref(L,-1) AND L != sll AND Lastup < Lastdn AND C < whatline;

PlotShapes(shapeSmallUpTriangle*Buy,colorLime,0,Low-0.5*ATR(1));
PlotShapes(shapeSmallDownTriangle*Short,colorRed,0,High+0.5*ATR(1));