到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料，查看短訊，訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 問題交流 > 單值改數列,請幫忙
  上一主題   下一主題
作者
主題 發表新主題    回覆主題
Markchu7
資深會員

註冊日期: Nov 2007
來　　自:
文章數量: 1518
單值改數列,請幫忙

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更改成這樣

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

Markchu7 附帶上了此圖片:

向版主報告此篇 | 查IP位址
Old Post 2025-09-24 20:23
Markchu7 現在離線 點選這裡查看 Markchu7 的個人資料 點選這裡給 Markchu7 傳送一條短訊 查找更多關於 Markchu7 的文章 增加 Markchu7 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18190
回覆: 單值改數列,請幫忙

引用:
最初由 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;

向版主報告此篇 | 查IP位址
Old Post 2025-09-25 08:59
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
Markchu7
資深會員

註冊日期: Nov 2007
來　　自:
文章數量: 1518

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

向版主報告此篇 | 查IP位址
Old Post 2025-09-25 09:03
Markchu7 現在離線 點選這裡查看 Markchu7 的個人資料 點選這裡給 Markchu7 傳送一條短訊 查找更多關於 Markchu7 的文章 增加 Markchu7 至你的好友列表 編輯/刪除訊息 引用回覆
Markchu7
資深會員

註冊日期: Nov 2007
來　　自:
文章數量: 1518

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

Markchu7 附帶上了此圖片:

向版主報告此篇 | 查IP位址
Old Post 2025-09-25 09:19
Markchu7 現在離線 點選這裡查看 Markchu7 的個人資料 點選這裡給 Markchu7 傳送一條短訊 查找更多關於 Markchu7 的文章 增加 Markchu7 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18190

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

估計可將:
外盤:=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);

向版主報告此篇 | 查IP位址
Old Post 2025-09-25 09:27
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18190

引用:
最初由 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);


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

向版主報告此篇 | 查IP位址
Old Post 2025-09-25 09:29
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
Markchu7
資深會員

註冊日期: Nov 2007
來　　自:
文章數量: 1518

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

向版主報告此篇 | 查IP位址
Old Post 2025-09-25 09:30
Markchu7 現在離線 點選這裡查看 Markchu7 的個人資料 點選這裡給 Markchu7 傳送一條短訊 查找更多關於 Markchu7 的文章 增加 Markchu7 至你的好友列表 編輯/刪除訊息 引用回覆
Markchu7
資深會員

註冊日期: Nov 2007
來　　自:
文章數量: 1518

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

向版主報告此篇 | 查IP位址
Old Post 2025-09-25 09:46
Markchu7 現在離線 點選這裡查看 Markchu7 的個人資料 點選這裡給 Markchu7 傳送一條短訊 查找更多關於 Markchu7 的文章 增加 Markchu7 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18190

引用:
最初由 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空守 之間

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

向版主報告此篇 | 查IP位址
Old Post 2025-09-25 10:09
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
Markchu7
資深會員

註冊日期: Nov 2007
來　　自:
文章數量: 1518

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

向版主報告此篇 | 查IP位址
Old Post 2025-09-25 10:29
Markchu7 現在離線 點選這裡查看 Markchu7 的個人資料 點選這裡給 Markchu7 傳送一條短訊 查找更多關於 Markchu7 的文章 增加 Markchu7 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為15:54 發表新主題    回覆主題
  上一主題   下一主題
顯示可列印版本 | 訂閱此主題

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章 		HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准
 

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.  聯絡我們