Indicatore Market resilience

Puoi convertire le variabili in array e creare un riquadro nell'ultima barra.

// Market Resilence EUR | Graph Indicator
// 19.01.2019 (Release 1.0)
// Swapping @ www.forexswap.fr
// Sharing ProRealTime knowledge (alt+16) ( use with time frame 5mn )
DefParam DrawOnLastBarOnly = true
// --- property settings
Alpha   = 180 // Transparency text
Offset  = 10  // Offset alphanumeric/rectangle OPR
Level   = 1   // (0=hidden; 1=observable)
Text    = 1   // (0=no text; 1=text)
numshow = 15  // Show last X days
// --- end

starttime = 080500     // 08h00 Pré Market EU (Cac, Dax, Footsie, ect...)
endtime   = 090000     // 09h00 Ouverture session européenne

alpha = max(alpha,0)   // Restricted input variable Max-Min
alpha = min(alpha,255)



if day<>day[1] and dayofweek<>0 then
n=n+1
$hh[n]=0
$ll[n]=0
endif

if time = starttime then
startbar = barindex
$startbar[n]=barindex
endif
if time = endtime then
endbar = barindex
$endbar[n]=barindex
endif

if time >= starttime and time <= endtime then
if high > $hh[n] then
$hh[n] = high
endif
if low < $ll[n] or $ll[n] = 0 then
$ll[n] = low
endif
endif

if islastbarupdate then
for i=n downto n-min(n,numshow)+1 do
hh=$hh[i]
ll=$ll[i]
dif = $hh[i]-$ll[i]
fib38 = $hh[i]
fib0  = $ll[i]
fibobull200 = (fib38-fib0)*5.236+fib0
fibobull162 = (fib38-fib0)*4.236+fib0
fibobull124 = (fib38-fib0)*3.236+fib0
fibobull100 = (fib38-fib0)*1.618+fib38
fibobull76 = (fib38-fib0)+fib38
fibobull62 = (fib38-fib0)*1.618+fib0
fibobear62 = (fib0-fib38)*.618+fib0
fibobear76 = (fib0-fib38)+fib0
fibobear100 = (fib0-fib38)*1.618+fib0
fibobear124 = (fib0-fib38)*2.236+fib0
fibobear162 = (fib0-fib38)*3.236+fib0
fibobear200 = (fib0-fib38)*4.236+fib0

if Text = 1 then

DrawText("OPR #dif#pts",$startbar[i]+6,$hh[i]+(offset*4),SansSerif,Bold,11) coloured(150,150,150,alpha)
DrawText(" HI  #hh# ",$startbar[i]+6,$hh[i]+(offset),SansSerif,Standard,10) coloured(22,111,0,alpha)
DrawSegment($endbar[i],$hh[i],$endbar[i-1],$hh[i]) coloured(0,200,0,alpha)
DrawText("╔═════► ",$startbar[i]+6,$hh[i]+(dif),Dialog,Bold,10) coloured(22,111,0,alpha) // Option OPR - 100% (Glyphe alt+201, alt+205)
DrawText(" LO  #ll# ",$startbar[i]+6,$ll[i]-(offset),SansSerif,Standard,10) coloured(200,20,20,alpha)
DrawSegment($endbar[i],$ll[i],$endbar[i-1],$ll[i]) coloured(200,0,0,alpha)
DrawText("╚═════► ",$startbar[i]+6,$ll[i]-(dif),Dialog,Bold,10) coloured(200,10,10,alpha) // Option OPR - 100% (Glyphe alt+200, alt+205)
endif

if Level = 1 then

DrawSegment($endbar[i]+2,fibobull200,$endbar[i-1]-10,fibobull200) coloured(25,100,0,alpha)
DrawText("Bullish 200%",$endbar[i-1]-2,fibobull200,SansSerif,Bold,11) coloured(25,100,0,alpha)

DrawSegment($endbar[i]+2,fibobull162,$endbar[i-1]-10,fibobull162) coloured(25,100,0,alpha)
DrawText("161.8%",$endbar[i-1]-3,fibobull162,SansSerif,Bold,11) coloured(25,100,0,alpha)

DrawSegment($endbar[i]+2,fibobull124,$endbar[i-1]-10,fibobull124) coloured(25,100,0,alpha)
DrawText("123.6%",$endbar[i-1]-3,fibobull124,SansSerif,Bold,11) coloured(25,100,0,alpha)

DrawSegment($endbar[i]+2,fibobull100,$endbar[i-1]-10,fibobull100) coloured(25,100,0,alpha)
DrawText("100%",$endbar[i-1]-3,fibobull100,SansSerif,Bold,11) coloured(25,100,0,alpha)

DrawSegment($endbar[i]+2,fibobull76,$endbar[i-1]-10,fibobull76) coloured(25,100,0,alpha)
DrawText("76.4%",$endbar[i-1]-3,fibobull76,SansSerif,Bold,11) coloured(25,100,0,alpha)

DrawSegment($endbar[i]+2,fibobull62,$endbar[i-1]-10,fibobull62) coloured(25,100,0,alpha)
DrawText("61.8%",$endbar[i-1]-3,fibobull62,SansSerif,Bold,11) coloured(25,100,0,alpha)


DrawSegment($endbar[i]+2,fibobear62,$endbar[i-1]-10,fibobear62) coloured(200,11,11,alpha)
DrawText("61.8%",$endbar[i-1]-3,fibobear62,SansSerif,Bold,11) coloured(200,10,10,alpha)

DrawText("76.4%",$endbar[i-1]-3,fibobear76,SansSerif,Bold,11) coloured(200,10,10,alpha)
DrawSegment($endbar[i]+2,fibobear76,$endbar[i-1]-10,fibobear76) coloured(200,11,11,alpha)

DrawText("100%",$endbar[i-1]-3,fibobear100,SansSerif,Bold,11) coloured(200,10,10,alpha)
DrawSegment($endbar[i]+2,fibobear100,$endbar[i-1]-10,fibobear100) coloured(200,11,11,alpha)

DrawSegment($endbar[i]+2,fibobear124,$endbar[i-1]-10,fibobear124) coloured(200,11,11,alpha)
DrawText("123.6%",$endbar[i-1]-3,fibobear124,SansSerif,Bold,11) coloured(200,10,10,alpha)

DrawSegment($endbar[i]+2,fibobear162,$endbar[i-1]-10,fibobear162) coloured(200,11,11,alpha)
DrawText("161.8%",$endbar[i-1]-3,fibobear162,SansSerif,Bold,11) coloured(200,10,10,alpha)

DrawSegment($endbar[i]+2,fibobear200,$endbar[i-1]-10,fibobear200) coloured(200,11,11,alpha)
DrawText("Bearish 200%",$endbar[i-1]-2,fibobear200,SansSerif,Bold,11) coloured(200,10,10,alpha)
endif
next
endif

return