奇狐社區論壇 - 下標越界的問題請求解決

奇狐社區論壇 (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=23780)

由 tycoon868 在 2023-10-24 16:02 發表:

下標越界的問題請求解決

持有=46

多空:=SGN(持有),linethick; //只是持有期返回 1作多,0休,-1作空

倉位=7

以上三個數據確認絕對沒有錯誤(我這邊有截圖為證，但論壇上傳無法成功)，當中的演算過程不想公開，請版主見諒

貼上以下原碼出錯: 數組下標越界或超出有效數據區間

*********************************************************************************************************************************

ZeroAry:=多空*1;
累成:=ZeroAry linethick,color006699; //累計持倉總成本
均成:=ZeroAry linethick,colorff00ff; //平均每口成本
平倉扣:=ZeroAry linethick,color009999; //平倉需扣除的累積成本
已平盈:=ZeroAry linethick,color0099ff; //已平倉盈虧
未平盈:=ZeroAry linethick,color6600ff; //未平倉盈虧

StPos:=lbound(多空); //返回序列的下標=多空倉位的起始點位
CC:=C; Old倉位:=0; //一律使用收盤價計算、前一個倉位數
累成本:=0; Old多空:=0; 均成本:=0;//Old多空為 1,0,-1(定調前一筆多空狀態)
for i=StPos to datacount do begin //多空起始點位to datacount(所有K棒數量)
if 多空[i]<>Old多空 or i=StPos then begin //多空起始點出現變化
if Old倉位<>0 then begin //倉位突破0(出現新倉)
平倉量:=ABS(Old倉位);//多空方的平倉一起處理
平倉扣[i]:=均成本*平倉量;//平倉時應扣除的累積持有成本
已平盈[i]:=(CC[i]-均成本)*平倉量*Old多空;//Old多空==賣出當下前一筆K棒所處的多空狀態
end;
Old多空:=多空[i]; Old倉位:=0; 累成本:=0; 均成本:=0;
end;
if 多空[i]<>0 then begin//目前處在多空倉持有期(並非休息中)
增減:=SGN(倉位[i]-Old倉位);//將多空增減倉簡化成三種情況 1增加、0不變、-1減少
if 增減=多空[i] then begin //增倉與多空方向同步
累成本:=累成本+CC[i]*ABS(倉位[i]-Old倉位);//累積成本=已累積成本+出現倉位變動時的成本變動
end else if 增減=-多空[i] then begin //增倉與多空方向不同步
平倉量:=ABS(Old倉位-倉位[i]);//減倉的數量
平倉扣[i]:=均成本*平倉量;//減倉應扣除的成本
累成本:=累成本-平倉扣[i];//更新累積成本=原來的累積成本-平倉應扣除的成本
已平盈[i]:=(CC[i]-均成本)*平倉量*多空[i];//已平倉盈虧=減倉量*成本與收盤價的差異
end; //靠多空[i] +1 或 -1 來整併在同一運算式中
Old倉位:=倉位[i];
均成本:=ROUND(累成本/ABS(倉位[i]));//平均持有成本=累積成本除上當下倉位(四捨五入
未平盈[i]:=(CC[i]-均成本)*倉位[i];//未平倉盈餘=(收盤價-當下持有成本)*現有倉位
累成[i]:=累成本; 均成[i]:=均成本;
end;
end;

****************************************************************************************************************************************
總版主您好:

這是您之前幫我作的迴圈，我使用過程曾經多次成功，但後來因為改變了倉位計算方式，已經出現過無數次相同錯誤(下標越界)

我為了這段過程已經歷盡折騰，我盼望您可以幫我解決上面這段原瑪錯誤

這套演算法跑出來的倉位都落在作多 0~10之間，作空 0~-10之間，持有期就是單純的 +-整數

拜託您直接幫我修改

感謝

由 cgjj 在 2023-10-24 16:19 發表:

回覆: 下標越界的問題請求解決

引用:
最初由 tycoon868 發表
持有=46

多空:=SGN(持有),linethick; //只是持有期返回 1作多,0休,-1作空

倉位=7

