• Gann

• Gann hivisual lowvisual

• Gann Road Map

• Gopalakrishnan Range Index (GAPO)

• GRII

• Guppy MMA Oscillator

Us:=BarsSince((H > Ref(H,-1)) AND (Ref(H,-1) >
Ref(H,-2)));
Ds:=BarsSince((L < Ref(L,-1)) AND (Ref(L,-1)<
Ref(L,-2)));
Sd1:=If(Us=0,
{then}If(Ref(L,-1)<>LowestSince(1,Ds=0,L),
{then}1,
{else}0),
{else}If(Ds=0,
{then}If(Ref(H,-1)<>
HighestSince(1,Us=0,H),
{then}-1,
{else}0),
{else}0));
Sd2:=If(Sd1=1,
{then} If(Ref(BarsSince(Sd1=1),-1) >
Ref(BarsSince(Sd1=-1),-1),
{then}1,
{else}0),
{else} If(Sd1=-1,
{then}If(Ref(BarsSince(Sd1=1),-1) <
Ref(BarsSince(Sd1=-1),-1),
{then}-1,
{else}0),
{else}0));
TD1:=ValueWhen(1,Sd2<>0,Sd2);
Td1;

Sd:= FmlVar("GANN - Swing","TD1") ;
{Swing Change High}
Sch:=If(Sd=1 AND Ref(sd,-1)=-1,
{then}1,
{else}0);
{Swing Change Low}
Scl:=If(Sd=-1 AND Ref(Sd,-1)=1,
{then}1,
{else}0);
{Peak Value}
Pv:=If(Scl=1,
{then}HighestSince(1,Sch=1,H),
{else}0);
{Trough Value}
Tv:=If(Sch=1,
{then}LowestSince(1,Scl=1,L),
{else}0);
{Trend Direction}
Td:=If(H>ValueWhen(1,Pv>0,Pv),
{then}1,
{else}If(L<ValueWhen(1,Tv>0,Tv),
{then}-1,
{else}0));
{UpTrend=1 DownTrend =-1}
Tdv:=ValueWhen(1,Td<>0,Td);
Tdv

Dw:=If(DayOfWeek()<=Ref(DayOfWeek(),-1),1,0);
Wh:=If(Dw=1,
{then}Ref(HighestSince(1,Dw=1,H),-1),
{else}0);
Wl:=If(Dw=1,
{then}Ref(LowestSince(1,Dw=1,L),-1),
{else}0);
Hv1:=ValueWhen(1,Wh>0,Wh);
Hv2:=ValueWhen(2,Wh>0,Wh);
Hv3:=ValueWhen(3,Wh>0,Wh);
Lv1:=ValueWhen(1,Wl>0,Wl);
Lv2:=ValueWhen(2,Wl>0,Wl);
Lv3:=ValueWhen(3,Wl>0,Wl);
Us:=BarsSince((Hv1 > Hv2) AND (Hv2 > Hv3));
Ds:=BarsSince((Lv1 < Lv2) AND (Lv2 <Lv3));
Hc:=Ref(HighestSince(1,Us=0 AND Ref(Us,-1)>0,H),
-1);
Lc:=Ref(LowestSince(1,Ds=0 AND Ref(Ds,-1)>0,L),
-1);
{Swing direction Calculation}
Sd1:=If(Us=0 AND Dw=1,
{then}If((Lv1<>Lc) AND (Lv2<>Lc),
{then}1,
{else}0),
{else}If(Ds=0,
{then}If((Hv1<>Hc) AND (Hv2<>Hc),
{then}-1,
{else}0),
{else}0));
Sd2:=If(Sd1=1,
{then} If(Ref(BarsSince(Sd1=1),-1) >
Ref(BarsSince(Sd1=-1),-1),
{then}1,
{else}0),
{else} If(Sd1=-1,
{then}If(Ref(BarsSince(Sd1=1),-1) <
Ref(BarsSince(Sd1=-1),-1),
{then}-1,
{else}0),
{else}0));
TD1:=ValueWhen(1,Sd2<>0,Sd2);
TD1

