七剑下天山(通达信)

源码正文：

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-3*B0,1,0),COLORBLUE,LINETHICK3{XG51};
DRAWTEXT((E1+0)/34=FLOOR((E1+0)/34),KB2-2*B0,'时间窗'),COLORRED{XG51};
卖出线:=98{XG51};
阶段卖:=96{XG51};
趋势4:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*Sma
(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1){XG51};
底部:=10{XG51};
买入信号RAWICON(crOSS(趋势4,底部),LOW,1){XG51};
卖出RAWICON(CROSS(卖出线,趋势4),HIGH,2){XG51};
顶压:HHV(MA(H,11),50),COLORFF9900,LINETHICK3{XG51};
短压:HHV(MA(H,11),15),COLOR0066FF,LINETHICK3{XG51};
XL1:=LLV(MA(H,11),1){XG51};
趋势3:IF(XL1>=短压,短压,XL1),COLORWHITE,LINETHICK2{XG51};
K1:=BacKSET(趋势3<REF(趋势3,1),2){XG51};
IF(K1,趋势3,DRAWNULL),COLOR00CC33,LINETHICK2;

RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100{XG51};
KK1:=REF(RSV,1);KK2:=REF(RSV,2);KA:=RSV;KK3:=REF(RSV,3);KK4:=REF(RSV,4);KK5:=REF(RSV,5){XG51};
KK80:=3*80-(POW(2/3,1)*KK1+POW(2/3,2)*KK2+POW(2/3,3)*KK3+POW(2/3,4)*KK4+3*POW(2/3,5)*KK5){XG51};
KKK80:=SMA((KK80*(HHV(H,9)-LLV(L,9))/100)+LLV(L,9),3,1){XG51};
交叉:=3*SMA(SMA(KA,3,1),3,1)-(POW(2/3,1)*KK1+POW(2/3,2)*KK2+POW(2 /3,3)*KK3+POW(2/3,4)*KK4+3*POW(2/3,5)*KK5){XG51};
K转折:=3*SMA(KA,3,1)-(POW(2/3,1)*KK1+POW(2/3,2)*KK2+POW(2 /3,3)*KK3+POW(2/3,4)*KK4+3*POW(2/3,5)*KK5){XG51};
K转折价0:=SMA((K转折*(HHV(H,9)-LLV(L,9))/100)+LLV(L,9),3,1){XG51};
日交叉0:=SMA((交叉*(HHV(H,9)-LLV(L,9))/100)+LLV(L,9),3,1){XG51};
DRAWTEXT(K转折价0>=KKK80 AND
K转折价0>=日交叉0,日交叉0,'◆'),COLORFF00FF{XG51};
趋势:=
3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)

-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),
COLORBLUE,LINETHICK2{XG51};
警戒:=趋势<=5 {XG51};
D1:=C/L>1.05 AND COUNT(警戒,3)>=1 AND
C/REF(C,1)>1.01{XG51};
DRAWTEXT(D1>0,L,'★长生剑'),COLOR00FF00{XG51};
趋势1:=
MA(3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),5);

