20/12/12 13:29:25.25 xixiDIl1.net
関数化できたので、
暇つぶしに、
赤の面積を変化させたときの３円弧の和をグラフにしてみた。
URLﾘﾝｸ(i.imgur.com)
３円弧の和が10になるのは赤の面積が
> uniroot(function(x) Area2L(x)-10,c(2,10))$root
[1] 4.3944
のとき。
20/12/12 13:29:25.25 xixiDIl1.net
関数化できたので、
暇つぶしに、
赤の面積を変化させたときの３円弧の和をグラフにしてみた。
URLﾘﾝｸ(i.imgur.com)
３円弧の和が10になるのは赤の面積が
> uniroot(function(x) Area2L(x)-10,c(2,10))$root
[1] 4.3944
のとき。