Allmänt meddelande

Collapse
No announcement yet.

Speciella medelvärden

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

  • Speciella medelvärden

    Jag skulle vilja medelvärdesbilda x-antal dagar i minutupplösning så att alla klockslag medelvärdesbildas på varandra så att man kan se statistiska dagstrender. Dvs vilka klockslag skall man köpa och vilka skall man sälja på.
    Sedan skulle jag vilja undersöka varje veckodag för sig, därefter lägga till andra trendvillkor typ ta medelvärdet av alla måndagar i upptrend och skapa en dagskurva.
    Hur gör man detta smartast?

    Undrar den frågdumme
    Bertil

  • #2
    Du menar något sånt här?

    Har utgått från Predictive Average-koden i Pro, men den går ju att ändra.

    Vecka:

    { PA week 150524 }
    $par1:=0 {0-34}
    $par2:=1 {1 el 0 = visa dygnsskifte }
    i15(
    advance=mn(mx(sub(34,$par1),1),34)
    ny_vecka=gt(aref(dayofweek(),1),dayofweek())
    pred1=find(lt(d,sub(const(d),7)),200,c,1)
    pred2=find(lt(d,sub(const(d),14)),400,c,1)
    pred3=find(lt(d,sub(const(d),21)),600,c,1)
    pred4=find(lt(d,sub(const(d),28)),800,c,1)
    pred5=find(lt(d,sub(const(d),35)),1000,c,1)
    avg=aref(div(add(pred1,add(pred2,add(pred3,add(pred4,pred5)))),5),1)
    pred_tot=aref(div(add(pred1,add(pred2,add(pred3,add(pred4,pred5)))),5),mx(1,$par1):35)
    draw(avg,0,dgabw2)
    draw(pred_tot,1,mab2)
    draw(mult(ny_vecka,$par2),2,babfw2)
    add(0,0)
    )



    Dag:

    { PA daily 150524 }
    $par1:=0 {0-34}
    $par2:=1 {1 el 0 = visa dygnsskifte }
    i15(
    advance=mn(mx(sub(34,$par1),1),34)
    dygnsskifte=not(eqv(int(d),aref(int(d),1)))
    pred1=find(lt(d,sub(const(d),1)),40,c,1)
    pred2=find(lt(d,sub(const(d),2)),80,c,1)
    pred3=find(lt(d,sub(const(d),3)),120,c,1)
    pred4=find(lt(d,sub(const(d),4)),160,c,1)
    pred5=find(lt(d,sub(const(d),5)),200,c,1)
    avg=aref(div(add(pred1,add(pred2,add(pred3,add(pred4,pred5)))),5),1)
    pred_tot=aref(div(add(pred1,add(pred2,add(pred3,add(pred4,pred5)))),5),mx(1,$par1):35)
    draw(avg,0,rabw2)
    draw(pred_tot,1,mab2)
    draw(mult(dygnsskifte,$par2),2,babf1)
    add(0,0)
    )
    Attached Files
    Last edited by Rikard Autostock; 2016-11-21, 20:44.

    Comment


    • #3
      Tack för koden. Har börjat labba lite på silver. Förstår dock inte all kod.
      advance verkar inte att användas. Likaså $par2:= som jag uppfattar som en loop kan jag inte se loopa.

      Med vänlig hälsning
      Bertil
      Last edited by Bertil; 2016-11-22, 09:12.

      Comment


      • #4
        $par2 är bara visning dygnsskifte eller veckoskifte av eller på. Sätter man den till 1 tänds vertikala markeringar.

        advance används inte, helt rätt, det ligger kvar sedan tidigare labb.

        Last edited by Rikard Autostock; 2016-11-22, 09:12.

        Comment

        Working...
        X