○庚午元历上
演纪上元庚午,距太祖庚辰岁,积年二千二十七万五千二百七十算外,上考往古,每年减一算,下验将来,每年加一算。
步气朔术
日法,五千二百三十。
岁实,一百九十一万二百二十四。
通余,二万七千四百二十四。
朔实,一十五万四千四百四十五。
通闰,五万六千八百八十四。
岁策,三百六十五,余一千二百七十四。
朔策,二十九,余二千七百七十五。
气策,一十五,余一千一百四十二,秒六十。
望策,一十四,余四千二,秒四十五。
象策,七,余二千一,秒二十二半。
没限,四千八十七,秒三十。
朔虚分,二千四百五十五。
旬周,三十一万三千八百。
纪法,六十。
秒母,九十。
求天正冬至
置上元庚午以来积年,以岁实乘之,为通积分;满旬周,去之,不尽,以日法约之,为日,不盈,为余;命壬戌算外,即得所求天正冬至大小余也。先以里差加减通积分,然后求之。求里差术,具《月离》篇中。
求次气
置天正冬至大小余,以气策及余累加之,秒盈秒母从分,分满日法从日,即得次气日及余分秒。
求天正经朔
置通积分,满朔实去之,不尽,为闰余;以减通积分,为朔积分;满旬周,去之,不尽,如日法而一,为日,不尽,为余,即得所求天正经朔大小余也。
求弦望及次朔
置天正经朔大小余,以象策累加之,即各得弦望及次朔经日及余秒也。
求没日
置有没之气恆气小余,如没限以上,为有没之气;以秒母乘之,内其秒,用减四十七万七千五百五十六;余,满六千八百五十六而一;所得并入恆气大余内,命壬戌算外,即得为没日也。
求灭日
置有灭之朔小余,经朔小余不满朔虚分者。
六因之,如四百九十一而一;所得并经朔大余,命为灭日。
步卦候发敛术
候策,五,余三百八十,秒八十。
卦策,六,余四百五十七,秒六。
贞策,三,余二百二十八,秒四十八。
秒母,九十。
辰法,二千六百一十五。
半辰法,一千三百七半。
刻法,三百一十三,秒八十。
辰刻,八,分一百四,秒六十。
半辰刻,四,分五十二,秒三十。
秒母,一百。
求七十二候
置节气大小余,命之为初候;以候策累加之,即得次候及末候也。
求六十四卦
置中气大小余,命之为公卦;以卦策累加之,得辟卦;又加,得候内卦;以贞策加之,得节气之初,为候外卦;又以贞策加之,得大夫卦;又以卦策加之,为卿卦也。
求土王用事
以贞策减四季中气大小余,即得土王用事日也。
求发敛
置小余,以六因之,如辰法而一,为辰数;不尽,以刻法除为刻,命子正算外,即得加时所在辰刻分也。如加半辰法,即命子初。
求二十四气卦候
以下表格略
步日躔术
周天分,一百九十一万二百九十二,秒九十八。
岁差,六十八,秒九十八。
秒母,一百。
周天度,三百六十五,分二十五,秒六十七。
象限,九十一,分三十一,秒九。
分秒母,一百。
二十四气日积度盈缩
(此处表格省略)
二十四气中积及朓朒
(此处表格省略)
求每日盈缩朓朒
各置其气损益率,求盈缩,用盈缩之损益;求朓朒,用朓朒之损益。
六因,如象限而一,为其气中率;与后气中率相减,为合差;半合差,加减其气中率,为元末泛率,至后,加初减末;分后,减初加末。
又置合差,六因,如象限而一,为日差;半之,加减初末泛率,为初末定率;至后,减初加末;分后,加初减末。
以日差累加减气初定率,为每日损益分;至后,减;分后,加。
各以每日损益分加减气下盈缩朓朒,为每日盈缩朓朒。二分前一气无后率相减为合差者,皆用前气合差。
求经朔弦望入气
置天正闰余,以日法除为日,不满,为余。如气策以下,以减气策,为入大雪气;以上,去之,余亦以减气策,为入小雪气;即得天正经朔入气日及余也。以象策累加之,满气策去之,即为弦望入次气日及余;因加得后朔入气日及余也。便为中朔望入气。
求每日损益盈缩朓朒
以日差益加损减其气初损益率,为每日损益率;驯积损益其气盈缩朓朒积,为每日盈缩朓朒积。
求经朔弦望入气朓朒定数
以各所求入气小余,以乘其日损益率,如日法而一;所得,损益其下朓朒积,为定数。便为中朔弦望朓朒定数。
赤道宿度
斗二十五〓〓牛七少
〓〓女十一少
〓〓虚九少六十七秒
〓〓危十五度半〓〓室十七〓〓壁八太
右北方七宿,九十四度六十七秒。〓
奎十六半〓〓娄十二〓〓胃十五〓〓昴十一少
〓〓毕十七少
〓觜半〓参十半〓
右西方七宿,八十三度。
井三十三少
〓鬼二半〓柳十三太
〓星六太
〓张十七少
〓翼十八〓轸十七
右南方七宿,一百九度少。
角十二〓亢九少
〓氐十六〓房五太
〓心六少
〓尾十九少
〓箕十半
右东方七宿,七十九度。
求冬至赤道日度
置通积分,以周天分去之;余,日法而一,为度,不满,退除为分秒;以百为母,命起赤道虚宿六度外,去之,不满宿,即得所求年天正冬至加时日躔赤道宿度及分秒。其在寻斯干之东西者,先以里差加减通积分。
求春分夏至秋分赤道日度
置天正冬至加时赤道日度,累加象限,满赤道宿次,去之,即各得春分、夏至、秋分加时日在宿度及分秒。
求四正赤道宿积度
置四正赤道宿全度,以四正赤道日度及分秒减之,余为距后度;以赤道宿度累加之,各得四正后赤道宿积度及分秒。
求赤道宿积度入初末限
视四正后赤道宿积度及分,在四十五度六十五分五十四秒半以下,为入初限;以上者,用减象限,余为入末限。
求二十八宿黄道度
置四正后赤道宿入初末限度及分,减一百一度;余,以初末限度及分乘之,进位,满百为分,分满百为度;至后以减、分后以加赤道宿积度,为其宿黄道积度;以前宿黄道积度减之,其四正之宿,先加象限,然后以前宿减之。
为其宿黄道度及分。其分就近约为太半少。
黄道宿度
斗二十三〓牛七〓女十一〓虚九少六十七秒
〓危十六〓室十八少
〓壁九半
右北方七宿,九十四度六十七秒。
奎十七太
〓娄十二太
〓胃十五半〓昴十二〓毕十六半〓觜半〓参九太
右西方七宿,八十三度太。
井三十半〓鬼二半〓柳十三少
〓星六太
〓张十七太
〓翼二十〓轸十八半
右南方七宿,一百九度少。
角十二太
〓亢九太
〓氐十六少
〓房五太
〓心六〓尾十八少〓箕九半
右东方七宿,七十八度少。
前黄道宿度,依今历岁差所在算定。如上考往古,下验将来,当据岁差,每移一度,依术推变当时宿度,然后可步七曜,知其所在。
求天正冬至加时黄道日度
以冬至加时赤道日度分秒,减一百一度,余以冬至加时赤道日度及分秒乘之,进位,满百为分,分满百为度,命曰黄赤道差;用减冬至加时赤道日度及分秒,即得所求年天正冬至加时黄道日度及分秒。
求二十四气加时黄道日度
置所求年冬至日躔黄赤道差,以次年黄赤道差减之,余以所求气数乘之,二十四而一;所得,以加其气中积度及约分,以其气初日盈缩数盈加缩减之,用加冬至加时黄道日度,依宿次去之,即各得其气加时黄道日躔宿度及分秒。如其年冬至加时赤道宿度空分秒在岁差以下者,即加前宿全度,然求黄赤道差,余依术算。
求二十四气及每日晨前夜半黄道日度
副置其恆气小余,以其气初日损益率乘之,盈缩之损益。
万约之,应益者盈加缩减,应损者盈减缩加,其副日法除之,为度,不满,退除为分秒,以减其气加时黄道日度,即得其气初日晨前夜半黄道日度。每日加一度,以万乘之,又以每日损益数,盈缩之损益。
应益者盈加缩减,应损者盈减缩加,为每日晨前夜半黄道日度及分秒。
求每日午中黄道日度
置一万分,以所求入气日损益数加减,益者,盈加缩减;损者,盈减缩加。半之,满百为分,不满为秒,以加其日晨前夜半黄道日度,即其日午中日躔黄道宿度及分秒。
求每日午中黄道积度
以二至加时黄道日度,距至所求日午中黄道日度,为入二至后黄道日积度及分秒。
求每日午中黄道入初末限
视二至后黄道积度,在四十三度一十二分八十七秒之以下为初限;以上,用减象限,余为入末限。其积度,满象限去之,为二分后黄道积度;在四十八度一十八分二十一秒之以下,为初限;以上,用减象限,余为入末限。“)