通达信源码：小牛爬山战法,散户资金进场,主力资金进场[查股公式]

1、小牛爬山战法

{小牛爬山战法，使用说明
 
     在第一波启动出现涨停板，也可以是连扳票，随后出现跳空大阴线，也可以是假阴线，并且黑棒当天放量（大于涨停板当天的量）。
 随后股价进入盘整（一个月内），（理解为主力建仓、洗盘过程）；随后出现连续小阳线爬升至前面大阴线开盘价附近，
 出现放量启动有望出现主升浪行情。( )
}
 
{2013/05/01对小牛战法第一版V1.0}
{2013/06/28对小牛战法升级V2.0}
{2013/08/02对小牛战法升级V3.0}
 
涨停       := (CLOSE >= REF(CLOSE,1)*1.093) AND H>=C;    {突然的一根涨停阳线 34日内有一个涨停板}
放量大阴   := (OPEN > REF(CLOSE,1))  AND (VOL > REF(VOL,1)) AND VOL/CAPITAL*100 >=3 AND OPEN > MA(CLOSE,34); {AND (OPEN - CLOSE)/OPEN * 100 > 0.01 ;  {涨停 后一天高开收阴线 且这根阴线量大于昨天涨停量}
庄家现身   := REF(涨停,1) AND 放量大阴;
涨停后天数 := BARSLAST(涨停);     {TS=涨停后天数} 
庄家现身后天数 := BARSLAST(庄家现身); {TS=庄家现身后天数}
 
条件1 := COUNT(庄家现身, 55) AND 庄家现身后天数>4; {3,5,8,13,21,34,55,89日内庄家现过身}
 
上次涨停价:= REF(HIGH, 庄家现身后天数);
条件2 := (C >= 上次涨停价*0.93) AND (VOL >= REF(VOL,1)*1.3);   {如果今日收盘价大于N日前涨停板价格，并且今日放量}
 
条件3 := (C >= 3.0);   {3元以下个股成功率低}
 
{加入KDJ条件}
P1:=10;   {这个参数调整为7不错}
P2:=4;
VAR1:=LLV(LOW,P1);
VAR2:=HHV(HIGH,P1);
RSV:=(CLOSE-VAR1)/(VAR2-VAR1)*100;
K:=EMA(RSV,P2),COLORWHITE;
D:=EMA(0.667*REF(K,1)+0.333*K,2), COLORYELLOW;
J:=3*K-2*D, COLORFF00FF;
 
EMA3:=EMA(C,2.6);
EMA5:=EMA(C,5.1);
条件4:= K > D;    {K上穿D}
 
井中月版选股:条件1 AND 条件2 AND 条件3 AND 条件4, LINETHICK2, COLORRED;
DRAWICON(井中月版选股, 0, 9);
 
涨停2:=CLOSE>REF(CLOSE,1)*1.093 AND H>=C;
高阴:=O>MA(C,50) AND (O-C)/O*100>0.01 AND VOL/CAPITAL*100 >=3 AND REF(C,1)>REF(C,2) AND HIGH/LOW>=1.05 AND V>REF(V,1);
A:=REF(涨停2,1) AND 高阴; 
定位高价:=REF(H,BARSLAST(A));
当前价:= (C >= 4.0);   {3元以下个股成功率低}
原版选股2: C>定位高价*0.94 AND COUNT(A,30) AND REF(HHV(C,BARSLAST(A))<定位高价,1) AND BARSLAST(A)>6 AND 当前价;
横盘放量:LAST((H-L)/REF(C,1)<0.1,20,0) AND VOL>REF(VOL,1)*2 AND C>REF(C,1)*1.03
AND "DMI.PDI">"DMI.MDI" AND CROSS("DMI.ADX","DMI.ADXR")
AND"DMI.ADXR">"DMI.MDI" AND "DMI.PDI">"DMI.ADX" AND"KDJ.K">REF("KDJ.K",1), COLORBLUE;



2、散户资金进场 主力资金进场

{散户资金进场}
筹码解套率:WINNER(CLOSE)*100,COLORLIBLUE,LINETHICK2;
X_1:=30;
X_2:=15;
X_3:=HHV(HIGH,X_1)=HIGH;
X_4:=BARSLAST(X_3);
X_5:=LLV(LOW,X_2)=LOW;
X_6:=BARSLAST(X_5);
X_7:=HHV(HIGH,X_1)=HIGH;
X_8:=BARSLAST(X_7);
X_9:=BARSLAST(X_5);
X_8=0;
HIGH;
X_10:=STICKLINE(X_9=0 AND X_5 AND FILTERX(X_5,X_8+1),REF(LOW,X_9),REF(HIGH,X_8),0,0);
STICKLINE(X_10>0,0,(-10),0,0),COLORLIMAGENTA,LINETHICK2;
DRAWTEXT(X_10,(-8),450),COLORYELLOW;
X_11:=REF(LOW,1);
X_12:=SMA(ABS(LOW-X_11),13,1)/SMA(MAX(LOW-X_11,0),13,1)*100;
X_13:=EMA(IF(CLOSE*1.2,X_12*13,X_12/13),13);
X_14:=LLV(LOW,34);
X_15:=HHV(X_13,34);
X_16:=IF(LLV(LOW,56),1,0);
X_17:=EMA(IF(LOW<=X_14,(X_13+X_15*2)/2,0),3)/618*X_16;
X_18:=X_17>REF(X_17,1);
X_19:=REF(LLV(LOW,100),3);
X_20:=REFDATE(X_19,DATE);
X_21:=LOW=X_20;
X_22:=X_18 AND X_21;
X_23:=X_22>REF(X_22,1);
QIDONG:(X_23>REF(X_23,1))*50,COLORLIRED,LINETHICK2;
趋势: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),COLORYELLOW;
X_24:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
X_25:=SMA(ABS(LOW-X_24),13,1)/SMA(MAX(LOW-X_24,0),10,1);
X_26:=EMA(X_25,10);
X_27:=LLV(LOW,33);
X_28:=EMA(IF(LOW<=X_27,X_26,0),3)/1;
X_29:=SMA(ABS(HIGH-X_24),13,1)/SMA(MIN(HIGH-X_24,0),10,1);
X_30:=EMA(X_29,10);
X_31:=HHV(HIGH,33);
X_32:=EMA(IF(HIGH>=X_31,X_30,0),3)/3;
主力拉高:IF(X_32<REF(X_32,1),X_32/1,0),NODRAW,COLORYELLOW;
STICKLINE(X_32<REF(X_32,1),0,X_32/2,2,0),COLORYELLOW;
出货:IF(X_32>REF(X_32,1),X_32,0),NODRAW,COLORCYAN;
STICKLINE(X_32>REF(X_32,1),0,X_32/2,2,0),COLORCYAN;
90,DOTLINE,COLORLIRED;
100,DOTLINE,COLORGREEN;
 

