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

請編寫四周交易規則畫線和選股指標

四周規則
四周定義為連續的四個自然交易周，而非20個交易日，確定每週最高價和最低價。
請根據下列條件編寫畫線指標
1、確定連續的四個交易周的最高價向右畫線直到該線被突破；
2、確定一個交易周的最低價向右畫線直到該線被跌破；

編寫突破連續的四個交易周的最高價時條件選股公式。

//HQSJ－引用指標
HH:H;
LL:L;

四周規則
周高:STKINDI('','HQSJ.HH',0,7);
周低:STKINDI('','HQSJ.LL',0,7);
STICKLINE(close>=open,open,close,5,1),colorred;
STICKLINE(open>close,close,open,5,0 ),colorgreen;
STICKLINE(close>=open,close,HIGH,0.5 ,1 ),colorred;
STICKLINE(close>=open,open,low,0.5 ,1 ),colorred;
STICKLINE(open>close,close,low,0.5 ,0 ),colorgreen;
STICKLINE(open>close,open,HIGH,0.5 ,0 ),colorgreen;

HL4_SUB － 引用指標
H4:HHV(H,4);
L4:LLV(L,4);

//新建公式
H4:STKINDI('','HL4_SUB.H4',0,7);
L4:STKINDI('','HL4_SUB.L4',0,7);
bHu:=BARSLAST(H4>ref(H4,1));
bHd:=BARSLAST(H4<ref(H4,1));
bLu:=BARSLAST(L4>ref(L4,1));
bLd:=BARSLAST(L4<ref(L4,1));
PARTLINE(bHu<bHd,H4),linethick3;
PARTLINE(bLu<bLd,L4),linethick3;

選U:CROSS(C,ref(H4,1));

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