算額（その28）

算額（その28）

(5) 京都府宮津市天橋立文殊 知恩寺文殊堂 文政元年(1818)
近畿数学史学会：近畿の算額「数学の絵馬を訪ねて」，平成4年5月16日 初版第一刷，大阪教育図書株式会社，大阪市.

京都府宮津市天橋立 知恩寺文殊堂 文政元年
http://www.wasan.jp/kyoto/tionji1.html

キーワード：円7個

図のように，4 個の大円と，3 個の小円がある。それぞれの径を求めよ。

見ただけでわかる。大円の径は小円の径の 2 倍である。

using Plots

function circle(ox, oy, r, color=:red; beginangle=0, endangle=360)
   θ = beginangle:0.1:endangle
   x = r.*cosd.(θ)
   y = r.*sind.(θ)
   plot!(ox .+ x, oy .+ y, color=color, linewidth=0.5)
end;

function point(x, y, string="", color=:green, position=:left, vertical=:top; mark=true)
   mark && scatter!([x], [y], color=color, markerstrokewidth=0)
   annotate!(x, y, text(string, 10, position, color, vertical))
end;

function draw(more=false)
   pyplot(size=(500, 500), grid=false, aspectratio=1, label="", fontfamily="IPAMincho")
   r1, r2 = 2, 1
   println("r1 = $r1;  r2 = $r2")
   plot()
   circle(0, 0, r1)
   circle(0, r1, r1)
   circle( r1*cos(pi/6), -r1*sin(pi/6), r1)
   circle(-r1*cos(pi/6), -r1*sin(pi/6), r1)
   circle(0, r1 + r2, r2, :blue)
   circle((r1 + r2)*cos(pi/6), -(r1 + r2)*sin(pi/6), r2, :blue)
   circle(-(r1 + r2)*cos(pi/6), -(r1 + r2)*sin(pi/6), r2, :blue)
end;