Heikin Ashi smooth trend + trigger

[Emil]

Har försökt få till Heikin Ashi smooth där i30 på OMXS30 fungerar som trendfilter och i15 på terminen som trigger. Båda måste alltså vara sanna för att ge signal. Blev bara pankkaka av mitt försök med cmpref... Nån som kan hjälpa mig? Är alltså nedanstående script jag vill använda i bägge upplösningarna.

sp1:=50
first:=aref(div(add(o,c),2),add(sp1,1):50)
mc1:=div(add(add(c,o),add(l,h)),4)

{arr with power of 2 values,9,8,7...}
retval(0,0)
retval(0,1)
ack=cum(1,sp1)
mweight=power(2,sub(sp1,ack))
mcweight=mult(mweight,aref(mc1,ack:sp1))
mscweight=retval(add(getval(0),mcweight),0)
dscweight=retval(add(getval(1),mweight),1)
loop(ack,sp1)
dcweight=add(getval(1),1)

tots1=add(getval(0),const(first))
haOpen=div(tots1,mult(1,dcweight))

mclose=div(add(add(c,o),add(l,h)),4)

draw(haOpen,3,mqbw)

mult(ge(mclose,haOpen),10)

[Henric]

Vet inte vad som strular för dig? Jag har gjort ett försök att skapa det du är ute efter. Inget komplett triggerscript. Bara demo med extraobjekt.

sp1:=50
terC:=cmpref(c,0,A)
terO:=cmpref(o,0,A)
terH:=cmpref(h,0,A)
terL:=cmpref(l,0,A)

firstT:=aref(div(add(terO,terC),2),add(sp1,1):50)
mc1T:=div(add(add(terC,terO),add(terL,terH)),4)
firstI:=aref(div(add(o,c),2),add(sp1,1):50)
mc1I:=div(add(add(c,o),add(l,h)),4)

i30(
{arr with power of 2 values,9,8,7...}
retval(0,0)
retval(0,1)
retval(0,2)
retval(0,3)
ack=cum(1,sp1)
mweight=power(2,sub(sp1,ack))

mcweightT=mult(mweight,aref(mc1T,ack:sp1))
mcweightI=mult(mweight,aref(mc1I,ack:sp1))
mscweightT=retval(add(getval(0),mcweightT),0)
mscweightI=retval(add(getval(2),mcweightI),2)
dscweightT=retval(add(getval(1),mweight),1)
dscweightI=retval(add(getval(3),mweight),3)
loop(ack,sp1)
dcweightT=add(getval(1),1)
dcweightI=add(getval(3),1)

tots1T=add(getval(0),const(firstT))
tots1I=add(getval(2),const(firstI))
haOpenT=div(tots1T,mult(1,dcweightT))
haOpenI=div(tots1I,mult(1,dcweightI))
mcloseT=div(add(add(terC,terO),add(terL,terH)),4)
mcloseI=div(add(add(c,o),add(l,h)),4)

villkor=and(gt(mcloseI,haOpenI),gt(mcloseT,haOpenT))
draw(mult(villkor,12),3,gsbF)
add(0,0)
)

{@A(15,OMXS305A )}

[Emil]

Tack Henric!

Det som strular är väl egentligen att jag är för dålig på att scripta och energin tog slut :-)

Men om jag nu ansluter detta till OMXS304L och ändrar i sista raden till {@A(15,OMXS304L )} så får jag grön stapel/signal när Heiken Ashi smooth är grön i både i15 och i30 för OMXS304L? Eller vad menar du med ej komplett, bara demo?

(råkade skriva i första inlägget att testen skulle ske mot OMXS30, men det var inte så jag tänkt)

[Henric]

Jag testade bara med extraobjekt och visste dessutom inte dina triggervillkor. Ska du handla terminen så bör du göra tvärtom. Terminen i15 och index som extraobjekt i30.

[Berra]

Vet inte vad som strular för dig? Jag har gjort ett försök att skapa det du är ute efter. Inget komplett triggerscript. Bara demo med extraobjekt.

sp1:=50
terC:=cmpref(c,0,A)
terO:=cmpref(o,0,A)
terH:=cmpref(h,0,A)
terL:=cmpref(l,0,A)

firstT:=aref(div(add(terO,terC),2),add(sp1,1):50)
mc1T:=div(add(add(terC,terO),add(terL,terH)),4)
firstI:=aref(div(add(o,c),2),add(sp1,1):50)
mc1I:=div(add(add(c,o),add(l,h)),4)

