奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 指標組數下標越界請問應如何改謝謝 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=22644)

指標組數下標越界請問應如何改謝謝

MM:=ref(l,2)<l and ref(l,4)>ref(l,2) and ref(l,3)>ref(l,2) and ref(l,2)<ref(l,1);
XX:=SGN(MM);
CK:=if(XX,XX,0);
SP:=barslast(CK);
MLP:=LLvbars(L,SP+1);
RCK:=refx(CK,1);
LPP:=SETVAL(RCK=1,0,-MLP,barpos-MLP);;
CKH:=LPP=barpos;
var1:=ref(l,sumbars(CKH,1)-1)colorcyan; //近一高

MM2:=ref(h,2)>h and ref(h,4)<ref(h,2) and ref(h,3)<ref(h,2) and ref(h,2)>ref(h,1);
XX2:=SGN(MM2);
CK2:=if(XX2,XX2,0);
SP2:=barslast(CK2);
MHP:=hhvbars(H,SP2+1);
RCK2:=refx(CK2,1);
HPP:=SETVAL(RCK2=1,0,-MHP,barpos-MHP);;
CKH2:=HPP=barpos;
var4:=ref(h,sumbars(CKH2,1)-1),colormagenta; //近一低

var39:=var1;//var1
B:=var39*0;//0
FOR I=13+1 TO DATACOUNT DO BEGIN //+1
IF var39[I]>var39[I-1] THEN //+=
B[I]:=1;ELSE
IF var39[I]<var39[I-1] THEN
B[I]:=-1;ELSE
B[I]:=B[I-1];
END;
fillrgn(b=1,var1,var4),colorbrown;
請問總版主上面這一段加上去就會出現指標組數下標越界請問應如何改謝謝

回覆: 指標組數下標越界請問應如何改謝謝

引用:

---

最初由 UMYNEWS 發表
MM:=ref(l,2)<l and ref(l,4)>ref(l,2) and ref(l,3)>ref(l,2) and ref(l,2)<ref(l,1);
XX:=SGN(MM);
CK:=if(XX,XX,0);
SP:=barslast(CK);
MLP:=LLvbars(L,SP+1);
RCK:=refx(CK,1);
LPP:=SETVAL(RCK=1,0,-MLP,barpos-MLP);;
CKH:=LPP=barpos;
var1:=ref(l,sumbars(CKH,1)-1)colorcyan; //近一高

MM2:=ref(h,2)>h and ref(h,4)<ref(h,2) and ref(h,3)<ref(h,2) and ref(h,2)>ref(h,1);
XX2:=SGN(MM2);
CK2:=if(XX2,XX2,0);
SP2:=barslast(CK2);
MHP:=hhvbars(H,SP2+1);
RCK2:=refx(CK2,1);
HPP:=SETVAL(RCK2=1,0,-MHP,barpos-MHP);;
CKH2:=HPP=barpos;
var4:=ref(h,sumbars(CKH2,1)-1),colormagenta; //近一低

var39:=var1;//var1
B:=var39*0;//0
FOR I=13+1 TO DATACOUNT DO BEGIN //+1
IF var39[I]>var39[I-1] THEN //+=
B[I]:=1;ELSE
IF var39[I]<var39[I-1] THEN
B[I]:=-1;ELSE
B[I]:=B[I-1];
END;
fillrgn(b=1,var1,var4),colorbrown;
請問總版主上面這一段加上去就會出現指標組數下標越界請問應如何改謝謝

---

謝謝 總版主 no.1