Pivot för dagstaplar

[Hong Kong Ola]

Är det ngn som har scriptat fram pivotlinjer för dagstaplar. Man använder föregåendes vecka H. L o C, så innevarande vecka må-fre ligger linjerna kvar på samma nivå o till nästa måndag räknas nya nivåer fram. Annars samma pivotformel som Lasse lagt in på forumet tidigare http://www.autostock.se/vbulletin/sh...t=pivot&page=2

[Rikard Nilsson]

Du vill alltså ha pivot-nivåerna i veckoupplösning i stället för dagsupplösning?

[Hong Kong Ola]

Rätt uppfattat
Har sett ngt som heter DayOfWeek() men hittar inget om kommandot. För på ngt sätt måste man kanske kunna ange veckodag o sedan med REF o HHV LLV plocka fram värdena på L H o C från veckan före. För att få det att funka alla veckor beroende på ev helgdagar , kanske stängt en måndag är det kanske bäst o att köra en uträkning resp veckodag

Skulle även vilja använda veckopivot i intradaydiagram t.ex när jag har halvdagsstaplar framme

[niclas_gbg]

5 dagars Pivot

Ola detta är ett gammalt script, som kör veckopivot, som låg och skräpade (jag gjorde det för mer än ett år sedan). Scriptet baseras dock på 5 dagar innan (inte veckan innan).
Glöm inte för att scriptet ska kunna sammla information, så måste du ha minst 6 dagars (helst 10) upplösning på diagrammet då scriptet för enkelhetens skull samlar C/H/L vid dagens close.
Upplösningen på scriptet är 1 minut...
Du kan ju bygga om detta till något annat, förbättra eller få ideér... Lycka till!

{---Pivot---}
ConvertMinutes:=1440
nMarkC:=Sub(MULT(Frac(Market(C)),ConvertMinutes),3)
nMarkO:=MULT(Frac(Market(O)),ConvertMinutes)
nNowTime:=MULT(Frac(D),ConvertMinutes)

i1(
nBackTime=Sub(nNowTime,nMarkO)
nTempC5=SetGvarIf(GetGvar(204),205,Ge(nNowTime,nMarkC))
nTempC4=SetGvarIf(GetGvar(203),204,Ge(nNowTime,nMarkC))
nTempC3=SetGvarIf(GetGvar(202),203,Ge(nNowTime,nMarkC))
nTempC2=SetGvarIf(GetGvar(201),202,Ge(nNowTime,nMarkC))
nTempC1=SetGvarIf(C,201,Ge(nNowTime,nMarkC))
nTempH5=SetGvarIf(GetGvar(209),210,Ge(nNowTime,nMarkC))
nTempH4=SetGvarIf(GetGvar(208),209,Ge(nNowTime,nMarkC))
nTempH3=SetGvarIf(GetGvar(207),208,Ge(nNowTime,nMarkC))
nTempH2=SetGvarIf(GetGvar(206),207,Ge(nNowTime,nMarkC))
nTempH1=SetGvarIf(HHV(H,nBackTime),206,Ge(nNowTime,nMarkC))
nTempL5=SetGvarIf(GetGvar(214),215,Ge(nNowTime,nMarkC))
nTempL4=SetGvarIf(GetGvar(213),214,Ge(nNowTime,nMarkC))
nTempL3=SetGvarIf(GetGvar(212),213,Ge(nNowTime,nMarkC))
nTempL2=SetGvarIf(GetGvar(211),212,Ge(nNowTime,nMarkC))
nTempL1=SetGvarIf(LLV(L,nBackTime),211,Ge(nNowTime,nMarkC))
OmxDay1C=GetGvar(201)
OmxDay2C=GetGvar(202)
OmxDay3C=GetGvar(203)
OmxDay4C=GetGvar(204)
OmxDay5C=GetGvar(205)
OmxDay1H=GetGvar(206)
OmxDay2H=GetGvar(207)
OmxDay3H=GetGvar(208)
OmxDay4H=GetGvar(209)
OmxDay5H=GetGvar(210)
OmxDay1L=GetGvar(211)
OmxDay2L=GetGvar(212)
OmxDay3L=GetGvar(213)
OmxDay4L=GetGvar(214)
OmxDay5L=GetGvar(215)
{----Pivot----}
{Day One}
PivD1=Div(Add(Add(OmxDay1H,OmxDay1C),OmxDay1L),3)
Res1D1=Sub(Mult(2,PivD1),OmxDay1L)
Sup1D1=Sub(Mult(2,PivD1),OmxDay1H)
Res2D1=Add(PivD1,Sub(Res1D1,Sup1D1))
Sup2D1=Sub(PivD1,Sub(Res1D1,Sup1D1))
Res3D1=Add(OmxDay1H,Mult(2,Sub(PivD1,OmxDay1L)))
Sup3D1=Sub(OmxDay1L,Mult(2,Sub(OmxDay1H,PivD1)))
{Day Two}
PivD2=Div(Add(Add(OmxDay2H,OmxDay2C),OmxDay2L),3)
Res1D2=Sub(Mult(2,PivD2),OmxDay2L)
Sup1D2=Sub(Mult(2,PivD2),OmxDay2H)
Res2D2=Add(PivD2,Sub(Res1D2,Sup1D2))
Sup2D2=Sub(PivD2,Sub(Res1D2,Sup1D2))
Res3D2=Add(OmxDay2H,Mult(2,Sub(PivD2,OmxDay2L)))
Sup3D2=Sub(OmxDay2L,Mult(2,Sub(OmxDay2H,PivD2)))
{Day Three}
PivD3=Div(Add(Add(OmxDay3H,OmxDay3C),OmxDay3L),3)
Res1D3=Sub(Mult(2,PivD3),OmxDay3L)
Sup1D3=Sub(Mult(2,PivD3),OmxDay3H)
Res2D3=Add(PivD3,Sub(Res1D3,Sup1D3))
Sup2D3=Sub(PivD3,Sub(Res1D3,Sup1D3))
Res3D3=Add(OmxDay3H,Mult(2,Sub(PivD3,OmxDay3L)))
Sup3D3=Sub(OmxDay3L,Mult(2,Sub(OmxDay3H,PivD3)))
{Day Four}
PivD4=Div(Add(Add(OmxDay4H,OmxDay4C),OmxDay4L),3)
Res1D4=Sub(Mult(2,PivD4),OmxDay4L)
Sup1D4=Sub(Mult(2,PivD4),OmxDay4H)
Res2D4=Add(PivD4,Sub(Res1D4,Sup1D4))
Sup2D4=Sub(PivD4,Sub(Res1D4,Sup1D4))
Res3D4=Add(OmxDay4H,Mult(2,Sub(PivD4,OmxDay4L)))
Sup3D4=Sub(OmxDay4L,Mult(2,Sub(OmxDay4H,PivD4)))
{Day Five}
PivD5=Div(Add(Add(OmxDay5H,OmxDay5C),OmxDay5L),3)
Res1D5=Sub(Mult(2,PivD5),OmxDay5L)
Sup1D5=Sub(Mult(2,PivD5),OmxDay5H)
Res2D5=Add(PivD5,Sub(Res1D5,Sup1D5))
Sup2D5=Sub(PivD5,Sub(Res1D5,Sup1D5))
Res3D5=Add(OmxDay5H,Mult(2,Sub(PivD5,OmxDay5L)))
Sup3D5=Sub(OmxDay5L,Mult(2,Sub(OmxDay5H,PivD5)))
{Weekly Pivot}
WeekPiv=Div(Add(PivD1,Add(PivD2,Add(PivD3,Add(PivD4,PivD5)))),5)
WeekRes1=Div(Add(Res1D1,Add(Res1D2,Add(Res1D3,Add(Res1D4,Res1D5)))),5)
WeekSup1=Div(Add(Sup1D1,Add(Sup1D2,Add(Sup1D3,Add(Sup1D4,Sup1D5)))),5)
WeekRes2=Div(Add(Res2D1,Add(Res2D2,Add(Res2D3,Add(Res2D4,Res2D5)))),5)
WeekSup2=Div(Add(Sup2D1,Add(Sup2D2,Add(Sup2D3,Add(Sup2D4,Sup2D5)))),5)
WeekRes3=Div(Add(Res3D1,Add(Res3D2,Add(Res3D3,Add(Res3D4,Res3D5)))),5)
WeekSup3=Div(Add(Sup3D1,Add(Sup3D2,Add(Sup3D3,Add(Sup3D4,Sup3D5)))),5)
{####Buy Script Begin####}
{####Buy Script End####}
draw(WeekPiv,3,wqb)
draw(WeekRes1,4,rqb)
draw(WeekSup1,5,gqb)
draw(WeekRes2,6,bqb)
draw(WeekSup2,7,yqb)
draw(WeekRes3,8,cqb)
draw(WeekSup3,9,mqb)
Add(0,0)
)