Code: Select all

//PRC_Logistic Oscillators | indicator
//05.03.2021
//Nicolas @ www.prorealcode.com
//Sharing ProRealTime knowledge
//converted from pinescript 
 
// --- settings 
ti         = 0 //0=Awesome Oscillator (AO),1=Rate of Change (ROC),2=Relative Strength Index (RSI),3= Stochastic (STOCH)
length     = 13
lenROC     = 9 //Length : Rate of Change (ROC)
lenRSI     = 14 //Length : Relative Strength Index (RSI)
lenSTO     = 14 //Length : Stochastic (STOCH)
// --- end of settings 
 
source     = customclose
 
if barindex>length then 
 
if ti = 0 then
rr = average[5](medianprice)/average[34](medianprice)-1
elsif ti=1 then 
rr = (source-source[lenROC])/source[lenROC]
elsif ti=2 then 
rr = rsi[lenRSI](source)/100-.5
elsif ti=3 then 
rr = 100*(source-lowest[lensto](low))/(highest[lensto](high)-lowest[lensto](low))/100-.5
endif
 
mapeq = rr*source / highest[length](high)*(1-source/highest[length](high))
lmap = mapeq*1000000
sum = 0
for i = 1 to 30
lmap = (rr * abs(mapeq[i]) * (1 - mapeq[i]))*1000000
sum=sum+lmap
$v[i]=lmap
next
avg = sum/30
 
for j = 1 to 30
if avg>0 then
r=0
g=255
else
r=255
g=0
endif
drawtext("●",barindex,$v[j],dialog,standard,5) coloured(r,g,0,70)
next
 
if avg>0 then 
ar=0
ag=255
else
ar=255
ag=0
endif
endif
 
return 0 coloured(100,100,100,0),lmap coloured(100,100,100,0),avg coloured(ar,ag,0) style(line,3) as "average"