No.2ベストアンサー
- 回答日時:
Option Explicit On
Option Compare Binary
Option Strict On
Option Infer Off 'VB2008以上
Class Q4333288A
Shared Sub Main()
System.Console.WriteLine(CalculatePI(50).ToString())
System.Console.ReadKey(true)
End Sub
Shared Function CalculatePI(Precision As Integer) As Double
Dim pi As Double = SideLength(Precision) * 6 * Math.Pow(2,Precision) / 2
Return pi
End Function
'クラスに分割しようと思ったけど,関数名が思いつかないので放置
Shared Function SideLength(n As Integer) As Double
If n < 0 Then
Throw new System.ArgumentOutOfRangeException()
End If
If n = 0 Then
Return 1.0
End If
Dim temp As Double = SideLength(n-1)
Return temp / Math.Sqrt(2+Math.Sqrt(4-Math.Pow(temp,2)))
End Function
End Class
'a(n)+1=a(n)/√2+√4-a^2(n)
'これじゃ式が全然通じないよ
'a(n)+ 1 = ( a(n) / Math.Sqrt(2) )+ Math.Sqrt(4) - Math.Pow(a(n),2)
'とか
'a(n)+ 1 = a(n) / Math.Sqrt(2 + Math.Sqrt(4) - Math.Pow(a(n),2))
'って読んじゃった。
'せめて
'a(n+1)=a(n)/√(2+√(4-(a(n))^2))
'と書かないと。
'a(n+1) = a(n) / Math.Sqrt(2+Math.Sqrt(4-Math.Pow(a(n),2)))
'だともっと嬉しい。
'VBA/VB6だと後から言われても回答には戻ってこないつもり
'問1:この漸化式を導出せよ
'わざわざ面積を求めんでも。周囲の長さでいいじゃん
No.3
- 回答日時:
>'わざわざ面積を求めんでも。
周囲の長さでいいじゃん比の関係からするとそうですけど、値は円周だと 2πになっちゃいますから。
2で割ればというのはまあそうなんですが。
No.1
- 回答日時:
半径1の円に内接する正六角形の一辺の長さが 1 になります。
あとはこの値と質問にある式を使って、
a(n)+1=a(n)/√2+√4-a^2(n)
正十二角形、正二十四角形、…の値を求めていくと次のように変化します。
半径1の円の面積はπですが、正多角形のほうの変化に注目してください。
辺の数 6
辺の長さa 1
内接正多角形の面積 2.598076211353315940291
面積比 0.826993343132688074267
辺の数 12
辺の長さa 0.5176380902050415246978
内接正多角形の面積 3
面積比 0.9549296585513720146133
辺の数 24
辺の長さa 0.2610523844401031830968
内接正多角形の面積 3.1 05828541230249148187
円の面積 3.1 41592653589793238463
面積比 0.9886159294653692193848
辺の数 48
辺の長さa 0.1308062584602861336306
内接正多角形の面積 3.1 32628613281238197162
円の面積 3.1 41592653589793238463
面積比 0.9971466573496369329908
だんだんと本当の値に近づいていきます。
この手順を繰り返すようにプログラムを組めばいいだけです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) VBA 1 2023/01/19 16:19
- C言語・C++・C# C言語 3 2022/10/04 15:07
- Visual Basic(VBA) VBAプログラム初心者です。 以下の問題のプログラムを表記してみたのですが、実行するためには、どこを 4 2023/01/19 20:04
- 数学 半径6の円Kを底面とする半球がある。半球の底面に平行な平面が半球と交わっており、交わりの円Lの半径は 6 2022/06/24 06:34
- Excel(エクセル) いつもお世話になっております。 円の直径290、半径145 ですが、 添付のエクセルように 座標に中 2 2023/03/14 03:34
- その他(プログラミング・Web制作) 大学一年でVBAのプログラミングを勉強しているものです。来週の情報の授業で以下の問題のプログラムを勉 4 2023/01/19 16:15
- その他(ビジネス・キャリア) グーグルの障害者訓練プログラム募集あるがどうだろ?6時間勤務で月収22万!! 1 2023/02/17 20:36
- C言語・C++・C# 1. 仮想CPU「exmini」を使用して,「$dataからn減算する」プログラムを作成してください 2 2022/07/04 17:49
- 工学 いつもありがとうございます、 円盤の上に何ccの液を液滴させながら円盤を回したら液が拡がって円盤の全 5 2023/03/18 14:17
- C言語・C++・C# C言語の質問です。バイナリ形式で保存されたWindows Bitmap形式の画像ファイルを読み込み、 3 2023/07/19 14:58
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
面積を表す文字になぜSをつかう...
-
イコール(=)と合同(≡)
-
2つの重なった円の面積
-
顕微鏡について、 対物レンズの...
-
面積1平方キロメートルの場所
-
ヒステリシスループの面積の計...
-
三角形の中に接する半径の等し...
-
五角形のABCDEの面積をエクセル...
-
「横倒しにした円柱容器に入っ...
-
円を直線で切り取った部分の面...
-
正方形と内接する2つの4分の1円...
-
重なっている二つの円の重複部...
-
なぜ積分で、上の式から下の式...
-
2つの円が重なってできた図形の...
-
面積1の正n角形(n>=3)の周の長...
-
扇形の面積は1/2•r²θで求められ...
-
x^(2/3) + y^(2/3) = 1で囲まれ...
-
重なり合う二つの円の面積
-
正方形の面積が奇数のときの一...
-
n角形の重心を求めるアルゴリズム
おすすめ情報