# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=PrevYear Low
Name=prevYLow
Language=DelphiScript
Links=1
MinBars=0
TimerInterval=100
MetaStyle=Normal
ValueRange=Same as Source
Placement=Smart
Multiplot_num_plots=1
Multiplot_color_0=255
Multiplot_style_0=Dot
Multiplot_width_0=1
Multiplot_enabled_0=1
Multiplot_breakstyle_0=0
UpdateByTick=1
TradingSystemUI=0
PrimaryLinkOnly=0
NotifyOnRemoval=0
Param_count=0
Explanation_Lines=1
Explanation0=Similar to Previous Year Close, this indicator plots the previous Year low in a series of dots on daily and weekly charts. Previous Year Low requires one series (Link 1).
# NEOTICKER DATA END

// Part of NeoTicker program
// written by Lawrence Chan, December 2000
// Copyright by TickQuest, Inc.
// All rights reserved

// detail explanation of logic is
// in the function prevDHigh

// revised July 2001

const
  LowID       = 0;
  CurrLow     = 1;
  PrevDate    = 2;
  FirstSwitch = 3;

function prevYLow : double;
begin
   if not data1.valid [0] then
   begin
      itself.success := false;
      exit;
   end;

   if heap.size = 0 then
   begin
      with heap do
      begin
         allocate (4);
         value [LowID] := data1.low [0];
         value [CurrLow] := 0;
         value [PrevDate] := data1.datetime [0];
         value [FirstSwitch] := 0;
      end;

      itself.success := false;
      exit;
   end;

   if data1.year [0] <> tq_year (heap.value [PrevDate]) then
   begin
      heap.value [firstswitch] := 1;
      heap.value [CurrLow] := heap.value [LowID];
      heap.value [LowID] := data1.low[0];
   end
   else
   begin
      if heap.value [LowID] > data1.low[0] then
         heap.value [LowID] := data1.low[0];
   end;

   if heap.value [firstswitch] = 0 then
      itself.success := false
   else
      result := heap.value [CurrLow];

   heap.value [PrevDate] := data1.datetime [0];
end;