内篇卷二

○不取围径皆同第五之上

旧律围径皆同,而新律各不同。《礼记》《注疏》曰“凡律空围九分”,《月令章句》曰“围数无增减”,及《隋志》安丰王等说,皆不足取也,故著此论。论曰:琴瑟不独徽柱之有远近,而弦亦有巨细焉;笙竽不独管孔之有高低,而簧亦有厚薄焉。弦之巨细,若一但以徽柱远近别之,不可也;簧之厚薄,若一但以管孔高低别之,不可也。譬诸律管,虽有修短之不齐,亦有广狭之不等。先儒以为,长短虽异,围径皆同,此未达之论也。今若不信,以竹或笔管制黄锺之律一样二枚,截其一枚,分作两段;全律半律,各令一人吹之,声必不相合矣,此昭然可验也。又制大吕之律一样二枚,周、径与黄锺同,截其一枚,分作两段;全律半律,各令一人吹之,则亦不相合。而大吕半律,乃与黄锺全律相合,略差不远。是知所谓半律者,皆下全律一律矣。大抵管长则气隘,隘则虽长而反清;管短则气宽,宽则虽短而反浊。此自然之理,先儒未达也。要之,长短广狭皆有一定之理,一定之数在焉。置黄锺倍律九而一,以为外周,用弦求句股术得其内周。又置倍律四十而一,以为内径,用句股求弦术得其外径。盖律管两端形如环田,有内外周、径焉。外周内容之方,即内径也;内周外射之斜,即外径也。方圆相容,天地之象,理数之妙者也。黄锺通长八十一分者,外周九分,是为八十一中之九,即约分法九分中之一也。若约黄锺八十一分作为九寸,则其外周当云一寸。旧以九十分为黄锺,而云空围九分者,误也。况又穿凿,指为面幂九方分,则误益甚矣。方圆相容,有图如左。

新法密率算术:周、径、幂、积相求。

周求径者,置周全数,九因,四十除之,所得自乘,倍之为实,开平方法除之,得径。径求周者,置径全数,自乘,半之为实,开平方法除之,所得四十乘之,九归,得周。周求积者,置周全数,九因,四十除之,所得自乘,倍之为实;径求积者,置径全数,自乘为实:二项各又自乘,以一百乘之,一百六十二除之,所得为实,阴平方法除之,得积。积求周、径者,置积全数,自乘,所得以一百六十二乘之,一百除之为实,开平方法除之,所得副置之:其一折半为实,开平方法除之,所得四十乘之,九归,得周;其一不须折半,但以开平方法除之,得径。所谓积者,面幂平圆积也。以其通长乘之,各得其实积也。

旧法平圆周、径、积互相求,但系围三径一术者,皆疏舛不可用;惟周、径相乘,四归得积,及半周半径相乘得积,二者可用。先求三十六律通常真数

黄锺倍律通长二尺,容黍二合,称重二两,律度量衡无非倍者。此自然全数也,故算法皆从倍律起。若夫正律于度虽足,于量于衡则皆不足,只容半合,只重半两,比诸倍律似非自然全数。故算法不从正律起,亦不从半律起。倍律、正律、半律,各有十二,共为三十六律。

置黄锺倍律通长二尺为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得一尺八寸八分七厘七毫四丝八忽六微二纤,为大吕。

置大吕倍律通长一尺八寸八分七厘七毫四丝八忽六微二纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得一尺七寸八分一厘七毫九丝七忽四微三纤,为太蔟。

置太蔟倍律通长一尺七寸八分一厘七毫九丝七忽四微三纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得一尺六寸八分一厘七毫九丝二忽八微三纤,为夹锺。

置夹锺倍律通长一尺六寸八分一厘七毫九丝二忽八微三纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得一尺五寸八分七厘四毫○一忽○五纤,为姑洗。置姑洗倍律通长一尺五寸八分七厘四毫○一忽○五纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得一尺四寸九分八厘三毫○七忽○七纤,为仲吕。

