通达信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<=16));
 drawtext(tj=1 ,0.5,'小寒'),COLORYELLOW;
 drawtext(tj=2 ,0.5,'大寒'),COLORYELLOW;
 drawtext(tj=3 ,0.5,'立春'),COLORGREEN;
 drawtext(tj=4 ,0.5,'雨水'),COLORGREEN;
 drawtext(tj=5 ,0.5,'惊蛰'),COLORGREEN;
 drawtext(tj=6 ,0.5,'春分'),COLORGREEN;
 drawtext(tj=7 ,0.5,'清明'),COLORYELLOW;
 drawtext(tj=8 ,0.5,'谷雨'),COLORYELLOW;
 drawtext(tj=9 ,0.5,'立夏'),COLORRED;
 drawtext(tj=10,0.5,'小满'),COLORRED;
 drawtext(tj=11,0.5,'芒种'),COLORRED;
 drawtext(tj=12,0.5,'夏至'),COLORRED;
 drawtext(tj=13,0.5,'小暑'),COLORYELLOW;
 drawtext(tj=14,0.5,'大暑'),COLORYELLOW;
 drawtext(tj=15,0.5,'立秋'),COLORBBBBBB;
 drawtext(tj=16,0.5,'处暑'),COLORBBBBBB;
 drawtext(tj=17,0.5,'白露'),COLORBBBBBB;
 drawtext(tj=18,0.5,'秋分'),COLORBBBBBB;
 drawtext(tj=19,0.5,'寒露'),COLORYELLOW;
 drawtext(tj=20,0.5,'霜降'),COLORYELLOW;
 drawtext(tj=21,0.5,'立冬'),COLORFF9900;
 drawtext(tj=22,0.5,'小雪'),COLORFF9900;
 drawtext(tj=23,0.5,'大雪'),COLORFF9900;
 drawtext(tj=24,0.5,'冬至'),COLORFF9900;

drawtext(tj=1 ,2.5,'丑月'),COLORYELLOW;
 drawtext(tj=3 ,2.5,'寅月'),COLORGREEN;
 drawtext(tj=5 ,2.5,'卯月'),COLORGREEN;
 drawtext(tj=7 ,2.5,'辰月'),COLORYELLOW;
 drawtext(tj=9 ,2.5,'巳月'),COLORRED;
 drawtext(tj=11,2.5,'午月'),COLORRED;
 drawtext(tj=13,2.5,'未月'),COLORYELLOW;
 drawtext(tj=15,2.5,'申月'),COLORBBBBBB;
 drawtext(tj=17,2.5,'酉月'),COLORBBBBBB;
 drawtext(tj=19,2.5,'戌月'),COLORYELLOW;
 drawtext(tj=21,2.5,'亥月'),COLORFF9900;
 drawtext(tj=23,2.5,'子月'),COLORFF9900;

stickline(tj=1 or tj=2 or tj=7 or tj=8 or tj=13 or tj=14 or tj=19 or tj=20,0.5,1.5,8,0),COLORYELLOW;
 stickline(tj>=3 and tj<=6,0.5,1.5,8,0),COLORGREEN;
 stickline(tj>=9 and tj<=12,0.5,1.5,8,0),COLORRED;
 stickline(tj>=15 and tj<=18,0.5,1.5,8,0),COLORBBBBBB;
 stickline(tj>=21 and tj<=24,0.5,1.5,8,0),COLORFF9900;

drawnumber(tj,3.5,tj,0),COLORBROWN;
 cond:=if(tj>=6,tj-6,tj+18)*15;
 drawnumber(tj ,-0.5,cond,0),COLORGREEN;
 drawnumber((tj/3)=intpart(tj/3) and tj<>0,-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;