海天如一
发表于 2011-6-12 17:03
高水准,谢谢分享!
英雄无奈
发表于 2011-6-12 17:16
谢谢提供,学习了
苦学多练
发表于 2011-6-12 17:18
周两市资金累计净流出26.7亿
潜伏在黑夜
发表于 2011-6-12 17:19
PJCB:=(H+L+O+C)/4;
MA250:MA(PJCB,250),COLORBROWN LINETHICK1;
MA120:MA(PJCB,120),COLORLIGRAY LINETHICK1;
MA55:MA(PJCB,55),COLORBLUE LINETHICK5;
MA34:MA(PJCB,34),COLORGREEN LINETHICK4;
MA13:MA(PJCB,13),COLORRED LINETHICK3;
MA5:MA(PJCB,5),COLORYELLOW LINETHICK2;
MA3:MA(PJCB,3),COLORWHITE LINETHICK1;
STICKLINE(IF(DYNAINFO(8)>0,DYNAINFO(7),DRAWNULL),IF(DYNAINFO(8)>0,DYNAINFO(7),DRAWNULL),IF(DYNAINFO(8)>0,DYNAINFO(7),DRAWNULL),0.1,-1),COLORWHITE;
阳线:=C>O;
实顶:=IF(阳线,C,O);
实底:=IF(阳线,O,C);
三日最低价:=MIN(MIN(L,REF(L,1)),REF(L,2));
三日不破:=MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(L,3);
三日量缩:=MAX(MAX(V,REF(V,1)),REF(V,2))<REF(V,3);
三日量涨:=MAX(MAX(V,REF(V,1)),REF(V,2))>REF(V,3);
三日前高量柱:=REF(VOL,3)>=REF(VOL,4) AND REF(VOL,3)<1.9*REF(VOL,4) AND REF(阳线,3);
三日前倍量柱:=REF(VOL,3)>1.9*REF(VOL,4) AND REF(阳线,3);
跳空:=REF(L,3)>REF(H,4);
黄金谷编辑:=三日不破 AND 三日量缩 AND 三日前倍量柱;
黄金谷:=三日不破 AND 三日量缩 AND 三日前高量柱;
将军柱:=三日不破 AND 三日前倍量柱 AND 三日量涨;
TKBLHJZ:=黄金谷编辑 AND 跳空;
TKHJZ:=黄金谷 AND 跳空;
TKJJZ:=将军柱 AND 跳空;
ZHJZ:=黄金谷编辑 OR 黄金谷 OR 将军柱;
BLHJZ11:=黄金谷编辑 AND 三日最低价>REF(实顶,3);
BLHJZ12:=黄金谷编辑 AND 三日最低价<=REF(实顶,3) AND 三日最低价>REF(实底,3);
BLHJZ13:=黄金谷编辑 AND 三日最低价<=REF(实底,3) AND 三日最低价>=REF(L,3);
HJZ21:=黄金谷 AND 三日最低价>REF(实顶,3);
HJZ22:=黄金谷 AND 三日最低价<=REF(实顶,3) AND 三日最低价>REF(实底,3);
HJZ23:=黄金谷 AND 三日最低价<=REF(实底,3) AND 三日最低价>=REF(L,3);
JJZ31:=将军柱 AND 三日最低价>REF(实顶,3);
JJZ32:=将军柱 AND 三日最低价<=REF(实顶,3) AND 三日最低价>REF(实底,3);
JJZ33:=将军柱 AND 三日最低价<=REF(实底,3) AND 三日最低价>=REF(L,3);
BACKSET0:=BACKSET(ZHJZ,4);
BACKSET1:=BACKSET(黄金谷编辑,4);
BACKSET2:=BACKSET(黄金谷,4);
BACKSET3:=BACKSET(将军柱,4);
BACKSET11:=BACKSET(BLHJZ11,4);
BACKSET12:=BACKSET(BLHJZ12,4);
BACKSET13:=BACKSET(BLHJZ13,4);
BACKSET21:=BACKSET(HJZ21,4);
BACKSET22:=BACKSET(HJZ22,4);
BACKSET23:=BACKSET(HJZ23,4);
BACKSET31:=BACKSET(JJZ31,4);
BACKSET32:=BACKSET(JJZ32,4);
BACKSET33:=BACKSET(JJZ33,4);
TKBLHJZ1:=BACKSET(TKBLHJZ,4);
TKHJZ1:=BACKSET(TKHJZ,4);
TKJJZ1:=BACKSET(TKJJZ,4);
FILTER0:=FILTER(BACKSET0,3),NODRAW;
FILTER1:=FILTER(BACKSET1,3),NODRAW;
FILTER2:=FILTER(BACKSET2,3),NODRAW;
FILTER3:=FILTER(BACKSET3,3),NODRAW;
FILTER11:=FILTER(BACKSET11,3),NODRAW;
FILTER12:=FILTER(BACKSET12,3),NODRAW;
FILTER13:=FILTER(BACKSET13,3),NODRAW;
FILTER21:=FILTER(BACKSET21,3),NODRAW;
FILTER22:=FILTER(BACKSET22,3),NODRAW;
FILTER23:=FILTER(BACKSET23,3),NODRAW;
FILTER31:=FILTER(BACKSET31,3),NODRAW;
FILTER32:=FILTER(BACKSET32,3),NODRAW;
FILTER33:=FILTER(BACKSET33,3),NODRAW;
TKBLHJZ11:=FILTER(TKBLHJZ1,3),NODRAW;
TKHJZ11:=FILTER(TKHJZ1,3),NODRAW;
TKJJZ11:=FILTER(TKJJZ1,3),NODRAW;
K0:=SUMBARS(FILTER0,1);
K1:=SUMBARS(FILTER1,1);
K2:=SUMBARS(FILTER2,1);
K3:=SUMBARS(FILTER3,1);
K11:=SUMBARS(FILTER11,1);
K12:=SUMBARS(FILTER12,1);
K13:=SUMBARS(FILTER13,1);
K21:=SUMBARS(FILTER21,1);
K22:=SUMBARS(FILTER22,1);
K23:=SUMBARS(FILTER23,1);
K31:=SUMBARS(FILTER31,1);
K32:=SUMBARS(FILTER32,1);
K33:=SUMBARS(FILTER33,1);
TKK111:=SUMBARS(TKBLHJZ11,1);
TKK112:=SUMBARS(TKHJZ11,1);
TKK113:=SUMBARS(TKJJZ11,1);
{PJCB:=(H+L+O+C)/4;
MA250:MA(PJCB,250),COLORBROWN LINETHICK1;
MA120:MA(PJCB,120),COLORLIGRAY LINETHICK1;
MA60:MA(PJCB,60),COLORBLUE LINETHICK1;
MA36:MA(PJCB,36),COLORGREEN LINETHICK1;
MA24:MA(PJCB,24),COLORRED LINETHICK1;
MA12:MA(PJCB,12),COLORYELLOW LINETHICK2;
MA6:MA(PJCB,6),COLORWHITE LINETHICK1;}
倍量黄金:COUNT(FILTER1,4)>=1,COLORYELLOW NODRAW;
高量黄金:COUNT(FILTER2,4)>=1,COLORRED NODRAW;
倍量将军:COUNT(FILTER3,4)>=1,COLORBLUE NODRAW;
{最简单划线,彩色实线:}
{STICKLINE(K0,REF(三日最低价,K1-4),REF(三日最低价,K1-4),25,0),COLORYELLOW;
STICKLINE(K0,REF(三日最低价,K2-4),REF(三日最低价,K2-4),25,0),COLORRED;
STICKLINE(K0,REF(三日最低价,K3-4),REF(三日最低价,K3-4),25,0),COLORBLUE;}
{详细划线,彩色虚线:}
STICKLINE(K11,REF(实顶,K11-1),REF(实顶,K11-1),1,0),COLORYELLOW;
STICKLINE(K12,REF(实底,K12-1),REF(实底,K12-1),1,0),COLORYELLOW;
STICKLINE(K13,REF(L,K13-1),REF(L,K13-1),1,0),COLORYELLOW;
STICKLINE(K21,REF(实顶,K21-1),REF(实顶,K21-1),1,0),COLORRED;
STICKLINE(K22,REF(实底,K22-1),REF(实底,K22-1),1,0),COLORRED;
STICKLINE(K23,REF(L,K23-1),REF(L,K23-1),1,0),COLORRED;
STICKLINE(K31,REF(实顶,K31-1),REF(实顶,K31-1),1,0),COLORMAGENTA;
STICKLINE(K32,REF(实底,K32-1),REF(实底,K32-1),1,0),COLORMAGENTA;
STICKLINE(K33,REF(L,K33-1),REF(L,K33-1),1,0),COLORMAGENTA;
{缺口底部画平行线,白色虚线:}
STICKLINE(IF(TKK111,TKK111,DRAWNULL),REF(H,TKK111),REF(H,TKK111),0,0),COLORGREEN;
STICKLINE(IF(TKK112,TKK112,DRAWNULL),REF(H,TKK112),REF(H,TKK112),0,0),COLORGREEN;
STICKLINE(IF(TKK113,TKK113,DRAWNULL),REF(H,TKK113),REF(H,TKK113),0,0),COLORGREEN;
{WEN98编写, HTTP://U.178448.COM/SPACE.PHP?UID=30578}
{设立参数:百分比(3,20,5), 右数峰序(2,20,2)}
{ZIG(3,5);}{百分比:=5};{右数峰序:=2;}
百分比:=5;
右数峰序:=2;
{MA5:MA(C,5);
MA10:MA(C,10);
MA20:MA(C,20);}
波谷值: CONST(TROUGH(2,百分比,1)),NODRAW;{前M个ZIG转向波谷值}
波谷距离:= 1+CONST(TROUGHBARS(2,百分比,1)),NODRAW;{前M个ZIG转向波谷到当前距离}
{例如:TROUGH(2,5,2)表示%5最低价ZIG转向的前2个波谷到当前的周期数};
波峰值:= CONST(PEAK(1,百分比,右数峰序));
{例如: PEAK(1,5,1)表示%5最高价ZIG转向的上一个波峰的数值}
XG:= ABS(波峰值-波谷值)<=0.024 {AND BARSCOUNT(V)>60};
波峰距离:= 1+CONST(PEAKBARS(1,百分比,右数峰序)),NODRAW;
{PEAKBARS(K,N,M)表示之字转向ZIG(K,N)的前M个波峰到当前的周期数,M必须大于等于1}
距离:=CURRBARSCOUNT;
DRAWLINE(距离=波峰距离 AND XG,波谷值,距离=1,波谷值,1),COLORMAGENTA;
DRAWTEXT(距离=波谷距离 AND XG,L*0.98,' 峰谷线'),COLORYELLOW;
DRAWICON(距离=波峰距离,H*1.01,2);{波峰位置}
DRAWICON(距离=波谷距离,L*0.985,1);{波谷位置}
精准点:=(ABS(H-波谷值)<=0.024 OR ABS(L-波谷值)<=0.024) {AND 距离<=120};
STICKLINE(精准点,波谷值,波谷值,200,1),COLORWHITE;
DRAWTEXT(精准点,波谷值,'↖'),COLORWHITE;
谷底线:=波谷值;
峰顶线:=波峰值;
选股:REF(波峰值,RANGE(PERIOD,30,5))<=LLV(L,4) AND REF(波峰值,RANGE(PERIOD,30,5))>=LLV(L,4)*-0.02,NODRAW;
{画K线}
STICKLINE(C<O,H,L,0,0),COLORGREEN;
STICKLINE(C>O,H,L,0,0),COLORRED;
STICKLINE(C<O,C,O,1,1),COLORGREEN;
STICKLINE(C>O,C,O,1,1),COLORRED;
STICKLINE(C=O,C,O,1,1),COLORWHITE;
{画黄金柱彩色K线:}
STICKLINE(FILTER11 OR FILTER12 OR FILTER13,IF(O<C,L,DRAWNULL),IF(O<C,H,DRAWNULL),0,0),COLORYELLOW;
STICKLINE(FILTER11 OR FILTER12 OR FILTER13,IF(O>C,L,DRAWNULL),IF(O>C,H,DRAWNULL),0,0),COLORGREEN;
STICKLINE(FILTER11 OR FILTER12 OR FILTER13,OPEN,CLOSE,1,0),COLORYELLOW;
STICKLINE(FILTER21 OR FILTER22 OR FILTER23,IF(O<C,L,DRAWNULL),IF(O<C,H,DRAWNULL),0,0),COLORRED;
STICKLINE(FILTER21 OR FILTER22 OR FILTER23,IF(O>C,L,DRAWNULL),IF(O>C,H,DRAWNULL),0,0),COLORGREEN;
STICKLINE(FILTER21 OR FILTER22 OR FILTER23,OPEN,CLOSE,1,0),COLORRED;
STICKLINE(FILTER31 OR FILTER32 OR FILTER33,IF(O<C,L,DRAWNULL),IF(O<C,H,DRAWNULL),0,0),COLORMAGENTA;
STICKLINE(FILTER31 OR FILTER32 OR FILTER33,IF(O>C,L,DRAWNULL),IF(O>C,H,DRAWNULL),0,0),COLORGREEN;
STICKLINE(FILTER31 OR FILTER32 OR FILTER33,OPEN,CLOSE,1,0),COLORMAGENTA;
蓝火冰儿
发表于 2011-6-12 17:27
:handshake
宁子
发表于 2011-6-12 17:30
很好呀。学习了
宁子
发表于 2011-6-12 17:32
:)很好呀。学习了
龙剑
发表于 2011-6-12 17:50
不错,谢谢!!!
龙头老大
发表于 2011-6-12 17:53
图形压缩的厉害,老师指点一下?
晃晃晃
发表于 2011-6-12 18:06
不错,谢谢!!!
也有民
发表于 2011-6-12 18:17
:handshake
金伙伴
发表于 2011-6-12 18:18
凡人如我
发表于 2011-6-12 18:29
好好学习天天向上
小慢手
发表于 2011-6-12 18:35
学习学习了!
红桃
发表于 2011-6-12 21:26
学习安装看看这个黄金K线图。