裏 RjpWiki

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

算額(その918)

2024年05月05日 | Julia

算額(その918)

一一〇 久喜市菖蒲町小林 小林神社 大正5年(1916)

埼玉県立図書館:埼玉県史料集 第二集『埼玉の算額』,昭和44年,誠美堂印刷所,埼玉県与野市.

外円の中に正三角形 1 個と等円 3 個を入れる。等円の直径が 1 寸のとき,外円の直径はいかほどか。

これは方程式を立てるまでもなく答えを得ることができる。円に内接する正三角形の高さは外円の半径の 1.5 倍であり,正三角形の一辺と外円によりできる弓形に入る円の直径は外円の直径の 1/4 である。したがって,円の直径が 1 寸ならば,外円の直径は 4 寸である。

include("julia-source.txt");
function draw(more=false)
   pyplot(size=(600, 600), grid=false, aspectratio=1, label="", fontfamily="IPAMincho")
   r = 1/2
   R = 4r
   @printf("等円の直径が %g 寸のとき,外円の直径は %g 寸である。\n", 2r, 2R)
   plot([R√3/2, 0, -R√3/2, R√3/2], [-R/2, R, -R/2, -R/2], color=:blue, lw=0.5)
   circle(0, 0, R)
   rotate(0, r - R, r, :green)
   if more        
       delta = (fontheight = (ylims()[2]- ylims()[1]) / 500 * 10 * 2) /3  # size[2] * fontsize * 2
       hline!([0], color=:gray80, lw=0.5)
       vline!([0], color=:gray80, lw=0.5)
       point(0, R, " R", :green, :left, :bottom, delta=delta/2)
       point(R, 0, " R", :green, :left, :bottom, delta=delta/2)
       point(0, r - R, "等円:r,(0,r-R)", :green, :center, delta=-delta/2)
   end
end;


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

コメントを投稿

Julia」カテゴリの最新記事