Buongiorno,
Chiedo di voler cortesemente tradurre in linguaggio PRT questo codice che sembra interessante in quanto evidenzia molto chiaramente le fasi di stallo del mercato
Grazie
Cordiali saluti
SENTIMENT RANGE MA
fornisce ai trader una prospettiva dinamica sull’attività di mercato, enfatizzando sia la stabilità nelle zone di chop sia la rapida adattabilità al di fuori di esse.
https://www.tradingview.com/v/LVsNPKBe/
CODICE CSS
# https://www.tradingview.com/v/LVsNPKBe/
#/ This source code is subject to the terms of the Mozilla Public License 2.0 at https://moz
#// © ChartPrime
#indicator(“Sentiment Range MA [ChartPrime]”, overlay = true, timeframe = “”, timeframe_gaps = false)
# Converted and Mod by Sam4Cok@Samer800 – 11/2023
input showSignals = no;
input colorBars = no;
input showBand = yes;
input timeframe = {Default “Chart”, “Custom”};
input customTimeframe = AggregationPeriod.DAY;
input source = FundamentalType.CLOSE; # “Source”
input Length = 20; # “Length”
input DoubleFilter = yes; # “Double Filter”
input trueRangeType = {Default “Candle High/Low”, “Volatility Adjustment”};
input CandleSmoothing = 4; # “Trigger Smoothing”
input atrLength = 200; # “ATR Length”
input RangeMultiplier = 6.00; # “Range Multiplier”
input RangeStyle = {default “Body”, “Wick”}; # “Range Style”
input LineColorStyle = {default “MA Direction”, “MA Cross”, “Solid”}; # “Color Style”
def na = Double.NaN;
def last = isNaN(close);
def useAtr = trueRangeType == trueRangeType.”Volatility Adjustment”;
def mtf = timeframe == timeframe.”Custom”;
def dir = LineColorStyle == LineColorStyle.”MA Direction”;
def cross = LineColorStyle == LineColorStyle.”MA Cross”;
def len = Length + 1;
def smoothing = CandleSmoothing + 1;
def multi = RangeMultiplier;
#– Color
DefineGlobalColor(“bull”, CreateColor(33, 255, 120)); # “Bullish Color”
DefineGlobalColor(“bear”, CreateColor(255, 33, 33)); # “Bearish Color”
DefineGlobalColor(“neut”, CreateColor(137, 137, 137)); # “Neutral Color”
DefineGlobalColor(“dbull”, CreateColor(1, 50, 32)); # “Bullish Color”
DefineGlobalColor(“dbear”, CreateColor(63, 0, 0)); # “Bearish Color”
DefineGlobalColor(“dneut”, CreateColor(42, 42, 42)); # “Neutral Color”
#- MTF
def tfS = Fundamental(FundamentalType = source);
def tfO = Fundamental(FundamentalType = FundamentalType.OPEN);
def tfC = Fundamental(FundamentalType = FundamentalType.CLOSE);
def tfH = Fundamental(FundamentalType = FundamentalType.HIGH);
def tfL = Fundamental(FundamentalType = FundamentalType.LOW);
def mtfS = Fundamental(FundamentalType = source, Period = customTimeframe);
def mtfO = Fundamental(FundamentalType = FundamentalType.OPEN, Period = customTimeframe);
def mtfC = Fundamental(FundamentalType = FundamentalType.CLOSE, Period = customTimeframe);
def mtfH = Fundamental(FundamentalType = FundamentalType.HIGH, Period = customTimeframe);
def mtfL = Fundamental(FundamentalType = FundamentalType.LOW, Period = customTimeframe);
def s = if mtf then mtfS else tfC;
def o = if mtf then mtfO else tfO;
def c = if mtf then mtfC else tfC;
def h = if mtf then mtfH else tfH;
def l = if mtf then mtfL else tfL;
#sr_ma(float source, output_smoothing, trigger_smoothing, atr_length = 50, multiplier, string
script sr_ma {
input source = close;
input output_smoothing = 3;
input smoothing = 1;
input atr_length = 50;
input multiplier = 1;
input range_switch = “Body”;
input duel_filter = no;
input useAtr = no;
input o = open;
input c = close;
input h = high;
input l = low;
def ntr = TrueRange(h, c, l);
def nATR = WildersAverage(ntr, atr_length);
def minVol = Min(nATR * 0.5, c * (0.3 / 100));
def volAdj = minVol[20];
def max = Max(o, c);
def min = Min(o, c);
def candle_top = if range_switch != “Body” then h else max;
def candle_bot = if range_switch != “Body” then l else min;
def smooth_top = Average(candle_top, smoothing);
def smooth_bot = Average(candle_bot, smoothing);
def tr = candle_top – candle_bot;
def avgTr = Average(tr, atr_length);
def atr = if useAtr then volAdj else avgTr;
def sr_ma;
def cur_range;
def top_range;
def bot_range;
def flag = smooth_top > top_range[1] or smooth_bot < bot_range[1] or !cur_range[1];
if flag {
sr_ma = source;
cur_range = atr * multiplier;
top_range = sr_ma + cur_range;
bot_range = sr_ma - cur_range;
} else {
sr_ma = if sr_ma[1] then sr_ma[1] else source;
cur_range = if cur_range[1] then cur_range[1] else atr * multiplier;
top_range = if top_range[1] then top_range[1] else sr_ma + cur_range;
bot_range = if bot_range[1] then bot_range[1] else sr_ma - cur_range;
}
def AvgMa = Average(sr_ma, output_smoothing);
def AvgTop = Average(top_range, output_smoothing);
def AvgBot = Average(bot_range, output_smoothing);
def sr_WMA = WMA(sr_ma, output_smoothing);
def sr_dWMA = WMA(AvgMa, output_smoothing);
def top_WMA = WMA(top_range, output_smoothing);
def top_dWMA = WMA(AvgTop, output_smoothing);
def bot_WMA = WMA(bot_range, output_smoothing);
def bot_dWMA = WMA(AvgBot, output_smoothing);
def smooth_cur_range = if duel_filter then sr_dWMA else sr_WMA;
def smooth_top_range = if duel_filter then top_dWMA else top_WMA;
def smooth_bot_range = if duel_filter then bot_dWMA else bot_WMA;
plot srm = if smooth_cur_range then smooth_cur_range else Double.NaN;
plot top = if smooth_top_range then smooth_top_range else Double.NaN;
plot bot = if smooth_bot_range then smooth_bot_range else Double.NaN;
}
def sr_ma = sr_ma(s, len, smoothing, atrLength, multi, RangeStyle, DoubleFilter, useAtr, o, c, h, l).srm;
def top_range = sr_ma(s, len, smoothing, atrLength, multi, RangeStyle, DoubleFilter, useAtr, o, c, h, l).top;
def bot_range = sr_ma(s, len, smoothing, atrLength, multi, RangeStyle, DoubleFilter, useAtr, o, c, h, l).bot;
def ma_delta;
def ma_cross;
def plot_neutral = h > sr_ma and l < sr_ma;
def plot_bullish = l > sr_ma;
def plot_bearish = h < sr_ma;
if plot_bullish {
ma_cross = 1;
} else
if plot_bearish {
ma_cross = -1;
} else
if plot_neutral {
ma_cross = 0;
} else {
ma_cross = if isNaN(ma_cross[1]) then 0 else ma_cross[1];
}
def nzSr_ma = if isNaN(sr_ma[1]) then 0 else sr_ma[1];
def ma_delta_neutral = (sr_ma - nzSr_ma) == 0;
def ma_delta_bullish = (sr_ma - nzSr_ma) > 0;
def ma_delta_bearish = (sr_ma – nzSr_ma) < 0;
if ma_delta_bullish {
ma_delta = 1;
} else
if ma_delta_bearish {
ma_delta = -1;
} else
if ma_delta_neutral {
ma_delta = 0;
} else {
ma_delta = if isNaN(ma_delta[1]) then 0 else ma_delta[1];
}
def ma_col = if cross then ma_cross else
if Dir then ma_delta else 0;
plot ma = if last then na else sr_ma; # "SR MA"
def top = if last or !showBand then na else top_range; # "Top Range"
def bot = if last or !showBand then na else bot_range; # "Bottom Range"
ma.SetLineWeight(2);
ma.AssignValueColor(if ma_col > 0 then GlobalColor(“bull”) else
if ma_col < 0 then GlobalColor("bear") else GlobalColor("neut"));
def halfTop = top - (top - ma) / 2;
def halfBot = bot + (ma - bot) / 2;
AddCloud(if ma_col > 0 then halfTop else na, halfBot, GlobalColor(“dbull”));
AddCloud(if ma_col < 0 then halfTop else na, halfBot, GlobalColor("dbear"));
AddCloud(if !ma_col then halfTop else na, halfBot, GlobalColor("dneut"));
AddCloud(if ma_col > 0 then Top else na, Bot, GlobalColor(“dbull”));
AddCloud(if ma_col < 0 then Top else na, Bot, GlobalColor("dbear"));
AddCloud(if !ma_col then Top else na, Bot, GlobalColor("dneut"));
#-- BarColor
def barColor = if ma_cross>0 and ma_delta > 0 then 2 else
if ma_cross>0 or ma_delta > 0 then 1 else
if ma_cross<0 and ma_delta < 0 then -2 else
if ma_cross<0 or ma_delta < 0 then -1 else 0;
AssignPriceColor(if !colorBars then Color.CURRENT else
if barColor == 2 then Color.GREEN else
if barColor == 1 then Color.DARK_GREEN else
if barColor ==-2 then Color.RED else
if barColor ==-1 then Color.DARK_RED else Color.GRAY);
#-- Signals
def Bull = if barColor== 2 then Bull[1] + 1 else 0;
def Bear = if barColor==-2 then Bear[1] + 1 else 0;
AddChartBubble(showSignals and Bull==2, low, "B", Color.GREEN, no);
AddChartBubble(showSignals and Bear==2, high, "S", Color.RED);
#-- END of CODE
Ultima modifica da un moderatore:18 febbraio 2024