置仲吕倍律通长一尺四寸九分八厘三毫○七忽○七纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得一尺四寸一分四厘二毫一丝三忽五微六纤,为蕤宾。置蕤宾倍律通长一尺四寸一分四厘二毫一丝三忽五微六纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得一尺三寸三分四厘八毫三丝九忽八微五纤,为林锺。

置林锺倍律通长一尺三寸三分四厘八毫三丝九忽八微五纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得一尺二寸五分九厘九毫二丝一忽○四纤,为夷则。

置夷则倍律通长一尺二寸五分九厘九毫二丝一忽○四纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得一尺一寸八分九厘二毫○七忽一微一纤,为南吕。置南吕倍律通长一尺一寸八分九厘二毫○七忽一微一纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得一尺一寸二分二厘四毫六丝二忽○四纤,为无射。置无射倍律通长一尺一寸二分二厘四毫六丝二忽○四纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得一尺○五分九厘四毫六丝三忽○九纤,为应锺。置应锺倍律通长一尺○五分九厘四毫六丝三忽○九纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得一尺,为黄锺。

置黄锺正律通长一尺为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得九寸四分三厘八毫七丝四忽三微一纤,为大吕。

置大吕正律通长九寸四分三厘八毫七丝四忽三微一纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得八寸九分○八毫九丝八忽七微一纤,为太蔟。

置太蔟正律通长八寸九分○八毫九丝八忽七微一纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得八寸四分○八毫九丝六忽四微一纤,为夹锺。

置夹锺正律通长八寸四分○八毫九丝六忽四微一纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得七寸九分三厘七毫○○五微二纤,为姑洗。

置姑洗正律通长七寸九分三厘七毫○○五微二纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得七寸四分九厘一毫五丝三忽五微三纤,为仲吕。

置仲吕正律通长七寸四分九厘一毫五丝三忽五微三纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得七寸○七厘一毫○六忽七微八纤,为蕤宾。

置蕤宾正律通长七寸○七厘一毫○六忽七微八纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得六寸六分七厘四毫一丝九忽九微二纤,为林锺。

置林锺正律通长六寸六分七厘四毫一丝九忽九微二纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得六寸二分九厘九毫六丝○五微二纤,为夷则。

置夷则正律通长六寸二分九厘九毫六丝○五微二纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得五寸九分四厘六毫○三忽五微五纤,为南吕。

置南吕正律通长五寸九分四厘六毫○三忽五微五纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得五寸六分一厘二毫三丝一忽○二纤,为无射。

置无射正律通长五寸六分一厘二毫三丝一忽○二纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得五寸二分九厘七毫三丝一忽五微四纤,为应锺。

置应锺正律通长五寸二分九厘七毫三丝一忽五微四纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得五寸,为黄锺。

置黄锺半律通长五寸为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得四寸七分一厘九毫三丝七忽一微五纤,为大吕。

置大吕半律通长四寸七分一厘九毫三丝七忽一微五纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得四寸四分五厘四毫四丝九忽三微五纤,为太蔟。

置太蔟半律通长四寸四分五厘四毫四丝九忽三微五纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得四寸二分○四毫四丝八忽二微○,为夹锺。

置夹锺半律通长四寸二分○四毫四丝八忽二微○为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得三寸九分六厘八毫五丝○二微六纤,为姑洗。

置姑洗半律通长三寸九分六厘八毫五丝○二微六纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得三寸七分四厘五毫七丝六忽七微六纤,为仲吕。

置仲吕半律通长三寸七分四厘五毫七丝六忽七微六纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得三寸五分三厘五毫五丝三忽三微九纤,为蕤宾。

置蕤宾半律通长三寸五分三厘五毫五丝三忽三微九纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得三寸三分三厘七毫○九忽九微六纤,为林锺。

置林锺半律通长三寸三分三厘七毫○九忽九微六纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得三寸一分四厘九毫八丝○二微六纤,为夷则。

置夷则半律通长三寸一分四厘九毫八丝○二微六纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得二寸九分七厘三毫○一忽七微七纤,为南吕。

置南吕半律通长二寸九分七厘三毫○一忽七微七纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得二寸八分○六毫一线五忽五微一纤,为无射。

