{财务数据}
DRAWTEXT_FIX(ISLASTBAR ,0.065,0.01,1,DYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR ,0.065,0.01,0,HYBLOCK),COLORYELLOW;
周期:=N;{是可见的周期数,设为参数N(30,480,240),自己调}
高1:=CONST(HHV(H,周期)); 低1:=CONST(LLV(L,周期)); H_L:=高1-低1;{阶段高低差}
{HH:=H+H_L*0.1;   LL:=L-H_L*0.1;}
顶: 高1,COLORRED;
HL809: 低1+H_L*0.809,COLORBLUE,POINTDOT;
HL618: 低1+H_L*0.618,COLORBLUE,POINTDOT;
HL500: 低1+H_L*0.500,COLORBLUE,POINTDOT;
HL382: 低1+H_L*0.382,COLORBLUE,POINTDOT;
HL191: 低1+H_L*0.191,COLORBLUE,POINTDOT;
底: 低1,COLORGREEN;
LTJ:= L=低1;
LSJ:=BARSLAST(LTJ)+1;
L00:=低1+H_L*0.05;
{DRAWTEXT(LSJ=5,L00,'5');
DRAWTEXT(LSJ=8,L00,'8');
DRAWTEXT(LSJ=13,L00,'13');}
DRAWTEXT(LSJ=21,L00,'21');
DRAWTEXT(LSJ=34,L00,'34');
DRAWTEXT(LSJ=55,L00,'55');
DRAWTEXT(LSJ=89,L00,'89');
DRAWTEXT(LSJ=144,L00,'144');
DRAWTEXT(LSJ=233,L00,'233');
HTJ:= H=高1;
HSJ:=BARSLAST(HTJ)+1;
H00:=高1-H_L*0.03;
{DRAWTEXT(HSJ=5,H00,'5');
DRAWTEXT(HSJ=8,H00,'8');
DRAWTEXT(HSJ=13,H00,'13');}
DRAWTEXT(HSJ=21,H00,'21');
DRAWTEXT(HSJ=34,H00,'34');
DRAWTEXT(HSJ=55,H00,'55');
DRAWTEXT(HSJ=89,H00,'89');
DRAWTEXT(HSJ=144,H00,'144');
DRAWTEXT(HSJ=233,H00,'233');
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;
DRAWNUMBER_FIX(1,1,0.5,1,区间成本),COLORYELLOW;
JJ:=(O+3*CLOSE+HIGH+LOW)/6;
AA1:=EMA(JJ,10);
B:=REF(AA1,1);
STICKLINE(AA1>B ,AA1 ,B ,1 ,0 ),COLORYELLOW;
STICKLINE(AA1<B ,B ,AA1 ,1 ,0 ),COLORBLUE;
D:=MA(AA1,10);
E:=REF(D,1);
STICKLINE(D>E ,D ,E ,1 ,0 ),COLORRED;
STICKLINE(D<E ,E ,D ,1 ,0 ),COLORBLUE;
A11:=DATE <= 13181231;
黄金线:(EMA(C,18)) * A11,POINTDOT,LINETHICK4,COLORMAGENTA;  
工作线:IF((EMA(C,18))*A11<REF((EMA(C,18))*A11,1),(EMA(C,18))*A11,DRAWNULL),POINTDOT,LINETHICK4,COLORLIBLUE;