Root Reduce
- To: mathgroup at smc.vnet.net
- Subject: [mg117832] Root Reduce
- From: Artur <grafix at csl.pl>
- Date: Fri, 1 Apr 2011 02:33:22 -0500 (EST)
- Reply-to: grafix at csl.pl
Dear Mathematica Gurus,
Who have Mathematica 8 and big memory and will be able help me in do
RootReduce[Root[-67752011407921 + 590380022725 #1 - 2057790250 #1^2 +
3586250 #1^3 - 2869 #1^4 + #1^5 &, 1] +
Root[-1 - #1 + #1^5 &,
1] Root[-67752011407921 + 590380022725 #1 - 2057790250 #1^2 +
3586250 #1^3 - 2869 #1^4 + #1^5 &, 2] +
Root[-1 - #1 + #1^5 &,
1]^4 Root[-67752011407921 + 590380022725 #1 - 2057790250 #1^2 +
3586250 #1^3 - 2869 #1^4 + #1^5 &, 3] +
Root[-1 - #1 + #1^5 &,
1]^2 Root[-67752011407921 + 590380022725 #1 - 2057790250 #1^2 +
3586250 #1^3 - 2869 #1^4 + #1^5 &, 4] +
Root[-1 - #1 + #1^5 &,
1]^3 Root[-67752011407921 + 590380022725 #1 - 2057790250 #1^2 +
3586250 #1^3 - 2869 #1^4 + #1^5 &, 5]]
(*********************** END******************(
If we do partially
RootReduce[Root[-67752011407921 + 590380022725 #1 - 2057790250 #1^2 +
3586250 #1^3 - 2869 #1^4 + #1^5 &, 1] +
Root[-1 - #1 + #1^5 &,
1] Root[-67752011407921 + 590380022725 #1 - 2057790250 #1^2 +
3586250 #1^3 - 2869 #1^4 + #1^5 &, 2] ]
Root[8486274623053991034444707900130674159896878615861450800717 -
176298083536438167127759777751964827130972647731103268124 #1 +
1834378673310790495744471096568607786696985383699117984 #1^2 -
12039793131466728527304137809372149834095497499326840 #1^3 +
54775463267394762919477456706653799078447300610424 #1^4 -
183970093989188595651401993589703720950330941004 #1^5 +
479248935412734306663621290607442288214927572 #1^6 -
1007099823717886449062870958225118919171584 #1^7 +
1759150768820739688827350033600003901586 #1^8 -
2608755646999485290605170184297029016 #1^9 +
3328254342360833656671238607188114 #1^10 -
3678283935410304331012982908652 #1^11 +
3527873864729873846593567280 #1^12 -
2926947003761748535669620 #1^13 + 2080205069638371885012 #1^14 -
1243127318746650820 #1^15 + 606293993010341 #1^16 -
230768829796 #1^17 + 64007390 #1^18 - 11476 #1^19 + #1^20 &, 11]
RootReduce[
Root[-1 - #1 + #1^5 &,
1]^4 Root[-67752011407921 + 590380022725 #1 - 2057790250 #1^2 +
3586250 #1^3 - 2869 #1^4 + #1^5 &, 3]]
Root[21071175869597327490738953723594332629690484304627302081 -
176266371861392770922877270605180893381865327051605176 #1 +
1838027985890554338367402699757753593705404101647678 #1^2 -
12527494910974863812028850280541326142009762210360 #1^3 +
74094007041713277739584985975598426678110039601 #1^4 -
353561199546145799665022465708184672518697296 #1^5 +
1664150316618257005243756137810884210341632 #1^6 -
8796732014164393435532292497185779137916 #1^7 +
42157845847614948041142500249638951716 #1^8 -
155064093152850818111291460181176256 #1^9 +
424105255076801704655459718049386 #1^10 -
871787971776488389733652092196 #1^11 +
1363481946662846804176799526 #1^12 -
1632623043884540001674016 #1^13 + 1498479340857019118528 #1^14 -
1052316967705949000 #1^15 + 562453207985624 #1^16 -
224447298148 #1^17 + 63588516 #1^18 - 11476 #1^19 + #1^20 &, 16]
RootReduce[
Root[-1 - #1 + #1^5 &,
1]^2 Root[-67752011407921 + 590380022725 #1 - 2057790250 #1^2 +
3586250 #1^3 - 2869 #1^4 + #1^5 &, 4]]
Root[21071175869597327490738953723594332629690484304627302081 -
176266371861392770922877270605180893381865327051605176 #1 +
578543627870843009012580794074167565706714940072946 #1^2 +
424721337437609342914938228884449518774689943884 #1^3 -
7963890507163552466105971414983772364733038327 #1^4 +
19760326253399521683126240265163665134513872 #1^5 -
9395618705681367522845191631800579811068 #1^6 -
232359410911413591598104672893093107796 #1^7 +
846196372786217074991063563732859532 #1^8 +
710280957997932303229267623125320 #1^9 -
4962227406751428427997240664958 #1^10 +
1430309493687940919148457560 #1^11 +
13587529810518220174172498 #1^12 - 9843087828587494119836 #1^13 -
10891759794661718348 #1^14 + 4982524009388092 #1^15 +
7598941985912 #1^16 - 2834572 #1^18 + #1^20 &, 19]
RootReduce[
Root[-1 - #1 + #1^5 &,
1]^3 Root[-67752011407921 + 590380022725 #1 - 2057790250 #1^2 +
3586250 #1^3 - 2869 #1^4 + #1^5 &, 5]]
Root[21071175869597327490738953723594332629690484304627302081 +
176266371861392770922877270605180893381865327051605176 #1 +
1602514650651096122309183969426676531559307754361346 #1^2 +
7812731156730477744880670445613949551241985606404 #1^3 +
37785483546211419020953059595557988966034306695 #1^4 +
135935712289141359774863432000544391724526000 #1^5 +
491453639847347209962328734957641827663398 #1^6 +
931864023878215550887989690026752830144 #1^7 +
2043663751489864934552106595685403909 #1^8 +
1805286411600717101996690920474708 #1^9 +
4878465619460607987704588693078 #1^10 +
3609522447996822984848084208 #1^11 +
9391700882199227922244482 #1^12 + 16259442338013859965124 #1^13 +
25641898683151167114 #1^14 + 4723323564210908 #1^15 +
3379978103752 #1^16 + 3029067248 #1^17 - 91808 #1^18 + #1^20 &, 20]
Very strange but I was terminate after 3 days of running :
RootReduce[Root[8486274623053991034444707900130674159896878615861450800717
-
176298083536438167127759777751964827130972647731103268124 #1 +
1834378673310790495744471096568607786696985383699117984 #1^2 -
12039793131466728527304137809372149834095497499326840 #1^3 +
54775463267394762919477456706653799078447300610424 #1^4 -
183970093989188595651401993589703720950330941004 #1^5 +
479248935412734306663621290607442288214927572 #1^6 -
1007099823717886449062870958225118919171584 #1^7 +
1759150768820739688827350033600003901586 #1^8 -
2608755646999485290605170184297029016 #1^9 +
3328254342360833656671238607188114 #1^10 -
3678283935410304331012982908652 #1^11 +
3527873864729873846593567280 #1^12 -
2926947003761748535669620 #1^13 + 2080205069638371885012 #1^14 -
1243127318746650820 #1^15 + 606293993010341 #1^16 -
230768829796 #1^17 + 64007390 #1^18 - 11476 #1^19 + #1^20 &,
11]+Root[21071175869597327490738953723594332629690484304627302081 -
176266371861392770922877270605180893381865327051605176 #1 +
1838027985890554338367402699757753593705404101647678 #1^2 -
12527494910974863812028850280541326142009762210360 #1^3 +
74094007041713277739584985975598426678110039601 #1^4 -
353561199546145799665022465708184672518697296 #1^5 +
1664150316618257005243756137810884210341632 #1^6 -
8796732014164393435532292497185779137916 #1^7 +
42157845847614948041142500249638951716 #1^8 -
155064093152850818111291460181176256 #1^9 +
424105255076801704655459718049386 #1^10 -
871787971776488389733652092196 #1^11 +
1363481946662846804176799526 #1^12 -
1632623043884540001674016 #1^13 + 1498479340857019118528 #1^14 -
1052316967705949000 #1^15 + 562453207985624 #1^16 -
224447298148 #1^17 + 63588516 #1^18 - 11476 #1^19 + #1^20 &, 16]]
Best wishes
Artur