eq=Factor[x^8-1];
Attributes[Times]
Attributes[Plus]
ClearAttributes[Times,Orderless];
ClearAttributes[Plus,Orderless];
Apply[Times, Sort[eq/.Times->List,
Exponent[#1,x]>Exponent[#2,x]&]/.Plus[a__,b__]:>HoldForm[b+a]
]
Mathematica 教學 多項式降冪排列問題
由 戴忠淵 於 2011年8月31日星期三
下午10:11 發表
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助,那請留個訊息給我~