# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=Current Day VWAP Band
Name=CurrDVWAPBand
Language=Formula
Links=1
MinBars=0
TimerInterval=100
EarlyBinding=0
MetaStyle=Normal
ValueRange=Same as Source
Placement=Smart
Multiplot_num_plots=3
Multiplot_color_0=255
Multiplot_style_0=Line
Multiplot_width_0=1
Multiplot_enabled_0=1
Multiplot_name_0=Mid
Multiplot_breakstyle_0=0
Multiplot_color_1=50266112
Multiplot_style_1=Line
Multiplot_width_1=1
Multiplot_enabled_1=1
Multiplot_name_1=Top
Multiplot_breakstyle_1=0
Multiplot_color_2=50266112
Multiplot_style_2=Line
Multiplot_width_2=1
Multiplot_enabled_2=1
Multiplot_name_2=Bot
Multiplot_breakstyle_2=0
UpdateByTick=0
TradingSystemUI=0
PrimaryLinkOnly=0
NotifyOnRemoval=0
Param_count=0
Explanation_Lines=0
# NEOTICKER DATA END

' Current Day VWAP Band
' Written by Lawrence Chan
' Copyright © 2006 by TickQuest Inc.
' All rights reserved

$new_day := date (0) <> date (1);

$new_acvol := if ($new_day, 0, acvol (1)) + v;

$new_top := (if($new_day, 0, actop (1) * acvol (1)) + high * v) / $new_acvol;
$new_mid := (if($new_day, 0, acmid (1) * acvol (1)) + close * v) / $new_acvol;
$new_bot := (if($new_day, 0, acbot (1) * acvol (1)) + low * v) / $new_acvol;

acvol := $new_acvol;
actop := $new_top;
acmid := $new_mid;
acbot := $new_bot;

plot1 := $new_mid;
plot2 := $new_top;
plot3 := $new_bot;