通达信〖强阳反包〗单笔成交量与价格涨跌主图指标公式源码

VAR1:=(vol/C)/2; {计算单笔成交量：成交量/收盘价/2}
VAR2:=SUM(IF(VAR1>100 AND CLOSE>REF(CLOSE,1),VAR1,0),0); {统计大单主动买入：收盘价上涨且单笔量>100}
VAR3:=SUM(IF(VAR1>100 AND CLOSE< REF(CLOSE,1),VAR1,0),0); {统计大单主动卖出：收盘价下跌且单笔量>100}
VAR4:=SUM(IF(VAR1< 100 AND CLOSE>REF(CLOSE,1),VAR1,0),0); {统计小单主动买入：收盘价上涨且单笔量<100}
VAR5:=SUM(IF(VAR1< 100 AND CLOSE< REF(CLOSE,1),VAR1,0),0); {统计小单主动卖出：收盘价下跌且单笔量<100}
VAR6:=VAR2+VAR3+VAR4+VAR5; {计算总成交量合计}
机买:=(VAR2/VAR6)*100-100; {计算机构买入占比}
机卖:=(VAR3/VAR6)*100-100; {计算机构卖出占比}
VAR7:=(C*2+H+L)/4*10; {计算加权均价并放大10倍}
VAR8:=EMA(VAR7,13)-EMA(VAR7,34); {计算13日与34日指数平均差值}
VAR9:=EMA(VAR8,5); {对差值做5日指数平均}
VAR10:=2*(VAR8-VAR9)*5.5; {计算趋势强度值}
VAR11:=IF(VAR10>=0,VAR10 * 3,0); {多头趋势强度：只取正值并放大}
VAR12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,21)-LLV(LOW,34))*100; {计算34日相对位置指标}
VAR13:=(EMA(VAR12,3)-50)*2; {对相对位置做平滑处理}
VAR14:=IF(DATE<=1150530,1,0); {日期限制：2011年5月30日前有效}
VAR15:=BETWEEN((C*VAR14)/(SUM(AMOUNT,BARSCOUNT((C*VAR14)))/SUM(VOL*100,BARSCOUNT((C*VAR14)))),1.05,0.95); {判断当前价与均价偏离度}
VAR16:=IF(VAR15=0,MA((C*VAR14),BARSCOUNT((C*VAR14))),(SUM(AMOUNT,BARSCOUNT((C*VAR14)))/SUM(VOL*100,BARSCOUNT((C*VAR14))))); {计算有效均价}
VAR17:=BARSLASTCOUNT(VAR11>20 AND VAR13>0)=1; {首次满足强势多头条件}
VAR18:=BARSLASTCOUNT(VAR11>20 AND VAR13>0 AND (expma(C,10)>EXPMA(C,60)))=1; {首次满足强势多头+均线多头排列}
VAR19:=PWINNER(30,C)*100; {30周期获利盘比例}
VAR20:=(WINNER(CLOSE*1.075)-WINNER(CLOSE*0.925))*100; {7.5%涨跌幅区间筹码集中度}
VAR21:=VAR20/WINNER(HHV(HIGH,0)); {集中度与历史最高价获利盘比值}
VAR22:=crOSS(VAR19,VAR21); {获利盘比例上穿集中度比值，形成买点信号}
反包:EMA(EMA(C,5),5),COLORRED,LINETHICK2; {双重5日指数均线，红色粗线}
IF(REF(反包,1)>反包,反包,DRAWNULL),COLORFF0000,LINETHICK2; {均线走弱时变深红色}
STICKLINE(VAR18,O,C,2,0),COLORMAGENTA; {满足VAR18条件，k线画洋红色实心}
STICKLINE(VAR11>20 AND VAR13>0,O,C,2.0,0),COLOR0000FF; {强势多头，K线画红色实心}
STICKLINE(VAR17,O,C,2,0),COLORRED; {首次强势信号，画红色实心K线}
STICKLINE(VAR22 AND VAR17,O,C,2,0),COLOR00FFFF; {共振买点，画青色实心K线}
DRAWICON(VAR22 AND VAR17,L*1.002,29); {共振买点，在最低价上方画图标29}
DRAWICON(VAR22 AND VAR18,L*0.96,34); {强阳反包信号，画图标34}
DRAWTEXT(VAR22 AND VAR18,L*0.96,' 强阳反包'),COLOR00FFFF; {标注文字“强阳反包”，青色};