Ayuda para crear Indicador SCTR

mateo · Thu, 18 Mar 2021 23:08:03 +0000

Buenas noches Buscando encontré en StochCharts un método de puntuación numérica para clasificar acciones. Parte de una idea de John Murphy y como no tengo formación en la programación y como creo que podría ser útil para todos, les relaciono las condiciones que tendría que tener el indicador por si alguien lo puede programar para PRT si lo cree útil. Condiciones: INDICADORES A LARGO PLAZO (Ponderacion) * Porcentaje por encima o por debajo de la EMA de 200 días (30% de la puntuación) *Tasa de cambio de 125 días (30%) INDICADORES DE MEDIANO PLAZO (Ponderacion) *Porcentaje por encima o por debajo de la EMA de 50 días (15% de la puntuacion) *Tasa de cambio de 20 días (15%) INDICADORES A CORTO PLAZO (Ponderacion) *Pendiente de 3 días de PPO (12,26,9) Histograma dividido entre 3 (5% de la puntuación) *RSI de 14 días (5%) Por ejemplo: Si una acción está un 15% por encima de su EMA de 200 días, este indicador contribuirá con 4,50 puntos a la puntuación total del indicador (15 × 0,30 = 4,50) Si la tasa de cambio de 20 días es -7% (negativa), entonces este indicador contribuirá con 1,05 puntos negativos a la puntuación total del indicador (-7 × 0,15 = -1,05) Para el histograma de PPO, si su pendiente es mayor que +1 (es decir, 45 grados), se aportan 5 puntos (5% de 100). Si la pendiente del histograma de PPO es inferior a -45 grados, se aportan 0 puntos a la puntuación. De lo contrario, se aporta el 5% de ((pendiente + 1) × 50). La pendiente de 3 días del histograma del PPO mide el grado de cambio en el histograma de PPO durante un periodo de 3 días. (Este indicador seguramente será el más complicado, tendremos en cuenta que solo contribuye con 5% de la puntuación.) El RSI de 14 días lo utiliza para medir el impulso a corto plazo. Los niveles altos, por encima de 60, reflejan un impulso alcista mientras que los niveles por debajo de 40 indican un impulso bajista. Espero que lo vean útil. Salud

This topic has 17 replies, 7 voices, and was last updated 1 year ago by christophe11560.

Tagged: John, Murphy, SCTR

Viewing 3 posts - 16 through 18 (of 18 total)

← 1 2

02/12/2022 at 5:24 PM #188162

robertogozzi

¿Has comprobado que la línea 1 es la misma que la original?

robertogozzi

Moderator

Topics: 69

Replies: 17188

Been thanked: 4064 times

09/20/2022 at 10:24 PM #201112

christophe11560

Buenos días a todos,
Noté que había algunos errores para el cálculo a corto plazo. Adjunto el código corregido (líneas 40,42,44,49,51 de mi código)

A màs 😉

christophe

defparam calculateonlastbars = 100
defparam drawonlastbaronly = true
iATR=average[20](tr)

