通达信智能诊股主图选股指标公式源码

通达信智能诊股主图选股指标公式源码

源码正文：

DRAWGBK(1,RGB(0,0,0),RGB(0,0,0),0,'448',0){XG51};
DRAWGBK(C>0, RGB(0,0,20),RGB(00,00,00),0,'0',1){XG51};
N:=5;M1:=10;M2:=20{XG51};
牛熊线:(ema(CLOSE,30)+Ema(CLOSE,72))/2,LINETHICK2,COLORWHITE{XG51};
DRAWTEXT(ISLAstBAR,牛熊线,'牛熊线'),COLORWHITE{XG51};
M5:MA(CLOSE,N),COLORRED,LINETHICK0{XG51};
M10:MA(CLOSE,M1),COLORBLUE{XG51};
M20:MA(CLOSE,M2),COLORFF00FF{XG51};
VAR1:=IF(CLOSE>OPEN,CLOSE,OPEN){XG51};
VAR2:=MEMA(CLOSE,5){XG51};
VAR3:=ATAN((VAR2/REF(VAR2,1)-1)*100){XG51};
VAR4:=IF(VAR3>0,VAR3,VAR3){XG51};
VAR5:=(CLOSE/REF(CLOSE,1)-1)*100{XG51};
VAR6:=VAR5<1.5 AND VAR5>-1.5{XG51};
强势:IF(VAR4>=REF(VAR4,1) AND VAR4>=0,M10,DRAWNULL),COLORWHITE,LINETHICK4{XG51};
整理:IF(VAR4<REF(VAR4,1) AND VAR4>0,M10,DRAWNULL),COLORCYAN,LINETHICK4{XG51};
A1:=REF(H,8)=HHV(H,2*8+1){XG51};
B1:=FILTER(A1,8){XG51};
C1:=BacKSET(B1,8+1){XG51};
D1:=FILTER(C1,8){XG51};
R11:=BACKSET(ISLASTBAR,BArslAST(D1)+1); S11:=R11>REF(R11,1){XG51};
DRAWLINE(D1,H,S11,H,1),COLORRED{XG51};
A2:=REF(L,8)=LLV(L,2*8+1){XG51};
B2:=FILTER(A2,8){XG51};
C2:=BACKSET(B2,8+1){XG51};
D2:=FILTER(C2,8){XG51};
AA05:=MA(C,5),COLOR0099CC{XG51};
五日乖离率:=(C-AA05)/AA05*100{XG51};
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416{XG51};
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1){XG51};
加速度5:EMA((速度5-REF(速度5,1)),3),NODRAW{XG51};
AA10:=MA(C,10){XG51};
AA20:=MA(C,20);BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416{XG51};
AA30:=MA(C,30){XG51};
三拾日乖离率:=(C-AA30)/AA30*100{XG51};
VAR11:=(AA20-AA30)>REF((AA20-AA30),1)
AND AA20>REF(AA20,1) AND AA30>REF(AA30,1){XG51};
VAR22:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND
AA30<REF(AA30,1){XG51};
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416{XG51};
强势狙击:=FILTER(BB30>30 AND BB10>45 AND
crOSS(BB05,60),10){XG51};
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND
AA05>REF(AA05,1)  AND 三拾日乖离率>REF(三拾日乖离率,1) AND
AA10>REF(AA10,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1)  ,10) {XG51};
清仓:=FILTER(COUNT(CROSS(30,BB05),5)>=1 AND (C>AA30 OR O>AA30) AND
AA05<REF(AA05,1)  AND 三拾日乖离率<REF(三拾日乖离率,1) AND
AA10<REF(AA10,1),10){XG51};
DRAWICON(加仓 ,LOW*0.99,23){XG51};
DRAWICON(清仓 ,HIGH*1.01,15){XG51};
DRAWICON(强势狙击 ,LOW*0.99,13){XG51};
HH0:=HHV(H,N){XG51};
LL0:=LLV(L,N){XG51};
MM0:=CONST((HH0+LL0)*0.5){XG51};
S01:=CONST(IF(REF(C,N-15)>MM0,1.00,-0.04)){XG51};
S02:=CONST(IF(REF(C,N-15)>MM0,-1,1)){XG51};
S1:=IF(FINDSTR(EXTERNSTR(0,13),'万元'),S01+(0.04*S02),S01){XG51};
S2:=IF(FINDSTR(EXTERNSTR(0,12),'。'),S1+(0.04*S02),S1){XG51};
S3:=IF(FINDSTR(EXTERNSTR(0,8),'公告'),S2+(0.04*S02),S2){XG51};
S4:=IF(FINDSTR(EXTERNSTR(0,10),'，'),S3+(0.04*S02),S3){XG51};
S5:=IF(FINDSTR(EXTERNSTR(0,15),'-'),S4+(0.04*S02),S4){XG51};
S6:=IF(FINDSTR(EXTERNSTR(0,1),'，'),S5+(0.04*S02),S5){XG51};
S7:=IF(FINDSTR(EXTERNSTR(0,14),'-'),S6+(0.04*S02),S6){XG51};
S8:=IF(FINDSTR(EXTERNSTR(0,11),'-'),S7+(0.04*S02),S7){XG51};
S9:=IF(FINDSTR(EXTERNSTR(0,9),'-'),S8+(0.04*S02),S8){XG51};
M:=13{XG51};
M3:MA(CLOSE,3),COLORWHITE,LINETHICK{XG51};
M13:MA(CLOSE,13),COLORWHITE,LINETHICK{XG51};
M34:MA(CLOSE,34),COLORWHITE,LINETHICK{XG51};
X:=BARSLAST(REF(CROSS(C,MA(C,120)),1)) AND CROSS(MA(C,20),MA(C,120)){XG51};
IF(M34<REF(M34,1),M34,DRAWNULL),COLORCYAN,LINETHICK{XG51};
STICKLINE(M3>=M13 AND M34>=REF(M34,1) ,H ,L ,0.1 ,0 ),COLORWHITE{XG51};
STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,3 ,1 ),COLORWHITE{XG51};
STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,3 ,0 ),COLORWHITE{XG51};
STICKLINE(M3<M13 AND M34>=REF(M34,1) ,H ,L ,0.1 ,0 ),COLORBLUE{XG51};
STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,3 ,1 ),COLORBLUE{XG51};
STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,3 ,0 ),COLORBLUE{XG51};
STICKLINE(M3<M13 AND M34<REF(M34,1) ,H ,L ,0.1 ,0 ),COLORCYAN{XG51};
STICKLINE(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,3 ,1 ),COLORCYAN{XG51};
STICKLINE(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,3 ,0 ),COLORCYAN{XG51};
STICKLINE(M3>=M13 AND M34<REF(M34,1) ,H ,L ,0.1 ,0 ),COLORLIMAGENTA{XG51};
STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,3 ,1 ),COLORLIMAGENTA{XG51};
STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,3 ,0 ),COLORLIMAGENTA{XG51};
STICKLINE(ISLASTBAR,HHV(C,5),HHV(C,5),218,1)COLORWHITE{XG51};
STICKLINE(ISLASTBAR,HHV(C,5)*0.95,HHV(C,5)*0.95,218,1)COLORWHITE;  
Z1:=STRCAT(HYBLOCK,' '){XG51};
Z2:=STRCAT(Z1,DYBLOCK){XG51};
Z3:=STRCAT(Z2,' '){XG51};
DRAWTEXT_FIX(ISLASTBAR,1,1.1,8,STRCAT(Z3,GNBLOCK)),COLORFFFF80{XG51};
DRAWTEXT_FIX(1,0.8,0.8,0,'★ 筹码峰 ★'),COLORWHITE{XG51};
DRAWNUMBER_FIX(1,0.9,0.8,0,CONST(WINNER(C)*100)){XG51};
AA:=(REF(CLOSE,1)+REF(CLOSE,2)+OPEN)/3{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.9,0.9,1,'《 今日保护价 》'),LINETHICK2,COLOR00FFFF{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.95,0.9,1,AA),COLORWHITE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.96,0.9,0,'元'){XG51};
线断走人:IF(zig(MA((H+L)/2,3),3)>REF(ZIG(MA((H+L)/2,3),3),1),ZIG(MA((H+L)/2,3),3),DRAWNULL),COLORBLUE,LINETHICK2{XG51};
DRAWTEXT_FIX(1,0.32,2,0,'黄色断◆  线断走人出局  ◆'),COLORBLUE{XG51};
DRAwrECTREL(0,480,205,589,RGB(10,1,30)){XG51};
资金流入:=SUM(IF(C>REF(C,1),V,0),FROMOPEN),NODRAW{XG51};
资金流出:=-SUM(IF(C<REF(C,1),V,0),FROMOPEN),NODRAW{XG51};
资金出入:=资金流入+资金流出,NODRAW{XG51};
DRAWBAND(资金出入,RGB(150,0,150),0,RGB(0,100,0)),NODRAW{XG51};
资金流量:资金出入,NODRAW{XG51};
资金比:资金出入/SUM(V,FROMOPEN)*100,NODRAW{XG51};
资金流量比:=IF(资金比>=0,(资金比+100)/2,100-Abs((资金比-100)/2)),NODRAW{XG51};
攻击量:=((HSL*0.50+REF(HSL,1)*0.33)+(REF(HSL,2)*0.17))*SUM(C,FROMOPEN)/FROMOPEN,NODRAW{XG51};
攻击量A:=SUM(IF(C>REF(C,1),攻击量*V,0),FROMOPEN),NODRAW{XG51};
攻击量B:=-SUM(IF(C<REF(C,1),攻击量*V,0),FROMOPEN),NODRAW{XG51};
攻击流量:攻击量A+攻击量B,NODRAW{XG51};
NOTEXT攻击线:攻击流量,NODRAW{XG51};
攻击比:攻击流量/SUM(V,FROMOPEN)*100,COLORWHITE,NODRAW{XG51};
资金攻击度:=IF(攻击比>=0,(攻击比+50),100-ABS((攻击比-50))){XG51};
{XG51};
DRAWRECTREL(20,570,180,540,RGB(0,75,200)){XG51};
DRAWRECTREL(20,570,30,540,RGB(0,250,50)){XG51};
DRAWRECTREL(20,570,15+CONST(资金流量比*150/100),540,RGB(200,50,0)){XG51};
DRAWTEXT_FIX(1,0.0,0.5,0,STRCAT(STRCAT('   【资金流量比】',CON2STR(资金流量比,2)),'％买')),COLORBLUE{XG51};
DRAWTEXT_FIX(1,5.0,0.9,0,EXTERNSTR(0,5))COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.0,0.2,0,EXTERNSTR(0,5))COLOR0000FF{XG51};
DRAWTEXT_FIX(C>0,0.004,0.11,0,STRCAT('智能诊股：',EXTERNSTR(0,2))),COLORFFFF00,LINETHICK2{X!G.5_1!C!N!{};