BullCharts : Adding Fractals to BullCharts http://www.bullcharts.com.au/forum/ This is an XML content feed of; BullCharts : BullScript : Adding Fractals to BullCharts Copyright (c) 2006-2009 Web Wiz Forums - All Rights Reserved. Wed, 15 Apr 2026 07:11:33 +0000 Sun, 21 Jul 2019 17:40:49 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 9.69 360 www.bullcharts.com.au/forum/RSS_post_feed.asp?TID=676 BullCharts http://www.bullcharts.com.au/forum/http://www.bullcharts.com.au/images/bull_logo.gif http://www.bullcharts.com.au/forum/ Adding Fractals to BullCharts : Independent Indicator 1{Chaos... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=3594#3594 Author: cmacdon
Subject: 676
Posted: 21 Jul 2019 at 5:40pm


Independent Indicator 1

{Chaos AO }
{ Chaos Awsome Oscillator - measures momentum }
{ A very close approximation of MFI }
{ Plot as histogram }
ma(MP(),5,S) - ma(MP(),34,S);

Independent Indicator 2

{Chaos AO }
{ Chaos Awsome Oscillator - measures momentum }
{ A very close approximation of MFI }
{ Plot as histogram }
n1 := input("Shorter moving average",5,1);
n2 := input("Longer moving average",34,1);
Green:=IF( ma(MP(),n1,S) - ma(MP(),n2,S) >=0,ma(MP(),n1,S) - ma(MP(),n2,S),undefined);
Red:=IF( ma(MP(),n1,S) - ma(MP(),n2,S) <0,ma(MP(),n1,S) - ma(MP(),n2,S) ,undefined);
[name=Green; linestyle=bar; width=4] [color=Green; name=Greenlight]
If(Green>=0,Green,undefined);
[name=Red; linestyle=bar; width=4] [color=Orange; name=Redlight2]
If(Green>=0 AND Green <Hist(Green,1), Green,undefined);

[name=Red2; linestyle=bar; width=4] [color=Red; name=Redlight]
If(Red<0, Red,undefined);
[name=Red4; linestyle=bar; width=4] [color=Lime; name=Redlight2]
If(Red <0 AND Red >Hist(Red,1), Red,undefined);



Independent Indicator 3

ns := input("Time periods",1,1);
nl := input("Time periods",14,1);

{Chaos AO }
{ Chaos Awsome Oscillator Adapted PLDot  - measures momentum }
{ A very close approximation of MFI }
{ Plot as histogram }
TaPLDot:=(((hist(h,0)+hist(Low,0)+hist(C,0))/2)+((hist(h,1)+hist(Low,1)+hist(C,1))/2))/2;
ma(TaPLDot,ns,S) - ma(TaPLDot,nl,S);



Independent Indicator 4

{Chaos AO with signals}
{ Chaos Awsome Oscillator - measures momentum CMD adapted to match Metastock indicator }
{ A very close approximation of MFI }
{ Plot as histogram }
Red:=If(ma(MP(),5,S) - ma(MP(),34,S)<Ref(ma(MP(),5,S) - ma(MP(),34,S),-1) OR (Ref(ma(MP(),5,S) - ma(MP(),34,S),-1)<Ref(ma(MP(),5,S) - ma(MP(),34,S),-2)
AND ma(MP(),5,S) - ma(MP(),34,S)=Ref(ma(MP(),5,S) - ma(MP(),34,S),-1)),ma(MP(),5,S) - ma(MP(),34,S),0);
Green:=If(ma(MP(),5,S) - ma(MP(),34,S)>Ref(ma(MP(),5,S) - ma(MP(),34,S),-1) OR (Ref(ma(MP(),5,S) - ma(MP(),34,S),-1)>Ref(ma(MP(),5,S) - ma(MP(),34,S),-2)
AND ma(MP(),5,S) - ma(MP(),34,S)=Ref(ma(MP(),5,S) - ma(MP(),34,S),-1)),ma(MP(),5,S) - ma(MP(),34,S),0);
AOcrossoverBuy:= Green>0 and Ref(Green,-1)< 0;
AOsaucerBuy:= Green>0 and Green> Ref(Green,-1) and Ref(Green,-1)< Ref(Green,-2) or Green>0 and Ref(Red,-1)>0;
AOUnderlineBuy:= Green<0 and Green> Ref(Red,-1);
AOUnderlinesecondBuy:= Green<0 and Green> Ref(Green,-1) and Green> Ref(Green,-2) and Ref(Red,-3)<0;
AOcrossunderSell:= Red<0 and Ref(Red,-1)>0 ;
AOOverlineSell:= Red>0 and Red< Ref(Green,-1);
AOUnderlineSell:= Red<0 and Red> Ref(Green,-1);
AOsaucerSell:= Red<0 and Red< Ref(Green,-1) and Ref(Green,-1)< Ref(Green,-2) or Red<0 and Ref(Green,-1)<0;

