總頁數 (2): « 1 [2] 在這個頁面顯示本主題全部的 27 個文章

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

---

由 peter109 在 2012-02-14 03:29 發表:

回覆: 回覆: [問題]請問要如何寫出該程式

引用:

---

最初由 peter109 發表
01:=BARSLAST(HD);
X02:=REF(H,X01);
X03:=REF(X02,X01+1);
X04:=REF(X03,X01+1);
X05:=REF(X04,X01+1);
X06:MAX(X02,MAX(X03,MAX(X04,X05)));//連續四個HD中最高值
X06:=REF(X06,BARSLAST(HD AND X06<季線));//連續四個HD中最高值小於季線的對應價
X07:=CROSS(C,REF(X06,1));//符合條件
VERTLINE(X07);
//您要求的劃線 從略

---

依然沿用原架構 基本上符合選股條件的處理不困難

同樣是 2108南帝的圖
碰到 前後兩者周期都相同的時候
標註 H1~H4卻讓我投降了

__________________
至誠能勝天下至偽
至拙能勝天下至巧

---

由 cgjj 在 2012-02-14 10:17 發表:

回覆: 差一 點點就完成了，尚需麻煩大大

引用:

---

最初由 yoson168 發表
附圖是版大您指導的程式所呈現的結果，但是有一個條件不符合
即「這四個碎形高點中，不允許其中夾有其它碎形高點是高於季線的」
附圖中用橘色圈起來的碎形高點，不可夾在H1,H2,H3,H4之間，故它不符合條件，即在這段時間，不應有H1,H2,H3,H4和紅箭頭

---

修正如下:

HD4SP:=SUMBARS(HD,4);
CKQHD:=HD and 季線>H;
CKQ4H:=CKQHD and sum(CKQHD,HD4SP)=4;
MM:=if(CKQ4H,HHV(HD*H,HD4SP),0);
RMMSP:=barslast(MM<>0);
RMMSP:=if(barpos<lbound(RMMSP),0,RMMSP);
MM:=ref(MM,RMMSP);
CK:=C>MM;
CK:=CK and sum(CK,barslast(CKQ4H)+1)=1 or barpos=0;
XSP4:=RMMSP+ref(SUMBARS(CKQHD,4),RMMSP)-1;
XSP3:=RMMSP+ref(SUMBARS(CKQHD,3),RMMSP)-1;
XSP2:=RMMSP+ref(SUMBARS(CKQHD,2),RMMSP)-1;
XSP1:=RMMSP+ref(SUMBARS(CKQHD,1),RMMSP)-1;
HDNo:SETVAL(CK,0,-XSP4,4);
HDNo:=SETVAL(CK,HDNo,-XSP3,3);
HDNo:=SETVAL(CK,HDNo,-XSP2,2);
HDNo:=SETVAL(CK,HDNo,-XSP1,1);
HDNo:=SETVAL(CK,HDNo,-XSP1+1,0);
DRAWTEXT(HDNo=1 and CKQHD,H,'H1') ALIGN0 pxup20;
DRAWTEXT(HDNo=2 and CKQHD,H,'H2') ALIGN0 pxup20;
DRAWTEXT(HDNo=3 and CKQHD,H,'H3') ALIGN0 pxup20;
DRAWTEXT(HDNo=4 and CKQHD,H,'H4') ALIGN0 pxup20;
DRAWICON(CK,H,4) pxup20;

---

由 cgjj 在 2012-02-14 10:21 發表:

回覆: 回覆: 回覆: 若有超過四個碎形高點滿足條件，則採用最近的四個碎形高點

引用:

---

最初由 peter109 發表
版大 SUM + SUMBARS 運用的真好
學習了 給您拍拍手

---

沒啦, 謝謝您

其實一開始, 這例子我該用迴圈來處理的
迴圈較適合也較容易處理這樣的邏輯

---

由 peter109 在 2012-02-14 21:45 發表:

請教版大

如果就此例
條件變更為
選擇參數(例 新增加參數 XX)
0(零)表示要計算目前已有的連續四個HD中的最高
1(壹)表示要計算連續四個HD中的次高

整個表達式應該如何處理
謝先

__________________
至誠能勝天下至偽
至拙能勝天下至巧

---

由 cgjj 在 2012-02-16 20:10 發表:

引用:

---

最初由 peter109 發表
請教版大

如果就此例
條件變更為
選擇參數(例 新增加參數 XX)
0(零)表示要計算目前已有的連續四個HD中的最高
1(壹)表示要計算連續四個HD中的次高

整個表達式應該如何處理
謝先

---

做法概述如下:

把 HHV(HD*H,HD4SP) 這個部份拆出來
換用迴圈去找該區間第二高, 結果再放入原式中即可

---

由 peter109 在 2012-02-16 22:41 發表:

收到
了解您目前的忙碌
等您有空再處理 不急
再謝

__________________
至誠能勝天下至偽
至拙能勝天下至巧

---

由 yoson168 在 2012-02-17 10:57 發表:

謝謝，版大您辛苦了

謝謝版大和Peter大

---

由 cgjj 在 2012-02-19 14:37 發表:

引用:

---

最初由 peter109 發表
收到
了解您目前的忙碌
等您有空再處理 不急
再謝

---

原碼:


HDSP:=barslast(HD);

HD4SP:=SUMBARS(HD,4);

CKQHD:=HD and 季線>H;

CKQ4H:=CKQHD and sum(CKQHD,HD4SP)=4;

CKQ4HSP:=barslast(CKQ4H);

HH:=H; MM:=C*0;

for i=datacount downto lbound(CKQ4HSP) do begin

  i:=i-CKQ4HSP[i]; CountHD:=0; H1HD:=0; H2HD:=0;

  for j:=i downto lbound(HDSP) do begin

    j:=j-HDSP[j];

    if HH[j]>H1HD then begin

      H2HD:=H1HD; H1HD:=HH[j];

    end else if HH[j]>H2HD then begin

      H2HD:=HH[j];

    end;

    CountHD:=CountHD+1; if CountHD=4 then break;    

  end;

  MM[i]:=H2HD; //取次高

end;

RMMSP:=barslast(MM<>0);

RMMSP:=if(barpos<lbound(RMMSP),0,RMMSP);

MM:=ref(MM,RMMSP);

CK:=C>MM;

CK:=CK and sum(CK,barslast(CKQ4H)+1)=1 or barpos=0;

XSP4:=RMMSP+ref(SUMBARS(CKQHD,4),RMMSP)-1;

XSP3:=RMMSP+ref(SUMBARS(CKQHD,3),RMMSP)-1;

XSP2:=RMMSP+ref(SUMBARS(CKQHD,2),RMMSP)-1;

XSP1:=RMMSP+ref(SUMBARS(CKQHD,1),RMMSP)-1;

HDNo:=SETVAL(CK,0,-XSP4,4);

HDNo:=SETVAL(CK,HDNo,-XSP3,3);

HDNo:=SETVAL(CK,HDNo,-XSP2,2);

HDNo:=SETVAL(CK,HDNo,-XSP1,1);

HDNo:=SETVAL(CK,HDNo,-XSP1+1,0);

DRAWTEXT(HDNo=1 and CKQHD,H,'H1') ALIGN0 pxup20;

DRAWTEXT(HDNo=2 and CKQHD,H,'H2') ALIGN0 pxup20;

DRAWTEXT(HDNo=3 and CKQHD,H,'H3') ALIGN0 pxup20;

DRAWTEXT(HDNo=4 and CKQHD,H,'H4') ALIGN0 pxup20;

DRAWICON(CK,H,4) pxup20;

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