农历年K线

//农历年K线:

t1:=BARSLAST(LYEAR>ref(LYEAR,1)or BARPOS=1)+1;
rqn:=0*c;
for i=datacount downto 1 do
if t1>t1[i-1] then rqn[i-1]:=rqn+1;
Nh:=hhv(h,t1);
Nl:=llv(l,t1);
Nc1:=if(t1>ref(t1,1)and t1>refx(t1,1),c,(BARSTATUS=2)*c);
Nh1:=if(t1>ref(t1,1)and t1>refx(t1,1),Nh,Nh);
Nl1:=if(t1>ref(t1,1)and t1>refx(t1,1),Nl,Nl);
NO:=ref(o,t1-1)LINETHICK;
NC:=refx(Nc1,rqN)LINETHICK;
NH:=refx(Nh1,rqN)LINETHICK;
NL:=refx(Nl1,rqN)LINETHICK;
开:no,LINETHICK,PRECISION2;
高:nh,LINETHICK,PRECISION2;
低:nl,LINETHICK,PRECISION2;
收:nc,LINETHICK,PRECISION2;
Nk:=(Nc>No or Nc=No and Nc>ref(Nc,1))COLORRED;
t:=BARSSINCE(BARPOS);
PARTLINE(t1>ref(t1,1) AND NK,No)COLORRED;
PARTLINE(t1>ref(t1,1) AND NK,Nc)COLORRED;
STICKLINE(t1=1 AND NK,No,Nc,0.1,1)COLORRED;
STICKLINE(t=1 AND NK,No,Nc,0.1,1)COLORRED;
STICKLINE(Nc1>0 AND NK,No,Nc,0.1,1)COLORRED;
STICKLINE(cross(t1,rqN)AND NK,Nh,NC,0.1,1)COLORRED;
STICKLINE(cross(t1,rqN)AND NK,NO,Nl,0.1,1)COLORRED;
PARTLINE(t1>ref(t1,1) AND NOT(NK),No)COLORCYAN;
PARTLINE(t1>ref(t1,1) AND NOT(NK),Nc)COLORCYAN;
STICKLINE(t1=1 AND NOT(NK),No,Nc,0.1,1)COLORCYAN;
STICKLINE(t=1 AND NOT(NK),No,Nc,0.1,1)COLORCYAN;
STICKLINE(Nc1>0 AND NOT(NK),No,Nc,0.1,1)COLORCYAN;
STICKLINE(cross(t1,rqN)AND NOT(NK),Nh,NO,0.1,1)COLORCYAN;
STICKLINE(cross(t1,rqN)AND NOT(NK),NC,Nl,0.1,1)COLORCYAN;