版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

下一頁(yè)

xxppyy

木蟲(chóng) (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 2855.4
散金: 16
紅花: 4
帖子: 243
在線: 348.3小時(shí)
蟲(chóng)號(hào): 19703
注冊(cè): 2003-07-17

[求助] 用 Mathematica 分解因式

請(qǐng)教：
如何在實(shí)數(shù)（實(shí)代數(shù)數(shù)）范圍內(nèi)將整系數(shù)高次多項(xiàng)式分解為一次式與不可再分解的二次式的乘積？比如將 x^4+1 分解為 (x^2-√2 x+1)(x^2+√2 x+1)。以及類似地將有理分式分解為部分分式。

回復(fù)此樓

» 猜你喜歡

805600專碩材料與化工348分求調(diào)劑已經(jīng)有6人回復(fù)
重慶大學(xué)材料與化工085600，初試370+，求求調(diào)劑建議已經(jīng)有5人回復(fù)
309求調(diào)劑已經(jīng)有3人回復(fù)
一志愿北交大材料工程，總分358 已經(jīng)有4人回復(fù)
302求調(diào)劑一志愿北航070300，本科鄭大化學(xué) 已經(jīng)有11人回復(fù)
化學(xué)工程專碩324分，一志愿中國(guó)礦業(yè)大學(xué)求調(diào)劑已經(jīng)有7人回復(fù)
材料求調(diào)劑已經(jīng)有11人回復(fù)
【求調(diào)劑】新能源材料本科，一志愿211，初試321 已經(jīng)有4人回復(fù)
336求調(diào)劑已經(jīng)有5人回復(fù)
材料求調(diào)劑已經(jīng)有8人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

a^m-b^n因式分解已經(jīng)有8人回復(fù)
x^3+x^2+3x+4在復(fù)數(shù)域分解因式!!! 已經(jīng)有5人回復(fù)
【軟件】Mathmatica 軟件 7.0版已經(jīng)有68人回復(fù)
一元高次方程因式分解已經(jīng)有14人回復(fù)
【求助】用matlab能夠?qū)⒓线M(jìn)行因式分解簡(jiǎn)化嗎？已經(jīng)有5人回復(fù)

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

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

回帖支持 ( 顯示支持度最高的前 50 名 )

walk1997

金蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 1 (幼兒園)
金幣: 4676.2
紅花: 22
帖子: 1066
在線: 798.1小時(shí)
蟲(chóng)號(hào): 416039
注冊(cè): 2007-06-29
性別: GG
專業(yè): 粒子物理學(xué)和場(chǎng)論

★
jjdg: 金幣+1, 感謝參與 2012-12-16 00:19:35

上面代碼顯示好像不對(duì) 下面這個(gè)
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

贊一下(1人)

回復(fù)此樓

7樓2012-12-15 13:52:59

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

普通回帖

哇塞泡泡

新蟲(chóng) (初入文壇)

應(yīng)助: 1 (幼兒園)
金幣: 19
帖子: 4
在線: 59分鐘
蟲(chóng)號(hào): 1649690
注冊(cè): 2012-02-28
性別: MM
專業(yè): 物流與供應(yīng)鏈管理

【答案】應(yīng)助回帖

感謝參與，應(yīng)助指數(shù) +1

樓主，你能給我發(fā)份mathematica軟件包嗎？我是初學(xué)者，但是目前還沒(méi)找到資源。。。

贊一下

回復(fù)此樓

水村山郭酒旗風(fēng)

2樓2012-12-11 11:25:31

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

situxuming

新蟲(chóng) (初入文壇)

應(yīng)助: 1 (幼兒園)
金幣: 46.3
帖子: 31
在線: 12.1小時(shí)
蟲(chóng)號(hào): 1279347
注冊(cè): 2011-04-27
專業(yè): 半導(dǎo)體材料

【答案】應(yīng)助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
xxppyy: 金幣+10, ★有幫助 2012-12-13 14:54:36

Factor[x^4 + 1, Extension -> Sqrt[2]]

-(-1 + Sqrt[2] x - x^2) (1 + Sqrt[2] x + x^2)

多看看Factor一些函數(shù)Extension的選項(xiàng)

贊一下

回復(fù)此樓

3樓2012-12-11 17:55:38

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

situxuming

新蟲(chóng) (初入文壇)

應(yīng)助: 1 (幼兒園)
金幣: 46.3
帖子: 31
在線: 12.1小時(shí)
蟲(chóng)號(hào): 1279347
注冊(cè): 2011-04-27
專業(yè): 半導(dǎo)體材料

