12 månaders medelvärde

Ni som var på Trading Tactics igår och såg Johnny Torssell gå igenom 12-månaders glidande medelvärde kanske har nytta av den här:

månad_nu=monthnumber()
första=not(eqv(aref(månad_nu,1),monthnumber()))
retval(0,0)
retval(0,1)
count=retval(add(getval(1),1),1)
slutkurs=find(första,250,aref(c,1),sub(12,count))
retval(add(getval(0),slutkurs),0)
loop(count,12)
medel=div(getval(0),12)
draw(slutkurs,2,bqbw2)
draw(medel,3,mqbw2)
upptrend=gt(slutkurs,medel)
mult(upptrend,10)


Scriptet letar upp sista Close varje månad (blå kurva) och räknar ut 12-månaders medel (i månadsstapelperspektiv - violett kurva), och testar slutligen om månadsstängningen är över medelvärdet vilket är själva trendindikatorn.

Enkelt att lägga in som kalkyl tex, eller som snabbknapp i Pro.