Hej Rikard,
Jag har egentligen bara kopierat MFI-modellen och sedan bytt ut triggern till en egen.
Här är hela mitt script fast med ett vanligt RSI som trigger, det har som sagt fungerat i simulatorn. I kalkylforskaren har jag bara triggern, ingen rank.
{ Buy Low (5st)}
{ Reservera trading power som inte handlas för - ange belopp i kronor }
reserv=getgvar(842)
Indikator=RSIW(5)
Värde=mov(Indikator,3,s)
draw(Värde,2,bsa)
draw(25,3,dgsa)
{ läs av aktuell rating från celler 830-834}
rating1=getgvar(830)
rating2=getgvar(831)
rating3=getgvar(832)
rating4=getgvar(833)
{ läs av aktiellt ID för kandidater }
crc1=getgvar(835)
crc2=getgvar(836)
crc3=getgvar(837)
crc4=getgvar(838)
{ räkna ut aktuell rating för den aktie scriptet exekveras på just nu }
OS=and(lt(Värde,25),lt(c,aref(c,1)))
rate3=sub(100,Värde)
{ definiera klockslag då rating testas och skrivs till celler följt av själva handeln minuten efter}
kl1720=le(mult(1440,sub(market(c),frac(date()))),8)
kl1719=and(le(mult(1440,sub(market(c),frac(date()))),9),not(kl1720))
ej_innehav=le(portfolio(v),0)
högre_rate=gt(mult(and(ej_innehav,OS),rate3),rating1)
{ testa om aktuell aktie har köpsignal och högre rating än den högsta lagrade värdet och skriv i så fall det nya högsta värdet till call830 samt flytta de tidigare värderna en cell bakåt så att bästa kandidaten alltid finns i cell 830 - skriv samtidigt ID i motsvarande celler 835 - 839}
skriv_rate=and(högre_rate,kl1719)
setgvarif(rate3,830,skriv_rate)
setgvarif(rating1,831,skriv_rate)
setgvarif(rating2,832,skriv_rate)
setgvarif(rating3,833,skriv_rate)
setgvarif(rating4,834,skriv_rate)
setgvarif(crcid(),835,skriv_rate)
setgvarif(crc1,836,skriv_rate)
setgvarif(crc2,837,skriv_rate)
setgvarif(crc3,838,skriv_rate)
setgvarif(crc4,839,skriv_rate)
öppet=ge(mult(1440,sub(market(c),frac(date()))),6)
{läs av kontovärde och testa om det finns pengar}
depåvärde=sub(add(cash(a),cash(t)),cash(u))
belåning=sub(depåvärde,cash(a))
insatsproc=div(abs(getgvar(841)),100)
insatsbelopp=mult(depåvärde,insatsproc)
pengarfinns=lt(add(reserv,insatsbelopp),belåning)
{klockslag då alla celler nollställs direkt efter öppning}
nolltid=lt(frac(date()),0.377)
nollställ0=setgvarif(0,830,nolltid)
nollställ1=setgvarif(0,831,nolltid)
nollställ2=setgvarif(0,832,nolltid)
nollställ3=setgvarif(0,833,nolltid)
nollställ4=setgvarif(0,834,nolltid)
nollställ5=setgvarif(0,835,nolltid)
{läs av ID för sparade köpkandidater och jämför med CRC ID för den aktie scriptet exekveras på just nu}
aktie1=getgvar(835)
aktie2=getgvar(836)
aktie3=getgvar(837)
aktie4=getgvar(838)
aktie5=getgvar(839)
kandidat_a=if(gt(aktie1,0),aktie1,aktie2)
kandidat_b=if(gt(kandidat_a,0),kandidat_a,aktie3)
kandidat_c=if(gt(kandidat_b,0),kandidat_b,aktie4)
kandidat_d=if(gt(kandidat_c,0),kandidat_c,aktie5)
{ koppla ihop logiska villkor och testa om CRC ID är lika med sparad kandidat. Köp i så fall och nollställ cellen så att nästa scriptkörningscykel läser nästa sparade kandidat}
köp1=and(and(and(ej_innehav,öppet),kl1720),pengarfinns)
köp2=and(and(köp1,eqv(crcid(),kandidat_d)),gt(kandidat_d,0))
setgvarif(0,835,or(nolltid,and(eqv(crcid(),aktie1),köp2)))
setgvarif(0,836,or(nolltid,and(eqv(crcid(),aktie2),köp2)))
setgvarif(0,837,or(nolltid,and(eqv(crcid(),aktie3),köp2)))
setgvarif(0,838,or(nolltid,and(eqv(crcid(),aktie4),köp2)))
setgvarif(0,839,or(nolltid,and(eqv(crcid(),aktie5),köp2)))
retval(2,0)
mult(köp2,10)
Mvh Calle
Jag har egentligen bara kopierat MFI-modellen och sedan bytt ut triggern till en egen.
Här är hela mitt script fast med ett vanligt RSI som trigger, det har som sagt fungerat i simulatorn. I kalkylforskaren har jag bara triggern, ingen rank.
{ Buy Low (5st)}
{ Reservera trading power som inte handlas för - ange belopp i kronor }
reserv=getgvar(842)
Indikator=RSIW(5)
Värde=mov(Indikator,3,s)
draw(Värde,2,bsa)
draw(25,3,dgsa)
{ läs av aktuell rating från celler 830-834}
rating1=getgvar(830)
rating2=getgvar(831)
rating3=getgvar(832)
rating4=getgvar(833)
{ läs av aktiellt ID för kandidater }
crc1=getgvar(835)
crc2=getgvar(836)
crc3=getgvar(837)
crc4=getgvar(838)
{ räkna ut aktuell rating för den aktie scriptet exekveras på just nu }
OS=and(lt(Värde,25),lt(c,aref(c,1)))
rate3=sub(100,Värde)
{ definiera klockslag då rating testas och skrivs till celler följt av själva handeln minuten efter}
kl1720=le(mult(1440,sub(market(c),frac(date()))),8)
kl1719=and(le(mult(1440,sub(market(c),frac(date()))),9),not(kl1720))
ej_innehav=le(portfolio(v),0)
högre_rate=gt(mult(and(ej_innehav,OS),rate3),rating1)
{ testa om aktuell aktie har köpsignal och högre rating än den högsta lagrade värdet och skriv i så fall det nya högsta värdet till call830 samt flytta de tidigare värderna en cell bakåt så att bästa kandidaten alltid finns i cell 830 - skriv samtidigt ID i motsvarande celler 835 - 839}
skriv_rate=and(högre_rate,kl1719)
setgvarif(rate3,830,skriv_rate)
setgvarif(rating1,831,skriv_rate)
setgvarif(rating2,832,skriv_rate)
setgvarif(rating3,833,skriv_rate)
setgvarif(rating4,834,skriv_rate)
setgvarif(crcid(),835,skriv_rate)
setgvarif(crc1,836,skriv_rate)
setgvarif(crc2,837,skriv_rate)
setgvarif(crc3,838,skriv_rate)
setgvarif(crc4,839,skriv_rate)
öppet=ge(mult(1440,sub(market(c),frac(date()))),6)
{läs av kontovärde och testa om det finns pengar}
depåvärde=sub(add(cash(a),cash(t)),cash(u))
belåning=sub(depåvärde,cash(a))
insatsproc=div(abs(getgvar(841)),100)
insatsbelopp=mult(depåvärde,insatsproc)
pengarfinns=lt(add(reserv,insatsbelopp),belåning)
{klockslag då alla celler nollställs direkt efter öppning}
nolltid=lt(frac(date()),0.377)
nollställ0=setgvarif(0,830,nolltid)
nollställ1=setgvarif(0,831,nolltid)
nollställ2=setgvarif(0,832,nolltid)
nollställ3=setgvarif(0,833,nolltid)
nollställ4=setgvarif(0,834,nolltid)
nollställ5=setgvarif(0,835,nolltid)
{läs av ID för sparade köpkandidater och jämför med CRC ID för den aktie scriptet exekveras på just nu}
aktie1=getgvar(835)
aktie2=getgvar(836)
aktie3=getgvar(837)
aktie4=getgvar(838)
aktie5=getgvar(839)
kandidat_a=if(gt(aktie1,0),aktie1,aktie2)
kandidat_b=if(gt(kandidat_a,0),kandidat_a,aktie3)
kandidat_c=if(gt(kandidat_b,0),kandidat_b,aktie4)
kandidat_d=if(gt(kandidat_c,0),kandidat_c,aktie5)
{ koppla ihop logiska villkor och testa om CRC ID är lika med sparad kandidat. Köp i så fall och nollställ cellen så att nästa scriptkörningscykel läser nästa sparade kandidat}
köp1=and(and(and(ej_innehav,öppet),kl1720),pengarfinns)
köp2=and(and(köp1,eqv(crcid(),kandidat_d)),gt(kandidat_d,0))
setgvarif(0,835,or(nolltid,and(eqv(crcid(),aktie1),köp2)))
setgvarif(0,836,or(nolltid,and(eqv(crcid(),aktie2),köp2)))
setgvarif(0,837,or(nolltid,and(eqv(crcid(),aktie3),köp2)))
setgvarif(0,838,or(nolltid,and(eqv(crcid(),aktie4),köp2)))
setgvarif(0,839,or(nolltid,and(eqv(crcid(),aktie5),köp2)))
retval(2,0)
mult(köp2,10)
Mvh Calle
Comment