ind prorealtime

////////bdm volume
//p=4//////pp=15

calc=MoneyFlow[p](close)* Range[p]


///////////////////////////////////////////////
a=lowest[p](calc+low)
b=average[pp](a)
c=b/b[1]-1
d=highest[p](calc+high)
e=average[pp](d)
f=e/e[1]-1
return c*10000 coloured(255,0,0)as"bdmlowvol",f*10000 coloured(0,255,0)as "bdmhighvol",30as"su",-30as"giu"
///////////////////////////////////////////
///////commodity gilmore index
///////a=19  oppure 25
/////////b=18   oppure  28
////////////c=38  oppure  26

return (diplus[a]+diplus[b])-diplus[c]coloured(0,0,255)as"gilmorecorto",25COLOURED(255,0,0)as"25short",15COLOURED(0,255,0)as"15long",(diplus[a*2]+diplus[b*2])-diplus[c*2]coloured(0,0,100)as"gilmorelungo",20COLOURED(0,0,255)as"Centro"
///////////////////////////////////////////////
////stoc   sestetto
///p=10

piuAlto = HIGHEST[p](HIGH)
piuBasso = LOWEST[p](LOW)



oscillatore = (CLOSE - piuBasso) / (piuAlto - piuBasso) * 100





RETURN oscillatore  coloured(51,51,255)as"sestetto",45coloured(255,0,0)as" short",55coloured(0,255,0)as" long",10coloured(255,0,0)as"se ritesta buy",90coloured(0,255,0)as"se ritesta short",triangularaverage[round(p*0.618)](oscillatore)coloured(255,0,0)as"trigg"

///////////////////////////////////////

///////stocsestettoevolume
///p=10
piuAlto = HIGHEST[p](HIGH)
piuBasso = LOWEST[p](LOW)
oscillatore = (CLOSE - piuBasso) / (piuAlto - piuBasso) * 100
///////////////////////////////////////////
hilo= volume/range
opeclo= close-open
a= (exponentialaverage[2](hilo*opeclo))
piuAlto = HIGHEST[p](a)
piuBasso = LOWEST[p](a)
verde = (a- piuBasso) / (piuAlto - piuBasso) * 100





RETURN oscillatore COLOURED(51,50,250) as "sestettoblu",45coloured(255,0,0)as" 45short",55coloured(0,255,0)as"55 long",10coloured(255,0,0)as"10se ritesta buy",90coloured(0,255,0)as"90se ritesta short",verde  COLOURED(0,102,0) as "verdesestettovolumeaggiungicolore"
///////////////////////////////////////
////stop  volatilita
//////moltiplier=da2,5  a4

rang6= (highest[6]((high)[1]))-(lowest[6]((low)[1]))
rang7= ((rang6+range)/7)*moltiplier
stopshort=(lowest[7](close))+rang7
stoplong=(highest[7](close))-rang7
///////////////////////////////////////////////////////////


return ExponentialAverage[7](stopshort)coloured(255,0,0) as"stopshortsemplice",ExponentialAverage[7](stoplong)coloured(0,255,0) as"stoplongsemplice"
//////////////////////////////////

///////volume.system.force.index
return exponentialaverage[13](forceindex(close)),0
////////////////////////
/////////volume a moneyflow

a=MoneyFlow[p](close)*average[p](volume/range)
aa=MoneyFlow[pp](close)*average[pp](volume/range)

return a coloured(250,170,0)as "moneicorto",aa coloured(100,200,150) as"moneilungo",0 as"zero"
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////volume.bost.rep.
/////////co=4
/////bostian
a=close+close-high-low
b=high-low
intens=a/b
bost=summation[co](intens)*volume
bostsu=0
if bost >0 then
    bostsu=bost
else
    bostsu=0
endif
bostgiu=0
if bost <0 then
    bostgiu=bost
else
    bostgiu=0
endif
lineabostsu=std [co*2] ( bostsu)
lineabostgiu=std [co*2] ( bostgiu)*-1
///////////////////////////////////////bostian///////////////
if bostsu>0 and bostsu>lineabostsu then
    signal=2
endif
if bostsu>0 and bostsu
    signal=1
endif
if bostgiu<0 and bostgiu
    signal=-2
endif
if bostgiu<0 and bostgiu>lineabostgiu then
    signal=-1
endif
////////////////////////////////////////////////////bostiansignal///////////////
///repulse/////////
rep=repulse[co](close)
repsu=0
if rep >0 then
    repsu=rep
else
    repsu=0
endif
repgiu=0
if rep  <0 then
    repgiu=rep
else
    repgiu=0
endif
linearepsu=std [co*2] (repsu)
linearepgiu=std [co*2] ( repgiu)*-1
///////////////////////////////////////////////////////repulse repnal/////
if repsu>0 and bostsu>linearepsu then
    repnal=2
endif
if repsu>0 and bostsu
    repnal=1
endif
if repgiu<0 and bostgiu
    repnal=-2
endif
if repgiu<0 and bostgiu>linearepgiu then
    repnal=-1
endif
/////////////////////////////////repulse repnal
////volume a punti
hilo= volume/range
opeclo= close-open
a= (exponentialaverage[co](hilo*opeclo))
baseper=(signal+repnal)
///////////////////////

repulsignal=(exponentialaverage[co*2](repulse[co](close)))*2
if repulsignal>6 then
    repulsignal=6
endif
if repulsignal<-6 then
    repulsignal=-6