置无射半律通长二寸八分○六毫一丝五忽五微一纤为实,以十亿乘之,以十亿○五千九百四十六万三千○九十四除之,得二寸六分四厘八毫六丝五忽七微七纤,为应锺。

次求三十六律外周真数

先置黄锺倍律通长二尺为实,九归得二寸二分二厘二毫二丝二忽二微二纤为其外周。就置所得为实,依后项乘除之。

置黄锺倍律外周二寸二分二厘二毫二丝二忽二微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二寸一分五厘八毫九丝五忽九微八纤,为大吕。

置大吕倍律外周二寸一分五厘八毫九丝五忽九微八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二寸○九厘七毫四丝九忽八微四纤,为太蔟。

置太蔟倍律外周二寸○九厘七毫四丝九忽八微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二寸○三厘七毫七丝八忽六微七纤,为夹锺。

置夹锺倍律外周二寸○三厘七毫七丝八忽六微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸九分七厘九毫七丝七忽四微九纤,为姑洗。

置姑洗倍律外周一寸九分七厘九毫七丝七忽四微九纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸九分二厘三毫四丝一忽四微五纤,为仲吕。

置仲吕倍律外周一寸九分二厘三毫四丝一忽四微五纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸八分六厘八毫六丝五忽八微七纤,为蕤宾。

置蕤宾倍律外周一寸八分六厘八毫六丝五忽八微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸八分一厘五毫四丝六忽一微六纤,为林锺。

置林锺倍律外周一寸八分一厘五毫四丝六忽一微六纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸七分六厘三毫七丝七忽八微九纤,为夷则。

置夷则倍律外周一寸七分六厘三毫七丝七忽八微九纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸七分一厘三毫五丝六忽七微五纤,为南吕。

置南吕倍律外周一寸七分一厘三毫五丝六忽七微五纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸六分六厘四毫七丝八忽五微六纤,为无射。

置无射倍律外周一寸六分六厘四毫七丝八忽五微六纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸六分一厘七毫三丝九忽二微四纤,为应锺。

置应锺倍律外周一寸六分一厘七毫三丝九忽二微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸五分七厘一毫三丝四忽八微四纤,为黄锺。

置黄锺正律外周一寸五分七厘一毫三丝四忽八微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸五分二厘六毫六丝一忽五微一纤,为大吕。

置大吕正律外周一寸五分二厘六毫六丝一忽五微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸四分八厘三毫一丝五忽五微三纤,为太蔟。

置太蔟正律外周一寸四分八厘三毫一丝五忽五微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸四分四厘○九丝三忽二微八纤,为夹锺。

置夹锺正律外周一寸四分四厘○九丝三忽二微八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸三分九厘九毫九丝一忽二微二纤,为姑洗。

置姑洗正律外周一寸三分九厘九毫九丝一忽二微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸三分六厘○○五忽九微四纤,为仲吕。

置仲吕正律外周一寸三分六厘○○五忽九微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸三分二厘一毫三丝四忽一微二纤,为蕤宾。

置蕤宾正律外周一寸三分二厘一毫三丝四忽一微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸二分八厘三毫七丝二忽五微二纤,为林锺。

置林锺正律外周一寸二分八厘三毫七丝二忽五微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸二分四厘七毫一丝八忽○○,为夷则。

置夷则正律外周一寸二分四厘七毫一丝八忽○○为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸二分一厘一毫六丝七忽五微二纤,为南吕。

置南吕正律外周一寸二分一厘一毫六丝七忽五微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸一分七厘七毫一丝八忽一微二纤,为无射。

置无射正律外周一寸一分七厘七毫一丝八忽一微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸一分四厘三毫六丝六忽九微一纤,为应锺。

置应锺正律外周一寸一分四厘三毫六丝六忽九微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸一分一厘一毫一丝一忽一微一纤,为黄锺。

置黄锺半律外周一寸一分一厘一毫一丝一忽一微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸○七厘九毫四丝七忽九微九纤,为大吕。

置大吕半律外周一寸○七厘九毫四丝七忽九微九纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸○四厘八毫七丝四忽九微二纤,为太蔟。

