通达信起爆点主图 预警公式

[复制链接]
查看224 | 回复0 | 2022-7-24 07:10:52 | 显示全部楼层 |阅读模式

必需的公式送给需要的你.我分享我愿意 .
 
{起爆点主图 公式}
 DRAWGBK(C>0, RGB(40,120,20),RGB(00,00,00),0,0,1),LINETHICK2;
 MA1:MA(C,1),LINETHICK1;
MA7:MA(C,7),COLORWHITE ,LINETHICK2;
 MA14:MA(C,14),COLORYELLOW,LINETHICK3;
 MA17:IF(MA(C,17) >MA(C,89),MA(C,21),MA(C,89))COLOR00AAFF,LINETHICK3;
 MA89:MA(C,89),POINTDOT,COLORFFFFFF,LINETHICK4;
 DRAWICON(CROSS(MA14,MA89),MA14,1);
 DRAWICON(CROSS(MA7,MA89),MA7,1);
 HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;
 AA01:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
 QY:=(AA01,HIGHN+1);
 CC01:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
 DDDD1:=BARSLAST(CC01);
 GDTS:=IF(CC01,CURRBARSCOUNT,0);
 DINGBUTS:=IF(DDDD1,REF(GDTS,DDDD1),GDTS);
 GDCS1:=CONST(DINGBUTS);
 DINGBUTS1:=REF(DINGBUTS,DDDD1+1);
 GDCS2:=CONST(DINGBUTS1);
 AA111:=REF(L,LOWN)=LLV(L,2*LOWN+1);
 QY1:=(AA111,LOWN+1);
 CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1);
 DD1:=(CC1);
 DDTS:=IF(CC1,CURRBARSCOUNT,0);
 DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
 DDCS1:=CONST(DDTS1);
 DDTS2:=REF(DDTS1,DD1+1);
 DDCS2:=CONST(DDTS2);
 高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) ,COLOR8080FF,LINETHICK3;
 低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1),COLOR8080FF,LINETHICK3;
 {压力一}
 TY:=C,LINETHICK2;
 A001:=REF(TY,10)=HHV(TY,2*10+1),LINETHICK2;
 B1:=FILTER(A001,10),LINETHICK2;
 C001:=(B1,10+1),LINETHICK2; HD:=FILTER(C001,10),LINETHICK2;
 A002:=REF(TY,10)=LLV(TY,2*10+1),LINETHICK2; B2:=FILTER(A002,10),LINETHICK2;
 C2:=(B2,10+1),LINETHICK2; LD:=FILTER(C2,10),LINETHICK2;
 前期高位:REF(C,BARSLAST(HD)),COLOR00FF00,POINTDOT,LINETHICK2;
 STICKLINE(C,前期高位,前期高位,8,0),COLORYELLOW,LINETHICK2;{压力支撑}
 N2:=5;N3:=5;
 M:=INTPART(3*N2/5);{压力线取}
 AAAA:=REF(H,M)=HHV(H,2*M+1);
 QYY:=(AAAA,M+1);
 CCC:=FILTER(QYY,M) AND H=HHV(H,M+1);
 DDDD:=BARSLAST(CCC),NODRAW;
 GDTSS:=IF(CCC,CURRBARSCOUNT,0),NODRAW;
 DINGBUTSS:=IF(DDDD,REF(GDTSS,DDDD),GDTSS),NODRAW;
 GDCS11:=CONST(DINGBUTSS),NODRAW;
 DINGBUTS11:REF(DINGBUTSS,DDDD+1),NODRAW;
 GDCS22:=CONST(DINGBUTS11);
 高点压力M:DRAWLINE(CURRBARSCOUNT=GDCS22,H,CURRBARSCOUNT=GDCS11,H,1),COLORLIBLUE,LINETHICK3;
 W:=INTPART(3*N3/5);
 AA11:=REF(L,W)=LLV(L,2*W+1);
 QY11:=(AA11,W+1);
 CC11:=FILTER(QY11,W) AND L=LLV(L,W+1);
 DD11:=BARSLAST(CC11);
 DDTSS:=IF(CC11,CURRBARSCOUNT,0);
 DDTS11:=IF(DD11,REF(DDTSS,DD11),DDTSS);
 DDCS11:=CONST(DDTS11);
 DDTS22:=REF(DDTS11,DD11+1);
 DDCS22:=CONST(DDTS22);
 低点支撑M:DRAWLINE(CURRBARSCOUNT=DDCS22,L,CURRBARSCOUNT=DDCS11,L,1),,COLORFF8000 ,LINETHICK2;
 T1B:=CONST(LLVBARS(LOW,10));
 T1HIGH:=CONST(REF(HIGH,T1B));
 CC001:=CONST(CURRBARSCOUNT);
 T2B:=CONST(BARSLAST(CURRBARSCOUNT>CC001+T1B AND H>T1HIGH));
 T2HIGH:=CONST(REF(HIGH,T2B));
 T3:=CONST(BARSLAST(CURRBARSCOUNT>CC001+T2B AND HIGH>T2HIGH));
 T3HIGH:=CONST(REF(HIGH,T3));
 必杀线:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),COLORRED,LINETHICK3;
 DRAWTEXT(ISLASTBAR, T3HIGH, '必杀线')LINETHICK1,COLOR0000FF;
 MA5K:必杀线,COLORYELLOW,LINETHICK1;
 {启动分界线组件————————————————————————}
 M1:=EMA(C,5);M2:=EMA(C,13);M3:=EMA(C,34);
 MC1:=EMA(C,55);MC2:=EMA(C,89);MA4:=EMA(C,144);
 判势线:=NEWSAR(1,100),COLORYELLOW,LINETHICK2;
 {跳空缺口组件——————————————————————————}
 N:=30;
 LL:=REF(L,1);
 HH:=REF(H,1);
 SQK:=L>HH;
 XQK:=H<LL;
 向上跳几元:IF(SQK=1,L-HH,DRAWNULL),COLORGREEN,CROSSDOT,LINETHICK3,NODRAW;
 逃命跳空元:IF(XQK=1,H-LL,DRAWNULL),COLORYELLOW,CROSSDOT,LINETHICK3,NODRAW;
 DRAWTEXT(SQK,L*0.92,' 向上跳空'),COLOR00F0F0,LINETHICK2;
 DRAWTEXT(XQK,H*1.08,' 逃命跳空'),COLOR0000FF,LINETHICK2;
 {主图中的倍量K线如何变黄色}
 V2V:=V/REF(V,1)>=1.9 AND C>REF(C,1);
 STICKLINE(V2V,O,C,-1,0),COLORYELLOW;
 {高低标注}
 DDD:=(4,5 );
 DRAWTEXT(H=DDD ,H*1.02 ,'高='+DDD),COLORD3A9FF;
 DRAWTEXT(L=DDD ,L ,'低='+DDD);
 VARA:=(MA(C,13)+MA(C,17))/2;
 VARB:=(STD(C,13)+STD(C,17))/2;
 VARC:=IF((C>REF(C,1)),88,0);
 VARD:=VARA+0.72*VARB;
 VARF:=IF(((C)/(REF(C,1))>1.05) AND H/C<1.01 AND VARC>0,91,0);
 VARE:=IF(VARB>1.88 ,MA(VARD,3),VARD);
 VARG:=EMA(EMA(C,9),9);
 CON:=(VARG-REF(VARG,1))/REF(VARG,1)*1000;
 HCON:=100*(C*0.95);
 VAR1:=EMA(EMA(EMA(C,5),5),5);
 VAR2:=VAR1-REF(VAR1,1)+VAR1;
 VAR3:=CROSS(VAR2,MA(VAR2,26));
 VAR4:=CROSS(MA(C,13),MA(C,21));
 VAR5:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
 VAR6:=3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-2*SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1);
 VAR7:=IF(VAR6<=10,30,0);
 VARJ:=SMA(VAR5,3,1);
 VARK:=SMA(VARJ,3,1);
 VARL:=EMA(SMA((C-LLV(L,19))/(HHV(H,19)-LLV(L,19))*100,8,1),3);
 VARM:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100;
 VAR8:=(VARL>20 AND VARL<80);
 VAR9:=((VARL-REF(VARL,1))>3 AND VAR8);
 VAR10:=EMA(((C-LLV(L,22))/(HHV(H,22)-LLV(L,22)))*100,5);
 VAR11:=EMA(((C-LLV(L,22))/(HHV(H,22)-LLV(L,22)))*50,13);
 止赢卖出线:VARE*1.1,COLORRED,LINETHICK2;
 {K线}
 STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),LOW,HIGH,0.0,0),COLORRED;
 STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),LOW,HIGH,0.0,0),COLORCYAN;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR008800;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00AA00;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00DD00;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR000088;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000AA;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000DD;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF;
 11,DOTLINE,COLORBLUE;
 25,DOTLINE,COLORBLUE;
 4,DOTLINE,COLORBLUE;
 40,DOTLINE,COLORBLUE;
 64,DOTLINE,COLORBLUE;
 DRAWTEXT_FIX(1,0.00,0.00,0,'主题投资:')COLOR0000FF;
 DRAWTEXT_FIX(1,0.07,0.00,0,EXTERNSTR(0,1))COLOR0000FF;
 DRAWTEXT_FIX(1,0.00,0.08,0,'主营业务:')COLORFF00FF;
 DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2))COLORYELLOW;

 

