Is there Fibonacci Fans indicator for ThinkorSwim?

C

chewie76

New member
Can you develop an indicator that automatically plots Fibonacci Fans? Similar to this?

 
Last edited by a moderator:
BenTen

BenTen

Administrative
Staff
VIP
Warehouse
Give this a try

Rich (BB code):
#hint: <b>Fibonacci Fan lines</b>
Fibonacci Fan lines are trend lines based on Fibonacci retracement points. Rising fan lines extend up from a trough and pass through retracement based on the advance (lowest low to highest high or on the falling fan lines: highest high to lowest low). These fan lines can then be used to estimate support levels or potential reversal zones. Falling fan lines can then be used to estimate resistance levels or potential reversal zones. 

#hint Price: Price used in the alerts on crossing of the fans. <b>(Default is Close)</b> 

#hint onExpansion: Determines if the fan lines are projected past the current bar into the right side expansion <b>(Default is Yes)</b> 

#hint Coefficient1: Fan Line 1: Trough to 38.2% retracement on rising fans.  
Peak to 38.2% Coefficient on falling fans. <b>(Default is 38.2%)</b> 

#hint Coefficient_2: Fan Line 2: 
Trough to 50% retracement on rising fans.  
Peak to 50% Coefficient on falling fans. <b>(Default is 50%)</b> 

#hint Coefficient_3: Fan Line 3: 
Trough to 61.8% retracement on rising fans.  
Peak to 61.8% Coefficient on falling fans. <b>(Default is 61.8%)</b> 

#wizard input: Price 

#wizard text: Inputs: Price: 

#wizard input: onExpansion 

#wizard text: onExpansion: 

#wizard input: Coefficient1  

#wizard text: Coefficient1 : 

#wizard input: Coefficient_2  

#wizard text: Coefficient_2: 

#wizard input: Coefficient_3   

#wizard text: Coefficient_3: 

  

input price = close; 

input high = high; 

input low = low; 

input onExpansion = Yes; 

input Coefficient1 = .382; 

input Coefficient_2 = .5; 

input Coefficient_3 = .618; 

def a = HighestAll(high); 

def b = LowestAll(low); 

def barnumber = barNumber(); 

def c = if high == a then barnumber else double.nan; 

def d = if low == b then barnumber else double.nan; 

rec highnumber = compoundValue(1, if IsNaN(c) then highnumber[1] else c, c); 

def highnumberall = HighestAll(highnumber); 

rec lownumber = compoundValue(1, if IsNaN(d) then lownumber[1] else d, d); 

def lownumberall = LowestAll(lownumber); 

def upward = highnumberall > lownumberall; 

def downward = highnumberall < lownumberall; 

def low382 =  b + ((b - a) * Coefficient1); 

def low5 =  b + ((b - a) * Coefficient_2); 

def low618 = b + ((b - a) * Coefficient_3); 

  

def high382 =  a - ((a - b) * Coefficient1); 

def high5 =  a - ((a - b) * Coefficient_2); 

def high618 = a - ((a - b) * Coefficient_3); 

  

def x = AbsValue(lownumberall - highnumberall ); 

  

def slope = (a - b) / x; 

def slope382 = (high382 - b) / x; 

def slope5 = (high5 - b) / x; 

def slope618 = (high618 - b) / x; 

  

def slopelow = (b - a) / x; 

def slopelow382 = (low382 - b) / x; 

def slopelow5 = (low5 - b) / x; 

def slopelow618 = (low618 - b) / x; 

  

def day = getDay(); 

def month = getMonth(); 

def year = getYear(); 

def lastDay = getLastDay(); 

def lastmonth = getLastMonth(); 

def lastyear = getLastYear(); 

def isToday = if(day == lastDay and month == lastmonth and year == lastyear, 1, 0); 

def istodaybarnumber = HighestAll(if isToday then barnumber else double.nan); 

  

def line = b + (slope * (barnumber - lownumber)); 

def line382 = b + (slope382 * (barnumber - lownumber)); 

def line5 = b + (slope5 * (barnumber - lownumber)); 

def line618 = b + (slope618 * (barnumber - lownumber)); 

  

def linelow = a + (slopelow * (barnumber - highnumber)); 

