- 837 名前：１３２人目の素数さん mailto:sage [03/12/07 23:53]
- この関数を
fbbs = Flatten[Cases[
ReplaceAll[{u, t},
NSolve[{fbb[#1, #2, #3, #4], fbb[#5, #6, #7, #8]}, {u, t}]],
{_Real, _Real}]]&;
こんな↓感じにする、いい方法はないかな。
目的は可読性の向上。
NSolve[{fbb[#1, #2, #3, #4], fbb[#5, #6, #7, #8]}, {u, t}]
ReplaceAll[{u, t}, %]
Cases[%, {_Real, _Real}]
fbbst2 = Flatten[%]&
↑の方法だとうまくいかないのです。
Flatten[%]がそのままはいってしまいます。
