 |
UMYNEWS
初級會員

註冊日期: May 2005
來 自:
文章數量: 28 |
|
指標組數下標越界請問應如何改謝謝
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;
請問總版主上面這一段加上去就會出現指標組數下標越界請問應如何改謝謝
|
|
向版主報告此篇 |  |
|
2020-09-28 16:26 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18235 |
|
回覆: 指標組數下標越界請問應如何改謝謝
引用: 最初由 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;
請問總版主上面這一段加上去就會出現指標組數下標越界請問應如何改謝謝
把 13
改為 lbound(var39)
|
|
向版主報告此篇 |  |
|
2020-09-28 18:01 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|