Sd:= FmlVar("GANN Weekly - Swing","TD1") ;
{Swing Change High}
Sch:=If(Sd=1 AND Ref(sd,-1)=-1,
{then}1,
{else}0);
{Swing Change Low}
Scl:=If(Sd=-1 AND Ref(Sd,-1)=1,
{then}1,
{else}0);
{Peak Value}
Pv:=If(Scl=1,
{then}HighestSince(1,Sch=1,H),
{else}0);
{Trough Value}
Tv:=If(Sch=1,
{then}LowestSince(1,Scl=1,L),
{else}0);
{Trend Direction}
Td:=If(H>ValueWhen(1,Pv>0,Pv),
{then}1,
{else}If(L<ValueWhen(1,Tv>0,Tv),
{then}-1,
{else}0));
{UpTrend=1 DownTrend =-1}
Tdv:=ValueWhen(1,Td<>0,Td);
Tdv

HLd:=If(CLOSE>Ref(Mov(H,3,S),-1),
{then}1,
{else}If(CLOSE<Ref(Mov(L,3,S),-1),
{then}-1,
{else}0));
HLv:=ValueWhen(1,HLd<>0,HLd);
HiLo:=If(HLv=-1,
{then}Mov(H,3,S),
{else}Mov(L,3,S));
HiLo;

Period:= Input("What Period",1,250,10);
EMA1:= Mov(CLOSE,Period,E);
EMA2:= Mov(EMA1,Period,E);
Difference:= EMA1 - EMA2;
ZeroLagEMA:= EMA1 + Difference;
ZeroLagEMA

HLd:=If(CLOSE>Ref(Mov(H,3,S),-1),
{then}1,
{else}If(CLOSE<Ref(Mov(L,3,S),-1),
{then}-1,
{else}0));
HLv:=ValueWhen(1,HLd<>0,HLd);
HiVisual:=If(HLv=-1,
{then}Mov(H,3,S),
{else}{place default here}Fml("Zero Lag Ema")) ;
HiVisual;

HLd:=If(CLOSE>Ref(Mov(H,3,S),-1),
{then}1,
{else}If(CLOSE<Ref(Mov(L,3,S),-1),
{then}-1,
{else}0));
HLv:=ValueWhen(1,HLd<>0,HLd);
LoVisual:=If(HLv=-1,
{then}{place default here}Fml( "Zero Lag Ema" ) ,
{else} Mov(L,3,S ));
LoVisual;

HLd:=If(CLOSE>Ref(Mov(H,3,S),-1),
{then}1,
{else}If(CLOSE<Ref(Mov(L,3,S),-1),
{then}-1,
{else}0));
HLv:=ValueWhen(1,HLd<>0,HLd);
HiVisual:=If(HLv=-1,
{then}C-Mov(H,3,S),
{else}0);
LoVisual:=If(HLv=1,
{then}C-Mov(L,3,S),
{else}0);

HiVisual;
LoVisual;

