通达信圆弧底牵牛主图指标公式源码

DRAWGBK(CLOSE>0,RGB(0,108,108),RGB(88,0,0),0,5,0);
所属板块:=STRCAT('【所属板块】',STRCAT(STRCAT(STRCAT('【行业】',HYBLOCK),STRCAT('【地域】',DYBLOCK)),STRCAT('【概念】',GNBLOCK)));
DRAWTEXT_FIX(ISLASTBAR,0.5,0,0,所属板块),COLORLIRED;
DRAWTEXT_FIX(1,0.5,0.04,0,FGBLOCK),COLORWHITE;
X_1:=EMA(CLOSE,3);
X_2:=EMA(CLOSE,26);
X_3:=X_1-X_2;
牵牛:EMA(EMA(EMA(CLOSE,3),3),3)+X_3,COLORWHITE;
寻牛:MA(MA(LOW,3),3),COLORMAGENTA;
上顶1:=HHV(寻牛,60);
DRAWBAND(牵牛,RGB(85,0,0),上顶1,RGB(45,0,140));
DRAWBAND(寻牛,RGB(0,65,45),上顶1,RGB(0,65,155));
上顶:HHV(MA(MA(LOW,3),3),60)LINETHICK3,COLORYELLOW;
下底:LLV(寻牛,20)LINETHICK3,COLORFFBB00;
短牵牛:=EMA(CLOSE,6)-EMA(CLOSE,13);
长牵牛:=EMA(短牵牛,20);
MB1:=HHV(短牵牛,20);
MB2:=LLV(短牵牛,20);
箱顶:=REF(MB1,1);
箱底:=REF(MB2,1);
前5天:=BARSCOUNT(C)>5;
ZC:=REF(C,1);
ZF:=(H-ZC+0.01)/ZC*100;
DF:=(ZC-L+0.01)/ZC*100;
涨5:=ZF>=5 AND 前5天 AND C=H;
跌5:=DF>=5 AND 前5天 AND C=L;
涨10:=ZF>=10 AND 前5天 AND C=H;
跌10:=DF>=10 AND 前5天 AND C=L;
涨20:=ZF>=20 AND 前5天 AND C=H;
跌20:=DF>=20 AND 前5天 AND C=L;
涨听板:=IF(INBLOCK('科创板'),涨20,IF(INBLOCK('创业板') AND DATE>1200823, 涨20,IF(INBLOCK('ST板块'),涨5,涨10)));
跌听板:=IF(INBLOCK('科创板'),跌20,IF(INBLOCK('创业板') AND DATE>1200823,跌20,IF(INBLOCK('ST板块'),跌5,跌10)));
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
STICKLINE(涨听板,OPEN,CLOSE,2.6,0),COLOR0000E5;
STICKLINE(涨听板,OPEN,CLOSE,2.4,0),COLOR335555;
STICKLINE(涨听板,OPEN,CLOSE,1.8,0),COLOR338888;
STICKLINE(涨听板,OPEN,CLOSE,1.2,0),COLOR33AAAA;
STICKLINE(涨听板,OPEN,CLOSE,0.6,0),COLOR33CCCC;
STICKLINE(涨听板,OPEN,CLOSE,0.1,0),COLOR33EEEE;
STICKLINE(跌听板,C,O,2.5,0),COLOR009900;
STICKLINE(跌听板,C,O,1.5,0),COLOR00BB00;
STICKLINE(跌听板,C,O,0.8,0),COLOR00DD00;
STICKLINE(跌听板,C,O,0.1,0),COLOR00FF00;
X_7:=MA(CLOSE,1);
X_8:=SMA(SMA(SMA(X_7,2,1),2,1),2,1),NODRAW;
X_9:=MA(X_8,3),NODRAW;
操作:=MA((L+H+C)/3,5);
起飞加速:HHV(操作,60)DOTLINE,COLORLIRED;
总金额:=AMOUNT,volSTICK;
启动量能:=MA(总金额,250),DOTLINE,LINETHICK1,COLORGREEN;
量比:=V/REF(MA(V,5),1),COLORBROWN,NODRAW;
几倍:=1.9;
CTB2:=总金额/REF(MA(总金额,5),1)>3;
倍量:=总金额>=REF(总金额,1)*几倍 AND (IF(C< O,C>REF(C,1),1)),COLORYELLOW,NODRAW;
倍缩:=REF(总金额,1)>= 总金额*几倍,COLORMAGENTA,NODRAW;
倍数:=总金额/REF(总金额,1),COLORYELLOW,NODRAW;
梯量:=COUNT(总金额>REF(总金额,1),3)=3 AND COUNT(C>O,3)=3,NODRAW,COLOR824173;
VAR1:=(CLOSE-LLV(LOW,80))/(HHV(HIGH,80)-LLV(LOW,80))*200;
VAR2:=SMA(VAR1,3,1);
VAR3:=SMA(VAR2,3,1);
VAR4:=3*VAR2-2*VAR3;
VAR5:=LLV(LOW,5);
VAR6:=HHV(HIGH,5);
VAR7:=EMA((CLOSE-VAR5)/(VAR6-VAR5)*100,4)*2;
VAR8:=EMA(0.667*REF(VAR7,1)+0.333*VAR7,2);
VAR9:=3*VAR7-2*VAR8;
VARA:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);
VARB:=POW(MA(LOW,5),2)+MA(LOW,5);
VARC:=POW(MA(HIGH,5),2)+MA(HIGH,5);
VARD:=(VARA-LLV(VARB,64))/(HHV(VARC,64)-LLV(VARB,64))*150+65-10;
VARE:=SMA(VARD,3,1)*1.5-100;
VARF:=SMA(VARE,3,1);
VAR10:=3*VARE-2*VARF;
VAR11:=(HIGH+LOW+CLOSE*2)/4;
VAR12:=EMA(VAR11,13);
VAR13:=STD(VAR11,13);
VAR14:=(VAR11-VAR12)*100/VAR13;
VAR15:=EMA(VAR14,5);
VAR17:=EMA(VAR15,13)+200-100;
VAR18:=EMA(VAR17,10);
VAR19:=3*VAR17-2*VAR18;
VAR1A:=VAR2+VAR7+VARE+VAR17;
VAR1B:=VAR3+VAR8+VARF+VAR18;
VAR1C:=VAR4+VAR9+VAR10+VAR19;
VAR1D:=(HIGH+LOW+CLOSE)/3;
VAR20:=(VAR1D-MA(VAR1D,34))/(0.015*AVEDEV(VAR1D,34));
VAR22:=(HIGH+LOW+CLOSE+VAR1D)/4;
VAR23:=EMA(VAR22,24);
VAR24:=STD(VAR22,24);
VAR25:=(VAR22-VAR23)/VAR24*100;
VAR26:=(VAR1D-MA(VAR1D,24))/(0.015*AVEDEV(VAR1D,24));
VAR27:=EMA(VAR25,5);
VAR2A:=((VAR27+VAR26+VAR20)/3+165)/4;
VAR2B:=(EMA(EMA(EMA(VAR2A,15),10),5)-25)*2;
VAR2C:=(VAR1A+VAR1B+VAR1C*30)/32/5-15;
VAR2D:=EMA(VAR2C,7);
VAR2E:=(VAR2A+VAR2C)/2/1.1;
红趋势:=EMA(VAR2E,3)LINETHICK3,COLORRED;
白趋势:=EMA(红趋势,5)LINETHICK3,COLORWHITE;
XX:=crOSS(红趋势,白趋势);
GJ:=((cciI.CCI#WEEK)/10)+40;
wr:=REF(C,5);
ZFU:=((C/WR)-1)*100;
WRG:=((GJ/REF(GJ,1))-1)*100;
ZSH:=((C/REF(C,10))-1)*100;
ZES:=((C/REF(C,20))-1)*100;
SG:=((GJ/REF(GJ,6))-1)*100;
ESG:=((GJ/REF(GJ,16))-1)*100;
LEN:=(ESG-ZES)+30;
MEN:=(SG-ZSH)+30;
SEN:=(WRG-ZFU)+30;
TEN:=LEN+MEN+SEN;
ENCH:=TEN>90 AND HHV(REF(TEN,1),14)<=TEN;
LJGJ:=(LEN>80 OR MEN>80 OR SEN>80) AND LEN>30 AND MEN>30 AND SEN>30;
TENMAVOL:=HHV(REF(TEN,1),15);
TENMDAY:=BARSLAST(TENMAVOL);
ZNTP:=TEN>TENMAVOL AND CLOSE>REF(CLOSE,TENMDAY+1);
中途上车:=LJGJ AND ENCH AND ZNTP,COLOR006BFF;
IF(寻牛>=REF(上顶,1),寻牛,DRAWNULL),COLORRED,LINETHICK3;
IF(寻牛<=REF(上顶,1),寻牛,DRAWNULL),COLORGREEN,LINETHICK3;
IF(牵牛>=REF(下底,1),牵牛,DRAWNULL),COLORWHITE;
IF(牵牛>=REF(上顶,1),牵牛,DRAWNULL),COLORWHITE,LINETHICK2;
IF(牵牛<=REF(下底,1),牵牛,DRAWNULL)DOTLINE,COLORWHITE;
STICKLINE(CROSS(牵牛,上顶) AND CROSS(C,上顶),OPEN,CLOSE,2,0),COLOR66EEEE;
STICKLINE(CROSS(牵牛,上顶) AND CROSS(C,上顶),OPEN,CLOSE,1,0),COLORMAGENTA;
STICKLINE(CROSS(牵牛,上顶) AND CROSS(C,上顶),OPEN,CLOSE,0,1),COLOR8B8BFF;
DRAWTEXT(CROSS(牵牛,下底),下底,'↖圆弧见底'),COLORYELLOW;
反弹共振1:=CROSS(短牵牛,箱顶) AND CROSS(牵牛,下底);
反弹共振2:=CROSS(短牵牛,箱底) AND CROSS(牵牛,下底);
反弹共振3:=CROSS(牵牛,下底) AND 中途上车;
反弹共振4:=XX AND CROSS(短牵牛,箱底);
反弹共振5:=中途上车 AND CROSS(短牵牛,长牵牛);
反弹:=反弹共振1 OR 反弹共振2 OR 反弹共振3 OR 反弹共振4 OR 反弹共振5;
STICKLINE(反弹,C,O,2.8,0),COLOR555555;
STICKLINE(反弹,C,O,2,0),COLOR888888;
STICKLINE(反弹,C,O,1.5,0),COLORAAAAAA;
STICKLINE(反弹,C,O,1,0),COLORCCCCCC;
STICKLINE(反弹,C,O,0.5,0),COLOREEEEEE;
DRAWTEXT(反弹,L*1.003,''),COLORWHITE;
圆弧启动1:=CROSS(牵牛,上顶) AND CROSS(短牵牛,箱顶) AND 箱顶>=REF(箱顶,1) AND 倍量;
圆弧启动2:=CROSS(C,上顶) AND CROSS(短牵牛,箱底)AND 倍量;
圆弧启动3:=CROSS(短牵牛,箱顶) AND 箱顶>=REF(箱顶,1) AND 寻牛=上顶 AND 红趋势< 93 AND 倍量;
圆弧启动4:=中途上车 AND CROSS(牵牛,上顶) AND CROSS(C,上顶)AND 倍量;
圆弧启动5:=CROSS(C,起飞加速) AND CROSS(短牵牛,长牵牛)AND 倍量;
圆弧启动6:=XX AND CROSS(牵牛,上顶) AND CROSS(C,上顶)AND 倍量;
圆弧启动7:=CROSS(短牵牛,箱顶) AND C>上顶 AND 倍量;
主升:=圆弧启动1 OR 圆弧启动2 OR 圆弧启动3 OR 圆弧启动4 OR 圆弧启动5 OR 圆弧启动6 OR 圆弧启动7;
STICKLINE(主升,H,L,0,0),COLORFF00FF;
STICKLINE(主升,C,O,3,0),COLOR990099;
STICKLINE(主升,C,O,2,0),COLORBB00BB;
STICKLINE(主升,C,O,1,0),COLORDD00DD;
STICKLINE(主升,C,O,0.3,0),COLORFF00FF;
DRAWTEXT(主升,H*1.001,'★圆弧启动'),COLORYELLOW;
DRAWTEXT(主升 AND 中途上车,LOW*0.92,'★千载难逢'),COLORYELLOW;
TM:=1200823;
今涨听:IF(DATE< TM,ZTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),ZTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORRED;
今跌听:IF(DATE< TM,DTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),DTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORGREEN;
明涨听:IF(DATE< TM,C*IF(CODELIKE('688'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)),C*(IF(CODELIKE('688') OR CODELIKE('300'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)))),NODRAW,COLORMAGENTA;
明跌听:IF(DATE< TM,C*IF(CODELIKE('688'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)),C*(IF(CODELIKE('688') OR CODELIKE('300'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)))),NODRAW,COLORFFFF00;
DRAWRECTREL(10,20,150,125,RGB(50,15,005));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.03,0.0, '今天涨听价:'),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.1,0.03,0,'元'),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.07,0.03,0,今涨听),COLORMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.08,0.0, '明天涨听价:'),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.1,0.08,0,'元'),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.07,0.08,0,明涨听),COLORRED;