置太蔟半律外周一寸○四厘八毫七丝四忽九微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸○一厘八毫八丝九忽三微三纤,为夹锺。

置夹锺半律外周一寸○一厘八毫八丝九忽三微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得九分八厘九毫八丝八忽七微四纤,为姑洗。

置姑洗半律外周九分八厘九毫八丝八忽七微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得九分六厘一毫七丝○七微二纤,为仲吕。

置仲吕半律外周九分六厘一毫七丝○七微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得九分三厘四毫三丝二忽九微三纤,为蕤宾。

置蕤宾半律外周九分三厘四毫三丝二忽九微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得九分○七毫七丝三忽○八纤,为林锺。

置林锺半律外周九分○七毫七丝三忽○八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得八分八厘一毫八丝八忽九微四纤,为夷则。

置夷则半律外周八分八厘一毫八丝八忽九微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得八分五厘六毫七丝八忽三微七纤,为南吕。

置南吕半律外周八分五厘六毫七丝八忽三微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得八分三厘二毫三丝九忽二微八纤,为无射。

置无射半律外周八分三厘二毫三丝九忽二微八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得八分○八毫六丝九忽六微二纤,为应锺。

次求三十六律外径真数

周求径术:置黄锺倍律外周二寸二分二厘二毫二丝二忽二微二纤,九因得二尺,以四十除之,得五分,自乘得二十五分,加倍得五十分为实,开平方法除之,得七分○七毫一丝○六微七纤,是为外径。就置所得为实,依后项乘除之。

径求周术:置黄锺倍律外径七分○七毫一丝○六微七纤,自乘得五十分,折半得二十五分为实,开平方法除之,得五分,以四十乘之,得二尺,九归,得二寸二分二厘二毫二丝二忽二微二纤,是为外周。周、径互相求,即还原法也。

置黄锺倍律外径七分○七毫一丝○六微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得六分八厘六毫九丝七忽六微八纤,为大吕。

置大吕倍律外径六分八厘六毫九丝七忽六微八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得六分六厘七毫四丝一忽九微九纤,为太蔟。

置太蔟倍律外径六分六厘七毫四丝一忽九微九纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得六分四厘八毫四丝一忽九微七纤,为夹锺。

置夹锺倍律外径六分四厘八毫四丝一忽九微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得六分二厘九毫九丝六忽○五纤,为姑洗。

置姑洗倍律外径六分二厘九毫九丝六忽○五纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得六分一厘二毫○二忽六微七纤,为仲吕。

置仲吕倍律外径六分一厘二毫○二忽六微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得五分九厘四毫六丝○三微五纤,为蕤宾。

置蕤宾倍律外径五分九厘四毫六丝○三微五纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得五分七厘七毫六丝七忽六微三纤,为林锺。

置林锺倍律外径五分七厘七毫六丝七忽六微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得五分六厘一毫二丝三忽一微○,为夷则。

置夷则倍律外径五分六厘一毫二丝三忽一微○为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得五分四厘五毫二丝五忽三微八纤,为南吕。

置南吕倍律外径五分四厘五毫二丝五忽三微八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得五分二厘九毫七丝三忽一微五纤,为无射。

置无射倍律外径五分二厘九毫七丝三忽一微五纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得五分一厘四毫六丝五忽一微一纤,为应锺。

置应锺倍律外径五分一厘四毫六丝五忽一微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得五分,为黄锺。

置黄锺正律外径五分为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分八厘五毫七丝六忽五微九纤,为大吕。

置大吕正律外径四分八厘五毫七丝六忽五微九纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分七厘一毫九丝三忽七微一纤,为太蔟。

置太蔟正律外径四分七厘一毫九丝三忽七微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分五厘八毫五丝○二微○,为夹锺。

置夹锺正律外径四分五厘八毫五丝○二微○为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分四厘五毫四丝四忽九微三纤,为姑洗。

置姑洗正律外径四分四厘五毫四丝四忽九微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分三厘二毫七丝六忽八微二纤,为仲吕。

置仲吕正律外径四分三厘二毫七丝六忽八微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分二厘○四丝四忽八微二纤,为蕤宾。

