裏 RjpWiki

Julia ときどき R, Python によるコンピュータプログラム,コンピュータ・サイエンス,統計学

算額(その30)

2022年11月19日 | Julia

算額(その30)

奈良県奈良市 円満寺 天保 15 年
http://www.wasan.jp/nara/enman.html

奈良県奈良市下山町 円満寺 天保15年(1844)
近畿数学史学会:近畿の算額「数学の絵馬を訪ねて」,平成4年5月16日 初版第一刷,大阪教育図書株式会社,大阪市.

図のように,1 個の大円と,6 個の小円がある。それぞれの径を求めよ。

見ただけでわかる。小円の径は大円の径の 1/3 である。

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 draw(more=false)
   pyplot(size=(500, 500), grid=false, aspectratio=1, label="", fontfamily="IPAMincho")
   r1, r2 = 1, 1/3
   println("r1 = $r1;  r2 = $r2")
   plot()
   circle(0, 0, r1)
   for degree = 30:60:330
       circle(-4r1/3*cosd(degree), 4r1/3*sind(degree), r2, :blue)
   end
   plot!([0, 2r1*cosd(210), 2r1*cosd(330), 0], [2r1, 2r1*sind(210), 2r1*sind(330), 2r1], color=:black, linewidth=0.25)
   plot!([0, 2r1*cosd(210), 2r1*cosd(330), 0], [-2r1, -2r1*sind(210), -2r1*sind(330), -2r1], color=:black, linewidth=0.25)
end;

 


コメント    この記事についてブログを書く
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする
« 算額(その29) | トップ | 算額(その31) »
最新の画像もっと見る

コメントを投稿

Julia」カテゴリの最新記事