以上三個數據確認絕對沒有錯誤(我這邊有截圖為證，但論壇上傳無法成功)，當中的演算過程不想公開，請版主見諒

貼上以下原碼出錯: 數組下標越界或超出有效數據區間

*********************************************************************************************************************************

ZeroAry:=多空*1;
累成:=ZeroAry linethick,color006699; //累計持倉總成本
均成:=ZeroAry linethick,colorff00ff; //平均每口成本
平倉扣:=ZeroAry linethick,color009999; //平倉需扣除的累積成本
已平盈:=ZeroAry linethick,color0099ff; //已平倉盈虧
未平盈:=ZeroAry linethick,color6600ff; //未平倉盈虧

StPos:=lbound(多空); //返回序列的下標=多空倉位的起始點位
CC:=C; Old倉位:=0; //一律使用收盤價計算、前一個倉位數
累成本:=0; Old多空:=0; 均成本:=0;//Old多空為 1,0,-1(定調前一筆多空狀態)
for i=StPos to datacount do begin //多空起始點位to datacount(所有K棒數量)
if 多空[i]<>Old多空 or i=StPos then begin //多空起始點出現變化
if Old倉位<>0 then begin //倉位突破0(出現新倉)
平倉量:=ABS(Old倉位);//多空方的平倉一起處理
平倉扣[i]:=均成本*平倉量;//平倉時應扣除的累積持有成本
已平盈[i]:=(CC[i]-均成本)*平倉量*Old多空;//Old多空==賣出當下前一筆K棒所處的多空狀態
end;
Old多空:=多空[i]; Old倉位:=0; 累成本:=0; 均成本:=0;
end;
if 多空[i]<>0 then begin//目前處在多空倉持有期(並非休息中)
增減:=SGN(倉位[i]-Old倉位);//將多空增減倉簡化成三種情況 1增加、0不變、-1減少
if 增減=多空[i] then begin //增倉與多空方向同步
累成本:=累成本+CC[i]*ABS(倉位[i]-Old倉位);//累積成本=已累積成本+出現倉位變動時的成本變動
end else if 增減=-多空[i] then begin //增倉與多空方向不同步
平倉量:=ABS(Old倉位-倉位[i]);//減倉的數量
平倉扣[i]:=均成本*平倉量;//減倉應扣除的成本
累成本:=累成本-平倉扣[i];//更新累積成本=原來的累積成本-平倉應扣除的成本
已平盈[i]:=(CC[i]-均成本)*平倉量*多空[i];//已平倉盈虧=減倉量*成本與收盤價的差異
end; //靠多空[i] +1 或 -1 來整併在同一運算式中
Old倉位:=倉位[i];
均成本:=ROUND(累成本/ABS(倉位[i]));//平均持有成本=累積成本除上當下倉位(四捨五入
未平盈[i]:=(CC[i]-均成本)*倉位[i];//未平倉盈餘=(收盤價-當下持有成本)*現有倉位
累成[i]:=累成本; 均成[i]:=均成本;
end;
end;

****************************************************************************************************************************************
總版主您好:

這是您之前幫我作的迴圈，我使用過程曾經多次成功，但後來因為改變了倉位計算方式，已經出現過無數次相同錯誤(下標越界)

我為了這段過程已經歷盡折騰，我盼望您可以幫我解決上面這段原瑪錯誤

這套演算法跑出來的倉位都落在作多 0~10之間，作空 0~-10之間，持有期就是單純的 +-整數

拜託您直接幫我修改

感謝

目前看到的問題是~~
倉位這個變數沒有被先定義為數列!
就直接採倉位[i] 去存取
且迴圈裏面也無更新倉位的相關動作

另外 ZeroAry:=多空*1;
應該是 ZeroAry:=多空*0;
才對吧!!!

由 tycoon868 在 2023-10-24 16:27 發表:

報告總版主

我保證我的倉位數據非常正常，都有如我所願跑出 -10~+10

可否具體一點舉出我的錯誤呢?

我實在是不會迴圈寫法啊，這一整組迴圈原碼都是版主給我的我直接沿用(它曾經運作成功啊?)

