This is my last one to convert. I’m still looking for similar without converting, but no luck yet. I use it as a confirmation of other signals. Its a doozy:
TOS script:
declare lower;
script PhiSmoother {
input Source = close;
input length = 10;
input Phase = 3.7;
def pi = Double.Pi;
def SQRT_PIx2 = Sqrt(2.0 * pi);
def MULTIPLIER = -0.5 / 0.93;
def sma2 = Average(Source, 2);
def length_2 = length * 0.52353;
def W = fold i = 0 to length with p do
p + sma2[i] * if ((i + Phase – length_2) * MULTIPLIER) < 0.0 then
(1.0 - ((Exp(Power(((i + Phase - length_2) * MULTIPLIER), 2) * -0.5)
* -0.39894228) * (1.0 / (0.2316419 * AbsValue(((i + Phase - length_2) * MULTIPLIER)) + 1.0)) *
( 0.319381530 + (1.0 / (0.2316419 * AbsValue(((i + Phase - length_2) * MULTIPLIER)) + 1.0)) *
(-0.356563782 + (1.0 / (0.2316419 * AbsValue(((i + Phase - length_2) * MULTIPLIER)) + 1.0)) *
( 1.781477937 + (1.0 / (0.2316419 * AbsValue(((i + Phase - length_2) * MULTIPLIER)) + 1.0)) *
(-1.821255978 + (1.0 / (0.2316419 * AbsValue(((i + Phase - length_2) * MULTIPLIER)) + 1.0))
* 1.330274429)))) + 1.011)) / SQRT_PIx2 else
(((Exp(Power(((i + Phase - length_2) * MULTIPLIER), 2) * -0.5)
* -0.39894228) * (1.0 / (0.2316419 * AbsValue(((i + Phase - length_2) * MULTIPLIER)) + 1.0)) *
( 0.31938153 + (1.0 / (0.2316419 * AbsValue(((i + Phase - length_2) * MULTIPLIER)) + 1.0)) *
(-0.356563782 + (1.0 / (0.2316419 * AbsValue(((i + Phase - length_2) * MULTIPLIER)) + 1.0)) *
( 1.781477937 + (1.0 / (0.2316419 * AbsValue(((i + Phase - length_2) * MULTIPLIER)) + 1.0)) *
(-1.821255978 + (1.0 / (0.2316419 * AbsValue(((i + Phase - length_2) * MULTIPLIER)) + 1.0))
* 1.330274429)))) + 1.011)) / SQRT_PIx2;
def E = fold j = 0 to length with q do
q + if ((j + Phase - length_2) * MULTIPLIER) < 0.0 then
(1.0 - ((Exp(Power(((j + Phase - length_2) * MULTIPLIER), 2) * -0.5)
* -0.39894228) * (1.0 / (0.2316419 * AbsValue(((j + Phase - length_2) * MULTIPLIER)) + 1.0)) *
( 0.31938153 + (1.0 / (0.2316419 * AbsValue(((j + Phase - length_2) * MULTIPLIER)) + 1.0)) *
(-0.356563782 + (1.0 / (0.2316419 * AbsValue(((j + Phase - length_2) * MULTIPLIER)) + 1.0)) *
( 1.781477937 + (1.0 / (0.2316419 * AbsValue(((j + Phase - length_2) * MULTIPLIER)) + 1.0)) *
(-1.821255978 + (1.0 / (0.2316419 * AbsValue(((j + Phase - length_2) * MULTIPLIER)) + 1.0))
* 1.330274429)))) + 1.011)) / SQRT_PIx2 else
(((Exp(Power(((j + Phase - length_2) * MULTIPLIER), 2) * -0.5)
* -0.39894228) * (1.0 / (0.2316419 * AbsValue(((j + Phase - length_2) * MULTIPLIER)) + 1.0)) *
( 0.31938153 + (1.0 / (0.2316419 * AbsValue(((j + Phase - length_2) * MULTIPLIER)) + 1.0)) *
(-0.356563782 + (1.0 / (0.2316419 * AbsValue(((j + Phase - length_2) * MULTIPLIER)) + 1.0)) *
( 1.781477937 + (1.0 / (0.2316419 * AbsValue(((j + Phase - length_2) * MULTIPLIER)) + 1.0)) *
(-1.821255978 + (1.0 / (0.2316419 * AbsValue(((j + Phase - length_2) * MULTIPLIER)) + 1.0))
* 1.330274429)))) + 1.011)) / SQRT_PIx2;
def PhiSmoother = W / E;
plot out = PhiSmoother;
}
script filter {
input source = close;
input length = 10;
input phase = 3.7;
input filterType = "PhiSmoother";
input rank = 0;
input trimUp = 0;
input trimDn = 0;
def phiFilter = PhiSmoother(source, length, phase);
def filter = if filterType== "EMA" then ExpAverage(source, length) else
if filterType== "DEMA" then DEMA(source, length) else
if filterType== "TEMA" then TEMA(source, length) else
if filterType== "WMA" then WMA(source, length) else
if filterType== "SMA" then Average(source, length) else phiFilter;
def return = if length > 1 and !isNaN(filter) then filter else source;
def cond = (rank >= trimUp) and ((16 – rank) >= trimDn);
plot out = if cond then return else 0;
}
#Hint CompositeClusterMode: Trend Strength visualizes the directionality of the filter cluster. Volatility weights the score to the bandwidth of the cluster.
#hint ClusterFilter: Choose a filter to build the moving average cluster with.
#Hint PhiSmootherPhase: This allows for subtle adjustment (tweaking) of the phase/lag for PhiSmoother.
#Hint ClusterDispersion: Choose the separation between the moving averages in the cluster.
#Hint upper_trim: Adjusts the shortest period of the moving averages. Increasing the upper value reduces sensitivity.
#Hint lower_trim: Adjusts the longest period of the moving averages. Increasing the lower value heightens sensitivity.
#Hint signal_length: Period of the momentum signal plot.
#Hint transition_easing: Adjust the sensitivity to ranging conditions.
input timeframe = {Default “Chart”, “Custom”};
input customTimeframe = AggregationPeriod.FIFTEEN_MIN;
input price = FundamentalType.CLOSE; # “Source”
input CompositeClusterMode = {default “Trend Strength”, “Volatility”}; # “Composite Cluster Mode”
input ClusterFilter = {default “PhiSmoother”, “EMA”, “DEMA”, “TEMA”, “WMA”, “SMA”}; # “Cluster Filter”
input PhiSmootherPhase = 3.7; # “???PhiSmoother Phase”
input ClusterDispersion = 3; # “Cluster Dispersion”
input upper_trim = 0; # “Cluster Trim – Upper:”
input lower_trim = 0; # “??Lower:”
input PostSmoothFilter = {default “PhiSmoother”, “EMA”, “DEMA”, “TEMA”, “WMA”, “SMA”}; # “PostSmooth – Filter:”
input PostSmoothLength = 1; #, “??Length:”, group=output, inline=”post”, minval=1, tooltip=”Period of the clu
input signal_filter = {default “PhiSmoother”, “EMA”, “DEMA”, “TEMA”, “WMA”, “SMA”}; #]”Signal – Filter:”
input signal_length = 20; #, “??Length:”
input upperLevel = 75.00; #, “Levels – Upper:”,
input lowerLevel = -75.00; #, “??Lower:”
input candle_color = no; # “Candle Coloring”
input transition_easing = 50.0; #, “Transition Easing”
def source;
Switch (timeframe) {
Case “Custom” : source = Fundamental(FundamentalType = price, Period = customTimeframe);
Default : source = Fundamental(FundamentalType = price);
}
def na = Double.NaN;
def last = IsNaN(close);
def Phase = PhiSmootherPhase;
def spacing = Min(Max(ClusterDispersion, 1), 10);
def VOLATILITY_MODE_ON = CompositeClusterMode == CompositeClusterMode.”Volatility”;
def upper = Min(Max(upper_trim, 0), 15);
def lower = Min(Max(lower_trim, 0), 15);
def trimUp = if (upper + lower) > 15 then if upper > lower then upper – lower else upper else upper;
def trimDn = if (upper + lower) > 15 then if upper > lower then lower else lower – upper else lower;
#– Colors
DefineGlobalColor(“rising_bullish”, CreateColor(255, 204, 0)); # “Bullish Color”
DefineGlobalColor(“falling_bullish”, CreateColor(253, 240, 185)); # “bull”)
DefineGlobalColor(“falling_bearish”, CreateColor(85, 0, 204)); # “bear”
DefineGlobalColor(“rising_bearish”, CreateColor(181, 128, 255)); #”bear”
script z {
input cluster = close;
def pos = Double.POSITIVE_INFINITY;
def cond = cluster <= 0;
def z = if cond then pos else cluster;
plot out = z;
}
script getScore {
input vv = 0;
input v0 = 0;
input v1 = 0;
input v2 = 0;
input v3 = 0;
input v4 = 0;
input v5 = 0;
input v6 = 0;
input v7 = 0;
input v8 = 0;
input v9 = 0;
input v10 = 0;
input v11 = 0;
input v12 = 0;
input v13 = 0;
input v14 = 0;
input v15 = 0;
input v16 = 0;
input i = 0;
def r0 = (if i == 0 or v0 == 0 then 0 else (if vv > v0 then (if i < 0 then 1 else -1) else (if i < 0 then -1 else 1)));
def r1 = r0 + (if i == 1 or v1 == 0 then 0 else (if vv > v1 then (if i < 1 then 1 else -1) else (if i < 1 then -1 else 1)));
def r2 = r1 + (if i == 2 or v2 == 0 then 0 else (if vv > v2 then (if i < 2 then 1 else -1) else (if i < 2 then -1 else 1)));
def r3 = r2 + (if i == 3 or v3 == 0 then 0 else (if vv > v3 then (if i < 3 then 1 else -1) else (if i < 3 then -1 else 1)));
def r4 = r3 + (if i == 4 or v4 == 0 then 0 else (if vv > v4 then (if i < 4 then 1 else -1) else (if i < 4 then -1 else 1)));
def r5 = r4 + (if i == 5 or v5 == 0 then 0 else (if vv > v5 then (if i < 5 then 1 else -1) else (if i < 5 then -1 else 1)));
def r6 = r5 + (if i == 6 or v6 == 0 then 0 else (if vv > v6 then (if i < 6 then 1 else -1) else (if i < 6 then -1 else 1)));
def r7 = r6 + (if i == 7 or v7 == 0 then 0 else (if vv > v7 then (if i < 7 then 1 else -1) else (if i < 7 then -1 else 1)));
def r8 = r7 + (if i == 8 or v8 == 0 then 0 else (if vv > v8 then (if i < 8 then 1 else -1) else (if i < 8 then -1 else 1)));
def r9 = r8 + (if i == 9 or v9 == 0 then 0 else (if vv > v9 then (if i < 9 then 1 else -1) else (if i < 9 then -1 else 1)));
def r10 = r9 + (if i == 10 or v10 == 0 then 0 else (if vv > v10 then (if i < 10 then 1 else -1) else (if i < 10 then -1 else 1)));
def r11 = r10+ (if i == 11 or v11 == 0 then 0 else (if vv > v11 then (if i < 11 then 1 else -1) else (if i < 11 then -1 else 1)));
def r12 = r11+ (if i == 12 or v12 == 0 then 0 else (if vv > v12 then (if i < 12 then 1 else -1) else (if i < 12 then -1 else 1)));
def r13 = r12+ (if i == 13 or v13 == 0 then 0 else (if vv > v13 then (if i < 13 then 1 else -1) else (if i < 13 then -1 else 1)));
def r14 = r13+ (if i == 14 or v14 == 0 then 0 else (if vv > v14 then (if i < 14 then 1 else -1) else (if i < 14 then -1 else 1)));
def r15 = r14+ (if i == 15 or v15 == 0 then 0 else (if vv > v15 then (if i < 15 then 1 else -1) else (if i < 15 then -1 else 1)));
def r16 = r15+ (if i == 16 or v16 == 0 then 0 else (if vv > v16 then (if i < 16 then 1 else -1) else (if i < 16 then -1 else 1)));
plot result = if IsNaN(r16) then 0 else if vv == 0 then 0 else r16;
}
def cluste0 = if trimUp > 0 then 0 else source;
def cluste1 = filter(source, 1 * spacing, phase, ClusterFilter, 1, trimUp, trimDn);
def cluste2 = filter(source, 2 * spacing, phase, ClusterFilter, 2, trimUp, trimDn);
def cluste3 = filter(source, 3 * spacing, phase, ClusterFilter, 3, trimUp, trimDn);
def cluste4 = filter(source, 4 * spacing, phase, ClusterFilter, 4, trimUp, trimDn);
def cluste5 = filter(source, 5 * spacing, phase, ClusterFilter, 5, trimUp, trimDn);
def cluste6 = filter(source, 6 * spacing, phase, ClusterFilter, 6, trimUp, trimDn);
def cluste7 = filter(source, 7 * spacing, phase, ClusterFilter, 7, trimUp, trimDn);
def cluste8 = filter(source, 8 * spacing, phase, ClusterFilter, 8, trimUp, trimDn);
def cluste9 = filter(source, 9 * spacing, phase, ClusterFilter, 9, trimUp, trimDn);
def cluste10 = filter(source, 10 * spacing, phase, ClusterFilter, 10, trimUp, trimDn);
def cluste11 = filter(source, 11 * spacing, phase, ClusterFilter, 11, trimUp, trimDn);
def cluste12 = filter(source, 12 * spacing, phase, ClusterFilter, 12, trimUp, trimDn);
def cluste13 = filter(source, 13 * spacing, phase, ClusterFilter, 13, trimUp, trimDn);
def cluste14 = filter(source, 14 * spacing, phase, ClusterFilter, 14, trimUp, trimDn);
def cluste15 = filter(source, 15 * spacing, phase, ClusterFilter, 15, trimUp, trimDn);
def cluste16 = filter(source, 16 * spacing, phase, ClusterFilter, 16, trimUp, trimDn);
def cluster0 = (cluste0);
def cluster1 = (cluste1);
def cluster2 = (cluste2);
def cluster3 = (cluste3);
def cluster4 = (cluste4);
def cluster5 = (cluste5);
def cluster6 = (cluste6);
def cluster7 = (cluste7);
def cluster8 = (cluste8);
def cluster9 = (cluste9);
def cluster10 = (cluste10);
def cluster11 = (cluste11);
def cluster12 = (cluste12);
def cluster13 = (cluste13);
def cluster14 = (cluste14);
def cluster15 = (cluste15);
def cluster16 = (cluste16);
def luster0 = z(cluster0);
def luster1 = z(cluster1);
def luster2 = z(cluster2);
def luster3 = z(cluster3);
def luster4 = z(cluster4);
def luster5 = z(cluster5);
def luster6 = z(cluster6);
def luster7 = z(cluster7);
def luster8 = z(cluster8);
def luster9 = z(cluster9);
def luster10 = z(cluster10);
def luster11 = z(cluster11);
def luster12 = z(cluster12);
def luster13 = z(cluster13);
def luster14 = z(cluster14);
def luster15 = z(cluster15);
def luster16 = z(cluster16);
def score0 = getScore(cluster0 , cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 0);
def score1 = getScore(cluster1 , cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 1);
def score2 = getScore(cluster2 , cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 2);
def score3 = getScore(cluster3 , cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 3);
def score4 = getScore(cluster4 , cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 4);
def score5 = getScore(cluster5 , cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 5);
def score6 = getScore(cluster6 , cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 6);
def score7 = getScore(cluster7 , cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 7);
def score8 = getScore(cluster8 , cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 8);
def score9 = getScore(cluster9 , cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 9);
def score10 = getScore(cluster10, cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 10);
def score11 = getScore(cluster11, cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 11);
def score12 = getScore(cluster12, cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 12);
def score13 = getScore(cluster13, cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 13);
def score14 = getScore(cluster14, cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 14);
def score15 = getScore(cluster15, cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 15);
def score16 = getScore(cluster16, cluster0 , cluster1 , cluster2 , cluster3 , cluster4 , cluster5 , cluster6 , cluster7 ,
cluster8 , cluster9 , cluster10, cluster11, cluster12, cluster13, cluster14, cluster15, cluster16, 16);
def max1 = Max(cluster0, Max(cluster1, Max(cluster2, Max(cluster3, Max(cluster4, Max(cluster5, Max(cluster6, cluster7)))))));
def max2 = Max(cluster8, Max(cluster9, Max(cluster10,Max(cluster11,Max(cluster12,Max(cluster13,Max(cluster14, cluster15)))))));
def max5 = Max(cluster16,Max(max1, max2));
def min1 = Min(luster0, Min(luster1, Min(luster2, Min(luster3, Min(luster4, Min(luster5, Min(luster6, luster7)))))));
def min2 = Min(luster8, Min(luster9, Min(luster10,Min(luster11,Min(luster12,Min(luster13,Min(luster14, luster15)))))));
def min5 = Min(luster16,Min(min1, min2));
def ribbon_max = max5;
def ribbon_min = min5;
def ribbon_width = ribbon_max – ribbon_min;
def avg = (ribbon_max + ribbon_min) / 2;
def ribbon_Avg = (ribbon_width / avg);
def rib_Avg = if IsNaN(ribbon_Avg) then 0 else ribbon_Avg;
def ribbon_rank = if VOLATILITY_MODE_ON then rib_Avg else 1;
def avgNetScore1 = score0 + score1 + score2 + score3 + score4 + score5 + score6 + score7 + score8;
def avgNetScore2 = score9 + score10 + score11 + score12 + score13 + score14 + score15 + score16;
def score = avgNetScore1 + avgNetScore2;
def NetSco1 = !cluster0 + !cluster1 + !cluster2 + !cluster3 + !cluster4 + !cluster5 + !cluster6 + !cluster7 + !cluster8 + !cluster9;
def NetSco2 = !cluster10+ !cluster11+ !cluster12+ !cluster13+ !cluster14+ !cluster15+ !cluster16;
def value = 16 – (NetSco1 + NetSco2);
def avgNetScore = score / (value + 1);
def netScore = ((avgNetScore + value) / (value * 2.0) – 0.5) * 200.0;
def net_score = filter(netScore * ribbon_rank, PostSmoothLength, 3.7, PostSmoothFilter);
def avg_net_score = Average(net_score, 2);
def signal_value = if signal_length < 2 then na else filter(avg_net_score, signal_length, 3.7, signal_filter);
#-- Colors
def bar = AbsValue(BarNumber());
def delta = net_score - If(IsNaN(net_score[1]), net_score, net_score[1]);
def bullish = if delta >= 0.0 then 3 else 2;
def bearish = if delta > 0.0 then -2 else -3;
def transit = if net_score > 0.0 then (if delta >= 0.0 then 1 else -1)
else (if delta >= 0.0 then -1 else 1);
def easing = 0.01 * transition_easing;
def absVal = if bar > 0 then absVal[1] + Sqr(AbsValue(net_score)) else 1;
def crm = AbsValue(net_score)*100 + easing * Sqrt(absVal / (bar + 1 ));
def crms = if IsNaN(crm) then 0 else if crm > 100 then 100 else if crm < 0 then 0 else crm;
def grad;
if VOLATILITY_MODE_ON {
grad = if net_score > 0.0 then
if transition_easing > 0.0 then 5 else bullish else
if transition_easing > 0.0 then -5 else bearish;
} else {
grad = if net_score > 0.0 then
if transition_easing > 0.0 then 4 else bullish else
if transition_easing > 0.0 then -4 else bearish;
}
def col = if IsNaN(net_score) then 0 else if net_score > 100 then 100 else if net_score < -100 then -100 else net_score;
def col1 = if col > upperLevel then 100 else if col < lowerLevel then 100 else absValue(col); #if col > 0 then col else -col;
def nCol = 100 – col1;
def eCol = col1 * 2.54 + nCol;
def nCrms = 100 – crms;
def eCrms = crms * 2.54 + nCrms;
#– plots
plot SignalLine = if last then na else signal_value;
plot ScoreLine = if last then na else HullMovingAvg(net_score, 5);
plot top = if last or VOLATILITY_MODE_ON then na else 100.0; # “Top”
plot upperLvl = if last or VOLATILITY_MODE_ON then na else upperLevel; # “+Level”, rising_bullish, hline.style_dotted, 2)
plot Center = if last then na else 0;
plot lowerLvl = if last or VOLATILITY_MODE_ON then na else lowerLevel; # “+Level”, falling_bearish, hline.style_dotted, 2)
plot bottom = if last or VOLATILITY_MODE_ON then na else -100.0; # “Bottom”
AddCloud(ScoreLine, SignalLine, Color.DARK_GREEN, Color.PLUM);
ScoreLine.AssignValueColor(if grad == 5 then CreateColor(nCrms, eCrms, nCrms) else
if grad == 4 then CreateColor(nCol, eCol, eCol) else
if grad ==-5 then CreateColor(eCrms, nCrms, nCrms) else
if grad ==-4 then CreateColor(eCol, nCol, eCol) else
if grad == 3 then GlobalColor(“rising_bullish”) else
if grad == 2 then GlobalColor(“falling_bullish”) else
if grad ==-3 then GlobalColor(“falling_bearish”) else
if grad ==-2 then GlobalColor(“rising_bearish”) else Color.GRAY);
ScoreLine.SetLineWeight(2);
SignalLine.AssignValueColor(if transition_easing > 0 then Color.DARK_ORANGE else Color.DOWNTICK);
top.SetDefaultColor(Color.RED);
Center.SetDefaultColor(Color.GRAY);
bottom.SetDefaultColor(Color.GREEN);
upperLvl.SetStyle(Curve.SHORT_DASH);
upperLvl.SetDefaultColor(Color.RED);
lowerLvl.SetStyle(Curve.SHORT_DASH);
lowerLvl.SetDefaultColor(Color.GREEN);
AddCloud(top, top – (top – upperLvl)/2, Color.DARK_RED);
AddCloud(lowerLvl – (lowerLvl – bottom)/2, bottom, Color.DARK_GREEN);
DefineGlobalColor(“rising_transition”, CreateColor(149, 152, 161)); # “range”
DefineGlobalColor(“falling_transition”, CreateColor(204, 204, 204)); # “range”
AssignPriceColor(if !candle_color then Color.CURRENT else
if grad == 5 then CreateColor(nCrms, eCrms, nCrms) else
if grad == 4 then CreateColor(nCol, eCol, eCol) else
if grad ==-5 then CreateColor(eCrms, nCrms, nCrms) else
if grad ==-4 then CreateColor(eCol, nCol, eCol) else
if grad == 3 then GlobalColor(“rising_bullish”) else
if grad == 2 then GlobalColor(“falling_bullish”) else
if grad ==-3 then GlobalColor(“falling_bearish”) else
if grad ==-2 then GlobalColor(“rising_bearish”) else Color.GRAY);
#– END of CODE
I included a pic of settings window, and indicator. It’s the bottom indicator. I included pic with chart as well to see how well it aligns with price action.
Thanks!
