用于通达信的自动画线指标.量能平台

来源:百度文库 编辑:神马文学网 时间:2024/04/20 12:51:59
 通达信主图Z1:{M台+本+MK+口:量能平台+估测量+量能K线+缺口提示注:以下VV为通达信估测量(估测周期:周、3日、日、10分钟、60、30、15、5分钟),以分钟为计算单位的动态估测量(个股为换手率,指数为成交金额)}   ZZ:=PERIOD<5 OR PERIOD=8;{缺口标记}
DRAWBAND(DYNAINFO(4),RGB(38,0,0),DYNAINFO(3),RGB(0,0,38));{当日开盘跳高或跳低标记}
VA1:=REF(HIGH,1);
VA2:=REF(LOW,1);
VA3:=LOW>VA1;
VA4:=HIGHSTICKLINE(VA3,LOW,VA1,6,1),COLORYELLOW,LINETHICK3;
STICKLINE(VA4,HIGH,VA2,6,1),COLORWHITE,LINETHICK3;
{量估算, 其中周、3日、当日、以及当下60分钟、30分钟、15分钟、10分钟、5分钟为以分钟为单位的动态估测量}
VV1:=IF(CLOSE<150,100*VOL/(FINANCE(7)/100),IF(PERIOD=8,VOL/10000,AMOUNT/100000000));
VV2:=IF(MOD(FROMOPEN,60)>0,MOD(FROMOPEN,60),60);
VV3:=IF(MOD(FROMOPEN,30)>0,MOD(FROMOPEN,30),30);
VV4:=IF(MOD(FROMOPEN,15)>0,MOD(FROMOPEN,15),15);
VV7B:=IF(MOD(FROMOPEN,5)>0,MOD(FROMOPEN,5),5);
VV8B:=IF(MOD(FROMOPEN,10)>0,MOD(FROMOPEN,10),10);
VV6:=IF(PERIOD=5,240/FROMOPEN,IF(PERIOD=4,60/VV2,IF(PERIOD=3,30/VV3,IF(PERIOD=2,15/VV4,IF(PERIOD=1,5/VV7B,IF(PERIOD=8,10/VV8B,1))))));
VV9:=ABS(WEEKDAY-REF(WEEKDAY,1));
VV10:=IF(MOD(VV9,3)>0,MOD(VV9,3),3);
VV11:=IF(WEEKDAY=4 OR WEEKDAY=5,3/VV10,1);
VV12:=IF(REF(WEEKDAY,1)=5,IF(WEEKDAY=1,3,IF(WEEKDAY=2,3/2,1)),1);
VV13:=IF(REF(WEEKDAY,1)=4,IF(WEEKDAY=5,3,IF(WEEKDAY=1,3/2,1)),VV12);
VV15:=IF((REF(WEEKDAY,1)=1 AND NOT(WEEKDAY=5)) OR REF(WEEKDAY,1)=2,3/VV10,IF(REF(WEEKDAY,1)=3,VV11,VV13));
VV:=VV1*IF(CURRBARSCOUNT=1,IF(PERIOD<=5 OR PERIOD=8,VV6,IF(PERIOD=6,IF(WEEKDAY=1,5*VV6,IF(WEEKDAY=2,5/2,IF(WEEKDAY=3,5/3,IF(WEEKDAY=4,5/4,1)))),IF(PERIOD=9,VV15,1))),1),COLORGRAY,STICK,LINETHICK1;
 {能量K线)K:=CLOSE;
