MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

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




  • Prev by Date: Re: why extending numbers by zeros instead of dropping precision is a good idea
  • Next by Date: Re: Coordinates from Graphics3D images
  • Previous by thread: Re: CAS that uses convert/binary/decimal ..... / Retraction.
  • Next by thread: Re: Coordinates from Graphics3D images