通达信异动停牌指标公式
{标记最近10日}
DRAWICON(V=CONST(REF(V,9)),1,22);STICKLINE(V=CONST(REF(V,9)),0,0.9,0.5,0),COLORFFFFFF;
DRAWNUMBER(V=CONST(REF(V,8)),1,9);
DRAWNUMBER(V=CONST(REF(V,7)),1,8);
DRAWNUMBER(V=CONST(REF(V,6)),1,7);
DRAWNUMBER(V=CONST(REF(V,5)),1,6);
DRAWNUMBER(V=CONST(REF(V,4)),1,5);
DRAWNUMBER(V=CONST(REF(V,3)),1,4);
DRAWNUMBER(V=CONST(REF(V,2)),1,3);
DRAWNUMBER(V=CONST(REF(V,1)),1,2);
DRAWNUMBER(V=CONST(REF(V,0)),1,1);
{计算10日、30日涨幅停牌}
距10日停牌需涨:=100-(C-REF(C,9))/REF(C,9)*100,NODRAW;
距30日停牌需涨:=200-(C-REF(C,29))/REF(C,29)*100,NODRAW;
DRAWTEXT_FIX(ISLASTBAR AND 距10日停牌需涨>=20,0.00,0.06,0,STRCAT('距10日停牌还需涨幅：',STRCAT(CON2STR(距10日停牌需涨,2),' %'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR AND 距10日停牌需涨<20,0.00,0.06,0,STRCAT('距10日停牌还需涨幅：',STRCAT(CON2STR(距10日停牌需涨,2),' %'))),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR AND 距30日停牌需涨>=20,0.00,0.26,0,STRCAT('距30日停牌还需涨幅：',STRCAT(CON2STR(距30日停牌需涨,2),' %'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR AND 距30日停牌需涨<20,0.00,0.26,0,STRCAT('距30日停牌还需涨幅：',STRCAT(CON2STR(距30日停牌需涨,2),' %'))),COLORGREEN;
{计算异动}
个股0:=C;
个股1:=REF(C,1);
个股2:=REF(C,2);
个股3:=REF(C,3);
标指0:=IF(CODELIKE('00'),"399107$C",IF(CODELIKE('60'),"999998$C",IF(CODELIKE('30'),"399102$C",IF(CODELIKE('68'),"000688$C",0))));
标指1:=REF(标指0, 1);
标指2:=REF(标指0, 2);
标指3:=REF(标指0, 3);
S1:=IF((((个股0/个股2)-1)*100-((标指0/标指2)-1)*100)>20,2,0),;
S2:=IF((((个股0/个股3)-1)*100-((标指0/标指3)-1)*100)>20,3,0),;
S21:=IF(S1=2 OR S2=3,1,0);
S22:=IF(S1+S2=5,1,IF(S2=3,2,1));
A1:=S21 AND REF(S21,1)=0 AND REF(S21,2)=0;
STICKLINE(A1,0,0.5,3,0),COLORMAGENTA;
A2:=BARSLAST(A1),NODRAW;
A21:=S21 AND REF(A1,1)=0 AND REF(A1,S22)=0;
A22:=A21 AND REF(A21,1)=0 AND REF(A21,S22)=0;
STICKLINE(A22,0,0.5,3,0),COLORMAGENTA;
A3:=BARSLAST(A22),NODRAW;
A31:=S21 AND REF(A22,1)=0 AND REF(A22,S22)=0;
A32:=A31 AND REF(A31,1)=0 AND REF(A31,S22)=0;
STICKLINE(A32,0,0.5,3,0),COLORMAGENTA;
A4:=BARSLAST(A32),NODRAW;
A41:=S21 AND REF(A32,1)=0 AND REF(A32,S22)=0;
A42:=A41 AND REF(A41,1)=0 AND REF(A41,S22)=0;
STICKLINE(A42,0,0.5,3,0),COLORMAGENTA;
A5:=BARSLAST(A42),NODRAW;
A51:=S21 AND REF(A42,1)=0 AND REF(A42,S22)=0;
A52:=A51 AND REF(A51,1)=0 AND REF(A51,S22)=0;
STICKLINE(A52,0,0.5,3,0),COLORMAGENTA;
{今日涨幅界限}
今一日涨幅界限:=(((20+((标指0/标指1)-1)*100)/100+1)*个股1/个股1-1)*100,COLORMAGENTA,NODRAW;
今两日涨幅界限:=(((20+((标指0/标指2)-1)*100)/100+1)*个股2/个股1-1)*100,COLORMAGENTA,NODRAW;
今三日涨幅界限:=(((20+((标指0/标指3)-1)*100)/100+1)*个股3/个股1-1)*100,COLORMAGENTA,NODRAW;
{
今一日涨幅界限:20-((个股0/个股1)-1)*100-((标指0/标指1)-1)*100+((个股0/个股1)-1)*100+((标指0/标指1)-1)*100,COLORMAGENTA,NODRAW;
今两日涨幅界限:20-((个股0/个股2)-1)*100-((标指0/标指2)-1)*100+((个股1/个股2)-1)*100+((标指1/标指2)-1)*100,COLORMAGENTA,NODRAW;
今三日涨幅界限:20-((个股0/个股3)-1)*100-((标指0/标指3)-1)*100+((个股1/个股3)-1)*100+((标指1/标指3)-1)*100,COLORMAGENTA,NODRAW;
}
B:=IF(今两日涨幅界限-今三日涨幅界限>0,今三日涨幅界限,今两日涨幅界限);
B1:=IF(A2=1 OR A3=1 OR A4=1 OR BARSLAST(A42)=1,今一日涨幅界限,0),NODRAW;
B2:=IF(A2=2 OR A3=2 OR A4=2 OR BARSLAST(A42)=2,今两日涨幅界限,0),NODRAW;
今异动涨幅界限:IF(B1,B1,IF(B2,B2,B)),NODRAW;
DRAWTEXT_FIX(ISLASTBAR AND 今异动涨幅界限>10,0.20,0.06,0,STRCAT('今涨幅异动界限：',STRCAT(CON2STR(今异动涨幅界限,2),' %')))COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR AND 今异动涨幅界限<=10,0.20,0.06,0,STRCAT('今涨幅异动界限：',STRCAT(CON2STR(今异动涨幅界限,2),' %')))COLORGREEN;
{明日涨停是否会触发异动}
明一日涨幅异动:=((ZTPRICE(C,0.1)/REF(C,0))-1)*100-((标指0/标指0)-1)*100,NODRAW;
明两日涨幅异动:=((ZTPRICE(C,0.1)/REF(C,1))-1)*100-((标指0/标指1)-1)*100,NODRAW;
明三日涨幅异动:=((ZTPRICE(C,0.1)/REF(C,2))-1)*100-((标指0/标指2)-1)*100,NODRAW;
B3:=IF(明两日涨幅异动-明三日涨幅异动>0,明两日涨幅异动,明三日涨幅异动),NODRAW;
B4:=IF(A1 OR A22 OR A32 OR A42,1,0),NODRAW;
B5:=IF(A2=1 OR A3=1 OR A4=1 OR BARSLAST(A42)=1,今两日涨幅界限,0),NODRAW;
B6:=IF(B4,B4,IF(B5,B5,B3)),NODRAW;
明涨停是否异动:=IF(B6>19.9,1,0);
DRAWTEXT_FIX(ISLASTBAR AND 明涨停是否异动=0,0.20,0.26,0,STRCAT('明涨停是否异动：','否')),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR AND 明涨停是否异动=1,0.20,0.26,0,STRCAT('明涨停是否异动：','是')),COLORGREEN;
{今日涨幅}
今涨幅:=(C/REF(C,1)-1)*100;
DRAWTEXT_FIX(ISLASTBAR AND 今涨幅>0,0.40,0.26,0,STRCAT('今涨幅：：',STRCAT(CON2STR(今涨幅,2),' %'))),COLORFF00FF;
DRAWTEXT_FIX(ISLASTBAR AND 今涨幅<=0,0.40,0.26,0,STRCAT('今涨幅：：',STRCAT(CON2STR(今涨幅,2),' %'))),COLOR00FF00;
{十日内异动次数}
十日内异动次数:=COUNT(A1 OR A22 OR A32 OR A42,10);
DRAWTEXT_FIX(ISLASTBAR AND 十日内异动次数=0,0.40,0.06,0,STRCAT('十日内异动次数：',STRCAT(CON2STR(十日内异动次数,0),' 次')))COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR AND 十日内异动次数>0,0.40,0.06,0,STRCAT('十日内异动次数：',STRCAT(CON2STR(十日内异动次数,0),' 次')))COLORGREEN;
通达信量化承接主图分时指标公式
游资分时:C,COLORFFFF00,LINETHICK9;
IF(C>=REF(C,1),C,DRAWNULL),COLOR0000FF,LINETHICK9;
AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(vol*100,BARSCOUNT(C));
BB:=BETWEEN(C/AA,C+H,C-H);
DRAWICON(ISLASTBAR AND C>REF(C,1),C,1);
DRAWICON(ISLASTBAR AND C< REF(C,1),C,2);
压力:MA(REF(HHV(C,30),1),2),DOTLINE,COLOR8080FF,LINETHICK1;
支撑:MA(REF(LLV(C,30),1),2),DOTLINE,COLORAAAA00,LINETHICK1;
STICKLINE(TIME2=94100 AND REF(C,BARSLAST(TIME2=94100))< REF(C,BARSLAST(TIME2=93100)),DYNAINFO(3)*1.03,DYNAINFO(3)*0.97,0.5,-1),COLORGREEN;
STICKLINE(TIME2=95100 AND REF(C,BARSLAST(TIME2=95100))>=REF(C,BARSLAST(TIME2=94100)),DYNAINFO(3)*1.03,DYNAINFO(3)*0.97,0.5,-1),COLORRED;
STICKLINE(TIME2=95100 AND REF(C,BARSLAST(TIME2=95100))< REF(C,BARSLAST(TIME2=94100)),DYNAINFO(3)*1.03,DYNAINFO(3)*0.97,0.5,-1),COLORGREEN;
STICKLINE(TIME2=100100 AND REF(C,BARSLAST(TIME2=100100))>=REF(C,BARSLAST(TIME2=95100)),DYNAINFO(3)*1.03,DYNAINFO(3)*0.97,0.5,-1),COLORRED;
STICKLINE(TIME2=100100 AND REF(C,BARSLAST(TIME2=100100))< REF(C,BARSLAST(TIME2=95100)),DYNAINFO(3)*1.03,DYNAINFO(3)*0.97,0.5,-1),COLORGREEN;
SJ1:=TIME2=93100;
T1:=BARSLAST(SJ1);
SJ2:=TIME2=94100;
SJ4:=TIME2=95100;
T2:=BARSLAST(SJ2);
T4:=BARSLAST(SJ4);
H1:=IF(TIME2=94100,REF(C,T2),DRAWNULL)=C;
H2:=IF(TIME2=95100,REF(C,T4),DRAWNULL)=C;
CS2:=CONST(REF(C,T2));
CS4:=CONST(REF(C,T4));
GL2:=FILTERX(H1,T2);
GL4:=FILTERX(H2,T4);
L1:=IF(TIME2=93100,REF(C,T1),DRAWNULL)=C;
CS1:=CONST(REF(C,T1));
GL1:=FILTERX(L1,T1);
DA:=CONST(IF(REF(GL2,BARSLAST(GL2)),REF(BARSLAST(GL1),BARSLAST(GL2)),DRAWNULL));
DA1:=CONST(IF(REF(GL4,BARSLAST(GL4)),REF(BARSLAST(GL2),BARSLAST(GL4)),DRAWNULL));
A:=IF(BARSLAST(GL1)>=0 AND BARSLAST(GL1)<=DA,((CS2-CS1)/DA)*BARSLAST(GL1)+CS1,DRAWNULL);
B:=IF(BARSLAST(GL2)>=0 AND BARSLAST(GL2)<=DA1,((CS4-CS2)/DA1)*BARSLAST(GL2)+CS2,DRAWNULL);
IF(A>=REF(A,1),A,DRAWNULL)COLORLIMAGENTA,LINETHICK3;
IF(A< REF(A,1),A,DRAWNULL)COLORGREEN,LINETHICK5;
IF(B>=REF(B,1),B,DRAWNULL)COLORLIMAGENTA,LINETHICK3;
IF(B< REF(B,1),B,DRAWNULL)COLORGREEN,LINETHICK3;
XSJ1:=TIME2=95100;
XT1:=BARSLAST(XSJ1);
XSJ2:=TIME2=100100;
XT2:=BARSLAST(XSJ2);
XCS2:=CONST(REF(C,XT2));
XL1:=IF(TIME2=95100,REF(C,XT1),DRAWNULL)=C;
XH1:=IF(TIME2=100100,REF(C,XT2),DRAWNULL)=C;
XCS1:=CONST(REF(C,XT1));
ZYG1:=FILTERX(XL1,XT1);
ZYG2:=FILTERX(XH1,XT2);
XDA:=CONST(IF(REF(ZYG2,BARSLAST(ZYG2)),REF(BARSLAST(ZYG1),BARSLAST(ZYG2)),DRAWNULL));
XA:=IF(BARSLAST(ZYG1)>=0 AND BARSLAST(ZYG1)<=XDA,((XCS2-XCS1)/XDA)*BARSLAST(ZYG1)+XCS1,DRAWNULL);
IF(XA>=REF(XA,1),XA,DRAWNULL)COLORLIMAGENTA,LINETHICK3;
IF(XA< REF(XA,1),XA,DRAWNULL)COLORGREEN,LINETHICK3;
周期:=TIME2=100100;
N:=BARSLAST(周期);
C1:CONST(IF(N,MAX(REF(HHV(H,0),N+1),DYNAINFO(4)),HHV(H,0))),DOTLINE,COLORRED;
C2:CONST(IF(N,MIN(REF(LLV(L,0),N+1),DYNAINFO(4)),LLV(L,0))),DOTLINE,COLORGREEN;
C3:(C1+C2)/2,DOTLINE,COLORYELLOW;
VV:=HHV(V,0);
ZF:=(C1/C2-1)*100;
DRAWTEXT(CURRBARSCOUNT=2,C1,VARCAT(VARCAT(VARCAT(VARCAT('上限:',VAR2STR(C1,2)),'元,'),VARCAT('振幅:',VAR2STR(ZF,2))),'%')),COLORRED;
DRAWTEXT(CURRBARSCOUNT=2,C3,VARCAT(VARCAT('中限:',VAR2STR(C3,2)),'元')),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=2,C2,VARCAT(VARCAT('下限:',VAR2STR(C2,2)),'元')),COLORGREEN;
DRAWTEXT(C1/C2<=1.03 AND crOSS(C,C1) AND V>=VV,C1*1.005,'★买入')COLORRED;
DRAWTEXT(C1/C2<=1.03 AND CROSS(C2,C) AND V>=VV,C2*0.998,'★卖出')COLORGREEN;
STICKLINE(C1/C2< 1.03 AND CROSS(C,C1) AND V>=VV,DYNAINFO(3)*1.03,DYNAINFO(3)*0.97,1,0),COLORRED;
游资力度:=((HSL*0.50+REF(HSL,1)*0.33)+(REF(HSL,2)*0.17))*SUM(C,FROMOPEN)/FROMOPEN;
游资力度A:=SUM(IF(C>REF(C,1),游资力度*V,0),FROMOPEN),COLOR0000FF,LINETHICK0;
游资力度B:=-SUM(IF(C< REF(C,1),游资力度*V,0),FROMOPEN),COLOR00FF00,LINETHICK0;
游资做T:=游资力度A+游资力度B,COLORSTICK;
攻击比:=游资做T/SUM(V,FROMOPEN)*100,COLORRED,LINETHICK1;
游资攻击度:=IF(攻击比>=0,(攻击比+50),100-Abs((攻击比-50)));
游资流入:=SUM(IF(C>REF(C,1),V,0),FROMOPEN),STICK,COLORRED;
游资流出:=-SUM(IF(C< REF(C,1),V,0),FROMOPEN),STICK,COLOR00FF00;
游资出入:=游资流入+游资流出,COLORSTICK;
游资比:=游资出入/SUM(V,FROMOPEN)*100,COLOR00FFFF,LINETHICK1;
游资流量比:=IF(游资比>=0,(游资比+100)/2,100-ABS((游资比-100)/2));
XG:HHV(H,480),DOTLINE,COLORRED;
STICKLINE(FILTER(CROSS(C,REF(XG,1)),10) AND C>REF(XG,1),C*0.99,C,8,0),COLORYELLOW;
DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10) AND C>REF(XG,1),C*0.99,'量化承接'),COLORYELLOW;
FF:=(C-REF(C,5))/REF(C,5);
STICKLINE(FF>0,DYNAINFO(3),DYNAINFO(3)*(1+FF),0.5,0),COLORRED;
STICKLINE(FF< 0,DYNAINFO(3),DYNAINFO(3)*(1+FF),0.5,0),COLORGREEN;