def line382low = a + (slopelow382 * (barnumber - highnumber)); 

def line5low = a + (slopelow5 * (barnumber - highnumber)); 

def line618low = a + (slopelow618 * (barnumber - highnumber)); 

  

def currentlinelow = if barnumber <= istodaybarnumber then linelow else double.nan; 

def currentline382low = if barnumber <= istodaybarnumber then line382low else double.nan; 

def currentline5low = if barnumber <= istodaybarnumber then line5low else double.nan; 

def currentline618low = if barnumber <= istodaybarnumber then line618low else double.nan; 

  

def currentline = if barnumber <= istodaybarnumber then line else double.nan; 

def currentline382 = if barnumber <= istodaybarnumber then line382 else double.nan; 

def currentline5 = if barnumber <= istodaybarnumber then line5 else double.nan; 

def currentline618 = if barnumber <= istodaybarnumber then line618 else double.nan; 

  

Plot FibFan =  if  downward and onExpansion then linelow else if downward then currentlinelow else if upward and onExpansion then line else if upward then currentline else double.nan; 

FibFan.SetStyle(Curve.SHORT_DASH); 

FibFan.AssignValueColor(color.red); 

  

Plot "Coefficient 1" =  if (downward and onExpansion) then line382low else if downward then currentline382low else if upward and onExpansion then line382 else if upward then currentline382 else double.nan; 

"Coefficient 1".SetStyle(Curve.Firm); 

"Coefficient 1".AssignValueColor(color.red); 

Plot "Coefficient 2" = if downward and onExpansion then line5low else if downward then currentline5low else if upward and onExpansion then line5 else if upward then currentline5 else double.nan; 

"Coefficient 2".AssignValueColor(color.red); 

"Coefficient 2".SetStyle(Curve.Firm); 

Plot "Coefficient 3" =  if downward and onExpansion then line618low else if downward then currentline618low else if upward and onExpansion then line618 else if upward then currentline618  else double.nan; 

"Coefficient 3".AssignValueColor(color.red); 

"Coefficient 3".SetStyle(Curve.Firm); 

alert((price crosses below "Coefficient 1") , "Price crosses below Coefficient 1"); 

alert((price crosses below "Coefficient 2") , "Price crosses below Coefficient 2"); 

alert((price crosses below "Coefficient 3") , "Price crosses below Coefficient 3"); 

alert((price crosses above "Coefficient 1") , "Price crosses above Coefficient 1"); 

alert((price crosses above "Coefficient 2") , "Price crosses above Coefficient 2"); 

alert((price crosses above "Coefficient 3") , "Price crosses above Coefficient 3"); 

End
 
Last edited:
H

HighBredCloud

Active member
@BenTen I've been looking for a Fib Fan study to see how it compares to the one that I found elsewhere...I tried to use this code but a bunch of invalid statements appear in various places of the code and I don't know how to fix it...Here is the version that I found if it helps...Looking for something where I can change the colors of the lines so that I know what is what...and also a possible day selection to see how far back to look for the H/L...

Code:
Code:
#hint: <b>Fibonacci Fan lines</b>\nFibonacci Fan lines are trendlines based on Fibonacci retracement points. Rising fan lines extend up from a trough and pass through retracement based on the advance (lowest low to highest high or on the falling fan lines: highest high to lowest low). These fan lines can then be used to estimate support levels or potential reversal zones. Falling fan lines can then be used to estimate resistance levels or potential reversal zones.
#hint Price: Price used in the alerts on crossing of the fans. <b>(Default is Close)</b>
#hint onExpansion: Determines if the fan lines are projected past the current bar into the right side expansion <b>(Default is Yes)</b>
#hint Coefficient1: Fan Line 1: Trough to 38.2% retracement on rising fans.  \nPeak to 38.2% Coefficient on falling fans. <b>(Default is 38.2%)</b>
#hint Coefficient_2: Fan Line 2: \nTrough to 50% retracement on rising fans.  \nPeak to 50% Coefficient on falling fans. <b>(Default is 50%)</b>
#hint Coefficient_3: Fan Line 3: \nTrough to 61.8% retracement on rising fans.  \nPeak to 61.8% Coefficient on falling fans. <b>(Default is 61.8%)</b>
#wizard input: Price
#wizard text: Inputs: Price:
#wizard input: onExpansion
#wizard text: onExpansion:
#wizard input: Coefficient1
#wizard text: Coefficient1 :
#wizard input: Coefficient_2
#wizard text: Coefficient_2:
#wizard input: Coefficient_3
#wizard text: Coefficient_3:

