Distribution of index screener Up and Down

supertiti · 2021-12-10T10:46:43+00:00

Bonjour, Serait-il possible de faire deux screeners : Up and Down de cet indicateur proposé par Vonasi ? merci de votre aide Bons trades à tous //Distribution of Index //PRT v11 onwards //By Vonasi //Date: 20200509 //p = 14 // Period used in indicator //k = 3 // K% setting for stochastic //d = 9 // Period used for signal line //RSIndex = 1 // Select RSI //Stoch = 0 // Select Stochastic //WilliamsR = 0 // Select Williams%R //ADXindex = 0 // Select ADX //SignalLine = 1 // Turn on/off display of signal line //StartDate = 19950101 // Date to start analysis from. Zero = all data p = max(1,p) k = max(1,k) d = max(1,d) if date >= startdate then once signal = undefined if RSIndex or (not Stoch and not WilliamsR and not ADXindex) then indicator = rsi[p] endif if Stoch then indicator = stochastic[p,k] endif if WilliamsR then indicator = williams[p]+100 endif if ADXindex then indicator = ADX[p] endif if signalline then signal = average[d](indicator) endif rindicator = round(indicator) for a = 1 to 100 if rindicator = a then $perc[a] = $perc[a]+1 maxval = max(maxval,$perc[a]) break endif next if islastbarupdate then for a = 1 to 100 thisperc = round(($perc[a]/maxval)*100) if rindicator = a then drawpoint(barindex+thisperc+5,a,3) coloured(0,0,255) drawtext(“#thisperc#%”,barindex+115,a,sansserif,bold,14) coloured(0,0,128) endif r = 255 g = 0 if thisperc >= 25 then r = 128 g = 0 endif if thisperc >= 50 then r = 0 g = 255 endif if thisperc >= 75 then r = 0 g = 128 endif drawrectangle(barindex+5,a,barindex+thisperc+5,a) coloured(r,g,128) next for a = 1 to 4 if ADXindex then drawtext(“ADX #p# = #rindicator#”,barindex+5,108,sansserif,bold,14) coloured(0,0,128) break endif if WilliamsR then drawtext(“Williams%R #p# = #rindicator#”,barindex+5,108,sansserif,bold,14) coloured(0,0,128) break endif if Stoch then drawtext(“Stochastic #p##k##d# = #rindicator#”,barindex+5,108,sansserif,bold,14) coloured(0,0,128) break endif if RSIndex or (not Stoch and not WilliamsR and not ADXindex) then drawtext(“RSI #p# = #rindicator#”,barindex+5,108,sansserif,bold,14) coloured(0,0,128) break endif next endif endif return 0 coloured(0,0,0,0) as “Line”,108 coloured(0,0,0,0) as “Line”,indicator as “Indicator”,signal style(dottedline) as “Signal”

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

Author

Posts
12/10/2021 at 11:46 AM #183113 quote

supertiti
Participant

Master

Bonjour,

Serait-il possible de faire deux screeners : Up and Down de cet indicateur proposé par Vonasi ?

merci de votre aide

Bons trades à tous

//Distribution of Index

//PRT v11 onwards

//By Vonasi

//Date: 20200509

//p = 14                // Period used in indicator

//k = 3                 // K% setting for stochastic

//d = 9                 // Period used for signal line

//RSIndex = 1           // Select RSI

//Stoch = 0             // Select Stochastic

//WilliamsR = 0         // Select Williams%R

//ADXindex = 0          // Select ADX

//SignalLine = 1        // Turn on/off display of signal line

//StartDate = 19950101  // Date to start analysis from. Zero = all data

p = max(1,p)

k = max(1,k)

d = max(1,d)

if date >= startdate then

once signal = undefined

if RSIndex or (not Stoch and not WilliamsR and not ADXindex) then

indicator = rsi[p]

endif

if Stoch then

indicator = stochastic[p,k]

endif

if WilliamsR then

indicator = williams[p]+100

endif

if ADXindex then

indicator = ADX[p]

endif

if signalline then

signal = average[d](indicator)

endif

rindicator = round(indicator)

for a = 1 to 100

if rindicator = a then

$perc[a] = $perc[a]+1

maxval = max(maxval,$perc[a])

break

endif

next

if islastbarupdate then

for a = 1 to 100

thisperc = round(($perc[a]/maxval)*100)

if rindicator = a then

drawpoint(barindex+thisperc+5,a,3) coloured(0,0,255)

drawtext(“#thisperc#%”,barindex+115,a,sansserif,bold,14) coloured(0,0,128)

endif

r = 255

g = 0

if thisperc >= 25 then

r = 128

g = 0

endif

if thisperc >= 50 then

r = 0

g = 255

endif

if thisperc >= 75 then

r = 0

g = 128

endif

drawrectangle(barindex+5,a,barindex+thisperc+5,a) coloured(r,g,128)

next

for a = 1 to 4

if ADXindex then

drawtext(“ADX #p# = #rindicator#”,barindex+5,108,sansserif,bold,14) coloured(0,0,128)

break

endif

if WilliamsR then

drawtext(“Williams%R #p# = #rindicator#”,barindex+5,108,sansserif,bold,14) coloured(0,0,128)

break

endif

if Stoch then

drawtext(“Stochastic #p##k##d# = #rindicator#”,barindex+5,108,sansserif,bold,14) coloured(0,0,128)

break

endif

if RSIndex or (not Stoch and not WilliamsR and not ADXindex) then

drawtext(“RSI #p# = #rindicator#”,barindex+5,108,sansserif,bold,14) coloured(0,0,128)

break

endif

next

endif

endif

return 0 coloured(0,0,0,0) as “Line”,108 coloured(0,0,0,0) as “Line”,indicator as “Indicator”,signal style(dottedline) as “Signal”

12/10/2021 at 7:23 PM #183118 quote

supertiti
Participant

Master

Désolé je me suis trompé de rubrique, c’est pour les screeners
Author

Posts

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

You must be logged in to reply to this topic.

New

Stuck on this ProBuilder code?

Describe what this topic is trying to build, in plain English, and ProRealAI writes the ProRealTime™ indicator, screener or system for you.

Available in 7 languages

Try ProRealAI

Distribution of index screener Up and Down

ProScreener : Scanners de Marché & Détection

New Reply

Author

supertiti @supertiti Participant

Summary

This topic contains 1 reply,
has 1 voice, and was last updated by supertiti
4 years, 9 months ago.

Topic Details

Forum:	ProScreener : Scanners de Marché & Détection
Language:	French
Started:	12/10/2021
Status:	Active
Attachments:	No files