# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=TASC Uptrend HA
Name=tasc_uptrendHA
Language=Formula
Links=1
MinBars=0
TimerInterval=100
EarlyBinding=0
MetaStyle=HLColor
ValueRange=Same as Source
Placement=Smart
Multiplot_num_plots=3
Multiplot_color_0=33587200
Multiplot_style_0=Line
Multiplot_width_0=1
Multiplot_enabled_0=1
Multiplot_breakstyle_0=0
Multiplot_color_1=33587200
Multiplot_style_1=Line
Multiplot_width_1=1
Multiplot_enabled_1=1
Multiplot_breakstyle_1=0
Multiplot_color_2=33587200
Multiplot_style_2=Line
Multiplot_width_2=1
Multiplot_enabled_2=1
Multiplot_breakstyle_2=0
UpdateByTick=0
FloatMarker=1
DepthData=0
TradingSystemUI=0
PrimaryLinkOnly=0
NotifyOnRemoval=0
Param_count=1
Param_name_0=avg
Param_inuse_0=1
Param_type_0=integer.gte.1
Param_default_0=34
Explanation_Lines=0
# NEOTICKER DATA END
$avg := param1;
haOpen := ((O(1)+H(1)+L(1)+C(1))/4 + haOpen(1))/2;
haC := ((O+H+L+C)/4+haOpen+maxlist(H,haOpen)+minlist(L,haOpen))/4;
TMA1 := tema(haC,$avg);
TMA2 := tema(TMA1,$avg);
$myDiff := TMA1-TMA2;
$ZlHa := TMA1+$myDiff;
TMA1 := tema(((h+l)/2), $avg);
TMA2 := tema(TMA1, $avg);
$myDiff := TMA1-TMA2;
$ZlCl := TMA1+$myDiff;
$ZlDif := $ZlCl-$ZlHa;
$keep1 := (haC(1)>=haOpen(1)) and (haC>=haOpen);
$keep2 := $ZlDif>=0;
keeping := $keep1>0 or $keep2>0;
keepall := keeping>0 or (keeping(1)>0 and C>=O or C>=C(1));
$keep3 := absvalue(C-O)<((H-L)*0.35) and H>=L(1);
utr := keepall>0 or (keepall(1)>0 and $keep3>0);
$keep1 := (haC(1)<haOpen(1)) and (haC<haOpen);
$keep2 := $ZlDif<0;
$keep3 := (absvalue(C-O)<(H-L)*0.35) and L<=H(1);
keeping := $keep1>0 or $keep2>0;
keepall := keeping>0 or (keeping(1)>0 and C<O or C<C(1));
dtr := (keepall>0) or (keepall(1)>0 and C<O);
$upw := (dtr=0) and (dtr(1)>0) and (utr>0);
$dnw := (utr=0) and (utr(1)>0) and (dtr>0);
plot1 := h;
plot2 := l;
plot3 := choose($upw>0, clgreen,$dnw>0, clred, plot3(1));
success1 := barsnum(0) > $avg;
success2 := barsnum(0) > $avg;
success3 := barsnum(0) > $avg;