Attachments:
Pivot_Points.sfIndRC - 22 KB, downloaded 1,620 time(s).

Attachments:
Pivot_Points_Mid.sfIndRC - 29 KB, downloaded 1,178 time(s).

Attachments:
Pivot_Points_Current_Day_Based.sfIndRC - 22 KB, downloaded 921 time(s).

Bruce:

Can you please do a small modification to your pivot points...rc code and give the code a different name.

The formula would be:

pivot point = ((Today's Open) + Yesterday's(H+L+C))/4

Thanks, 

Jeff

The RealCode for the Pivot Point itself would become (replace everything below the Inherits line in the Class tab of a RealCode Indicator with the following):

	Sub New
		AutoLoop = False
	End Sub
	Public Overrides Function Plot() As System.Single
		Dim Boundary As Boolean = False
		Dim	Components(3) As Single
		Dim i As Integer = Price.Bar.Count - 1
		While Boundary = False AndAlso i > 2
			If Price.Bar.DateValue(i).DayOfYear <> Price.Bar.DateValue(i - 1).DayOfYear Then
				Components(0) = Price.Bar.HighValue(i - 1)
				Components(1) = Price.Bar.LowValue(i - 1)
				Components(2) = Price.Bar.Value(i - 1)
				Components(3) = Price.Bar.OpenValue(i)
				Boundary = True
			End If
			i -= 1
		End While
		If Boundary = True Then
			Boundary = False
			While Boundary = False AndAlso i > 1
				Components(0) = System.Math.Max(Components(0), Price.Bar.HighValue(i))
				Components(1) = System.Math.Min(Components(1), Price.Bar.LowValue(i))
				If Price.Bar.DateValue(i).DayOfYear <> Price.Bar.DateValue(i - 1).DayOfYear Then
					Boundary = True
				End If
				i -= 1
			End While
			If Boundary = True Then
				Dim PP As Single = (Components(0) + Components(1) + Components(2) + Components(3)) / 4
				For i = 0 To Price.Bar.Count - 2
					AddToOutput(Price.Bar.DateValue(i), PP)
				Next
				AddToOutput(Price.Bar.DateValue(Price.Bar.Count - 1), PP, "PP " & PP.ToString("0.000"))
			End If
		End If
	End Function
End Class

But I do not know how this would change the other pivot points.

Bruce:

Thanks, I will start to experiment with this code.

Jeff

You're welcome.