Fractal Alligator Script

The download and this preview resolve to the same reviewed file. SHA-256: e68442c95bce26c5e639bab25350fd6a468206234f05b81afc6d7182e23b2d14

-- SPDX-License-Identifier: MIT
-- IQOptionWiki QCS Library
-- IQOW Fractal Alligator v1.0.0
--
-- Combines Williams fractals (five candles, confirmed two candles after the
-- middle one) with the Alligator (SMMA of the median price, jaw 13 shifted
-- 8, teeth 8 shifted 5, lips 5 shifted 3). The Alligator teeth act as the
-- trend reference: a fractal level beyond the teeth means the break comes
-- from the trend side.
--
-- HIGHER: close crosses above the last up-fractal level, and that level is
--         above the Alligator teeth.
-- LOWER:  close crosses below the last down-fractal level, and that level is
--         below the Alligator teeth.
--
-- Markers use the previous completed candle: they appear after the next candle
-- opens and are shifted back one bar onto the candle that qualified.
-- Educational chart tool only. It does not place trades, choose an expiry,
-- predict outcomes, or guarantee results. Test on a Practice balance first.

instrument {
    name = "IQOW Fractal Alligator",
    short_name = "IQOW FR ALLIG",
    overlay = true
}

input_group {
    "1. Alligator",
    jaw_period = input (13, "Jaw period", input.integer, 2, 100),
    jaw_shift = input (8, "Jaw shift", input.integer, 0, 30),
    teeth_period = input (8, "Teeth period", input.integer, 2, 100),
    teeth_shift = input (5, "Teeth shift", input.integer, 0, 30),
    lips_period = input (5, "Lips period", input.integer, 2, 100),
    lips_shift = input (3, "Lips shift", input.integer, 0, 30)
}

input_group {
    "Display and advice",
    alligator_visible = input { default = true, type = input.plot_visibility },
    fractals_visible = input { default = true, type = input.plot_visibility },
    signals_visible = input { default = true, type = input.plot_visibility },
    advice_enabled = input { default = false, name = "Enable platform advice", type = input.boolean }
}

input_group {
    "Colors",
    jaw_color = input { default = "#56CEFF", type = input.color },
    teeth_color = input { default = "#FF6C58", type = input.color },
    lips_color = input { default = "#25E154", type = input.color },
    fractal_color = input { default = rgba(255, 255, 255, 0.6), type = input.color },
    line_width = input { default = 1, type = input.line_width },
    higher_color = input { default = "#25E154", type = input.color },
    lower_color = input { default = "#FF6C58", type = input.color },
    signal_text_color = input { default = "#FFFFFF", type = input.color }
}

-- Alligator lines: SMMA (ssma) of the median price.
jaw_line = ssma (hl2, jaw_period)
teeth_line = ssma (hl2, teeth_period)
lips_line = ssma (hl2, lips_period)

-- Williams fractal: the middle candle of five has the highest high (or lowest
-- low). It is only confirmed two candles later, so the pivot is read at [2]
-- and the level is remembered until the next fractal appears. No future bars.
local pivot_high = get_value (high [2], nil)
local pivot_low = get_value (low [2], nil)

local is_up_fractal =
    pivot_high ~= nil and get_value (high [4], nil) ~= nil and
    get_value (high, 0) <= pivot_high and get_value (high [1], 0) <= pivot_high and
    get_value (high [3], 0) <= pivot_high and get_value (high [4], 0) <= pivot_high

local is_down_fractal =
    pivot_low ~= nil and get_value (low [4], nil) ~= nil and
    get_value (low, 0) >= pivot_low and get_value (low [1], 0) >= pivot_low and
    get_value (low [3], 0) >= pivot_low and get_value (low [4], 0) >= pivot_low

up_fractal_level = iff (is_up_fractal, high [2], up_fractal_level [1])
down_fractal_level = iff (is_down_fractal, low [2], down_fractal_level [1])

-- The Alligator is drawn shifted forward. The value shown under the current
-- candle is the teeth calculated teeth_shift candles ago.
local teeth_now = get_value (teeth_line [teeth_shift], nil)
local up_level = get_value (up_fractal_level, nil)
local down_level = get_value (down_fractal_level, nil)
local close_now = get_value (close, nil)
local close_previous = get_value (close [1], nil)

local data_is_ready =
    teeth_now ~= nil and up_level ~= nil and down_level ~= nil and
    close_now ~= nil and close_previous ~= nil

higher_setup = conditional (
    data_is_ready and
    up_level > teeth_now and
    close_now > up_level and close_previous <= up_level
)

lower_setup = conditional (
    data_is_ready and
    down_level < teeth_now and
    close_now < down_level and close_previous >= down_level
)

-- Confirm only a new setup on the previous completed candle.
confirmed_higher = conditional (
    get_value (higher_setup [1], false) and
    not get_value (higher_setup [2], false)
)

confirmed_lower = conditional (
    get_value (lower_setup [1], false) and
    not get_value (lower_setup [2], false)
)

if alligator_visible then
    plot (jaw_line, "Jaw", jaw_color, line_width, jaw_shift)
    plot (teeth_line, "Teeth", teeth_color, line_width, teeth_shift)
    plot (lips_line, "Lips", lips_color, line_width, lips_shift)
end

if fractals_visible then
    plot (up_fractal_level, "Last up fractal", fractal_color, line_width, 0, style.points)
    plot (down_fractal_level, "Last down fractal", fractal_color, line_width, 0, style.points)
end

if signals_visible then
    plot_shape (
        confirmed_higher,
        "Fractal HIGHER",
        shape_style.triangleup,
        shape_size.small,
        higher_color,
        shape_location.belowbar,
        -1,
        "HIGHER",
        signal_text_color
    )

    plot_shape (
        confirmed_lower,
        "Fractal LOWER",
        shape_style.triangledown,
        shape_size.small,
        lower_color,
        shape_location.abovebar,
        -1,
        "LOWER",
        signal_text_color
    )
end

-- QCS advice is a platform notification state only; it does not place trades.
if advice_enabled and
    get_value (confirmed_higher, false) and
    not get_value (confirmed_lower, false) then
    advise (advice.buy)
elseif advice_enabled and
    get_value (confirmed_lower, false) and
    not get_value (confirmed_higher, false) then
    advise (advice.sell)
else
    advise (advice.neutral)
end