Scriptbibliotek för avlusade script!

Tjena allihop!
Här tänkte jag att vi kan presentera våra fungerande och provad script, så slipper man leta sig tokig på forumet efter en version av nåt som verkligen funkar! Inget "utvecklingsarbete" här alltså! Det jag använder idag till EricB-modellen är alltså följande:
Tack Lasse för det rättade kontrollscriptet! Det hade ju inte funkat så bra "live" annars...

Varsågoda att fylla på med fler script!

Köpscript:

sl) EricB köp

ag11:=Stoch(5)
ag12:=Gt(ag11,75)
ag21:=Lt(HhvBars(Mov(C,30,s),2),1)
ag31:=Mfi(14)
ag32:=Gt(ag31,65)
ag33:=Hhv(ag32,1)
ag14:=Lt(HhvBars(Mov(C,4,s),2),1)
ag15:=And(ag12,And(ag21,ag33))
ag16:=And(ag14,ag15)
ag17:=BolBands(20,2.0,x)
ag18:=Hhv(ag17,5)
köpsignal:=And(ag16,ag18)
mt1:=mult(sub(market(c),frac(d)),1440)
mt2:=NOT(le(mt1,27))
köp:=AND(köpsignal,mt2)
i10(köp)


Och som säljscript använder jag ju stopplossen som "kniper" åt stoppgränsen när man nåt 1.8% vinst. Funkar kanonfint! Dessutom är det elastiskt så att man slipper falska signaler när nån stor aktör drar iväg en jättepost på en gång.

sl) Elastisk stoploss

level1:=0.985
{1.5% stopp vid vinst}
level2:=0.975
{2.5% stopp vid köp}
bakåt1:=150
lastbuy:=LastTrade(B,P)
buyplus01:=And(gt(h,mult(lastbuy,1.018)),ge(d,LastTrade(b,d)))
{flytnivå ändras vid 1.8% vinst}
isbuyplus:=Hhv(buyplus01,bakåt1)
flytnivå:=if(isbuyplus,level1,level2)
kortMA:=MOV(c,3,s)
{elastisk flytnivå 3 perioder}
start:=if(ge(d,LastTrade(b,d)),kortMA,0)
max:=hhv(start,bakåt1)
gräns:=mult(max,flytnivå)
medv:=mov(C,3,s)
{elastisk stopp 3 perioder}
säljsignal:=LE(medv,gräns)
i10(säljsignal)


Vidare så har jag kompletterat med ett kontrollscript som spärrar köp 4 första tick, och ett kontrollscript som spärrar sälj 4 första tick såvida man inte har en vinst att plocka hem!
Om Stockholmsbörsen öppnar ner så vänder den oftast upp igen ganska fort. Skulle man ligga lite back då är det bäst att vänta 40 minuter eller likn. Har inte kursen hunnit upp då så får man bita i det sura äpplet och ta förlusten.


xk) Spärra köp 4 först tick

tittabakåt:=4
inpådagen:=eqv(int(ref(d,tittabakåt)),int(d))
i10(mult(inpådagen,30))


xk) Spärra sälj 4 första tick om inte vinst

tittabakåt:=4
inpådagen:=eqv(int(ref(d,tittabakåt)),int(d))
inpris:=LastTrade(B,P)
{testar om minst 0.5% vinst}
vinst1:=Gt(C,mult(1.005,inpris))
innehav:=Gt(portfolio(v),0)
säljvinst:=And(innehav,vinst1)
tillåtsälj:=Or(inpådagen,säljvinst)
i10(mult(tillåtsälj,15))