Predictive average script

[HenrikSyst]

Var inne i Legato och hittade ett bra skript för predictive average. Som är under 1 nedan. Det jag behöver göra är att köra det i ett skript som har annan upplösning än dagsstaplar. Då har jag lagt in extra objekt och jobbar utifrån det. Dessutom vill jag använda det utan att spara det i minnet till nästa dag. Då tänkte jag att jag kör det i dagsupplösningen med 1 dag förskjutet bakåt. Min anpassning är under 2 nedan. Dock blir det inte exakt samma. Det skiljer lite. Väldigt lite.


1) Från LEGATO
{ Definiera medelvärden för Predictive Average }
pred1=find(lt(d,sub(const(d),30)),25,c,1)
pred2=find(lt(d,sub(const(d),60)),50,c,1)
pred3=find(lt(d,sub(const(d),90)),75,c,1)
pred4=find(lt(d,sub(const(d),120)),100,c,1)
pred5=find(lt(d,sub(const(d),150)),125,c,1)

steg=sub(23,mx(mn(advance,22),1))
år2=aref(c,236)
år3=aref(c,476)
år4=aref(c,729)
år5=aref(c,982)
år6=aref(c,1234)
medel=mov(aref(div(add(add(add(add(år2,år3),år4),år5),år6),6),steg:22),5,s)

{ Addera medelvärden och ta genomsnitt - förskjut kurvan med par1 perioder }
pred_tot=aref(div(add(pred1,add(pred2,add(pred3,add(pred4,pred5)))),5),mx(1,$par1):35)


2) Fixat som lokalt per gårdagens stängning
{ Definiera medelvärden för Predictive Average }
pred1=find(lt(cmpref(D,1,A),sub(const(cmpref(D,1,A)),30)),25,cmpref(c,0,A),1)
pred2=find(lt(cmpref(D,1,A),sub(const(cmpref(D,1,A)),60)),50,cmpref(c,0,A),1)
pred3=find(lt(cmpref(D,1,A),sub(const(cmpref(D,1,A)),90)),75,cmpref(c,0,A),1)
pred4=find(lt(cmpref(D,1,A),sub(const(cmpref(D,1,A)),120)),100,cmpref(c,0,A),1)
pred5=find(lt(cmpref(D,1,A),sub(const(cmpref(D,1,A)),150)),125,cmpref(c,0,A),1)

steg=sub(23,mx(mn(advance,22),1))
år2=cmpref(C,237,A)
år3=cmpref(C,477,A)
år4=cmpref(C,730,A)
år5=cmpref(C,983,A)
år6=cmpref(C,1235,A)
medel=mov(aref(div(add(add(add(add(år2,år3),år4),år5),år6),6),steg:22),5,s)

{ Addera medelvärden och ta genomsnitt - förskjut kurvan med par1 perioder }
pred_tot=aref(div(add(pred1,add(pred2,add(pred3,add(pred4,pred5)))),5),mx(1,$par1):36)