Red;
Green;
{ Markers }
[name=CB; linestyle=marker; marker=type15; tooltip=" AOcrossoverBuy "]
[color=green]
AOcrossoverBuy;
{ Markers }
[name=SauB; linestyle=marker; marker=type17; colour=green;tooltip=" AOsaucerBuy "]
[color=green]
AOsaucerBuy;
{ Markers }
[name=UB; linestyle=marker; marker=type15; tooltip=" AOUnderlineBuy"]
[color=green]
AOUnderlineBuy;
{ Markers }
[name=U2B; linestyle=marker; marker=type15; tooltip=" AOUnderlinesecondBuy"]
[color=green]
AOUnderlinesecondBuy;

{ Markers }
[name=CS; linestyle=marker; marker=type15; tooltip=" AOcrossunderSell"]
[color=red]
AOcrossunderSell;
{ Markers }
[name=OS; linestyle=marker; marker=type28; tooltip=" AOUnderlinesecondBuy"]
[color=Red]
AOOverlineSell;
{ Markers }
[name=US; linestyle=marker; marker=type29; tooltip=" AOUnderlineSell"]
[color=Red]
AOUnderlineSell;
{ Markers }
[name=SauS; linestyle=marker; marker=type17; colour=green;tooltip=" AOsaucerSell "]
[color=green]
AOsaucerSell;

Independent Indicator 5
{Chaos AO with signals}
S1 := inputma("Method",SIMPLE);
n1 := input("Shorter moving average",5,1);
n2 := input("Longer moving average",34,1);
methodroc := inputroc("Mode");
Red:=If(ma(MP(),n1,S1) - ma(MP(),n2,S1)<Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-1) OR (Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-1)<Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-2)
AND ma(MP(),n1,S1) - ma(MP(),n2,S1)=Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-1)),ma(MP(),n1,S1) - ma(MP(),n2,S1),0);
Green:=If(ma(MP(),n1,S1) - ma(MP(),n2,S1)>Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-1) OR (Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-1)>Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-2)
AND ma(MP(),n1,S1) - ma(MP(),n2,S1)=Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-1)),ma(MP(),n1,S1) - ma(MP(),n2,S1),0);
{Awesome oscillator}
AOcrossoverBuy:= Green>0 and Ref(Green,-1)<0;
AOsaucerBuy:= Green>0 and Green> Ref(Green,-1) and Ref(Green,-1)< Ref(Green,-2) or Green>0 and Ref(Red,-1)>0;
AOUnderlineBuy:= Green<0 and Green> Ref(Red,-1);
AOUnderlinesecondBuy:= Green<0 and Green> Ref(Green,-1) and Green> Ref(Green,-2) and Ref(Red,-3)<0;
AOcrossunderSell:= Red<0 and Ref(Red,-1)>0 ;
AOOverlineSell:= Red>0 and Red< Ref(Green,-1);
AOUnderlineSell:= Red<0 and Red> Ref(Green,-1);
AOsaucerSell:= Red<0 and Red< Ref(Green,-1) and Ref(Green,-1)< Ref(Green,-2) or Red<0 and Ref(Green,-1)<0;

[name=DownMomentum; linestyle=Bar; width=4; color=Red;]
Red;
[name=UpMomentum; linestyle=Bar; width=4; color=Royal Blue;]
Green;

