在线检测未来函数

给下面公式加区间涨幅和振幅

来源:Internet,编辑:股旁网,2012-03-16

编写条件:

编写方法:

 网友求助:

{input:y(2011,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;
求助,那位老师给这个公式加一个区间的涨幅振幅,和前边的区间换手和区间成本一样的
 
解答如下:
加到后面
区间涨幅:REF(C,ZZ-1)/REF(C,ZC-1)*100-100;
区间振幅:REF((IF(ZC=1,HHV(H,ZZ),0)-IF(ZC=1,LLV(L,ZZ),0))/C*100,ZC-1);

相关文章