飞狐农历年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;