IF TFJour THEN
P1=200
P2=125
P3=50
P4=20
p5=13
elsif TFSemaine then
P1=40
P2=25
P3=10
P4=4
p5=52
endif
//Long terme:
//PPO
F1LT = 100*(close - exponentialaverage[p1](close))/exponentialaverage[p1](close)
//ROC
F2LT=ROC[p2](close)
//Resulat LT
NoteLT=(F1LT+F2LT)*0.6
//Moyen terme:
//PPO
F1MT = 100*(close - exponentialaverage[p3](close))/exponentialaverage[p3](close)
//ROC
F2MT=ROC[p4](close)
//Resulat MT
NoteMT=(F1MT+F2MT)*0.3
//court terme:
//PPO
SlowAvgCT    = exponentialAverage[26](close)
FastAvgCT    = exponentialAverage[12](close)
DifferenceCT = (FastAvgCT - SlowAvgCT)
macdPPO=exponentialAverage[9](DifferenceCT)
PENTEmacdPPO=(macdPPO-macdPPO[3])/3
if PENTEmacdPPO>1 then
F1CT=100*0.05
elsif PENTEmacdPPO<-1 then
F1CT=-100*0.05
else
F1CT=(PENTEmacdPPO+1)*50*0.05
endif
//RSI
RSIct=Rsi[14](close)
if RSIct>50 then
F2CT=100*0.05
elsif RSIct<=50 then
F2CT=-100*0.05
endif
//Resulat CT
NoteCT=(F1CT+F2CT)
// Rapport
RPP = NoteLT+NoteMT+NoteCT
XR = round (RPP)
// Evolution du rapport dans le temps
EvolXR=round(100*(XR-XR[p5])/XR[p5])
if xr > 0 then
drawtext("Note:#XR# ,GL depuis 3 mois:#EvolXR#% ",barindex+decalagetexte,low-iatr*2,Dialog,Bold,14) coloured(0,102,255)
elsif xr =< 0 then
drawtext("Note:#XR# ,GL depuis 3 mois:#EvolXR#% ",barindex+decalagetexte,low-iatr*2,Dialog,Bold,14) coloured(204,0,0)
endif
return

defparam calculateonlastbars = 100

defparam drawonlastbaronly = true

iATR=average[20](tr)

IF TFJour THEN

P1=200

P2=125

P3=50

P4=20

p5=13

elsif TFSemaine then

P1=40

P2=25

P3=10

P4=4

p5=52

endif

//Long terme:

//PPO

F1LT = 100*(close - exponentialaverage[p1](close))/exponentialaverage[p1](close)

//ROC

F2LT=ROC[p2](close)

//Resulat LT

NoteLT=(F1LT+F2LT)*0.6

//Moyen terme:

//PPO

F1MT = 100*(close - exponentialaverage[p3](close))/exponentialaverage[p3](close)

//ROC

F2MT=ROC[p4](close)

//Resulat MT

NoteMT=(F1MT+F2MT)*0.3

//court terme:

//PPO

SlowAvgCT = exponentialAverage[26](close)

FastAvgCT = exponentialAverage[12](close)

DifferenceCT = (FastAvgCT - SlowAvgCT)

macdPPO=exponentialAverage[9](DifferenceCT)

PENTEmacdPPO=(macdPPO-macdPPO[3])/3

if PENTEmacdPPO>1 then

F1CT=100*0.05

elsif PENTEmacdPPO<-1 then

F1CT=-100*0.05

else

F1CT=(PENTEmacdPPO+1)*50*0.05

endif

//RSI

RSIct=Rsi[14](close)

if RSIct>50 then

F2CT=100*0.05

elsif RSIct<=50 then

F2CT=-100*0.05

endif

//Resulat CT

NoteCT=(F1CT+F2CT)

// Rapport

RPP = NoteLT+NoteMT+NoteCT

XR = round (RPP)

// Evolution du rapport dans le temps

EvolXR=round(100*(XR-XR[p5])/XR[p5])

if xr > 0 then

drawtext("Note:#XR# ,GL depuis 3 mois:#EvolXR#% ",barindex+decalagetexte,low-iatr*2,Dialog,Bold,14) coloured(0,102,255)

elsif xr =< 0 then

drawtext("Note:#XR# ,GL depuis 3 mois:#EvolXR#% ",barindex+decalagetexte,low-iatr*2,Dialog,Bold,14) coloured(204,0,0)

endif

return

1 user thanked author for this post.

robertogozzi

christophe11560

Participant

Topics: 28

Replies: 160

Been thanked: 9 times

05/24/2023 at 11:43 AM #215118

christophe11560

Buenos dias,
El principio de puntuación del SCTR debe variar entre 0 y 99.
Los resultados obtenidos con este código pueden ser mayores a 100 o negativos.
Tiene alguna idea de cómo devolver el resultado a un valor entre 0 y 100??

christophe11560

Participant

Topics: 28

Replies: 160

Been thanked: 9 times

Author

Posts

Viewing 3 posts - 16 through 18 (of 18 total)

← 1 2

Find exclusive trading pro-tools on