通达信鸿福黑马主图选股指标公式源码

通达信鸿福黑马主图选股指标公式源码

源码正文：

N:=5{XG51};
N2:=13{XG51};
M1:=11{XG51};
SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100){XG51};
AA10:ma(CLOSE,8),COLOR0000FF{XG51};
AA12:MA(CLOSE,12),COLOR0000FF{XG51};
BB10:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10){XG51};
BB12:=((ATAN((AA12 - REF(AA12,1))) * 3.1416) * 10){XG51};
VAR1:=(C+H+O+L)/4{XG51};
卖出Q:=xma(VAR1,20)*(1+80/1000),POINTDOT,COLORCYAN,LINETHICK3{XG51};
买入Q:=XMA(VAR1,32)*(1-100/1000),POINTDOT,COLORLIMAGENTA,LINETHICK3{XG51};
幅度:=100*(卖出Q-买入Q)/买入Q,NODRAW{XG51};
菩提:买入Q+(卖出Q-买入Q)*2/3;;
菩:HHV(菩提,2);
提:菩提-(菩-菩提){XG51};
般:=XMA(CLOSE,7);
若:=Mema(CLOSE,3);
全绿K:LONGcrOSS(若,般,3) AND H>菩提{XG51};
MA13:=MA(CLOSE,13){XG51};
趋势:EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),42),POINTDOT,COLORFF00FF,LINETHICK4{XG51};
stICKLINE(CLOSE> REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORWHITE;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR000077{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR000099;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR0000AA{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLOR0000BB{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLOR0000DD{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLOR0000FF{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORRED{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR777777{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR999999;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLORAAAAAA{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORBBBBBB{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORDDDDDD{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORFFFFFF{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORGREEN{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR990000{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLORCC0000;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLORFF4400{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORFF8800{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORFFCC00{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORGREEN{XG51};
X1:=(C+L+H)/3;BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10{XG51};
EMA8:=EMA(C,8);DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),
EMA8,'&ang;45上升'),COLORRED{XG51};
压力:MA(REF(HHV(C,30),1),2),COLOR00FF00{XG51};
支撑:MA(REF(LLV(C,30),1),2),COLOR0000FF;
AA1:=AMOUNT/V;BB1:=L<AA1*0.9{XG51};
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;DD1:=L<MA(C,5)*0.921;EE1:=V<MA(V,5)*1.5{XG51};
FF1:=BB1 AND CC1 AND DD1 AND EE1;DRAWTEXT(FF1,(LOW* 0.99),'鼠'),COLOR4080FF{XG51};
A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1){XG51};
黑马线:=EMA(A51,5);A54:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100{XG51};
趋势线:=(MA(3*SMA(A54,6,1)-2*SMA(SMA(A54,5,1),5,1),2)){XG51};
DRAWTEXT(CROSS(趋势线,0)AND 黑马线<40,(HIGH* 0.97),'▲黑马'),COLORBLUE{XG51};
FF:=EMA(CLOSE,3);MA15:=EMA(CLOSE,21){XG51};
STICKLINE(CROSS(FF,MA15),O,C,0.3,0),COLOR00FFFF{XG51};
STICKLINE(CROSS(88,RSI),O,C,0.3,0),COLOR113311{XG51};
VAR2:=LLV(LOW,27);VAR3:=HHV(HIGH,34);VAR4:=EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4)*25{XG51};
注意买:=IF((VAR4<10),80,100);RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100{XG51};
K:=SMA(RSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;超跌:=IF(J<0,10,0);BDDD:=LLV(J,2)=LLV(J,8){XG51};
买入:=IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND J<20,30,0){XG51};
DRAWTEXT(买入 AND 注意买=100 AND 超跌=0,LOW,'B'),COLOR8000FF{XG51};
mtm:=C-REF(C,1);DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(Abs(MTM),6),6){XG51};
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0){XG51};
DRAWTEXT(FILTER(买=1,5),LOW-0.03,'拉'),COLOR0000FF{XG51};
GET:zig(3,N),COLORBLUE{XG51};
PL5:=ZIG(3,5){XG51};
EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3){XG51};
EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3){XG51};
PL10:=ZIG(3,10){XG51};
EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3){XG51};
EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3){XG51};
PL20:=ZIG(3,20){XG51};
EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3){XG51};
EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3){XG51};
PL40:=ZIG(3,40){XG51};
走强1:=BArslAST(PL5<REF(PL5,1)){XG51};
走弱1:=BARSLAST(PL5>REF(PL5,1)){XG51};
走强2:=BARSLAST(PL10<REF(PL10,1)){XG51};
走弱2:=BARSLAST(PL10>REF(PL10,1)){XG51};
走强3:=BARSLAST(PL20<REF(PL20,1)){XG51};
走弱3:=BARSLAST(PL20>REF(PL20,1)){XG51};
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0){XG51};
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0){XG51};
DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0){XG51};
DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0){XG51};
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0){XG51};
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0){XG51};
DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0){XG51};
DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0){XG51};
DRAWTEXT(EN1 AND DTJZ5=1,L*0.95,'(A)'),COLORFFFF00{XG51};
DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'(B)'),COLORFF00FF{XG51};
DRAWTEXT(EN2 AND ZTJZ5=1,L*0.95,'(C)'),COLOR0000FF{XG51};
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'⑴'),COLOR0000FF{XG51};
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'⑵'),COLOR0000FF{XG51};
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'⑶'),COLOR0000FF{XG51};
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'⑷'),COLOR0000FF{XG51};
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'⑸'),COLOR0000FF{XG51};
DRAWTEXT(EN2 AND DTJZ10=1,L*0.93,'Ⅰ'),COLORFF00FF{XG51};
DRAWTEXT(EX2 AND DTJD10=2,H*1.01,'Ⅱ'),COLORFFFF00{XG51};
DRAWTEXT(EN3 AND ZTJZ10=1,L*0.93,'Ⅲ'),COLOR0000FF{XG51};
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.06,'①'),LINETHICK3,COLOR00FFFF{XG51};
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.94,'②'),LINETHICK3,COLOR00FFFF{XG51};
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.06,'③'),LINETHICK3,COLOR00FFFF{XG51};
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.94,'④'),LINETHICK3,COLOR00FFFF{XG51};
V1:=EMA(CLOSE,60)-EMA(CLOSE,453){XG51};
V2:=EMA(V1,453){XG51};
V3:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100{XG51};
V4:=SMA(V3,2,1){XG51};
V5:=SMA(V4,2,1){XG51};
V6:=CLOSE/REF(CLOSE,3)>=1.05 {XG51};
V7:=BacKSET(V6,3){XG51};
大涨买:=(V7 AND COUNT(V7,5)=1){XG51};
STICKLINE(大涨买,O,((C+O)/2),8,0),COLORBLUE,LINETHICK2{XG51};
STICKLINE(大涨买,O,((C+O)/2),4,0),COLORWHITE,LINETHICK2{XG51};
STICKLINE(大涨买,O,((C+O)/2),2,0),COLORCYAN,LINETHICK2{XG51};
DRAWTEXT(大涨买,LOW*0.98,'爆'),COLOR88FF22{XG51};
QA3:=REF(H,N2)=HHV(H,2*N2+1){XG51};
QB3:=FILTER(QA3,N2){XG51};
QC3:=BACKSET(QB3,N2+1){XG51};
QD3:=FILTER(QC3,N2){XG51};
QA4:=REF(L,N2)=LLV(L,2*N2+1){XG51};
QB4:=FILTER(QA4,N2){XG51};
QC4:=BACKSET(QB4,N2+1){XG51};
QD4:=FILTER(QC4,N2){XG51};
VR1:=(HIGH+LOW+CLOSE)/3;  
VR2:=(VR1-MA(VR1,14))/(0.015*AVEDEV(VR1,14));
VR3:=(VR1-MA(VR1,70))/(0.015*AVEDEV(VR1,70));
VR4:=IF(VR2>=150 AND VR2<200 AND VR3>=150 AND VR3<200,100,IF(VR2<=-150 AND VR2>-200 AND VR3<=-150 AND VR3>-200,-100,0));  
VR5:=IF(VR2>=150 AND VR2<200 AND VR3>=150 AND VR3<200,100,0);
VR6:=IF(VR2<=-150 AND VR2>-200 AND VR3<=-150 AND VR3>-200,-100,0);
VR7:=IF(VR2>=200,200,IF(VR2<=-200,-200,VR4));
顶:= (0-IF(VR3>=200,200,VR5)+400);  
底:=(0-IF(VR3>=200,0,IF(VR3<=-200,-200,VR6))-400){XG51};
测底:=-200{XG51};
测顶:=200{XG51};
买股:=(QD4 OR (QD4 AND C>O  AND vol>REF(LLV(VOL,60),1)))*15.21875>2{XG51};
持币:=(QD3 OR (QD3 AND C<O AND VOL>MA(VOL,5) AND VOL>MA(VOL,60)))*15.21875>2{XG51};
DRAWTEXT(QD3 OR (QD3 AND C<O AND VOL>MA(VOL,5) AND VOL>MA(VOL,60)),H*1.02,'持币！'),COLORRED{XG51};
AD:=(买股 AND 测底){XG51};
DRAWTEXT(AD,L,'买股！'),COLORRED{XG51};
STICKLINE(持币,O,(O+C)/2,4,0),COLORYELLOW{XG51};
STICKLINE(持币,O,(O+C)/2,2,0),COLORRED{XG51};
RVAR6:=EMA(HHV(HIGH,500),21){XG51};
RVAR7:=EMA(HHV(HIGH,250),21){XG51};
RVAR8:=EMA(HHV(HIGH,90),21){XG51};
RVAR9:=EMA(LLV(LOW,500),21){XG51};
RVARA:=EMA(LLV(LOW,250),21){XG51};
RVARB:=EMA(LLV(LOW,90),21){XG51};
RVARC:=EMA((RVAR9*0.96+RVARA*0.96+RVARB*0.96+RVAR6*0.558+RVAR7*0.558+RVAR8*0.558)/6,21){XG51};
RVARD:=EMA((RVAR9*1.25+RVARA*1.23+RVARB*1.2+RVAR6*0.55+RVAR7*0.55+RVAR8*0.65)/6,21){XG51};
RVARE:=EMA((RVAR9*1.3+RVARA*1.3+RVARB*1.3+RVAR6*0.68+RVAR7*0.68+RVAR8*0.68)/6,21){XG51};
RVARF:=EMA((RVARC*3+RVARD*2+RVARE)/6*1.738,21){XG51};
RVAR10:=REF(LOW,1){XG51};
RVAR11:=SMA(ABS(LOW-RVAR10),3,1)/SMA(MAX(LOW-RVAR10,0),3,1)*100{XG51};
RVAR12:=EMA(IF(CLOSE*1.35<=RVARF,RVAR11*10,RVAR11/10),3){XG51};
RVAR13:=LLV(LOW,30){XG51};
RVAR14:=HHV(RVAR12,30){XG51};
RVAR15:=IF(MA(CLOSE,58),1,0){XG51};
RVAR16:=EMA(IF(LOW<=RVAR13,(RVAR12+RVAR14*2)/2,0),3)/618*RVAR15{XG51};
RVAR17:=IF(RVAR16>50,50,RVAR16)/3.82*6{XG51};
RVAR18:=RVAR17>0 AND AD{XG51};
吸筹:STICKLINE(RVAR18,C,(C+O)/2,8,1),COLORCYAN {XG51};
STICKLINE(RVAR18,C,(C+O)/2,2,1),COLORWHITE{XG51};
DRAWTEXT(RVAR18,L*0.96,'加重筹码'),COLORBLUE{XG51};
全绿K2:=C>卖出Q OR (H>卖出Q AND O>C){XG51};
STICKLINE(全绿K2,C,O,3,0),COLOR00BB00{XG51};
STICKLINE(全绿K2,C,O,2,0),COLOR00DD00{XG51};
STICKLINE(全绿K2,C,O,1,0),COLOR00FF00{XG51};
STICKLINE(全绿K,O,C,2,1),COLORYELLOW{XG51};
AS:=PEAKBARS(3,M1,3)*1.1521875;  
派AH:=CROSS(AS,REF(AS,1)){XG51};
STICKLINE(派AH,O,(C+O)/2,5,0),COLORRED{XG51};
STICKLINE(派AH,O,(C+O)/2,1,0),COLORYELLOW{XG51};
DRAWTEXT(派AH,H*1.01,'筹码松动'),COLORGREEN{XG51};
DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLOR0080FF{XG51};
DRAWTEXT_FIX(1,0.07,0,0,HYBLOCK)COLOR0080FF{XG51};
DRAWTEXT_FIX(1,0,0.10,0,STRCAT('千股千评: ',EXTERNSTR(0,1))),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.00,0.18,0,'愚民主题概念：')COLORLIBLUE{XG51};
DRAWTEXT_FIX(1,0.07,0.18,0,EXTERNSTR(0,2))COLORLIBLUE{XG51};
DRAWTEXT_FIX(1,0.00,0.26,0,'行业龙头：')COLORFF88FF{XG51};
DRAWTEXT_FIX(1,0.07,0.26,0,EXTERNSTR(0,3))COLORFF88FF; {XG51};
DRAWTEXT_FIX(1,0.00,0.34,0,'主题投资：')COLORLIGREEN{XG51};
DRAWTEXT_FIX(1,0.07,0.34,0,EXTERNSTR(0,10))COLORLIGREEN{XG51};
DRAWTEXT_FIX(1,0.00,0.42,0,'主力成本：')COLORLICYAN{XG51};
DRAWTEXT_FIX(1,0.07,0.42,0,EXTERNSTR(0,9))COLORLICYAN{XG51};
DRAWTEXT_FIX(1,0.00,0.50,0,'资金流向：')COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.07,0.50,0,EXTERNSTR(0,6))COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.00,0.58,0,'智能诊断：')COLORFF88FF{XG51};
DRAWTEXT_FIX(1,0.07,0.58,0,EXTERNSTR(0,12))COLORFF88FF{XG51};
DRAWTEXT_FIX(1,0.00,0.66,0,'业绩预告：')COLORLICYAN{XG51};
DRAWTEXT_FIX(1,0.07,0.66,0,EXTERNSTR(0,20))COLORLICYAN{X.G=5_1.C.N.{};