《皇极经世》通达信版

积年数:67017+YEAR,NODRAW;

年:YEAR,NODRAW;

YS:=MOD(YEAR,12),NODRAW;

余数:MOD(积年数,60),NODRAW;

{DRAWTEXT_FIX(YS=4,0.015,0.01,0,’鼠年’),COLORRED;

DRAWTEXT_FIX(YS=5,0.015,0.01,0,’牛年’),COLORRED;

DRAWTEXT_FIX(YS=6,0.015,0.01,0,’虎年’),COLORRED;

DRAWTEXT_FIX(YS=7,0.015,0.01,0,’兔年’),COLORRED;

DRAWTEXT_FIX(YS=8,0.015,0.01,0,’龙年’),COLORRED;

DRAWTEXT_FIX(YS=9,0.015,0.01,0,’蛇年’),COLORRED;

DRAWTEXT_FIX(YS=10,0.015,0.01,0,’马年’),COLORRED;

DRAWTEXT_FIX(YS=11,0.015,0.01,0,’羊年’),COLORRED;

DRAWTEXT_FIX(YS=0,0.015,0.01,0,’猴年’),COLORRED;

DRAWTEXT_FIX(YS=1,0.015,0.01,0,’鸡年’),COLORRED;

DRAWTEXT_FIX(YS=2,0.015,0.01,0,’狗年’),COLORRED;

DRAWTEXT_FIX(YS=3,0.015,0.01,0,’猪年’),COLORRED;}

YSA:=IF(YS=0,’猴年’,IF(YS=1,’鸡年’,IF(YS=2,’狗年’,IF(YS=3,’猪年’,IF

(YS=4,’鼠年’,IF(YS=5,’牛年’,IF(YS=6,’虎年’,IF(YS=7,’兔年’,IF(YS=8,’龙年’,IF(YS=9,’

蛇年’,IF(YS=10,’马年’,IF(YS=11,’羊年’,”))))))))))));

DRAWTEXT_FIX(ISLASTBAR,0.95,0.07,0,YSA),COLORRED;

YS1:MOD(YEAR,60),NODRAW,COLORRED;

DRAWTEXT_FIX(ISLASTBAR,0.02,0.05,0,’皇极积年数：67017+YEAR’),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,0.02,0.07,0,STRCAT(‘皇极积年数：’,CON2STR(67017+YEAR,0))),COLORRED;

HUI:=CEILING((67017+YEAR)/10800),NODRAW;

会:=IF(HUI=1,’1子会BC67017-BC56218消息卦复’,IF(HUI=2,’2丑会BC56217-BC45418消息卦临’,IF(HUI=3,’3寅会BC45417-BC34618消息卦泰’,IF(HUI=4,’4卯会BC34617-BC23818消息卦大壮’,IF(HUI=5,’5辰会BC23817-BC13018消息卦怪’,IF(HUI=6,’6巳会BC13017-BC2218消息卦乾’,IF(HUI=7,’7午会BC2217-AD8583消息卦垢’,IF(HUI=8,’8未会8584-19383消息卦遁’,

IF(HUI=9,’9申会19384-30183消息卦否’,IF(HUI=10,’10酉会30184-40983消息卦观’,IF(HUI=11,’11戌会40984-51783消息卦剥’,IF(HUI=12,’12亥会51784-62583消息卦坤’,”))))))))))));

DRAWTEXT_FIX(ISLASTBAR,0.02,0.1,0,STRCAT(‘元会世运：’,会)),COLORMAGENTA;

YUN:=CEILING((67017+YEAR)/2160),NODRAW,COLORRED;

正卦:YUN,NODRAW,COLORMAGENTA;

