大智慧BS决策指标通达信模拟版(通达信)

源码正文：

VAR1:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14)))){XG51};
VAR2:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14)))){XG51};
VAR3:=(100 - ma(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34)){XG51};
DIR1:=Abs(CLOSE-REF(CLOSE,5)){XG51};
VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5){XG51};
ER1:=DIR1/VIR1{XG51};
CS1:=ER1*(0.8-2/8)+2/8{XG51};
CQ1:=CS1*CS1{XG51};
DIR2:=ABS(CLOSE-REF(CLOSE,10)){XG51};
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10){XG51};
ER2:=DIR2/VIR2{XG51};
CS2:=ER2*(0.8-2/24)+2/24{XG51};
CQ2:=CS2*CS2{XG51};
stICKLINE(VAR2 < MA(VAR3,6),LOW,HIGH,0,1),COLORLIGREEN{XG51};
STICKLINE(VAR2 > MA(VAR3,6),LOW,HIGH,0,1),COLORWHITE{XG51};
STICKLINE(((OPEN>CLOSE)AND(VAR2<MA(VAR3,6))),(CLOSE-0.03),OPEN,3.05,0),COLORLIGREEN{XG51};
STICKLINE(((OPEN<CLOSE)AND(VAR2<MA(VAR3,6))),CLOSE,OPEN,3.05,1),COLORLIGREEN{XG51};
STICKLINE(((OPEN>CLOSE)AND(VAR2>MA(VAR3,6))),OPEN,(CLOSE-0.03),3.05,0),COLORWHITE{XG51};
STICKLINE(((OPEN<CLOSE)AND(VAR2>MA(VAR3,6))),OPEN,CLOSE,3.05,1),COLORWHITE{XG51};
DRAWICON(crOSS(VAR2,MA(VAR3,6)),(LOW - (LOW*0.02)),7){XG51};
DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH+(HIGH*0.02)),8){XG51};
PT:=REF(H,1)-REF(L,1){XG51};
cdp:=(REF(H,1)+REF(L,1)+REF(C,1)*2)/4{XG51};
AH:=CDP+PT{XG51};
AL:=CDP-PT{XG51};
NH:=CDP*2-REF(L,1){XG51};
NL:=CDP*2-REF(H,1){XG51};
强:IF(AH>REF(C,1)*1.1,REF(C,1)*1.1,AH)NODRAW{XG51};
阻:IF(NH>强,(强-CDP)*0.618+CDP,NH)NODRAW,COLORYELLOW{XG51};
M:=IF(AL<REF(C,1)/1.1,REF(C,1)/1.1,AL){XG51};
撑:IF(NL<M,CDP-(CDP-M)*0.618,NL)NODRAW{XG51};
底:IF(AL<REF(C,1)/1.1,REF(C,1)/1.1,AL)NODRAW{X-G-5+1-C-N-{};

源码正文：

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

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~{};