通达信如履薄冰精品组合选股指标公式源码

通达信如履薄冰精品组合选股指标公式源码

源码正文：

ma5:MA(CLOSE,5){XG51};
MA10:MA(CLOSE,10){XG51};
MA20:MA(CLOSE,20){XG51};
MA30:MA(CLOSE,30){XG51};
成本价:mcst,COLORLIRED{XG51};
DRAWTEXT(crOSS(C,MCst),L-0.3,'上穿成本'),COLORLIRED{XG51};
上穿成本选股:STICKLINE((CROSS(C,MCST)),L-0.1,L-0.3,1,0)COLORLIRED{XG51};
VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2){XG51};
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2){XG51};
VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13
OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1{XG51};
黄柱体选股:STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),4,0),COLORBLUE{XG51};
VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8
OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD{XG51};
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,1),COLOR00FF00{XG51};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2,0),COLORWHITE{XG51};
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),2,0),COLORYELLOW{XG51};
IF(MA5>=REF(MA5,1) AND MA5>=MA10,MA5,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
IF(MA10>=REF(MA10,1) AND MA10>=MA20,MA10,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
IF(MA20>=REF(MA20,1) AND MA20>=MA30,MA20,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
五日十日选:DRAWTEXT(CROSS(MA5,MA10),MA5,'○'),LINETHICK2, COLORBLUE{XG51};
趋势线:=MA((CLOSE-MA(CLOSE,40))/MA(CLOSE,40)*100 ,2){XG51};
大底十字选股:DRAWICON(趋势线<-20,L-0.6,23){XG51};
AA:=BARSCOUNT(C){XG51};
AH:=HHV(H,200){XG51};
AL:=LLV(L,200){XG51};
A0:=(AH-AL)/40{XG51};
B1:=L-A0{XG51};
STICKLINE((AA+0)/34=FLOOR((AA+0)/34),B1,B1-1.5*A0,1,0)COLORF00FF0{XG51};
DRAWTEXT((AA+0)/34=FLOOR((AA+0)/34),B1-1*A0,'时间窗,变盘')COLORBLUE{XG51};
VAR20:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;  
K1:=SMA(VAR20,3,1),COLORFFFFFF;  
D1:=SMA(K1,3,1),COLORFFFFFF,LINETHICK2;  
VAR21:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;  
K2:=SMA(VAR21,3,1),COLOR0000FF;  
D2:=SMA(K2,3,1),COLOR0000FF,LINETHICK2{XG51};
VAR22:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;  
K3:=SMA(VAR22,3,1),COLORFF8800;  
D3:=SMA(K3,3,1),COLORFF8800,LINETHICK2{XG51};
VAR23:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;  
K4:=SMA(VAR23,3,1),COLOR00FF00;  
D4:=SMA(K4,3,1),COLOR008000;  
DIBU:=K1<20 AND D1<20 AND K2<20 AND D2<20 AND K3<20 AND D3<20 AND D4<20{XG51};
底部:=DIBU=1,COLORBLUE{XG51};
双底kdJ选股:DRAWICON(DIBU,L-0.6,17){XG51};
B:=TROUGH(CLOSE,10,1)*1.02{XG51};
VAR24:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>L+0.04,10,0){XG51};
VAR25:=zig(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3){XG51};
VAR26:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3){XG51};
VAR27:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3){XG51};
VAR28:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3){XG51};
VAR29:=CLOSE/MA(CLOSE,40)*100<78{XG51};
VAR30:=CLOSE/MA(CLOSE,60)*100<74{XG51};
VAR31:=HIGH>LOW*1.051{XG51};
VAR32:=VAR28 AND COUNT(VAR31,5)>1{XG51};
VAR33:=(C=L AND H=L){XG51};
VAR34:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3){XG51};
单枪出击选股:DRAWICON((VAR32 AND (VAR29 OR VAR30) AND NOT(VAR33) AND L<B),L-0.4,27)COLORMAGENTA{XG51};
组合买1选股:DRAWICON((VAR24 AND L<B),L-0.2,26)COLORBLUE{XG51};
组合买2选股:DRAWICON(((VAR25+VAR26+VAR27+VAR28) AND  L<B),L-0.3,25)COLORWHITE{XG51};
DRAWTEXT(VAR26,L-0.4,'★')COLORWHITE{XG51};
VAR35:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3){XG51};
大资金A选:DRAWTEXT(VAR35 AND COUNT(VAR35,30)=1,LOW*0.98,'⊙大资金活动A'),LINETHICK1,COLORFF00FF{XG51};
VAR36:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20)))){XG51};
VAR37:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34)){XG51};
AABB:=IF(CROSS(VAR36,MA(VAR37,5)),LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLOREE00EE{XG51};
大资金B选:DRAWICON((CROSS(VAR36,MA(VAR37,5)) AND (VAR35 AND COUNT(VAR35,30)=1)),L-0.8,22){XG51};
VAR38:=4*SMA((CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11))*100,5,1)-  
3*SMA(SMA((CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11))*100,5,1),3.2,1),COLORWHITE,LINETHICK1;  
VAR39:=8,COLORCYAN,LINETHICK1;  
吃庄家肉选股:DRAWICON(CROSS(VAR38,VAR39),L-0.8,15){XG51};
WZ:=CURRBARSCOUNT{XG51};
DRAWTEXT(WZ=1,HHV(C,50)*0.99,'  ★红钻=组合买2 有')COLORWHITE{XG51};
DRAWTEXT(WZ=1,HHV(C,50)*0.97,'  黄钻=组合买1 有')COLORBLUE{XG51};
DRAWTEXT(WZ=1,HHV(C,50)*0.94,'  绿钻=单枪出击 无')COLORCYAN{XG51};
DRAWTEXT(WZ=1,HHV(C,50)*0.91,'  苹果=双底KDJ 无'),COLORBLUE{XG51};
DRAWTEXT(WZ=1,HHV(C,50)*0.88,'  十字=抄大底 无'),COLORRED{XG51};
DRAWTEXT(WZ=1,HHV(C,50)*0.85,'  手机=大资金B 无+有'),COLORLIGREEN{XG51};
DRAWTEXT(WZ=1,HHV(C,50)*0.82,'  黄人=吃庄家肉 无')COLORBLUE{XG51};
{XG51};
{X~G_5_1~C~N~{};