买入1:= C/O>1.04 AND COUNT(趋势1<10,3)>=1{XG51};
D2:=(买入1){XG51};
DRAWTEXT(D2>0,L,'☆孔雀翎'),COLORFF00FF{XG51};
M1:=(CLOSE-MA(CLOSE,30))/STD(CLOSE,15)*100{XG51};
K:=SMA(M1,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=3*K-2*D{XG51};
DD:=M1<-300{XG51};
DA:=C/O>1.04 AND COUNT(M1<-300,3)>=1{XG51};
D3:=DA{XG51};
DRAWTEXT(D3>0,L,'★碧玉刀'),COLOR006EFF{XG51};
个股:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100{XG51};
D4:=COUNT(个股<-8,3)>=1 AND ( C/L>1.05 ) {XG51};
DRAWTEXT(D4>0,L,'◎多情环'),COLORWHITE{XG51};
LCA:=REF(CLOSE,1){XG51};
E:=-100*(HHV(HIGH,84)-CLOSE)/(HHV(HIGH,84)-LLV(LOW,84));

底:=(( E<-98)*2000){XG51};
D5:=( C/L>1.04 AND C>REF(C,1)) AND
COUNT(底,2)>=1{XG51};
DRAWTEXT(D5>0,L,'Ψ离别钩'),COLOR0090E0{XG51};
difFA:=(ema(CLOSE,12) - EMA(CLOSE,26))*100+50{XG51};
DC:=C/L>1.05 AND DIFFA<40{XG51};
D6 :=FILTER(DC,5){XG51};
DRAWTEXT(D6>0,L,'↑霸王枪'),COLOR00FF00{XG51};
BB1:=LLV(LOW,5)=LLV(LOW,45) AND
CLOSE>=OPEN*1.035 {XG51};
BB2:=CLOSE>(REF(HIGH,1)+REF(LOW,1))/2{XG51};
BB3:=(CLOSE-OPEN)/OPEN*100{XG51};
BB4:=REF(CLOSE,1){XG51};
BB5:=SMA(MAX(CLOSE-BB4,0),6,1)/SMA(Abs(CLOSE-BB4),6,1)*100;

BB6:=COUNT(BB5<20,20)>=1{XG51};
BB108:=BB3>9 AND BB6{XG51};
BB7:=(CLOSE-OPEN)/OPEN*100{XG51};
BB8:=REF(CLOSE,1){XG51};
BB9:=SMA(MAX(CLOSE-BB8,0),6,1)/SMA(ABS(CLOSE-BB8),6,1)*100;

BB10:=COUNT(BB9<20,20)>=1{XG51};
BB109:=BB7>9 AND BB10{XG51};
DRAWTEXT(BB108 OR BB109>0,L,'★拳头'),COLORRED{X-G_5~1-C-N-{};

源码正文：

A1:=DATE <= 1060615{XG51};
A2:=(100 * (CLOSE - (ma(CLOSE,30)))) / (MA(CLOSE,30)){XG51};
A3:=100 - ((90 * ((HHV(HIGH,20)) - CLOSE)) / ((HHV(HIGH,20)) - (LLV(LOW,20)))){XG51};
A4:=100 - (MA(((100 * ((HHV(HIGH,6)) - CLOSE)) / ((HHV(HIGH,6)) - (LLV(LOW,6)))),28)){XG51};
A5:=MA(A4,6){XG51};
红持股:IF((A3 < A5),A5,A3),COLORWHITE{XG51};
绿持币:IF((A3 > A5),A5,A3),COLORCYAN{XG51};
强弱:(A5),LINETHICK1,COLORBLUE{XG51};
A6:=(3 * (SMA((((CLOSE - (LLV(LOW,27))) / ((HHV(HIGH,27)) - (LLV(LOW,27)))) * 100),5,1))) - (2 * (SMA((SMA((((CLOSE - (LLV(LOW,27))) / ((HHV(HIGH,27)) - (LLV(LOW,27)))) * 100),5,1)),3,1))){XG51};
A7:=(10){XG51};
百万测底:(crOSS(A6,A7) * 75) * A1,LINETHICK2,COLORGREEN{XG51};
A8:=(REF(CLOSE,1)) / CLOSE{XG51};
A9:=MIN((MA(((AMOUNT / vol) / 100),15)),(ema(((AMOUNT / VOL) / 100),15))){XG51};
A10:=((1 - ((SMA(((LOW * A8) - (A8 / 10)),6,1)) / (EMA(((AMOUNT / VOL) / 100),15)))) * 100) - (100 / 10){XG51};
A11:=((((1 - ((MA((LOW - (A8 / 10)),6)) / A9)) * (dma(CLOSE,(VOL / CAPITAL)))) / (MA(LOW,6))) * 100) - (100 / 10){XG51};
A12:=((((A10 + (A11 / 10)) > 0) AND (DATE > 1000101)) AND (DATE < 1991231)) AND ((COUNT((((1 - (CLOSE / (REF(CLOSE,1)))) > 0.099) AND ((1 - ((REF(CLOSE,1)) / (REF(CLOSE,2)))) > 0.099)),20)) < 3){XG51};
A13:=(((((((A10 + (A11 / 10)) > -3.688) AND (DATE > 1000101)) AND (DATE < 1991231)) AND ((CLOSE / (REF(CLOSE,1))) > 1.02)) AND ((COUNT((((1 - (CLOSE / (REF(CLOSE,1)))) > 0.099) AND ((1 - ((REF(CLOSE,1)) / (REF(CLOSE,2)))) > 0.099)),20)) < 3)) AND (((REF(CLOSE,1)) / (REF(CLOSE,2))) < 0.95)) AND ((CLOSE / (HHV(HIGH,20))) < 0.855){XG51};
灵桥黑马:(IF(((((100 < 100) AND ((A10 + (A11 / 10)) > 0)) AND (DATE > 1000101)) AND (DATE < 1991231)),(A12 = 1),(A13 = 1))) * 100 * A1,LINETHICK2,COLORWHITE{XG51};
A14:=EMA(CLOSE,8){XG51};
A15:=EMA(A14,20){XG51};
A16:=CROSS(A14,A15){XG51};
A17:=A14 < (EMA(CLOSE,120)){XG51};
大波黑马起步:(A16 AND A17) * 75 * A1,LINETHICK2,COLORLIMAGENTA{XG51};
A18:=SUM((IF((CLOSE > (REF(CLOSE,1))),VOL,(IF((CLOSE < (REF(CLOSE,1))),(0 - VOL),0)))),0){XG51};
A19:=SUMBARS(VOL,CAPITAL){XG51};
A20:=(IF((CLOSE > (LLV(CLOSE,A19))),1,-1)) * (IF((A18 > (LLV(A18,A19))),1,-1)){XG51};
A21:=IF((A20 = -1),1,0){XG51};
A22:=(COUNT((A21 = 1),8)) > 2{XG51};
A23:=((SUM(AMOUNT,13)) / ((AMOUNT / VOL) / 100)) / 100{XG51};
A24:=DMA((((((3 * HIGH) + LOW) + OPEN) + (2 * CLOSE)) / 7),(VOL / A23)){XG51};
A25:=(((CLOSE - A24) / A24) * 100) < -15{XG51};
A26:=((CLOSE - (MIN(((REF(CLOSE,5)) * 0.865),((REF(CLOSE,21)) * 0.772)))) / CLOSE) < 0.05{XG51};
A27:=REF(LOW,1){XG51};
A28:=((SMA(Abs((LOW - A27)),3,1)) / (SMA((MAX((LOW - A27),0)),3,1))) * 100{XG51};
A29:=EMA((IF((CLOSE * 1.2),(A28 * 10),(A28 / 10))),3){XG51};
A30:=LLV(LOW,38){XG51};
A31:=HHV(A29,38){XG51};
A32:=IF((LLV(LOW,90)),1,0){XG51};
A33:=((EMA((IF((LOW <= A30),((A29 + (A31 * 2)) / 2),0)),3)) / 618) * A32{XG51};
庄家吸筹留踪影:(stICKLINE(A33,0,A33,6,1)) * A1,COLORRED{XG51};
底部不买你后悔:(IF(((A25 AND A26) AND A22),60,0)) * A1{XG51};
风险提示线:95,LINETHICK1,COLOR0000AA{XG51};
强弱分界线:50,LINETHICK1,COLOR858585{XG51};
安全提示线:20,LINETHICK1,COLOR00AA55{X.G-5_1.C.N.{};