K2:=0.1;
K3:=VV/REF(VV,1);
VAR1:=K3>=1+K2 AND C>=O;
VAR1B:=RANGE(K3,1,1+K2) AND C>=O;
VAR2:=K3<=1-K2 AND C>=O;
VAR2B:=RANGE(K3,1-K2,1) AND C>=O;
VAR3:=K3<=1-K2 AND CVAR3B:=RANGE(K3,1-K2,1) AND CVAR4:=K3>=1+K2 AND CVAR4B:=RANGE(K3,1,1+K2) AND CSTICKLINE(VAR1,K,O,3,0),COLORRED,LINETHICK2;
STICKLINE(VAR1B,K,O,3,1),COLORRED,LINETHICK2;
STICKLINE(VAR2,K,O,3,0),COLORFF00FF,LINETHICK2;
STICKLINE(VAR2B,K,O,3,1),COLORFF00FF,LINETHICK2;
STICKLINE(VAR3,K,O,3,0),COLORGREEN,LINETHICK2;
STICKLINE(VAR3B,K,O,3,1),COLORGREEN,LINETHICK2;
STICKLINE(VAR4,K,O,3,0),COLORGRAY,LINETHICK2;
STICKLINE(VAR4B,K,O,3,1),COLORGRAY,LINETHICK2;
STICKLINE(VAR1 OR VAR2,C,H,0.18,0),COLORRED;
STICKLINE(VAR1 OR VAR2,L,O,0.18,0),COLORRED;
STICKLINE(VAR3 OR VAR4,O,H,0.18,0),COLORGREEN;
STICKLINE(VAR3 OR VAR4,L,C,0.18,0),COLORGREEN;  
 {能量平台及相应成本线}
VH20:=VV=HHV(VV,25);
NVH20:=BARSLAST(VH20)+1;
VVV:=NVH20<=31 AND NVH20>1;
VVV3:=IF(CLOSE<150,AMOUNT/(100*VOL),(HIGH+LOW+OPEN+CLOSE)/4);
VVV4:=BACKSET(VVV,NVH20);
量台H:REF(VVV3,NVH20-1),COLOR33CCFF,LINETHICK0;
成本H:IF(CLOSE<150,SUM(AMOUNT,NVH20)/(100*SUM(VOL,NVH20)),MA((HIGH+LOW+OPEN+CLOSE)/4,NVH20)),COLORBROWN,LINETHICK1;
STICKLINE(VVV4>0,REF(VVV3,NVH20-1),REF(VVV3,NVH20-1),3,0),COLOR33CCFF,LINETHICK2;
STICKLINE(VH20>0,IF(ZZ,0.9999,0.999)*VVV3,IF(ZZ,1.0001,1.001)*VVV3,5,0),COLOR33CCFF,LINETHICK5;
 BVH20:=VV=HHV(VV,16);
BNVH20:=BARSLAST(BVH20)+1;
BVVV:=BNVH20<=31 AND BNVH20>1;
BVVV2:=BACKSET(BVVV,BNVH20);
STICKLINE(BVVV2>0,REF(VVV3,BNVH20-1),REF(VVV3,BNVH20-1),3,0),COLORRED,LINETHICK4;
成本H2:IF(CLOSE<150,SUM(AMOUNT,BNVH20)/(100*SUM(VOL,BNVH20)),MA((HIGH+LOW+OPEN+CLOSE)/4,BNVH20)),COLORBROWN,LINETHICK1; VL20:=VV=LLV(VV,10);
NVL20:=BARSLAST(VL20)+1;
VVL:=NVL20<=13 AND NVL20>1;
VVL2:=BACKSET(VVL,NVL20);
量台L:REF(VVV3,NVL20-1),COLORBLUE,LINETHICK0;
成本L:IF(CLOSE<150,SUM(AMOUNT,NVL20)/(100*SUM(VOL,NVL20)),MA((HIGH+LOW+OPEN+CLOSE)/4,NVL20)),COLORCYAN,LINETHICK1;
STICKLINE(VVL2>0,REF(VVV3,NVL20-1),REF(VVV3,NVL20-1),3,0),COLORBLUE,LINETHICK2;
STICKLINE(VL20>0,IF(ZZ,0.9999,0.999)*VVV3,IF(ZZ,1.0001,1.001)*VVV3,5,0),COLORBLUE,LINETHICK5;
 BVL20:=VV=LLV(VV,16);
