縮退宇宙論Part2at SCI縮退宇宙論Part2 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト100:NAS6 ◆n3AmnVhjwc 14/01/25 12:04:46.53 R97SIz7p PCでプログラムして計算してみるぞ 101:NAS6 ◆n3AmnVhjwc 14/01/25 12:17:07.89 R97SIz7p プログラムして lim[n→∞]1/Σ↑∞↓m=1 nsin(mπ/n) だと気が付いたけどやっぱり∞になったよ 102:NAS6 ◆n3AmnVhjwc 14/01/25 12:21:21.49 R97SIz7p Const MAX_N As Double = 10000.0 Dim a As Double Dim b As Double Dim c As Double c = 0.0 For a = 1.0 To MAX_N For b = 1.0 To MAX_N c += 1.0 / b * Math.Sin(b * Math.PI / a) Next Next vbですけど 103:NAS6 ◆n3AmnVhjwc 14/01/25 12:27:03.50 R97SIz7p プログラムが計算通りだから俺正解です 104:NAS6 ◆n3AmnVhjwc 14/01/25 13:15:50.24 R97SIz7p 量子力学の波動関数はcos2x/πの横軸対数グラフで書けちゃうよ Private Sub GetPlot(ByVal x As Double, ByRef a As Double, ByRef b As Double) a = (Math.Log(x / MAX_N / MAX_N) / Math.Log(2)) If Double.IsNaN(a) Or Double.IsInfinity(a) Then a = -MAX_N * 2.0 End If b = Math.Cos(2.0 * a / Math.PI) End Sub 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch