奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 改為每日第1K開始 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=17217)

改為每日第1K開始

Dear站長:
下面指標想改為每日第1K開始要如何改?自己改不出來;都會說下標出範圍 麻煩幫忙指導一下

謝謝 感恩

HEIKIN ASHI平均K線
Ac:=(H+L+C+O)/4;
ao:=c*0;
fo:=o;
ao[1]:=fo[1];
for i=2 to datacount do ao[i]:=(ao[i-1]+ac[i-1])/2;
AH:=max(H,Max(Ao,Ac));
AL:=min(L,min(Ao,Ac));

dd:=(ma(ao,2)+ma(ao,4))/2,linethick2;
2*dd-1*ao,colormagenta;
ma(ao,2),color00bb00;

STICKLINE(AC>=AO,AH,AC,1,0),color225588;
STICKLINE(AC>=AO,AH,AC,0,0),color66ccff;
STICKLINE(AC>=AO,AO,AL,1,0),color225588;
STICKLINE(AC>=AO,AO,AL,0,0),color66ccff;

STICKLINE(AC>AO,AC,AO,8,0),COLOR225588;
STICKLINE(AC>AO,AC,AO,7,0),COLOR226699;
STICKLINE(AC>AO,AC,AO,6,0),COLOR3377aa;
STICKLINE(AC>AO,AC,AO,5,0),COLOR3388bb;
STICKLINE(AC>AO,AC,AO,4,0),COLOR4499cc;
STICKLINE(AC>AO,AC,AO,3,0),COLOR44aadd;
STICKLINE(AC>AO,AC,AO,2,0),COLOR55bbee;
STICKLINE(AC>AO,AC,AO,1,0),COLOR66ccff;

STICKLINE(AC<=AO,AH,AC,1,0),color888800;
STICKLINE(AC<=AO,AH,AC,0,0),colorffff00;
STICKLINE(AC<=AO,AO,AL,1,0),color888800;
STICKLINE(AC<=AO,AO,AL,0,0),colorffff00;

STICKLINE(AC<=AO,AC,AO,8,0),COLOR888800;
STICKLINE(AC<=AO,AC,AO,7,0),COLOR999900;
STICKLINE(AC<=AO,AC,AO,6,0),COLORaaaa00;
STICKLINE(AC<=AO,AC,AO,5,0),COLORbbbb00;
STICKLINE(AC<=AO,AC,AO,4,0),COLORcccc00;
STICKLINE(AC<=AO,AC,AO,3,0),COLORdddd00;
STICKLINE(AC<=AO,AC,AO,2,0),COLOReeee00;
STICKLINE(AC<=AO,AC,AO,1,0),COLORffff00;

回覆: 改為每日第1K開始

引用:

---

最初由 mead 發表
Dear站長:
下面指標想改為每日第1K開始要如何改?自己改不出來;都會說下標出範圍 麻煩幫忙指導一下

謝謝 感恩

HEIKIN ASHI平均K線
Ac:=(H+L+C+O)/4;
ao:=c*0;
fo:=o;
ao[1]:=fo[1];
for i=2 to datacount do ao[i]:=(ao[i-1]+ac[i-1])/2;
AH:=max(H,Max(Ao,Ac));
AL:=min(L,min(Ao,Ac));

dd:=(ma(ao,2)+ma(ao,4))/2,linethick2;
2*dd-1*ao,colormagenta;
ma(ao,2),color00bb00;
..........................

---

回覆: 回覆: 改為每日第1K開始

引用:

---

最初由 cgjj 發表
這一段程式是永遠也不會下標越界的
下標越界可能是其他部份原碼或公式產生的

---

回覆: 回覆: 回覆: 改為每日第1K開始

引用:

---

最初由 mead 發表
我改成這樣 就不行 真的顯示下標越界
如何改請指導一下!

謝謝 感恩

de:=date;
ck1:=barslast(de=de[datacount])>=0;
HH:=H*CK1;
LL:=L*CK1;
CC:=C*CK1;
OO:=O*CK1;

Ac:=(HH+LL+CC+OO)/4;
ao:=cc*0;
fo:=oo;
ao[1]:=fo[1];
for i=2 to datacount do ao[i]:=(ao[i-1]+ac[i-1])/2;

AH:=max(H,Max(Ao,Ac));
AL:=min(L,min(Ao,Ac));

dd:=(ma(ao,2)+ma(ao,4))/2,linethick2;
2*dd-1*ao,colormagenta;
ma(ao,2),color00bb00;

STICKLINE(AC>=AO,AH,AC,1,0),color225588;
..........................

---

測試OK
謝謝站大的幫忙!

感恩