置蕤宾正律外径四分二厘○四丝四忽八微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分○八毫四丝七忽八微八纤,为林锺。

置林锺正律外径四分○八毫四丝七忽八微八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分九厘六毫八丝五忽○二纤,为夷则。

置夷则正律外径三分九厘六毫八丝五忽○二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分八厘五毫五丝五忽二微七纤,为南吕。

置南吕正律外径三分八厘五毫五丝五忽二微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分七厘四毫五丝七忽六微七纤,为无射。

置无射正律外径三分七厘四毫五丝七忽六微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分六厘三毫九丝一忽三微二纤,为应锺。

置应锺正律外径三分六厘三毫九丝一忽三微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分五厘三毫五丝五忽三微三纤,为黄锺。

置黄锺半律外径三分五厘三毫五丝五忽三微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分四厘三毫四丝八忽八微四纤,为大吕。

置大吕半律外径三分四厘三毫四丝八忽八微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分三厘三毫七丝○九微九纤,为太蔟。

置太蔟半律外径三分三厘三毫七丝○九微九纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分二厘四毫二丝○九微八纤,为夹锺。

置夹锺半律外径三分二厘四毫二丝○九微八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分一厘四毫九丝八忽○二纤,为姑洗。

置姑洗半律外径三分一厘四毫九线八忽○二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分○六毫○一忽三微三纤,为仲吕。

置仲吕半律外径三分○六毫○一忽三微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分九厘七毫三丝○一微七纤,为蕤宾。

置蕤宾半律外径二分九厘七毫三丝○一微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分八厘八毫八丝三忽八微一纤,为林锺。

置林锺半律外径二分八厘八毫八丝三忽八微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分八厘○六丝一忽五微五纤,为夷则。

置夷则半律外径二分八厘○六丝一忽五微五纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分七厘二毫六丝二忽六微九纤,为南吕。

置南吕半律外径二分七厘二毫六丝二忽六微九纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分六厘四毫八丝六忽五微七纤,为无射。

置无射半律外径二分六厘四毫八丝六忽五微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分五厘七毫三丝二忽五微五纤,为应锺。

次求三十六律内径真数

先置黄锺倍律通长二尺为实,四十除之,得五分,是为内径。就置所得为实,依后项乘除之。

置黄锺倍律内径五分为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分八厘五毫七丝六忽五微九纤,为大吕。

置大吕倍律内径四分八厘五毫七丝六忽五微九纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分七厘一毫九丝三忽七微一纤,为太蔟。

置太蔟倍律内径四分七厘一毫九丝三忽七微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分五厘八毫五丝○二微○,为夹锺。

置夹锺倍律内径四分五厘八毫五丝○二微○为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分四厘五毫四丝四忽九微三纤,为姑洗。

置姑洗倍律内径四分四厘五毫四丝四忽九微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分三厘二毫七丝六忽八微二纤,为仲吕。

置仲吕倍律内径四分三厘二毫七丝六忽八微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分二厘○四丝四忽八微二纤,为蕤宾。

置蕤宾倍律内径四分二厘○四丝四忽八微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得四分○八毫四丝七忽八微八纤,为林锺。

置林锺倍律内径四分○八毫四丝七忽八微八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分九厘六毫八丝五忽○二纤,为夷则。

置夷则倍律内径三分九厘六毫八丝五忽○二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分八厘五毫五丝五忽二微七纤,为南吕。

置南吕倍律内径三分八厘五毫五丝五忽二微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分七厘四毫五丝七忽六微七纤,为无射。

置无射倍律内径三分七厘四毫五丝七忽六微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分六厘三毫九丝一忽三微二纤,为应锺。

置应锺倍律内径三分六厘三毫九丝一忽三微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分五厘三毫五丝五忽三微三纤,为黄锺。

置黄锺正律内径三分五厘三毫五丝五忽三微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分四厘三毫四丝八忽八微四纤,为大吕。

置大吕正律内径三分四厘三毫四丝八忽八微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分三厘三毫七丝○九微九纤,为太蔟。

置太蔟正律内径三分三厘三毫七丝○九微九纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分二厘四毫二丝○九微八纤,为夹锺。