拜託直接幫我修改(我是一個只懂一點技術分析，不會寫程式的十五年忠實用戶)

由 cgjj 在 2023-10-24 16:38 發表:

引用:
最初由 tycoon868 發表
ZeroAry:=多空*0; 這是我嘗試除錯用的，已經改回來了，還是出現錯誤

部分原碼開始

Bullcon:=(DPS>=0or MBPS>=0)*1+(DP1>=0or MBP1>=0)*1+(粉速>=0)*1+(藍速>=0)*1+(紫速>=0)*1,linethick;//持有1的過濾條件
Bearcon:=(DPS<0or MBPS<0)*1+(DP1<0or MBP1<0)*1+(粉速<0)*1+(藍速<0)*1+(紫速<0)*1,linethick;//雙扣雙速四分為主+紫速補強

Bullgo:=動力>30or (Between(動力,0,30)and (Bullcon)>=4);//30分為啟動條件與基本條件，加入Bullcon陡發條件來穩住剛啟動時的震盪跌破30
Beargo:=動力<-30or (Between(動力,0,-30)and (Bearcon)>=4);//一律取用正分比較好理解

Bullstart:=動力>=30and 三水正>=6and Bullcon>=4and 粉速>=0;//經過比對採用Cross法落差不大，此法可以補遺漏
Bearstart:=動力<-30and 三水負>=6and Bearcon>=4and 粉速<0;//一律需要達到雙扣雙速條件，寧缺毋濫

BullB:=Bullstart=1; BullBSP:=barslast(BullB);//持有1嚴格化至關重要，全日盤三分K有很多波
BullB:=Sum(Bullgo=1 ,BullBSP+1)=BullBSP+1;//此一條件持有期如果歸零，也可以立即補上重新持有1
Bullhold:=barslast(BullB=0);//不可以讓公雞在半夜亂叫一通

BearB:=Bearstart=1; BearBSP:=barslast(BearB);
BearB:=Sum(Beargo=1 ,BearBSP+1)=BearBSP+1;
Bearhold:=barslast(BearB=0);

持有:Bullhold-Bearhold,color009933,precision0,linethick0;//整段操作週期的時間指標，全系統第一時間節奏指標

BullTPR:=(粉速>=0or 藍速>=0or 紫速>=0)and 動力>=60;//動力60以上都算強勢，三均軸只是要過濾高檔震盪三均同步向下格局
BearTPR:=(粉速<0or 藍速<0or 紫速<0)and 動力<=-60;//TPR=最佳收立/風險值的時間點

倉正:=(藍分>=0)*1+(一藍速>=0)*1+(紫分>=0)*1+(二紫速>=0)*1+(卡分>=0)*1+(三卡速>=0)*1+(紅分>=0)*1+(四紅速>=0)*1+
(褐分>=0)*1+(五褐速>=0)*1+(橘分>=0)*1+(六橘速>=0)*1-2,linethick,colorff00ff;//六乖+六本脈均速構成12分倉位

倉負:=(藍分<0)*-1+(一藍速<0)*-1+(紫分<0)*-1+(二紫速<0)*-1+(卡分<0)*-1+(三卡速<0)*-1+(紅分<0)*-1+(四紅速<0)*-1+
(褐分<0)*-1+(五褐速<0)*-1+(橘分<0)*-1+(六橘速<0)*-1+2,linethick,colorffff00;//空倉還是以負數表示為佳

多減:=(DPS<0)*-1+(DP1<0)*-1+(DP2<0)*-1+(MBPS<0)*-1+(MBP1<0)*-1+(MBP2<0)*-1+//作為減倉的六短四中共十個條件
(粉速<0)*-1+(粉差<0)*-1+(藍速<0)*-1+(藍差<0)*-1,linethick,coloryellow;
空減:=(DPS>=0)*1+(DP1>=0)*1+(DP2>=0)*1+(MBPS>=0)*1+(MBP1>=0)*1+(MBP2>=0)*1+//作為減倉的六短四中共十個條件
(粉速>=0)*1+(粉差>=0)*1+(藍速>=0)*1+(藍差>=0)*1,linethick,colorgreen;

