Rita linjer

[ali]

Har experimenterat med den Omvända Stochen och vill ha alla linjer ritade när jag ansluter sl) scriptet, går det ?

sl) Omvänd Stoch Köp

kurva1:=sub(100,Stoch(13))
linje:=20
under:=LT(kurva1,linje)
i30(Mult(under,20)

De här vill jag ha i Stochastic-fältet via Draw-satser i scriptet

linje:=mult(20,1)
linje

kurva:=sub(100,stoch(13))
i30(kurva)

[Rikard Nilsson]

Visst går det:

kurva1:=sub(100,Stoch(13))
linje:=20
under:=LT(kurva1,linje)
Draw(kurva1,2,ysa)
Draw(linje,3,rsa)
i30(Mult(under,20)
)




Nu ritas linjen som en röd linje på nivå 20 i Analysområde 1, och kurvan i gult.

[ali]

Väldigt snyggt och enkelt att ansluta. Tack för hjälpen.

[ali]

Har lagt till tidfilter och spärr från annat script men det vill sig inte på någondera.
kurva1:=sub(100,Stoch(13))
linje:=20
under:=LT(kurva1,linje)
tidnu:=Frac(DATE())
totalt:=Mult(tidnu,1440)
rest:=Mod(totalt,30)
tidsignal:=Ge(rest,28)
släpporder:=Eqv(GetGVar(500),1)
köp:=(släpporder,tidsignal)
Draw(kurva1,2,yss)
Draw(linje,3,gss)
i30(Mult(under,köp,20)
)

ag11:=BolBands(20,2.0,u) {övre bollingerbandet}
ag21:=BolBands(20,2.0,l) {undre bb}
diff:=Sub(ag11,ag21) {skillnaden mellan banden}
ok:=Gt(diff,3) {sant när skillnaden är större än X punkter}
SetGVarIf(0,500,1)
SetGVarIf(1,500,ok)
i5(ok)

[Rikard Nilsson]

Har du koll på vad som finns i cell 500? Den är villkorad så att cellen måste innehålla värde 1 för att "köp" ska bli sant. Kanske är så enkelt?

[ali]

Om jag kör Kalkylforskaren och förändrar villkoret i xk-skriptet så växlar det mellan 1 och 0 men borde det inte ändra sig i skriptet också och borde inte köpflaggorna försvinna när xk spärrar ?
Jag fick order direkt på morgonen det borde ju spärra till den 28 minuten.
Är det bara vid skarp körning som man kan se om det fungerar ?

[ali]

Skrivning till celler ser ut att fungera nu, gäller bara att få till spärr på rätt ställe. Tiden däremot ser fortfarande mysko ut.

[ali]

Fixat tiden, fel i skriptet. Cell 500 ändrar mellan 1 och 0 som det ska men mottagarskriptet bryr sig inte.
Detta fungerar
SetGVarIf(0,500,1)
SetGVarIf(1,500,ok)
Detta fungerar inte
släpporder:=Eqv(GetGVar(500),1)

[ali]

släpporder:=Eqv(GetGVar(500),1)
köp:=(släpporder,tidsignal) Hade glömt and.
Draw(kurva1,2,yss)
Draw(linje,3,gss)
i30(Mult(under,köp,20)
)