{主力资金进场}
VAR1:=EMA(HHV(HIGH,500),21); 
VAR2:=EMA(HHV(HIGH,250),21); 
VAR3:=EMA(HHV(HIGH,90),21); 
VAR4:=EMA(LLV(LOW,500),21); 
VAR5:=EMA(LLV(LOW,250),21); 
VAR6:=EMA(LLV(LOW,90),21); 
VAR7:=EMA((VAR4*0.96+VAR5*0.96+VAR6*0.96+VAR1*0.558+VAR2*0.558+VAR3*0.558)/6,21); 
VAR8:=EMA((VAR4*1.25+VAR5*1.23+VAR6*1.2+VAR1*0.55+VAR2*0.55+VAR3*0.65)/6,21); 
VAR9:=EMA((VAR4*1.3+VAR5*1.3+VAR6*1.3+VAR1*0.68+VAR2*0.68+VAR3*0.68)/6,21); 
VARA:=EMA((VAR7*3+VAR8*2+VAR9)/6*1.738,21); 
VARB:=REF(LOW,1); 
VARC:=SMA(ABS(LOW-VARB),3,1)/SMA(MAX(LOW-VARB,0),3,1)*100; 
VARD:=EMA(IF(CLOSE*1.35<=VARA,VARC*10,VARC/10),3); 
VARE:=LLV(LOW,30); 
VARF:=HHV(VARD,30); 
VAR10:=IF(MA(CLOSE,58),1,0); 
资金入场: EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618*VAR10; 
IF(资金入场>0,资金入场,0),STICK,LINETHICK2, COLOR0000FF; 
今量: 资金入场; 
A1:IF(资金入场>0,今量*1.2,0),STICK,LINETHICK5, COLOR0000FF;
A2:IF(资金入场>0,今量*0.8,0),STICK,LINETHICK5, COLOR0066FF;
A3:IF(资金入场>0,今量*0.6,0),STICK,LINETHICK5, COLOR0099FF;
A4:IF(资金入场>0,今量*0.4,0) ,STICK,LINETHICK5,COLOR00CCFF;
A5:IF(资金入场>0,今量*0.2,0) ,STICK,LINETHICK5,COLOR00FFFF;