通达信区间统计小工具源码

这个公式与通达信系统的区间统计功能差不多，可以单独做副图，也可以加在其他副图里或者主图里（有空间的话），使用起来十分方便，使用说明在图上，有能力的朋友也可以再加一些自己需要的内容；
本人要过节日了，你们也沾点光吧，呵呵；不说了，“春花上菜”；
 

{区间统计小工具}
{统计(0,1,1),始(0,999,10),终(0,999,0)}
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
XZ:=IF(统计=1,1,DRAWNULL);
HSL:=V/FINANCE(7)*10000;
KD1:=(CURRBARSCOUNT=始)*XZ; ZD1:=(CURRBARSCOUNT-1=终)*XZ;
KD2:=BARSLAST(KD1); ZD2:=BARSLAST(ZD1);
HS1:=SUM(HSL,KD2+1),NODRAW;
HS2:=IF(ZD2!=0,SUM(HSL,ZD2),0);
QHS:=HS1-HS2,NODRAW;
HH:=CONST(FINDHIGH(H,终,始-终,1));
LL:=CONST(FINDLOW(L,终,始-终,1));
ZF:=(HH/LL-1)*100;
ZFD:(REF(C,终)/REF(C,始)-1)*100,NODRAW;
JC:REF(C,终)-REF(C,始),NODRAW;
始日:=REF(DAY,KD2);
始月:=REF(MONTH,KD2);
始年:=REF(YEAR,KD2);
终日:=REF(DAY,ZD2);
终月:=REF(MONTH,ZD2);
终年:=REF(YEAR,ZD2);
KK1:=STRCAT(STRCAT('起始日期:',CON2STR(始年,0)),'年');
KK2:=STRCAT(CON2STR(始月,0),'月');
KK3:=STRCAT(KK1,KK2);
KK4:=STRCAT(CON2STR(始日,0),'日');
KK5:=STRCAT(KK3,KK4);
ZZ1:=STRCAT(STRCAT(' 终止日期:',CON2STR(终年,0)),'年');
ZZ2:=STRCAT(CON2STR(终月,0),'月');
ZZ3:=STRCAT(ZZ1,ZZ2);
ZZ4:=STRCAT(CON2STR(终日,0),'日');
ZZ5:=STRCAT(ZZ3,ZZ4);
KZ:=STRCAT(KK5,ZZ5);
QQ1:=STRCAT(' 交易天数:',CON2STR(始-终,0));
QQ2:=STRCAT(STRCAT(' 区间换手:',CON