Freelance service at MQL5.com: New EA for Moj1367

Description

Specification

//@version=6

strategy("Ultimate + 11 Filters Bot [M1 - 0.5 pip TP]", overlay=true, max_boxes_count=500, max_labels_count=500, max_lines_count=500, max_bars_back=5000,

default_qty_type=strategy.percent_of_equity, default_qty_value=100, initial_capital=1000, commission_type=strategy.commission.percent, commission_value=0.04)

// ═══════════════════════════════════════════════════════════

// 1. تنظیمات ورودی (Inputs) - بهینه‌سازی شده برای تایم‌فریم ۱ دقیقه

// ═══════════════════════════════════════════════════════════

st_Periods = input.int(10, "ATR Period", group="A. SuperTrend")

st_Multiplier = input.float(3.0, "ATR Multiplier", step=0.1, group="A. SuperTrend")

st_highlighting = input.bool(true, "Highlighter On/Off", group="A. SuperTrend")

signalSensitivity = input.float(8.0, "Signal Sensitivity", step=0.1, group="B. Main Signals")

showSignals = input.bool(true, "Show LONG/SHORT Labels", group="B. Main Signals")

showTPs = input.bool(true, "Show TP/SL Levels", group="B. Main Signals")

enableTrailing = input.bool(false, "Enable Trailing Stop", group="C. Trailing SL")

trailType = input.string("%", "Type", options=["%", "ATR"], group="C. Trailing SL")

trailPerc = input.float(0.5, "Trail %", step=0.1, group="C. Trailing SL")

trailAtrMult = input.float(2.0, "Trail ATR Mult", step=0.1, group="C. Trailing SL")

showOBs = input.bool(true, "Show Order Blocks", group="D. Order Blocks")

