64卦指标
a:=LSOLARTERM(DATE);
DRAWTEXT(a=1,0,'小寒'),coloryellow;DRAWTEXT(a=2,0,'大寒'),coloryellow;DRAWTEXT(a=3,0,'立春'),coloryellow;DRAWTEXT(a=4,0,'雨水'),coloryellow;
DRAWTEXT(a=5,0,'惊蛰'),coloryellow;DRAWTEXT(a=6,0,'春分'),coloryellow;DRAWTEXT(a=7,0,'清明'),coloryellow;DRAWTEXT(a=8,0,'谷雨'),coloryellow;
DRAWTEXT(a=9,0,'立夏'),coloryellow;DRAWTEXT(a=10,0,'小满'),coloryellow;DRAWTEXT(a=11,0,'芒种'),coloryellow;DRAWTEXT(a=12,0,'夏至'),coloryellow;
DRAWTEXT(a=13,0,'小暑'),coloryellow;DRAWTEXT(a=14,0,'大暑'),coloryellow;DRAWTEXT(a=15,0,'立秋'),coloryellow;DRAWTEXT(a=16,0,'处暑'),coloryellow;
DRAWTEXT(a=17,0,'白露'),coloryellow;DRAWTEXT(a=18,0,'秋分'),coloryellow;DRAWTEXT(a=19,0,'寒露'),coloryellow;DRAWTEXT(a=20,0,'霜降'),coloryellow;
DRAWTEXT(a=21,0,'立冬'),coloryellow;DRAWTEXT(a=22,0,'小雪'),coloryellow;DRAWTEXT(a=23,0,'大雪'),coloryellow;DRAWTEXT(a=24,0,'冬至'),coloryellow;
年:LYEAR,Linethick0;月:LMONTH,Linethick0;日:LDAY,Linethick0;时:CURRENTTIME{HOUR},Linethick0;BB:=BARPOS=SYSPARAM(1);
DRAWYITEXT(BB,40,GANZHI(DATE,0,0),0);DRAWYITEXT(BB,40,GANZHI(DATE,0,1),0),SHIFT5;DRAWYITEXT(BB,40,GANZHI(DATE,0,2),0),SHIFT10;
{地支旬空}s:=INTPART(GANZHI(DATE,0,2)/10);{得到该周期的旬代码(0-5)依次表示甲子旬…甲寅旬} 旬空:=(5-s)*2;{得到该周期的第一个旬空地支代码}
DRAWTEXT(BB AND 旬空=10,36,'【甲子】旬、空【戌亥】'),COLORYELLOW;DRAWTEXT(BB AND 旬空=8,36,'【甲戌】旬、空【申酉】'),COLORYELLOW;
DRAWTEXT(BB AND 旬空=6,36,'【甲申】旬、空【午未】'),COLORYELLOW;DRAWTEXT(BB AND 旬空=4,36,'【甲午】旬、空【辰巳】'),COLORYELLOW;
DRAWTEXT(BB AND 旬空=2,36,'【甲辰】旬、空【寅卯】'),COLORYELLOW;DRAWTEXT(BB AND 旬空=0,36,'【甲寅】旬、空【子丑】'),COLORYELLOW;
{起卦方法}AA:=ZQDMSUM;上卦数:=NUMBERSUM(INTPART(CLOSE),0)+AA;下卦数:=NUMBERSUM(ROUND(FRACPART(CLOSE)*100),0)+AA;卦数:=(上卦数+下卦数-AA);
上卦余数:=MOD(上卦数,8);下卦余数:=MOD(下卦数,8);卦余数:=MOD(卦数,6);上卦:=IF(上卦余数=0,8,上卦余数),Linethick0;
下卦:=IF(下卦余数=0,8,下卦余数),Linethick0;卦:=IF(卦余数=0,6,卦余数),Linethick0;一元卦:上卦*100+下卦*10+卦,Linethick0,COLOR99FF00,ALIGN2;
DRAWTEXT(BB AND 一元卦=111,28,'
乾宫：乾为天（六冲） 乾宫：天风姤 \n
▅▅▅▅▅ 父母壬戌土 世 ▅▅▅▅▅ 父母壬戌土 \n
▅▅▅▅▅ 兄弟壬申金 ▅▅▅▅▅ 兄弟壬申金 \n
▅▅▅▅▅ 官鬼壬午火 ▅▅▅▅▅ 官鬼壬午火 应\n
▅▅▅▅▅ 父母甲辰土 应 ▅▅▅▅▅ 兄弟辛酉金 \n
▅▅▅▅▅ 妻财甲寅木 ▅▅▅▅▅ 子孙辛亥水 \n
▅▅▅▅▅ 子孙甲子水 ○→ ▅▅ ▅▅ 父母辛丑土 世'),COLOR99FF00,ALIGN2;
DRAWTEXT(BB AND 一元卦=112,28,'
乾宫：乾为天（六冲） 离宫：天火同人（归魂） \n
▅▅▅▅▅ 父母壬戌土 世 ▅▅▅▅▅ 父母壬戌土 应\n
▅▅▅▅▅ 兄弟壬申金 ▅▅▅▅▅ 兄弟壬申金 \n
▅▅▅▅▅ 官鬼壬午火 ▅▅▅▅▅ 官鬼壬午火 \n
▅▅▅▅▅ 父母甲辰土 应 ▅▅▅▅▅ 子孙己亥水 世\n
▅▅▅▅▅ 妻财甲寅木 ○→ ▅▅ ▅▅ 父母己丑土 \n
▅▅▅▅▅ 子孙甲子水 ▅▅▅▅▅ 妻财己卯木 '),COLOR99FF00,ALIGN2;
DRAWTEXT(BB AND 一元卦=113,28,'
乾宫：乾为天（六冲） 艮宫：天泽履 \n
▅▅▅▅▅ 父母壬戌土 世 ▅▅▅▅▅ 父母壬戌土 \n
▅▅▅▅▅ 兄弟壬申金 ▅▅▅▅▅ 兄弟壬申金 世\n
▅▅▅▅▅ 官鬼壬午火 ▅▅▅▅▅ 官鬼壬午火 \n
▅▅▅▅▅ 父母甲辰土 应○→ ▅▅ ▅▅ 父母丁丑土 \n
▅▅▅▅▅ 妻财甲寅木 ▅▅▅▅▅ 妻财丁卯木 应\n
▅▅▅▅▅ 子孙甲子水 ▅▅▅▅▅ 官鬼丁巳火 '),COLOR99FF00,ALIGN2;
DRAWTEXT(BB AND 一元卦=114,28,'
乾宫：乾为天（六冲） 巽宫：风天小畜 \n
▅▅▅▅▅ 父母壬戌土 世 ▅▅▅▅▅ 妻财辛卯木 \n
▅▅▅▅▅ 兄弟壬申金 ▅▅▅▅▅ 官鬼辛巳火 \n
▅▅▅▅▅ 官鬼壬午火 ○→ ▅▅ ▅▅ 父母辛未土 应\n
▅▅▅▅▅ 父母甲辰土 应 ▅▅▅▅▅ 父母甲辰土 \n
▅▅▅▅▅ 妻财甲寅木 ▅▅▅▅▅ 妻财甲寅木 \n
▅▅▅▅▅ 子孙甲子水 ▅▅▅▅▅ 子孙甲子水 世'),COLOR99FF00,ALIGN2;
DRAWTEXT(BB AND 一元卦=115,28,'
乾宫：乾为天（六冲） 乾宫：火天大有（归魂） \n
▅▅▅▅▅ 父母壬戌土 世 ▅▅▅▅▅ 官鬼己巳火 应\n
▅▅▅▅▅ 兄弟壬申金 ○→ ▅▅ ▅▅ 父母己未土 \n
▅▅▅▅▅ 官鬼壬午火 ▅▅▅▅▅ 兄弟己酉金 \n
▅▅▅▅▅ 父母甲辰土 应 ▅▅▅▅▅ 父母甲辰土 世\n
▅▅▅▅▅ 妻财甲寅木 ▅▅▅▅▅ 妻财甲寅木 \n
▅▅▅▅▅ 子孙甲子水 ▅▅▅▅▅ 子孙甲子水 '),COLOR99FF00,ALIGN2;
DRAWTEXT(BB AND 一元卦=116,28,'
乾宫：乾为天（六冲） 坤宫：泽天夬 \n
▅▅▅▅▅ 父母壬戌土 世○→ ▅▅ ▅▅ 父母丁未土 \n
▅▅▅▅▅ 兄弟壬申金 ▅▅▅▅▅ 兄弟丁酉金 世\n
▅▅▅▅▅ 官鬼壬午火 ▅▅▅▅▅ 子孙丁亥水 \n
▅▅▅▅▅ 父母甲辰土 应 ▅▅▅▅▅ 父母甲辰土 \n
▅▅▅▅▅ 妻财甲寅木 ▅▅▅▅▅ 妻财甲寅木 应\n
▅▅▅▅▅ 子孙甲子水 ▅▅▅▅▅ 子孙甲子水 '),COLOR99FF00,ALIGN2;
DRAWTEXT(BB AND 一元卦=151,28,'
乾宫：天风姤 乾宫：乾为天（六冲） \n
▅▅▅▅▅ 父母壬戌土 ▅▅▅▅▅ 父母壬戌土 世\n
▅▅▅▅▅ 兄弟壬申金 ▅▅▅▅▅ 兄弟壬申金 \n
▅▅▅▅▅ 官鬼壬午火 应身 ▅▅▅▅▅ 官鬼壬午火 \n
▅▅▅▅▅ 兄弟辛酉金 ▅▅▅▅▅ 父母甲辰土 应\n
妻财甲寅木 ▅▅▅▅▅ 子孙辛亥水 ▅▅▅▅▅ 妻财甲寅木 \n
▅▅ ▅▅ 父母辛丑土 世×→ ▅▅▅▅▅ 子孙甲子水 '),COLOR99FF00,ALIGN2;
DRAWTEXT(BB AND 一元卦=152,28,'
乾宫：天风姤 乾宫：天山遁 \n
▅▅▅▅▅ 父母壬戌土 ▅▅▅▅▅ 父母壬戌土 \n
▅▅▅▅▅ 兄弟壬申金 ▅▅▅▅▅ 兄弟壬申金 应\n
▅▅▅▅▅ 官鬼壬午火 应身 ▅▅▅▅▅ 官鬼壬午火 \n
▅▅▅▅▅ 兄弟辛酉金 ▅▅▅▅▅ 兄弟丙申金 \n
妻财甲寅木 ▅▅▅▅▅ 子孙辛亥水 ○→ ▅▅ ▅▅ 官鬼丙午火 世\n
▅▅ ▅▅ 父母辛丑土 世 ▅▅ ▅▅ 父母丙辰土 '),COLOR99FF00,ALIGN2;
DRAWTEXT(BB AND 一元卦=153,28,'
乾宫：天风姤 离宫：天水讼（游魂） \n
▅▅▅▅▅ 父母壬戌土 ▅▅▅▅▅ 父母壬戌土 &n |
