通达信时间窗口、缺口/农历、源码

通达信时间窗口、缺口/农历、源码

缺口/农历时间窗口
继续整理公式，指标原创？？？？可能是或者有借鉴，无所谓
今后是否发布，看大家是否喜欢；我发布公式基本原则简单明了、可以自由整合到你的主图，
打字较慢，所以很少解释，简单明了一看应明白
农历时间窗口论坛可能有，应该不一样
此贴还有一个目的，合并输出，通达信有50限制

{www.qill.cn缺口}
STICKLINE(LOW>REF(H,1),LOW,REF(H,1),15,0),COLOR0066EE;
STICKLINE(HIGH<REF(LOW,1),HIGH,REF(LOW,1),15,0),COLOR888080;
TQ:=BARSLAST(L>REF(H,1));EQ:=COUNT(L<REF(H,TQ+1),TQ)<2;
{www.qill.cnDRAWTEXT(L<REF(H,TQ+1 ) AND EQ,L-0.12,'缺补'),COLOR0099FF;}
AA节:=(360*FRACPART(((DATETODAY(DATE)-21)/(365/360))/360)),NODRAW;
A节:=INTPART(AA节/15)+1,NODRAW;节N:=A节!=REF(A节,1);
AHZ:=HHV(H,200); ALZ:=LLV(L,200); BZ0:=(AHZ-ALZ)/40;
STICKLINE(A节!=REF(A节,1),C,C-BZ0,1,1),COLOR00FFFF;
节气:=IF(节N AND A节=3,'立春',IF(节N AND A节=4 ,'雨水',IF(节N AND A节=5,'惊蛰',IF(节N AND A节=6,'春分',
IF(节N AND A节=7,'清明',IF(节N AND A节=8,'谷雨',IF(节N AND A节=9,'立夏',IF(节N AND A节=10,'小满',
IF(节N AND A节=11,'芒种',IF(节N AND A节=12,'夏至',IF(节N AND A节=13,'小暑',IF(节N AND A节=14,'大署',
IF(节N AND A节=15,'立秋',IF(节N AND A节=16,'处暑',IF(节N AND A节=17,'白露',IF(节N AND A节=18,'秋分',
IF(节N AND A节=19,'寒露',IF(节N AND A节=20,'霜降',IF(节N AND A节=21 ,'立冬',IF(节N AND A节=22,'小雪',
IF(节N AND A节=23,'大雪',IF(节N AND A节=24,'冬至',IF(节N AND A节=1,'小寒',IF(节N AND A节=2,'大寒',
DRAWNULL))))))))))))))))))))))));DRAWTEXT(1,H+BZ0,节气),COLOR00FFFF;

月节:=IF(REFDATE(MONTH,DATE)=1,'小寒5日-7日大寒20日-22日',IF(REFDATE(MONTH,DATE)=2,'立春3日-5日雨水18日-20日',
IF(REFDATE(MONTH,DATE)=3,'惊蛰5日-7日春分20日-22日',IF(REFDATE(MONTH,DATE)=4,'清明4日-6日谷雨19日-21日',
IF(REFDATE(MONTH,DATE)=5,'立夏5日-7日小满20日-22日',IF(REFDATE(MONTH,DATE)=6,'芒种5日-7日夏至21日-23日',
IF(REFDATE(MONTH,DATE)=7,'小暑6日-8日大暑22日-24日',IF(REFDATE(MONTH,DATE)=8,'立秋7日-9日处暑22日-24日',
IF(REFDATE(MONTH,DATE)=9,'白露7日-9日秋分22日-24日',IF(REFDATE(MONTH,DATE)=10,'寒露8日-10日霜降23日-25日',
IF(REFDATE(MONTH,DATE)=11,'立冬7日-9日小雪22日-24日',IF(REFDATE(MONTH,DATE)=12,'大雪6日-8日冬至21日-23日',
DRAWNULL)))))))))))); 今日:=DATE+19000000,NODRAW;
输节K:=STRCAT(CON2STR(今日,0),STRCAT('■农历节气',月节));
DRAWTEXT_FIX(1,0.70,0.02,1,输节K),COLORWHITE;
输周K:=STRCAT(STRCAT('今年N周',CON2STR(WEEKOFYEAR,0)),STRCAT('■周日星期',CON2STR(WEEKDAY,0)));
DRAWTEXT_FIX(1,0.96,0.02,1,输周K),COLORWHITE;