置夹锺正律内径三分二厘四毫二丝○九微八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分一厘四毫九丝八忽○二纤,为姑洗。

置姑洗正律内径三分一厘四毫九丝八忽○二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得三分○六毫○一忽三微三纤,为仲吕。

置仲吕正律内径三分○六毫○一忽三微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分九厘七毫三丝○一微七纤,为蕤宾。

置蕤宾正律内径二分九厘七毫三丝○一微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分八厘八毫八丝三忽八微一纤,为林锺。

置林锺正律内径二分八厘八毫八丝三忽八微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分八厘○六丝一忽五微五纤,为夷则。

置夷则正律内径二分八厘○六丝一忽五微五纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分七厘二毫六丝二忽六微九纤,为南吕。

置南吕正律内径二分七厘二毫六丝二忽六微九纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分六厘四毫八丝六忽五微七纤,为无射。

置无射正律内径二分六厘四毫八丝六忽五微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分五厘七毫三丝二忽五微五纤,为应锺。

置应锺正律内径二分五厘七毫三丝二忽五微五纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分五厘,为黄锺。

置黄锺半律内径二分五厘为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分四厘二毫八丝八忽二微九纤,为大吕。

置大吕半律内径二分四厘二毫八丝八忽二微九纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分三厘五毫九丝六忽八微五纤,为太蔟。

置太蔟半律内径二分三厘五毫九丝六忽八微五纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分二厘九毫二丝五忽一微○,为夹锺。

置夹锺半律内径二分二厘九毫二丝五忽一微○为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分二厘二毫七丝二忽四微六纤,为姑洗。

置姑洗半律内径二分二厘二毫七丝二忽四微六纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分一厘六毫三丝八忽四微一纤,为仲吕。

置仲吕半律内径二分一厘六毫三丝八忽四微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分一厘○二丝二忽四微一纤,为蕤宾。

置蕤宾半律内径二分一厘○二丝二忽四微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得二分○四毫二丝三忽九微四纤,为林锺。

置林锺半律内径二分○四毫二丝三忽九微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一分九厘八毫四丝二忽五微一纤,为夷则。

置夷则半律内径一分九厘八毫四丝二忽五微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一分九厘二毫七丝七忽六微三纤,为南吕。

置南吕半律内径一分九厘二毫七丝七忽六微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一分八厘七毫二丝八忽八微三纤,为无射。

置无射半律内径一分八厘七毫二丝八忽八微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一分八厘一毫九丝五忽六微六纤,为应锺。

次求三十六律内周真数

径求周术:置黄锺倍律内径五分,自乘得二十五分,折半得一十二分半为实,开平方法除之,得三分五厘三毫五丝五忽三微三纤九尘,以四十乘之,得一尺四寸一分四厘二毫一丝三忽五微六纤,九归得一寸五分七厘一毫三丝四忽八微四纤,是为内周。就置所得为实,依后项乘除之。

周求径术:置黄锺倍律内周一寸五分七厘一毫三丝四忽八微四纤,九因得一尺四寸一分四厘二毫一丝三忽五微六纤,以四十除之,得三分五厘三毫五丝五忽三微三纤九尘,自乘得一十二分半,加倍得二十五分为实,开平方法除之,得五分,是为内径。周、径互相求,即还原法也。

置黄锺倍律内周一寸五分七厘一毫三丝四忽八微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸五分二厘六毫六丝一忽五微一纤,为大吕。

置大吕倍律内周一寸五分二厘六毫六丝一忽五微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸四分八厘三毫一丝五忽五微三纤,为太蔟。

置太蔟倍律内周一寸四分八厘三毫一丝五忽五微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸四分四厘○九丝三忽二微八纤,为夹锺。

置夹锺倍律内周一寸四分四厘○九丝三忽二微八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸三分九厘九毫九丝一忽二微二纤,为姑洗。

置姑洗倍律内周一寸三分九厘九毫九丝一忽二微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸三分六厘○○五忽九微四纤,为仲吕。

置仲吕倍律内周一寸三分六厘○○五忽九微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸三分二厘一毫三丝四忽一微二纤,为蕤宾。