bullOBColor = input.color(#57d71280, "Bullish OB Color", group="D. Order Blocks")

bearOBColor = input.color(#e91e6380, "Bearish OB Color", group="D. Order Blocks")

showSMC = input.bool(true, "Show Market Structure (BOS/CHoCH)", group="E. SMC Structure")

showSwings = input.bool(true, "Show Swing Points (HH/LL)", group="E. SMC Structure")

swingLen = input.int(10, "Swing Length", minval=3, group="E. SMC Structure")

bosConfirm = input.string("Candle Close", "BOS Confirm", options=["Candle Close", "Wicks"], group="E. SMC Structure")

filterGroup = "F. Filter Settings"

enableFilters = input.bool(true, "Enable 11-Filter Confirmation", group=filterGroup)

minFiltersRequired = input.int(3, "Minimum Filters Required", minval=1, maxval=11, group=filterGroup)

useEMA = input.bool(true, "1. EMA Cross", group=filterGroup)

useRSI = input.bool(true, "2. RSI", group=filterGroup)

useVWAP = input.bool(true, "3. VWAP", group=filterGroup)

useMACD = input.bool(true, "4. MACD", group=filterGroup)

useBB = input.bool(true, "5. Bollinger Bands", group=filterGroup)

useStoch = input.bool(true, "6. Stochastic", group=filterGroup)

useATR = input.bool(true, "7. ATR (Volatility Filter)", group=filterGroup)

useSAR = input.bool(true, "8. Parabolic SAR", group=filterGroup)

useOBV = input.bool(true, "9. OBV", group=filterGroup)

useMFI = input.bool(true, "10. MFI", group=filterGroup)

useIchimoku = input.bool(true, "11. Ichimoku", group=filterGroup)

// پارامترهای استاندارد برای M1

emaFast = input.int(9, "EMA Fast", minval=1, group="F1. EMA")

emaSlow = input.int(21, "EMA Slow", minval=1, group="F1. EMA")

rsiLen = input.int(7, "RSI Length", minval=2, group="F2. RSI")

rsiOB = input.int(80, "RSI Overbought", minval=50, maxval=100, group="F2. RSI")

rsiOS = input.int(20, "RSI Oversold", minval=0, maxval=50, group="F2. RSI")

macdFast = input.int(5, "MACD Fast", minval=1, group="F3. MACD")

macdSlow = input.int(13, "MACD Slow", minval=1, group="F3. MACD")

macdSig = input.int(1, "MACD Signal", minval=1, group="F3. MACD")

bbLen = input.int(20, "BB Length", minval=1, group="F4. Bollinger")

bbMult = input.float(2.0, "BB StdDev", step=0.1, group="F4. Bollinger")

stochK = input.int(5, "Stoch %K", minval=1, group="F5. Stochastic")

stochD = input.int(3, "Stoch %D", minval=1, group="F5. Stochastic")

atrLen = input.int(7, "ATR Length", minval=1, group="F6. ATR")

sarStart = input.float(0.02, "SAR Start", step=0.001, group="F7. SAR")

sarInc = input.float(0.02, "SAR Increment", step=0.001, group="F7. SAR")

sarMax = input.float(0.2, "SAR Maximum", step=0.01, group="F7. SAR")

mfiLen = input.int(7, "MFI Length", minval=2, group="F8. MFI")

mfiOB = input.int(80, "MFI Overbought", minval=50, maxval=100, group="F8. MFI")

mfiOS = input.int(20, "MFI Oversold", minval=0, maxval=50, group="F8. MFI")

ichiTenkan = input.int(9, "Tenkan-sen", minval=1, group="F9. Ichimoku")

ichiKijun = input.int(26, "Kijun-sen", minval=1, group="F9. Ichimoku")

ichiSenkouB = input.int(52, "Senkou Span B", minval=1, group="F9. Ichimoku")

colorScheme = input.string("DARK", "Color Scheme", options=["DARK", "LIGHT"], group="G. Style")

bullColor = colorScheme == "DARK" ? #0043e0 : color.rgb(0, 255, 8)

bearColor = colorScheme == "DARK" ? #F2003C : color.rgb(255, 0, 0)

// ═══════════════════════════════════════════════════════════

// 2. سوپرترند و سیگنال اصلی

// ═══════════════════════════════════════════════════════════

st_atr = ta.atr(st_Periods)

var float st_up = na

var float st_dn = na

var int st_trend = 1

st_up := hl2 - (st_Multiplier * st_atr)

st_up1 = nz(st_up[1], st_up)

st_up := close[1] > st_up1 ? math.max(st_up, st_up1) : st_up

st_dn := hl2 + (st_Multiplier * st_atr)

st_dn1 = nz(st_dn[1], st_dn)

st_dn := close[1] < st_dn1 ? math.min(st_dn, st_dn1) : st_dn

st_trend := nz(st_trend[1], st_trend)

st_trend := st_trend == -1 and close > st_dn1 ? 1 : st_trend == 1 and close < st_up1 ? -1 : st_trend

plot(st_trend == 1 ? st_up : na, "ST Up", style=plot.style_linebr, linewidth=2, color=color.new(#00E676, 0))

plot(st_trend == -1 ? st_dn : na, "ST Dn", style=plot.style_linebr, linewidth=2, color=color.new(#FF5252, 0))

fill(plot(ohlc4, display=display.none), plot(st_trend==1?st_up:na), color=st_highlighting and st_trend==1 ? color.new(#00E676,85) : color.new(color.white,100))

fill(plot(ohlc4, display=display.none), plot(st_trend==-1?st_dn:na), color=st_highlighting and st_trend==-1 ? color.new(#FF5252,85) : color.new(color.white,100))

len = 10

mult = signalSensitivity

atrSig = mult * ta.atr(len)

longStop = hl2 - atrSig

longStopPrev = nz(longStop[1], longStop)

longStop := close[1] > longStopPrev ? math.max(longStop, longStopPrev) : longStop

shortStop = hl2 + atrSig

shortStopPrev = nz(shortStop[1], shortStop)

shortStop := close[1] < shortStopPrev ? math.min(shortStop, shortStopPrev) : shortStop

var int dir = 1

dir := nz(dir[1], dir)

dir := dir == -1 and close > shortStopPrev ? 1 : dir == 1 and close < longStopPrev ? -1 : dir

buySignal_raw = dir == 1 and dir[1] == -1

sellSignal_raw = dir == -1 and dir[1] == 1

// ═══════════════════════════════════════════════════════════

// 3. محاسبه ۱۱ اندیکاتور فیلتر

// ═══════════════════════════════════════════════════════════

emaF = ta.ema(close, emaFast)

emaS = ta.ema(close, emaSlow)

rsiVal = ta.rsi(close, rsiLen)

vwapVal = ta.vwap(hlc3)

[macdLine, signalLine, histLine] = ta.macd(close, macdFast, macdSlow, macdSig)

bbBasis = ta.sma(close, bbLen)

bbDev = bbMult * ta.stdev(close, bbLen)

bbUpper = bbBasis + bbDev

bbLower = bbBasis - bbDev

k = ta.sma(ta.stoch(close, high, low, stochK), 3)

d = ta.sma(k, stochD)

atrVal = ta.atr(atrLen)

psar = ta.sar(sarStart, sarInc, sarMax)

obvVal = ta.obv

obvSmooth = ta.sma(obvVal, 20)

mfiVal = ta.mfi(hlc3, mfiLen)

tenkan = (ta.highest(high, ichiTenkan) + ta.lowest(low, ichiTenkan)) / 2

kijun = (ta.highest(high, ichiKijun) + ta.lowest(low, ichiKijun)) / 2

senkouA = (tenkan + kijun) / 2

senkouB = (ta.highest(high, ichiSenkouB) + ta.lowest(low, ichiSenkouB)) / 2

// ═══════════════════════════════════════════════════════════

// 4. ترکیب فیلترها و سیگنال نهایی

// ═══════════════════════════════════════════════════════════

getDir(signalBull, signalBear) =>

if signalBull

else if signalBear

-1

else

emaDir = getDir(ta.crossover(emaF, emaS), ta.crossunder(emaF, emaS))

rsiDir = getDir(rsiVal < rsiOS or ta.crossover(rsiVal, 50), rsiVal > rsiOB or ta.crossunder(rsiVal, 50))

vwapDir = getDir(close > vwapVal, close < vwapVal)

macdDir = getDir(ta.crossover(macdLine, signalLine) or histLine > 0, ta.crossunder(macdLine, signalLine) or histLine < 0)

bbDir = getDir(close < bbLower, close > bbUpper)

stochDir = getDir(ta.crossover(k, d) and k < 20, ta.crossunder(k, d) and k > 80)

atrDir = getDir(atrVal < ta.sma(atrVal, 20), atrVal > ta.sma(atrVal, 20))

sarDir = getDir(close > psar, close < psar)

obvDir = getDir(obvVal > obvSmooth and ta.rising(obvVal, 3), obvVal < obvSmooth and ta.falling(obvVal, 3))

mfiDir = getDir(mfiVal < mfiOS or ta.crossover(mfiVal, 50), mfiVal > mfiOB or ta.crossunder(mfiVal, 50))

ichiDir = getDir(close > math.max(senkouA, senkouB) and tenkan > kijun, close < math.min(senkouA, senkouB) and tenkan < kijun)

filterCount = 0

if useEMA and emaDir != 0 and emaDir == dir