“区间成本费”麻烦改成TDX应用

编写标准：

编写方式：网民求助：

input:N(1,1,9999),M(1,1,9999);

A1:=BARSTATUS=2 ;

C1:=BACKSET(a1,n);

D1:=FILTER(C1,n-1);

VERTLINE( d1,1 );

A2:=BARSTATUS=2 ;

C2:=BACKSET(a2,m);

D2:=FILTER(C2,m-1);

VERTLINE( d2,1 );

周期时间:abs(n-m) 1,linethick0;

完毕点:=if(n>m,d2,d1);

成交量:=if(完毕点,sum(amount,周期时间),0);

交易量:=if(完毕点,sum(vol,周期时间),0);

区间平均价:=if(CATEGORY=1, 成交量/交易量/100,ref(ma(c,abs(n-m) 1),min(m,n)-1));

区间股票换手和:=交易量/CAPITAL*100;

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));

区间股票换手:REF(区间股票换手和,BARSLAST(完毕点)),linethick0;

区间成本费:REF(区间平均价,BARSLAST(完毕点));

上界:REF(区间平均价*n1,BARSLAST(完毕点)),DOTLINE;

末地:REF(区间平均价*n2,BARSLAST(完毕点)),DOTLINE;

DRAWTEXTABS(588,20,'成本费区间:' NUMTOSTRN(末地,2) ' - ' NUMTOSTRN(区间成本费,2)

' - ' NUMTOSTRN(上界,2)),LAYER0,ColorFFC000;

DRAWTEXTABS(588,40,'区间股票换手:' NUMTOSTRN(区间股票换手,2)),LAYER0,ColorFFC000;

解释以下：

AA:=起始点;

BB:=终点站;

CYC:=IF(CAPITAL=0,(SUM(C,AA)-SUM(C,BB))/(AA-BB),(SUM(AMOUNT,AA)-SUM(AMOUNT,BB))/(SUM(VOL,AA)-SUM(VOL,BB))/100);

区间成本费:CONST(CYC),NODRAW;

区间股票换手:(SUM(VOL,AA)-SUM(VOL,BB))/CAPITAL*100,NODRAW;

测算周期时间:AA-BB,NODRAW;

HH:=REFDATE(HHV(H,起始点),DATE);

LL:=REFDATE(LLV(L,起始点),DATE);

N1:=IF(PERIOD=7,1.05,IF(PERIOD=6,1.02,1.01));

N2:=IF(PERIOD=7,0.95,IF(PERIOD=6,0.98,0.99));

STICKLINE(CURRBARSCOUNT<=终点站,区间成本费*N1,区间成本费*N2,5,0),COLOR808080;

STICKLINE(CURRBARSCOUNT<=终点站,区间成本费,区间成本费,5,0),COLORWHITE;

STICKLINE(CURRBARSCOUNT=起始点,HH,LL,0,-1),COLORYELLOW;

STICKLINE(CURRBARSCOUNT=终点站,HH,LL,0,-1),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=起始点,LL,'起始点'),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=终点站,LL,'终点站'),COLORWHITE;

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);

之上是文章正文

基本参数 起始点 0 9999 1

终点站 0 9999 0