{ User input }
pds:=Input("Use Highest/Lowest of past x days",1,260,1);
{ Message }
message:=Input("(Plot on intraday charts)",0,0,0);
{ Day's start }
dStart:=DayOfMonth()<>Ref(DayOfMonth(),-1) OR Cum(1)=2;
{ Previous x Days' High }
Hd:=HighestSince(pds,dStart,H);
Hd:=ValueWhen(1,dStart,ValueWhen(2,1,Hd));
Hd:=ValueWhen(1,Hd>0,Hd);
{ Previous x Days' Low }
Ld:=LowestSince(pds,dStart,L);
Ld:=ValueWhen(1,dStart,ValueWhen(2,1,Ld));
Ld:=ValueWhen(1,Ld>0,Ld);
{ Previous Day's Close }
Cd:=ValueWhen(1,dStart,ValueWhen(2,1,C));
Cd:=ValueWhen(1,Cd>0,Cd);
{ Pivot }
Pivot:=(Hd+Ld+Cd)/3; {Plot in Green bold}
{ Support }
S1:=2*Pivot-Hd; {Blue}
S2:=Pivot-(Hd-Ld); {Red}
S3:=2*Pivot-(2*Hd-Ld); {dark Green}
{ Resistance }
R1:=2*Pivot-Ld; {Blue}
R2:=Pivot+(Hd-Ld); {Red}
R3:=2*Pivot+(Hd-2*Ld); {dark Green}
Q1:=(HD+LD)/2;
Q2:=2*Pivot-Q1;
Int(Q1/0.025+0.50)*0.025;Int(Pivot/0.025+0.50)*0.025;Int(Q2/0.025+0.50)*0.025
Ek 22758
Yer İmleri