|
Further, the indicator does not
change values when you zoom in or out. Unlike the canned Gann Fan.
----- Original Message -----
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-------------------------}
SPONSORED LINKS
YAHOO! GROUPS LINKS
Send instant messages to your online friends http://in.messenger.yahoo.com |