奇狐社區論壇 - 單值改數列,請幫忙

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

由 Markchu7 在 2025-09-24 20:23 發表:

單值改數列,請幫忙

FK:=BARPOS=1 or ref(time,1)<084500 and time>=084500;
DBCK:=if(datatype=0 or datatype=12,FK,IF(datatype=1 or datatype=11 or datatype=2,TradeDate<>REF(TradeDate,1) or IsRegularFBar,BARPOS=1));
B_DBCK:=BARSLAST(DBCK);
CKSP:=B_DBCK+1,LINETHICK;
日盤時間:=TIME>=084500 AND TIME<=134500;
外盤:=IF(日盤時間,STKINDI('FITX1','新盤差引用.外盤(0)',0,0),STKINDI('FITX1+','新盤差引用.外盤(0)',0,0)),COLORRED,LINETHICK0;//一定要這樣寫否則會叫到FITX1+夜盤首K數據
內盤:=IF(日盤時間,STKINDI('FITX1','新盤差引用.內盤(1)',0,0),STKINDI('FITX1+','新盤差引用.內盤(1)',0,0)),COLORBLUE,LINETHICK0;//一定要這樣寫否則會叫到FITX1+夜盤首K數據
POWER:(外盤-內盤),COLOR000000,LINETHICK2;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
NN:=500; Now籌碼多空:=0;
ZAry:=POWER*0; ST:=lbound(ZAry);
F多守:POWER[ST]-NN,COLORRED; F空守:POWER[ST]+NN,COLORBLUE;
籌碼多空:ZAry ,COLOR000000,LINETHICK,NOAXIS;
籌守:ZAry COLOR000000,LINETHICK1;
for i= ST+1 to datacount do begin
籌碼多空[i]:=Now籌碼多空;
if Now籌碼多空=0 then begin //初始
籌碼多空[i]:=(POWER[i]>F空守 and POWER[i-1]<=F空守)-(F多守>POWER[i] and F多守<=POWER[i-1]);
if 籌碼多空[i]<>0 then 籌守[i]:=POWER[i]-籌碼多空[i]*NN;
end else if Now籌碼多空=1 then begin //多方
籌守[i]:=max(POWER[i]-NN,籌守[i-1]);
if POWER[i]<籌守[i] and POWER[i-1]>=籌守[i-1] then begin //多轉空
籌碼多空[i]:=-1; 籌守[i]:=POWER[i]+NN;
end;
end else if Now籌碼多空=-1 then begin //空方
籌守[i]:=min(POWER[i]+NN,籌守[i-1]);
if POWER[i]>籌守[i] and POWER[i-1]<=籌守[i-1] then begin //空轉多
籌碼多空[i]:=1; 籌守[i]:=POWER[i]-NN;
end;
end;
Now籌碼多空:=籌碼多空[i];
end;
破過:(ref(籌碼多空,1)<>籌碼多空)*籌碼多空;
VERTLINE(破過=1),COLORRED;
VERTLINE(破過=-1),COLORBLUE,LINEDOT;
///////以上為總版主之前指導的公式,算法參數都沒變動,只改成自己容易理解記憶的變數名稱,SORRY!我找不到原PO文!
///////以下是將單值更改為數列所需的算法與參數
POWER_DBCK:=REF(POWER,BARSLAST(DBCK));
NN_變動:=IF(CKSP<5,500,IF(CKSP<8,250,125)),COLORBLUE;
NN啟動:=SUM(POWER>(POWER_DBCK+NN_變動),CKSP)>0 OR SUM(POWER<(POWER_DBCK-NN_變動),CKSP)>0;
F空守X:(POWER_DBCK+NN_變動),COLORBLUE,LINEDOT;
F多守X:(POWER_DBCK-NN_變動),COLORRED ,LINEDOT;
VERTLINE(CROSS(SUM(POWER>(POWER_DBCK+NN_變動),CKSP)>0 OR SUM(POWER<(POWER_DBCK-NN_變動),CKSP)=1,0.8)),COLOR000000,LINEDASH;//<---標示新NN的第一個位置
NN:=IF(NN啟動=0,NN_變動,500);<--想把NN更改成這樣

