通达信多空看盘主图源码

MA1:MA(CLOSE,M1);
G:=MA(C,3);DD:=MA(C,8);
HH:=REF(H,5)=HHV(H,8);
LLL:=REF(L,5)=LLV(L,9);
FG01:=BACKSET(HH,6)>BACKSET(HH,5);
FD01:=BACKSET(LLL,6)>BACKSET(LLL,5);
FG02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND G>DD,FG01,
IF(BARSLAST(FD01)>BARSLAST(FG01),FG01,0));
FD02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND DD>G,FD01,
IF(BARSLAST(FG01)>BARSLAST(FD01),FD01,0));
FG0:=FG02 AND H=HHV(H,BARSLAST(FD02));
FD0:=FD02 AND L=LLV(L,BARSLAST(FG02));
GP:IF(FG0,H,DRAWNULL),CIRCLEDOT,COLORCYAN;
DP:IF(FD0,L,DRAWNULL),CIRCLEDOT,COLORCYAN;
GQ:=L>REF(H,1) AND DAY!=REF(DAY,1);
DQ:=H<REF(L,1) AND DAY!=REF(DAY,1);
GQL:=REF(L,BARSLAST(GQ));
DQH:=REF(H,BARSLAST(DQ));
FGH:=REF(H,BARSLAST(FG0));
FGL:=REF(L,BARSLAST(FG0));
FGH1:=REF(H,BARSLAST(FG0)+1);
FGL1:=REF(L,BARSLAST(FG0)+1);
FGH2:=REF(H,BARSLAST(FG0)+2);
FGL2:=REF(L,BARSLAST(FG0)+2);
FDH:=REF(H,BARSLAST(FD0));
FDL:=REF(L,BARSLAST(FD0));
FDH1:=REF(H,BARSLAST(FD0)+1);
FDL1:=REF(L,BARSLAST(FD0)+1);
FDH2:=REF(H,BARSLAST(FD0)+2);
FDL2:=REF(L,BARSLAST(FD0)+2);
FGZH:=IF(FGL<=FGL1,FGH2,FGH1);
FGZL:=IF(FGH1<FGL,FGL,IF(FGL<=FGL1,FGL2,FGL1));
FDZH:=IF(FDL1>FDH,FDH,IF(FDH>=FDH1,FDH2,FDH1));
FDZL:=IF(FDH>=FDH1,FDL2,FDL1);
FG1:=FGH>FDZH AND FG0;
FD1:=FDL<FGZL AND FD0;
FG:=FG1 AND FGH>FDH AND FGL>FDL AND FGL1>FDL;
FD:=FD1 AND FDL<FGL AND FDH<FGH AND FDH1<FGH;
BH0:=(H<=REF(H,1) AND L>=REF(L,1)) OR (H>=REF(H,1) AND L<=REF(L,1));
BHG:=COUNT(BH0,BARSLAST(FD0));
BHD:=COUNT(BH0,BARSLAST(FG0));
BGQ:=COUNT(GQ,BARSLAST(FD0));
BDQ:=COUNT(DQ,BARSLAST(FG0));
BK0:=IF(BHG>0,BHG+2,IF(BHD,BHD+2,3));
BK:=IF(BGQ,BK0-BGQ,IF(BDQ,BK0-BDQ,BK0));
G1X:=(FG AND BARSLAST(FD)>BK);
D1X:=(FD AND BARSLAST(FG)>BK);
G1:=(FG0 AND REF(H,BARSLAST(FG0))>=REF(H,BARSLAST(G1X)) AND BARSLAST(D1X)>BARSLAST(G1X))
OR (FG1 AND COUNT(GQ,BARSLAST(FD1))>0 AND REF(H,BARSLAST(FG1))>REF(H,BARSLAST(G1X)));
D1:=(FD0 AND REF(L,BARSLAST(FD0))<=REF(L,BARSLAST(D1X)) AND BARSLAST(G1X)>BARSLAST(D1X))
OR (FD1 AND COUNT(DQ,BARSLAST(FG1))>0 AND REF(L,BARSLAST(FD1))<REF(H,BARSLAST(D1X)));
G1H:=IF(BARSLAST(D1)>BARSLAST(G1),REF(H,BARSLAST(G1)),REF(H,BARSLAST(D1))),;
D1L:=IF(BARSLAST(G1)>BARSLAST(D1),REF(L,BARSLAST(D1)),REF(L,BARSLAST(G1)));
G2:=G1 AND H=HHV(G1H,BARSLAST(D1)+1) AND H>REF(H,1) AND BARSLAST(D1)>BARSLAST(G1);
D2:=D1 AND L=LLV(D1L,BARSLAST(G1)+1) AND L<REF(L,1) AND BARSLAST(G1)>BARSLAST(D1);
G3:=G2 OR (FG0 AND REF(H,BARSLAST(FG0))>REF(H,BARSLAST(G2)) AND BARSLAST(D2)>BARSLAST(G2));
D3:=D2 OR (FD0 AND REF(L,BARSLAST(FD0))<REF(L,BARSLAST(D2)) AND BARSLAST(G2)>BARSLAST(D2));
GPB:IF(G1X,H,DRAWNULL),CIRCLEDOT,COLORYELLOW;
DPB:IF(D1X,L,DRAWNULL),CIRCLEDOT,COLORYELLOW;
MMM:="MA.MA1"(5),NODRAW,COLORRED;
NN:=G3;UU:=D3;
L1:DRAWLINE(UU,L,NN, H,0),COLORYELLOW,DOTLINE;
L2:DRAWLINE(NN,H,UU, L,0),COLORYELLOW,DOTLINE;
DRAWNUMBER(UU,L*0.99,L);
DRAWNUMBER(NN,H*1.02,H);
DRAWLINE(UU,L,REF(UU,1),REF(L,1),1)COLORWHITE, LINETHICK1,DOTLINE;
DRAWLINE(NN,H,REF(NN,1),REF(H,1),1)COLORWHITE, LINETHICK1,DOTLINE;
CV:=CLOSE;
分水岭:(MA(CV,3)+MA(CV,6)+MA(CV,12)+MA(CV,20))/4,DOTLINE;
上:分水岭+M*STD(分水岭,N),DOTLINE;
下:分水岭-M*STD(分水岭,N),DOTLINE;
利润同比:=STRCAT('利润同比：',CON2STR(FINANCE(43),2));
收入同比:=STRCAT('收入同比：',CON2STR(FINANCE(44),2));
主营利润率:=STRCAT('主营利润率：',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
所属地域:=STRCAT('所属地域：',DYBLOCK);
所属行业:=STRCAT('所属行业：',HYBLOCK);
所属概念:=STRCAT('所属概念：',GNBLOCK);
所属风格:=STRCAT('所属风格：',FGBLOCK);
主营业务:=STRCAT('主营业务：',EXTERNSTR(0,1));
DRAWTEXT_FIX(1,0.00,0.05,0,所属地域),COLORYELLOW;
DRAWTEXT_FIX(1,0.00,0.14,0,所属行业),COLORCYAN;
DRAWTEXT_FIX(1,0.00,0.24,0,所属概念),COLORCYAN;
DRAWTEXT_FIX(1,0.00,0.34,0,所属风格),COLORCYAN;
DRAWTEXT_FIX(1,0.00,0.44,0,主营业务),COLORCYAN;
DRAWTEXT_FIX(1,0.4,0,0,'仁者~☆遵守纪律，战胜自己☆~无忧'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0.6,0,'买卖原则：'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0.7,0,'人人皆云，独立思考。'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0.77,0,'见势不好，撒腿就跑。'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0.85,0,'趋势转好，波段轮炒。'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,1.18,0,'暴量长阳，高位全抛。'),COLORGREEN;
DRAWTEXT_FIX(1,0.3,4,0,'~☆细腰耐等再放量，吞线过头就跟上☆~，~☆一拉二压三挑跳，
跨栏蹲线挑搂腰☆~'),COLORGREEN;
FF:=EMA(CLOSE,1);
MA15:=EMA(CLOSE,2);
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'上挑'),COLOR00FFFF;
DRAWTEXT(CROSS(MA15,FF),(HIGH * 1.02),'下压'),COLOR00FF00;