通达信猛虎追击副图，活筹势能源码副图

D:=72;

VAR1:=ma(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;

VAR2:=2*Abs(VAR1);

VAR3:=100-3*SMA((CLOSE-LLV(LOW,D))/(HHV(HIGH,D)-LLV(LOW,D))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,D))/(HHV(HIGH,D)-LLV(LOW,D))*100,20,1),15,1);

VAR4:=100-3*SMA((OPEN-LLV(LOW,D))/(HHV(HIGH,D)-LLV(LOW,D))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,D))/(HHV(HIGH,D)-LLV(LOW,D))*100,20,1),15,1);

VAR5:=(HIGH+LOW+CLOSE)/3;

VAR6:=(VAR5-MA(VAR5,14))/(0.015*AVEDEV(VAR5,14));

VAR7:=(VAR5-MA(VAR5,89))/(0.015*AVEDEV(VAR5,89));

VAR8:=IF(VAR6>=150 AND VAR6<200 AND VAR7>=150 AND VAR7<200,10,0);

VAR9:=IF(VAR6<=-150 AND VAR6>-200 AND VAR7<=-150 AND VAR7>-200,-10,VAR8);

VARA:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;

VARB:=100-ABS(VARA);

VARC:=3*SMA((INDEXC-LLV(INDEXL,D))/(HHV(INDEXH,D)-LLV(INDEXL,D))*100,20,1)-2*SMA(SMA

((INDEXC-LLV(INDEXL,D))/(HHV(INDEXH,D)-LLV(INDEXL,75))*100,20,1),15,1);

VARD:=3*SMA((INDEXO-LLV(INDEXL,D))/(HHV(INDEXH,D)-LLV(INDEXL,D))*100,20,1)-2*SMA(SMA

((INDEXO-LLV(INDEXL,D))/(HHV(INDEXH,D)-LLV(INDEXL,75))*100,20,1),15,1);

VARE:=REF(LOW,1)*0.9;

VARF:=LOW*0.9;

VAR10:=(VARF*vol+VARE*(CAPITAL-VOL))/CAPITAL;

VAR11:=EMA(VAR10,30);

VAR12:=VAR11-CLOSE;

VAR13:=REF(CLOSE,1);

VAR14:=SMA(MAX(CLOSE-VAR13,0),7,1)/SMA(ABS(CLOSE-VAR13),7,1)*100;

VAR15:=SMA(MAX(CLOSE-VAR13,0),13,1)/SMA(ABS(CLOSE-VAR13),13,1)*100;

VAR16:=BARSCOUNT(CLOSE);

VAR17:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;

VAR18:=((-100)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+50)*2;

VAR19:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;

VAR1A:=(SMA(VAR19,4,1)-50)*2;

VAR1B:=SMA(VAR1A,3,1);

VAR1C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;

VAR1D:=SMA(VAR1C,4,1);

VAR1E:=SMA(VAR1D,3,1);

VAR1F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;

VAR20:=IF(VAR17<=25 AND VAR18<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30 AND VAR12>=-0.25 AND VAR14<22 AND VAR15<28 AND VAR16>50,80,0);

活筹OAMV: VAR3,COLORFF00FF;

OX: IF(VARB<90,VARB,100),COLORFFCC66;

VAR21:=IF(VAR1>0,VAR1,0);

核能: IF(VAR1<0,VAR2,0), LINEstICK;

牛角: VAR20,COLORYELLOW;

预警: IF(VAR7>=200 AND VAR6>=150,15,IF(VAR7<=-200 AND VAR6<=-150,-15,VAR9))

+60,COLOR00FF00;

VAR22:=100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34));

VAR23:=MA(VAR22,3);

VAR24:=EMA(AMOUNT/VOL/100,5);

VAR25:=EMA(AMOUNT/VOL/100,13);

VAR26:=VAR24-VAR25;

势能: IF(1000*VAR26/VAR24>0,1000*VAR26/VAR24,0),COLORRED,LINETHICK2;

STICKLINE(VAR3>=REF(VAR4,1),VAR3,VAR4,8,1),COLORRED;

STICKLINE(VAR3<REF(VAR4,1),VAR3,VAR4,8,1),COLOR00FF00;

VAR27:=CLOSE>MA(CLOSE,20) AND MA(CLOSE,20)>=REF(MA(CLOSE,20),1);