再次麻煩總版主,感謝萬分!

由 cgjj 在 2025-09-25 08:59 發表:

回覆: 單值改數列,請幫忙

引用:
最初由 Markchu7 發表
FK:=BARPOS=1 or ref(time,1)<084500 and time>=084500;
DBCK:=if(datatype=0 or datatype=12,FK,IF(datatype=1 or datatype=11 or datatype=2,TradeDate<>REF(TradeDate,1) or IsRegularFBar,BARPOS=1));
B_DBCK:=BARSLAST(DBCK);
CKSP:=B_DBCK+1,LINETHICK;
日盤時間:=TIME>=084500 AND TIME<=134500;
外盤:=IF(日盤時間,STKINDI('FITX1','新盤差引用.外盤(0)',0,0),STKINDI('FITX1+','新盤差引用.外盤(0)',0,0)),COLORRED,LINETHICK0;//一定要這樣寫否則會叫到FITX1+夜盤首K數據
內盤:=IF(日盤時間,STKINDI('FITX1','新盤差引用.內盤(1)',0,0),STKINDI('FITX1+','新盤差引用.內盤(1)',0,0)),COLORBLUE,LINETHICK0;//一定要這樣寫否則會叫到FITX1+夜盤首K數據
POWER:(外盤-內盤),COLOR000000,LINETHICK2;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
NN:=500; Now籌碼多空:=0;
ZAry:=POWER*0; ST:=lbound(ZAry);
F多守:POWER[ST]-NN,COLORRED; F空守:POWER[ST]+NN,COLORBLUE;
籌碼多空:ZAry ,COLOR000000,LINETHICK,NOAXIS;
籌守:ZAry COLOR000000,LINETHICK1;
for i= ST+1 to datacount do begin
籌碼多空[i]:=Now籌碼多空;
if Now籌碼多空=0 then begin //初始
籌碼多空[i]:=(POWER[i]>F空守 and POWER[i-1]<=F空守)-(F多守>POWER[i] and F多守<=POWER[i-1]);
if 籌碼多空[i]<>0 then 籌守[i]:=POWER[i]-籌碼多空[i]*NN;
end else if Now籌碼多空=1 then begin //多方
籌守[i]:=max(POWER[i]-NN,籌守[i-1]);
if POWER[i]<籌守[i] and POWER[i-1]>=籌守[i-1] then begin //多轉空
籌碼多空[i]:=-1; 籌守[i]:=POWER[i]+NN;
end;
end else if Now籌碼多空=-1 then begin //空方
籌守[i]:=min(POWER[i]+NN,籌守[i-1]);
if POWER[i]>籌守[i] and POWER[i-1]<=籌守[i-1] then begin //空轉多
籌碼多空[i]:=1; 籌守[i]:=POWER[i]-NN;
end;
end;
Now籌碼多空:=籌碼多空[i];
end;
破過:(ref(籌碼多空,1)<>籌碼多空)*籌碼多空;
VERTLINE(破過=1),COLORRED;
VERTLINE(破過=-1),COLORBLUE,LINEDOT;
///////以上為總版主之前指導的公式,算法參數都沒變動,只改成自己容易理解記憶的變數名稱,SORRY!我找不到原PO文!
///////以下是將單值更改為數列所需的算法與參數
POWER_DBCK:=REF(POWER,BARSLAST(DBCK));
NN_變動:=IF(CKSP<5,500,IF(CKSP<8,250,125)),COLORBLUE;
NN啟動:=SUM(POWER>(POWER_DBCK+NN_變動),CKSP)>0 OR SUM(POWER<(POWER_DBCK-NN_變動),CKSP)>0;
F空守X:(POWER_DBCK+NN_變動),COLORBLUE,LINEDOT;
F多守X:(POWER_DBCK-NN_變動),COLORRED ,LINEDOT;
VERTLINE(CROSS(SUM(POWER>(POWER_DBCK+NN_變動),CKSP)>0 OR SUM(POWER<(POWER_DBCK-NN_變動),CKSP)=1,0.8)),COLOR000000,LINEDASH;//<---標示新NN的第一個位置
NN:=IF(NN啟動=0,NN_變動,500);<--想把NN更改成這樣