{Markers}
[name=Cb;linestyle=marker;marker=long;fontsize=6;Color=Green;textalign=below,center;tooltip="AOcrossoverBuy "]
AOcrossoverBuy;
[name=SauB;linestyle=marker;marker=long;colour=green;tooltip="AOsaucerBuy "]
AOsaucerBuy;
[name=Ub;linestyle=marker;marker=long;tooltip="AOUnderlineBuy"]
AOUnderlineBuy;
[name=Ub2;linestyle=marker;marker=long;tooltip="AOUnderlinesecondBuy"]
AOUnderlinesecondBuy;

[name=Cs;linestyle=marker;marker=short;Color=Red;textalign=Above,center;tooltip="AOcrossunderSell"]
AOcrossunderSell;
[name=s2;linestyle=marker;marker=short;tooltip="AOOverlineSell"]
AOOverlineSell;
[name=US;linestyle=marker;marker=short;tooltip="AOUnderlineSell"]
AOUnderlineSell;
[name=SauS;linestyle=marker;marker=short;tooltip="AOsaucerSell "]

AOsaucerSell;

Independent Indicator 6

{Chaos AO with variable inputs}
S1 := inputma("Method",SIMPLE);
n1 := input("Shorter moving average",5,1);
n2 := input("Longer moving average",34,1);
methodroc := inputroc("Mode");
Red:=If(ma(MP(),n1,S1) - ma(MP(),n2,S1)<Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-1) OR (Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-1)<Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-2)
AND ma(MP(),n1,S1) - ma(MP(),n2,S1)=Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-1)),ma(MP(),n1,S1) - ma(MP(),n2,S1),0);
Green:=If(ma(MP(),n1,S1) - ma(MP(),n2,S1)>Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-1) OR (Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-1)>Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-2)
AND ma(MP(),n1,S1) - ma(MP(),n2,S1)=Ref(ma(MP(),n1,S1) - ma(MP(),n2,S1),-1)),ma(MP(),n1,S1) - ma(MP(),n2,S1),0);
{Awesome oscillator}
AOcrossoverBuy:= Green>0 and Ref(Green,-1)<0;
AOsaucerBuy:= Green>0 and Green> Ref(Green,-1) and Ref(Green,-1)< Ref(Green,-2) or Green>0 and Ref(Red,-1)>0;
AOUnderlineBuy:= Green<0 and Green> Ref(Red,-1);
AOUnderlinesecondBuy:= Green<0 and Green> Ref(Green,-1) and Green> Ref(Green,-2) and Ref(Red,-3)<0;
AOcrossunderSell:= Red<0 and Ref(Red,-1)>0 ;
AOOverlineSell:= Red>0 and Red< Ref(Green,-1);
AOUnderlineSell:= Red<0 and Red> Ref(Green,-1);
AOsaucerSell:= Red<0 and Red< Ref(Green,-1) and Ref(Green,-1)< Ref(Green,-2) or Red<0 and Ref(Green,-1)<0;

[name=DownMomentum; linestyle=Bar; width=4; color=Red;]
Red;
[name=UpMomentum; linestyle=Bar; width=4; color=Royal Blue;]
Green;

{Markers}
[name=Cb;linestyle=marker;marker=long;fontsize=6;Color=Green;textalign=below,center;tooltip="AOcrossoverBuy "]
AOcrossoverBuy;
[name=SauB;linestyle=marker;marker=long;colour=green;tooltip="AOsaucerBuy "]
AOsaucerBuy;
[name=Ub;linestyle=marker;marker=long;tooltip="AOUnderlineBuy"]
AOUnderlineBuy;
[name=Ub2;linestyle=marker;marker=long;tooltip="AOUnderlinesecondBuy"]
AOUnderlinesecondBuy;

[name=Cs;linestyle=marker;marker=short;Color=Red;textalign=Above,center;tooltip="AOcrossunderSell"]
AOcrossunderSell;
[name=s2;linestyle=marker;marker=short;tooltip="AOOverlineSell"]
AOOverlineSell;
[name=US;linestyle=marker;marker=short;tooltip="AOUnderlineSell"]
AOUnderlineSell;
[name=SauS;linestyle=marker;marker=short;tooltip="AOsaucerSell "]
AOsaucerSell;