多減倉:=IF(倉正>0,多減,0),linethick,coloryellow;//首先需要先有倉，才能作減倉
空減倉:=IF(倉正<0,空減,0),linethick,colorgreen;

多倉:=倉正+多減倉;//增倉+多減倉=當下作多倉分，倉正本身也自帶增減倉功能(尤其是紅橘區)
多常:=IF(持有>=1and 多倉>0,多倉,0),linethick;//正常情況下的倉位
多基:=IF(持有>=1and 多倉<=0,1,0);//情況一持有1條件不成熟，至少先給一倉作為績效起頭(成本線與績效統計需要)
//情況二持有尚未歸零之前至少留一倉
空倉:=倉負+空減倉;
空常:=IF(持有<=-1and 空倉<0,空倉,0),linethick;//正常情況下的倉位
空基:=IF(持有<=-1and 空倉>=0,-1,0);//例外情況的補強處理

多分:=多常+多基,linethick;
空分:=空常+空基,linethick;
多空:=SGN(持有),linethick; //只是將將持有期返回 1作多,0休,-1作空

倉分:=多分*(多空=1)+空分*(多空=-1),linethick0,coloryellow;//將多分、空分直接轉化成正負倉位

多發期:=持有>0and Sum(粉速<=0,持有)=0,linethick;//多發條件=粉速不曾轉負值過
多修期:=持有>0and Sum(粉速<=0,持有)>=1,linethick;//只要曾經粉速轉負，從此就進入減倉期
空發期:=持有<0and Sum(粉速>=0,持有)=0,linethick;
空修期:=持有<0and Sum(粉速>=0,持有)>=1,linethick;

多衝:=持有>0and 多發期=1,linethick,coloryellow;
多衝數:=IF(持有>0and 多發期=1,Barslast(Cross(多衝,0.1))+1,0),linethick,coloryellow;
多修:=持有>0and 多修期=1,linethick,colorgreen;
多修數:=IF(持有>0and 多修期=1,Barslast(Cross(多修,0.1))+1,0),linethick,colorgreen;
多衝倉:=IF(多衝數>0,HHV(倉分,多衝數),0),linethick,colorff00ff;//處在多發期時只增不減
多修倉:=IF(多修數>0,LLV(倉分,多修數),0),linethick,coloryellow;//處在非多發期只減不增

空衝:=持有<0and 空發期=1,linethick,coloryellow;
空衝數:=IF(持有<0and 空發期=1,Barslast(Cross(空衝,0.1))+1,0),linethick,coloryellow;
空修:=持有<0and 空發期=1,linethick,coloryellow;
空修數:=IF(持有<0and 空修期=1,Barslast(Cross(空修,0.1))+1,0),linethick,colorgreen;
空衝倉:=IF(空衝數>0,LLV(倉分,空衝數),0),linethick,colorff00ff;
空修倉:=IF(空修數>0,HHV(倉分,空修數),0),linethick,coloryellow;

倉位:多衝倉+多修倉+空衝倉+空修倉,linethick0,color33cc00;//將多分、空分直接轉化成正負倉位

部分原碼結束

報告總版主

我保證我的倉位數據非常正常，都有如我所願跑出 -10~+10

可否具體一點舉出我的錯誤呢?

我實在是不會迴圈寫法啊，這一整組迴圈原碼都是版主給我的我直接沿用(它曾經運作成功啊?)

拜託直接幫我修改

估計 "倉位" 數列的起點，不等於 "多空" 數列的起點，故會引起越界問題

請在 for i=StPos to datacount do begin 這行的前面，加上下面這一行試試
倉位:=if(barpos<=lbound(倉位),ZeroAry,倉位);

另外 ZeroAry:=多空*1;
應該是 ZeroAry:=多空*0; 才對吧!!!

由 tycoon868 在 2023-10-24 19:29 發表:

解決了
感謝總版主

由 Markchu7 在 2023-10-25 08:38 發表:

雖然我真的看不懂!但是真心實意的覺得厲害!
讚!

全部時間均為台灣時間, 現在時間為18:20

在這個頁面顯示本主題全部的 6 個文章