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)。以及类似地将有理分式分解为部分分式。

回复此楼

» 猜你喜欢

拟解决的关键科学问题还要不要写已经有8人回复
最失望的一年已经有11人回复
求推荐英文EI期刊已经有5人回复
存款400万可以在学校里躺平吗已经有27人回复
请教限项目规定已经有4人回复
国自然申请面上模板最新2026版出了吗？已经有20人回复
26申博已经有3人回复
基金委咋了？2026年的指南还没有出来？已经有10人回复
基金申报已经有6人回复
疑惑？已经有5人回复

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

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