Structural Pivot Mapper [JOAT]

f_detect_w_pattern(float src, int lookback, int offset, bool strict) => // Find 5 pivot points forming W shape // E = current, D = first low, C = middle high, B = second low, A = left high // Validation: E > C, D < E, D < C, B <= D (strict), B < A found := a > 0 and a != b and c != 0 and d != 0 and src[e] > src[c] and src[d] < src[e] and src[d] < src[c] and (src <= src[d] or not strict) and src < src[a] [found, valueC, valueB, c, b]

f_detect_m_pattern(float src, int lookback, int offset, bool strict) => // Find 5 pivot points forming M shape // E = current, D = first high, C = middle low, B = second high, A = left low // Validation: E < C, D > E, D > C, B >= D (strict), B > A found := a > 0 and a != b and c != 0 and d != 0 and src[e] < src[c] and src[d] > src[e] and src[d] > src[c] and (src >= src[d] or not strict) and src > src[a] [found, valueC, valueB, c, b]

float pivot_high = ta.pivothigh(high, pivot_left, pivot_right) float pivot_low = ta.pivotlow(low, pivot_left, pivot_right) // Store levels in arrays if not na(pivot_high) and barstate.isconfirmed if array.size(resistance_levels) < max_levels array.push(resistance_levels, pivot_high) array.push(resistance_touches, 1) else if auto_cleanup array.shift(resistance_levels) // Remove oldest array.push(resistance_levels, pivot_high)

float zone_size = atr_value * zone_width if high >= level - zone_size and high <= level + zone_size array.set(resistance_touches, i, array.get(resistance_touches, i) + 1)

f_volume_profile(int bins, int lookback) => float price_range = price_high - price_low float bin_size = price_range / bins // Accumulate volume in 20 price bins for i = 0 to lookback - 1 float bar_price = hlc3 int bin = math.floor((bar_price - price_low) / bin_size) array.set(vp_volumes, bin, current_vol + bar_vol) // Find POC (highest volume bin) float poc_price = array.get(vp_prices, poc_bin) [poc_price, vah, val, vp_prices, vp_volumes]

// Detect break (close above resistance) if not was_broken and close > level and close[1] <= level array.set(level_broken, i, true) array.set(break_bar_index, i, bar_index) // Detect retest (price returns to broken level within 3-20 bars) if was_broken int break_bar = array.get(break_bar_index, i) bool is_retest = bar_index - break_bar >= 3 and bar_index - break_bar <= 20 bool touching_level = math.abs(close - level) < atr_value * 0.5 if is_retest and touching_level label.new(bar_index, level, "RT", color=c_support_strong)

f_detect_head_shoulders(float src, int lookback) => // Find 3 pivot highs: left shoulder, head, right shoulder float ph1 = ta.pivothigh(src, lookback, lookback) float ph2 = ta.pivothigh(src, lookback, lookback)[lookback] float ph3 = ta.pivothigh(src, lookback, lookback)[lookback*2] // Validate: head higher than shoulders, shoulders roughly equal if ph2 > ph1 and ph2 > ph3 and math.abs(ph1 - ph3) < (ph2 - ph1) * 0.3 found := true neckline := math.min(low[lookback], low[lookback*2]) [found, left_shoulder, head, right_shoulder, neckline]