Traduction Code pine tradingwiew (Order Block)

This topic has 8 replies, 4 voices, and was last updated 2 days ago by larouedegann.

Viewing 9 posts - 1 through 9 (of 9 total)

01/03/2024 at 3:22 PM #225935

larouedegann

Bonjour,
Veuillez trouver ci-dessous le code pine “ORDER BLOCK DETECTOR” de luxalgo
Est-ce qu’on peut le traduire en PRT ?

merci

/@version=5
indicator(“Order Block Detector [LuxAlgo]”
, overlay = true
, max_boxes_count = 500
, max_labels_count = 500
, max_lines_count = 500)
//——————————————————————————
//Settings
//—————————————————————————–{
length = input.int(5, ‘Volume Pivot Length’
, minval = 1)

bull_ext_last = input.int(3, ‘Bullish OB ’
, minval = 1
, inline = ‘bull’)

bg_bull_css = input.color(color.new(#169400, 80), ”
, inline = ‘bull’)

bull_css = input.color(#169400, ”
, inline = ‘bull’)

bull_avg_css = input.color(color.new(#9598a1, 37), ”
, inline = ‘bull’)

bear_ext_last = input.int(3, ‘Bearish OB’
, minval = 1
, inline = ‘bear’)

bg_bear_css = input.color(color.new(#ff1100, 80), ”
, inline = ‘bear’)

bear_css = input.color(#ff1100, ”
, inline = ‘bear’)

bear_avg_css = input.color(color.new(#9598a1, 37), ”
, inline = ‘bear’)

line_style = input.string(‘⎯⎯⎯’, ‘Average Line Style’
, options = [‘⎯⎯⎯’, ‘—-‘, ‘····’])

line_width = input.int(1, ‘Average Line Width’
, minval = 1)

mitigation = input.string(‘Wick’, ‘Mitigation Methods’
, options = [‘Wick’, ‘Close’])

//—————————————————————————–}
//Functions
//—————————————————————————–{
//Line Style function
get_line_style(style) =>
out = switch style
‘⎯⎯⎯’ => line.style_solid
‘—-‘ => line.style_dashed
‘····’ => line.style_dotted

//Function to get order block coordinates
get_coordinates(condition, top, btm, ob_val)=>
var ob_top = array.new_float(0)
var ob_btm = array.new_float(0)
var ob_avg = array.new_float(0)
var ob_left = array.new_int(0)

float ob = na

//Append coordinates to arrays
if condition
avg = math.avg(top, btm)

array.unshift(ob_top, top)
array.unshift(ob_btm, btm)
array.unshift(ob_avg, avg)
array.unshift(ob_left, time[length])

ob := ob_val

[ob_top, ob_btm, ob_avg, ob_left, ob]

//Function to remove mitigated order blocks from coordinate arrays
remove_mitigated(ob_top, ob_btm, ob_left, ob_avg, target, bull)=>
mitigated = false
target_array = bull ? ob_btm : ob_top

for element in target_array
idx = array.indexof(target_array, element)

if (bull ? target < element : target > element)
mitigated := true

array.remove(ob_top, idx)
array.remove(ob_btm, idx)
array.remove(ob_avg, idx)
array.remove(ob_left, idx)

mitigated

//Function to set order blocks
set_order_blocks(ob_top, ob_btm, ob_left, ob_avg, ext_last, bg_css, border_css, lvl_css)=>
var ob_box = array.new_box(0)
var ob_lvl = array.new_line(0)

//Fill arrays with boxes/lines
if barstate.isfirst
for i = 0 to ext_last-1
array.unshift(ob_box, box.new(na,na,na,na
, xloc = xloc.bar_time
, extend= extend.right
, bgcolor = bg_css
, border_color = color.new(border_css, 70)))

array.unshift(ob_lvl, line.new(na,na,na,na
, xloc = xloc.bar_time
, extend = extend.right
, color = lvl_css
, style = get_line_style(line_style)
, width = line_width))

//Set order blocks
if barstate.islast
if array.size(ob_top) > 0
for i = 0 to math.min(ext_last-1, array.size(ob_top)-1)
get_box = array.get(ob_box, i)
get_lvl = array.get(ob_lvl, i)

box.set_lefttop(get_box, array.get(ob_left, i), array.get(ob_top, i))
box.set_rightbottom(get_box, array.get(ob_left, i), array.get(ob_btm, i))

line.set_xy1(get_lvl, array.get(ob_left, i), array.get(ob_avg, i))
line.set_xy2(get_lvl, array.get(ob_left, i)+1, array.get(ob_avg, i))

//—————————————————————————–}
//Global elements
//—————————————————————————–{
var os = 0
var target_bull = 0.
var target_bear = 0.

n = bar_index
upper = ta.highest(length)
lower = ta.lowest(length)

if mitigation == ‘Close’
target_bull := ta.lowest(close, length)
target_bear := ta.highest(close, length)
else
target_bull := lower
target_bear := upper

os := high[length] > upper ? 0 : low[length] < lower ? 1 : os[1] phv = ta.pivothigh(volume, length, length) //-----------------------------------------------------------------------------} //Get bullish/bearish order blocks coordinates //-----------------------------------------------------------------------------{ [bull_top , bull_btm , bull_avg , bull_left , bull_ob] = get_coordinates(phv and os == 1, hl2[length], low[length], low[length]) [bear_top , bear_btm , bear_avg , bear_left , bear_ob] = get_coordinates(phv and os == 0, high[length], hl2[length], high[length]) //-----------------------------------------------------------------------------} //Remove mitigated order blocks //-----------------------------------------------------------------------------{ mitigated_bull = remove_mitigated(bull_top , bull_btm , bull_left , bull_avg , target_bull , true) mitigated_bear = remove_mitigated(bear_top , bear_btm , bear_left , bear_avg , target_bear , false) //-----------------------------------------------------------------------------} //Display order blocks //-----------------------------------------------------------------------------{ //Set bullish order blocks set_order_blocks(bull_top , bull_btm , bull_left , bull_avg , bull_ext_last , bg_bull_css , bull_css , bull_avg_css) //Set bearish order blocks set_order_blocks(bear_top , bear_btm , bear_left , bear_avg , bear_ext_last , bg_bear_css , bear_css , bear_avg_css) //Show detected order blocks plot(bull_ob, 'Bull OB', bull_css, 2, plot.style_linebr , offset = -length , display = display.none) plot(bear_ob, 'Bear OB', bear_css, 2, plot.style_linebr , offset = -length , display = display.none) //-----------------------------------------------------------------------------} //Alerts //-----------------------------------------------------------------------------{ alertcondition(bull_ob, 'Bullish OB Formed', 'Bullish order block detected') alertcondition(bear_ob, 'Bearish OB Formed', 'bearish order block detected') alertcondition(mitigated_bull, 'Bullish OB Mitigated', 'Bullish order block mitigated') alertcondition(mitigated_bear, 'Bearish OB Mitigated', 'bearish order block mitigated') //-----------------------------------------------------------------------------}

larouedegann

Participant

Topics: 60

Replies: 175

Been thanked: 13 times

01/03/2024 at 3:25 PM #225936

larouedegann

/@version=5
indicator("Order Block Detector [LuxAlgo]"
  , overlay = true
  , max_boxes_count = 500
  , max_labels_count = 500
  , max_lines_count = 500)
//------------------------------------------------------------------------------
//Settings
//-----------------------------------------------------------------------------{
length = input.int(5, 'Volume Pivot Length'
  , minval = 1)

bull_ext_last = input.int(3, 'Bullish OB '
  , minval = 1
  , inline = 'bull')

bg_bull_css = input.color(color.new(#169400, 80), ''
  , inline = 'bull')

bull_css = input.color(#169400, ''
  , inline = 'bull')

bull_avg_css = input.color(color.new(#9598a1, 37), ''
  , inline = 'bull')

bear_ext_last = input.int(3, 'Bearish OB'
  , minval = 1
  , inline = 'bear')

bg_bear_css = input.color(color.new(#ff1100, 80), ''
  , inline = 'bear')

bear_css = input.color(#ff1100, ''
  , inline = 'bear')

bear_avg_css = input.color(color.new(#9598a1, 37), ''
  , inline = 'bear')

line_style = input.string('⎯⎯⎯', 'Average Line Style'
  , options = ['⎯⎯⎯', '----', '····'])

line_width = input.int(1, 'Average Line Width'
  , minval = 1)

mitigation = input.string('Wick', 'Mitigation Methods'
  , options = ['Wick', 'Close'])

//-----------------------------------------------------------------------------}
//Functions 
//-----------------------------------------------------------------------------{
//Line Style function
get_line_style(style) =>
    out = switch style
        '⎯⎯⎯'  => line.style_solid
        '----' => line.style_dashed
        '····' => line.style_dotted

//Function to get order block coordinates
get_coordinates(condition, top, btm, ob_val)=>
    var ob_top  = array.new_float(0)
    var ob_btm  = array.new_float(0)
    var ob_avg  = array.new_float(0)
    var ob_left = array.new_int(0)

    float ob = na

    //Append coordinates to arrays
    if condition
        avg = math.avg(top, btm)
        
        array.unshift(ob_top, top)
        array.unshift(ob_btm, btm)
        array.unshift(ob_avg, avg)
        array.unshift(ob_left, time[length])
        
        ob := ob_val
    
    [ob_top, ob_btm, ob_avg, ob_left, ob]

//Function to remove mitigated order blocks from coordinate arrays
remove_mitigated(ob_top, ob_btm, ob_left, ob_avg, target, bull)=>
    mitigated = false
    target_array = bull ? ob_btm : ob_top

    for element in target_array
        idx = array.indexof(target_array, element)

        if (bull ? target < element : target > element)
            mitigated := true

            array.remove(ob_top, idx)
            array.remove(ob_btm, idx)
            array.remove(ob_avg, idx)
            array.remove(ob_left, idx)
    
    mitigated

//Function to set order blocks
set_order_blocks(ob_top, ob_btm, ob_left, ob_avg, ext_last, bg_css, border_css, lvl_css)=>
    var ob_box = array.new_box(0)
    var ob_lvl = array.new_line(0)

    //Fill arrays with boxes/lines
    if barstate.isfirst
        for i = 0 to ext_last-1
            array.unshift(ob_box, box.new(na,na,na,na
              , xloc = xloc.bar_time
              , extend= extend.right
              , bgcolor = bg_css
              , border_color = color.new(border_css, 70)))

            array.unshift(ob_lvl, line.new(na,na,na,na
              , xloc = xloc.bar_time
              , extend = extend.right
              , color = lvl_css
              , style = get_line_style(line_style)
              , width = line_width))

    //Set order blocks
    if barstate.islast
        if array.size(ob_top) > 0
            for i = 0 to math.min(ext_last-1, array.size(ob_top)-1)
                get_box = array.get(ob_box, i)
                get_lvl = array.get(ob_lvl, i)

                box.set_lefttop(get_box, array.get(ob_left, i), array.get(ob_top, i))
                box.set_rightbottom(get_box, array.get(ob_left, i), array.get(ob_btm, i))

                line.set_xy1(get_lvl, array.get(ob_left, i), array.get(ob_avg, i))
                line.set_xy2(get_lvl, array.get(ob_left, i)+1, array.get(ob_avg, i))


//-----------------------------------------------------------------------------}
//Global elements 
//-----------------------------------------------------------------------------{
var os = 0
var target_bull = 0.
var target_bear = 0.

n = bar_index
upper = ta.highest(length)
lower = ta.lowest(length)

if mitigation == 'Close'
    target_bull := ta.lowest(close, length)
    target_bear := ta.highest(close, length)
else
    target_bull := lower
    target_bear := upper

os := high[length] > upper ? 0 : low[length] < lower ? 1 : os[1]

phv = ta.pivothigh(volume, length, length)

//-----------------------------------------------------------------------------}
//Get bullish/bearish order blocks coordinates 
//-----------------------------------------------------------------------------{
[bull_top
  , bull_btm
  , bull_avg
  , bull_left
  , bull_ob] = get_coordinates(phv and os == 1, hl2[length], low[length], low[length])

[bear_top
  , bear_btm
  , bear_avg
  , bear_left
  , bear_ob] = get_coordinates(phv and os == 0, high[length], hl2[length], high[length])

//-----------------------------------------------------------------------------}
//Remove mitigated order blocks
//-----------------------------------------------------------------------------{
mitigated_bull = remove_mitigated(bull_top
  , bull_btm
  , bull_left
  , bull_avg
  , target_bull
  , true)

mitigated_bear = remove_mitigated(bear_top
  , bear_btm
  , bear_left
  , bear_avg
  , target_bear
  , false)

//-----------------------------------------------------------------------------}
//Display order blocks
//-----------------------------------------------------------------------------{
//Set bullish order blocks
set_order_blocks(bull_top
  , bull_btm
  , bull_left
  , bull_avg
  , bull_ext_last
  , bg_bull_css
  , bull_css
  , bull_avg_css)

//Set bearish order blocks
set_order_blocks(bear_top
  , bear_btm
  , bear_left
  , bear_avg
  , bear_ext_last
  , bg_bear_css
  , bear_css
  , bear_avg_css)
        
//Show detected order blocks
plot(bull_ob, 'Bull OB', bull_css, 2, plot.style_linebr
  , offset = -length
  , display = display.none)

plot(bear_ob, 'Bear OB', bear_css, 2, plot.style_linebr
  , offset = -length
  , display = display.none)

//-----------------------------------------------------------------------------}
//Alerts
//-----------------------------------------------------------------------------{
alertcondition(bull_ob, 'Bullish OB Formed', 'Bullish order block detected')

alertcondition(bear_ob, 'Bearish OB Formed', 'bearish order block detected')

alertcondition(mitigated_bull, 'Bullish OB Mitigated', 'Bullish order block mitigated')

alertcondition(mitigated_bear, 'Bearish OB Mitigated', 'bearish order block mitigated')

//-----------------------------------------------------------------------------}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

/@version=5

indicator("Order Block Detector [LuxAlgo]"

, overlay = true

, max_boxes_count = 500

, max_labels_count = 500

, max_lines_count = 500)

//------------------------------------------------------------------------------

//Settings

//-----------------------------------------------------------------------------{

length = input.int(5, 'Volume Pivot Length'

, minval = 1)

bull_ext_last = input.int(3, 'Bullish OB '

, minval = 1

, inline = 'bull')

bg_bull_css = input.color(color.new(#169400, 80), ''

, inline = 'bull')

bull_css = input.color(#169400, ''

, inline = 'bull')

bull_avg_css = input.color(color.new(#9598a1, 37), ''

, inline = 'bull')

bear_ext_last = input.int(3, 'Bearish OB'

, minval = 1

, inline = 'bear')

bg_bear_css = input.color(color.new(#ff1100, 80), ''

, inline = 'bear')

bear_css = input.color(#ff1100, ''

, inline = 'bear')

bear_avg_css = input.color(color.new(#9598a1, 37), ''

, inline = 'bear')

line_style = input.string('⎯⎯⎯', 'Average Line Style'

, options = ['⎯⎯⎯', '----', '····'])

line_width = input.int(1, 'Average Line Width'

, minval = 1)

mitigation = input.string('Wick', 'Mitigation Methods'

, options = ['Wick', 'Close'])

//-----------------------------------------------------------------------------}

//Functions

//-----------------------------------------------------------------------------{

//Line Style function

get_line_style(style) =>

out = switch style

'⎯⎯⎯' => line.style_solid

'----' => line.style_dashed

'····' => line.style_dotted

//Function to get order block coordinates

get_coordinates(condition, top, btm, ob_val)=>

var ob_top = array.new_float(0)

var ob_btm = array.new_float(0)

var ob_avg = array.new_float(0)

var ob_left = array.new_int(0)

float ob = na

//Append coordinates to arrays

if condition

avg = math.avg(top, btm)

array.unshift(ob_top, top)

array.unshift(ob_btm, btm)

array.unshift(ob_avg, avg)

array.unshift(ob_left, time[length])

ob := ob_val

[ob_top, ob_btm, ob_avg, ob_left, ob]

//Function to remove mitigated order blocks from coordinate arrays

remove_mitigated(ob_top, ob_btm, ob_left, ob_avg, target, bull)=>

mitigated = false

target_array = bull ? ob_btm : ob_top

for element in target_array

idx = array.indexof(target_array, element)

if (bull ? target < element : target > element)

mitigated := true

array.remove(ob_top, idx)

array.remove(ob_btm, idx)

array.remove(ob_avg, idx)

array.remove(ob_left, idx)

mitigated

//Function to set order blocks

set_order_blocks(ob_top, ob_btm, ob_left, ob_avg, ext_last, bg_css, border_css, lvl_css)=>

var ob_box = array.new_box(0)

var ob_lvl = array.new_line(0)

//Fill arrays with boxes/lines

if barstate.isfirst

for i = 0 to ext_last-1

array.unshift(ob_box, box.new(na,na,na,na

, xloc = xloc.bar_time

, extend= extend.right

, bgcolor = bg_css

, border_color = color.new(border_css, 70)))

array.unshift(ob_lvl, line.new(na,na,na,na

, xloc = xloc.bar_time

, extend = extend.right

, color = lvl_css

, style = get_line_style(line_style)

, width = line_width))

//Set order blocks

if barstate.islast

if array.size(ob_top) > 0

for i = 0 to math.min(ext_last-1, array.size(ob_top)-1)

get_box = array.get(ob_box, i)

get_lvl = array.get(ob_lvl, i)

box.set_lefttop(get_box, array.get(ob_left, i), array.get(ob_top, i))

box.set_rightbottom(get_box, array.get(ob_left, i), array.get(ob_btm, i))

line.set_xy1(get_lvl, array.get(ob_left, i), array.get(ob_avg, i))

line.set_xy2(get_lvl, array.get(ob_left, i)+1, array.get(ob_avg, i))

//-----------------------------------------------------------------------------}

//Global elements

//-----------------------------------------------------------------------------{

var os = 0

var target_bull = 0.

var target_bear = 0.

n = bar_index

upper = ta.highest(length)

lower = ta.lowest(length)

if mitigation == 'Close'

target_bull := ta.lowest(close, length)

target_bear := ta.highest(close, length)

else

target_bull := lower

target_bear := upper

os := high[length] > upper ? 0 : low[length] < lower ? 1 : os[1]

phv = ta.pivothigh(volume, length, length)

//-----------------------------------------------------------------------------}

//Get bullish/bearish order blocks coordinates

//-----------------------------------------------------------------------------{

[bull_top

, bull_btm

, bull_avg

, bull_left

, bull_ob] = get_coordinates(phv and os == 1, hl2[length], low[length], low[length])

[bear_top

, bear_btm

, bear_avg

, bear_left

, bear_ob] = get_coordinates(phv and os == 0, high[length], hl2[length], high[length])

//-----------------------------------------------------------------------------}

//Remove mitigated order blocks

//-----------------------------------------------------------------------------{

mitigated_bull = remove_mitigated(bull_top

, bull_btm

, bull_left

, bull_avg

, target_bull

, true)

mitigated_bear = remove_mitigated(bear_top

, bear_btm

, bear_left

, bear_avg

, target_bear

, false)

//-----------------------------------------------------------------------------}

//Display order blocks

//-----------------------------------------------------------------------------{

//Set bullish order blocks

set_order_blocks(bull_top

, bull_btm

, bull_left

, bull_avg

, bull_ext_last

, bg_bull_css

, bull_css

, bull_avg_css)

//Set bearish order blocks

set_order_blocks(bear_top

, bear_btm

, bear_left

, bear_avg

, bear_ext_last

, bg_bear_css

, bear_css

, bear_avg_css)

//Show detected order blocks

plot(bull_ob, 'Bull OB', bull_css, 2, plot.style_linebr

, offset = -length

, display = display.none)

plot(bear_ob, 'Bear OB', bear_css, 2, plot.style_linebr

, offset = -length

, display = display.none)

//-----------------------------------------------------------------------------}

//Alerts

//-----------------------------------------------------------------------------{

alertcondition(bull_ob, 'Bullish OB Formed', 'Bullish order block detected')

alertcondition(bear_ob, 'Bearish OB Formed', 'bearish order block detected')

alertcondition(mitigated_bull, 'Bullish OB Mitigated', 'Bullish order block mitigated')

alertcondition(mitigated_bear, 'Bearish OB Mitigated', 'bearish order block mitigated')

//-----------------------------------------------------------------------------}

larouedegann

Participant

Topics: 60

Replies: 175

Been thanked: 13 times

01/06/2024 at 8:03 PM #226064

larouedegann

Personne pour une traduction code pine ?

larouedegann

Participant

Topics: 60

Replies: 175

Been thanked: 13 times

01/12/2024 at 10:23 AM #226272

yas

can someone convert the above code into pro real time please

yas

Participant

Topics: 8

Replies: 19

Been thanked: 0 times

03/16/2024 at 6:36 PM #229903

larouedegann

Toujours personne ?

larouedegann

Participant

Topics: 60

Replies: 175

Been thanked: 13 times

03/19/2024 at 5:31 PM #230056

paulPRT

Bonjour,

As tu essayé de le traduire en utilisant chat gpt ?

paulPRT

Participant

Topics: 4

Replies: 3

Been thanked: 0 times

03/19/2024 at 6:06 PM #230064

yas

i used the Chat gpt to convert but its got error on line 1 if someone can tell please here is the code for the above

//Settings
length = 5
bull_ext_last = 3
bg_bull_css = RGB(22, 148, 0, 80)
bull_css = RGB(22, 148, 0)
bull_avg_css = RGB(149, 152, 161, 37)
bear_ext_last = 3
bg_bear_css = RGB(255, 17, 0, 80)
bear_css = RGB(255, 17, 0)
bear_avg_css = RGB(149, 152, 161, 37)
line_style = 0 // 0 for solid line, 1 for dashed line, 2 for dotted line
line_width = 1
mitigation = 0 // 0 for Wick, 1 for Close

//Functions
get_line_style(style) =>
    out = IIF(style = 0, linestyle.solid, IIF(style = 1, linestyle.dashed, linestyle.dotted))

get_coordinates(condition, top, btm, ob_val)=>
    var ob_top[500]
    var ob_btm[500]
    var ob_avg[500]
    var ob_left[500]
    var ob = 0.0
    
    if condition then
        avg = (top + btm) / 2
        
        ob_top[0] := top
        ob_btm[0] := btm
        ob_avg[0] := avg
        ob_left[0] := time[length]
        
        ob := ob_val
    
    [ob_top, ob_btm, ob_avg, ob_left, ob]

remove_mitigated(ob_top, ob_btm, ob_left, ob_avg, target, bull)=>
    mitigated = FALSE
    target_array = bull ? ob_btm : ob_top
    
    for i = 0 to ArraySize(target_array) - 1
        if (bull ? target < target_array[i] : target > target_array[i]) then
            mitigated := TRUE
            
            ArrayDelete(ob_top, i)
            ArrayDelete(ob_btm, i)
            ArrayDelete(ob_avg, i)
            ArrayDelete(ob_left, i)
    
    mitigated

set_order_blocks(ob_top, ob_btm, ob_left, ob_avg, ext_last, bg_css, border_css, lvl_css)=>
    var ob_box[500]
    var ob_lvl[500]
    
    if barindex = 1 then
        for i = 0 to ext_last - 1
            ob_box[i] := CreateBox(na, na, na, na
              , xloc = xloc.bar_time
              , extend = extend.right
              , bgcolor = bg_css
              , border_color = color.new(border_css, 70))
 
            ob_lvl[i] := CreateLine(na, na, na, na
              , xloc = xloc.bar_time
              , extend = extend.right
              , color = lvl_css
              , style = get_line_style(line_style)
              , width = line_width)
 
    if lastbaronchart then
        for i = 0 to Min(ext_last - 1, ArraySize(ob_top) - 1)
            box.SetLeftTop(ob_box[i], ob_left[i], ob_top[i])
            box.SetRightBottom(ob_box[i], ob_left[i], ob_btm[i])
 
            line.SetXY1(ob_lvl[i], ob_left[i], ob_avg[i])
            line.SetXY2(ob_lvl[i], ob_left[i] + 1, ob_avg[i])

//Global elements
var os = 0
var target_bull = 0.0
var target_bear = 0.0
 
n = barindex
upper = Highest[length]
lower = Lowest[length]
 
if mitigation = 1 then
    target_bull := Lowest[1](close[length])
    target_bear := Highest[1](close[length])
else
    target_bull := lower
    target_bear := upper
 
os := high[length] > upper ? 0 : low[length] < lower ? 1 : os[1]
 
phv = PivotHigh(volume, length, length)

//Get bullish/bearish order blocks coordinates
[bull_top, bull_btm, bull_avg, bull_left, bull_ob] = get_coordinates(phv and os = 1, hl2[length], low[length], low[length])
[bear_top, bear_btm, bear_avg, bear_left, bear_ob] = get_coordinates(phv and os = 0, high[length], hl2[length], high[length])

//Remove mitigated order blocks
mitigated_bull = remove_mitigated(bull_top, bull_btm, bull_left, bull_avg, target_bull, TRUE)
mitigated_bear = remove_mitigated(bear_top, bear_btm, bear_left, bear_avg, target_bear, FALSE)

//Display order blocks
set_order_blocks(bull_top, bull_btm, bull_left, bull_avg, bull_ext_last, bg_bull_css, bull_css, bull_avg_css)
set_order_blocks(bear_top, bear_btm, bear_left, bear_avg, bear_ext_last, bg_bear_css, bear_css, bear_avg_css)

//Alerts
AlertIf(bull_ob, "Bullish OB Formed", "Bullish order block detected")
AlertIf(bear_ob, "Bearish OB Formed", "Bearish order block detected")
AlertIf(mitigated_bull, "Bullish OB Mitigated", "Bullish order block mitigated")
AlertIf(mitigated_bear, "Bearish OB Mitigated", "Bearish order block mitigated")

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

//Settings

length = 5

bull_ext_last = 3

bg_bull_css = RGB(22, 148, 0, 80)

bull_css = RGB(22, 148, 0)

bull_avg_css = RGB(149, 152, 161, 37)

bear_ext_last = 3

bg_bear_css = RGB(255, 17, 0, 80)

bear_css = RGB(255, 17, 0)

bear_avg_css = RGB(149, 152, 161, 37)

line_style = 0 // 0 for solid line, 1 for dashed line, 2 for dotted line

line_width = 1

mitigation = 0 // 0 for Wick, 1 for Close

//Functions

get_line_style(style) =>

out = IIF(style = 0, linestyle.solid, IIF(style = 1, linestyle.dashed, linestyle.dotted))

get_coordinates(condition, top, btm, ob_val)=>

var ob_top[500]

var ob_btm[500]

var ob_avg[500]

var ob_left[500]

var ob = 0.0

if condition then

avg = (top + btm) / 2

ob_top[0] := top

ob_btm[0] := btm

ob_avg[0] := avg

ob_left[0] := time[length]

ob := ob_val

[ob_top, ob_btm, ob_avg, ob_left, ob]

remove_mitigated(ob_top, ob_btm, ob_left, ob_avg, target, bull)=>

mitigated = FALSE

target_array = bull ? ob_btm : ob_top

for i = 0 to ArraySize(target_array) - 1

if (bull ? target < target_array[i] : target > target_array[i]) then

mitigated := TRUE

ArrayDelete(ob_top, i)

ArrayDelete(ob_btm, i)

ArrayDelete(ob_avg, i)

ArrayDelete(ob_left, i)

mitigated

set_order_blocks(ob_top, ob_btm, ob_left, ob_avg, ext_last, bg_css, border_css, lvl_css)=>

var ob_box[500]

var ob_lvl[500]

if barindex = 1 then

for i = 0 to ext_last - 1

ob_box[i] := CreateBox(na, na, na, na

, xloc = xloc.bar_time

, extend = extend.right

, bgcolor = bg_css

, border_color = color.new(border_css, 70))

ob_lvl[i] := CreateLine(na, na, na, na

, xloc = xloc.bar_time

, extend = extend.right

, color = lvl_css

, style = get_line_style(line_style)

, width = line_width)

if lastbaronchart then

for i = 0 to Min(ext_last - 1, ArraySize(ob_top) - 1)

box.SetLeftTop(ob_box[i], ob_left[i], ob_top[i])

box.SetRightBottom(ob_box[i], ob_left[i], ob_btm[i])

line.SetXY1(ob_lvl[i], ob_left[i], ob_avg[i])

line.SetXY2(ob_lvl[i], ob_left[i] + 1, ob_avg[i])

//Global elements

var os = 0

var target_bull = 0.0

var target_bear = 0.0

n = barindex

upper = Highest[length]

lower = Lowest[length]

if mitigation = 1 then

target_bull := Lowest[1](close[length])

target_bear := Highest[1](close[length])

else

target_bull := lower

target_bear := upper

os := high[length] > upper ? 0 : low[length] < lower ? 1 : os[1]

phv = PivotHigh(volume, length, length)

//Get bullish/bearish order blocks coordinates

[bull_top, bull_btm, bull_avg, bull_left, bull_ob] = get_coordinates(phv and os = 1, hl2[length], low[length], low[length])

[bear_top, bear_btm, bear_avg, bear_left, bear_ob] = get_coordinates(phv and os = 0, high[length], hl2[length], high[length])

//Remove mitigated order blocks

mitigated_bull = remove_mitigated(bull_top, bull_btm, bull_left, bull_avg, target_bull, TRUE)

mitigated_bear = remove_mitigated(bear_top, bear_btm, bear_left, bear_avg, target_bear, FALSE)

//Display order blocks

set_order_blocks(bull_top, bull_btm, bull_left, bull_avg, bull_ext_last, bg_bull_css, bull_css, bull_avg_css)

set_order_blocks(bear_top, bear_btm, bear_left, bear_avg, bear_ext_last, bg_bear_css, bear_css, bear_avg_css)

//Alerts

AlertIf(bull_ob, "Bullish OB Formed", "Bullish order block detected")

AlertIf(bear_ob, "Bearish OB Formed", "Bearish order block detected")

AlertIf(mitigated_bull, "Bullish OB Mitigated", "Bullish order block mitigated")

AlertIf(mitigated_bear, "Bearish OB Mitigated", "Bearish order block mitigated")

yas

Participant

Topics: 8

Replies: 19

Been thanked: 0 times

04/29/2024 at 6:30 PM #232052

Iván

Hola Aquí a une approximation.

//-----Settings---------------------------------------------------------//
length = 5 //Volume Pivot Length
bullextlast = 3 //Bullish OB
bearextlast = 3 //Bearish OB
mitigation = 0 //0=Wick 1=Close
//----------------------------------------------------------------------//
//-----Global elements--------------------------------------------------//
n=barindex

upper = highest[length](high)
lower = lowest[length](low)

if mitigation then
targetbull = lowest[length](close)
targetbear = highest[length](close)
else
targetbull = lower
targetbear = upper
endif

if high[length] > upper then
os = 0
elsif low[length] < lower then
os = 1
else
os = os[1]
endif

if volume < volume[length] and highest[length](volume)<volume[length] and volume[length]>highest[length](volume)[length+1] then
$phvol[t+1]=volume[length]
$phvolx[t+1]=barindex[length]
t=t+1
endif
phv = $phvol[t]
//----------------------------------------------------------------------//
//-----Get bullish/bearish order blocks coordinates---------------------//
if isset($phvol[t]) and phv<>phv[1] and os=1 then
$bulltop[m+1] = (high[length]+low[length])/2
$bullbtm[m+1] = low[length]
$bullavg[m+1] = ((high[length]+low[length])/2+low[length])/2
$bullleft[m+1] = barindex-length
$bullob[m+1] = low[length]
m=m+1
endif

if isset($phvol[t]) and phv<>phv[1] and os=0 then
$beartop[r+1] = high[length]
$bearbtm[r+1] = (high[length]+low[length])/2
$bearavg[r+1] = ((high[length]+low[length])/2+high[length])/2
$bearleft[r+1] = barindex-length
$bearob[r+1] = high[length]
r=r+1
endif
//----------------------------------------------------------------------//
//remove_mitigated
if islastbarupdate then
t=0
for i=m downto 0 do
if targetbull > $bullbtm[i] then
$bullishTOP[T+1] = $bulltop[i]
$bullishBOT[T+1] = $bullbtm[i]
$bullishAVG[T+1] = $bullavg[i]
$bullishLEFT[T+1] = $bullleft[i]
t=t+1
drawrectangle($bullishLEFT[t],$bullishTOP[t],barindex,$bullishBOT[t])coloured("green")fillcolor("green",70)
if t >= bullextlast then
break
endif
endif
next
//----------------------------------------------------------------------//
k=0
for j=r downto 0 do
if targetbear < $beartop[j] then
$bearishtop[k+1]=$beartop[j]
$bearishbot[k+1]=$bearbtm[j]
$bearishavg[k+1]=$bearavg[j]
$bearishleft[k+1]=$bearleft[j]
k=k+1
drawrectangle($bearishleft[k],$bearishtop[k],barindex,$bearishbot[k])coloured("red")fillcolor("red",70)
if k >= bearextlast then
break
endif
endif
next
endif
//----------------------------------------------------------------------//
return

//-----Settings---------------------------------------------------------//

length = 5 //Volume Pivot Length

bullextlast = 3 //Bullish OB

bearextlast = 3 //Bearish OB

mitigation = 0 //0=Wick 1=Close

//----------------------------------------------------------------------//

//-----Global elements--------------------------------------------------//

n=barindex

upper = highest[length](high)

lower = lowest[length](low)

if mitigation then

targetbull = lowest[length](close)

targetbear = highest[length](close)

else

targetbull = lower

targetbear = upper

endif

if high[length] > upper then

os = 0

elsif low[length] < lower then

os = 1

else

os = os[1]

endif

if volume < volume[length] and highest[length](volume)<volume[length] and volume[length]>highest[length](volume)[length+1] then

$phvol[t+1]=volume[length]

$phvolx[t+1]=barindex[length]

t=t+1

endif

phv = $phvol[t]

//----------------------------------------------------------------------//

//-----Get bullish/bearish order blocks coordinates---------------------//

if isset($phvol[t]) and phv<>phv[1] and os=1 then

$bulltop[m+1] = (high[length]+low[length])/2

$bullbtm[m+1] = low[length]

$bullavg[m+1] = ((high[length]+low[length])/2+low[length])/2

$bullleft[m+1] = barindex-length

$bullob[m+1] = low[length]

m=m+1

endif

if isset($phvol[t]) and phv<>phv[1] and os=0 then

$beartop[r+1] = high[length]

$bearbtm[r+1] = (high[length]+low[length])/2

$bearavg[r+1] = ((high[length]+low[length])/2+high[length])/2

$bearleft[r+1] = barindex-length

$bearob[r+1] = high[length]

r=r+1

endif

//----------------------------------------------------------------------//

//remove_mitigated

if islastbarupdate then

t=0

for i=m downto 0 do

if targetbull > $bullbtm[i] then

$bullishTOP[T+1] = $bulltop[i]

$bullishBOT[T+1] = $bullbtm[i]

$bullishAVG[T+1] = $bullavg[i]

$bullishLEFT[T+1] = $bullleft[i]

t=t+1

drawrectangle($bullishLEFT[t],$bullishTOP[t],barindex,$bullishBOT[t])coloured("green")fillcolor("green",70)

if t >= bullextlast then

break

endif

//----------------------------------------------------------------------//

k=0

for j=r downto 0 do

if targetbear < $beartop[j] then

$bearishtop[k+1]=$beartop[j]

$bearishbot[k+1]=$bearbtm[j]

$bearishavg[k+1]=$bearavg[j]

$bearishleft[k+1]=$bearleft[j]

k=k+1

drawrectangle($bearishleft[k],$bearishtop[k],barindex,$bearishbot[k])coloured("red")fillcolor("red",70)

if k >= bearextlast then

break

endif

//----------------------------------------------------------------------//

return

Iván

Moderator

Topics: 0

Replies: 332

Been thanked: 87 times

05/03/2024 at 10:49 AM #232251

larouedegann

Merci à toi ivan

larouedegann

Participant

Topics: 60

Replies: 175

Been thanked: 13 times

Author

Posts

Viewing 9 posts - 1 through 9 (of 9 total)

Find exclusive trading pro-tools on