注意:
本文属于八戒
改编
指标公式,源码可以用于通达信软件,第一部分源码属于主图或副图;第二部分属于选股公式源码(多个选股公式请分别使用);第三部分属于图片示例。
注意2:防止源码复制粘贴出错,请先把源码复制到WORD文档排序,再从WORD文档中复制源码!
第一部分
【攀龙1号】捉首板
电脑
【攀龙1号】捉首板条件如下:
1、突破前高;
2、至少是昨日量能的1.1倍
3、当日涨幅>5%;
4、捉首板
【攀龙1号】捉首板 选股
编写如下:
A:=REF(HIGH,9)=HHV(HIGH,2*9+1);
B:=FILTER(A,9);
AB:=BACKSET(B,9+1);
HD:=FILTER(AB,9);
前高:=REF(H,BARSLAST(HD));
倍量:=VOL/REF(VOL,1)>=1.1;
突破前高:=CROSS(C,前高);
攀龙1:=MA(CLOSE,10);
攀龙2:=MA(CLOSE,55);
攀龙3:=(REF(CLOSE,3)-CLOSE)/REF(CLOSE,3)*100>5;
攀龙4:=FILTER(攀龙3,10);
攀龙5:=BARSLAST(攀龙4);
攀龙6:=REF(HIGH,攀龙5+2);
攀龙7:=REF(HIGH,攀龙5+1);
攀龙8:=REF(HIGH,攀龙5);
攀龙9:=MAX(攀龙6,攀龙7);
攀龙10:=MAX(攀龙9,攀龙8);
攀龙11:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>5;
攀龙12:=攀龙5<150;
攀龙13:=(OPEN-攀龙10)/攀龙10*100<30;
攀龙14:=(CLOSE-LLV(LOW,攀龙5))/LLV(LOW,攀龙5)*100<50;
攀龙15:=(CLOSE-REF(OPEN,5))/REF(OPEN,5)*100<30;
攀龙16:=VOL/MA(VOL,5)<3.5;
攀龙17:=(CLOSE-REF(CLOSE,89))/REF(CLOSE,89)*100<80;
攀龙18:=攀龙11 AND 攀龙12 AND 攀龙13 AND 攀龙14 AND 攀龙15 AND 攀龙16 AND 攀龙17;
攀龙19:=FILTER(攀龙18,15);
攀龙20:=(CLOSE-攀龙2)/攀龙2<0.1;
攀龙21:=(CLOSE-攀龙1)/攀龙1<0.3;
攀龙22:=(攀龙20=1 AND 攀龙21=1)*0.2;
攀龙23:=(攀龙22=0 AND REF(攀龙22,1)=0.2 AND REF(COUNT(攀龙22=0.2,10)=10,1)=1)*(-0.1);
攀龙24:=攀龙23=(-0.1);
攀龙25:=攀龙19 OR 攀龙24;
攀龙26:=DYNAINFO(7)/REF(CLOSE,1)>1.05 AND DYNAINFO(7)/OPEN>1.05;
攀龙27:=VOL/REF(VOL,1)>1.2 AND CLOSE>OPEN OR (LOW>REF(HIGH,1) AND OPEN>CLOSE AND VOL/REF(VOL,1)>1.2);
攀龙28:=IF(CODELIKE(3) OR (CODELIKE(4) AND DATE>=1200824),CLOSE>=ZTPRICE(REF(CLOSE,1),0.2) AND CLOSE=HIGH,CLOSE>=ZTPRICE(REF(CLOSE,1),0.1) AND CLOSE=HIGH);
攀龙1号:攀龙25 AND 攀龙26 AND 攀龙27 AND 攀龙28 AND REF(NOT(攀龙28),1) AND 倍量 AND 突破前高;
第一部分
【攀龙1号】 主图
电脑
【攀龙1号】主图
编写如下:
回归斜率线A:=EMA(SLOPE(C,4)*20+C,42);
经典RL:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
经典K:=SMA(经典RL,3,1);
经典D:=SMA(经典K,3,1);
经典J:=3*经典K-2*经典D;
MAHL1:=100*((EMA((H+L)/2,3)-LLV(EMA((H+L)/2,5),30)-(EMA(H,20)-EMA(L,20))) /(LLV(EMA((H+L)/2,5),30)-(EMA(H,20)-EMA(L,20))));
MAHL2:=IF(EMA(C,2)>回归斜率线A AND MAHL1>0,EMA(C,3),LLV(EMA((H+L)/2,5),30));
MAHL3:=IF(EMA(C,2)>回归斜率线A AND MAHL1>0,LLV(EMA((H+L)/2,5),30),EMA(C,5));
回归斜率带:DRAWBAND(回归斜率线A,RGB(235,0,230),REF(回归斜率线A,2),RGB(0,104,154));
上线:=SMA(C,6.5,1);
一号支撑线:SMA(C,14.5,1);
上线1:=SMA(C,3,1);
一号支撑线1:=SMA(C,8,1);
上线2:=SMA(C,3.5,1);
DRAWTEXT(CROSS(一号支撑线1,上线1),H*1.08,'洗盘'),COLOR00FF00;
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,25))/4;
UPR:=BBI+3*STD(BBI,13),LINETHICK2;
DWN:=BBI-3*STD(BBI,13);
安全:=MA(CLOSE,55),LINETHICK2;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT( CROSS(82,RSI) AND CLOSE< 上线1 , HIGH*1.04,'减仓') ,COLORFF9966,LINETHICK2;
A7:=(2*C+H+L)/4;
操作:MA(A7,5),COLORBLUE,LINETHICK2;
操作1:=MA(A7,5)*1.03,LINETHICK2;
操作2:=MA(A7,5)*0.97,LINETHICK2;
DRAWTEXT( CROSS(上线1,上线) AND 上线1>操作,LOW *0.92,'买进' ),COLORYELLOW;
VAR1:LLV(A7,21);
VAR2:HHV(A7,30);
DRAWTEXT( CROSS(上线1,操作) AND 上线1< 一号支撑线 AND 上线1< 一号支撑线1 AND 上线1< 上线 AND CLOSE>VAR1,LOW *0.98,'见底' ),COLORYELLOW;
YCX:=操作>=REF(操作,1);
H1:=MAX(MAX(上线,一号支撑线1),一号支撑线);
L1:=MIN(MIN(上线,一号支撑线1),一号支撑线);
DRAWTEXT(CROSS(上线1,一号支撑线1) AND 上线1>操作 ,LOW *0.98,'全仓' ),COLORYELLOW;
SK:=EMA((A7-VAR1)/(VAR2-VAR1)*100,7);
SD:=EMA(0.667*REF(SK,1)+0.333*SK,5);
M1:=1000*操作/一号支撑线<=1015 AND 1000*操作/一号支撑线>=975;
M2:=1000*一号支撑线1/一号支撑线<=1020 AND 一号支撑线1/一号支撑线>=980;
M3:=1000*上线/一号支撑线<=1015 AND 上线/一号支撑线>=985;
DRAWTEXT(IF(COUNT(CLOSE< REF(CLOSE,1),13)/13>6/10 AND COUNT(SK>SD,6) AND REF(LOW,5)=LLV(LOW,120) AND REF(CLOSE>=OPEN,4) AND REF(CLOSE>OPEN,3) AND REF(CLOSE>OPEN,2) AND REF(OPEN>CLOSE,1) AND OPEN>REF(CLOSE,1),1,0),LOW*0.94,'买进') ,COLORYELLOW;
D:=MA(CLOSE,89)-MA(CLOSE,10)/3;
DRAWTEXT(IF(CLOSE< D AND VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE< MA(CLOSE,13)*1.3,1,0),LOW*0.88,'抄底'),COLORBROWN;
M8:=EMA(CLOSE,8),COLOR008000;
M13:=EMA(M8,13),COLOR0000FF;
游资八戒1:=EMA(M13,62);
游资八戒2:=(CLOSE+HIGH+LOW)/(3);
游资八戒3:=(EMA(游资八戒2,10));
游资八戒4:=(REF(游资八戒3,1));
游资八戒5:=((REF(HIGH,1)+REF(LOW,1))/(2));
游资八戒6:=MA(CLOSE,20)+((2)*(STD(CLOSE,20)));
游资八戒7:=REF(CLOSE,1);
游资八戒8:=((SMA(MAX(C-游资八戒7,0),7,1))/(SMA(ABS(C-游资八戒7),7,1)))*(100);
游资八戒9:=CROSS(69,游资八戒8);
游资八戒10:=(FILTER(游资八戒9,4));
游资八戒11:=((2)*(CLOSE)+HIGH+LOW)/(4);
游资八戒12:=(EMA(((游资八戒11-游资八戒1)/(游资八戒5-游资八戒1))*(100),7));
游资八戒18:=(EMA((0.667)*(REF(游资八戒12,1))+(0.333)*(游资八戒12),5));
游资八戒19:=(MA(CLOSE,80)-(MA(CLOSE,10))/(3));
M62:=EMA(M8,55),COLORF0F000;
M81:=EMA(M62,81),COLOR00FFFF;
M144:=EMA(游资八戒1,144),LINETHICK2,COLOR0000FF;
M250:=EMA(游资八戒1,250),POINTDOT,LINETHICK2,COLORF00FF0;
STICKLINE((游资八戒3>游资八戒4),游资八戒3,游资八戒4,4,0),COLOR00FFFF;
STICKLINE((游资八戒3
DRAWTEXT(CROSS(游资八戒3,游资八戒4),(游资八戒3)*(0.98),'★'),COLOR00FFFF;
DRAWTEXT(CROSS(游资八戒5,游资八戒6),(HIGH)*(1.04),'↓卖'),COLOR008000;
DRAWTEXT_FIX(C>O,0,0.07,0,'游资八戒18:游资八戒19'),COLORMAGENTA;
DRAWTEXT(游资八戒10,(HIGH)*(1.04),'↓卖'),COLORFFFFFF;
DRAWTEXT(IF(((COUNT((C
[
0.6) AND (V>=(1.5)*(MA(V,5))) AND COUNT((游资八戒12>=游资八戒18),3) AND (REF(L,1)=LLV(L,120)),1,0),L,'●买进'),COLORFF00FF;
]
DRAWTEXT(IF(((COUNT((C
[
0.6) AND COUNT((游资八戒12>游资八戒18),6) AND (REF(L,5)=LLV(L,120)) AND REF((C>=O),4) AND REF((C>O),3) AND REF((C>O),2) AND REF((O>C),1) AND (O>REF(C,1)),1,0),L,'●买进'),COLOR00FFFF;
]
DRAWTEXT(IF((C(MA(V,5))/(240)) AND (C>(REF(C,1))*(1.08)) AND (C
第二部分
【攀龙OBV】 幅图
电脑
【攀龙OBV】幅图
编写如下:
MOBV:=OBV-MA(OBV,30);
W1:STICKLINE(MOBV>0,MOBV,0,3,1),COLORRED;
W2:STICKLINE(MOBV<0,MOBV,0,3,1),COLORCYAN;
VA1:=HHVBARS(MOBV,BARSLAST(MOBV<0)+1);
VA2:=CROSS(BACKSET(CROSS(0,MOBV),REF(VA1,1)+2),0.5);
QG:=CROSS(BACKSET(CROSS(0,MOBV) OR (ISLASTBAR AND MOBV>0),REF(VA1,1)+2),0.5);
前高:DRAWLINE(VA2,MOBV,REF(VA2,1),REF(MOBV,1),1),COLORMAGENTA;
VA3:=LLVBARS(MOBV,BARSLAST(MOBV>0)+1);
VA4:=CROSS(BACKSET(CROSS(MOBV,0),REF(VA3,1)+2),0.5);
BD:=BARSLAST(FILTERX(CROSS(0,MOBV),BARSCOUNT(CLOSE)));
前低:DRAWLINE(VA4,MOBV,REF(VA4,1),REF(MOBV,1),1);
BDTJ:=IF(MOBV<0,FILTERX(MOBV=LLV(MOBV,BARSLAST(MOBV>0)),BARSCOUNT(CLOSE)),DRAWNULL);
TSBDTJ:=BARSLAST(BDTJ);
BDZH:=FILTERX(MOBV
BDTS:=BARSLAST(BDZH);{}
本低:IF(BD+1>=1,CONST(LLV(MOBV,BD+1)),DRAWNULL);
BDCL:=CROSS(COUNT(CROSS(MOBV>本低/2 AND MOBV<0,0.5),TSBDTJ)=1,0.5) AND TSBDTJ>=0;
终点:=IF(ISLASTBAR AND MOBV>0 AND MOBV=HHV(MOBV,BARSLAST(MOBV<0)),1,IF(FILTERX(QG,BARSCOUNT(CLOSE)),2,DRAWNULL));
UU:=终点=1 OR 终点=2 AND MOBV>0;
ZZ:=FILTERX(UU,BARSCOUNT(CLOSE));
本高:DRAWLINE(ZZ,MOBV,REF(ZZ,1),REF(MOBV,1),1),COLORWHITE;
横线:=CONST(REF(MOBV,BARSLAST(ZZ)));
WW:=MOBV>横线;
起始点:=FILTERX(REFX(BARSLAST(WW),1)=1,BARSCOUNT(CLOSE));
天数:=BARSLAST(起始点);
上横线:=DRAWLINE(起始点,横线,ZZ,横线,0);
下横线:=DRAWLINE(BDZH,CONST(LLV(MOBV,BD+1)),BDTJ=1,MOBV,0);
八戒19:DRAWNUMBER(BDTJ,CONST(LLV(MOBV,BD+1))*0.9,BDTS);
八戒20:DRAWNUMBER(ZZ,上横线*1.1,天数);
TJ:=IF(起始点,BARSNEXT(ZZ),DRAWNULL);
红柱数量:=IF(天数>0 AND 天数<=REF(TJ,天数),SUM(MOBV>0,天数),DRAWNULL);
横线起始价:=REF(CLOSE,天数);
空间评估:=(横线起始价-CLOSE)/CLOSE*100;
TT:=BARSLAST(ZZ);
WQG:=CROSS(COUNT(CROSS(MOBV0,0.5),ZZ)=1,0.5) AND ZZ>=0;
八戒21:STICKLINE(MOBV>前高 AND 本高>前高 AND BARSLAST(CROSS(MOBV0 AND MOBV>(前高+本高)/2,MOBV,前高,1,0),COLORYELLOW;
前高本高二分位:IF(MOBV>0 AND 本高!=前高,DRAWLINE(WQG,(前高+本高)/2,REF(WQG,1),REF((前高+本高)/2,1),1),DRAWNULL),DOTLINE,COLORLIBLUE;
AA:=STRCAT(STRCAT(STRCAT(53,54),55),CON2STR(IF(空间评估,空间评估,DRAWNULL),2));
八戒22:STICKLINE(MOBV>前高,MOBV,前高,1,0),COLORYELLOW;
八戒23:STICKLINE(WQG,MOBV,0,1,0),COLORGREEN;
八戒24:STICKLINE(MOBV<0 AND MOBV
B1:=IF(CROSS(MOBV<0,0.5),BARSNEXT(BDTJ),DRAWNULL);
TSB1:=BARSLAST(MOBV>0)-1;
八戒25:STICKLINE(BARSLAST(BDCL)>=0 AND MOBV
八戒26:STICKLINE(BDCL,MOBV,0,1,0),COLORWHITE;
八戒27:STICKLINE(MOBV>前高 AND 本高>前高 AND BARSLAST(WQG)>0,MOBV,前高,1,0),COLORRED;
八戒28:DRAWTEXT(VA2 AND VA2!=UU,MOBV/10*9,56);
八戒29:DRAWTEXT(VA2 AND VA2!=UU,MOBV/10,57);
八戒30:DRAWTEXT(ZZ,MOBV/10*7,58),COLORBLUE;
八戒31:DRAWTEXT(ZZ,MOBV/10,57),COLORBLUE;
八戒32:DRAWTEXT(BDTJ,MOBV/10*9,59),COLORRED;
八戒33:DRAWTEXT(BDTJ,MOBV/10,58),COLORRED;
八戒34:IF(BARSLAST(BDCL)>=0,本低/2,DRAWNULL),DOTLINE,COLORRED;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);