<子部,天文算法类,推步之属,古今律历考
钦定四库全书
古今律厯考卷三十九 明 邢云路 撰厯法四
厯法
太阳躔度【详推 授时】
推各岁前冬至日躔赤道宿次分
置各中积命为度以刻为分加周应起虚六度满周天钤去之得各岁前冬至日躔赤道宿次分
赤道度
虚八度九十五分 危十五度四十分 室十七度一十分壁八度六十分 奎十六度六十分 娄十一度八十分胃十五度六十分 昴十一度三十分 毕十七度四十分
觜初度五分 参十一度一十分 井三十三度三十分鬼二度二十分 柳十三度三十分 星六度三十分张十七度二十五分 翼十八度七十五分 轸十七度三十分角十二度一十分 亢九度二十分 氐十六度三十分房五度六十分 心六度五十分 尾十九度一十分箕十度四十分 斗二十五度二十分 牛七度二十分女十一度三十五分
推各岁前冬至日躔黄道宿次分
置各岁前冬至赤道宿次度分以初日下赤道度率而一得各岁前冬至日躔黄道宿次分
黄道度
箕九度五十九分 斗二十三度四十七分 牛六度九十分女十一度十二分 虚九度○○七十五秒 危十五度九十五分室十八度三十二分 壁九度三十四分 奎十七度八十七分娄十二度三十六分 胃十五度八十一分 昴十一度八分毕十六度五十分 觜初度五分 参十度二十八分井三十一度三分 鬼二度十一分 柳十三度星六度三十一分 张十七度七十九分 翼二十度九分轸十八度七十五分 角十二度八十七分 亢九度五十六分氐十六度四十分 房五度八十四分 心六度二十七分尾十七度九十五分
推黄赤道及定象限度分
以推得天正赤道宿次减天正黄道宿次余为黄赤道差与次年黄赤道差相减余一十二秒以四而一得三秒加入周天象限内共得九十一度三一○九二五为定象限度分若黄赤道差相减余一十一秒以四而一得二秒七十五微加入岁周象限内共得九十一度三十一分○九亦为其年定象限度分以后累加不同即将二年之差三秒并入二秒七十五微得数半之为二秒八十七微半加入岁周象限共得九十一度三一○九一二五为定象限度分累加之自与各年原推加时黄道积度合
推四正定气日
以原推得冬夏二至日及刻分秒即冬夏二正定气冬至加盈初缩末限满纪法去之为春正定气夏至加缩初盈末限满纪法去之为秋正定气又法春分日及刻分秒减盈缩度差余为春正定气秋分日及刻分秒加盈缩度差得为秋正定气如求次年四正定气就与本年四正定气内各加岁余即次年四正定气【各以甲子筭外得四正日期】
推相距日
以本段定气大余减次段定气大余加六十日得相距日如次段日不及减者加六十日减之再加六十日为相距日相距多则九十三四日少则八十八九日推四正加时日躔黄道积度
以天正冬至加时黄道全分累加定象限度分各得四正加时黄道积度加一次得春正二次夏正三次秋正再加即次年冬正
推四正加时减分
各以四正定气小余以四正初日行度乘之即得加时减分如天正冬至初日行度一度○五一○八五以乘冬至小余得冬正加时减分春正距夏正如是九十三日者行度○度九九九七○三九十四日者行度一度各以行度乘春正小余得春正加时减分如夏至初日行度○度九五一五一六以乘夏至小余得夏正加时减分秋正距次年冬正如是八十八日者行度一度○○○五○五八十九日者行度一度各以行度乘秋正小余得秋正加时减分次年冬正加时减分如本年冬正求之即得
推夜半积度
以四正加时黄道积度全分于内减去各正加时减分余为各正夜半日度
推四正夜半宿次
置夜半黄道度全分以黄道度去之不满黄道度者即入宿次
推相距度
以冬正夜半积度减春正夜半积度余为冬正距春正度以春正夜半积度减夏正夜半积度余为春正距夏正度以夏正夜半积度减秋正夜半积度余为夏正距秋正度以秋正夜半积度减次年冬正夜半积度余为秋正距次年冬正度如不及减加周天减之
推日差
以相距度与相距日下行定度减之余以相距日而一得日差如相距度内减去行定度者为加差行定度内减去相距度者为减差
四正相距日及行定度分
秋正距冬至 冬至距春正
八十八日 行定度九十○度四○○九三五八十九日 行定度九十一度四○一四四一
春正距夏至 夏至距秋正
九十三日 行定度九十○度五九九○
九十四日 行定度九十一度五九八七
推每日晨前夜半日度
以冬夏二至夜半日度宿次全分自二至初日下行度顺次加之即得每日夜半日度及分秒及加减日差如满黄道本宿度及分秒去之余入次宿度如是加行度一次则加减日差一次满黄道本宿度去之即得夜半日度如是春秋二正各以相距日下行度加之亦加减日差满黄道本宿度去之得每日夜半日度
日躔黄道入十二次宫界度
推日躔黄道入十二次时刻
以入次宿度及分秒以其日晨前夜半日度宿次减之余为实以其日行定度而一得数以发敛法收之即入次时刻行定度者是原减入次得夜半日度与次日夜半日度相减余而得
古今律厯考卷三十九