Allmänt meddelande

Collapse
No announcement yet.

Rita linjer

Collapse
X
 
  • Filter
  • Klockan
  • Show
Clear All
new posts

  • Rita linjer

    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)

  • #2
    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.

    Comment


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

      Comment


      • #4
        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)

        Comment


        • #5
          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?

          Comment


          • #6
            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 ?

            Comment


            • #7
              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.

              Comment


              • #8
                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)

                Comment


                • #9
                  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)
                  )

                  Comment

                  Working...
                  X