Independent Indicator 7
{Chaos Zones }
{ Chaos Alligator CMD Developed Refer Chapter 7}
{ Plot as histogram }
green := If(ma(MP(),5,S) - ma(MP(),34,S)<Ref(ma(MP(),5,S) - ma(MP(),34,S),-1) OR (Ref(ma(MP(),5,S) - ma(MP(),34,S),-1)<Ref(ma(MP(),5,S) - ma(MP(),34,S),-2)
AND ma(MP(),5,S) - ma(MP(),34,S)=Ref(ma(MP(),5,S) - ma(MP(),34,S),-1)),ma(MP(),5,S) - ma(MP(),34,S),0);
green1 :=If(Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S)<Ref(Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S),-1) OR (Ref(Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S),-1)<Ref(Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S),-2)
AND Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S)=Ref(Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S),-1)),Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S),0);
red :=If(ma(MP(),5,S) - ma(MP(),34,S)>Ref(ma(MP(),5,S) - ma(MP(),34,S),-1) OR (Ref(ma(MP(),5,S) - ma(MP(),34,S),-1)>Ref(ma(MP(),5,S) - ma(MP(),34,S),-2)
AND ma(MP(),5,S) - ma(MP(),34,S)=Ref(ma(MP(),5,S) - ma(MP(),34,S),-1)),ma(MP(),5,S) - ma(MP(),34,S),0);
red1:= If(Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S)>Ref(Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S),-1) OR (Ref(Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S),-1)>Ref(Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S),-2)
AND Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S)=Ref(Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S),-1)),Fml("CMD Chaos AO") - ma(Fml("CMD Chaos AO"),5,S),0);
redtwo:=red and red1;
greentwo:=green and green1;
Greyone:=red and green1;
Greytwo:=red1 and green;

redtwo;
greentwo;
Greyone;
Greytwo;

Price chart indicators
Independent Indicator 8
method := inputma("Method",SIMPLE);
n := input("Longer Time period",14,1);

{Chaos AO with signals}
{ Chaos Awsome Oscillator - measures momentum CMD adapted to match Metastock indicator }
{ A very close approximation of MFI }
{ Plot as histogram }

{This is TRApldot but to save all the recoding called Pldot}
Pldot:=(((hist(h,0)+hist(Low,0)+hist(C,0))/3)+((hist(h,1)+hist(Low,1)+hist(C,1))/3))/2;
Red:=If(ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD)<Ref(ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD),-1) OR (Ref(ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD),-1)<Ref(ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD),-2)
AND ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD)=Ref(ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD),-1)),ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD),0);
Green:=If(ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD)>Ref(ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD),-1) OR (Ref(ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD),-1)>Ref(ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD),-2)
AND ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD)=Ref(ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD),-1)),ma(PLDOT,1,METHOD) - ma(PLDOT,n,METHOD),0);
AOcrossoverBuy:= Green>0 and Ref(Green,-1)< 0;
AOsaucerBuy:= Green>0 and Green> Ref(Green,-1) and Ref(Green,-1)< Ref(Green,-2) or Green>0 and Ref(Red,-1)>0;
AOUnderlineBuy:= Green<0 and Green> Ref(Red,-1);
AOUnderlinesecondBuy:= Green<0 and Green> Ref(Green,-1) and Green> Ref(Green,-2) and Ref(Red,-3)<0;
AOcrossunderSell:= Red<0 and Ref(Red,-1)>0 ;
AOOverlineSell:= Red>0 and Red< Ref(Green,-1);
AOUnderlineSell:= Red<0 and Red> Ref(Green,-1);
AOsaucerSell:= Red<0 and Red< Ref(Green,-1) and Ref(Green,-1)< Ref(Green,-2) or Red<0 and Ref(Green,-1)<0;
[target=Price; linestyle=PriceColor;]
[name=Slowing; color=Red; name=Slowing]
if(Red,1,undefined);
[name=Momentum; color=Royal Blue; name=Momentum]
if(Green,1,undefined);

Independent Indicator 9