input price = close;
input high = high;
input low = low;
input onExpansion = Yes;
input Coefficient1 = .382;
input Coefficient_2 = .5;
input Coefficient_3 = .618;

def a = HighestAll(high);
def b = LowestAll(low);
def barnumber = barNumber();
def c = if high == a then barnumber else double.nan;
def d = if low == b then barnumber else double.nan;
rec highnumber = compoundValue(1, if IsNaN(c) then highnumber[1] else c, c);
def highnumberall = HighestAll(highnumber);
rec lownumber = compoundValue(1, if IsNaN(d) then lownumber[1] else d, d);
def lownumberall = LowestAll(lownumber);

def upward = highnumberall > lownumberall;
def downward = highnumberall < lownumberall;

def low382 =  b + ((b - a) * Coefficient1);
def low5 =  b + ((b - a) * Coefficient_2);
def low618 = b + ((b - a) * Coefficient_3);

def high382 =  a - ((a - b) * Coefficient1);
def high5 =  a - ((a - b) * Coefficient_2);
def high618 = a - ((a - b) * Coefficient_3);

def x = AbsValue(lownumberall - highnumberall );

def slope = (a - b) / x;
def slope382 = (high382 - b) / x;
def slope5 = (high5 - b) / x;
def slope618 = (high618 - b) / x;

def slopelow = (b - a) / x;
def slopelow382 = (low382 - b) / x;
def slopelow5 = (low5 - b) / x;
def slopelow618 = (low618 - b) / x;

def day = getDay();
def month = getMonth();
def year = getYear();
def lastDay = getLastDay();
def lastmonth = getLastMonth();
def lastyear = getLastYear();
def isToday = if(day == lastDay and month == lastmonth and year == lastyear, 1, 0);
def istodaybarnumber = HighestAll(if isToday then barnumber else double.nan);

def line = b + (slope * (barnumber - lownumber));
def line382 = b + (slope382 * (barnumber - lownumber));
def line5 = b + (slope5 * (barnumber - lownumber));
def line618 = b + (slope618 * (barnumber - lownumber));

def linelow = a + (slopelow * (barnumber - highnumber));
def line382low = a + (slopelow382 * (barnumber - highnumber));
def line5low = a + (slopelow5 * (barnumber - highnumber));
def line618low = a + (slopelow618 * (barnumber - highnumber));

def currentlinelow = if barnumber <= istodaybarnumber then linelow else double.nan;
def currentline382low = if barnumber <= istodaybarnumber then line382low else double.nan;
def currentline5low = if barnumber <= istodaybarnumber then line5low else double.nan;
def currentline618low = if barnumber <= istodaybarnumber then line618low else double.nan;


def currentline = if barnumber <= istodaybarnumber then line else double.nan;
def currentline382 = if barnumber <= istodaybarnumber then line382 else double.nan;
def currentline5 = if barnumber <= istodaybarnumber then line5 else double.nan;
def currentline618 = if barnumber <= istodaybarnumber then line618 else double.nan;

Plot FibFan =  if  downward and onExpansion then linelow else if downward then currentlinelow else if upward and onExpansion then line else if upward then currentline else double.nan;
FibFan.SetStyle(Curve.SHORT_DASH);
FibFan.AssignValueColor(color.red);

Plot "Coefficient 1" =  if (downward and onExpansion) then line382low else if downward then currentline382low else if upward and onExpansion then line382 else if upward then currentline382 else double.nan;
"Coefficient 1".SetStyle(Curve.Firm);
"Coefficient 1".AssignValueColor(color.red);
Plot "Coefficient 2" = if downward and onExpansion then line5low else if downward then currentline5low else if upward and onExpansion then line5 else if upward then currentline5 else double.nan;
"Coefficient 2".AssignValueColor(color.red);
"Coefficient 2".SetStyle(Curve.Firm);
Plot "Coefficient 3" =  if downward and onExpansion then line618low else if downward then currentline618low else if upward and onExpansion then line618 else if upward then currentline618  else double.nan;
"Coefficient 3".AssignValueColor(color.red);
"Coefficient 3".SetStyle(Curve.Firm);