endif
return baseper COLOURED(51,0,0) as "lineamarrone.repulse.bostian",0.5COLOURED(0,255,0)as"limitsopra0",-0.5COLOURED(255,0,0)as"limitsotto0",repulsignal coloured(255,0,0)as"linearossa media doppia del repulse",0coloured(0,0,255)as"equilibrio",4coloured(51,0,0)as"4",-4coloured(51,0,0)as"-4"
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////stop.trendlinea
c1=high>high[1]
c2=high>high[2]
c3=high>high[3]
c4=high>high[4]
var1=low
var2=low
var3=low
var4=low
if c1 and c2 and c3 and c4 then
    trendlong=1
    trendshort=0
endif
if var1 and var2 and var3 and var4 then
    trendlong=0
    trendshort=-1
endif
if trendshort=-1 then
    if low
        linea=low
    else
        linea=linea[1]
    endif
endif
if trendlong=1 then
    if high>linea then
        linea=high
    else
        linea=linea[1]
    endif
endif

return linea
//////////////////////////////////////////////////////////////////////////

///////////////Trend Index
////y=20
//ONCE y = 20 // This value is also the horizon of time over which the prediction is made.  The larger y is, the larger the timeperiod over which we can interpret the indicatorIf there is a low trend index, there are too many reversals, or the price is stagnanting, so the price is not trendy.

Useful Applications :
High values of the trend index can be used to validate signals given by particular indicaters which are only valid in treding periods and not in trading ranges..
ONCE upTrend = 0
ONCE downTrend = 0
ONCE countHighs = 0
downTrendLength = 0
upTrendLength = 0
countUpTrends = 0 // Number of consecutive increasing bars
countDownTrends = 0 // Number of consecutive decreasing bars
countLows = 0
IF BarIndex > y+4 THEN
    FOR x=0 TO y
        IF Close[x]>Max(High[x+1],Min(High[x+2],Min(High[x+3],High[x+4]))) THEN
            countHighs = countHighs + 1
            upTrend = 1
        ELSE
            IF upTrend THEN
                upTrendLength = countHighs + upTrendLength
                countUpTrends = countUpTrends + 1
                countHighs = 0
                upTrend = 0
            ENDIF
        ENDIF
       
        IF Close[x]
            countLows = countLows + 1
            downTrend = 1
        ELSE
            IF downTrend THEN
                downTrendLength = countLows + downTrendLength
                countDownTrends = countDownTrends + 1
                countLows = 0
                downTrend = 0
            ENDIF
        ENDIF
    NEXT
   
    upTrendAvgLength = upTrendLength/countUpTrends // Average length of bullish trends
    downTrendAvgLength = downTrendLength/countDownTrends // Average length of bearish trends
    trendsAvgLength = (upTrendAvgLength+downTrendAvgLength)/2 // Average length of trending periods.
    trendingIndex = 1-(countDownTrends + countUpTrends)/y // Number of bullish and bearish trends.  The less there are in relation to the number of bars, the more trendy the value is aand the higher TrendingBars will be.
ELSE
    trendingIndex = undefined
    trendsAvgLength = undefined
ENDIF
IF BarIndex > 2*y THEN
    trendingIndexMMy = Average[y](trendingIndex)
ELSE
    trendingIndexMMy = undefined
ENDIF
IF trendsAvgLength THEN
ENDIF
RETURN trendingIndex COLOURED(255,0,0) AS "Trending index", trendingIndexMMy COLOURED(255,128,0) AS "Trending index MA(y)" //, trendsAvgLength AS "Trends average length"
//////////////////////////////////////////////////

/////////TrailingStop
//////p=10
// ---- script begin ----
//
// TrailingStop%
// JWK, 20091016

perc = p // input Trailing Loss % - median term: 5 - 10
longloss = high*perc/100
shortloss = low*perc/100

If high < shorttrail[1] and direction[1] = -1 then // staying short
    shorttrail = Min(shorttrail[1],low + shortloss)
    longtrail = Min(longtrail[1],high - longloss)
    plot = shorttrail
    direction = -1
elsif high > shorttrail[1] and direction[1] = -1 then // short stopped out, going long
    shorttrail = Max(shorttrail[1], low + shortloss)
    longtrail = high - longloss
    plot = longtrail
    direction = 1
elsif low > longtrail[1] and direction[1] = 1 then // staying long
    longtrail = Max(longtrail[1],high - longloss)
    shorttrail = Max(shorttrail[1], low + shortloss)
    plot = longtrail
    direction = 1
elsif low < longtrail[1] and direction[1] = 1 then // long stopped out, going short
    longtrail = Min(longtrail[1],high - longloss)
    shorttrail = low + shortloss
    plot = shorttrail
    direction = -1
else
    shorttrail = low + shortloss
    longtrail = high - longloss
    plot = longtrail
    direction = 1
endif

return plot AS "TrailStop%"

// ---- script end ----////////////////////////////////////////

////////////volumi.pos.e.neg.
////m=5
volpos=0
volneg=0
for n=m downto 1
   
    if close[n-1]=>open[n-1] then
        volpos=volpos+volume[n-1]
    elsif close[n-1]
        volneg=volneg-volume[n-1]
    endif
next
return volpos coloured(0,255,0) as "VOLUMI POSITIVI", volneg coloured(255,0,0) AS "VOLUMI NEGATIVI",0 as"zero",tema[m](volpos+volneg)as " trigger"
///////////////////////////////////////////////////////////////

////////////volume per punticum
a=volume/range
b=abs(open-close)
indi= a*b
if open
    volpi=indi*1
else
    volpi=indi*-1
endif

return cumsum(volpi)
////////////////////////////////////////////////////////////////////////////////////