{Chaos Fractals}
[description="Some Fractal Patterns showing the High or Low value instead of a marker."; citation= "'Fractal Pattern from Trading Chaos 2nd Ed, pp 137-138' or New Trading Dimensions pp 67 to 70";
author=Bill Williams & Justine Gregory-Williams and Bill Williams respectively; ]
[target=Price;]
High1a := Ref(HIGH,-3);
High1 := Ref(HIGH,-2);
High2 := Ref(HIGH,-1);
High3 := Ref(HIGH,0);
High4 := Ref(HIGH,1);
High5 := Ref(HIGH,2);
Low1a := Ref(LOW,-3);
Low1 := Ref(LOW,-2);
Low2 := Ref(LOW,-1);
Low3 := Ref(LOW,0);
Low4 := Ref(LOW,1);
Low5 := Ref(LOW,2);
FractalUp:= (High3 > High1)
AND (High3 > High2)
AND (High3 > High4)
AND (High3 > High5);
FractalUp1:= (High3 > High1a)
AND (High3 > High1)
AND (High3 = High2)
AND (High3 > High4)
AND (High3 > High5);
FractalU:=If(FractalUp OR FractalUp1,1,undefined);
FractalDown:= (Low3 < Low1)
AND (Low3 < Low2)
AND(Low3 < Low4)
AND (Low3 < Low5);
FractalDown1:= (Low3 < Low1a)
AND (Low3 < Low1)
AND (Low3 = Low2)
AND(Low3 < Low4)
AND (Low3 < Low5);

FractalD:=If(FractalDown OR FractalDown1,1,undefined);

HoldLevelPeriod := Input("Hold Level Period",15,1);
[linestyle=points; color=blue; width=5]
UpFractal:=If(FractalU, H*1.0000005,undefined);
FrU:=ValueWhen(1,UpFractal,UpFractal);
FrUb:=If(H < FrU and barssince(UpFractal)< HoldLevelPeriod, FrU,undefined);
FrUb;
{ Fractal Lows }
[color
=indian red]
DownFractal:=
If(FractalD, L*0.9999995,undefined);
FrD:=ValueWhen(1,DownFractal,DownFractal);
FrDb:=
If(L > FrD and barssince(DownFractal)<HoldLevelPeriod,FrD,undefined);
FrDb;
{ Markers }
[name
=HH; linestyle=marker; marker=type2]
SignalUp:=
If(Hist(FrUb,1) and H > FrU,FrU,undefined);
SignalUp;
[name
=LL; linestyle=marker; marker=type1]
SignalDown:=
If(Hist(FrDb,1) and L < FrD,FrD,undefined);
SignalDown;
[linestyle=Text; textalign=centre, Above,; color=Red]
if(FractalU, " " + h, undefined);
High;
[linestyle=Text; textalign=centre,Below; color=Green]
if(FractalD, "" + l, undefined);
Low;



Edited by cmacdon - 21 Jul 2019 at 5:51pm]]> Sun, 21 Jul 2019 17:40:49 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=3594#3594 Adding Fractals to BullCharts : For some reason I could not... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=3593#3593 Author: cmacdon
Subject: 676
Posted: 21 Jul 2019 at 5:20pm

For some reason I could not up load a png image but I will check with Bullcharts tomorrow to get around image down load any problems.

I will try to post below some of the indicator codes before you can see the images for my selected chart period.

Also you will perhaps need the Median price (MP) indicator to be set up in you standard indicator file as some of my custom indicators refer to the original Bill Wiliams formulations but for all practical purposes you could substitute C for the median price code instead of MP.  As William C. Garrett suggested in the 1970's all calculations are just approximations.

The first seven indicators show up in a panel.  the last two indicators show up on the price chart.

Don't ask me to decode any indicator as I moved on a long time ago from trying to interpretations of time and price.  Even Gann suggested that when he relied on space measurements alone, he was prone to make mistakes and incur losses.

cmacdon






Edited by cmacdon - 21 Jul 2019 at 5:48pm]]> Sun, 21 Jul 2019 17:20:42 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=3593#3593 Adding Fractals to BullCharts : Dear SayoPoloI am not Maximo,... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=3592#3592 Author: cmacdon
Subject: 676
Posted: 21 Jul 2019 at 4:56pm

Dear SayoPolo

I am not Maximo,  I do not know where he has gone but he was very generous in the past in supplying Bullscript code for user questions on this site, from which I learned a lot.   

I looked at Bill Williams Chaos Theory work between 2008 and 2011 when I was also learning how to code Bullscript.  My interpretations of his indicators are in an old custom indicator file in my archives.