{Locate the price of the peak or trough and plot}
X:= Input("Peak(1) or Trough(0)",0,1,1);
D:= Input("Degrees/Increment",2.125,720,20);
N:= Input("Number of Lines",1,50,50);
Z:= Input("Price",.01,50000,50);
A:=Sqrt(z);
B:= (2*D/360);
z;
If(X,Power(A-B,2),Power(A+B,2));
If(N>1,Power(A+2*B*If(X,-1,1),2),z);
If(N>2,Power(A+3*B*If(X,-1,1),2),z);
If(N>3,Power(A+4*B*If(X,-1,1),2),z);
If(N>4,Power(A+5*B*If(X,-1,1),2),z);
If(N>5,Power(A+6*B*If(X,-1,1),2),z);
If(N>6,Power(A+7*B*If(X,-1,1),2),z);
If(N>7,Power(A+8*B*If(X,-1,1),2),z);
If(N>8,Power(A+9*B*If(X,-1,1),2),z);
If(N>9,Power(A+10*B*If(X,-1,1),2),z);
If(N>10,Power(A+11*B*If(X,-1,1),2),z);
If(N>11,Power(A+12*B*If(X,-1,1),2),z);
If(N>12,Power(A+13*B*If(X,-1,1),2),z);
If(N>13,Power(A+14*B*If(X,-1,1),2),z);
If(N>14,Power(A+15*B*If(X,-1,1),2),z);
If(N>15,Power(A+16*B*If(X,-1,1),2),z);
If(N>16,Power(A+17*B*If(X,-1,1),2),z);
If(N>17,Power(A+18*B*If(X,-1,1),2),z);
If(N>18,Power(A+19*B*If(X,-1,1),2),z);
If(N>19,Power(A+20*B*If(X,-1,1),2),z);
If(N>20,Power(A+21*B*If(X,-1,1),2),z);
If(N>21,Power(A+22*B*If(X,-1,1),2),z);
If(N>22,Power(A+23*B*If(X,-1,1),2),z);
If(N>23,Power(A+24*B*If(X,-1,1),2),z);
If(N>24,Power(A+25*B*If(X,-1,1),2),z);
If(N>25,Power(A+(25+1)*B*If(X,-1,1),2),z);
If(N>25+1,Power(A+(25+2)*B*If(X,-1,1),2),z);
If(N>25+2,Power(A+(25+3)*B*If(X,-1,1),2),z);
If(N>25+3,Power(A+(25+4)*B*If(X,-1,1),2),z);
If(N>25+4,Power(A+(25+5)*B*If(X,-1,1),2),z);
If(N>25+5,Power(A+(25+6)*B*If(X,-1,1),2),z);
If(N>25+6,Power(A+(25+7)*B*If(X,-1,1),2),z);
If(N>25+7,Power(A+(25+8)*B*If(X,-1,1),2),z);
If(N>25+8,Power(A+(25+9)*B*If(X,-1,1),2),z);
If(N>25+9,Power(A+(35)*B*If(X,-1,1),2),z);
If(N>35,Power(A+(35+1)*B*If(X,-1,1),2),z);
If(N>35+1,Power(A+(35+2)*B*If(X,-1,1),2),z);
If(N>35+2,Power(A+(35+3)*B*If(X,-1,1),2),z);
If(N>35+3,Power(A+(35+4)*B*If(X,-1,1),2),z);
If(N>35+4,Power(A+(35+5)*B*If(X,-1,1),2),z);
If(N>35+5,Power(A+(35+6)*B*If(X,-1,1),2),z);
If(N>35+6,Power(A+(35+7)*B*If(X,-1,1),2),z);
If(N>35+7,Power(A+(35+8)*B*If(X,-1,1),2),z);
If(N>35+8,Power(A+(35+9)*B*If(X,-1,1),2),z);
If(N>35+9,Power(A+45*B*If(X,-1,1),2),z);
If(N>45,Power(A+(45+1)*B*If(X,-1,1),2),z);
If(N>45+1,Power(A+(45+2)*B*If(X,-1,1),2),z);
If(N>45+2,Power(A+(45+3)*B*If(X,-1,1),2),z);
If(N>45+3,Power(A+(45+4)*B*If(X,-1,1),2),z);
If(N>45+4,Power(A+(45+5)*B*If(X,-1,1),2),z);

{End of Indicator}

Log((HHV(High,5))-(LLV(Low,5)))/Log(5)

tsf(C,9)-ref(tsf(C,9),-1)

(ref(tsf(C,9),-1)-(ref(tsf(C,9),-2)))

(ref(tsf(C,9),-2)-(ref(tsf(C,9),-3)))

(tsf(C,9)-ref(tsf(C,9),-1)) +
((ref(tsf(C,9),-1) - ref(tsf(C,9),-2))) +
((ref(tsf(C,9),-2) - (ref(tsf(C,9),-3))))

((Mov(CLOSE,3,E)+Mov(CLOSE,5,E) + Mov(CLOSE,8,E)+Mov(CLOSE,10,E) +
Mov(CLOSE,12,E)+Mov(CLOSE,15,E)) - (Mov(CLOSE,30,E)+Mov(CLOSE,35,E) +
Mov(CLOSE,40,E)+Mov(CLOSE,45,E) + Mov(CLOSE,50,E)+Mov(CLOSE,60,E)))*10;
(Mov((Mov(CLOSE,3,E)+Mov(CLOSE,5,E) + Mov(CLOSE,8,E)+Mov(CLOSE,10,E) +
Mov(CLOSE,12,E)+Mov(CLOSE,15,E)) - (Mov(CLOSE,30,E)+Mov(CLOSE,35,E) +
Mov(CLOSE,40,E)+Mov(CLOSE,45,E) + Mov(CLOSE,50,E)+Mov(CLOSE,60,E)),13,E))*10;0;