![]() |
總頁數 (2): [1] 2 » 在這個頁面顯示本主題全部的 26 個文章 |
奇狐社區論壇 (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=23875)
[問題]以前蒙總版主協助之公式再請協助
分鐘首K:=ISREGULARFBAR;
換日首K:=TRADEDATE<>REF(TRADEDATE,1);
歷史首K:=BARPOS=1;
DBCK:=IF((DATATYPE=1 OR DATATYPE=12) AND STKLABEL='FITX1+',TIME=084600 OR TIME=150100,IF(DATATYPE=1 OR DATATYPE=11 OR DATATYPE=2,分鐘首K OR 換日首K,歷史首K)),LINETHICK;
CKSP:=BARSLAST(DBCK)+1,LINETHICK;
外盤:=STKINDI('','新盤差引用.外盤(0)',0,0),COLORRED,LINETHICK0;
內盤:=STKINDI('','新盤差引用.內盤(1)',0,0),COLORBLUE,LINETHICK0;
POWER:(外盤-內盤),COLOR000000,LINETHICK2;
NN:=300; Now多空:=0;
ZAry:=POWER*0; ST:=lbound(ZAry);
F多守:=POWER[ST]-NN; F空守:=POWER[ST]+NN;
多空:ZAry linethick;
籌守:ZAry linethick COLOR000000;
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;
PARTLINE(多空=0,F多守) COLORBLUE,LINEDOT;
PARTLINE(多空=0,F空守) COLORRED,LINEDOT;
PARTLINE(sum(多空<>0,2)=2,籌守) COLOR000000,LINEDOT;
1,以上公式中的常數NN可否是數列?
附圖是將'盤差'改為'收盤價'帶入!
以下是源碼!
分鐘首K:=ISREGULARFBAR;
換日首K:=TRADEDATE<>REF(TRADEDATE,1);
歷史首K:=BARPOS=1;
DBCK:=IF((DATATYPE=1 OR DATATYPE=12) AND STKLABEL='FITX1+',TIME=084600 OR TIME=150100,IF(DATATYPE=1 OR DATATYPE=11 OR DATATYPE=2,分鐘首K OR 換日首K,歷史首K)),LINETHICK;
CKSP:=BARSLAST(DBCK)+1,LINETHICK;
//CKMM13:=IF(DATATYPE=12 OR DATATYPE=11 OR DATATYPE=1 OR DATATYPE=2,IF(CKSP<=13,CKSP,13),13),LINETHICK;
//CKMM13RG:MA(H-L,CKMM13),LINETHICK;
POWER:C,COLOR000000,LINETHICK2;
NN:=30; Now多空:=0;
ZAry:=POWER*0; ST:=lbound(ZAry);
F多守:=POWER[ST]-NN; F空守:=POWER[ST]+NN;
多空:ZAry linethick;
籌守:ZAry linethick COLOR000000;
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;
PARTLINE(多空=0,F多守) COLORBLUE,LINEDOT;
PARTLINE(多空=0,F空守) COLORRED,LINEDOT;
PARTLINE(sum(多空<>0,2)=2,籌守) COLOR000000,LINEDOT;
PARTLINE(多空=0,REF(L+NN,BARSLAST(DBCK))) COLOR00FF00,LINETHICK2;
PARTLINE(多空=0,REF(H-NN,BARSLAST(DBCK))) COLORFF00FF,LINETHICK2;
想請總版主幫忙:
1,NN可以是常數或是數列!
2,將F空守改為REF(L+NN,BARSLAST(DBCK));
F多守改為REF(H-NN,BARSLAST(DBCK));
不知邏輯有無錯誤之處?實際是否可行?
請協助!謝謝!
回覆: [問題]以前蒙總版主協助之公式再請協助
引用:
最初由 Markchu7 發表
分鐘首K:=ISREGULARFBAR;
換日首K:=TRADEDATE<>REF(TRADEDATE,1);
歷史首K:=BARPOS=1;
DBCK:=IF((DATATYPE=1 OR DATATYPE=12) AND STKLABEL='FITX1+',TIME=084600 OR TIME=150100,IF(DATATYPE=1 OR DATATYPE=11 OR DATATYPE=2,分鐘首K OR 換日首K,歷史首K)),LINETHICK;
CKSP:=BARSLAST(DBCK)+1,LINETHICK;
外盤:=STKINDI('','新盤差引用.外盤(0)',0,0),COLORRED,LINETHICK0;
內盤:=STKINDI('','新盤差引用.內盤(1)',0,0),COLORBLUE,LINETHICK0;
POWER:(外盤-內盤),COLOR000000,LINETHICK2;
NN:=300; Now多空:=0;
ZAry:=POWER*0; ST:=lbound(ZAry);
F多守:=POWER[ST]-NN; F空守:=POWER[ST]+NN;
多空:ZAry linethick;
籌守:ZAry linethick COLOR000000;
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;
PARTLINE(多空=0,F多守) COLORBLUE,LINEDOT;
PARTLINE(多空=0,F空守) COLORRED,LINEDOT;
PARTLINE(sum(多空<>0,2)=2,籌守) COLOR000000,LINEDOT;
1,以上公式中的常數NN可否是數列?
引用:
最初由 Markchu7 發表
附圖是將'盤差'改為'收盤價'帶入!
以下是源碼!
分鐘首K:=ISREGULARFBAR;
換日首K:=TRADEDATE<>REF(TRADEDATE,1);
歷史首K:=BARPOS=1;
DBCK:=IF((DATATYPE=1 OR DATATYPE=12) AND STKLABEL='FITX1+',TIME=084600 OR TIME=150100,IF(DATATYPE=1 OR DATATYPE=11 OR DATATYPE=2,分鐘首K OR 換日首K,歷史首K)),LINETHICK;
CKSP:=BARSLAST(DBCK)+1,LINETHICK;
//CKMM13:=IF(DATATYPE=12 OR DATATYPE=11 OR DATATYPE=1 OR DATATYPE=2,IF(CKSP<=13,CKSP,13),13),LINETHICK;
//CKMM13RG:MA(H-L,CKMM13),LINETHICK;
POWER:C,COLOR000000,LINETHICK2;
NN:=30; Now多空:=0;
ZAry:=POWER*0; ST:=lbound(ZAry);
F多守:=POWER[ST]-NN; F空守:=POWER[ST]+NN;
多空:ZAry linethick;
籌守:ZAry linethick COLOR000000;
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;
PARTLINE(多空=0,F多守) COLORBLUE,LINEDOT;
PARTLINE(多空=0,F空守) COLORRED,LINEDOT;
PARTLINE(sum(多空<>0,2)=2,籌守) COLOR000000,LINEDOT;
PARTLINE(多空=0,REF(L+NN,BARSLAST(DBCK))) COLOR00FF00,LINETHICK2;
PARTLINE(多空=0,REF(H-NN,BARSLAST(DBCK))) COLORFF00FF,LINETHICK2;
想請總版主幫忙:
1,NN可以是常數或是數列!
2,將F空守改為REF(L+NN,BARSLAST(DBCK));
F多守改為REF(H-NN,BARSLAST(DBCK));
不知邏輯有無錯誤之處?實際是否可行?
請協助!謝謝!
原碼:
分鐘首K:=ISREGULARFBAR; 換日首K:=TRADEDATE<>REF(TRADEDATE,1); 歷史首K:=BARPOS=1; DBCK:=IF((DATATYPE=1 OR DATATYPE=12) AND STKLABEL='FITX1+',TIME=084600 OR TIME=150100,IF(DATATYPE=1 OR DATATYPE=11 OR DATATYPE=2,分鐘首K OR 換日首K,歷史首K)),LINETHICK; CKSP:=BARSLAST(DBCK)+1,LINETHICK; //CKMM13:=IF(DATATYPE=12 OR DATATYPE=11 OR DATATYPE=1 OR DATATYPE=2,IF(CKSP<=13,CKSP,13),13),LINETHICK; //CKMM13RG:MA(H-L,CKMM13),LINETHICK; POWER:C,COLOR000000,LINETHICK2; HH:=H; LL:=L; DBCKSP:=BARSLAST(DBCK); ZAry:=DBCKSP*0; NN:=ZAry+XXX; //XXX請帶入常數或數列 ST:=lbound(DBCKSP); RSP:=DBCKSP[ST]; Now多空:=0; F空守:=LL[ST-RSP]+NN[ST-RSP]; F多守:=HH[ST-RSP]-NN[ST-RSP]; 多空:ZAry linethick; 籌守:ZAry linethick COLOR000000; for i= ST+1 to datacount do begin 多空[i]:=Now多空; RSP:=DBCKSP[i]; if Now多空=0 then begin //初始 多空[i]:=(POWER[i]>F空守 and POWER[i-1]<=F空守)-(F多守>POWER[i] and F多守<=POWER[i-1]); if 多空[i]=1 then 籌守[i]:=HH[i-RSP]-NN[i-RSP]; if 多空[i]=-1 then 籌守[i]:=LL[i-RSP]+NN[i-RSP]; end else if Now多空=1 then begin //多方 籌守[i]:=max(HH[i-RSP]-NN[i-RSP],籌守[i-1]); if POWER[i]<籌守[i] and POWER[i-1]>=籌守[i-1] then begin //多轉空 多空[i]:=-1; 籌守[i]:=LL[i-RSP]+NN[i-RSP]; end; end else if Now多空=-1 then begin //空方 籌守[i]:=min(LL[i-RSP]+NN[i-RSP],籌守[i-1]); if POWER[i]>籌守[i] and POWER[i-1]<=籌守[i-1] then begin //空轉多 多空[i]:=1; 籌守[i]:=HH[i-RSP]-NN[i-RSP]; end; end; Now多空:=多空[i]; end; 破過:=(ref(多空,1)<>多空)*多空; VERTLINE(破過=1),COLORRED; VERTLINE(破過=-1),COLORBLUE,LINEDOT; PARTLINE(多空=0,F多守) COLORBLUE,LINEDOT; PARTLINE(多空=0,F空守) COLORRED,LINEDOT; PARTLINE(sum(多空<>0,2)=2,籌守) COLOR000000,LINEDOT; PARTLINE(多空=0,REF(L+NN,DBCKSP)) COLOR00FF00,LINETHICK2; PARTLINE(多空=0,REF(H-NN,DBCKSP)) COLORFF00FF,LINETHICK2;
感謝總版主協助!
祝奇狐團隊新春愉快,業績蒸蒸日上!
貼圖中,主圖是新公式,副圖是舊公式!
是我未說明清楚,所以跟我想要的好像有一些差異!
0849已跌破F多守,所以多空=-1,
而籌守則應為18006
只有第一次的'過或破'是以H,L來決定
之後的'過或破'都是以C來決定
粗線條就是個人希望得到的劃線效果!
引用:
最初由 Markchu7 發表
0849已跌破F多守,所以多空=-1,
而籌守則應為18006
只有第一次的'過或破'是以H,L來決定
之後的'過或破'都是以C來決定
粗線條就是個人希望得到的劃線效果!
原碼:
分鐘首K:=ISREGULARFBAR; 換日首K:=TRADEDATE<>REF(TRADEDATE,1); 歷史首K:=BARPOS=1; DBCK:=IF((DATATYPE=1 OR DATATYPE=12) AND STKLABEL='FITX1+',TIME=084600 OR TIME=150100,IF(DATATYPE=1 OR DATATYPE=11 OR DATATYPE=2,分鐘首K OR 換日首K,歷史首K)),LINETHICK; CKSP:=BARSLAST(DBCK)+1,LINETHICK; //CKMM13:=IF(DATATYPE=12 OR DATATYPE=11 OR DATATYPE=1 OR DATATYPE=2,IF(CKSP<=13,CKSP,13),13),LINETHICK; //CKMM13RG:MA(H-L,CKMM13),LINETHICK; POWER:C,COLOR000000,LINETHICK2; HH:=H; LL:=L; DBCKSP:=BARSLAST(DBCK); ZAry:=DBCKSP*0; NN:=ZAry+XXX; //XXX請帶入常數或數列 ST:=lbound(DBCKSP); RSP:=DBCKSP[ST]; Now多空:=0; F空守:=LL[ST-RSP]+NN[ST-RSP]; F多守:=HH[ST-RSP]-NN[ST-RSP]; 多空:ZAry linethick; 籌守:ZAry linethick COLOR000000; for i= ST+1 to datacount do begin 多空[i]:=Now多空; RSP:=DBCKSP[i]; 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; PARTLINE(多空=0,F多守) COLORBLUE,LINEDOT; PARTLINE(多空=0,F空守) COLORRED,LINEDOT; PARTLINE(sum(多空<>0,2)=2,籌守) COLOR000000,LINEDOT; PARTLINE(多空=0,REF(L+NN,DBCKSP)) COLOR00FF00,LINETHICK2; PARTLINE(多空=0,REF(H-NN,DBCKSP)) COLORFF00FF,LINETHICK2;
正是我要的效果,感謝總版主!
祝您新年快樂!
引用:
最初由 Markchu7 發表
正是我要的效果,感謝總版主!
祝您新年快樂!
請問:畫這二條粗黑線的公式要如何寫?
引用:
最初由 Markchu7 發表
請問:畫這二條粗黑線的公式要如何寫?
就是連接F空守~籌守 及 就是連接F多守~籌守
謝謝!
研究出來了!如下
DRAWLINE(多空=0 AND REFX(多空,1)<>0,F空守,SUM(多空<>0,CKSP)=1,籌守,0),COLOR000000,LINETHICK3,PXDN6;
DRAWLINE(多空=0 AND REFX(多空,1)<>0,F多守,SUM(多空<>0,CKSP)=1,籌守,0),COLOR000000,LINETHICK3,PXDN6;
請問總版主:有關條件之公式寫法有無更精簡的寫法?
謝謝!
引用:
最初由 Markchu7 發表
研究出來了!如下
DRAWLINE(多空=0 AND REFX(多空,1)<>0,F空守,SUM(多空<>0,CKSP)=1,籌守,0),COLOR000000,LINETHICK3,PXDN6;
DRAWLINE(多空=0 AND REFX(多空,1)<>0,F多守,SUM(多空<>0,CKSP)=1,籌守,0),COLOR000000,LINETHICK3,PXDN6;
請問總版主:有關條件之公式寫法有無更精簡的寫法?
謝謝!
全部時間均為台灣時間, 現在時間為22:57 | 總頁數 (2): [1] 2 » 在這個頁面顯示本主題全部的 26 個文章 |
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.