Får tacka Ali för hans upptäckt med Stoch-signalen! Har lagt in den parametern i mina entry-script och rensat ut en del andra funktioner. Resultatet är ganska bra, 5200 kr /kontrakt på förra terminen, mätt enligt samma metod som i förra tråden.
Tänkte att det är lika bra att jag lägger ut de här scripten i en ny tråd så att det är lättare att hitta.
Samma saker gäller här som tidigare, att kolla raderna "exponerad/oexponerad" mot det egna innehavt för tillfället, samt att sätta "tidsignal:=0" vid backtestning.
sl) Forum OMX köp
mp1:=div(sub(h,l),2)
close:=add(l,mp1)
rgln1:=LinReg(close,6)
rgln2:=LinReg(c,80)
rgln3:=LinReg(c,10)
rgln4:=LinReg(close,200)
regupp1:=Lt(HhvBars(rgln1,2),1)
regupp2:=Lt(HhvBars(rgln2,2),1)
regupp3:=Lt(HhvBars(rgln3,2),1)
kortMA1:=Mov(close,2,s)
kortMAupp1:=Lt(HhvBars(kortMA1,2),1)
slowrsi1:=Mov(Mov(Rsi(3),15,e),5,s)
slowrsi2:=Mov(Mov(Rsi(35),15,e),5,s)
stigRSI1:=Lt(HhvBars(slowrsi1,2),1)
stigRSI2:=Lt(HhvBars(slowrsi2,2),1)
exponerad:=Gt(Portfolio(v),0)
oexponerad:=Ge(Portfolio(v),0)
bband:=Add(BolBands(20,2.0,u),0.4)
okband:=Not(Hhv(Gt(h,bband),2))
mt1:=Mult(Sub(market(c),Frac(d)),1440)
mt2:=Ge(mt1,22)
tidnu:=Frac(DATE())
klocka:=Frac(d)
kl10:=0.425
kl1115:=0.46875
inpådagen:=gt(klocka,kl10)
lowerband:=BolBands(20,2.0,l)
spik:=Hhv(Lt(l,Sub(lowerband,0.8)),4)
köpläge1:=And(spik,Lt(slowrsi2,-10))
totalt:=Mult(tidnu,1440)
rest:=Mod(totalt,10)
tidsignal:=Gt(rest,9) {ändra 9 till noll för att se signaler}
i10(
köpläge2=And(And(köpläge1,Lt(klocka,kl1115)),Lt(slowrsi1,-40))
lågRSI=And(And(And(Hhv(Lt(slowrsi2,-30),30),stigRSI1),regupp1),Gt(rgln1,rgln2))
okrsi=And(stigRSI1,And(Lt(slowrsi1,60),Lt(slowrsi2,60)))
köp1=And(regupp2,kortMAupp1)
köp2=And(Or(lågRSI,And(Gt(rgln1,rgln4),And(Gt(Stoch(45),80),regupp3))),köp1)
köp3=And(Or(exponerad,And(okrsi,And(köp2,oexponerad))),tidsignal)
köp4=And(Or(köpläge2,And(And(okband,köp3),inpådagen)),mt2)
)
sl) Forum OMX blanka
mp1:=div(sub(h,l),2)
close:=add(l,mp1)
rgln1:=LinReg(close,6)
rgln2:=LinReg(c,80)
rgln3:=LinReg(c,10)
rgln4:=LinReg(close,200)
regner1:=Lt(LlvBars(rgln1,2),1)
regner2:=Lt(LlvBars(rgln2,2),1)
regner3:=Lt(LlvBars(rgln3,2),1)
kortMA1:=Mov(close,2,s)
kortMAner1:=Lt(LlvBars(kortMA1,2),1)
slowrsi1:=Mov(Mov(Rsi(3),15,e),5,s)
slowrsi2:=Mov(Mov(Rsi(35),15,e),5,s)
fallRSI1:=Lt(LlvBars(slowrsi1,2),1)
fallRSI2:=Lt(LlvBars(slowrsi2,2),1)
exponerad:=Lt(Portfolio(v),0)
oexponerad:=Le(Portfolio(v),0)
bband:=Sub(BolBands(20,2.0,l),0.4)
okband:=Not(Hhv(Lt(l,bband),2))
mt1:=Mult(Sub(market(c),Frac(d)),1440)
mt2:=Ge(mt1,22)
tidnu:=Frac(DATE())
klocka:=Frac(d)
kl10:=0.425
kl1115:=0.46875
inpådagen:=gt(klocka,kl10)
upperband:=BolBands(20,2.0,u)
spik:=Hhv(Gt(h,Add(upperband,0.8)),4)
blankläge1:=And(spik,Gt(slowrsi2,10))
totalt:=Mult(tidnu,1440)
rest:=Mod(totalt,10)
tidsignal:=Gt(rest,9) {ändra 9 till noll för att se signaler}
i10(
regner4=Lt(LlvBars(rgln4,2),1)
blankläge2=And(And(blankläge1,Lt(klocka,kl1115)),Gt(slowrsi1,40))
högRSI=And(And(And(Hhv(Gt(slowrsi2,30),30),fallRSI1),regner1),Lt(rgln1,rgln2))
okrsi=And(fallRSI1,And(Gt(slowrsi1,-60),Gt(slowrsi2,-60)))
sälj1=And(regner2,kortMAner1)
sälj2=And(Or(högRSI,And(Lt(rgln1,rgln4),And(Lt(Stoch(45),20),regner3))),sälj1)
sälj3=And(Or(exponerad,And(okrsi,And(sälj2,oexponerad))),tidsignal)
sälj4=And(Or(blankläge2,And(And(okband,sälj3),inpådagen)),mt2)
)
Tänkte att det är lika bra att jag lägger ut de här scripten i en ny tråd så att det är lättare att hitta.
Samma saker gäller här som tidigare, att kolla raderna "exponerad/oexponerad" mot det egna innehavt för tillfället, samt att sätta "tidsignal:=0" vid backtestning.
sl) Forum OMX köp
mp1:=div(sub(h,l),2)
close:=add(l,mp1)
rgln1:=LinReg(close,6)
rgln2:=LinReg(c,80)
rgln3:=LinReg(c,10)
rgln4:=LinReg(close,200)
regupp1:=Lt(HhvBars(rgln1,2),1)
regupp2:=Lt(HhvBars(rgln2,2),1)
regupp3:=Lt(HhvBars(rgln3,2),1)
kortMA1:=Mov(close,2,s)
kortMAupp1:=Lt(HhvBars(kortMA1,2),1)
slowrsi1:=Mov(Mov(Rsi(3),15,e),5,s)
slowrsi2:=Mov(Mov(Rsi(35),15,e),5,s)
stigRSI1:=Lt(HhvBars(slowrsi1,2),1)
stigRSI2:=Lt(HhvBars(slowrsi2,2),1)
exponerad:=Gt(Portfolio(v),0)
oexponerad:=Ge(Portfolio(v),0)
bband:=Add(BolBands(20,2.0,u),0.4)
okband:=Not(Hhv(Gt(h,bband),2))
mt1:=Mult(Sub(market(c),Frac(d)),1440)
mt2:=Ge(mt1,22)
tidnu:=Frac(DATE())
klocka:=Frac(d)
kl10:=0.425
kl1115:=0.46875
inpådagen:=gt(klocka,kl10)
lowerband:=BolBands(20,2.0,l)
spik:=Hhv(Lt(l,Sub(lowerband,0.8)),4)
köpläge1:=And(spik,Lt(slowrsi2,-10))
totalt:=Mult(tidnu,1440)
rest:=Mod(totalt,10)
tidsignal:=Gt(rest,9) {ändra 9 till noll för att se signaler}
i10(
köpläge2=And(And(köpläge1,Lt(klocka,kl1115)),Lt(slowrsi1,-40))
lågRSI=And(And(And(Hhv(Lt(slowrsi2,-30),30),stigRSI1),regupp1),Gt(rgln1,rgln2))
okrsi=And(stigRSI1,And(Lt(slowrsi1,60),Lt(slowrsi2,60)))
köp1=And(regupp2,kortMAupp1)
köp2=And(Or(lågRSI,And(Gt(rgln1,rgln4),And(Gt(Stoch(45),80),regupp3))),köp1)
köp3=And(Or(exponerad,And(okrsi,And(köp2,oexponerad))),tidsignal)
köp4=And(Or(köpläge2,And(And(okband,köp3),inpådagen)),mt2)
)
sl) Forum OMX blanka
mp1:=div(sub(h,l),2)
close:=add(l,mp1)
rgln1:=LinReg(close,6)
rgln2:=LinReg(c,80)
rgln3:=LinReg(c,10)
rgln4:=LinReg(close,200)
regner1:=Lt(LlvBars(rgln1,2),1)
regner2:=Lt(LlvBars(rgln2,2),1)
regner3:=Lt(LlvBars(rgln3,2),1)
kortMA1:=Mov(close,2,s)
kortMAner1:=Lt(LlvBars(kortMA1,2),1)
slowrsi1:=Mov(Mov(Rsi(3),15,e),5,s)
slowrsi2:=Mov(Mov(Rsi(35),15,e),5,s)
fallRSI1:=Lt(LlvBars(slowrsi1,2),1)
fallRSI2:=Lt(LlvBars(slowrsi2,2),1)
exponerad:=Lt(Portfolio(v),0)
oexponerad:=Le(Portfolio(v),0)
bband:=Sub(BolBands(20,2.0,l),0.4)
okband:=Not(Hhv(Lt(l,bband),2))
mt1:=Mult(Sub(market(c),Frac(d)),1440)
mt2:=Ge(mt1,22)
tidnu:=Frac(DATE())
klocka:=Frac(d)
kl10:=0.425
kl1115:=0.46875
inpådagen:=gt(klocka,kl10)
upperband:=BolBands(20,2.0,u)
spik:=Hhv(Gt(h,Add(upperband,0.8)),4)
blankläge1:=And(spik,Gt(slowrsi2,10))
totalt:=Mult(tidnu,1440)
rest:=Mod(totalt,10)
tidsignal:=Gt(rest,9) {ändra 9 till noll för att se signaler}
i10(
regner4=Lt(LlvBars(rgln4,2),1)
blankläge2=And(And(blankläge1,Lt(klocka,kl1115)),Gt(slowrsi1,40))
högRSI=And(And(And(Hhv(Gt(slowrsi2,30),30),fallRSI1),regner1),Lt(rgln1,rgln2))
okrsi=And(fallRSI1,And(Gt(slowrsi1,-60),Gt(slowrsi2,-60)))
sälj1=And(regner2,kortMAner1)
sälj2=And(Or(högRSI,And(Lt(rgln1,rgln4),And(Lt(Stoch(45),20),regner3))),sälj1)
sälj3=And(Or(exponerad,And(okrsi,And(sälj2,oexponerad))),tidsignal)
sälj4=And(Or(blankläge2,And(And(okband,sälj3),inpådagen)),mt2)
)
Comment