Gann SorR MJ 6 lines Fib Roots
C1:=Input("date C mmddyyyy",1011960,12312100,1072000); 
B:=Input("c:1= tr resistance,2=pk support",1,2,1); 
D:=Input("Decimal point",.001,100.0,1.0); 
PLT:=Input("Highest line",0,7,5); 
PC:=If(B=1,ValueWhen(1,C1=Month()*1000000 + DayOfMonth()*10000+ Year(),L),ValueWhen(1,C1=Month()*1000000 + DayOfMonth()*10000+ Year(),H)); 

Val1:=If(B=1 AND PLT>0,Power((Sqrt(PC)+(D*1.414)),2),If(B=2 AND PLT>0,Power((Sqrt(PC)-(D*1.414)),2),PC)); 
Val2:=If(B=1 AND PLT>1,Power((Sqrt(PC)+(D*1.732)),2),If(B=2 AND PLT>1,Power((Sqrt(PC)-(D*1.732)),2),PC)); 
Val3:=If(B=1 AND PLT>2,Power((Sqrt(PC) + (D*2.236)),2),If(B=2 AND PLT>2, 
Power((Sqrt(PC) - (D*2.236)),2),PC)); 
Val4:=If(B=1 AND PLT>3,Power((Sqrt(PC)+(D*2.828)),2),If(B=2 AND PLT>3,Power((Sqrt(PC)-(D*2.828)),2),PC)); 
Val5:=If(B=1 AND Plt>4,Power((Sqrt(PC)+(D*3.605)),2),If(B=2 AND Plt>4,Power((Sqrt(PC)-(D*3.605)),2),PC)); 
Val6:=If(B=1 AND PLT>5,Power((Sqrt(PC)+(D*4.582)),2),If(B=2 AND PLT>5,Power((Sqrt(PC)-(D*4.582)),2),PC)); 


Val1;Val2;Val3;Val4;Val5;Val6;PC; 

This indicator is plotted from a major Peak or Trough, 
Just specify the date and if it's from a peak or trough, 
you can adjust the decimal point for indexes, 
you can specify how many lines are plotted
*****Gann S or R MJ 6 Lines Fib*****
C1:=Input("date C mmddyyyy",1011960,12312100,1072000); 
B:=Input("c:1= tr resistance,2=pk support",1,2,1); 
D:=Input("Decimal point",.001,100.0,1.0); 
PLT:=Input("Highest line",0,7,5); 
PC:=If(B=1,ValueWhen(1,C1=Month()*1000000 + DayOfMonth()*10000+ Year(),L),ValueWhen(1,C1=Month()*1000000 + DayOfMonth()*10000+ Year(),H)); 

Val1:=If(B=1 AND PLT>0,Power((Sqrt(PC)+(D*.382)),2),If(B=2 AND PLT>0,Power((Sqrt(PC)-(D*.382)),2),PC)); 
Val2:=If(B=1 AND PLT>1,Power((Sqrt(PC)+(D*.618)),2),If(B=2 AND PLT>1,Power((Sqrt(PC)-(D*.618)),2),PC)); 
Val3:=If(B=1 AND PLT>2,Power((Sqrt(PC) + (D*1.0)),2),If(B=2 AND PLT>2, 
Power((Sqrt(PC) - (D*1.0)),2),PC)); 
Val4:=If(B=1 AND PLT>3,Power((Sqrt(PC)+(D*1.618)),2),If(B=2 AND PLT>3,Power((Sqrt(PC)-(D*1.618)),2),PC)); 
Val5:=If(B=1 AND Plt>4,Power((Sqrt(PC)+(D*2.618)),2),If(B=2 AND Plt>4,Power((Sqrt(PC)-(D*2.618)),2),PC)); 
Val6:=If(B=1 AND PLT>5,Power((Sqrt(PC)+(D*4.25)),2),If(B=2 AND PLT>5,Power((Sqrt(PC)-(D*4.25)),2),PC)); 


Val1;Val2;Val3;Val4;Val5;Val6;PC; 


This indicator is plotted from a major Peak or Trough, 
Just specify the date and if it's from a peak or trough, 
you can adjust the decimal point for indexes, 
you can specify how many lines are plotted