引用回帖:

2樓: Originally posted by 哇塞泡泡 at 2012-12-11 11:25:31
樓主，你能給我發(fā)份mathematica軟件包嗎？我是初學(xué)者，但是目前還沒(méi)找到資源。。。

http://tieba.baidu.com/p/2015697277這里有下載，百度網(wǎng)盤(pán)

贊一下

回復(fù)此樓

4樓2012-12-11 17:57:38

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

xxppyy

木蟲(chóng) (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 2855.4
散金: 16
紅花: 4
帖子: 243
在線: 348.3小時(shí)
蟲(chóng)號(hào): 19703
注冊(cè): 2003-07-17

引用回帖:

3樓: Originally posted by situxuming at 2012-12-11 17:55:38
Factor

-(-1 + Sqrt x - x^2) (1 + Sqrt x + x^2)

多看看Factor一些函數(shù)Extension的選項(xiàng)

謝謝關(guān)注！
我的意思是找一個(gè)能處理該類問(wèn)題的一般方法。
Extension-> Sqrt[2] 選項(xiàng)只在分解 x^4 + 1時(shí)有效，對(duì) x^4 + 2 就無(wú)能為力，我的問(wèn)題源自于分解 x^7 + 2，也試過(guò) Extension-> Automatic，無(wú)效！

贊一下

回復(fù)此樓

5樓2012-12-13 15:02:59

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

walk1997

金蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 1 (幼兒園)
金幣: 4676.2
紅花: 22
帖子: 1066
在線: 798.1小時(shí)
蟲(chóng)號(hào): 416039
注冊(cè): 2007-06-29
性別: GG
專業(yè): 粒子物理學(xué)和場(chǎng)論

★ ★
jjdg: 金幣+2, 感謝參與 2012-12-16 00:19:27

我寫(xiě)了個(gè)很笨的代碼求這個(gè)問(wèn)題
可能內(nèi)部有非常簡(jiǎn)潔的方法  另外也沒(méi)怎么優(yōu)化看樣子能求你說(shuō)的情況
---------code-------------
Clear["Global`*"];
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
------------------------------------------------------
結(jié)果：
解析形式：
(x+Power[2, (7)^-1]) (x^2-Power[2, (7)^-1] x cos((3 \[Pi])/14) csc(\[Pi]/7)-2^(2/7) sin((3 \[Pi])/14)+2^(2/7) cos((3 \[Pi])/14) cot(\[Pi]/7)) (x^2-Power[2, (7)^-1] x sin(\[Pi]/7) sec(\[Pi]/14)+2^(2/7) cos(\[Pi]/7)+2^(2/7) sin(\[Pi]/7) tan(\[Pi]/14)) (x^2+Power[2, (7)^-1] x cos(\[Pi]/14) sec((3 \[Pi])/14)+2^(2/7) sin(\[Pi]/14)+2^(2/7) cos(\[Pi]/14) tan((3 \[Pi])/14))
數(shù)值化：
(x+1.10409) (x^2-1.9895 x+1.21901) (x^2-0.491366 x+1.21901) (x^2+1.37678 x+1.21901)

贊一下

回復(fù)此樓

6樓2012-12-15 13:50:02

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

walk1997

金蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 1 (幼兒園)
金幣: 4676.2
紅花: 22
帖子: 1066
在線: 798.1小時(shí)
蟲(chóng)號(hào): 416039
注冊(cè): 2007-06-29
性別: GG
專業(yè): 粒子物理學(xué)和場(chǎng)論

jjdg: 您可以把正確的貼一次或直接在上面的代碼里邊改嗎？ 2012-12-16 00:24:03

看樣子有些行數(shù)太長(zhǎng) 顯示始終不對(duì)
上面斜著的代碼里面 [[]] 里頭都有個(gè) i 的 copy過(guò)來(lái)丟了....

贊一下

回復(fù)此樓

8樓2012-12-15 13:55:08

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

xxppyy

木蟲(chóng) (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 2855.4
散金: 16
紅花: 4
帖子: 243
在線: 348.3小時(shí)
蟲(chóng)號(hào): 19703
注冊(cè): 2003-07-17

引用回帖:

7樓: Originally posted by walk1997 at 2012-12-15 13:52:59
上面代碼顯示好像不對(duì) 下面這個(gè)
f := x^7 + 2
t1 = x /. Solve;
t1 = DeleteCases;
t2 = x /. Solve;
r1 = Table[
Solve[ComplexExpand[Im[t1[]^2 - a*t1] == 0, a], {i,
1, Length}] // Flatten; ...

抱歉，我不懂程序，試運(yùn)行了一下也沒(méi)有重現(xiàn)你的結(jié)果。不知道是否有內(nèi)部命令？無(wú)論如何十分感謝你的幫助！

贊一下

回復(fù)此樓

9樓2012-12-15 18:32:54

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

walk1997

金蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 1 (幼兒園)
金幣: 4676.2
紅花: 22
帖子: 1066
在線: 798.1小時(shí)
蟲(chóng)號(hào): 416039
注冊(cè): 2007-06-29
性別: GG
專業(yè): 粒子物理學(xué)和場(chǎng)論

下面這個(gè)代碼應(yīng)該可以直接copy過(guò)去運(yùn)行我用mathematica8.04
第一行的函數(shù)可以改成其他多項(xiàng)式
--------------------
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];
eq1 := {ComplexExpand[Im[t1[]^2 - a*t1[] + b]] == 0};
r1 = Table[Solve[eq1, a], {i, 1, Length[t1]}] // Flatten;
r1 = DeleteDuplicates[r1];
eq2 := {ComplexExpand[Re[t1[]^2 - a*t1[] + b]] == 0};
r2 = Table[Solve[eq2, 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];
N[Apply[Times, ff], 20]

贊一下

回復(fù)此樓

10樓2012-12-16 10:52:12

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 xxppyy 的主題更新

返回列表

下一頁(yè)

普通表情龍兔虎貓

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 285求調(diào)劑 +11	AZMK 2026-04-01	11/550	2026-04-01 22:40 by peike
[考研] 安全工程 285 求調(diào)劑 +3	Xinyu56 2026-04-01	4/200	2026-04-01 21:50 by 靜靜靜靜靜靜靜?/a>
[考研] 環(huán)境工程297分求調(diào)劑一志愿杭高院 +10	GENJIOW 2026-03-31	11/550	2026-04-01 21:38 by GENJIOW
[考研] 307分求調(diào)劑 +14	(o~o) 2026-03-31	15/750	2026-04-01 20:43 by longlotian
[考研] 324求調(diào)劑 +10	hanamiko 2026-03-26	12/600	2026-04-01 16:59 by oooqiao
[考研] 326求調(diào)劑 +4	崽崽仔 2026-03-31	4/200	2026-04-01 09:58 by 我的船我的海
[考研] 0710生物學(xué)求調(diào)劑！ +6	敘述文 2026-03-31	6/300	2026-04-01 09:39 by JourneyLucky
[考研] 求調(diào)劑，一志愿南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分 +10	@taotao 2026-03-29	10/500	2026-04-01 09:30 by oooqiao
[考研] 311（085601）求調(diào)劑 +12	liziyeyeye 2026-03-28	13/650	2026-04-01 00:34 by fmesaito
[考研] 08開(kāi)頭看過(guò)來(lái)！��！ +3	wwwwffffff 2026-03-31	5/250	2026-03-31 17:45 by 星光/
[考研] 本科211安全工程，初試290分，求調(diào)劑 +3	2719846834 2026-03-28	3/150	2026-03-31 13:52 by 熱情沙漠
[考研] 262求調(diào)劑 +7	ZZ..000 2026-03-30	8/400	2026-03-31 10:05 by cal0306
[考研] 08工科求調(diào)劑286 +5	tgs_001 2026-03-28	5/250	2026-03-31 08:18 by 一只好果子?
[考研] 085601一志愿西北工業(yè)大學(xué)初試346 +4	085601初試346 2026-03-30	4/200	2026-03-31 07:47 by jp9609
[考研] 285求調(diào)劑 +6	AZMK 2026-03-29	9/450	2026-03-30 21:02 by dophin1985
[考研] 085600 286分材料求調(diào)劑 +11	麻辣魷魚(yú) 2026-03-27	12/600	2026-03-30 19:33 by Wang200018
[考研] 105500藥學(xué)求調(diào)劑，一志愿山東大學(xué)藥學(xué)，348分 +3	gr哈哈哈 2026-03-28	3/150	2026-03-30 18:56 by 源_2020
[考研] 本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑 +3	AZMK 2026-03-27	5/250	2026-03-28 16:19 by xxxsssccc
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +8	邱gl 2026-03-27	8/400	2026-03-28 12:42 by 唐沐兒
[考研] 266求調(diào)劑 +11	陽(yáng)陽(yáng)哇塞 2026-03-27	12/600	2026-03-27 17:56 by yu221

24小時(shí)熱門版塊排行榜

[求助] 用 Mathematica 分解因式

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助: