查看完整版本: 請教如何修改才能成為完整的線

請教如何修改才能成為完整的線

如 ZIG金叉 或 死叉一成立 就畫其高低點線 並顯示其價位  可是其高低點線會斷線  請教如何修改才能成為完整的線

A:ZIG(3,0.1),colorgreen;
B:=ref(A,1);

ck:=refx(cross(A,B),1) or refx(cross(B,A),1);
ckpos:=SYSPARAM(1);

if ck[ckpos]=1 then begin
ckline:=BARSLAST(barpos>=ckpos)>=0;
HH:H,Colorgreen;
HH:=HH[ckpos]*ckline;
LL:L,Colormagenta;
LL:=LL[ckpos]*ckline;

polyline(HH-20,HH),shift5,Colorgreen;
polyline(LL-20,LL),shift5,Colormagenta;

DRAWNUMBER(islastbar,LL,LL,0),pxdn5,SHIFT1;
DRAWNUMBER(islastbar,HH,HH,0),pxup20,SHIFT1;

end;

参考
[url]http://www.chcj.net/viewthread.php?tid=891647&extra=page%3D1%26amp%3Bfilter%3Dtype%26amp%3Btypeid%3D14[/url]

[quote]原帖由 [i]bajatje[/i] 于 2007-11-12 08:47 发表 [url=http://bbs.fjfox.com/redirect.php?goto=findpost&pid=372519&ptid=42064][img]http://bbs.fjfox.com/images/common/back.gif[/img][/url]
参考
[url]http://www.chcj.net/viewthread.php?tid=891647&extra=page%3D1%26amp%3Bfilter%3Dtype%26amp%3Btypeid%3D14[/url] [/quote]
s:=12;
p:=26;
m:=9;
DIFF : EMA(CLOSE,S) - EMA(CLOSE,P);
DEA  : EMA(DIFF,M);
MACD : 2*(DIFF-DEA), COLORSTICK;
m:=macd;
wh:=barslast(cross(m,0))+1;
wL:=barslast(cross(0,m))+1;
qh:=cross(向前賦值(cross(0,m),hhvbars(m,wh)+1),0.5);
sh:=sum(qh,0);
mh:=mod(sh,2);
畫直線(mh=1 and qh,m,qh,m,0),COLORBLUE;
畫直線(mh=0 and qh,m,qh,m,0),COLORBLUE;
qL:=cross(向前賦值(cross(m,0),LLvbars(m,wL)+1),0.5);
sL:=sum(qL,0);
mL:=mod(sL,2);
畫直線(mL=1 and qL,m,qL,m,0),COLORRED;
畫直線(mL=0 and qL,m,qL,m,0),COLORRED;
老師的指導  受益良多  感恩感謝
上述公式
兩個紅牙區高點 或 兩個白牙區低點  皆以直線相連  
如何修改
1: 每一個紅牙區高點 與 前一個紅牙區高點, 前二個紅牙區高點, 前三個紅牙區高點 各別以直線相連
2:也就是說 每個紅牙區高點 皆要求出前3個紅牙區高點
3: 白牙區低點亦同
請幫忙賜教    謝謝