Pivot 4/2 High Low

• 06/11/2017 at 1:59 PM #38060
  stevesteve

  I’m looking for an indicator that automatically shows the last pivot high and low.

  Here is a code from another program:

  {- Filename: Nico Bakker 4-2 PH&PL -} var i,x,y,Cnt : integer; TheEndofX,TheEndofY : Boolean; aStart_x: array[0..2000] of integer; aEnd_x : array[0..2000] of integer; aPrice_x: array[0..2000] of real; aStart_y: array[0..2000] of integer; aEnd_y : array[0..2000] of integer; aPrice_y: array[0..2000] of real; begin with Indicator do begin RequiredBars := 10; NewBand := false; ScaleRange := srCommon; end; for i := firstvalidIndex(High)+ 6 to BarCount - 1 do begin if (High[i] < High[i-2]) and (High[i-1] < High[i-2]) and (High[i-2] > High[i-3]) and (High[i-2] > High[i-4])and (High[i-2] > High[i-5])and (High[i-2] > High[i-6]) then begin if not TheEndofX then aEnd_x[x]:= i-2; x := x + 1; aStart_x[x] := i-2; aPrice_x[x] := High[i-2]; TheEndofX := false; end; if not TheEndofX and (High[i] > aPrice_x[x]) then begin aEnd_x[x] := i; TheEndofX := true; end; if i = barcount-1 then begin if aEnd_x[x] = 0 then aEnd_x[x] := i; for Cnt := 1 to x do begin with CreateTrendline(Barposition[aStart_x[Cnt]], aPrice_x[Cnt], Barposition[aEnd_x[Cnt]], aPrice_x[Cnt])do begin Color := clRed; Style := lsDash; end; end; end; if (Low[i] > Low[i-2]) and (Low[i-1] > Low[i-2]) and (Low[i-2] < Low[i-3]) and (Low[i-2] < Low[i-4])and (Low[i-2] < Low[i-5])and (Low[i-2] < Low[i-6]) then begin if not TheEndofY then aEnd_y[y]:= i-2; y := y + 1; aStart_y[y] := i-2; aPrice_y[y] := Low[i-2]; TheEndofY := false; end; if not TheEndofY and (Low[i] < aPrice_y[y]) then begin aEnd_y[y] := i; TheEndofY := true; end; if i = barcount-1 then begin if aEnd_y[y] = 0 then aEnd_y[y] := i; for Cnt := 1 to y do begin with CreateTrendline(Barposition[aStart_y[Cnt]], aPrice_y[Cnt], Barposition[aEnd_y[Cnt]], aPrice_y[Cnt])do begin Color := clBlue; Style := lsDash; end; end; end; end; end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77

  {- Filename: Nico Bakker 4-2 PH&PL -} var i,x,y,Cnt : integer; TheEndofX,TheEndofY : Boolean;   aStart_x: array[0..2000] of integer; aEnd_x : array[0..2000] of integer; aPrice_x: array[0..2000] of real;   aStart_y: array[0..2000] of integer; aEnd_y : array[0..2000] of integer; aPrice_y: array[0..2000] of real;   begin   with Indicator do begin RequiredBars := 10; NewBand := false; ScaleRange := srCommon; end;   for i := firstvalidIndex(High)+ 6 to BarCount - 1 do begin   if (High[i] < High[i-2]) and (High[i-1] < High[i-2]) and (High[i-2] > High[i-3]) and (High[i-2] > High[i-4])and (High[i-2] > High[i-5])and (High[i-2] > High[i-6]) then begin if not TheEndofX then aEnd_x[x]:= i-2; x := x + 1; aStart_x[x] := i-2; aPrice_x[x] := High[i-2]; TheEndofX := false; end; if not TheEndofX and (High[i] > aPrice_x[x]) then begin aEnd_x[x] := i; TheEndofX := true; end; if i = barcount-1 then begin if aEnd_x[x] = 0 then aEnd_x[x] := i; for Cnt := 1 to x do begin with CreateTrendline(Barposition[aStart_x[Cnt]], aPrice_x[Cnt], Barposition[aEnd_x[Cnt]], aPrice_x[Cnt])do begin Color := clRed; Style := lsDash; end; end; end; if (Low[i] > Low[i-2]) and (Low[i-1] > Low[i-2]) and (Low[i-2] < Low[i-3]) and (Low[i-2] < Low[i-4])and (Low[i-2] < Low[i-5])and (Low[i-2] < Low[i-6]) then begin if not TheEndofY then aEnd_y[y]:= i-2; y := y + 1; aStart_y[y] := i-2; aPrice_y[y] := Low[i-2]; TheEndofY := false; end; if not TheEndofY and (Low[i] < aPrice_y[y]) then begin aEnd_y[y] := i; TheEndofY := true; end; if i = barcount-1 then begin if aEnd_y[y] = 0 then aEnd_y[y] := i; for Cnt := 1 to y do begin with CreateTrendline(Barposition[aStart_y[Cnt]], aPrice_y[Cnt], Barposition[aEnd_y[Cnt]], aPrice_y[Cnt])do begin Color := clBlue; Style := lsDash; end; end; end; end; end.

   

  

  stevesteve

  Participant

  Topics: 1

  Replies: 2

  Been thanked: 0 times
  06/11/2017 at 6:59 PM #38078
  Nicolas

  First thought, I think this one could suit your query:

  https://www.prorealcode.com/prorealtime-indicators/bar-count-reversals-pivot-points-highlow/

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
• Author
  Posts