通达信无敌风火轮主图指标公式源码

VAR1:=CODELIKE('60')||CODELIKE('00')||CODELIKE('30');
VAR2:=IF(BARSCOUNT(C)>=8,8,BARSCOUNT(C));
VAR3:=vol*(C+L+H)/3;
VAR4:=SUM(VAR3,VAR2)/SUM(VOL,VAR2);
VAR5:=HHV(REF(H,1),3);
VAR6:=REF(C>O,2) AND REF(C,2)<=VAR4;
VAR7:=REF(C<O,1) AND REF(C,1)<VAR4;
VAR8:=C>O AND C>=VAR4 AND C/REF(C,1)<1.08 AND O<REF(O,1) AND H<VAR5;
VAR9:=VAR6 AND VAR7 AND VAR8;
XG:=REF(VAR9,1) AND C<O AND VAR1 ;
STICKLINE(XG,O,C,1,0),COLORYELLOW;
DRAWICON(XG,L*0.99,18);
DRAWTEXT(XG,L*0.97,'↖无敌风火轮'),COLORYELLOW;
{业务与亮点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,'公司亮点：')COLORYELLOW;
DRAWTEXT_FIX(1,0.06,0.12,0,EXTERNSTR(0,3))COLORYELLOW;
{九转序列Z}
B:=C<REF(C,4);N1:=CURRBARSCOUNT;B8:=(N1>=1 AND COUNT(B,8)=8);
DRAWNUMBER(B8 AND REF(B,8)=0,L,8),COLORMAGENTA;
B9:=(N1>=1 AND COUNT(B,9)=9);
DRAWNUMBER(B9 AND REF(B,9)=0,L,9),COLORYELLOW;
A:=C>REF(C,4);A_8:=(N1>=1 AND COUNT(A,8)=8);
DRAWNUMBER(A_8 AND REF(A,8)=0,H*1.02,8),COLORMAGENTA;
A_9:=(N1>=1 AND COUNT(A,9)=9);DRAWNUMBER(A_9 AND REF(A,9)=0,H*1.02,9),COLORYELLOW;
{卖点Z}
M:=5;N:=12;
VARG0:=H=HHV(H,N) AND L!=LLV(L,N);
VARG1:=VARG0*250;
VARG2:=BARSLASTCOUNT(VARG1=250)=M;
VARG3:=(C-REF(C,1))/REF(C,1)*100>9.88 AND C=H;
VARG4:=IF(VARG3,0,VARG2);
VARG5:=crOSS(VARG3,0.5);
VARG6:=BARSLAST(VARG5);VARG7:=CROSS(0.5,VARG3) ;
VARG8:=COUNT(VARG2,VARG6+1)>0;
VARG9:=VARG7 AND VARG8;
卖:=VARG4 OR VARG9,NODRAW;DRAWICON(卖,H*1.03,8);
STICKLINE(卖,OPEN,CLOSE,1,0),COLORGREEN;DRAWTEXT(卖,H*1.01,' ★卖'),COLORGREEN;
{天地线Z}
天地线:EMA(C,14),COLORRED,LINETHICK2;
IF(天地线<REF(天地线,1),天地线,DRAWNULL), COLORGREEN,LINETHICK2;
DRAWTEXT(ISLASTBAR,天地线, '-----天地线'),COLORWHITE;
{昨天涨幅Z}
昨天涨幅:=(REF(C,1)-REF(C,2))/REF(C,2)*100;
DRAWTEXT_FIX(1,0.01,0.18,0,STRCAT(STRCAT('昨天涨幅：',CON2STR(昨天涨幅,2)),' ％')),COLORGREEN;
{通达信的集合竞价数据Z/F}
竞价金额:IF(ISLASTBAR AND PERIOD=5,DYNAINFO(15)/10000,GPJYVALUE(25,1,0)*O/100),NODRAW;
昨日竞价:REF(竞价金额,1),NODRAW;
昨占比:竞价金额*10000/REF(AMOUNT,1)*100,NODRAW;
开盘涨:(O/REF(C,1)-1)*100,NODRAW;
五日均竞价:MA(竞价金额,5),NODRAW;
五日竞价比:竞价金额/REF(五日均竞价,1),NODRAW;
{风险系数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;
{阻力与支撑、评分显示Z}
E:=(HIGH+LOW+OPEN+2*CLOSE)/5;阻力:=2*E-LOW;支撑:=2*E-HIGH;
DRAWTEXT_FIX(C!=0,0.90,0.90,0,STRCAT('参考阻力：',STRCAT(CON2STR(阻力,2),' '))),COLORFFFF00;
DRAWTEXT_FIX(C!=0,0.90,0.96,0,STRCAT('参考支撑：',STRCAT(CON2STR(支撑,2),' '))),COLORGREEN;
X1:=IF(MA(C,5)>MA(C,10),20,0);X2:=IF(MA(C,20)>MA(C,60),10,0);
X3:=IF(kdj.J>kdJ.K,10,0);X4:=IF(macd.DIF>MACD.DEA,10,0);
X5:=IF(MACD.MACD>0,10,0);X6:=IF(V>MA(V,60),10,0);
X7:=IF(WINNER(C)>0.5,10,0);X8:=IF(C/REF(C,1)>1.03,10,0);
XX:=X1+X2+X3+X4+X5+X6+X7+X8;
DRAWTEXT_FIX(V>O,0.90,0.84,0,STRCAT('量化评分：',STRCAT(CON2STR(XX,2),' '))),COLORYELLOW;