VAR28:=CLOSE<MA(CLOSE,20) AND MA(CLOSE,20)<REF(MA(CLOSE,20),1);

VAR29:=VAR21>50 AND 预警>60 AND OX=100;

VAR2A:=VAR21>48 AND 预警>60 AND OX<100;

VAR2B:=核能>38 AND 预警<55;

VAR2C:=牛角>50 AND OX<90;

VAR2D:=VAR3<REF(VAR4,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);

VAR2E:=VAR3>=REF(VAR4,1) AND CLOSE<REF(CLOSE,1) AND 预警=60 AND 牛角=0 AND 核能>=REF(核能,1) AND VARC<REF(VARD,1);

DRAWTEXT(VAR27 AND COUNT(VAR27,30)=1,90,'持股待涨'),COLORFF00FF;

DRAWTEXT(VAR28 AND COUNT(VAR28,30)=1,10,'出局为佳'),COLOR00FF00;

DRAWTEXT(VAR29 AND COUNT(VAR29,30)=1,70,'上涨过急，需要调整'),COLORWHITE;

DRAWTEXT(VAR2A AND COUNT(VAR2A,30)=1,80,'拉升在即狂牛！'),COLORYELLOW;

DRAWTEXT(VAR2B AND COUNT(VAR2B,30)=1,20,'不必杀跌有反弹 '),COLORWHITE;

DRAWTEXT(VAR2C AND COUNT(VAR2C,30)=1,30,'角斗士，阶段底部 '),COLORYELLOW;

DRAWTEXT(VAR2D AND COUNT(VAR2D,30)=1,60,'大资金进场'),COLOR0099FF;

DRAWTEXT(VAR2E AND COUNT(VAR2E,30)=1,40,'高点回落'),COLORFFCC66;