i30(
{arr with power of 2 values,9,8,7...}
retval(0,0)
retval(0,1)
retval(0,2)
retval(0,3)
ack=cum(1,sp1)
mweight=power(2,sub(sp1,ack))

mcweightT=mult(mweight,aref(mc1T,ack:sp1))
mcweightI=mult(mweight,aref(mc1I,ack:sp1))
mscweightT=retval(add(getval(0),mcweightT),0)
mscweightI=retval(add(getval(2),mcweightI),2)
dscweightT=retval(add(getval(1),mweight),1)
dscweightI=retval(add(getval(3),mweight),3)
loop(ack,sp1)
dcweightT=add(getval(1),1)
dcweightI=add(getval(3),1)

tots1T=add(getval(0),const(firstT))
tots1I=add(getval(2),const(firstI))
haOpenT=div(tots1T,mult(1,dcweightT))
haOpenI=div(tots1I,mult(1,dcweightI))
mcloseT=div(add(add(terC,terO),add(terL,terH)),4)
mcloseI=div(add(add(c,o),add(l,h)),4)

villkor=and(gt(mcloseI,haOpenI),gt(mcloseT,haOpenT))
draw(mult(villkor,12),3,gsbF)
add(0,0)
)

{@A(15,OMXS305A )}

Henric detta var alldeles förträffligt har letat efter H-A-s och denna ser ut att funka så som jag har önskar. Men vilka delar ändrar jag så den markerar när heikin blir röd? Jag kan inte översätta så jag begriper vore toppen om du kunde hjälpa till det är säkert flera som skulle bli lyckliga om du hade tid eller någon annan kunnig.

[Henric]

Jag har inte tittat på H-A-s på ett tag. Är det detta du menar?
Index i 30 min och Terminen i 15 min. Annars gör tvärtom.

.....
i15(
.....
villkorG=and(gt(mcloseI,haOpenI),gt(mcloseT,haOpenT))
villkorR=and(lt(mcloseI,haOpenI),lt(mcloseT,haOpenT))
draw(mult(villkorG,12),3,gsbF)
draw(mult(villkorR,12),4,rsbF)
add(0,0)
)

{@A(30,OMX Stock )}

[Berra]

Hej igen jag har lagt till delar före och efter det ritar perfekt se bild men det
ger inte köp/sälj i bänken? Borde det inte fungera så här har lagt dem i
ordermodeller med allt som ska vara där.

{long}
ejstängning:=ge(mult(1440,sub(market(c),frac(date()))),30)
{ säkerställ att klockan är minst 09:15 }
inpådagen:=Gt(Frac(date()),0.406)
ejlång:=Le(Portfolio(v),0)
sp1:=50
terC:=cmpref(c,0,A)
terO:=cmpref(o,0,A)
terH:=cmpref(h,0,A)
terL:=cmpref(l,0,A)

firstT:=aref(div(add(terO,terC),2),add(sp1,1):50)
mc1T:=div(add(add(terC,terO),add(terL,terH)),4)
firstI:=aref(div(add(o,c),2),add(sp1,1):50)
mc1I:=div(add(add(c,o),add(l,h)),4)

i15(
{arr with power of 2 values,9,8,7...}
retval(0,0)
retval(0,1)
retval(0,2)
retval(0,3)
ack=cum(1,sp1)
mweight=power(2,sub(sp1,ack))

mcweightT=mult(mweight,aref(mc1T,ack:sp1))
mcweightI=mult(mweight,aref(mc1I,ack:sp1))
mscweightT=retval(add(getval(0),mcweightT),0)
mscweightI=retval(add(getval(2),mcweightI),2)
dscweightT=retval(add(getval(1),mweight),1)
dscweightI=retval(add(getval(3),mweight),3)
loop(ack,sp1)
dcweightT=add(getval(1),1)
dcweightI=add(getval(3),1)

tots1T=add(getval(0),const(firstT))
tots1I=add(getval(2),const(firstI))
haOpenT=div(tots1T,mult(1,dcweightT))
haOpenI=div(tots1I,mult(1,dcweightI))
mcloseT=div(add(add(terC,terO),add(terL,terH)),4)
mcloseI=div(add(add(c,o),add(l,h)),4)

köp1=And(And(ejstängning,inpådagen),ejlång)
köp2=and(and(gt(mcloseI,haOpenI),gt(mcloseT,haOpenT)),köp1)
draw(mult(köp2,12),3,gsbF)
add(0,0)
)

{@A(30,OMX Stock )}

{Blank}
ejstängning:=ge(mult(1440,sub(market(c),frac(date()))),30)
{ säkerställ att klockan är minst 09:15 }
inpådagen:=Gt(Frac(date()),0.376)
ejkort:=Le(Portfolio(v),0)

------
blank1=And(And(ejstängning,inpådagen),ejkort)
blank2=and(and(lt(mcloseI,haOpenI),lt(mcloseT,haOpenT)),blank1)
draw(mult(blank2,12),4,rsbF)
add(0,0)
)

