Såg att det ska vara 4 parametrar när man använder L för skrivning. Det behövs alltså en Date() för att skriva in systemtiden så att L-parametern kan jämföra med databastiden från en diagramritning. Tänk dock på att villkoren lätt kan bli sanna någon gång i samma period beroende på lutningen på medelvärdet. Vill man kringgå det kan man ändra till buy=gt(aref(med2,1),aref(med2,2)) så testas bara slutvärdet från stapeln innan. Det kan inte ändras i efterhand.
{ Test av villkorsdelen av SetGvarIf() allra enklaste varianten}
minut_nu:=mult(frac(d),1440)
i1(
med2=mov(c,5,s)
{ Villkor }
buy2=gt(med2,aref(med2,1))
short2=lt(med2,aref(med2,1))
{ Skrivning }
SetGvarIf(if(buy2,minut_nu,GetGvar(80)),80,Date(),L)
SetGvarIf(if(short2,minut_nu,GetGvar(90)),90,Date(),L)
draw(med2,2,bqb)
)
{ Test av villkorsdelen av SetGvarIf() allra enklaste varianten}
minut_nu:=mult(frac(d),1440)
i1(
med2=mov(c,5,s)
{ Villkor }
buy2=gt(med2,aref(med2,1))
short2=lt(med2,aref(med2,1))
{ Skrivning }
SetGvarIf(if(buy2,minut_nu,GetGvar(80)),80,Date(),L)
SetGvarIf(if(short2,minut_nu,GetGvar(90)),90,Date(),L)
draw(med2,2,bqb)
)
Comment