Bill Williams Chaos approach was a time and price only approach therefore, from my perspective, it is only analyzing supposed price effects.  

If you want to understand the cause of the price movements then you perhaps need to focus on ways to measure the forces of supply & demand (which is distinct from the measuring the amounts of buying and selling volume within bars or across bars).  A force measurement, is different from an amount of buying volume or selling volume measurement, but to get to the former, you need to work out the latter.  Also, as far as I can see force measurements do not suffer from as much  lag, as amount measurements, if computed properly.

With a computer you can do these calculations. Most older Tape Readers or early chart reading Trading Masters (without access to computers), who suggested they were relying on "intuition", could not do these computations, in my opinion.

What I will do below is set out a chart showing about 9 of my old adaptation indicators of Chaos theory  in Bullscript.  

In Bill Williams approach he relied heavily on calculations using the median price which Bullscript has as a standard indicator.  But I tried many other price vibration variations rather than thinking the median price was ideal.  
PLDOT calculated over 3 bars by a Canadian Trading Master (do a Google search) was a good substitute for the MP, and my faster TaPLdot adaptation calculated over 2 bars, in my opinion was even better.
You can play around with any of the indicators codes to your hearts content but remember they only interpreting price effects.  Supply & demand is being ignored in the Chaos theory approach to interpreting price effects.



Edited by cmacdon - 21 Jul 2019 at 6:20pm]]> Sun, 21 Jul 2019 16:56:54 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=3592#3592 Adding Fractals to BullCharts : Hi Maximo I recently came across... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=3571#3571 Author: SayaPolo
Subject: 676
Posted: 22 Nov 2018 at 11:25am

Hi Maximo

I recently came across Bill Williams’s Alligator and hisAwesome Oscillator and this could be traded in conjunction with Fractals. I amhopeless in coding and just wonder if you can assist me in coding of these 2indicators in Bull Chart. I found these in the websites.

ALLIGATOR Indicator

Alligator is the indicator which is designed to show a trendabsence, its formation and direction. Bill Williams saw metaphoricalresemblance

between alligator’s behaviour and the allegory of the market’s one:sleeping gives way to price-hunting after which it’s again time to

sleep. The longer the alligator sleeps the hungrier it becomes andlogically, the stronger the market movement will be.

 

The indicator includes 13-, 8- and 5-period smoothed movingaverages each with its own displacement (8, 5 and 3 bars respectively)

which are coloured blue, red and green thus representing thealligator’s jaw, teeth and lips.

 How to construct

MEDIAN PRICE = (HIGH + LOW) / 2

ALLIGATORS JAW = SMMA (MEDEAN PRICE, 13, 8)

ALLIGATORS TEETH = SMMA (MEDEAN PRICE, 8, 5)

ALLIGATORS LIPS = SMMA (MEDEAN PRICE, 5, 3)


AWESOME OSCILLATOR

Awesome Oscillator (AO) represents a momentum indicator whichreflects precise changes in

the market driving force.

 

How to construct

MEDIAN PRICE = (HIGH+LOW)/2

AO = SMA(MEDIAN PRICE, 5)-SMA(MEDIAN PRICE, 34)

where

SMA — Simple Moving Average.

Thanking you in anticiapation.



]]> Thu, 22 Nov 2018 11:25:55 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=3571#3571 Adding Fractals to BullCharts : Nice to hear Tanaka, This should... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2656#2656 Author: maximo
Subject: 676
Posted: 11 Mar 2011 at 10:59pm

Nice to hear Tanaka,
 
This should be good to use with a longer term average and volume period.
 
Similar to 10-30 day breakout and Darvas breaks of resistance too.
 
Max
]]> Fri, 11 Mar 2011 22:59:41 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2656#2656 Adding Fractals to BullCharts : Thank you so much Maximo,I have... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2654#2654 Author: Tanaka
Subject: 676
Posted: 08 Mar 2011 at 12:03am

Thank you so much Maximo,

I have just loaded the formula and it looks fantastic! I'm going to have a play around with it tomorrow, and I will let everyone know how it goes.

The look back feature should be very handy while back testing.

You are correct, they are good at showing support and resistance.

Tanaka Smile

