 |
yoson168
初級會員
註冊日期: Aug 2010
來 自:
文章數量: 22 |
|
[問題]請問要如何寫出該程式
問題描敘如下：
條件：
最近四個碎形高點需低於季線
只要收盤站上最近四個碎形高點中最高的那一碎形高點
只要絛件成立：
1) 就在該根k線標示向上的紅箭頭 並 畫線(畫線是由最高的碎形高點劃到該根k線)
2) 標示最近四個 碎形高點，寫上H1, H2, H3, H4
附圖中，高低轉折點間的畫線程式如下：
input:n(2,2,5);
季線:ma(c,60);
A1:=REF(H,N)=HHV(H,2*N+1); B1:=FILTER(A1,N); C1:=BACKSET(B1,N+1); D1:=FILTER(C1,N);
A2:=REF(L,N)=LLV(L,2*N+1); B2:=FILTER(A2,N); C2:=BACKSET(B2,N+1); D2:=FILTER(C2,N);
E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2; E2:=(H+L)/2;
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 AND E1>=E2);
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);
DRAWLINE(LD,L,HD,H,0),COLORGray,LINETHICK1;
DRAWLINE(HD,H,LD,L,0),COLORGray,LINETHICK1;
yoson168 附帶上了此圖片:
|
|
向版主報告此篇 |  |
|
2012-02-05 19:43 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18256 |
|
回覆: [問題]請問要如何寫出該程式
引用:
最初由 yoson168 發表
問題描敘如下：
條件：
最近四個碎形高點需低於季線
只要收盤站上最近四個碎形高點中最高的那一碎形高點
只要絛件成立：
1) 就在該根k線標示向上的紅箭頭 並 畫線(畫線是由最高的碎形高點劃到該根k線)
2) 標示最近四個 碎形高點，寫上H1, H2, H3, H4
附圖中，高低轉折點間的畫線程式如下：
input:n(2,2,5);
季線:ma(c,60);
A1:=REF(H,N)=HHV(H,2*N+1); B1:=FILTER(A1,N); C1:=BACKSET(B1,N+1); D1:=FILTER(C1,N);
A2:=REF(L,N)=LLV(L,2*N+1); B2:=FILTER(A2,N); C2:=BACKSET(B2,N+1); D2:=FILTER(C2,N);
E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2; E2:=(H+L)/2;
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 AND E1>=E2);
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);
DRAWLINE(LD,L,HD,H,0),COLORGray,LINETHICK1;
DRAWLINE(HD,H,LD,L,0),COLORGray,LINETHICK1;
於尾端加入
HD4SP:=SUMBARS(HD,4);
HD4SP:=barslast(barpos=datacount-HD4SP[datacount]+1)+1 linethick;
CKQH:=sum(季線>H and HD,HD4SP);
CKMH:=C>HHV(H*HD,HD4SP);
CK:=BARSSINCE(CKQH and CKMH)=0;
HDNo:=sum(HD,HD4SP);
HDPP:=HD and lbound(CK)>0;
DRAWTEXT(HDNo=1 and HDPP,H,'H4') ALIGN0 pxup20;
DRAWTEXT(HDNo=2 and HDPP,H,'H3') ALIGN0 pxup20;
DRAWTEXT(HDNo=3 and HDPP,H,'H2') ALIGN0 pxup20;
DRAWTEXT(HDNo=4 and HDPP,H,'H1') ALIGN0 pxup20;
DRAWICON(CK,L,4) pxdn20;
|
|
向版主報告此篇 | |
|
|
2012-02-06 14:36 |
|
|
| |
|
peter109
資深會員
註冊日期: Dec 2004
來 自: Taipei
文章數量: 1891 |
|
回覆: [問題]請問要如何寫出該程式
引用:
最初由 yoson168 發表
問題描敘如下：
條件：
最近四個碎形高點需低於季線
只要收盤站上最近四個碎形高點中最高的那一碎形高點
只要絛件成立：
1) 就在該根k線標示向上的紅箭頭 並 畫線(畫線是由最高的碎形高點劃到該根k線)
2) 標示最近四個 碎形高點，寫上H1, H2, H3, H4
附圖中，高低轉折點間的畫線程式如下：
input:n(2,2,5);
季線:ma(c,60);
A1:=REF(H,N)=HHV(H,2*N+1); B1:=FILTER(A1,N); C1:=BACKSET(B1,N+1); D1:=FILTER(C1,N);
A2:=REF(L,N)=LLV(L,2*N+1); B2:=FILTER(A2,N); C2:=BACKSET(B2,N+1); D2:=FILTER(C2,N);
E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2; E2:=(H+L)/2;
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 AND E1>=E2);
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);
DRAWLINE(LD,L,HD,H,0),COLORGray,LINETHICK1;
DRAWLINE(HD,H,LD,L,0),COLORGray,LINETHICK1;
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);
//您要求的劃線 從略
__________________
至誠能勝天下至偽
至拙能勝天下至巧
|
|
向版主報告此篇 | |
|
|
2012-02-11 12:46 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18256 |
|
回覆: 若有超過四個碎形高點滿足條件，則採用最近的四個碎形高點
引用:
最初由 yoson168 發表
若有超過四個碎形高點滿足條件，則採用最近的四個碎形高點{如附圖中的黃色碎形高點H1, H2, H3, H4
總結條件如下：
-------------------------------------------------------------------------------------------------------------
條件一： 四個碎形高點需低於季線，且這四個碎形高點是連續一起的，即這四個碎形高點中，不允許其中夾有其它碎形高點是高於季線的。另外，若有超過四個碎形高點滿足條件，則採用最近的四個碎形高點
條件二： 收盤站上滿足條件一的四個碎形高點中最高的那一碎形高點，就做 (1) 就在該根k線標示向上的紅箭頭 並 畫線(畫線是由最高的碎形高點劃到該根k線) (2)標示此四個 碎形高點，寫上H1, H2, H3, H4
=====================================================
備註：若條件成立，即於圖上已畫上藍色水平線且已標示向上紅箭頭。則可發現圖上之紅箭頭，一定是在H1, H2, H3, H4的右邊
HD4SP:=SUMBARS(HD,4);
CKQHD:=HD and 季線>H;
CKQ4H:=sum(CKQHD,HD4SP)=4;
MM:=if(CKQ4H,HHV(HD*H,HD4SP),0);
MM:=ref(MM,barslast(MM<>0));
CK:=C>MM;
CK:=CK and sum(CK,barslast(CKQ4H)+1)=1;
HDNo:=SETVAL(CK,0,-SUMBARS(CKQHD,4),4);
HDNo:=SETVAL(CK,HDNo,-SUMBARS(CKQHD,3),3);
HDNo:=SETVAL(CK,HDNo,-SUMBARS(CKQHD,2),2);
HDNo:=SETVAL(CK,HDNo,-SUMBARS(CKQHD,1),1);
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;
|
|
向版主報告此篇 | |
|
|
2012-02-13 12:54 |
|
|
| |
|
peter109
資深會員
註冊日期: Dec 2004
來 自: Taipei
文章數量: 1891 |
|
回覆: 回覆: 若有超過四個碎形高點滿足條件，則採用最近的四個碎形高點
引用:
最初由 cgjj 發表
HD4SP:=SUMBARS(HD,4);
CKQHD:=HD and 季線>H;
CKQ4H:=sum(CKQHD,HD4SP)=4;
MM:=if(CKQ4H,HHV(HD*H,HD4SP),0);
MM:=ref(MM,barslast(MM<>0));
CK:=C>MM;
CK:=CK and sum(CK,barslast(CKQ4H)+1)=1;
HDNo:=SETVAL(CK,0,-SUMBARS(CKQHD,4),4);
HDNo:=SETVAL(CK,HDNo,-SUMBARS(CKQHD,3),3);
HDNo:=SETVAL(CK,HDNo,-SUMBARS(CKQHD,2),2);
HDNo:=SETVAL(CK,HDNo,-SUMBARS(CKQHD,1),1);
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;
版大 SUM + SUMBARS 運用的真好
學習了 給您拍拍手
__________________
至誠能勝天下至偽
至拙能勝天下至巧
|
|
向版主報告此篇 | |
|
|
2012-02-13 18:40 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|
不好意思，先前論述錯了