{@A(30,OMX Stock )}

[Henric]

Byt ut add(0,0) mot and(köp2,1)
Motsvarande för blankning.
Blankningsscriptet behöver väl också HA-koden?
Scriptet kan kanske användas som trendfilter för din Berra-modell?

[Berra]

Byt ut add(0,0) mot and(köp2,1)
Motsvarande för blankning.
Blankningsscriptet behöver väl också HA-koden?
Scriptet kan kanske användas som trendfilter för din Berra-modell?

Tack Henrik
Jag la inte med koden för att spara plats eftersom det är samma i båda. Men ja nu fungerade det. Får se om det går att kombinera med något av de andra Berra-scripten. Men tusen tack jag har länge funderat på att få till H-A-s.

[Bertil]

Tack Henrik
... Får se om det går att kombinera med något av de andra Berra-scripten. Men tusen tack jag har länge funderat på att få till H-A-s.

Bara de olika ordermodellerna har ungefär samma handelsfrekvens så bör de kunna kombineras.

Med vänlig hälsning
Bertil

[Berra]

Bara de olika ordermodellerna har ungefär samma handelsfrekvens så bör de kunna kombineras.

Med vänlig hälsning
Bertil

Hade nog hoppats mer på detta både med och utan kombination. Det haltar lika mycket som alla andra kombinationer. min tanke var att om det hade kunnat gå in och följa grönt till det vänder till rött men det blir senare växling och då är det försent (=-). Upptäckte att extra objekt {@A(15,)} har stor betydelse på hur ofta köp/sälj ska ske, högre tal färre aff och tvärt om fler aff. Gäller det även skarpt eller är det bara i bänken?
Har inte litat på mina så varit utanför men hittills idag: bänken

Avkastning 17.75 kr 0.44% på 3 affärer under 06:16:40 tim
Av dessa blankat 2 st med avkastning 9.00 kr 0.34%
Innehav 1 st med vinst 8.75 kr 0.66%
Innehav 0 st med förlust 0.00 kr 0.00%
Blankning 1 st med vinst 11.25 kr 0.84%
Blankning 1 st med förlust -2.25 kr -0.17%

[Rikard Autostock]

17 punkter idag? Ser väl inte så tokigt ut.

Siffran i extra objektet bestämmer upplösningen på objektet så visst får det stor betydelse för antal trades. Hur ser det ut längre tillbaka? Kanske simulera på index?

[Berra]

17 punkter idag? Ser väl inte så tokigt ut.

Siffran i extra objektet bestämmer upplösningen på objektet så visst får det stor betydelse för antal trades. Hur ser det ut längre tillbaka? Kanske simulera på index?

Jag var nog lite otydlig 17p var de vanliga berra scripten och det blev ännu bättre till slut men tyvärr har jag inte kört skarpt. Förlusterna försvann.
Vad menas med upplösning på objektet?

Avkastning 23.25 kr 0.87% på 2 affärer under 04:37:55 tim
Av dessa blankat 1 st med avkastning 11.25 kr 0.84%
Innehav 1 st med vinst 12.00 kr 0.90%
Innehav 0 st med förlust 0.00 kr 0.00%
Blankning 1 st med vinst 11.25 kr 0.84%
Blankning 0 st med förlust 0.00 kr 0.00%

[Berra]

17 punkter idag? Ser väl inte så tokigt ut.

Siffran i extra objektet bestämmer upplösningen på objektet så visst får det stor betydelse för antal trades. Hur ser det ut längre tillbaka? Kanske simulera på index?

Simulerat på index där ser heikin bättre ut kanske det går att optimera?
Berra volp 1/1 15-14/1-16
Avkastning 389.98 kr 0.06% på 419 affärer under 1381:41:54 tim
Av dessa blankat 239 st med avkastning 176.28 kr 0.05%
Innehav 98 st med vinst 769.17 kr 0.51%
Innehav 82 st med förlust -555.47 kr -0.44%
Blankning 125 st med vinst 956.38 kr 0.50%
Blankning 114 st med förlust -780.10 kr -0.44%

Berra Heikin 1/1 15-14/1-16
Avkastning 694.74 kr 0.04% på 1005 affärer under 1992:24:38 tim
Av dessa blankat 514 st med avkastning 413.27 kr 0.05%
Innehav 203 st med vinst 1315.71 kr 0.42%
Innehav 288 st med förlust -1034.24 kr -0.23%
Blankning 209 st med vinst 1541.42 kr 0.48%
Blankning 305 st med förlust -1128.15 kr -0.24%

[Rikard Autostock]

Vinsten per affär är i genomsnitt lite för låg tror jag, men det går ju säkert att vässa.