通达信顾比2018主图选股指标公式源码

通达信顾比2018主图选股指标公式源码

源码正文：

ZA:=ema(CLOSE,90){XG51};
ZB:=Ema(CLOSE,105){XG51};
ZC:=EMA(CLOSE,120){XG51};
ZD:=EMA(CLOSE,132){XG51};
ZE:=EMA(CLOSE,144){XG51};
NOTEXT1:ZA,COLORRED{XG51};
NOTEXT2:ZB,COLORRED{XG51};
NOTEXT3:ZC,COLORRED{XG51};
NOTEXT4:ZD,COLORRED{XG51};
NOTEXT5:ZE,COLORRED{XG51};
DA:=EMA(CLOSE,3);NOTEXT6:DA,COLORYELLOW{XG51};
DB:=EMA(CLOSE,5) ;NOTEXT7:DB,COLORYELLOW{XG51};
DC:=EMA(CLOSE,8) ;NOTEXT8:DC,COLORYELLOW{XG51};
DD:=EMA(CLOSE,10);NOTEXT9:DD,COLORYELLOW{XG51};
DE:=EMA(CLOSE,12);NOTEXT10:DE,COLORYELLOW{XG51};
DF:=EMA(CLOSE,15);NOTEXT11:DF,COLORYELLOW{XG51};
CA:=EMA(CLOSE,30);NOTEXT12:CA,COLORBLUE{XG51};
CB:=EMA(CLOSE,35);NOTEXT13:CB,COLORBLUE{XG51};
CC:=EMA(CLOSE,40);NOTEXT14:CC,COLORBLUE{XG51};
CD:=EMA(CLOSE,45);NOTEXT15:CD,COLORBLUE{XG51};
CE:=EMA(CLOSE,50);NOTEXT16:CD,COLORBLUE{XG51};
CF:=EMA(CLOSE,60);NOTEXT17:CF,COLORBLUE{XG51};
CDYX:=CA>CB AND CB>CC AND CC>CD AND CD>CE AND CE>CF{XG51};
CKYX:=CA<CB AND CB<CC AND CC<CD AND CD<CE AND CE<CF{XG51};
DDYX:=DA>DB AND DB>DC AND DC>DD AND DD>DE AND DE>DF{XG51};
DKYX:=CA<CB AND DB<DC AND DC<DD AND DD<DE AND DE<DF{XG51};
NOTEXT18:IF(CDYX,CA,DRAWNULL),COLORGRAY{XG51};
NOTEXT19:IF(CDYX,CB,DRAWNULL),COLORGRAY{XG51};
NOTEXT20:IF(CDYX,CC,DRAWNULL),COLORGRAY{XG51};
NOTEXT21:IF(CDYX,CD,DRAWNULL),COLORGRAY{XG51};
NOTEXT22:IF(CDYX,CE,DRAWNULL),COLORGRAY{XG51};
NOTEXT23:IF(CDYX,CF,DRAWNULL),COLORGRAY{XG51};
NOTEXT24:IF(CKYX,CA,DRAWNULL),COLORGREEN{XG51};
NOTEXT25:IF(CKYX,CB,DRAWNULL),COLORGREEN{XG51};
NOTEXT26:IF(CKYX,CC,DRAWNULL),COLORGREEN{XG51};
NOTEXT27:IF(CKYX,CD,DRAWNULL),COLORGREEN{XG51};
NOTEXT28:IF(CKYX,CE,DRAWNULL),COLORGREEN{XG51};
NOTEXT29:IF(CKYX,CF,DRAWNULL),COLORGREEN{XG51};
NOTEXT30:IF(DDYX,DA,DRAWNULL),COLORWHITE{XG51};
NOTEXT31:IF(DDYX,DB,DRAWNULL),COLORWHITE{XG51};
NOTEXT32:IF(DDYX,DC,DRAWNULL),COLORWHITE{XG51};
NOTEXT33:IF(DDYX,DD,DRAWNULL),COLORWHITE{XG51};
NOTEXT34:IF(DDYX,DE,DRAWNULL),COLORWHITE{XG51};
NOTEXT35:IF(DDYX,DF,DRAWNULL),COLORWHITE{XG51};
NOTEXT36:IF(DKYX,DA,DRAWNULL),COLORCYAN{XG51};
NOTEXT37:IF(DKYX,DB,DRAWNULL),COLORCYAN{XG51};
NOTEXT38:IF(DKYX,DC,DRAWNULL),COLORCYAN{XG51};
NOTEXT39:IF(DKYX,DD,DRAWNULL),COLORCYAN{XG51};
NOTEXT40:IF(DKYX,DE,DRAWNULL),COLORCYAN{XG51};
NOTEXT41:IF(DKYX,DF,DRAWNULL),COLORCYAN{XG51};
A23:=((C + L) + H) / 3{XG51};
A24:=EMA(A23,6){XG51};
A25:=EMA(A24,5){XG51};
A26:=crOSS(A24,A25) AND C>MA(C,55){XG51};
DRAWICON(A26,(LOW / 1.015),26),LINETHICK2,COLORLIMAGENTA{XG51};
A1:=DATE <= 13181231{XG51};
工作线:(EMA(C,14)),POINTDOT,LINETHICK4,COLORBLUE{XG51};
P:=21{XG51};
WH1:=IF(L=LLV(L,P),L,DRAWNULL){XG51};
WH2:=CONst(BArslAST(WH1!=DRAWNULL)){XG51};
WH3:=CONST(IF(WH2=0,H,REF(H,WH2))){XG51};
WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1){XG51};
WH5:=CONST(IF(WH4=0,H,REF(H,WH4))){XG51};
WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1){XG51};
进场:IF(CURRBARSCOUNT<=WH2+21,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL),COLORWHITE{XG51};
IF(CURRBARSCOUNT<=WH2+1,IF(L=LLV(L,P),L,DRAWNULL),DRAWNULL),CIRCLEDOT,COLORWHITE{XG51};
DRAWTEXT(CURRBARSCOUNT=INTPART((WH2+21)*0.618),进场,'进场线'),COLORWHITE{XG51};
超跌进场:IF(CURRBARSCOUNT<=WH2+21,CONST(IF(WH4=0,H,REF(H,WH4))),DRAWNULL),COLORCB21BE{XG51};
DRAWTEXT(CURRBARSCOUNT=INTPART((WH2+21)*0.618),超跌进场,'超跌进场线'),COLORCB21BE{XG51};
H1:=IF(H=HHV(H,P),H,DRAWNULL){XG51};
H2:=CONST(BARSLAST(H1!=DRAWNULL)){XG51};
H3:=CONST(IF(H2=0,L,REF(L,H2))){XG51};
H4:=CONST(REF(BARSLAST(L<H3),H2+1)+H2+1){XG51};
H5:=CONST(IF(H4=0,L,REF(L,H4))){XG51};
H6:=CONST(REF(BARSLAST(L<H5),H4+1)+H4+1){XG51};
DK:=(MA(CLOSE, 5)+MA(CLOSE, 10)+MA(CLOSE, 13)+MA(CLOSE, 21))/4{XG51};
IF(DK<=REF(DK,1),DK,DRAWNULL),COLORCYAN,LINETHICK3{XG51};
IF(DK>REF(DK,1),DK,DRAWNULL),COLORWHITE,LINETHICK3{XG51};
多空:DK,NODRAW{XG51};
总股本:=FINANCE(1)/100000000{XG51};
流通股本:=FINANCE(7)/100000000{XG51};
未流通比:=(总股本-流通股本)/总股本*100{XG51};
现价:=C{XG51};
全流通后价:=C*流通股本/总股本{XG51};
解禁股:=IF((流通股本-REF(流通股本,1))>0,(流通股本-REF(流通股本,1)),0),COLORBLUE{XG51};
DRAWTEXT(解禁股>0, L,'解禁'),COLORBLUE{XG51};
冻结:IF((流通股本-REF(流通股本,1))<0,(REF(流通股本,1)-流通股本),0),COLORCYAN,NODRAW;{XG51};
上11:MA(C,55)+6.18*SMA(MAX(MAX(H-L,Abs(H-REF(C,1))),ABS(REF(C,1)-L)),17,1),COLORLIMAGENTA{XG51};
上22:MA(C,55)+3.82*SMA(MAX(MAX(H-L,ABS(H-REF(C,1))),ABS(REF(C,1)-L)),17,1),COLORBLUE{XG51};
下11:MA(C,55)-3.82*SMA(MAX(MAX(H-L,ABS(H-REF(C,1))),ABS(REF(C,1)-L)),17,1),COLORBLUE{XG51};
下22:MA(C,55)-6.18*SMA(MAX(MAX(H-L,ABS(H-REF(C,1))),ABS(REF(C,1)-L)),17,1),COLORLIMAGENTA{XG51};
中:MA(C,55),COLORWHITE,LINETHICK5{XG51};
IF(MA(C,55)<REF(MA(C,55),1),MA(C,55),DRAWNULL),COLORCYAN,LINETHICK5{X~G~5?1~C~N~{};