原理解析：
D赋值:72
VAR1赋值:MA(100*(收盘价-34日内收盘价最低值)/(34日内最高价最高值-34日内最低价最低值),5)-20
VAR2赋值:2*VAR1的绝对值
VAR3赋值:100-3*SMA((收盘价-D日内最低价最低值)/(D日内最高价最高值-D日内最低价最低值)*100,20,1)+2*SMA(SMA((收盘价-D日内最低价最低值)/(D日内最高价最高值-D日内最低价最低值)*100,20,1),15,1)
VAR4赋值:100-3*SMA((开盘价-D日内最低价最低值)/(D日内最高价最高值-D日内最低价最低值)*100,20,1)+2*SMA(SMA((开盘价-D日内最低价最低值)/(D日内最高价最高值-D日内最低价最低值)*100,20,1),15,1)
VAR5赋值:(最高价+最低价+收盘价)/3
VAR6赋值:(VAR5-VAR5的14日简单移动平均)/(0.015*AVEDEV(VAR5,14))
VAR7赋值:(VAR5-VAR5的89日简单移动平均)/(0.015*AVEDEV(VAR5,89))
如果VAR6>=150 AND VAR6<200 AND VAR7>=150 AND VAR7<200返回10否则返回0
如果VAR6<=-150 AND VAR6>-200 AND VAR7<=-150 AND VAR7>-200返回-10否则返回VAR8
VARA赋值:(收盘价-收盘价的13日简单移动平均)/收盘价的13日简单移动平均*100
VARB赋值:100-VARA的绝对值
VARC赋值:3*SMA((INDEXC-D日内INDEXL最低值)/(D日内INDEXH最高值-D日内INDEXL最低值)*100,20,1)-2*SMA(SMA
((INDEXC-D日内INDEXL最低值)/(D日内INDEXH最高值-75日内INDEXL最低值)*100,20,1),15,1)
VARD赋值:3*SMA((INDEXO-D日内INDEXL最低值)/(D日内INDEXH最高值-D日内INDEXL最低值)*100,20,1)-2*SMA(SMA
((INDEXO-D日内INDEXL最低值)/(D日内INDEXH最高值-75日内INDEXL最低值)*100,20,1),15,1)
VARE赋值:1日前的最低价*0.9
VARF赋值:最低价*0.9
VAR10:=(VARF*成交量+VARE*(当前流通股本-成交量))/当前流通股本
VAR11:=VAR10的30日指数移动平均
VAR12:=VAR11-收盘价
VAR13:=1日前的收盘价
VAR14:=SMA(收盘价-VAR13和0较大值,7,1)/SMA(收盘价-VAR13的绝对值,7,1)*100
VAR15:=SMA(收盘价-VAR13和0较大值,13,1)/SMA(收盘价-VAR13的绝对值,13,1)*100
VAR16:=收盘价的有效数据周期数
VAR17:=SMA(收盘价-1日前的收盘价和0较大值,6,1)/SMA(收盘价-1日前的收盘价的绝对值,6,1)*100
VAR18:=((-100)*(60日内最高价最高值-收盘价)/(60日内最高价最高值-60日内最低价最低值)+50)*2
VAR19:=(收盘价-15日内最低价最低值)/(15日内最高价最高值-15日内最低价最低值)*100
VAR19的4日[1日权重]移动平均
VAR1A的3日[1日权重]移动平均
VAR1C:=(INDEXC-14日内INDEXL最低值)/(14日内INDEXH最高值-14日内INDEXL最低值)*100
VAR1C的4日[1日权重]移动平均
VAR1D的3日[1日权重]移动平均
VAR1F:=(30日内最高价最高值-收盘价)/收盘价*100
如果VAR17<=25 AND VAR18<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30 AND VAR12>=-0.25 AND VAR14<22 AND VAR15<28 AND VAR16>50返回80否则返回0
输出活筹OAMV: VAR3,COLORFF00FF
如果VARB<90返回VARB否则返回100
如果VAR1>0返回VAR1否则返回0
如果VAR1<0返回VAR2否则返回0
输出牛角: VAR20,画黄色
输出预警: IF(VAR7>=200 AND VAR6>=150,15,IF(VAR7<=-200 AND VAR6<=-150,-15,VAR9)) +60,COLOR00FF00
VAR22:=100*(收盘价-34日内最低价最低值)/(34日内最高价最高值-34日内最低价最低值)
VAR23:=VAR22的3日简单移动平均
VAR24:=成交额/成交量/100的5日指数移动平均
VAR25:=成交额/成交量/100的13日指数移动平均
VAR26:=VAR24-VAR25
如果1000*VAR26/VAR24>0返回1000*VAR26/VAR24否则返回0
STICKLINE(VAR3>=1日前的VAR4,VAR3,VAR4,8,1),COLORRED
STICKLINE(VAR3<1日前的VAR4,VAR3,VAR4,8,1),COLOR00FF00
VAR27:=收盘价>收盘价的20日简单移动平均 AND 收盘价的20日简单移动平均>=REF(收盘价的20日简单移动平均,1)
VAR28:=收盘价<收盘价的20日简单移动平均 AND 收盘价的20日简单移动平均 VAR29:=VAR21>50 AND 预警>60 AND OX=100
VAR2A:=VAR21>48 AND 预警>60 AND OX<100
VAR2B:=核能>38 AND 预警<55
VAR2C:=牛角>50 AND OX<90
VAR2D赋值:VAR3<1日前的VAR4 AND 成交量>1日前的成交量 AND 收盘价>1日前的收盘价
VAR2E:=VAR3>=1日前的VAR4 AND 收盘价<1日前的收盘价 AND 预警=60 AND 牛角=0 AND 核能>=1日前的核能 AND VARC<1日前的VARD
DRAWTEXT(VAR27 AND 统计30日满足VAR27的天数=1,90,'持股待涨'),COLORFF00FF
DRAWTEXT(VAR28 AND 统计30日满足VAR28的天数=1,10,'出局为佳'),COLOR00FF00
DRAWTEXT(VAR29 AND 统计30日满足VAR29的天数=1,70,'上涨过急，需要调整'),画白色
DRAWTEXT(VAR2A AND 统计30日满足VAR2A的天数=1,80,'拉升在即狂牛！'),画黄色
DRAWTEXT(VAR2B AND 统计30日满足VAR2B的天数=1,20,'不必杀跌有反弹 '),画白色
DRAWTEXT(VAR2C AND 统计30日满足VAR2C的天数=1,30,'角斗士，阶段底部 '),画黄色
DRAWTEXT(VAR2D AND 统计30日满足VAR2D的天数=1,60,'大资金进场'),COLOR0099FF
DRAWTEXT(VAR2E AND 统计30日满足VAR2E的天数=1,40,'高点回落'),COLORFFCC66