Borsa MAX Borsa

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"