縮退宇宙論Part2

1 ：NAS6 ◆n3AmnVhjwc ：2014/01/21(火) 22:55:23.33 ID:1azff/Tu.net

ttp://www5b.biglobe.ne.jp/~NAS6/secret/BlackHole.htm

シュワルツシルト時空を解いた

要旨抜粋
u=1/r
シュワルツシルト補正項3.0mu^2
u''+u=m/h^2+3.0mu^2
ケプラーの法則
u''+u=kM/H^2=GM/r^2=g
を参照
m/h^2でくくり
S=3.0mu^2/(m/h^2)=3.0(1/r^2)r^4ψ'^2=3.0r^2(dψ/dt)^2(1/c^2)
r(dψ/dt)/c=v、(v=rω)、(v=V/c)なので
S=3.0v^2
3.0mu^2をm/h^2でくくったので
F=mg(1.0+S)
g=GM/r^2

よってシュワルツシルト時空の重力による加速度は
a=(GM/r^2)(1+3(V/c)^2)
となりました

参照リンク
ttp://members3.jcom.home.ne.jp/nososnd/grel/peri.pdf

101 ：NAS6 ◆n3AmnVhjwc ：2014/01/25(土) 12:17:07.89 ID:R97SIz7p.net

プログラムして

lim[n→∞]1/Σ↑∞↓m=1　nsin(mπ/n)

だと気が付いたけどやっぱり∞になったよ

102 ：NAS6 ◆n3AmnVhjwc ：2014/01/25(土) 12:21:21.49 ID:R97SIz7p.net

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 ：2014/01/25(土) 12:27:03.50 ID:R97SIz7p.net

プログラムが計算通りだから俺正解です

104 ：NAS6 ◆n3AmnVhjwc ：2014/01/25(土) 13:15:50.24 ID:R97SIz7p.net

量子力学の波動関数は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

105 ：NAS6 ◆n3AmnVhjwc ：2014/01/25(土) 13:17:32.44 ID:R97SIz7p.net

範囲は
0＜x＜MAX_N

106 ：NAS6 ◆n3AmnVhjwc ：2014/01/25(土) 13:27:38.45 ID:R97SIz7p.net

ttp://www5b.biglobe.ne.jp/~NAS6/pai.htm

アップした

107 ：NAS6 ◆n3AmnVhjwc ：2014/01/25(土) 14:07:01.48 ID:R97SIz7p.net

万能アルゴリズム
A=√((2A+1)/2)

多数決だったりもします

108 ：ご冗談でしょう？名無しさん：2014/01/25(土) 14:21:28.95 ID:1mSjEsD/.net

俺の計算結果

I=1/n(sin(π/n)+sin(2π/n)+…+sin(nπ/n)とおく
I=1/nΣ[k=1,2,…n]sin(kπ/n)
=1/nΣsin(π・k/n)
ここでx=k/nとおくと区分求積法より
→(n→∞)∫sin(πx)dx[0,1]
=[-1/π・cosπx][0,1]
=(-1/πcosπ+1/ncos0)
=2/π
∴lim�T=2/π

NASっさんと違うねぇ…

109 ：NAS6 ◆n3AmnVhjwc ：2014/01/25(土) 15:39:32.31 ID:R97SIz7p.net

>>102

を走らせてみな

110 ：NAS6 ◆n3AmnVhjwc ：2014/01/25(土) 15:40:31.99 ID:R97SIz7p.net

MAX_Nを増やしたら∞に収束することになるから