p.s I'd be very interested to know if others on this forum are using fractals




]]> Tue, 08 Mar 2011 00:03:31 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2654#2654 Adding Fractals to BullCharts : Hi Tanaka, They arevery goodfor... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2651#2651 Author: maximo
Subject: 676
Posted: 04 Mar 2011 at 8:11pm

Hi Tanaka,
 
They are very good for showing support and resistance.
 
Here is the complete indicator and signal for testing :)
 
 
Note: HoldLevelPeriod can be set to 1 to just show the fractal bars.
  I have also added a close price option which, shows a difference in the
 levels found and provides another testing option.
 
 
 

[Description="Fractal of 5 bars indicator and signal, Max"]

[target=price]

HoldLevelPeriod := Input("Hold Level Period",15,1);

UseHigh:= Input("Use High: 1=True, 0=Close",1,0);

{ Fractal Highs }

[linestyle=points; color=blue; width=5]

UpFractal:=If(UseHigh and H>ref(H,1) and H>ref(H,-1) and ref(H,-1)>ref(H,-2) and ref(H,1)>ref(H,2), H*1.005,If(UseHigh = 0 and H>ref(C,1) and H>ref(C,-1) and ref(C,-1)>ref(C,-2) and ref(C,1)>ref(C,2), H*1.005,undefined));

FrU:=ValueWhen(1,UpFractal,UpFractal);

FrUb:=If(H < FrU and barssince(UpFractal)<HoldLevelPeriod,FrU,undefined);

FrUb;

{ Fractal Lows }

[color=indian red]

DownFractal:=If(UseHigh and L<ref(L,1) and L<ref(L,-1) and ref(L,-1)<ref(L,-2) and ref(L,1)<ref(L,2), L*0.995,If(UseHigh = 0 and L<ref(C,1) and L<ref(C,-1) and ref(C,-1)<ref(L,-2) and ref(C,1)<ref(C,2), L*0.995,undefined));

FrD:=ValueWhen(1,DownFractal,DownFractal);

FrDb:=If(L > FrD and barssince(DownFractal)<HoldLevelPeriod,FrD,undefined);

FrDb;

{ Markers }

[name=Above; linestyle=marker; marker=type2]

SignalUp:=If(Hist(FrUb,1) and H > FrU,FrU,undefined);

SignalUp;

[name=Below; linestyle=marker; marker=type1]

SignalDown:=If(Hist(FrDb,1) and L < FrD,FrD,undefined);

SignalDown;



Edited by maximo - 06 Mar 2011 at 3:37pm]]> Fri, 04 Mar 2011 20:11:33 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2651#2651 Adding Fractals to BullCharts : For those who aren&#039;t sure... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2648#2648 Author: Tanaka
Subject: 676
Posted: 03 Mar 2011 at 5:24pm

For those who aren't sure how to use fractals I have a link to Bill William's use of fractals. They can be used on shares eventhough the link is from a forex broker.

http://www.alpari.co.uk/en/market-analysis-guide/chaos-theory/index.html

I use them with the Awesome Oscillator (AO):

ma(ma(MP(),5,S) - ma(MP(),34,S),5,S)

you will need to adjust the plot to the up and down wave style thingy.

I have had good success with the method, and am sure it can be better tuned by backtesting different posistion sizing, risk/reward, stops etc...

I'd be very appreciative if my above post could be turned into a formula.

Cheers,

Tanaka Smile


]]> Thu, 03 Mar 2011 17:24:00 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2648#2648 Adding Fractals to BullCharts : Hi guys,First of all thanks... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2647#2647 Author: Tanaka
Subject: 676
Posted: 28 Feb 2011 at 4:47pm

Hi guys,

First of all thanks again for the help maximo.

I am wanting to test fractals in tradesim, so I need the above formular to remember the most recent UP fractal high and the most recent DOWN fractal low and draw it on the chart similar to the support/resistance indicator draws a line. This way I could set a buy signal for when the price breaks above the previous up fractal's high. Can this be done?


Edited by Tanaka - 28 Feb 2011 at 5:13pm]]> Mon, 28 Feb 2011 16:47:40 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2647#2647 Adding Fractals to BullCharts : Alsoagood visual aid for determining... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2597#2597 Author: maximo
Subject: 676
Posted: 09 Oct 2010 at 9:39am