再次麻煩總版主,感謝萬分!

原碼:FK:=BARPOS=1 or ref(time,1)<084500 and time>=084500;
DBCK:=if(datatype=0 or datatype=12,FK,IF(datatype=1 or datatype=11 or datatype=2,TradeDate<>REF(TradeDate,1) or IsRegularFBar,BARPOS=1));
B_DBCK:=BARSLAST(DBCK);
CKSP:=B_DBCK+1,LINETHICK;
日盤時間:=TIME>=084500 AND TIME<=134500;
外盤:=IF(日盤時間,STKINDI('FITX1','新盤差引用.外盤(0)',0,0),STKINDI('FITX1+','新盤差引用.外盤(0)',0,0)),COLORRED,LINETHICK0;//一定要這樣寫否則會叫到FITX1+夜盤首K數據
內盤:=IF(日盤時間,STKINDI('FITX1','新盤差引用.內盤(1)',0,0),STKINDI('FITX1+','新盤差引用.內盤(1)',0,0)),COLORBLUE,LINETHICK0;//一定要這樣寫否則會叫到FITX1+夜盤首K數據
POWER:(外盤-內盤),COLOR000000,LINETHICK2;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
POWER_DBCK:=REF(POWER,BARSLAST(DBCK));
NN_變動:=IF(CKSP<5,500,IF(CKSP<8,250,125)),COLORBLUE;
NN啟動:=SUM(POWER>(POWER_DBCK+NN_變動),CKSP)>0 OR SUM(POWER<(POWER_DBCK-NN_變動),CKSP)>0;
F空守X:(POWER_DBCK+NN_變動),COLORBLUE,LINEDOT;
F多守X:(POWER_DBCK-NN_變動),COLORRED ,LINEDOT;
VERTLINE(CROSS(SUM(POWER>(POWER_DBCK+NN_變動),CKSP)>0 OR SUM(POWER<(POWER_DBCK-NN_變動),CKSP)=1,0.8)),COLOR000000,LINEDASH;//<---標示新NN的第一個位置
NN:=IF(NN啟動=0,NN_變動,500);
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Now籌碼多空:=0;
ZAry:=POWER*0; ST:=lbound(ZAry);
F多守:POWER[ST]-NN[ST],COLORRED; F空守:POWER[ST]+NN[ST],COLORBLUE;
籌碼多空:ZAry ,COLOR000000,LINETHICK,NOAXIS;
籌守:ZAry COLOR000000,LINETHICK1;
for i= ST+1 to datacount do begin
籌碼多空[i]:=Now籌碼多空;
if Now籌碼多空=0 then begin //初始
籌碼多空[i]:=(POWER[i]>F空守 and POWER[i-1]<=F空守)-(F多守>POWER[i] and F多守<=POWER[i-1]);
if 籌碼多空[i]<>0 then 籌守[i]:=POWER[i]-籌碼多空[i]*NN[i];
end else if Now籌碼多空=1 then begin //多方
籌守[i]:=max(POWER[i]-NN[i],籌守[i-1]);
if POWER[i]<籌守[i] and POWER[i-1]>=籌守[i-1] then begin //多轉空
籌碼多空[i]:=-1; 籌守[i]:=POWER[i]+NN[i];
end;
end else if Now籌碼多空=-1 then begin //空方
籌守[i]:=min(POWER[i]+NN[i],籌守[i-1]);
if POWER[i]>籌守[i] and POWER[i-1]<=籌守[i-1] then begin //空轉多
籌碼多空[i]:=1; 籌守[i]:=POWER[i]-NN[i];
end;
end;
Now籌碼多空:=籌碼多空[i];
end;
破過:(ref(籌碼多空,1)<>籌碼多空)*籌碼多空;
VERTLINE(破過=1),COLORRED;
VERTLINE(破過=-1),COLORBLUE,LINEDOT;

由 Markchu7 在 2025-09-25 09:03 發表:

感謝總版主協助!我再學習學習!

由 Markchu7 在 2025-09-25 09:19 發表:

好像沒有達到希望的結果!可以請總版主再幫我看看嗎?
垂直長虛線應該才是第一個'籌碼多空<>0'的K棒!
謝謝!

