Dial Main Period

//@version=6
// SPDX-License-Identifier: Apache-2.0
// Copyright 2026 PineForge
// PineForge Owned Strategy: Dial Main Period
// The runtime chart period selects one economically scaled trend horizon.
strategy("PineForge — Dial Main Period", overlay=true,
     initial_capital=100000,
     default_qty_type=strategy.fixed, default_qty_value=2,
     pyramiding=0, commission_type=strategy.commission.percent,
     commission_value=0.05, slippage=1,
     margin_long=100, margin_short=100,
     process_orders_on_close=false, calc_on_order_fills=false)

fiveFast = input.int(43, "5m Fast EMA", minval=2, group="Adaptation")
fiveSlow = input.int(96, "5m Slow EMA", minval=5, group="Adaptation")
fifteenFast = input.int(20, "15m Fast EMA", minval=2, group="Adaptation")
fifteenSlow = input.int(44, "15m Slow EMA", minval=5, group="Adaptation")
hourFast = input.int(11, "60m Fast EMA", minval=2, group="Adaptation")
hourSlow = input.int(24, "60m Slow EMA", minval=5, group="Adaptation")
fourHourFast = input.int(6, "240m Fast EMA", minval=2, group="Adaptation")
fourHourSlow = input.int(14, "240m Slow EMA", minval=5, group="Adaptation")
atrLength = input.int(15, "ATR Length", minval=2, group="Risk")
maximumAtrLoss = input.float(2.4, "Maximum ATR Loss", minval=0.5, step=0.1, group="Risk")

fast5 = ta.ema(close, fiveFast)
slow5 = ta.ema(close, fiveSlow)
fast15 = ta.ema(close, fifteenFast)
slow15 = ta.ema(close, fifteenSlow)
fast60 = ta.ema(close, hourFast)
slow60 = ta.ema(close, hourSlow)
fast240 = ta.ema(close, fourHourFast)
slow240 = ta.ema(close, fourHourSlow)

fastLine = switch timeframe.main_period
    "5" => fast5
    "15" => fast15
    "60" => fast60
    "240" => fast240
    => fast15
slowLine = switch timeframe.main_period
    "5" => slow5
    "15" => slow15
    "60" => slow60
    "240" => slow240
    => slow15
selectedSlowLength = switch timeframe.main_period
    "5" => fiveSlow
    "15" => fifteenSlow
    "60" => hourSlow
    "240" => fourHourSlow
    => fifteenSlow
atrValue = ta.atr(atrLength)
enterLong = ta.crossover(fastLine, slowLine)
trendEnded = ta.crossunder(fastLine, slowLine)
riskExceeded = strategy.position_size > 0 and close < strategy.position_avg_price - atrValue * maximumAtrLoss

if strategy.position_size == 0 and enterLong
    strategy.entry("Dial Long", strategy.long)
else if strategy.position_size > 0 and (trendEnded or riskExceeded)
    strategy.close("Dial Long", comment=riskExceeded ? "ATR risk" : "Period trend")

plot(fastLine, "Adaptive Fast EMA", color=color.blue)
plot(slowLine, "Adaptive Slow EMA", color=color.orange)
plot(selectedSlowLength, "Selected Slow Length", display=display.data_window)