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

Intraday indicator for MSPro: Intra P Pts S/R 1, 2

PureBytes Links

Trading Reference Links

 
<x-html><!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
MSPro users,
<p>Here is indicator that plots daily pivot point levels (pivot point base,
R1, R2, S1, S2) on today's intraday chart.
<p>This indicator has a line display option which can reassign S/R levels
to the pivot base value for the auto-scaling reason mentioned the other
day.
<p>Attached is a file for import.
<p>Regards,
<br>Ken
<br>&nbsp;
<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<b><u>Intra P Pts S/R 1, 2</u></b>
<br>{The default start time is for a 9:30 market on&nbsp; a 5 minute chart.}
<p>MktHour:=
<br>Input("Enter start bar hour",
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1,24,9);
<p>MktMinute:=
<br>Input("Enter start bar minute",
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 00,59,35);
<br>&nbsp;
<p>A:=
<br>Input("R1= 1,&nbsp; R2= 2,&nbsp; Both= 3,&nbsp; None= 0",
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
0,3,1);
<p>B:=
<br>Input("S1= 1,&nbsp; S2= 2,&nbsp; Both= 3,&nbsp; None= 0",
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
0,3,1);
<br>&nbsp;
<p>MktStart:= Hour()=MktHour AND
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Minute()=MktMinute;
<p>yestMktEnd:= Ref(MktStart,1);
<p>Opn:= Ref(O,1);
<br>yestClo:= C;
<br>yestHi:= HighestSince(1,MktStart,H);
<br>yestLo:= LowestSince(1,MktStart,L);
<p>PB:= (yestHi+yestLo+yestClo)/3;
<br>R1:= (2*PB)-yestLo;
<br>S1:= (2*PB)-yestHi;
<br>R2:= (PB-S1)+R1;
<br>S2:= PB-(R1-S1);
<br>&nbsp;
<p>X:= If(yestMktEnd=1,PB,
<br>&nbsp;&nbsp;&nbsp; ValueWhen(1,yestMktEnd=1,PB));
<br>&nbsp;
<p>J:= If(yestMktEnd=1,R1,
<br>&nbsp;&nbsp;&nbsp; ValueWhen(1,yestMktEnd=1,R1));
<br>&nbsp;
<p>Y:= If(yestMktEnd=1,R2,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ValueWhen(1,yestMktEnd=1,R2));
<br>&nbsp;
<p>K:= If(yestMktEnd=1,S1,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ValueWhen(1,yestMktEnd=1,S1));
<br>&nbsp;
<p>Z:= If(yestMktEnd=1,S2,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ValueWhen(1,yestMktEnd=1,S2));
<br>&nbsp;
<p>X;
<br>&nbsp;
<p>If(A=1,J,
<br>&nbsp;&nbsp; If(A=2,Y,
<br>&nbsp;&nbsp; If(A=3,J,
<br>&nbsp;&nbsp; If(A=4,X,X))));
<br>If(A=3,Y,X);
<br>&nbsp;
<p>If(B=1,K,
<br>&nbsp;&nbsp; If(B=2,Z,
<br>&nbsp;&nbsp; If(B=3,K,
<br>&nbsp;&nbsp; If(B=4,X,X))));
<br>If(B=3,Z,X);
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;</html>
</x-html>
Attachment Converted: "c:\eudora\attach\Ms65form4.dta"