由 cgjj 在 2025-09-25 09:27 發表:

你的公式看起來，無論在台當月或台當月+ 都只有在日盤會顯示結果

估計可將:
外盤:=IF(日盤時間,STKINDI('FITX1','新盤差引用.外盤(0)',0,0),STKINDI('FITX1+','新盤差引用.外盤(0)',0,0)),COLORRED,LINETHICK0;//一定要這樣寫否則會叫到FITX1+夜盤首K數據
內盤:=IF(日盤時間,STKINDI('FITX1','新盤差引用.內盤(1)',0,0),STKINDI('FITX1+','新盤差引用.內盤(1)',0,0)),COLORBLUE,LINETHICK0;//一定要這樣寫否則會叫到FITX1+夜盤首K數據

直接簡化為這樣:
外盤:=STKINDI('FITX1','新盤差引用.外盤(0)',0,0);
內盤:=STKINDI('FITX1','新盤差引用.內盤(1)',0,0);

由 cgjj 在 2025-09-25 09:29 發表:

引用:
最初由 Markchu7 發表
好像沒有達到希望的結果!可以請總版主再幫我看看嗎?
垂直長虛線應該才是第一個'籌碼多空<>0'的K棒!
謝謝!

原碼:POWER_DBCK:=REF(POWER,BARSLAST(DBCK));
NN_變動:=IF(CKSP<5,500,IF(CKSP<8,250,125)),COLORBLUE;
NN啟動:=SUM(POWER>(POWER_DBCK+NN_變動),CKSP)>0 OR SUM(POWER<(POWER_DBCK-NN_變動),CKSP)>0;
F空守X:(POWER_DBCK+NN_變動),COLORBLUE,LINEDOT;
F多守X:(POWER_DBCK-NN_變動),COLORRED ,LINEDOT;
VERTLINE(CROSS(SUM(POWER>(POWER_DBCK+NN_變動),CKSP)>0 OR SUM(POWER<(POWER_DBCK-NN_變動),CKSP)=1,0.8)),COLOR000000,LINEDASH;//<---標示新NN的第一個位置
NN:=IF(NN啟動=0,NN_變動,500);

這一段是你自己定義的呀，我沒變動唷~

由 Markchu7 在 2025-09-25 09:30 發表:

謝謝總版主的指導協助!
優化公式是我迫切需要的!

由 Markchu7 在 2025-09-25 09:46 發表:

嗯,必須說以我的程度是無法明瞭問題出在那裏?
標題之所以為'單值改數列'是因為我自己嘗試直接將NN以'IF(CKSP<5,500,IF(CKSP<8,250,125))'這樣的寫法帶入公式中,結果出現必須是單值的警語!所以才用如此的標題!也許不只是單值或數列的問題而已!
不知總版主能否依照我的思路規則,幫我寫這個公式,達到我要的效果!
萬分感謝!

由 cgjj 在 2025-09-25 10:09 發表:

引用:
最初由 Markchu7 發表
嗯,必須說以我的程度是無法明瞭問題出在那裏?
標題之所以為'單值改數列'是因為我自己嘗試直接將NN以'IF(CKSP<5,500,IF(CKSP<8,250,125))'這樣的寫法帶入公式中,結果出現必須是單值的警語!所以才用如此的標題!也許不只是單值或數列的問題而已!
不知總版主能否依照我的思路規則,幫我寫這個公式,達到我要的效果!
萬分感謝!

不是程式問題呀!

按此規則
籌碼多空[i]:=(POWER[i]>F空守 and POWER[i-1]<=F空守)-(F多守>POWER[i] and F多守<=POWER[i-1]);

亦即
若 POWER[i]>F空守 and POWER[i-1]<=F空守則籌碼多空[i]=1
若 F多守>POWER[i] and F多守<=POWER[i-1] 則籌碼多空[i]=-1

故那一段籌碼多空必為零
因為 POWER 線持續在 F多守和 F空守之間

自己定義的規則，自己要理清楚呀~~

由 Markchu7 在 2025-09-25 10:29 發表:

收到!
讓我再弄清楚一點!再來麻煩總版主!
感謝!

全部時間均為台灣時間, 現在時間為15:54

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