64卦指标.ALG

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
　　　　　　▅▅▅▅▅　父母壬戌土　　　　　▅▅▅▅▅　父母壬戌土 &nbs