alert((price crosses below "Coefficient 1") , "Price crosses below Coefficient 1");
alert((price crosses below "Coefficient 2") , "Price crosses below Coefficient 2");
alert((price crosses below "Coefficient 3") , "Price crosses below Coefficient 3");
alert((price crosses above "Coefficient 1") , "Price crosses above Coefficient 1");
alert((price crosses above "Coefficient 2") , "Price crosses above Coefficient 2");
alert((price crosses above "Coefficient 3") , "Price crosses above Coefficient 3");
 
Last edited by a moderator:
mc01439

mc01439

Active member
VIP
Warehouse
@BenTen I've been looking for a Fib Fan study to see how it compares to the one that I found elsewhere...I tried to use this code but a bunch of invalid statements appear in various places of the code and I don't know how to fix it...Here is the version that I found if it helps...Looking for something where I can change the colors of the lines so that I know what is what...and also a possible day selection to see how far back to look for the H/L...

Code:

#hint: <b>Fibonacci Fan lines</b>\nFibonacci Fan lines are trendlines based on Fibonacci retracement points. Rising fan lines extend up from a trough and pass through retracement based on the advance (lowest low to highest high or on the falling fan lines: highest high to lowest low). These fan lines can then be used to estimate support levels or potential reversal zones. Falling fan lines can then be used to estimate resistance levels or potential reversal zones.
#hint Price: Price used in the alerts on crossing of the fans. <b>(Default is Close)</b>
#hint onExpansion: Determines if the fan lines are projected past the current bar into the right side expansion <b>(Default is Yes)</b>
#hint Coefficient1: Fan Line 1: Trough to 38.2% retracement on rising fans. \nPeak to 38.2% Coefficient on falling fans. <b>(Default is 38.2%)</b>
#hint Coefficient_2: Fan Line 2: \nTrough to 50% retracement on rising fans. \nPeak to 50% Coefficient on falling fans. <b>(Default is 50%)</b>
#hint Coefficient_3: Fan Line 3: \nTrough to 61.8% retracement on rising fans. \nPeak to 61.8% Coefficient on falling fans. <b>(Default is 61.8%)</b>
#wizard input: Price
#wizard text: Inputs: Price:
#wizard input: onExpansion
#wizard text: onExpansion:
#wizard input: Coefficient1
#wizard text: Coefficient1 :
#wizard input: Coefficient_2
#wizard text: Coefficient_2:
#wizard input: Coefficient_3
#wizard text: Coefficient_3:

input price = close;
input high = high;
input low = low;
input onExpansion = Yes;
input Coefficient1 = .382;
input Coefficient_2 = .5;
input Coefficient_3 = .618;

def a = HighestAll(high);
def b = LowestAll(low);
def barnumber = barNumber();
def c = if high == a then barnumber else double.nan;
def d = if low == b then barnumber else double.nan;
rec highnumber = compoundValue(1, if IsNaN(c) then highnumber[1] else c, c);
def highnumberall = HighestAll(highnumber);
rec lownumber = compoundValue(1, if IsNaN(d) then lownumber[1] else d, d);
def lownumberall = LowestAll(lownumber);

def upward = highnumberall > lownumberall;
def downward = highnumberall < lownumberall;

def low382 = b + ((b - a) * Coefficient1);
def low5 = b + ((b - a) * Coefficient_2);
def low618 = b + ((b - a) * Coefficient_3);

def high382 = a - ((a - b) * Coefficient1);
def high5 = a - ((a - b) * Coefficient_2);
def high618 = a - ((a - b) * Coefficient_3);

def x = AbsValue(lownumberall - highnumberall );

def slope = (a - b) / x;
def slope382 = (high382 - b) / x;
def slope5 = (high5 - b) / x;
def slope618 = (high618 - b) / x;