正大运卦:=IF(YUN=1,’1复BC67017-BC64858′,IF(YUN=2,’2颐BC64857-BC62698′,IF(YUN=3,’3屯BC62697-BC60538′,IF(YUN=4,’4益BC60537-BC58378′,IF(YUN=5,’5震BC58377-BC56218′,IF(YUN=6,’6噬嗑BC56217-BC54058′,IF(YUN=7,’7随BC54057-BC51898′,IF(YUN=8,’8无妄BC51897-BC49738′,

IF(YUN=9,’9明夷BC49737-BC47578′,IF(YUN=10,’10贲BC47577-BC45418′,IF(YUN=11,’11既济BC45417-BC43258′,IF(YUN=12,’12家人BC43257-BC41098′,IF(YUN=13,’丰BC41097-BC38938′,

IF(YUN=14,’革BC38937-BC36778′,IF(YUN=15,’同人BC36777-BC34618′,IF(YUN=16,’临BC34617-BC32458′,IF(YUN=17,’损BC32457-BC30298′,

IF(YUN=18,’节BC30297-BC28138′,IF(YUN=19,’中孚BC28137-BC25978′,IF(YUN=20,’艮BC25977-BC23818′,IF(YUN=21,’谦BC23817-BC21658′,

IF(YUN=22,’否BC21657-BC19498′,IF(YUN=23,’履BC19497-BC17338′,IF(YUN=24,’泰BC17337-BC15178′,

IF(YUN=25,’大蓄BC15177-BC13018′,IF(YUN=26,’需BC13017-BC10858′,IF(YUN=27,’小蓄BC10857-BC8698′,IF(YUN=28,’大壮BC8697-BC6538′,

IF(YUN=29,’大有BC6537-BC4378′,IF(YUN=30,’怪BC4377-BC2218′,IF(YUN=31,’垢BC2217-BC58′,IF(YUN=32,’大过BC57-AD2103′,IF(YUN=33,’鼎,2104-4263′,

IF(YUN=34,’恒,4264-6423′,IF(YUN=35,’巽,6424-8583′,IF(YUN=36,’井,8584-10743′,IF(YUN=37,’蛊,10744-12903′,

IF(YUN=38,’升12904-15063′,IF(YUN=39,’讼15064-17223′,IF(YUN=40,’困17224-19383′,IF(YUN=41,’未济19384-21543′,

IF(YUN=42,’解21544-23703′,IF(YUN=43,’涣23704-25863′,IF(YUN=44,’蒙25864-28023′,IF(YUN=45,’师28024-30183′,

IF(YUN=46,’遁30184-32343′,IF(YUN=47,’咸32344-34503′,IF(YUN=48,’旅34504-33663′,

IF(YUN=49,’小过33664-38823′,IF(YUN=50,’渐38824-40983′,IF(YUN=51,’蹇40984-43143′,

IF(YUN=52,’艮43144-45303′,IF(YUN=53,’谦45304-47463′,IF(YUN=54,’否47464-49623′,IF(YUN=55,’萃49624-51783′,

IF(YUN=56,’晋51784-53943′,IF(YUN=57,’豫53944-56103′,IF(YUN=58,’观56104-58263′,IF(YUN=59,’比58264-60423′,IF(YUN=60,’剥60424-62583′,”))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));

DRAWTEXT_FIX(ISLASTBAR,0.02,0.15,0,STRCAT(‘正卦：’,正大运卦)),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.35,0.15,0,’公元前57年–2103年，共计2160年’),COLORMAGENTA;

运卦:CEILING((67017+YEAR)/360),NODRAW,COLORMAGENTA;

运卦变爻位:CEILING(6*FRACPART((67017+YEAR)/2160)),NODRAW,COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.02,0.2,0,STRCAT(STRCAT(‘第’,CON2STR(运卦,0)),’运’)),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.2,0,’1744年–2103年，共计360年’),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.25,0.2,0,STRCAT(STRCAT(‘运卦变爻位：第’,CON2STR(运卦变爻位,0)),’爻，变动大过卦的第6爻后为垢卦’)),COLORMAGENTA;

世卦:CEILING((67017+YEAR)/30),NODRAW,COLORRED;

世卦变爻位:CEILING(6*FRACPART((67017+YEAR)/360)),NODRAW,COLORRED;

DRAWTEXT_FIX(ISLASTBAR,0.02,0.25,0,STRCAT(STRCAT(‘第’,CON2STR(世卦,0)),’世’)),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.25,0,’1984年–2043年，共计60年’),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.25,0.25,0,STRCAT(STRCAT(‘世卦变爻位：第’,CON2STR(世卦变爻位,0)),’爻，变动垢卦的第5爻后为鼎卦’)),COLORMAGENTA;

旬卦:CEILING((67017+YEAR)/10),NODRAW;

旬卦变爻位:CEILING(6*FRACPART((67017+YEAR)/30)),NODRAW,COLORRED;

DRAWTEXT_FIX(ISLASTBAR,0.02,0.3,0,STRCAT(STRCAT(‘第’,CON2STR(旬卦,0)),’旬’)),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.1,0.3,0,’2014年–2023年，共计10年’),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.25,0.3,0,STRCAT(STRCAT(‘旬卦变爻位：第’,CON2STR(旬卦变爻位,0)),’爻，变动鼎卦的第4爻后为蛊卦’)),COLORMAGENTA;

NIANGUA:=MOD(YEAR,60),NODRAW;

年卦:=IF(NIANGUA=32,’1复2072′,IF(NIANGUA=33,’2颐2073′,IF(NIANGUA=34,’3屯2074′,IF(NIANGUA=35,’4益2075′,IF(NIANGUA=36,’5震2076′,IF(NIANGUA=37,’6噬嗑2077′,IF(NIANGUA=38,’7随2078′,IF(NIANGUA=39,’8无妄2079′,IF(NIANGUA=40,’9明夷2080′,IF(NIANGUA=41,’10贲2081′,IF(NIANGUA=42,’11既济2022年’,IF(NIANGUA=43,’家人2023年’,IF(NIANGUA=44,’丰2024年’,

IF(NIANGUA=45,’革2025年’,IF(NIANGUA=46,’同人2026′,IF(NIANGUA=47,’临2027′,IF(NIANGUA=48,’损2028′,IF(NIANGUA=49,’节2029′,IF(NIANGUA=50,’中孚2030′,IF(NIANGUA=51,’艮2031′,IF(NIANGUA=52,’谦2032′,IF(NIANGUA=53,’否2033′,IF(NIANGUA=54,’履2034′,IF(NIANGUA=55,’泰2035′,

IF(NIANGUA=56,’大蓄2036′,IF(NIANGUA=57,’需2037′,IF(NIANGUA=58,’小蓄2038′,IF(NIANGUA=59,’大壮2039′,IF(NIANGUA=0,’大有2040′,IF(NIANGUA=1,’怪2041′,IF(NIANGUA=2,’垢2042′,IF(NIANGUA=3,’大过2043′,IF(NIANGUA=4,’鼎2044′,IF(NIANGUA=5,’恒2045′,IF(NIANGUA=6,’巽2046′,IF(NIANGUA=7,’井2047′,IF(NIANGUA=8,’蛊2048′,

IF(NIANGUA=9,’升2049′,IF(NIANGUA=10,’讼2050′,IF(NIANGUA=11,’困2051′,IF(NIANGUA=12,’未济2052′,IF(NIANGUA=13,’解2053′,IF(NIANGUA=14,’涣2054′,IF(NIANGUA=15,’蒙2055′,IF(NIANGUA=16,’师2056′,IF(NIANGUA=17,’遁2057′,IF(NIANGUA=18,’咸2058′,IF(NIANGUA=19,’旅2059′,IF(NIANGUA=20,’小过2060′,IF(NIANGUA=21,’渐2061′,IF(NIANGUA=22,’蹇2062′,

IF(NIANGUA=23,’艮2063′,IF(NIANGUA=24,’谦2064′,IF(NIANGUA=25,’否2065′,IF(NIANGUA=26,’萃2066′,IF(NIANGUA=27,’晋2067′,IF(NIANGUA=28,’豫2068′,IF(NIANGUA=29,’观2069′,IF(NIANGUA=30,’比2070′,IF(NIANGUA=31,’剥2071′,”))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));

DRAWTEXT_FIX(ISLASTBAR,0.1,0.35,0,STRCAT(STRCAT(CON2STR(YEAR,0),’年卦：’),年卦)),COLORMAGENTA;

DRAWTEXT_FIX(YS1=0,0.01,0.01,0,’57庚申年，29大有卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=1,0.01,0.01,0,’58辛酉年，30块GUAI卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=2,0.01,0.01,0,’59壬戌年，31垢卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=3,0.01,0.01,0,’60癸亥年，32大过卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=4 AND ISLASTBAR,0.01,0.01,0,’1甲子年， 33鼎卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=5 AND ISLASTBAR,0.01,0.01,0,’2乙丑年，34恒卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=6 AND ISLASTBAR,0.01,0.01,0,’3丙寅年，35巽卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=7 AND ISLASTBAR,0.01,0.01,0,’4丁卯年，36井卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=8 AND ISLASTBAR,0.01,0.01,0,’5戊辰年，37蛊卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=9 AND ISLASTBAR,0.01,0.01,0,’6己巳年，38升卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=10 AND ISLASTBAR,0.01,0.01,0,’7庚午年，39讼卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=11 AND ISLASTBAR,0.01,0.01,0,’8辛未年，40困卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=12 AND ISLASTBAR,0.01,0.01,0,’9壬申年，41未济卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=13 AND ISLASTBAR,0.01,0.01,0,’10癸酉年，42解卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=14 AND ISLASTBAR,0.01,0.01,0,’11甲戌年，43涣卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=15 AND ISLASTBAR,0.01,0.01,0,’12乙亥年，44蒙卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=16 AND ISLASTBAR,0.01,0.01,0,’13丙子年，45师卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=17 AND ISLASTBAR,0.01,0.01,0,’14丁丑年，46逐卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=18 AND ISLASTBAR,0.01,0.01,0,’15戊寅年，47咸卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=19 AND ISLASTBAR,0.01,0.01,0,’16己卯年，48旅卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=20 AND ISLASTBAR,0.01,0.01,0,’17庚辰年，49小过卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=21 AND ISLASTBAR,0.01,0.01,0,’18辛巳年，50渐卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=22 AND ISLASTBAR,0.01,0.01,0,’19壬午年，51蹇卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=23 AND ISLASTBAR,0.01,0.01,0,’20癸未年，52艮卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=24 AND ISLASTBAR,0.01,0.01,0,’21甲申年，53谦卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=25 AND ISLASTBAR,0.01,0.01,0,’22乙酉年，54否卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=26 AND ISLASTBAR,0.01,0.01,0,’23丙戌年，55萃卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=27 AND ISLASTBAR,0.01,0.01,0,’24丁亥年，56晋卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=28 AND ISLASTBAR,0.01,0.01,0,’25戊子年，57豫卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=29 AND ISLASTBAR,0.01,0.01,0,’26己丑年，58观卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=30 AND ISLASTBAR,0.01,0.01,0,’27庚寅年，59比卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=31 AND ISLASTBAR,0.01,0.01,0,’28辛卯年，60剥卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=32 AND ISLASTBAR,0.01,0.01,0,’29壬辰年，1复卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=33 AND ISLASTBAR,0.01,0.01,0,’30癸巳年，2颐卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=34 AND ISLASTBAR,0.01,0.01,0,’31甲午年，3屯卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=35 AND ISLASTBAR,0.01,0.01,0,’32乙未年，4益卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=36 AND ISLASTBAR,0.01,0.01,0,’33丙申年，5震卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=37 AND ISLASTBAR,0.01,0.01,0,’34丁酉年，6噬嗑卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=38 AND ISLASTBAR,0.01,0.01,0,’35戊戌年，7随卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=39 AND ISLASTBAR,0.01,0.01,0,’36己亥年，8无妄卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=40 AND ISLASTBAR,0.01,0.01,0,’37庚子年，9明夷卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=41 AND ISLASTBAR,0.01,0.01,0,’38辛丑年，10贲卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=42 AND ISLASTBAR,0.01,0.01,0,’39壬寅年，11既济卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=43 AND ISLASTBAR,0.01,0.01,0,’40癸卯年，12家人卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=44 AND ISLASTBAR,0.01,0.01,0,’41甲辰年，13丰卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=45 AND ISLASTBAR,0.01,0.01,0,’42乙巳年，14革卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=46 AND ISLASTBAR,0.01,0.01,0,’43丙午年，15同人卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=47 AND ISLASTBAR,0.01,0.01,0,’44丁未年，16临卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=48 AND ISLASTBAR,0.01,0.01,0,’45戊申年，17损卦 ‘),COLORMAGENTA;

DRAWTEXT_FIX(YS1=49 AND ISLASTBAR,0.01,0.01,0,’46己酉年，18节卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=50 AND ISLASTBAR,0.01,0.01,0,’47庚戌年，19中孚卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=51 AND ISLASTBAR,0.01,0.01,0,’48辛亥年，20归妹卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=52 AND ISLASTBAR,0.01,0.01,0,’49壬子年，21睽卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=53 AND ISLASTBAR,0.01,0.01,0,’50癸丑年，22兑卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=54 AND ISLASTBAR,0.01,0.01,0,’51甲寅年，23履卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=55 AND ISLASTBAR,0.01,0.01,0,’52乙卯年，24泰卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=56 AND ISLASTBAR,0.01,0.01,0,’53丙辰年，25大畜卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=57 AND ISLASTBAR,0.01,0.01,0,’54丁巳年，26需卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=58 AND ISLASTBAR,0.01,0.01,0,’55戊午年，27小畜卦’),COLORMAGENTA;

DRAWTEXT_FIX(YS1=59 AND ISLASTBAR,0.01,0.01,0,’56己未年，28大壮卦’),COLORMAGENTA;