Merhaba bu indikatör icin otomatik al sat da renk değişimlerinde formülünü yazabilirmisiniz acaba
study(title = " RENK ", shorttitle="RENK ", overlay = true)
length1 = input(4, minval=1)
length2 = input(108, minval=1)
src = input(ohlc4, title="Source")
pf = input(false,title="Show Filtered Pivots")
sa = input(false,title="Show Pivot Average")
sh = input(false, title="Show 1 Hour Pivots?")
sf = input(false, title="Show 4 Hour Pivots?")
sd = input(false, title="Show Daily Pivots?")
sh3 = input(false, title="Show R3 & S3 Only On 1 Hour & 4 Hour?")
// Classic Pivot
pivot = (high + low + close ) / 3.0
// Filter Cr
bull= pivot > (pivot + pivot[1]) / 2 + .0025
bear= pivot < (pivot + pivot[1]) / 2 - .0025
// Classic Pivots
r1 = pf and bear ? pivot + (pivot - low) : pf and bull ? pivot + (high - low) : pivot + (pivot - low)
s1 = pf and bull ? pivot - (high - pivot) : pf and bear ? pivot - (high - low) : pivot - (high - pivot)
r2 = pf ? na : pivot + (high - low)
s2 = pf ? na : pivot - (high - low)
r3 = sh3 and r1 + (high - low) ? r1 + (high - low) : na
s3 = sh3 and s1 - (high - low) ? s1 - (high - low) : na
//Pivot Average Calculation
smaP = sma(pivot, 3)
//1 Hour Pivots
htime_pivot = security(tickerid, '60', pivot[1])
htime_pivotAvg = security(tickerid, '60', smaP[1])
htime_R1 = security(tickerid, '60', r1[1])
htime_S1 = security(tickerid, '60', s1[1])
htime_R2 = security(tickerid, '60', r2[1])
htime_S2 = security(tickerid, '60', s2[1])
htime_R3 = security(tickerid, '60', r3[1])
htime_S3 = security(tickerid, '60', s3[1])
plot(sa and sh and htime_pivotAvg ? htime_pivotAvg : na, title="Hourly Pivot Average",style=cross, color=orange,linewidth=1,trackprice=true)
plot(sh and htime_pivot ? htime_pivot : na, title="Hourly Pivot",style=cross, color=fuchsia,linewidth=1,trackprice=true)
plot(sh and htime_R1 ? htime_R1 : na, title="Hourly R1",style=cross, color=#DC143C,linewidth=1,trackprice=true)
plot(sh and htime_S1 ? htime_S1 : na, title="Hourly S1",style=cross, color=lime,linewidth=1,trackprice=true)
plot(sh and htime_R2 ? htime_R2 : na, title="Hourly R2",style=cross, color=maroon,linewidth=1,trackprice=true)
plot(sh and htime_S2 ? htime_S2 : na, title="Hourly S2",style=cross, color=#228B22,linewidth=1,trackprice=true)
plot(sh and htime_R3 ? htime_R3 : na, title="Hourly R3",style=cross, color=#FA8072,linewidth=1,trackprice=true)
plot(sh and htime_S3 ? htime_S3 : na, title="Hourly S3",style=cross, color=#CD5C5C,linewidth=1,trackprice=true)
//4 Hour Pivots
ftime_pivot = security(tickerid, '240', pivot[1])
ftime_pivotAvg = security(tickerid, '240', smaP[1])
ftime_R1 = security(tickerid, '240', r1[1])
ftime_S1 = security(tickerid, '240', s1[1])
ftime_R2 = security(tickerid, '240', r2[1])
ftime_S2 = security(tickerid, '240', s2[1])
ftime_R3 = security(tickerid, '240', r3[1])
ftime_S3 = security(tickerid, '240', s3[1])
plot(sa and sf and ftime_pivotAvg ? ftime_pivotAvg : na, title="4 Hour Pivot Average",style=cross, color=orange,linewidth=1,trackprice=true)
plot(sf and ftime_pivot ? ftime_pivot : na, title="4 Hour Pivot",style=cross, color=fuchsia,linewidth=1,trackprice=true)
plot(sf and ftime_R1 ? ftime_R1 : na, title="4 Hour R1",style=cross, color=#DC143C,linewidth=1,trackprice=true)
plot(sf and ftime_S1 ? ftime_S1 : na, title="4 Hour S1",style=cross, color=lime,linewidth=1,trackprice=true)
plot(sf and ftime_R2 ? ftime_R2 : na, title="4 Hour R2",style=cross, color=maroon,linewidth=1,trackprice=true)
plot(sf and ftime_S2 ? ftime_S2 : na, title="4 Hour S2",style=cross, color=#228B22,linewidth=1,trackprice=true)
plot(sf and ftime_R3 ? ftime_R3 : na, title="4 Hour R3",style=cross, color=#FA8072,linewidth=1,trackprice=true)
//Daily Pivots
dtime_pivot = security(tickerid, 'D', pivot[1])
dtime_pivotAvg = security(tickerid, 'D', smaP[1])
dtime_r1 = security(tickerid, 'D', r1[1])
dtime_s1 = security(tickerid, 'D', s1[1])
dtime_r2 = security(tickerid, 'D', r2[1])
dtime_s2 = security(tickerid, 'D', s2[1])
offs_daily = 0
plot(sa and sd and dtime_pivotAvg ? dtime_pivotAvg : na, title="Daily Pivot Average",style=cross, color=orange,linewidth=1,trackprice=true)
plot(sd and dtime_pivot ? dtime_pivot : na, title="Daily Pivot",style=cross, color=fuchsia,linewidth=1,trackprice=true)
plot(sd and dtime_r1 ? dtime_r1 : na, title="Daily R1",style=cross, color=#DC143C,linewidth=1,trackprice=true)
plot(sd and dtime_s1 ? dtime_s1 : na, title="Daily S1",style=cross, color=lime,linewidth=1,trackprice=true)
plot(sd and dtime_r2 ? dtime_r2 : na, title="Daily R2",style=cross, color=maroon,linewidth=1,trackprice=true)
plot(sd and dtime_s2 ? dtime_s2 : na, title="Daily S2",style=cross, color=#228B22,linewidth=1,trackprice=true)
//-end of pivot code
h2ma=2*wma(src,round(length1/2))
hma=wma(src,length1)
diff=h2ma-hma
sqn=round(sqrt(length1))
h2mab=2*wma(src[1],round(length2/2))
hmab=wma(src[1],length2)
diff1=h2mab-hmab
sqn1=round(sqrt(length2))
hma1=wma(diff,sqn)
hma2=wma(diff1,sqn)
c=hma1>hma2?green:red
d=plot(hma1, style = line,color=c, linewidth = 1, title='HMA1')
e=plot(hma2, style = line,color=c, linewidth = 1, title='HMA2')
fill(d,e,color=c, transp=75, title='cloud')