=================================================

{14上穿89 条件选股预警公式}
 {胆子小的用周线月线选股安全一点}
 MA7:=IF(MA(C,7) >MA(C,89),MA(C,7),MA(C,89)),LINETHICK3;
 MA14:=MA(C,14),COLORYELLOW,LINETHICK3;
 MA17:=IF(MA(C,17) >MA(C,89),MA(C,21),MA(C,89)),COLORFF0000,LINETHICK3;
 MA89:=MA(C,89),LINETHICK3;
 多头排列:=MA7>MA14 AND  MA14>MA17 AND MA17>MA89;
 当日成交量:=C>O AND V>REF(V,1) AND V>MA(V,5) AND V>MA(V,10);
 流通盘:=CAPITAL/1000000<=4.53;
 收阳线:= CLOSE>OPEN AND C>O 
   AND DYNAINFO(23)-DYNAINFO(22);
 想要的:=流通盘 AND 收阳线  &&  C/REF(C,1)>=1.015  && 当日成交量;
股价:=C>=6.50 AND C<15.36;
 开盘小于:=O/REF(C,1)<1.06;
 涨幅限制:=C/REF(C,1)<=1.0789;
 去创业板:=IF(CODELIKE('300'),0,1);
 去停牌:=DYNAINFO(17)>0;
 D22:=IF(NAMELIKE('S'),0,1);
 D33:=IF(NAMELIKE('*'),0,1);
 去ST:=D22 AND D33;五日:= MA(V,5),COLORWHITE,LINETHICK2;
