〓 Mathematica 伍 〓
■ このスレッドは過去ログ倉庫に格納されています
0831132人目の素数さん
2014/07/20(日) 14:11:42.16同じ計算させてるのに1回目と2回目で結果が違う。
ちなみにV9なんだけど、V10もってる人ふるまい同じか試してみてくれない?
n = 2;
ss = Array[s, n];
u[n_] := s[n]/Sqrt[1 - Sum[s[i]^2, {i, n - 1}]]
v[1][ss_] := ss[[1]]
v[n_][ss_] :=
u[n] + Integrate[
v[n - 1][ss[[;; n - 1]]/Sqrt[1 - ss[[n]]^2/a[n]^2]], {a[n], u[n],
1}, Assumptions ->
And @@ Thread[0 < ss] && Sum[s[i]^2, {i, n}] < 1]
v[n][ss](*1回目*)
v[n][ss](*2回目*)
■ このスレッドは過去ログ倉庫に格納されています