〓Mathematica〓
at MATH
678:１３２人目の素数さん
03/08/24 20:18
>>676
H[f_, x_] /; PolynomialQ[f, x] :=
Module[{r, b, c},
r = (x - b)^2 + c; r /. Flatten[SolveAlways[f == r, x]]]
Example: H[x^2 + 3 x + 2, x]
>>677
TraditionalFormか、別の方法としては、
HoldFormをもちいた並び替え関数を書く。
次ページ続きを表示1を表示最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
5174日前に更新/264 KB
担当:undef