飞狐十二节K线公式

//十二节K线
 TBS:=POW(10,ABS(LOG(MINDIFF)));
 jqd:=LSOLARTERMday(date);
 fd:=date;
 tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
 节首:=tj=1 OR tj=3 OR tj=5 OR tj=7 OR tj=9 OR tj=11 OR tj=13 OR tj=15 OR tj=17 OR tj=19 OR tj=21 OR tj=23;
 Jw:BARSLAST(节首),LINETHICK;
 Jdg:=Jw=0 or ISLASTBAR;
 Jwx:=0*C;
 for JQ=datacount-1 downto lbound(Jdg) do
 if Jdg[JQ] then
 Jwx[JQ]:=0;
 else
 Jwx[JQ]:=Jwx[JQ+1]+1;
 Jr:=BACKSET(ISLASTBAR,Jw+1)-ISLASTBAR;
 Jwx:=refx(Jwx,1)+Jr,LINETHICK;
 Joo:=ref(o,Jw);
 Jhh:=hhv(h,Jw+1);
 JLL:=LLv(L,Jw+1);
 Jzq1:=BARSLAST(ref(Jwx,1)=0 or BARPOS=1)+1;//N天数
 Jyt1:=if(Jzq1=1 and refx(Jzq1,2)=1,13,if(refx(Jzq1,1)=1 or Jzq1=1,7,14));
 节开:ROUND(JOO*TBS)/TBS,LINETHICK,COLOReeee00;
 节高:ROUND(refx(Jhh,Jwx)*TBS)/TBS,LINETHICK,COLOReeaaFF;
 节低:ROUND(refx(JLL,Jwx)*TBS)/TBS,LINETHICK,COLOR00ee00;
 节收:ROUND(refx(c,Jwx)*TBS)/TBS,LINETHICK,COLOR00eeee;
 Jf:=节收>节开 or (节收=节开 and 节收>ref(节收,JW));
 Jj:=cross(Jw,Jwx);
 STICKLINE(Jw>0 and JF and Jj ,节低,节高,10,0),Color5055B1;
 STICKLINE(节开<节收 ,节开,节收,JYT1,0),Color5055B1;
 STICKLINE(Jw>0 and not(JF) and Jj ,节低,节高,10,0),Color5A7234;
 STICKLINE(节开>节收 ,节开,节收,JYT1,0),Color5A7234;
 STICKLINE(C>=O,C,O,8,0),COLOR0000AA;
 STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
 STICKLINE(C>=O,C,O,4,0),COLOR0000cc ;
 STICKLINE(C>=O,C,O,2,0),COLOR0000ee;
 STICKLINE(C>=O,H,L,0,0),COLOR0000ff;
 STICKLINE(C<=O,C,O,8,0),Color7B7b00;
 STICKLINE(C<=O,C,O,6,0),Color909000;
 STICKLINE(C<=O,C,O,4,0),ColorA8a800;
 STICKLINE(C<=O,C,O,2,0),COLORcece00;
 STICKLINE(C<=O,H,L,0,0),COLORffff00;
 drawtext(tj=1 ,l,'小寒'),COLORYELLOW,align0,PXDN5;
 //drawtext(tj=2 ,L,'大寒'),COLORYELLOW,align0,PXDN5;
 drawtext(tj=3 ,L,'立春'),COLORGREEN,align0,PXDN5;
 //drawtext(tj=4 ,L,'雨水'),COLORGREEN,align0,PXDN5;
 drawtext(tj=5 ,L,'惊蛰'),COLORGREEN,align0,PXDN5;
 //drawtext(tj=6 ,L,'春分'),COLORGREEN,align0,PXDN5;
 drawtext(tj=7 ,L,'清明'),COLORYELLOW,align0,PXDN5;
 //drawtext(tj=8 ,L,'谷雨'),COLORYELLOW,align0,PXDN5;
 drawtext(tj=9 ,L,'立夏'),COLORRED,align0,PXDN5;
 //drawtext(tj=10,L,'小满'),COLORRED,align0,PXDN5;
 drawtext(tj=11,L,'芒种'),COLORRED,align0,PXDN5;
 //drawtext(tj=12,L,'夏至'),COLORRED,align0,PXDN5;
 drawtext(tj=13,L,'小暑'),COLORYELLOW,align0,PXDN5;
 //drawtext(tj=14,L,'大暑'),COLORYELLOW,align0,PXDN5;
 drawtext(tj=15,L,'立秋'),COLORBBBBBB,align0,PXDN5;
 //drawtext(tj=16,L,'处暑'),COLORBBBBBB,align0,PXDN5;
 drawtext(tj=17,L,'白露'),COLORBBBBBB,align0,PXDN5;
 //drawtext(tj=18,L,'秋分'),COLORBBBBBB,align0,PXDN5;
 drawtext(tj=19,L,'寒露'),COLORYELLOW,align0,PXDN5;
 //drawtext(tj=20,L,'霜降'),COLORYELLOW,align0,PXDN5;
 drawtext(tj=21,L,'立冬'),COLORFF9900,align0,PXDN5;
 //drawtext(tj=22,L,'小雪'),COLORFF9900,align0,PXDN5;
 drawtext(tj=23,L,'大雪'),COLORFF9900,align0,PXDN5;
 //drawtext(tj=24,L,'冬至'),COLORFF9900,align0,PXDN5;
 drawtext(tj=1 ,H,'丑月'),COLORYELLOW,align0,PXUP19;
 drawtext(tj=3 ,H,'寅月'),COLORGREEN,align0,PXUP19;
 drawtext(tj=5 ,H,'卯月'),COLORGREEN,align0,PXUP19;
 drawtext(tj=7 ,H,'辰月'),COLORYELLOW,align0,PXUP19;
 drawtext(tj=9 ,H,'巳月'),COLORRED,align0,PXUP19;
 drawtext(tj=11,H,'午月'),COLORRED,align0,PXUP19;
 drawtext(tj=13,H,'未月'),COLORYELLOW,align0,PXUP19;
 drawtext(tj=15,H,'申月'),COLORBBBBBB,align0,PXUP19;
 drawtext(tj=17,H,'酉月'),COLORBBBBBB,align0,PXUP19;
 drawtext(tj=19,H,'戌月'),COLORYELLOW,align0,PXUP19;
 drawtext(tj=21,H,'亥月'),COLORFF9900,align0,PXUP19;
 drawtext(tj=23,H,'子月'),COLORFF9900,align0,PXUP19;