İndikatör Gann Road Map

Gann Road Map
{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}​

Source / From:​

http://www.geocities.com/cooldush/setupgann.htm​