大智慧区间成本主图指标公式

INPUT:Y(2010,1991,2099),M(7,1,12),D(1,1,31),Y1(2011,1992,2099),M1(7,1,12),D1(31,1,31);

MM:=(Y-1900)*10000+M*100+D;{最早日期}

MN:=(Y1-1900)*10000+M1*100+D1;{最晚日期}

ZZ:=LAST(DATE>MM)+1;

ZC:=LAST(DATE>MN)+1;

VERTLINE(ZZ=2,1),COLORYELLOW;

VERTLINE(ZC=2,2),COLORYELLOW;

DRAWTEXT(ZZ=2,(LLVALL(HIGH)+HHVALL(HIGH))/2,'起点'),LINETHICK3,ALIGN1,COLORGREEN;

DRAWTEXT(ZC=2,(LLVALL(HIGH)+HHVALL(HIGH))/2,'终点'),LINETHICK3,ALIGN1,COLORRED;

个股:=REF(SUM(AMOUNT,ZZ-ZC)/SUM(VOL*100,ZZ-ZC),ZC);

指数:=REF(MA(C,ZZ-ZC),ZC);

区间换手:REF(SUM(VOL,ZZ-ZC)/CAPITAL*100,ZC),LINETHICK0 ;

IF ZC>1 THEN BEGIN 区间成本:IF(CATEGORY=1,个股,指数),COLORFFFFFF,LAYER2;END;

N1:=IF(DATATYPE=10,1.05,IF(DATATYPE=9,1.02,1.01));

N2:=IF(DATATYPE=10,0.95,IF(DATATYPE=9,0.98,0.99));

FILLRGN(区间成本*N1,区间成本*N2,ZC>1,RGB(128,128,128)),LAYER3;

区间计算周期:ZZ-ZC,PRECIS0,LINETHICK0 ;

DRAWTEXTABS(588,20,'区间成本 = '+NUMTOSTRN(区间成本 ,2)+' 元'),LAYER0,COLORFFC000,LINETHICK3;

{以下设置五彩立体K线}

STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),LAYER1,COLORRED;

STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),OPEN,CLOSE,7,0),LAYER1,COLORRED;

STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),LOW,HIGH,0.1,0),LAYER1,COLORCYAN;

STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),OPEN,CLOSE,7,0),LAYER1,COLORCYAN;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),LAYER1,COLOR00FF00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),LAYER1,COLOR008800;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),LAYER1,COLOR009900;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),LAYER1,COLOR00AA00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),LAYER1,COLOR00BB00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),LAYER1,COLOR00CC00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),LAYER1,COLOR00DD00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),LAYER1,COLOR00EE00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),LAYER1,COLOR00FF00;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0),LAYER1 ,COLORFFBBFF;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0),LAYER1 ,COLORFF00FF;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0),LAYER1 ,COLORFF22FF;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,LAYER1,COLORFF44FF;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0),LAYER1 ,COLORFF66FF;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0),LAYER1 ,COLORFF88FF;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),LAYER1 ,COLORFF99FF;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0),LAYER1 ,COLORFFAAFF;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0),LAYER1 ,COLORFFBBFF;