置蕤宾倍律内周一寸三分二厘一毫三丝四忽一微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸二分八厘三毫七丝二忽五微二纤,为林锺。

置林锺倍律内周一寸二分八厘三毫七丝二忽五微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸二分四厘七毫一丝八忽○○,为夷则。

置夷则倍律内周一寸二分四厘七毫一丝八忽○○为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸二分一厘一毫六丝七忽五微二纤,为南吕。

置南吕倍律内周一寸二分一厘一毫六丝七忽五微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸一分七厘七毫一丝八忽一微二纤,为无射。

置无射倍律内周一寸一分七厘七毫一丝八忽一微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸一分四厘三毫六丝六忽九微一纤,为应锺。

置应锺倍律内周一寸一分四厘三毫六丝六忽九微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸一分一厘一毫一丝一忽一微一纤,为黄锺。

置黄锺正律内周一寸一分一厘一毫一丝一忽一微一纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸○七厘九毫四丝七忽九微九纤,为大吕。

置大吕正律内周一寸○七厘九毫四丝七忽九微九纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸○四厘八毫七丝四忽九微二纤,为太蔟。

置太蔟正律内周一寸○四厘八毫七丝四忽九微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得一寸○一厘八毫八丝九忽三微三纤,为夹锺。

置夹锺正律内周一寸○一厘八毫八丝九忽三微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得九分八厘九毫八丝八忽七微四纤,为姑洗。

置姑洗正律内周九分八厘九毫八丝八忽七微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得九分六厘一毫七丝○七微二纤,为仲吕。

置仲吕正律内周九分六厘一毫七丝○七微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得九分三厘四毫三丝二忽九微三纤,为蕤宾。

置蕤宾正律内周九分二厘四毫三丝二忽九微三纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得九分○七毫七丝三忽○八纤,为林锺。

置林锺正律内周九分○七毫七丝三忽○八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得八分八厘一毫八丝八忽九微四纤,为夷则。

置夷则正律内周八分八厘一毫八丝八忽九微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得八分五厘六毫七丝八忽三微七纤,为南吕。

置南吕正律内周八分五厘六毫七丝八忽三微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得八分三厘二毫三丝九忽二微八纤,为无射。

置无射正律内周八分三厘二毫三丝九忽二微八纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得八分○八毫六丝九忽六微二纤,为应锺。置应锺正律内周八分○八毫六丝九忽六微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得七分八厘五毫六丝七忽四微二纤,为黄锺。

置黄锺半律内周七分八厘五毫六丝七忽四微二纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得七分六厘三毫三丝○七微五纤,为大吕。

置大吕半律内周七分六厘三毫三丝○七微五纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得七分四厘一毫五丝七忽七微六纤,为太蔟。

置太蔟半律内周七分四厘一毫五丝七忽七微六纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得七分二厘○四丝六忽六微四纤,为夹锺。

置夹锺半律内周七分二厘○四丝六忽六微四纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得六分九厘九毫九丝五忽六微一纤,为姑洗。

置姑洗半律内周六分九厘九毫九丝五忽六微一纤为实,以十亿承之,以十亿○二千九百三十万○二千二百三十六除之,得六分八厘○○二忽九微七纤,为仲吕。

置仲吕半律内周六分八厘○○二忽九微七纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得六分六厘○六丝七忽○六纤,为蕤宾。

置蕤宾半律内周六分六厘○六丝七忽○六纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得六分四厘一毫八丝六忽二微六纤,为林锺。

置林锺半律内周六分四厘一毫八丝六忽二微六纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得六分二厘三毫五丝九忽○○,为夷则。

置夷则半律内周六分二厘三毫五丝九忽○○为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得六分○五毫八丝三忽七微六纤,为南吕。

置南吕半律内周六分○五毫八丝三忽七微六纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得五分八厘八毫五丝九忽○六纤,为无射。

置无射半律内周五分八厘八毫五丝九忽○六纤为实,以十亿乘之,以十亿○二千九百三十万○二千二百三十六除之,得五分七厘一毫八丝三忽四微五纤,为应锺。