BNVL20:=BARSLAST(BVL20)+1;
BVVL:=BNVL20<=13 AND BNVL20>1;
BVVL2:=BACKSET(BVVL,BNVL20);
STICKLINE(BVVL2>0,REF(VVV3,BNVL20-1),REF(VVV3,BNVL20-1),3,0),COLORCYAN,LINETHICK4;
成本L2:IF(CLOSE<150,SUM(AMOUNT,BNVL20)/(100*SUM(VOL,BNVL20)),MA((HIGH+LOW+OPEN+CLOSE)/4,BNVL20)),COLOR33CCFF,LINETHICK1;
 {注:量能彩色K线中的量,是指成交金额(或,个股也可指换手率);
    量能彩色K线原理,以4种颜色,分别搭配以实心、空心K线,表示以下8种含义:    实心大红K线:放量上涨,且比上一根K线增量超过10%;
    空心大红K线:放量上涨,但比上一根K线增量小于10%;    实心粉红K线:缩量上涨,且比上一根K线缩量超过-10%;
    空心粉红K线:缩量上涨,但比上一根K线缩量少于-10%;     实心大黑K线:放量下跌,且比上一根K线增量超过10%;
    空心大黑K线:放量下跌,但比上一根K线增量小于10%;    实心大绿K线:缩量下跌,且比上一根K线缩量超过-10%;
    空心大绿K线:缩量下跌,但比上一根K线缩量少于-10%; }  -------------------- 通达信副图1:{虚拟成交金额macd,注:当天(日k线及以下)成交金额为以分钟为单位的动态估测值}   N1:=1;
N2:=135;
N3:=3;
N4:=10;
N5:=5;
N6:=21;
N7:=35;
VV1:=AMOUNT*IF(CLOSE<150,1/1000000,1/100000000);
VV2:=IF(FROMOPEN<=60,FROMOPEN,IF(FROMOPEN<=120,FROMOPEN-60,IF(FROMOPEN<=180,FROMOPEN-120,IF(FROMOPEN<=240,FROMOPEN-180,FROMOPEN))));
VV3:=IF(FROMOPEN<=30,FROMOPEN,IF(FROMOPEN<=60,FROMOPEN-30,IF(FROMOPEN<=90,FROMOPEN-60,IF(FROMOPEN<=120,FROMOPEN-90,IF(FROMOPEN<=150,FROMOPEN-120,IF(FROMOPEN<=180,FROMOPEN-150,IF(FROMOPEN<=210,FROMOPEN-180,IF(FROMOPEN<=240,FROMOPEN-210,FROMOPEN))))))));
VV4:=IF(FROMOPEN<=15,FROMOPEN,IF(FROMOPEN<=30,FROMOPEN-15,IF(FROMOPEN<=45,FROMOPEN-30,IF(FROMOPEN<=60,FROMOPEN-45,IF(FROMOPEN<=75,FROMOPEN-60,IF(FROMOPEN<=90,FROMOPEN-75,IF(FROMOPEN<=105,FROMOPEN-90,IF(FROMOPEN<=120,FROMOPEN-105,IF(FROMOPEN<=135,FROMOPEN-120,IF(FROMOPEN<=150,FROMOPEN-135,IF(FROMOPEN<=165,FROMOPEN-150,IF(FROMOPEN<=180,FROMOPEN-165,IF(FROMOPEN<=195,FROMOPEN-180,IF(FROMOPEN<=210,FROMOPEN-195,IF(FROMOPEN<=225,FROMOPEN-210,IF(FROMOPEN<=240,FROMOPEN-225,FROMOPEN))))))))))))))));
VV:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VV1*240/FROMOPEN,IF(CURRBARSCOUNT=1 AND PERIOD=4,VV1*IF(FROMOPEN<=60,60,60)/(VV2),IF(CURRBARSCOUNT=1 AND PERIOD=3,VV1*IF(FROMOPEN<=30,30,30)/(VV3),IF(CURRBARSCOUNT=1 AND PERIOD=2,VV1*IF(FROMOPEN<=15,15,15)/(VV4),VV1))));
{以上当日、以及当下60分钟、30分钟、15分钟成交金额为以分钟为单位的动态估测值} DIF:MA(VV,N1)-MA(VV,N2),COLORGRAY;
DIF2:MA(VV,N3)-MA(VV,N4),COLORBROWN,LINETHICK2;
DIF3:MA(VV,N5)-MA(VV,N6),COLOR33CCFF;
DIF4:MA(VV,N7)-MA(VV,N2),COLORBLUE;
DRAWTEXT(CROSS(DIFQRD:DIF2-REF(DIF2,1),COLORSTICK;