通达信起飞主图，红线持股公式主图 源码
{起飞主图}
DRAWTEXT_FIX(1,0.00,0,0,GNBLOCK)COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.00,0.06,0,FGBLOCK)COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.00,0.12,0,ZSBLOCK)COLORRED;
{大盘上涨率 行业上涨率 行业上涨股相对大盘上涨股比例—称权重上涨率}
大盘上涨数:=INDEXADV;
大盘下跌数:=INDEXDEC;
大盘上涨率:=大盘上涨数/(大盘上涨数+大盘下跌数)*100;
大于70:=IF(大盘上涨率>=70,大盘上涨率,DRAWNULL);
小于70:=IF(大盘上涨率<70,大盘上涨率,DRAWNULL);
DRAWTEXT_FIX(1,0.0,0.18,0,'大盘上涨率:');
DRAWNUMBER_FIX(1,0.07,0.18,0,CONST(大于70)),COLORRED;
DRAWNUMBER_FIX(1,0.07,0.18,0,CONST(小于70)),COLORGREEN;
DRAWTEXT_FIX(1,0.11,0.18,0,'%');
行业上涨数:=HY_INDEXADV;
行业下跌数:=HY_INDEXDEC;
行业上涨率:=行业上涨数/(行业上涨数+行业下跌数)*100;
大于70以上:=IF(行业上涨率>=70,行业上涨率,DRAWNULL);
小于70以下:=IF(行业上涨率<70,行业上涨率,DRAWNULL);
DRAWTEXT_FIX(1,0.13,0.18,0,'行业上涨率:');
DRAWNUMBER_FIX(1,0.20,0.18,0,CONST(大于70以上)),COLORRED;
DRAWNUMBER_FIX(1,0.20,0.18,0,CONST(小于70以下)),COLORGREEN;
DRAWTEXT_FIX(1,0.24,0.18,0,'%');
X11:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
X12:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替};
X13:=FINANCE(23)/FINANCE(10)*3.3;
X14:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}
X15:=FINANCE(20)/FINANCE(15)*0.999;
Z值:=X11+X12+X13+X14+X15;
DRAWTEXT_FIX(Z值<1.2,0.9,0,0,' 【●财务重警●】'),COLORRED;
DRAWTEXT_FIX( BETWEEN(Z值,1.2,2.6),0.9,0,0,' 【○财务轻警○】'),COLOR0099FF;
DRAWTEXT_FIX(Z值>2.6,0.9,0,0,' 【◎财务无警◎】'),COLORLIBLUE;
均:=(3*C+H+L+O)/6;
短线:=(8*均+7*REF(均,1)+6*REF(均,2)+5*REF(均,3)+4*REF(均,4)+3*REF(均,5)+2*REF(均,6)+REF(均,7))/36;
稳赢线:(LLV(短线,3)+LLV(短线,5)+LLV(短线,8))/3,LINETHICK1,CROSSDOT,COLORMAGENTA;
机构控盘线:MA(CLOSE,20),COLORRED,LINETHICK3;
IF(机构控盘线>REF(机构控盘线,1),机构控盘线,DRAWNULL),COLORRED,LINETHICK3;
IF(机构控盘线<=REF(机构控盘线,1),机构控盘线,DRAWNULL),LINETHICK3,COLORGREEN;
雷达线:EMA(CLOSE,8),COLORFFCC66,LINETHICK2;
IF(雷达线<REF(雷达线,2),雷达线,DRAWNULL),COLORWHITE,LINETHICK2;
涨幅:=(C/REF(C,1)-1)*100;
{涨幅A:=(C-REF(C,1))/REF(C,1)*100,NODRAW;
连涨:=BARSLASTCOUNT(C>REF(C,1) ),NODRAW;{连涨3天数}
{A1A:=C>REF(C,1) ,NODRAW;
A2A:=A1A*涨幅,NODRAW;
最后1天:=SUM(A2A,连涨) AND REFXV(C<REF(C,1),1),NODRAW;
求和:=SUM(A2A,连涨) ,NODRAW;
DRAWTEXT(最后1天=1 AND 连涨>=3,H*1.01,VARCAT(VAR2STR(求和,2),'%')),COLORMAGENTA;}
连涨:=BARSLASTCOUNT(C>REF(C,1)),NODRAW;{连涨天数}
A1A:=C>REF(C,1),NODRAW;
A2A:=A1A*涨幅,NODRAW;
最后1天:=SUM(A2A,连涨) AND REFXV(C<REF(C,1),1),NODRAW;
求和:=SUM(A2A,连涨) ,NODRAW;
DRAWTEXT(最后1天=1 AND 连涨>=3 AND 求和<=10,H*1.01,VARCAT(VAR2STR(求和,1),'%')),COLORMAGENTA;
DRAWTEXT(最后1天=1 AND 连涨>=3 AND 求和>10,H*1.01,VARCAT(VAR2STR(求和,1),'%')),COLORYELLOW;
连跌:=BARSLASTCOUNT(C<REF(C,1)),NODRAW;{连跌天数}
A1B:=C<REF(C,1) ,NODRAW;
A2B:=A1B*涨幅,NODRAW;
最后1天B:=SUM(A2B,连跌) AND REFXV(C>REF(C,1),1),NODRAW;
求和B:=SUM(A2B,连跌) ,NODRAW;
DRAWTEXT(最后1天B=1 AND 连跌>=3 AND 求和B<-10,L*0.99,VARCAT(VAR2STR(求和B*-1,1),'%')),COLORGREEN;
DRAWTEXT_FIX(1,0.915,0.93,0,'连续涨'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.96,0.93,0,CONST(连涨)),COLORRED;
DRAWTEXT_FIX(1,0.98,0.93,0,'天'),COLORYELLOW;
DRAWTEXT_FIX(1,0.915,1,0,'连续跌'),COLORGREEN;
DRAWNUMBER_FIX(1,0.96,1,0,CONST(连跌)),COLORGREEN;
DRAWTEXT_FIX(1,0.98,1,0,'天'),COLORGREEN;
RC1:=REF(C,1);
ZT:=C/REF(C,1)>1.099 AND H>L;
CS:=IF(C>=1,10000,100000);
C涨停10:=1.10*RC1-49/CS;{考虑到4舍5入}
C涨停5 :=1.05*RC1-49/CS;
C跌停10:=0.90*RC1+51/CS;
C跌停5 :=0.95*RC1+51/CS;
ST:=NAMELIKE('S') OR NAMELIKE('*S');
涨停:= IF(ST, C>=C涨停5, C>=C涨停10);
跌停:= IF(ST, C<=C跌停5, C<=C跌停10);
盘中涨停:=IF(ST, H>=C涨停5, H>=C涨停10);
盘中跌停:=IF(ST, L<=C跌停5, L<=C跌停10);
STICKLINE(盘中涨停,H,MAX(C,O),0,0),COLORMAGENTA;{涨停后回落}
STICKLINE(盘中跌停,L,MIN(C,O),0,0),COLORLICYAN;{跌停后回升};
STICKLINE(涨停,O,C,1,0),COLORMAGENTA;
STICKLINE(跌停,O,C,1,0),COLORLICYAN;
{涨停}
STICKLINE(C/REF(C,1)>=1.09,O,C,3.2,0),COLOR0033FF;
STICKLINE(C/REF(C,1)>=1.09,O,C,2.8,0),COLOR0055FF;
STICKLINE(C/REF(C,1)>=1.09,O,C,2.4,0),COLOR0077FF;
STICKLINE(C/REF(C,1)>=1.09,O,C,2.0,0),COLOR0099FF;
STICKLINE(C/REF(C,1)>=1.09,O,C,1.6,0),COLOR00AAFF;
STICKLINE(C/REF(C,1)>=1.09,O,C,0.8,0),COLOR00CCFF;
STICKLINE(C/REF(C,1)>=1.09,O,C,0.4,0),COLOR00DDFF;
STICKLINE(C/REF(C,1)>=1.09,O,C,0.0,0),COLOR00EEFF;
DRAWTEXT_FIX(1,0.980,20,1,'公式在线网'),COLOR666666;
{跌停}
A:=REF(C,1);B:=ZTPRICE(A,0.1)=C AND H=C;
DD:=DTPRICE(A,0.1)=C AND L=C;
STICKLINE(DD,H,L,0.00001,0),COLORGREEN;
STICKLINE(DD,O,C,3.2,0),COLOR005500;
STICKLINE(DD,O,C,2.4,0),COLOR007700;
STICKLINE(DD,O,C,1.6,0),COLOR009900;
STICKLINE(DD,O,C,0.8,0),COLOR00BB00;
STICKLINE(DD,O,C,0.4,0),COLOR00DD00;
STICKLINE(DD,O,C,0.0,0),COLOR00FF00;
天线:=MA(C,5),DOTLINE,COLORWHITE,LINETHICK0;
人线:=MA(C,36),NODRAW;
地线:=人线*0.99,COLORRED;
金线:=人线*0.97,DOTLINE;
D11:=天线/地线;
D2:=D11>=1 AND D11<1.02;
D3:=CROSS(C,天线) AND CROSS(C,地线);
伏1:=D2 AND D3 AND 天线>地线 AND L<地线 AND O<地线;
伏:=FILTER(伏1,40)*1,COLORYELLOW;
DRAWTEXT(伏,L*0.99,'埋★伏'),COLORYELLOW;
DRAWICON(伏,L*0.975,25);
DRAWSL(伏 AND C>O,C,0,35,0),COLORYELLOW;
DRAWSL(伏 AND C<O,O,0,35,0),COLORGREEN;
DRAWSL(伏,H,0,35,0),COLORMAGENTA;
XA:=BARSLAST(伏),NODRAW;
伏值C:=REF(C,XA);
伏值H:=REF(H,XA);
起飞:=(CROSS(C,伏值C) OR CROSS(C,伏值H)) AND H>L AND C>REF(C,1) AND REF(伏=0,1) AND XA<=30 AND XA>2 AND 涨幅>=2 AND 涨幅<9.91;
起飞过滤:=FILTER(起飞,10);
DRAWTEXT(起飞过滤,L*0.99,'起飞'),COLORYELLOW;
起飞2:=(CROSS(C,伏值C) OR CROSS(C,伏值H)) AND H>L AND C>REF(C,1) AND REF(伏=0,1) AND XA<=30 AND 涨幅>=9.91;
DRAWTEXT(起飞2,L*0.99,'起飞爆'),COLORYELLOW;
起飞异动:=起飞过滤=1 AND (VOL*10000/FINANCE(7)>=5 OR 涨幅>=5);
DRAWTEXT(起飞异动,L*0.99,'起飞'),COLORMAGENTA;
DRAWTEXT(起飞异动,L*0.97,'异动'),COLORMAGENTA;