def slopelow = (b - a) / x;
def slopelow382 = (low382 - b) / x;
def slopelow5 = (low5 - b) / x;
def slopelow618 = (low618 - b) / x;

def day = getDay();
def month = getMonth();
def year = getYear();
def lastDay = getLastDay();
def lastmonth = getLastMonth();
def lastyear = getLastYear();
def isToday = if(day == lastDay and month == lastmonth and year == lastyear, 1, 0);
def istodaybarnumber = HighestAll(if isToday then barnumber else double.nan);

def line = b + (slope * (barnumber - lownumber));
def line382 = b + (slope382 * (barnumber - lownumber));
def line5 = b + (slope5 * (barnumber - lownumber));
def line618 = b + (slope618 * (barnumber - lownumber));

def linelow = a + (slopelow * (barnumber - highnumber));
def line382low = a + (slopelow382 * (barnumber - highnumber));
def line5low = a + (slopelow5 * (barnumber - highnumber));
def line618low = a + (slopelow618 * (barnumber - highnumber));

def currentlinelow = if barnumber <= istodaybarnumber then linelow else double.nan;
def currentline382low = if barnumber <= istodaybarnumber then line382low else double.nan;
def currentline5low = if barnumber <= istodaybarnumber then line5low else double.nan;
def currentline618low = if barnumber <= istodaybarnumber then line618low else double.nan;


def currentline = if barnumber <= istodaybarnumber then line else double.nan;
def currentline382 = if barnumber <= istodaybarnumber then line382 else double.nan;
def currentline5 = if barnumber <= istodaybarnumber then line5 else double.nan;
def currentline618 = if barnumber <= istodaybarnumber then line618 else double.nan;

Plot FibFan = if downward and onExpansion then linelow else if downward then currentlinelow else if upward and onExpansion then line else if upward then currentline else double.nan;
FibFan.SetStyle(Curve.SHORT_DASH);
FibFan.AssignValueColor(color.red);

Plot "Coefficient 1" = if (downward and onExpansion) then line382low else if downward then currentline382low else if upward and onExpansion then line382 else if upward then currentline382 else double.nan;
"Coefficient 1".SetStyle(Curve.Firm);
"Coefficient 1".AssignValueColor(color.red);
Plot "Coefficient 2" = if downward and onExpansion then line5low else if downward then currentline5low else if upward and onExpansion then line5 else if upward then currentline5 else double.nan;
"Coefficient 2".AssignValueColor(color.red);
"Coefficient 2".SetStyle(Curve.Firm);
Plot "Coefficient 3" = if downward and onExpansion then line618low else if downward then currentline618low else if upward and onExpansion then line618 else if upward then currentline618 else double.nan;
"Coefficient 3".AssignValueColor(color.red);
"Coefficient 3".SetStyle(Curve.Firm);

alert((price crosses below "Coefficient 1") , "Price crosses below Coefficient 1");
alert((price crosses below "Coefficient 2") , "Price crosses below Coefficient 2");
alert((price crosses below "Coefficient 3") , "Price crosses below Coefficient 3");
alert((price crosses above "Coefficient 1") , "Price crosses above Coefficient 1");
alert((price crosses above "Coefficient 2") , "Price crosses above Coefficient 2");
alert((price crosses above "Coefficient 3") , "Price crosses above Coefficient 3");

Try this - http://tos.mx/ezZjnSp
 
H

HighBredCloud

Active member
@mc01439 I think this is the same exact code that I pasted above no? They look identical on TOS...
 
mc01439

mc01439

Active member
VIP
Warehouse
@mc01439 I think this is the same exact code that I pasted above no? They look identical on TOS...
@HighBredCloud _"I tried to use this code but a bunch of invalid statements appear in various places of the code and I don't know how to fix it... " All I did was comment out the areas that caused the issues stated.
 
H

HighBredCloud

Active member
@mc01439 I see...thank you! I guess then it turns out that BenTen's code is the same as the one I already had once you fixed the errors...By any chance do you know IF things can be added to this code such as a look back of X amount of days to determine the High's and Lows? I do believe that currently its about 9 to 10 days back that the Fib Fan starts to plot...Would like to see something 5 days or sooner...perhaps even previous day or premarket...
 

Top