五线组合拳(通达信)

源码正文：

五线组合拳源码如下（附图）

VARA:=(ma(C,13)+MA(C,17))/2{XG51};
VARB:=(stD(C,13)+STD(C,17))/2{XG51};
VARC:=IF((C>REF(C,1)),88,0){XG51};
VARD:=VARA+0.72*VARB{XG51};
VARF:=IF(((C)/(REF(C,1))>1.05) AND H/C<1.01 AND VARC>0,91,0){XG51};
VARE:=IF(VARB>1.88 ,MA(VARD,3),VARD){XG51};
VARG:=ema(EMA(C,9),9){XG51};
CON:=(VARG-REF(VARG,1))/REF(VARG,1)*1000{XG51};
HCON:=100*WINNER(C*0.95){XG51};
VAR1:=EMA(EMA(EMA(C,5),5),5){XG51};
VAR2:=VAR1-REF(VAR1,1)+VAR1{XG51};
VAR3:=crOSS(VAR2,MA(VAR2,26)){XG51};
VAR4:=CROSS(MA(C,13),MA(C,21)){XG51};
VAR5:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100{XG51};
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){XG51};
VAR7:=IF(VAR6<=10,30,0){XG51};
VARJ:=SMA(VAR5,3,1){XG51};
VARK:=SMA(VARJ,3,1){XG51};
VARL:=EMA(SMA((C-LLV(L,19))/(HHV(H,19)-LLV(L,19))*100,8,1),3){XG51};
VARM:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(Abs(C-REF(C,1)),6,1)*100{XG51};
VAR8:=(VARL>20 AND VARL<80){XG51};
VAR9:=((VARL-REF(VARL,1))>3 AND VAR8){XG51};
VAR10:=EMA(((C-LLV(L,22))/(HHV(H,22)-LLV(L,22)))*100,5){XG51};
VAR11:=EMA(((C-LLV(L,22))/(HHV(H,22)-LLV(L,22)))*50,13){XG51};
止赢:VARE*1.1,COLORWHITE,LINETHICK2{XG51};
压力:VARE*1.05,COLORYELLOW,LINETHICK2{XG51};
支撑:VARE*0.95,COLOR18FF18,LINETHICK2{XG51};
反转:VARE*0.9,COLORBLUE,LINETHICK2{XG51};
平衡:VARE,COLORFFFFFF,LINETHICK3{XG51};
DRAWTEXT(ISLASTBAR,止赢,'止赢'),COLORWHITE{XG51};
DRAWTEXT(ISLASTBAR,压力,'压力'),COLORYELLOW{XG51};
DRAWTEXT(ISLASTBAR,支撑,'支撑'),COLOR18FF18{XG51};
DRAWTEXT(ISLASTBAR,反转,'反转'),COLOR18CCFF{XG51};
DRAWTEXT(ISLASTBAR,平衡,'平衡'),COLORFFFFFF{XG51};
DRAWTEXT(FILTER((VARF>90),34),LOW*0.965,'◆'),COLORWHITE{XG51};
STICKLINE(HCON>50 AND COST(85)<C AND CON>0,O,C,1.8,0),COLORFF00FF{XG51};
DRAWTEXT(VAR3 AND VAR4,L*0.95,'圆底'),COLORBLUE{XG51};
STICKLINE(CROSS(VARJ,VARK) AND CROSS(macd.dif, MacD.DEA),C,O,1,0),COLORBLUE{XG51};
DRAWTEXT(VAR7<REF(VAR7,1),L*0.98,'抢'),COLORBLUE{XG51};
DRAWTEXT(FILTER(VAR9,5),L*0.97,'加'),COLORFF00FF{XG51};
DRAWICON(CROSS(76,VARM),H,6){XG51};
重心:AMOUNT/vol/100,POINTDOT,LINETHICK5,COLORBLUE{XG51};
布林极限:BB,COLORFF00FF,NODRAW{XG51};
rsi1:RSI.RSI1,COLORWHITE,NODRAW{XG51};
kdjJ:kdJ.J,COLORRED,NODRAW{XG51};
STICKLINE(CROSS(VAR10, VAR11),O,C,1.6,1),COLORWHITE{XG51};
STICKLINE(CROSS(VAR10, VAR11),O,C,1,1),COLORWHITE{XG51};
DRAWTEXT(FILTER(CROSS(C,反转) OR CROSS(C,支撑) OR CROSS(C,平衡) OR CROSS(C,压力),3),L*0.995,'买'),COLORWHITE{XG51};
DRAWTEXT(FILTER(CROSS(反转,C) OR CROSS(支撑,C) OR CROSS(平衡,C) OR CROSS(压力,C),3),H*1.02,'卖'),COLORCYAN{XG51};
AA1:=MA(C,5){XG51};
BB1:=MA(C,15){XG51};
AF:=CROSS(AA1,BB1){XG51};
STICKLINE(AF,LLV(L,4),LLV(L,4),50,1),COLORWHITE,LINETHICK3{XG51};
DRAWTEXT(AF,LLV(L,4),'止损线'),COLORBLUE{XG51};
E1:=BARSCOUNT(C){XG51};
AH:=HHV(H,200){XG51};
AL:=LLV(L,200){XG51};
B0:=(AH-AL)/40{XG51};
KB1:=H+B0{XG51};
KB2:=L-B0{XG51};
STICKLINE((E1+0)/34=FLOOR((E1+0)/34),KB2,KB2-0.8*B0,1,0),COLORBLUE,LINETHICK3{XG51};
DRAWTEXT((E1+0)/34=FLOOR((E1+0)/34),KB2-B0,'时窗'),COLORBLUE{XG51};
MA18:=MA(CLOSE,18){XG51};
mtm:=C-REF(C,1){XG51};
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6){XG51};
买:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)){XG51};
DRAWTEXT(FILTER(买=1,5),LOW,'★买一'),COLORWHITE{XG51};
加1:=MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18){XG51};
DRAWTEXT(加1,LOW*0.99,'★加一'),COLORCC66FF{XG51};
卖一:=HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX){XG51};
DRAWTEXT(FILTER(卖一=1,1),HIGH*1.01,'★卖一'),COLORCYAN{XG51};
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2{XG51};
DD1:=L<MA(C,5)*0.921{XG51};
EE1:=V<MA(V,5)*1.5{XG51};
FF1:=BB1 AND CC1 AND DD1 AND EE1{XG51};
DRAWTEXT(FF1,LOW*0.99,'老鼠仓'),COLOR4080FF{XG51};
XXS:=MA(LOW,5)*(1-5/100){XG51};
XXS1:=MA(HIGH,5)*(1+5/100){XG51};
均线:=C,COLORCYAN{XG51};
AAAA:=CLOSE/REF(CLOSE,3)<=0.85 AND CROSS(C,XXS) AND C>REF(C,1),LINETHICK0 {XG51};
DRAWTEXT(AAAA,L*0.95,'下影买'),COLORWHITE{XG51};
BBAA:=CROSS(XXS1,C){XG51};
DRAWTEXT(CROSS(XXS1,C),H,'开盘逃'),COLORRED{XG51};
DDDD:=CROSS(C,XXS1){XG51};
DRAWTEXT(DDDD,H,'明日走'),COLORBLUE{XG51};
AAA:=MA(LOW,5)*(1-5/100){XG51};
BBB:=(HHV(AAA,5)+LLV(AAA,5))/2{XG51};
DRAWTEXT(CROSS(BBB,L) AND BBB>REF(BBB,1),L*0.98,'←斋主回马枪'),COLORRED{XG51};
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
DRAWTEXT(REF(CROSS(DEA,DIF),1) AND CROSS(DIF,DEA),L*0.97,'★←老李夺命抢'),COLORLIMAGENTA{XG51};
X1:=(C+L+H)/3{XG51};
BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10{XG51};
EMA8:=EMA(C,8){XG51};
DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),
EMA8,'★∠45升'),COLORRED{XG51};
HR:=HHV(HIGH,55){XG51};
HRY:=LLV(LOW,55){XG51};
HRY11:=HR*HRY{XG51};
HRY33:SQRT(HRY11),COLORCYAN,LINETHICK2{XG51};
IF(C>HRY33 AND HRY33 >=REF(HRY33 ,1), HRY33 ,DRAWNULL),LINETHICK2,COLORWHITE{XG51};
BB5:=ATAN(EMA(X1,7)-REF(EMA(X1,7),1))*3.1416*10{XG51};
EMA3:=EMA(C,3){XG51};
DRAWTEXT(FILTER(BB5>1 AND EMA(X1,7)>REF(EMA(X1,7),1),10),
LOW*0.99,'★∠45'),COLORFFFFFF{XG51};
TT:=FILTER(BB5>1 AND EMA(X1,7)>REF(EMA(X1,7),1),10){XG51};
VAR27:=REF(CLOSE,1){XG51};
VAR28:=SMA(MAX(CLOSE-VAR27,0),5.5,1)/SMA(ABS(CLOSE-VAR27),6,1)*100{XG51};
DRAWICON((IF(CROSS(76,VAR28),1,0)) OR CROSS(70,RSI),H*1.01,2){XG51};
DRAWICON((IF(CROSS(VAR28,21),1,0)),L*0.97,1){XG51};
DRAWTEXT((IF(CROSS(76,VAR28),1,0)) OR CROSS(84,RSI),H*1.03,'快跑') ,COLORBLUE{XG51};
股价:MA(C,3),COLORCYAN,LINETHICK2{XG51};
B:=股价<REF(股价,1){XG51};
短线:IF(B-1,股价,DRAWNULL)COLORLIMAGENTA,LINETHICK2{XG51};
VAR4A:=EMA(CLOSE,3){XG51};
DRAWICON(COUNT(REF(VAR4A,1)<REF(VAR4A,2),5)=5 AND VAR4A>REF(VAR4A,1),L*0.98,4){XG51};
DRAWTEXT(COUNT(REF(VAR4A,1)<REF(VAR4A,2),5)=5 AND VAR4A>REF(VAR4A,1),L*0.96,'出拳'){X~G=5=1~C~N~{};

源码正文：

A:=vol*CLOSE{XG51};
B:=SUM(A,1)/SUM(VOL,1){XG51};
B1:=ema(B,17){XG51};
资金:=(B-B1)*100/B{XG51};
difF : Ema(资金,12) - EMA(资金,26){XG51};
DEA : EMA(DIFF,9){XG51};
macd : 2*(DIFF-DEA), COLORstICK{XG51};
STICKLINE(MacD>=0,MACD,0,4,1),COLORF00FF0{XG51};
STICKLINE(MACD<0,MACD,0,3.1,1),COLORRED{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,3,0 ),COLOR00AAFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2.2,0 ),COLOR00BBFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1.8,0 ),COLOR00CCFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1.3,0 ),COLOR00ddfF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0.9,0 ),COLOR00EEFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0.5,0 ),COLOR00FFFF{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,4 ,0 ),COLOR0000AA{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,3.3 ,0 ),COLOR0011BB{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2.2,0 ),COLOR0022CC{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,1.65 ,0 ),COLOR0033DD{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,1.1 ,0 ),COLOR0044EE{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,0.55 ,0 ),COLOR0055FF{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLORAA00BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,3.3 ,0 ),COLORBB11BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2.2,0 ),COLORCC22BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1.65,0 ),COLORDD33BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1.1,0 ),COLOREE44BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,0.55 ,0 ),COLORFF55BB{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLORFFAA00{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,3.3 ,0 ),COLORFFBB11{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2.2,0 ),COLORFFCC22{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,1.65 ,0 ),COLORFFDD33{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,1.1 ,0 ),COLORFFEE44{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,0.55 ,0 ),COLORFFFF55{XG51};
IF(DIFF<0,DIFF,0),COLORWHITE,LINETHICK1{XG51};
IF(DIFF<0,0,DIFF),COLORBLUE,LINETHICK1{XG51};
IF(DIFF<DEA,DIFF,DEA),COLOR00FF00,LINETHICK1{XG51};
IF(DIFF>DEA,DEA,DEA),COLORRED,LINETHICK1{XG51};
低位金叉:=crOSS(DIFF,DEA) AND DIFF<-0.1{XG51};
STICKLINE(低位金叉,0,-4.5,2,0),COLORBLUE{XG51};
DRAWTEXT(低位金叉,-4,' 低位金叉'),COLORBLUE{XG51};
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BArslAST(DEA>=0)){XG51};
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
STICKLINE(二次金叉,0,-2.5,5,0),COLORFF00FF{XG51};
DRAWICON(二次金叉,DEA*1.2,11) {XG51};
DRAWTEXT(二次金叉,-2,' 二次金叉'),COLORFF00FF{XG51};
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA){XG51};
STICKLINE(底背离,0,2.5,3,0),COLOR00FF00{XG51};
DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORWHITE,LINETHICK2{XG51};
DRAWTEXT(底背离,2,' 底背离'),COLOR00FF00{XG51};
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF){XG51};
STICKLINE(顶背离,0,4.5,3,0),COLORFFFF00{XG51};
DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORFFFF00,LINETHICK2{XG51};
DRAWTEXT(顶背离,4,' 顶背离'),COLORFFFF00{X_G_5.1_C_N_{};