Also a good visual aid for determining trend direction. ie.
Higher Higher, Higher Low, Lower Low, Lower High. 
 
 
 
[Description="Fractal of 3 bars, Max"]

[target=price]

{ Fractal High }

[linestyle=points; color=blue; width=5]

If(H>ref(H,1) and H>ref(H,-1), H*1.005,undefined);

{ Fractal Low }

[color=indian red]

If(L<ref(L,1) and L<ref(L,-1), L*0.995,undefined);



Edited by maximo - 12 Oct 2010 at 8:25am]]> Sat, 09 Oct 2010 09:39:22 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2597#2597 Adding Fractals to BullCharts : You canmove the location of the... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2596#2596 Author: maximo
Subject: 676
Posted: 08 Oct 2010 at 8:16pm

You can move the location of the indicator dot by adjusting those numbers that multiply the H*1.008 (High) and the L*0.992 (Low).   If that's what you mean?
  Currently thats just a fraction under 1% above and below the candles/bars.
3 bar fractals are often used as well.  I'll paste that when time permits.
 
Max  


Edited by maximo - 09 Oct 2010 at 8:43am]]> Fri, 08 Oct 2010 20:16:13 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2596#2596 Adding Fractals to BullCharts : Thanks Maximo! That formula... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2595#2595 Author: Tanaka
Subject: 676
Posted: 08 Oct 2010 at 11:19am

Thanks Maximo!
 
That formula works well. Only problem is that I don't know how to have them connected to the candle sticks, it would be very convenient to have the up fractals sit just above the candles and the down fractal sit just below.
 
Once again thank you!
 
Tanaka
]]> Fri, 08 Oct 2010 11:19:39 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2595#2595 Adding Fractals to BullCharts : Heya Tenaka, I have seen them... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2594#2594 Author: maximo
Subject: 676
Posted: 08 Oct 2010 at 6:02am

Heya Tenaka,

I have seen them on MetaTrader, but not on Bullcharts so here goes nothin lol.
If you can paste a link to the Bill williams method of how it works then that would
allow others to see the use of this thing :)
 
 
 

[Description="Fractal of 5 bars, Max"]

[target=price]

{ Fractal Highs }

[linestyle=points; color=blue; width=5]

If(H>ref(H,1) and H>ref(H,-1) and ref(H,-1)>ref(H,-2) and ref(H,1)>ref(H,2), H*1.008,undefined);

{ Fractal Lows }

[color=indian red]

If(L<ref(L,1) and L<ref(L,-1) and ref(L,-1)<ref(L,-2) and ref(L,1)<ref(L,2), L*0.992,undefined);

]]> Fri, 08 Oct 2010 06:02:08 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2594#2594 Adding Fractals to BullCharts : Hi guys, Normal ... http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2593#2593 Author: Tanaka
Subject: 676
Posted: 07 Oct 2010 at 3:51pm

Hi guys,

Ihave no programming knowledge other than cutting and pasting into the indicatorbuilder. I have been using Bill William’s Profitunity System with my forexbrokers platform and would like to add it to my BullChart. I need to addFractals to my screen.

Fractals - 5 bars sequence where middle one has highest High /lowest Low and its preceded and followed two bars have lower highs / higherlows preceded by two lower highs and is followed by two lower highs:

{ Defining up fractal ) =

High1 := Ref(HIGH,-2);

High2 := Ref(HIGH,-1);

High3 := Ref(HIGH,0);

High4 := Ref(HIGH,1);

High5 := Ref(HIGH,2);

If((High3 > High1) AND (High3 > High2) AND (High3 >High4) AND (High3 >

High5), High3,0);

 

{Defining Low Fractal } =

Low1 := Ref(LOW,-2);

Low2 := Ref(LOW,-1);

Low3 := Ref(LOW,0);

Low4 := Ref(LOW,1);

Low5 := Ref(LOW,2);

(If((Low3 low5), Low3,0))


Anyone know how to do this? Help would be much appreciated!


]]> Thu, 07 Oct 2010 15:51:05 +0000 http://www.bullcharts.com.au/forum/forum_posts.asp?TID=676&PID=2593#2593