【龙头吸筹套装】——1主图1幅图（1选股）

注意： 本文属于八戒 改编 指标公式，源码可以用于通达信软件，第一部分源码属于主图或副图；第二部分属于选股公式源码（多个选股公式请分别使用）；第三部分属于图片示例。

注意2：防止源码复制粘贴出错，请先把源码复制到WORD文档排序，再从WORD文档中复制源码！

熊市多长阳， 今晚美联储决议，市场预期降息周期开启，这才有了大A今日的大涨，也就是预期北上资金回流赛道。

题材上，券商、大医疗作为赛道里的低位股，今天疯狂补涨，券商是小作文，大医疗是利好。这个暴涨可以理解为洼地里的洼地补涨，券商用实力证明自己才是真正的大众情人。

此外，上海股正处于狂欢中...

晚上已出异常波动公告。

第一部分 【龙头吸筹主图】 手机/电脑

【龙头吸筹主图】由4个部分组成：

1 、加入了MACD、KDJ、RSI指标的顶底背离；

2、获利筹码线（本文核心），

高获利筹码线（黄色虚线）==(获利盘为99%的成本分布+获利盘为93%的成本分布+获利盘为85%的成本分布)/3；

中获利筹码线（黄色虚线）==(获利盘为84%的成本分布+获利盘为67%的成本分布+获利盘为50%的成本分布)/3；

低获利筹码线（红色虚线）==(获利盘为16%的成本分布+获利盘为34%的成本分布+获利盘为49%的成本分布)/3；

无获利筹码线（紫色虚线）==(获利盘为1%的成本分布+获利盘为7%的成本分布+获利盘为15%的成本分布)/3；

3、数字周期——绿色数字是菲波纳契螺旋周期,白色数字是卢卡斯螺旋周期 ；

4、 关键K线 ；

【龙头筹码】主图 编写如下：

所属板块:=STRCAT('【【伀|衆|号】游资八戒源码分享】',STRCAT(STRCAT(STRCAT(' [行业]—',HYBLOCK),STRCAT(' [地域]—',DYBLOCK)),STRCAT(' [概念]—',GNBLOCK)));

DRAWTEXT_FIX(ISLASTBAR,0.005,0.02,0,所属板块),COLOR00FFFF;

买线:=EMA(C,2);

卖线:=EMA(SLOPE(C,21)*20+C,42);

买入:IF(CROSS(买线,卖线),L-0.02,DRAWNULL),CROSSDOT,LINETHICK4,COLORRED;

卖出:IF(CROSS(80,RSI)*30,H+0.02,DRAWNULL),CROSSDOT,LINETHICK4,COLORGREEN;

VC:=((C-MA(C,6))/MA(C,6)*100+(C-MA(C,24))/MA(C,24)*100+(C-MA (C,32))/MA(C,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)

DRAWTEXT(B1> 0,L-0.02,'MACD底背离'),COLOR00FFFF;{MACD底背离}

A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));

B2:=REF(C,A2+1)> C AND REF("KDJ.K",A2+1)

DRAWTEXT(B2,L-0.10,'KDJ底背离'),COLORFF00FF;{KDJ底背离}

A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));

B3:=REF(C,A3+1)> C AND REF("RSI.RSI1",A3+1)

DRAWTEXT(B3> 0,L-0.18,'RSI底背离'),COLOR0000FF;{RSI底背离}

C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));

D1:=REF(C,C1+1) "MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF");

DRAWTEXT(D1> 0,H+0.16,'MACD顶背离'),COLOR00FF00;{MACD顶背离}

C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));

D2:=REF(C,C2+1) "KDJ.K" AND CROSS("KDJ.D","KDJ.K");

DRAWTEXT(D2> 0,H+0.08,'KDJ顶背离'),COLORFFFFCC;{KDJ顶背离}

C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));

D3:=REF(C,C3+1) "RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");

DRAWTEXT(D3> 0,H+0.04,'RSI顶背离'),COLORFF9900;{RSI顶背离};

高获利筹码线:(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;

上跨度:(高获利筹码线-低获利筹码线)/低获利筹码线*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.1,0,'绿色数字是菲波纳契螺旋周期,白色数字是卢卡斯螺旋周期'),COLOR0080FF;

{精准线}

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;

{单根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(C,2) / REF(OPEN,2)) > 1.03) AND (REF(OPEN,1) >

REF(C,2))) AND ((ABS((REF(OPEN,1) - REF(C,1))) /

REF(C,1)) < 0.02)) AND ((C / OPEN) < 0.97)) AND (C

射击之星:=(((MIN(OPEN,C) = LOW) AND ((HIGH - LOW) > (3 *

(MAX(OPEN,C) - LOW)))) AND (C > MA(C,5)));

锤头:=(((HIGH = MAX(OPEN,C)) AND ((HIGH - LOW) > (3 * (HIGH -

MIN(OPEN,C))))) AND (C < MA(C,5)));

吊颈:=(( (HIGH = MAX(OPEN,C)) AND ((HIGH - LOW) > (3 * (HIGH -

MIN(OPEN,C))))));

穿头破脚:=((((((REF(C,1) / REF(OPEN,1)) > 1.03) AND ((C / OPEN)

< 0.96)) AND (C < REF(OPEN,1))) AND (OPEN > REF(C,1))) OR

(((((REF(C,1) / REF(OPEN,1)) < 0.97) AND ((C / OPEN) >

1.04)) AND (C > REF(OPEN,1))) AND (OPEN < REF(C,1))));

身怀六甲:=(((((ABS((REF(C,1) - REF(OPEN,1))) / REF(C,1)) > 0.04)

AND ((ABS((C - OPEN)) / C) < 0.005)) AND (MAX(C,OPEN) <

MAX(REF(C,1),REF(OPEN,1)))) AND (MIN(C,OPEN) > MIN(REF(C,1),REF(OPEN,1))));

乌云盖顶:=(((((REF(C,1) / REF(OPEN,1)) > 1.03) AND ((C / OPEN) <

0.97)) AND (OPEN > REF(C,1))) AND (C < REF(C,1)));

曙光初现:=(((((REF(C,1) / REF(OPEN,1)) < 0.97) AND ((C / OPEN) >

1.03)) AND (OPEN < REF(C,1))) AND (C > REF(C,1)));

倾盆雨:=(((((REF(C,1) / REF(OPEN,1)) >= 1.03) AND (OPEN <

REF(C,1))) AND (OPEN > REF(OPEN,1))) AND (C < 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(ABS(C-O),10)*1.1 AND ABS(C-O)

DRAWTEXT(平头底部,L*1.02,'蹑底看涨'),COLORYELLOW;

NZ:=150;

判断高低:=3;

高:=REF(HHV(H,NZ),判断高低);

{近期顶}密集成交区:REFDATE(高,DATE),COLORLIGREEN,LINETHICK2;

最顶:=REFDATE(密集成交区,DATE),NODRAW;

出:=最顶=H AND ((C-L)

{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)

{STICKLINE(进,C,O,3,0),COLORYELLOW;}

STICKLINE(进,C,O,1.1,0),COLORYELLOW;

DRAWTEXT(进,H*0.95,'买'),COLORYELLOW;

1、副图中红色柱体为吸筹；