24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

xxppyy

木虫 (小有名气)

应助: 3 (幼儿园)
金币: 2855.4
散金: 16
红花: 4
帖子: 243
在线: 348.3小时
虫号: 19703
注册: 2003-07-17

[求助] 用 Mathematica 分解因式

请教：
如何在实数（实代数数）范围内将整系数高次多项式分解为一次式与不可再分解的二次式的乘积？比如将 x^4+1 分解为 (x^2-√2 x+1)(x^2+√2 x+1)。以及类似地将有理分式分解为部分分式。

回复此楼

» 猜你喜欢

同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗已经有6人回复
依托企业入选了国家启明计划青年人才。有无高校可以引进的。已经有6人回复
依托企业入选了国家启明计划青年人才。有无高校可以引进的。已经有10人回复
天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人）已经有9人回复
有院领导为了换新车，用横向课题经费买了俩车已经有10人回复
遇见不省心的家人很难过已经有24人回复
AI 太可怕了，写基金时，提出想法，直接生成的文字比自己想得深远，还有科学性已经有6人回复
酰胺脱乙酰基已经有13人回复
有时候真觉得大城市人没有县城人甚至个体户幸福已经有10人回复

» 本主题相关价值贴推荐，对您同样有帮助:

1楼 2012-12-09 10:42:55

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

walk1997

金虫 (著名写手)

应助: 1 (幼儿园)
金币: 4676.2
红花: 22
帖子: 1066
在线: 798.1小时
虫号: 416039
注册: 2007-06-29
性别: GG
专业: 粒子物理学和场论

★
jjdg: 金币+1, 感谢参与 2012-12-16 00:19:35

上面代码显示好像不对下面这个
f[x_] := x^7 + 2
t1 = x /. Solve[f[x] == 0, x];
t1 = DeleteCases[t1, x_ /; Element[x, Reals]];
t2 = x /. Solve[f[x] == 0, x, Reals];
r1 = Table[
Solve[ComplexExpand[Im[t1[]^2 - a*t1[] + b]] == 0, a], {i,
1, Length[t1]}] // Flatten;
r1 = DeleteDuplicates[r1];
r2 = Table[
Solve[ComplexExpand[Re[t1[]^2 - a*t1[] + b]] == 0, b], {i,
1, Length[t1]}] // Flatten;
r2 = DeleteDuplicates[r2];
r3 = Table[{r1[], r2[] /. r1[]}, {i, 1, Length[r1]}];
ff1 = Table[temp1 = x^2 - a*x + b /. r3[] // Expand; Print[temp1];
temp1, {i, 1, Length[r3]}];
ff2 = Table[temp1 = x - t2[]; Print[temp1];
temp1, {i, 1, Length[t2]}];
ff = Join[ff1, ff2];
Apply[Times, ff]
Apply[Times, ff] // N // Chop