谁有AR-24节气的公式是股道黄金版的,表示忠心感谢

partline(1,1),COLORYELLOW;
jqd:=LSOLARTERMday(date);
fd:=date;
tj:=(jqd-ref(jqd,1)DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day=3 and tj=9 and tj=15 and tj=21 and tj=6,tj-6,tj+18)*15;
drawnumber(tj ,-0.5,cond,0),COLORGREEN;
drawnumber((tj/3)=intpart(tj/3) and tj0,-0.5,cond,0),COLORRED;
-1,pointdot,colorblack;
gz:=GANZHI(date,0,2);
stickline(BETWEEN(gz,39,50),0.85,1.05,4,0),COLORYELLOW;