[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [EquisMetaStock Group] Re: Scaling of Chart

PureBytes Links

Trading Reference Links

 Hello Dusant,

I have download the indicator and the pages about setting the Gann Grids.

It is very informative. 

Thank you very much.

With regards,

Rakesh





At 07:08 PM 30-12-05, you wrote:
Hello Rakesh,
 
I had uploaded a set of indicators for the Gann Fans in the files section quite some time back. They are still there. The file name is MS65Form.dta.
 
http://finance.groups.yahoo.com/group/equismetastock/files
 
Please check if they serve your purpose.
 
Further, on my homepage, I have set out a method by which you can set up a Gann Grid, accurately and simply, as Gann had intended.
 
Check that out too.
 
Dusant
http://www.geocities.com/cooldush
----- Original Message -----
From: Rakesh Patel
To: equismetastock@xxxxxxxxxxxxxxxx
Sent: Friday, December 30, 2005 3:58 PM
Subject: Re: [EquisMetaStock Group] Re: Scaling of Chart

Hi  Preston, Dusant,

you are right, the indicator is spiky and also the maximum and minimum value doesn't matter. It is a Gann Angle indicator. Below is the code. Please go through it and give me suggestion.

{--------------------------Code Starts-----------------------------}
{Up Angle For 4x1,3x1,2x1,1x1,1x2,1x3,1x4 -}
{This is a GannAngle indicator for All Charts.}
{Last Modified-28/12/2005-Ver 1.0.5}
{Start day}
SDay:= Input("Enter Date",1,31,29);
{Start Month}
SMonth := Input("Enter Month",1,12,4);
{Start Year}
SYear := Input("Enter Year",1900,2099,2005);

WYorN:=Input("Daily=0 Weekly=1 Monthly=2",0,2,0);
DL:=Input("Enter Start Price",0,10000,1);

Curday := DayOfMonth();
CurMonth := Month();
CurYear := Year();
{Curday -1 is the full day}
TodayInt:=CurYear + (((Curday-1)/30.44)+CurMonth-1)/12;


SDayInt := ((((Sday-1)/30.44)+(Smonth-1))/12)+SYear;
{SdayInt;}
Cdays:=((((TODAYINT - SdayInt)*30.44)*12));

{Filter the Date}

start:=Year()>SYear OR (Year()=SYear AND (Month()>SMonth OR Month()=SMonth
AND DayOfMonth()>=SDay));
end:=Year()<SYear
OR (Year()=SYear AND (Month()<SMonth
OR Month()=SMonth AND DayOfMonth()<=SDay));
Date:=start AND (end OR (start AND Alert(start=0,2))); { Use the Start and
end to filter specific date}

{Get Weekly High or Low for that week}

DL := If(DL<>1,DL,ValueWhen(1,Date=1,L));
{DL;}

{Convert the Calendar Days into Day,Week or Month}

CDays:=If(WYorN=0,Round(CDays),
If(WYorN=1,Round(CDays/7),Round(CDays/30.44)));

{Calculate the Gann Angles}

4x1Up :=DL+(Cdays*4);
3x1Up :=DL+(Cdays*3);

{Plot the Gann Angles}

4x1Up;
3x1Up;

{-------------------------Code Ends-------------------------}


YAHOO! GROUPS LINKS


Send instant messages to your online friends http://in.messenger.yahoo.com


SPONSORED LINKS
Business finance course Business finance online course Business finance class
Small business finance Business finance schools Business finance small software

YAHOO! GROUPS LINKS