十日:= MA(V,10),COLORYELLOW,LINETHICK2;
 六十日:=MA(V,60),COLORGREEN,LINETHICK2;
 量线:=CROSS(五日,六十日) OR CROSS(五日,十日) OR 五日>=十日;
 去不想要的:=去创业板 AND 去停牌 AND 去ST AND 股价; 
 上穿:= CROSS( MA14,MA89)  OR 多头排列 AND 去不想要的 AND 想要的
AND 开盘小于 AND 涨幅限制  AND 量线;
 MA01:=IF(MA(C,1) >MA(C,89),MA(C,1),MA(C,89)),LINETHICK1;
MA07:=IF(MA(C,7) >MA(C,89),MA(C,7),MA(C,89)),LINETHICK3;
 MA014:=MA(C,14),COLORYELLOW,LINETHICK3;
 MA017:=IF(MA(C,21) >MA(C,89),MA(C,21),MA(C,89)),LINETHICK3;
 MA089:=MA(C,89),LINETHICK3;
 多头排列1:=MA7>MA14 AND  MA14>MA17 AND MA17>MA89;
 当日成交量1:=C>O AND V>REF(V,1) AND V>MA(V,5) AND V>MA(V,10);
 流通盘1:=CAPITAL/1000000<=4.53;
 收阳线1:= CLOSE>OPEN AND C>O 
   AND DYNAINFO(23)-DYNAINFO(22);
 想要的1:=流通盘 AND 收阳线  &&  C/REF(C,1)>=1.015 && 当日成交量1 ;
股价1:=C>=6.50 AND C<16.36;
 开盘小于1:=O/REF(C,1)<1.06;
 涨幅限制1:=C/REF(C,1)<=1.0789;
 去创业板1:=IF(CODELIKE('300'),0,1);
 去停牌1:=DYNAINFO(17)>0;
 D221:=IF(NAMELIKE('S'),0,1);
 D331:=IF(NAMELIKE('*'),0,1);
 去ST1:=D22 AND D33;
 五日1:= MA(V,5),COLORWHITE,LINETHICK2;
十日1:= MA(V,10),COLORYELLOW,LINETHICK2;
 六十日1:=MA(V,60),COLORGREEN,LINETHICK2;
 量线1:=CROSS(五日,六十日) OR CROSS(五日,十日) OR 五日>=十日;
 去不想要的1:=去创业板 AND 去停牌 AND 去ST AND 股价;上穿1:= CROSS(MA01, MA017)    OR 多头排列1
AND 去不想要的1  AND 想要的1
AND 开盘小于1  AND 涨幅限制1   ;
 五日2:= MA(V,5),COLOR40FF00,LINETHICK2;
三五日:= MA(V,35),COLORYELLOW,LINETHICK2;
 一三五日:=MA(V,135),COLOR0080FF,LINETHICK2;
 NOTEXT强:=IF(五日2>MA(五日2,2),五日,DRAWNULL),COLORWHITE,LINETHICK2;
 成交量主动:=CROSS(五日2,三五日) AND CROSS(五日2,一三五日)
OR CROSS(三五日,一三五日) ;
 大于:=五日2>三五日 AND 五日2>一三五日 OR
五日2>一三五日 AND  五日2<三五日 OR 成交量主动;
 上穿 OR 上穿1 AND 大于 ;
 

215177673.png

215177673.png

2151155833.png

2151155833.png

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则