# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=TASC Modified Average True Range
Name=tasc_atr_mod
Language=Formula
Links=1
MinBars=0
TimerInterval=100
EarlyBinding=0
MetaStyle=Normal
ValueRange=Same as Source
Placement=Active Pane
Multiplot_num_plots=2
Multiplot_color_0=255
Multiplot_style_0=Line
Multiplot_width_0=1
Multiplot_enabled_0=0
Multiplot_name_0=ATR
Multiplot_breakstyle_0=0
Multiplot_color_1=255
Multiplot_style_1=Line
Multiplot_width_1=1
Multiplot_enabled_1=1
Multiplot_name_1=Trial stop
Multiplot_breakstyle_1=0
UpdateByTick=0
FloatMarker=1
DepthData=0
TradingSystemUI=0
PrimaryLinkOnly=0
NotifyOnRemoval=0
Param_count=3
Param_name_0=ATR period
Param_inuse_0=1
Param_type_0=integer.gte.0
Param_default_0=5
Param_name_1=ATR multiplication
Param_inuse_1=1
Param_type_1=real
Param_default_1=3.5
Param_name_2=start date
Param_inuse_2=1
Param_type_2=datetime
Param_default_2=2009/1/1 12:0:0
Explanation_Lines=0
# NEOTICKER DATA END
$period := choose(param1 < 1, 1, param1 > 100, 100, param1);
$atrfact := choose(param2 < 1, 1, param2 > 10, 10, param2);
MidPrice := H-L;
$HiLo := if(MidPrice < 1.5*average(MidPrice, $period),
            MidPrice, 1.5*average(MidPrice, $period));
$Href := if (L <= H(1), H-C(1), ((H-C(1))-(L(1)-H))/2);
$Lref := if (H >= L(1), C(1)-L, ((C(1)-L)-(L(1)-H))/2);
diff1 := maxlist($HiLo, $Href);
diff2 := maxlist(diff1, $Lref);
$atrmod := 1/$period*diff2 + ($period-1)/$period*qc_xaverage(1,diff2,$period);
$loss := $atrfact*$atrmod;
plot1 := $atrmod;
plot2 := choose(C>plot2(1) and C(1)>plot2(1), maxlist(plot2(1),C-$loss),
                C<plot2(1) and C(1)<plot2(1), minlist(plot2(1),C+$loss),
                C>plot2(1), C-$loss, C+$loss);
success2 := date(0) > param3;