|
per Francesco
k=4
media1=WeightedAverage[k](Close)
media2=WeightedAverage[k*3](Close)
MOM=average[1](media1-media2)/(media1)*100
diffMOM=MOM-MOM[1]
If MOM>MOM[1] then
temp1=diffMOM
else
temp1=0
endif
If MOM<MOM[1] then
temp2=diffMOM
else
temp2=0
endif
sumtemp1=summation[5](temp1)
sumtemp2=summation[5](temp2)
abssumdiff=summation[5](abs(diffMOM))
aa=((sumtemp1[1]-(sumtemp1[1]/5)+temp1)/(abssumdiff[1]-(abssumdiff[1]/5)+abs(diffmom))*100)
bb=((sumtemp2[1]-(sumtemp2[1]/5)+temp2)/(abssumdiff[1]-(abssumdiff[1]/5)+abs(diffmom))*100)
cc=aa-abs(bb)
key=ExponentialAverage[3](cc)
k=((close-lowest[5](low))/(highest[5](high)-lowest[5](low)))*100
d=average[3](k)
xtl=WeightedAverage[3](d)*2-100
Composite=WeightedAverage[2]((2*key+xtl)/3)
l1=50
l2=-50
linea1=80
linea2=-80
linea3=0
A=Composite
B=WeightedAverage[3](Composite)
return linea1 as "80",linea2 as "-80",linea3 as "0",l1 as "50",l2 as "-50",Composite as "Istogramma",A as "Composite", B as "Media"
|
Inviato da: naz43
il 18/01/2026 alle 15:21
Inviato da: Ladissi
il 01/01/2026 alle 23:08
Inviato da: ladissi
il 31/12/2025 alle 17:57
Inviato da: naz43
il 26/12/2025 alle 12:06
Inviato da: ladissi
il 26/12/2025 alle 01:37