|
源码 说明
K线中间窄柱子表示机构大单资金买卖净额，流出画蓝色柱子，流入画黄色柱子。
时间与k线波段方面的规律：
从k线历史上波段低点或高点开始往右数k线数目，如果距今日的k线数目落于以下的数字之中，那么今日的k线就将是波段的低点或高点的可能大增。适用于月，周，日，小时等等所有k线周期级别。记住， 史上的k线波段，在经历了这些循环周期数字之后，必定再现这些波段。
熟悉这些会说话的循环周期，他们将为您开启时间之门。。。
K线半截颜色表示当日换手统计；
1.灰色表示 （带量换手） 大于5或小于8，相对活跃。适当关注！
2.蓝色表示 （放量换手） 换手大于8，小于15.活跃！重点关注，深度介入，大举买入或卖出，大幅上升或回落。
3.绿色表示 （巨量换手） 换手大于15或小于25.异常换手！低位介入。高位快跑！
4.棕色表示 （怪异换手） 换手大于25.怪异换手！低位介入。高位快跑！
5.红色表示 （成交倍量） 成交量大于昨日一倍或一倍以上
筹码成本虚线说明；
帝王线：为获利盘为99%、93%、85%三个区域的平均成本。
汉界线：为获利盘为84%、67%、50%三个区域的平均成本。
楚河线：为获利盘为49%、34%、16%三个区域的平均成本。
自刎线：为获利盘为15%、7%、1%三个区域的平均成本。
买线:=EMA(CLOSE,2);
卖线:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);
买入:IF(CROSS(买线,卖线),L-0.02,DRAWNULL),CROSSDOT,LINETHICK4,COLORRED;
卖出:IF(CROSS(80,RSI)*30,H+0.02,DRAWNULL),CROSSDOT,LINETHICK4,COLORGREEN;
VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3;
S2:=IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.02,DRAWNULL),CIRCLEDOT,LINETHICK4,COLORGREEN;
A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1));
B1:=REF(C,A1+1)> C AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA");
DRAWTEXT(B1> 0,L-0.02,'M底'),COLOR00FFFF;{MACD底背离}
A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
B2:=REF(C,A2+1)> C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
DRAWTEXT(B2,L-0.10,'K底'),COLORFF00FF;{KDJ底背离}
A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
B3:=REF(C,A3+1)> C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
DRAWTEXT(B3> 0,L-0.18,'R底'),COLOR0000FF;{RSI底背离}
C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));
D1:=REF(C,C1+1)<C AND REF("MACD.DIF",C1+1)> "MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF");
DRAWTEXT(D1> 0,H+0.16,'M顶'),COLOR00FF00;{MACD顶背离}
C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)> "KDJ.K" AND CROSS("KDJ.D","KDJ.K");
DRAWTEXT(D2> 0,H+0.08,'K顶'),COLORFFFFCC;{KDJ顶背离}
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)> "RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
DRAWTEXT(D3> 0,H+0.04,'R顶'),COLORFF9900;{RSI顶背离};
DRAWTEXT_FIX(C>0,0.00,0.10,0,STRCAT('业绩预报：',EXTERNSTR(0,6))),COLORYELLOW,LINETHICK2;
DRAWTEXT_FIX(C>0,0.004,0.21,0,STRCAT('千股千评：',EXTERNSTR(0,1))),COLORYELLOW,LINETHICK2;
{DRAWTEXT_FIX(C>0,0.004,0.13,0,STRCAT('智能诊股：',EXTERNSTR(0,2))),COLORFFFF00,LINETHICK2;}
{DRAWTEXT_FIX(C>0,0.004,0.17,0,STRCAT('机构关注：',EXTERNSTR(0,5))),COLORFFFFFF,LINETHICK2;}
{DRAWTEXT_FIX(C>0,0.004,0.21,0,STRCAT('龙虎交易：',EXTERNSTR(0,3))),COLORLIGREEN,LINETHICK2;}
{DRAWTEXT_FIX(ISLASTBAR,0,0,0,GNBLOCK),COLORYELLOW;}{概念板块左上角}
DRAWTEXT_FIX(ISLASTBAR,0,28,0,GNBLOCK),COLORYELLOW;{板块概念左下角}
{DRAWTEXT_FIX(1,0.26,28,0,HYBLOCK)COLOR0080FF;{所属行业左下角}
{DRAWTEXT_FIX(1,0.31,28,0,DYBLOCK)COLOR00FFFF;{所属地区左下角}
DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLORBROWN;
DRAWTEXT_FIX(1,0.06,0,0,HYBLOCK)COLOR00FFFF;
DRAWTEXT_FIX(1,0.14,0,0,'所属地区：')COLORBROWN;
DRAWTEXT_FIX(1,0.20,0,0,DYBLOCK)COLOR00FFFF;
DRAWTEXT_FIX(1,0.30,0.00,0,'主题投资：')COLORBROWN;
DRAWTEXT_FIX(1,0.36,0.00,0,EXTERNSTR(0,2))COLOR00FFFF;
DRAWTEXT_FIX(1,0.00,0.05,0,'主营业务：')COLORBROWN;
DRAWTEXT_FIX(1,0.06,0.05,0,EXTERNSTR(0,3))COLORBROWN;
{DRAWTEXT_FIX(1,0.00,0.10,0,'解禁日期：')COLORBROWN;}
{DRAWTEXT_FIX(1,0.06,0.10,0,EXTERNSTR(0,4))COLORBROWN;}
DRAWTEXT_FIX(1,0.00,0.15,0,'愚民概念：'),COLORBROWN;
DRAWTEXT_FIX(1,0.06,0.15,0,EXTERNSTR(0,5)),COLORBROWN;
称帝:(COST(99)+COST(93)+COST(85))/3,COLORYELLOW,DOTLINE,LINETHICK1;
汉界:(COST(84)+COST(67)+COST(50))/3,COLORGREEN,DOTLINE,LINETHICK1;
楚河:(COST(16)+COST(34)+COST(49))/3,COLORRED,DOTLINE,LINETHICK1;
自刎:(COST(1)+COST(7)+COST(15))/3,COLORMAGENTA,DOTLINE,LINETHICK1;
汉界飘移:(汉界-REF(汉界,3))/REF(汉界,3)*100,COLORGREEN,NODRAW;
楚河飘移:(楚河-REF(楚河,3))/REF(楚河,3)*100,COLORRED,NODRAW;
上跨度:(称帝-楚河)/楚河*100,NODRAW;{计算帝王线与楚河线的距离}
下跨度:(汉界-自刎)/自刎*100,NODRAW;{计算汉界线与自刎线的距离}
{时间循环周期}
{菲波纳契螺旋周期；易学难精；关注成黄金分割比率的波段位置}
DRAWTEXT(CURRBARSCOUNT=3,HIGH*1.02,'3'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=5,HIGH*1.02,'5'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=8,HIGH*1.02,'8'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=13,HIGH*1.02,'13'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=21,HIGH*1.02,'21'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=34,HIGH*1.02,'34'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=55,HIGH*1.02,'55'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=89,HIGH*1.02,'89'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=144,HIGH*1.02,'144'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=233,HIGH*1.02,'233'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=377,HIGH*1.02,'377'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=610,HIGH*1.02,'610'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=987,HIGH*1.02,'987'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1597,HIGH*1.02,'1597'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=2584,HIGH*1.02,'2584'), COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=4181,HIGH*1.02,'4181'), COLORGREEN;
{卢卡斯螺旋周期，《超级短线新武器》一书有具体的实战案例}
DRAWTEXT(CURRBARSCOUNT=7,HIGH*1.025,'7'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=11,HIGH*1.025,'11'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=18,HIGH*1.025,'18'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=29,HIGH*1.025,'29'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=47,HIGH*1.025,'47'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=76,HIGH*1.025,'76'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=123,HIGH*1.025,'123'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=199,HIGH*1.025,'199'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=322,HIGH*1.025,'322'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=521,HIGH*1.025,'521'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=843,HIGH*1.025,'843'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1364,HIGH*1.025,'1364'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=2207,HIGH*1.025,'2207'), COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=3571,HIGH*1.025,'3571'), COLORWHITE;
DRAWTEXT_FIX(1,0.01,0.9,0,'数字绿色菲波纳契螺旋周期,白色卢卡斯螺旋周期'),COLORBROWN;
{精准线}
N1:=3;
L0:=0.00;{点位差参数}
{底精准线}
LW:=ABS(L-REF(L,1))<=L0;
LT:=ABS(L-REF(L,2))<=L0;
LS:=ABS(L-REF(L,3))<=L0;
LF:=ABS(L-REF(L,4))<=L0;
LH:=ABS(L-REF(L,5))<=L0;
精准线首次:=LW OR LT OR LS OR LF OR LH;
精准左:=FILTER(精准线首次,N1) ;
天数:=BARSLAST(精准左);
LTS:=REF(L,天数);
{谷底}支撑线:=ABS(L-LTS)<=L0;
STICKLINE(精准左,L,L,50,-1),COLORLIGREEN;
{DRAWLINE(精准左,L, 支撑线,LTS,1),COLORMAGENTA;}
DRAWTEXT(精准左,H*0.95,'支撑线'),COLOR8A0000;
{顶精准线}
G1:=ABS(H-REF(H,1))<=L0;
G2:=ABS(H-REF(H,2))<=L0;
G3:=ABS(H-REF(H,3))<=L0;
G4:=ABS(H-REF(H,4))<=L0;
G5:=ABS(H-REF(H,5))<=L0;
精准线首次1:=G1 OR G2 OR G3 OR G4 OR G5;
精准左1:=FILTER(精准线首次1,N1) ;
天数1:=BARSLAST(精准左1);
HTS:=REF(H,天数1);
{峰顶}压力线:=ABS(H-HTS)<=L0;
STICKLINE(精准左1,H,H,50,-1),COLORLIRED;
{DRAWLINE(精准左1,L, 压力线,HTS,1),COLORGREEN;}
DRAWTEXT(精准左1,H*1.01,'压力线'),COLOR660066;
{超级资金：}
{超B:=L2_AMO(0,2)/10000.0;
超S:=-L2_AMO(0,3)/10000.0;
当日净额:超B+超S,NODRAW;}
机构买入:L2_AMO(0,2)/10000.0,NODRAW;
机构卖出:-L2_AMO(0,3)/10000.0,NODRAW;
机构净买:机构买入+机构卖出,NODRAW;
STICKLINE(机构净买>0,O,C,0.3,0), COLORYELLOW;
STICKLINE(机构净买<0,O,C,0.2,0), COLORBLUE;
{单根K线表示换手量能}
A01:=MIN(O,C);
B01:=ABS(O-C);
倍量:=(V/REF(V,1)>=1.91 AND COUNT(C>O,1)) OR (L>REF(H,1) AND COUNT(O>C,1) AND V/REF(V,1)>=1.91),NODRAW,COLORYELLOW,COLORFF00FF;
地量:=V<=REF(LLV(V,55),1),NODRAW;
STICKLINE(地量,A01+B01,A01+B01/1.5,2.5,0),COLORFF0000;
STICKLINE(倍量,A01+B01/4,A01+B01/2,2.5,0){,COLOR7F017F},COLORRED;
换手:=VOL*100/CAPITAL,STICK;
带量:=C=C AND 换手>=5 AND 换手<8{,COLORLIGRAY{COLOR007575};
STICKLINE(带量,A01,A01+B01/4,2.5,0),COLORGRAY,{COLOR007575};
放量:=C=C AND 换手>=8 AND 换手<15{,COLOR32CD32};
STICKLINE(放量,A01,A01+B01/4,2.5,0),COLORBLUE{COLOR32CD32};
巨量:=C=C AND 换手>=15 AND 换手<25{,COLORGREEN};
STICKLINE(巨量,A01,A01+B01/4,2.5,0),COLORGREEN{,COLOR32CD32};
怪异:=C=C AND 换手>=25,COLOR8E236B;
STICKLINE(怪异,A01,A01+B01/4,2.5,0),COLORBROWN{,COLOR8E236B};
{重点K线}
黄昏之星:=((((((REF(CLOSE,2) / REF(OPEN,2)) > 1.03) AND (REF(OPEN,1) >
REF(CLOSE,2))) AND ((ABS((REF(OPEN,1) - REF(CLOSE,1))) /
REF(CLOSE,1)) < 0.02)) AND ((CLOSE / OPEN) < 0.97)) AND (CLOSE <REF(CLOSE,2)));
射击之星:=(((MIN(OPEN,CLOSE) = LOW) AND ((HIGH - LOW) > (3 *
(MAX(OPEN,CLOSE) - LOW)))) AND (CLOSE > MA(CLOSE,5)));
锤头:=(((HIGH = MAX(OPEN,CLOSE)) AND ((HIGH - LOW) > (3 * (HIGH -
MIN(OPEN,CLOSE))))) AND (CLOSE < MA(CLOSE,5)));
吊颈:=(( (HIGH = MAX(OPEN,CLOSE)) AND ((HIGH - LOW) > (3 * (HIGH -
MIN(OPEN,CLOSE))))));
穿头破脚:=((((((REF(CLOSE,1) / REF(OPEN,1)) > 1.03) AND ((CLOSE / OPEN)
< 0.96)) AND (CLOSE < REF(OPEN,1))) AND (OPEN > REF(CLOSE,1))) OR
(((((REF(CLOSE,1) / REF(OPEN,1)) < 0.97) AND ((CLOSE / OPEN) >
1.04)) AND (CLOSE > REF(OPEN,1))) AND (OPEN < REF(CLOSE,1))));
身怀六甲:=(((((ABS((REF(CLOSE,1) - REF(OPEN,1))) / REF(CLOSE,1)) > 0.04)
AND ((ABS((CLOSE - OPEN)) / CLOSE) < 0.005)) AND (MAX(CLOSE,OPEN) <
MAX(REF(CLOSE,1),REF(OPEN,1)))) AND (MIN(CLOSE,OPEN) > MIN(REF(CLOSE,1),REF(OPEN,1))));
乌云盖顶:=(((((REF(CLOSE,1) / REF(OPEN,1)) > 1.03) AND ((CLOSE / OPEN) <
0.97)) AND (OPEN > REF(CLOSE,1))) AND (CLOSE < REF(CLOSE,1)));
曙光初现:=(((((REF(CLOSE,1) / REF(OPEN,1)) < 0.97) AND ((CLOSE / OPEN) >
1.03)) AND (OPEN < REF(CLOSE,1))) AND (CLOSE > REF(CLOSE,1)));
倾盆雨:=(((((REF(CLOSE,1) / REF(OPEN,1)) >= 1.03) AND (OPEN <
REF(CLOSE,1))) AND (OPEN > REF(OPEN,1))) AND (CLOSE < REF(OPEN,1)));
DRAWTEXT(倾盆雨,H*1.03,'倾盆大雨'),COLORCYAN;
DRAWTEXT(黄昏之星,H*1.02,'黄昏之星'),COLORCYAN;
DRAWTEXT(射击之星,H*1.03,'射击之星可能见顶'),COLORCYAN;
DRAWTEXT(锤头,L-L*0.02,'锤头可能见底'),COLORGREEN;
DRAWTEXT(吊颈,H*1.03,'吊颈'),COLORCYAN;
DRAWTEXT(穿头破脚,H*1.05,'穿头破脚'),COLORCYAN;
{DRAWTEXT(乌云盖顶,H*1.03,'乌云盖顶'),COLORCYAN;}
{DRAWTEXT(曙光初现,L-L*0.02,'曙光初现(放量)'),COLORGREEN;}
DRAWTEXT(身怀六甲,L-L*0.02,'身怀六甲,底升顶落'),COLORGREEN;
{平头底部:=REF(C,1)<MA(C,10) AND ABS(REF(C,1)-REF(O,1))>MA(ABS(C-O),10)*1.1 AND ABS(C-O)<MA(ABS(C-O),10)/1.1 AND L=REF(L,1);}{K线组合又叫蹑底，未破之前底部有支撑,一般不会收盘跌破,若收盘跌破，则形态成压，，若未破低而高过母线，则大概是低位震荡吸货！}
{DRAWTEXT(平头底部,L*1.02,'蹑底看涨'),COLORYELLOW;};
NZ:=150;
判断高低:=3;
高:=REF(HHV(H,NZ),判断高低);
{近期顶}密集成交区:REFDATE(高,DATE),COLORLIGREEN,LINETHICK2;
最顶:=REFDATE(密集成交区,DATE),NODRAW;
出:=最顶=H AND ((C-L)<(O-C) OR (O-L)<(C-O)),NODRAW;
{STICKLINE(出,C,O,3,0),COLORGREEN;}
STICKLINE(出,C,O,1.1,0),COLORBROWN;
DRAWTEXT(出,H*0.95,'抛'),COLORGREEN;
低:=REF(LLV(L,NZ),判断高低);
{近期底}近期新低:REFDATE(低,DATE),COLORLIRED,LINETHICK2;
最底:=REFDATE(近期新低,DATE),NODRAW;
进:=最底=L AND ((C+L)<(O+C) OR (O+L)<(C+O)),NODRAW;
{STICKLINE(进,C,O,3,0),COLORYELLOW;}
STICKLINE(进,C,O,1.1,0),COLORYELLOW;
DRAWTEXT(进,H*0.95,'买'),COLORYELLOW;
|
