通达信庄家启动主图指标公式源码

生命线:MA(C,8),COLOR00FFFF,LINETHICK2;
多方线:MA(C,50),COLOR0000FF,LINETHICK2;
VAR1:=(3*C+L+O+H)/6;
VAR2:=(20*VAR1+19*REF(VAR1,1)+18*REF(VAR1,2)+17*REF(VAR1,3)+16*REF(VAR1,4)+15*REF(VAR1,5)+14*REF(VAR1,6)+13*REF(VAR1,7)+12*REF(VAR1,8)+11*REF(VAR1,9)+10*REF(VAR1,10)+9*REF(VAR1,11)+8*REF(VAR1,12)+7*REF(VAR1,13)+6*REF(VAR1,14)+5*REF(VAR1,15)+4*REF(VAR1,16)+3*REF(VAR1,17)+2*REF(VAR1,18)+REF(VAR1,20))/210;
VAR3:=C-REF(C,1);
VAR4:=EMA(EMA(CLOSE,13),13);
控盘度:(VAR4-REF(VAR4,1))/REF(VAR4,1)*1000,NODRAW;
无庄:控盘度<0,NODRAW;
有庄:控盘度>REF(控盘度,1) AND 控盘度>0,NODRAW;
VAR5:=DYNAINFO(11);
VAR6:=(EMA(C,8)-EMA(C,21))*50;
VAR7:=EMA(VAR6,3);
VAR8:=(C-VAR5)/VAR5<-0.03;
VAR9:=(C-VAR5)/VAR5<-0.03;
VAR10:=LAST(VAR5>=REF(VAR5,1),5,1) AND (C-VAR5)/VAR5<0.005;
VAR11:=(C-VAR5)/VAR5>0.005;
VAR12:=控盘度<REF(控盘度,1) AND 控盘度>0.5;
VAR13:=控盘度>0;
VAR14:=控盘度>REF(控盘度,1) AND 控盘度<-0.2;
VAR15:=控盘度>REF(控盘度,1) AND 控盘度<0;
VAR16:=crOSS(VAR6,VAR7) AND VAR6<-0.3;
VAR17:=CROSS(VAR6,VAR7) AND VAR6<-0.1;
VAR18:=CROSS(VAR7,VAR6);
VAR19:=CROSS(VAR7,VAR6) AND VAR6>1.618;
VAR20:=FILTER(VAR8 AND VAR14 AND VAR16,13);
VAR21:=FILTER(VAR9 AND VAR14 AND VAR16,13);
VAR22:=FILTER(VAR10 AND VAR15 AND VAR17,13);
VAR23:=FILTER(VAR11 AND VAR12 AND VAR18,13);
VAR24:=FILTER(VAR13 AND VAR19,13);
VAR25:=VAR23 AND VAR24;
VAR26:= VAR9 AND VAR14 AND VAR16;
大成:=CODELIKE('60')||CODELIKE('00')||CODELIKE('30');
VAR27:=大成 AND FILTER(VAR26,30);
STICKLINE(VAR27,O,C,1,0),COLORYELLOW;
DRAWTEXT(VAR27,L*0.97,' ↖庄家'),COLOR00FFFF;
DRAWICON(VAR27,L*0.99,34);
STICKLINE(C/REF(C,1)>=1.096 AND H=C,O,C,1,0),COLOR0000FF;
{业务与亮点Z}
DRAWTEXT_FIX(1,0.00,0.00,0,'主题投资：')COLOR0000FF;
DRAWTEXT_FIX(1,0.06,0.00,0,EXTERNSTR(0,1))COLOR0000FF;
DRAWTEXT_FIX(1,0.00,0.06,0,'主营业务：')COLORFF00FF;
DRAWTEXT_FIX(1,0.06,0.06,0,EXTERNSTR(0,2))COLORFF00FF;
DRAWTEXT_FIX(1,0.00,0.12,0,'公司亮点：')COLORFF00FF;
DRAWTEXT_FIX(1,0.06,0.12,0,EXTERNSTR(0,3))COLORFF00FF;
{风险系数Z}
XX1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
XX2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替}
XX3:=FINANCE(23)/FINANCE(10)*3.3;
XX4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}
XX5:=FINANCE(20)/FINANCE(15)*0.999;Z值:=XX1+XX2+XX3+XX4+XX5;
DRAWTEXT_FIX(1,0.07,0.94,1,'财务预警：'),COLORYELLOW;
DRAWTEXT_FIX(Z值<1.2,0.1,0.94,1,' ●重 警●'),COLORRED;
DRAWTEXT_FIX( BETWEEN(Z值,1.2,2.6),0.1,0.94,1,' ○轻 警○'),COLOR0099FF;
DRAWTEXT_FIX(Z值>2.6,0.1,0.94,1,' ◎无 警◎'),COLORLIGREEN;