Wolfram Mathematica | Математика - [36] :: Программы :: Компьютерный форум Ru.Board

r_green

Цитата:

более сложные выражения удалось свернуть таким образом?

ок, пока самый крупный монстроид у меня такой, и на нём уже полчаса висит =)) У меня пока теплится надежда, что можно задачу слегка переформулировать и сделать монстроидов чуточку поменьше, как предыдущий например.

Код:

1/4 (-5 A+4 gI0 \[Mu]BB)-1/2 \[Sqrt](1/4 (5 A-4 gI0 \[Mu]BB)^2+1/24 (-109 A^2-80 A gI0 \[Mu]BB-40 A gJ0 \[Mu]BB+28 gI0^2 \[Mu]BB^2+40 gI0 gJ0 \[Mu]BB^2-20 gJ0^2 \[Mu]BB^2)+1/8 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)+(256 2^(1/3) (1009 A^4-476 A^3 gI0 \[Mu]BB+476 A^3 gJ0 \[Mu]BB+272 A^2 gI0^2 \[Mu]BB^2-544 A^2 gI0 gJ0 \[Mu]BB^2+272 A^2 gJ0^2 \[Mu]BB^2-52 A gI0^3 \[Mu]BB^3+156 A gI0^2 gJ0 \[Mu]BB^3-156 A gI0 gJ0^2 \[Mu]BB^3+52 A gJ0^3 \[Mu]BB^3+13 gI0^4 \[Mu]BB^4-52 gI0^3 gJ0 \[Mu]BB^4+78 gI0^2 gJ0^2 \[Mu]BB^4-52 gI0 gJ0^3 \[Mu]BB^4+13 gJ0^4 \[Mu]BB^4))/(3 (-65536 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-1179648 (5 A-4 gI0 \[Mu]BB) (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)+1769472 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)^2+1769472 (5 A-4 gI0 \[Mu]BB)^2 (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+589824 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+\[Sqrt](-4 (66125824 A^4-31195136 A^3 gI0 \[Mu]BB+31195136 A^3 gJ0 \[Mu]BB+17825792 A^2 gI0^2 \[Mu]BB^2-35651584 A^2 gI0 gJ0 \[Mu]BB^2+17825792 A^2 gJ0^2 \[Mu]BB^2-3407872 A gI0^3 \[Mu]BB^3+10223616 A gI0^2 gJ0 \[Mu]BB^3-10223616 A gI0 gJ0^2 \[Mu]BB^3+3407872 A gJ0^3 \[Mu]BB^3+851968 gI0^4 \[Mu]BB^4-3407872 gI0^3 gJ0 \[Mu]BB^4+5111808 gI0^2 gJ0^2 \[Mu]BB^4-3407872 gI0 gJ0^3 \[Mu]BB^4+851968 gJ0^4 \[Mu]BB^4)^3+(-65536 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-1179648 (5 A-4 gI0 \[Mu]BB) (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)+1769472 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)^2+1769472 (5 A-4 gI0 \[Mu]BB)^2 (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+589824 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4))^2))^(1/3))+(1/(768 2^(1/3)))((-65536 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-1179648 (5 A-4 gI0 \[Mu]BB) (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)+1769472 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)^2+1769472 (5 A-4 gI0 \[Mu]BB)^2 (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+589824 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+\[Sqrt](-4 (66125824 A^4-31195136 A^3 gI0 \[Mu]BB+31195136 A^3 gJ0 \[Mu]BB+17825792 A^2 gI0^2 \[Mu]BB^2-35651584 A^2 gI0 gJ0 \[Mu]BB^2+17825792 A^2 gJ0^2 \[Mu]BB^2-3407872 A gI0^3 \[Mu]BB^3+10223616 A gI0^2 gJ0 \[Mu]BB^3-10223616 A gI0 gJ0^2 \[Mu]BB^3+3407872 A gJ0^3 \[Mu]BB^3+851968 gI0^4 \[Mu]BB^4-3407872 gI0^3 gJ0 \[Mu]BB^4+5111808 gI0^2 gJ0^2 \[Mu]BB^4-3407872 gI0 gJ0^3 \[Mu]BB^4+851968 gJ0^4 \[Mu]BB^4)^3+(-65536 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-1179648 (5 A-4 gI0 \[Mu]BB) (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)+1769472 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)^2+1769472 (5 A-4 gI0 \[Mu]BB)^2 (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+589824 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4))^2))^(1/3)))-1/2 \[Sqrt](1/2 (5 A-4 gI0 \[Mu]BB)^2+1/6 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)-(256 2^(1/3) (1009 A^4-476 A^3 gI0 \[Mu]BB+476 A^3 gJ0 \[Mu]BB+272 A^2 gI0^2 \[Mu]BB^2-544 A^2 gI0 gJ0 \[Mu]BB^2+272 A^2 gJ0^2 \[Mu]BB^2-52 A gI0^3 \[Mu]BB^3+156 A gI0^2 gJ0 \[Mu]BB^3-156 A gI0 gJ0^2 \[Mu]BB^3+52 A gJ0^3 \[Mu]BB^3+13 gI0^4 \[Mu]BB^4-52 gI0^3 gJ0 \[Mu]BB^4+78 gI0^2 gJ0^2 \[Mu]BB^4-52 gI0 gJ0^3 \[Mu]BB^4+13 gJ0^4 \[Mu]BB^4))/(3 (-65536 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-1179648 (5 A-4 gI0 \[Mu]BB) (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)+1769472 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)^2+1769472 (5 A-4 gI0 \[Mu]BB)^2 (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+589824 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+\[Sqrt](-4 (66125824 A^4-31195136 A^3 gI0 \[Mu]BB+31195136 A^3 gJ0 \[Mu]BB+17825792 A^2 gI0^2 \[Mu]BB^2-35651584 A^2 gI0 gJ0 \[Mu]BB^2+17825792 A^2 gJ0^2 \[Mu]BB^2-3407872 A gI0^3 \[Mu]BB^3+10223616 A gI0^2 gJ0 \[Mu]BB^3-10223616 A gI0 gJ0^2 \[Mu]BB^3+3407872 A gJ0^3 \[Mu]BB^3+851968 gI0^4 \[Mu]BB^4-3407872 gI0^3 gJ0 \[Mu]BB^4+5111808 gI0^2 gJ0^2 \[Mu]BB^4-3407872 gI0 gJ0^3 \[Mu]BB^4+851968 gJ0^4 \[Mu]BB^4)^3+(-65536 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-1179648 (5 A-4 gI0 \[Mu]BB) (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)+1769472 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)^2+1769472 (5 A-4 gI0 \[Mu]BB)^2 (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+589824 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4))^2))^(1/3))-(1/(768 2^(1/3)))((-65536 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-1179648 (5 A-4 gI0 \[Mu]BB) (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)+1769472 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)^2+1769472 (5 A-4 gI0 \[Mu]BB)^2 (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+589824 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+\[Sqrt](-4 (66125824 A^4-31195136 A^3 gI0 \[Mu]BB+31195136 A^3 gJ0 \[Mu]BB+17825792 A^2 gI0^2 \[Mu]BB^2-35651584 A^2 gI0 gJ0 \[Mu]BB^2+17825792 A^2 gJ0^2 \[Mu]BB^2-3407872 A gI0^3 \[Mu]BB^3+10223616 A gI0^2 gJ0 \[Mu]BB^3-10223616 A gI0 gJ0^2 \[Mu]BB^3+3407872 A gJ0^3 \[Mu]BB^3+851968 gI0^4 \[Mu]BB^4-3407872 gI0^3 gJ0 \[Mu]BB^4+5111808 gI0^2 gJ0^2 \[Mu]BB^4-3407872 gI0 gJ0^3 \[Mu]BB^4+851968 gJ0^4 \[Mu]BB^4)^3+(-65536 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-1179648 (5 A-4 gI0 \[Mu]BB) (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)+1769472 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)^2+1769472 (5 A-4 gI0 \[Mu]BB)^2 (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+589824 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4))^2))^(1/3))-(-(5 A-4 gI0 \[Mu]BB)^3+1/2 (5 A-4 gI0 \[Mu]BB) (-109 A^2-80 A gI0 \[Mu]BB-40 A gJ0 \[Mu]BB+28 gI0^2 \[Mu]BB^2+40 gI0 gJ0 \[Mu]BB^2-20 gJ0^2 \[Mu]BB^2)+1/2 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3))/(4 \[Sqrt](1/4 (5 A-4 gI0 \[Mu]BB)^2+1/24 (-109 A^2-80 A gI0 \[Mu]BB-40 A gJ0 \[Mu]BB+28 gI0^2 \[Mu]BB^2+40 gI0 gJ0 \[Mu]BB^2-20 gJ0^2 \[Mu]BB^2)+1/8 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)+(256 2^(1/3) (1009 A^4-476 A^3 gI0 \[Mu]BB+476 A^3 gJ0 \[Mu]BB+272 A^2 gI0^2 \[Mu]BB^2-544 A^2 gI0 gJ0 \[Mu]BB^2+272 A^2 gJ0^2 \[Mu]BB^2-52 A gI0^3 \[Mu]BB^3+156 A gI0^2 gJ0 \[Mu]BB^3-156 A gI0 gJ0^2 \[Mu]BB^3+52 A gJ0^3 \[Mu]BB^3+13 gI0^4 \[Mu]BB^4-52 gI0^3 gJ0 \[Mu]BB^4+78 gI0^2 gJ0^2 \[Mu]BB^4-52 gI0 gJ0^3 \[Mu]BB^4+13 gJ0^4 \[Mu]BB^4))/(3 (-65536 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-1179648 (5 A-4 gI0 \[Mu]BB) (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)+1769472 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)^2+1769472 (5 A-4 gI0 \[Mu]BB)^2 (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+589824 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+\[Sqrt](-4 (66125824 A^4-31195136 A^3 gI0 \[Mu]BB+31195136 A^3 gJ0 \[Mu]BB+17825792 A^2 gI0^2 \[Mu]BB^2-35651584 A^2 gI0 gJ0 \[Mu]BB^2+17825792 A^2 gJ0^2 \[Mu]BB^2-3407872 A gI0^3 \[Mu]BB^3+10223616 A gI0^2 gJ0 \[Mu]BB^3-10223616 A gI0 gJ0^2 \[Mu]BB^3+3407872 A gJ0^3 \[Mu]BB^3+851968 gI0^4 \[Mu]BB^4-3407872 gI0^3 gJ0 \[Mu]BB^4+5111808 gI0^2 gJ0^2 \[Mu]BB^4-3407872 gI0 gJ0^3 \[Mu]BB^4+851968 gJ0^4 \[Mu]BB^4)^3+(-65536 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-1179648 (5 A-4 gI0 \[Mu]BB) (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)+1769472 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)^2+1769472 (5 A-4 gI0 \[Mu]BB)^2 (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+589824 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4))^2))^(1/3))+(1/(768 2^(1/3)))((-65536 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-1179648 (5 A-4 gI0 \[Mu]BB) (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)+1769472 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)^2+1769472 (5 A-4 gI0 \[Mu]BB)^2 (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+589824 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+\[Sqrt](-4 (66125824 A^4-31195136 A^3 gI0 \[Mu]BB+31195136 A^3 gJ0 \[Mu]BB+17825792 A^2 gI0^2 \[Mu]BB^2-35651584 A^2 gI0 gJ0 \[Mu]BB^2+17825792 A^2 gJ0^2 \[Mu]BB^2-3407872 A gI0^3 \[Mu]BB^3+10223616 A gI0^2 gJ0 \[Mu]BB^3-10223616 A gI0 gJ0^2 \[Mu]BB^3+3407872 A gJ0^3 \[Mu]BB^3+851968 gI0^4 \[Mu]BB^4-3407872 gI0^3 gJ0 \[Mu]BB^4+5111808 gI0^2 gJ0^2 \[Mu]BB^4-3407872 gI0 gJ0^3 \[Mu]BB^4+851968 gJ0^4 \[Mu]BB^4)^3+(-65536 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-1179648 (5 A-4 gI0 \[Mu]BB) (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)+1769472 (1083 A^3-604 A^2 gI0 \[Mu]BB+168 A^2 gJ0 \[Mu]BB-44 A gI0^2 \[Mu]BB^2-232 A gI0 gJ0 \[Mu]BB^2+36 A gJ0^2 \[Mu]BB^2-16 gI0^3 \[Mu]BB^3+160 gI0^2 gJ0 \[Mu]BB^3-80 gI0 gJ0^2 \[Mu]BB^3)^2+1769472 (5 A-4 gI0 \[Mu]BB)^2 (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4)+589824 (109 A^2+80 A gI0 \[Mu]BB+40 A gJ0 \[Mu]BB-28 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (-4095 A^4+13440 A^3 gI0 \[Mu]BB+3888 A^3 gJ0 \[Mu]BB-3080 A^2 gI0^2 \[Mu]BB^2-3504 A^2 gI0 gJ0 \[Mu]BB^2+3096 A^2 gJ0^2 \[Mu]BB^2-704 A gI0^2 gJ0 \[Mu]BB^3-1152 A gI0 gJ0^2 \[Mu]BB^3+576 A gJ0^3 \[Mu]BB^3-240 gI0^4 \[Mu]BB^4+704 gI0^3 gJ0 \[Mu]BB^4+224 gI0^2 gJ0^2 \[Mu]BB^4-576 gI0 gJ0^3 \[Mu]BB^4+144 gJ0^4 \[Mu]BB^4))^2))^(1/3)))))

Цитата:

пример упрощается так же хорошо даже при простом разложении по степеням gI0, gJ0:

то, что оно гораздо компактнее - это очень хорошо, потому что предыдущий код весьма сложен, всё-таки там целый алгоритм уже. Но то, что по степеням раскладывает - это лишь "совпадение", т.е. оно и в предыдущем варианте тоже могло по разным элементам раскладывать, я пробовал. Просто сам факт хоть какого-то разбиения заставляет Математику забыть о том, что надо упрощать между слагаемыми и она берётся упрощать только одно слагаемое. На этом и выигрышь, слава богу это помогает.

Цитата:

Assuming[A > 0, Simplify@Collect[expr, {gI0, gJ0}, FullSimplify]]

выполнялось 87 с.

Вообще, с таймингом я замучился отгадывать, как он должен работать и что эти цифры значат. Видимо когда 4 с было, это уже из кэша выгребалось. Как-то у математики по-разному эти цифры выскакивают. Сейчас вот код со smartCollect выдал 226 с на первый запуск, второй опять дал 4 с, но видимо это кэш? не знаю, как отмерить так, чтобы и не сырой запуск, когда у неё не всё подгружено, и чтобы она из кэша не брала, а считала по-честному. Потому что цифры дико отличаются. Например повторный запуск такой команды

Код:

Assuming[A > 0, Simplify@Collect[expr, {\[Mu]BB}, FullSimplify]] // Timing

даёт 0 с. А исходной по {gI0, gJ0} повторно даёт 0.3 с. Т.е. совсем не сопоставимые цифры с первыми запусками, когда формула по чеснаку сворачивается.

Но бог с этим, несколько рабочих вариантов есть - это очень хорошо, теперь понятно пространство действий, выбор функций, если опять будет что-то неподъёмное к упрощению.

Кстати, там можно вместо gI0, gJ0 втыкать разные члены и их комбинации, время выполнения будет варьироваться. В данной задаче я прилип к конкретной комбинации потому, что в исходном выхлопе термы (не обязательно полинома, но некоторой "сборки") группируются по (gI0 - gJ0) \[Mu]BB. Но похоже Мат-ке лишь бы хоть как-то разбивать, чтобы всё выражение не хавать - в лецо не влезат =)

Ок, в связи с этим всем у меня возникла ещё более радикальная идея упрощать такие выражения, тоже из наблюдений за ручным упрощением: я брал любые составные константы при любых переменных и сокращал их Математикой вручную - исключительно быстро и FullSimplify справляется без доп. усилий! Создаётся впечатление, что М. нужно обрубать любые варианты попытки анализа кросс-зависимостей между несколькими термами с переменными. Другими словами, если выделять список переменных (Variables[...]? CoefficientList[...]?) и скармливать его smartCollect, возможно упрощение станет гораздо быстрее, но что важнее - он может стать масштабируемым, т.е. не зависящим от длины выражения (от сложности, конечно, всё-равно будет зависить, но хотя бы не от кол-ва термов). На первый взгляд и существующий код должен справиться, я пока не проверил...

Это своеобразное семантическое разложение выражений, только вывернутое наизнанку: не по переменным, а по постоянным =)) Т.е. задача-то такая: раз константы являются проблемой, значит надо выделить все термы с константами, при которых есть хотя бы одна переменная, и упростить каждый из них, а затем упростить полученный результат и так делать до посинения. Это мысли вслух...

Добавлено:
в общем, "прошло 100 лет" (с) =))

уже часа три наверное жужжит, а воз и ныне там. Нет, она застряла. Если начну руками причёсывать, смогу уменьшить размер, но у меня таких ещё десяток, пожалуй несколько дней ушло бы. Потом это тесты, повторять это на реальном примере будет весьма болезненно.

Наверное на ночь запущую на более мощном компе с 16 ГБ оперативки, а то создаётся впечатление, что ей не хватает памяти. Хотя было и другое впечатление: когда ей её не хватает, она тупо выбрасывает ядро в ведро и расчёту конец. Так что не уверен, но раз не упала, видимо надежда есть, что она и это сможет упростить со временем. Только что дважды это не запустишь.

Фактически алгоритм упрощения приходится вручную отыскивать, а потом только думать над тем, как это вручную больше не делать =) Но пока я верю в незыблемость пошагового упрощения констант. Во всяком случае я даже не смел надеяться на упрощение, в которое вылился первый пример, что выше.

Насчёт уменьшения полиномиальной сложности проблемы: нет, не получается - фундаментальная карма.

Добавлено:
ок, у меня новая идея:
1) такого рода решения (это решения полиномиальных уравнений разных порядков посредством извлечения корней) всегда имеют вложенность именно корней. И это общий класс задач.
2) эти корни - основная причина тормозов и сложности компактификации.
3) попытка выделить константы с помощью CoefficientList и сгруппировать посредством Collect увенчается лишь частичным успехом, потому что невозможно одновременно сгруппировать по всем переменным - они линейно неразделимы.

Поэтому: чтобы упрощать такого рода решения эффективно, надо
1) выделить все подкоренные выражения уравнений
2) и упрощать их по одному.
3) а потом всё вместе упростить.

r_green

Цитата:

Жесть какая!

я вам по секрету скажу: есть ещё один

Но в 1824 Абель доказал невозможность её решения в общей форме путём извлечения радикалов. Т.е. при факторизации это приводит к нередуцируемым полиномиальным уравнениям 5-го порядка. И как бы на это дело завершается. Начинаются вещи, которых я не понимаю: поля Галуа, ля-ля и тополя. Через 2 сотни лет, т.е. совсем недавно, уже с помощью Математики, эту проблему решили, но построение полного аналитического решения сжирает 1ТБ (я говорю терабайт) оперативной памяти по заявлению авторов. Метод известный, но публикуется только в виде сборника того, как его делать, потому что этот ТБ используется для построения необходимых коэффициентов. Я даже приблизительно не знаю, упрощается ли то, что из этого должно вылезать. Но прогу по скриптам авторов я собрал (я сам неспособен даже понять, что она делает), потому что вот беда - как раз 5-го порядка мне и надо было бы решить. Но я плюнул конкретно на ту задачу (хотя кластер под него мне уже обещали =))) ), потому что скорее всего это нельзя будет выразить в какой-то публикуемой форме.

Но как сам факт, что упёрся в достаточно жёсткую планку, будоражит, конечно. Поэтому всё, что здесь приводится, на самом деле факторизуется до отдельных полиномов не выше 4-го порядка, поэтому Математика их хотя бы как-то хавает. Но можете иметь себе в виду, что это реальный предел вообще самого метода поиска корней путём извлечения радикалов. Страшнее уже не бывает!

А по ходу дела я пошёл другим путём

Те монстры теперь будут другим способом генериться, когда я не буду собирать в кучку то, чо Математика размазала по экрану, а просто заставлю её отдать мне наиболее общее решение, в виде коэффициентов, типа:

Код:

x /. Solve[a5 x^5 + a4 x^4 + a3 x^3 + a2 x^2 + a1 x^1 + a0 x^0 == 0, x];

здесь можете наглядно увидеть, что вот это она не может решать, а если обнулить a5, тогда уже сможет. И как раз выхлоп такой задачи вы видели наверху - 4ый порядок. Обнуляя дальше a4, a3 и т.п. получаем все главные формулы.

Вот, а дальше их можно свернуть, как я только что сделал руками с тем монстром выше (ну похожим, я уже не помню какой конкретно тот был): он уложился вот в такое (руками, я говорю

):

Код:

func = -((5 A)/4) - k8/2 - 1/2 Sqrt[k4/6 - (256 2^(1/3) k2)/(3 k7) - k7/(768 2^(1/3)) + (-9 k5 + 5 A (50 A^2 + k4 + 20 A k8))/(8 k8)]

rules = {
k1 -> 495 A^4 - 120 A^2 k8 - 16 k8^2,
k2 -> 189 A^4 + 90 A^2 k8 + 13 k8^2,
k4 -> 9 A^2 + 20 k9,
k5 -> 47 A^3 + 4 A k9,
k6 -> 2^16 (2187 k5^2 - 6075 A^2 k1 - 81 k1 k4 - k4^3 -
810 A k4 k5),
k7 -> (k6 + Sqrt[k6^2 - 2^50 k2^3])^(1/3),
k8 -> Sqrt[(25 A^2)/4 + k4/12 + (2^(25/3) k2)/(3 k7) + k7/(
768 2^(1/3))],
k9 -> ((gI0 - gJ0) \[Mu]BB)^2
};

одно подставляем в другое - и комп вешается. Я не знаю почему, но когда на последнем этапе я уже (с абсолютной проверкой каждого шага посредством "===" ) самые крохи компактифицировал, правила стали так плохо подставляться по итеративной подстановке //. что я так и не смог воспользоваться реконструированной формулой хоть как-нибудь. Это расстроило. Но до компактификации правил имелся промежуточный вариант, тоже небольшой, который прекрасно подставлялся обратно, тоже посредством //. :

Код:

tmpRules = {
k1 -> (495 A^4 - 120 A^2 gI0^2 \[Mu]BB^2 +
240 A^2 gI0 gJ0 \[Mu]BB^2 - 120 A^2 gJ0^2 \[Mu]BB^2 -
16 gI0^4 \[Mu]BB^4 + 64 gI0^3 gJ0 \[Mu]BB^4 -
96 gI0^2 gJ0^2 \[Mu]BB^4 + 64 gI0 gJ0^3 \[Mu]BB^4 -
16 gJ0^4 \[Mu]BB^4),
k2 -> (189 A^4 + 90 A^2 gI0^2 \[Mu]BB^2 -
180 A^2 gI0 gJ0 \[Mu]BB^2 + 90 A^2 gJ0^2 \[Mu]BB^2 +
13 gI0^4 \[Mu]BB^4 - 52 gI0^3 gJ0 \[Mu]BB^4 +
78 gI0^2 gJ0^2 \[Mu]BB^4 - 52 gI0 gJ0^3 \[Mu]BB^4 +
13 gJ0^4 \[Mu]BB^4),
k3 -> (12386304 A^4 + 5898240 A^2 gI0^2 \[Mu]BB^2 -
11796480 A^2 gI0 gJ0 \[Mu]BB^2 + 5898240 A^2 gJ0^2 \[Mu]BB^2 +
851968 gI0^4 \[Mu]BB^4 - 3407872 gI0^3 gJ0 \[Mu]BB^4 +
5111808 gI0^2 gJ0^2 \[Mu]BB^4 - 3407872 gI0 gJ0^3 \[Mu]BB^4 +
851968 gJ0^4 \[Mu]BB^4),
k4 -> 9 A^2 + 20 gI0^2 \[Mu]BB^2 - 40 gI0 gJ0 \[Mu]BB^2 +
20 gJ0^2 \[Mu]BB^2,
k5 -> (47 A^3 + 4 A gI0^2 \[Mu]BB^2 - 8 A gI0 gJ0 \[Mu]BB^2 +
4 A gJ0^2 \[Mu]BB^2),
k6 -> (-398131200 A^2 k1 - 5308416 k1 k4 - 65536 k4^3 -
53084160 A k4 k5 + 143327232 k5^2),
k7 -> (k6 + Sqrt[-4 k3^3 + k6^2])^(1/3),
k8 -> Sqrt[(25 A^2)/4 + k4/12 + (256 2^(1/3) k2)/(3 k7) + k7/(
768 2^(1/3))],
k9 -> ((gI0 - gJ0) \[Mu]BB)^2
};

Был смысл пытаться сделать это руками, потому что я знал, что бОльшей сложности не будет. Но мне нужна меньшая, потому что у меня десятки таких формул, между которыми есть связь, и она при индивидуальной их компактификации пропадает. Но если генерировать как выше описал, из общих формул, то должно работать на ура, я думаю. Но это всё заново переделывать - грустно конечно. Радует только, что крупнее ничего не будет.

Цитата:

a*b + a^2*b^2 + a^3*b^3 /. a^p_. b^p_. -> k^p

класс!! Огромное спасибо! Я за дол бал со!!! Сил нет. Потому что азы не выучил =((

Цитата:

{k^(1/3), 1/(k^(1/3))} /. k^Rational[1 | -1, 3] -> m

ого! и это мощно. А что это за пупырышек там вертикальный? Я такого ещё не видел. С этой проблемой я опытным путём справился: оказывается она различает всего 2 варианта при замене: либо это для неё в знаменателе, либо в числителе. За это я сделал два правила, которые прекрасно хаваются, но подставляют одну и ту же переменную:

Код:

k^(1/3) + 1/k^(1/3) /. {
1/k^(1/3) -> 1/m,
k^(1/3) -> m
}

ваш метод конечно в самый раз, спасибо!

vengr
а чего-то она странная какая-то. Сейчас попытался запустить, а у неё интерфейс какой-то странный =(( В общем, я так здохну - у мну все решения собираются в Математике, от начала постановки до результата, руками воодить такое через консоль (??) - я боюсь это геноцид.

Добавлено:
ах да, сам монстр-то - всё-таки это поменьше - тот задолбаюсь сворачивать...

Код:

expr3=-((5 A)/4)-1/2 \[Sqrt]((25 A^2)/4+1/24 (-9 A^2-20 gI0^2 \[Mu]BB^2+40 gI0 gJ0 \[Mu]BB^2-20 gJ0^2 \[Mu]BB^2)+1/8 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)+(256 2^(1/3) (189 A^4+90 A^2 gI0^2 \[Mu]BB^2-180 A^2 gI0 gJ0 \[Mu]BB^2+90 A^2 gJ0^2 \[Mu]BB^2+13 gI0^4 \[Mu]BB^4-52 gI0^3 gJ0 \[Mu]BB^4+78 gI0^2 gJ0^2 \[Mu]BB^4-52 gI0 gJ0^3 \[Mu]BB^4+13 gJ0^4 \[Mu]BB^4))/(3 (-65536 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-53084160 A (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)+143327232 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)^2-398131200 A^2 (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)-5308416 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)+\[Sqrt](-4 (12386304 A^4+5898240 A^2 gI0^2 \[Mu]BB^2-11796480 A^2 gI0 gJ0 \[Mu]BB^2+5898240 A^2 gJ0^2 \[Mu]BB^2+851968 gI0^4 \[Mu]BB^4-3407872 gI0^3 gJ0 \[Mu]BB^4+5111808 gI0^2 gJ0^2 \[Mu]BB^4-3407872 gI0 gJ0^3 \[Mu]BB^4+851968 gJ0^4 \[Mu]BB^4)^3+(-65536 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-53084160 A (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)+143327232 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)^2-398131200 A^2 (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)-5308416 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4))^2))^(1/3))+1/(768 2^(1/3)) (-65536 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-53084160 A (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)+143327232 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)^2-398131200 A^2 (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)-5308416 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)+\[Sqrt](-4 (12386304 A^4+5898240 A^2 gI0^2 \[Mu]BB^2-11796480 A^2 gI0 gJ0 \[Mu]BB^2+5898240 A^2 gJ0^2 \[Mu]BB^2+851968 gI0^4 \[Mu]BB^4-3407872 gI0^3 gJ0 \[Mu]BB^4+5111808 gI0^2 gJ0^2 \[Mu]BB^4-3407872 gI0 gJ0^3 \[Mu]BB^4+851968 gJ0^4 \[Mu]BB^4)^3+(-65536 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-53084160 A (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)+143327232 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)^2-398131200 A^2 (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)-5308416 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4))^2))^(1/3))-1/2 \[Sqrt]((25 A^2)/2+1/6 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)-(256 2^(1/3) (189 A^4+90 A^2 gI0^2 \[Mu]BB^2-180 A^2 gI0 gJ0 \[Mu]BB^2+90 A^2 gJ0^2 \[Mu]BB^2+13 gI0^4 \[Mu]BB^4-52 gI0^3 gJ0 \[Mu]BB^4+78 gI0^2 gJ0^2 \[Mu]BB^4-52 gI0 gJ0^3 \[Mu]BB^4+13 gJ0^4 \[Mu]BB^4))/(3 (-65536 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-53084160 A (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)+143327232 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)^2-398131200 A^2 (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)-5308416 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)+\[Sqrt](-4 (12386304 A^4+5898240 A^2 gI0^2 \[Mu]BB^2-11796480 A^2 gI0 gJ0 \[Mu]BB^2+5898240 A^2 gJ0^2 \[Mu]BB^2+851968 gI0^4 \[Mu]BB^4-3407872 gI0^3 gJ0 \[Mu]BB^4+5111808 gI0^2 gJ0^2 \[Mu]BB^4-3407872 gI0 gJ0^3 \[Mu]BB^4+851968 gJ0^4 \[Mu]BB^4)^3+(-65536 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-53084160 A (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)+143327232 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)^2-398131200 A^2 (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)-5308416 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4))^2))^(1/3))-1/(768 2^(1/3)) (-65536 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-53084160 A (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)+143327232 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)^2-398131200 A^2 (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)-5308416 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)+\[Sqrt](-4 (12386304 A^4+5898240 A^2 gI0^2 \[Mu]BB^2-11796480 A^2 gI0 gJ0 \[Mu]BB^2+5898240 A^2 gJ0^2 \[Mu]BB^2+851968 gI0^4 \[Mu]BB^4-3407872 gI0^3 gJ0 \[Mu]BB^4+5111808 gI0^2 gJ0^2 \[Mu]BB^4-3407872 gI0 gJ0^3 \[Mu]BB^4+851968 gJ0^4 \[Mu]BB^4)^3+(-65536 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-53084160 A (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)+143327232 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)^2-398131200 A^2 (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)-5308416 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4))^2))^(1/3)-(-125 A^3+5/2 A (-9 A^2-20 gI0^2 \[Mu]BB^2+40 gI0 gJ0 \[Mu]BB^2-20 gJ0^2 \[Mu]BB^2)+9/2 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2))/(4 \[Sqrt]((25 A^2)/4+1/24 (-9 A^2-20 gI0^2 \[Mu]BB^2+40 gI0 gJ0 \[Mu]BB^2-20 gJ0^2 \[Mu]BB^2)+1/8 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)+(256 2^(1/3) (189 A^4+90 A^2 gI0^2 \[Mu]BB^2-180 A^2 gI0 gJ0 \[Mu]BB^2+90 A^2 gJ0^2 \[Mu]BB^2+13 gI0^4 \[Mu]BB^4-52 gI0^3 gJ0 \[Mu]BB^4+78 gI0^2 gJ0^2 \[Mu]BB^4-52 gI0 gJ0^3 \[Mu]BB^4+13 gJ0^4 \[Mu]BB^4))/(3 (-65536 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-53084160 A (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)+143327232 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)^2-398131200 A^2 (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)-5308416 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)+\[Sqrt](-4 (12386304 A^4+5898240 A^2 gI0^2 \[Mu]BB^2-11796480 A^2 gI0 gJ0 \[Mu]BB^2+5898240 A^2 gJ0^2 \[Mu]BB^2+851968 gI0^4 \[Mu]BB^4-3407872 gI0^3 gJ0 \[Mu]BB^4+5111808 gI0^2 gJ0^2 \[Mu]BB^4-3407872 gI0 gJ0^3 \[Mu]BB^4+851968 gJ0^4 \[Mu]BB^4)^3+(-65536 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-53084160 A (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)+143327232 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)^2-398131200 A^2 (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)-5308416 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4))^2))^(1/3))+1/(768 2^(1/3)) (-65536 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-53084160 A (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)+143327232 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)^2-398131200 A^2 (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)-5308416 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)+\[Sqrt](-4 (12386304 A^4+5898240 A^2 gI0^2 \[Mu]BB^2-11796480 A^2 gI0 gJ0 \[Mu]BB^2+5898240 A^2 gJ0^2 \[Mu]BB^2+851968 gI0^4 \[Mu]BB^4-3407872 gI0^3 gJ0 \[Mu]BB^4+5111808 gI0^2 gJ0^2 \[Mu]BB^4-3407872 gI0 gJ0^3 \[Mu]BB^4+851968 gJ0^4 \[Mu]BB^4)^3+(-65536 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2)^3-53084160 A (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)+143327232 (47 A^3+4 A gI0^2 \[Mu]BB^2-8 A gI0 gJ0 \[Mu]BB^2+4 A gJ0^2 \[Mu]BB^2)^2-398131200 A^2 (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4)-5308416 (9 A^2+20 gI0^2 \[Mu]BB^2-40 gI0 gJ0 \[Mu]BB^2+20 gJ0^2 \[Mu]BB^2) (495 A^4-120 A^2 gI0^2 \[Mu]BB^2+240 A^2 gI0 gJ0 \[Mu]BB^2-120 A^2 gJ0^2 \[Mu]BB^2-16 gI0^4 \[Mu]BB^4+64 gI0^3 gJ0 \[Mu]BB^4-96 gI0^2 gJ0^2 \[Mu]BB^4+64 gI0 gJ0^3 \[Mu]BB^4-16 gJ0^4 \[Mu]BB^4))^2))^(1/3))));

кстати, покрутил тот фрагмент с Rational[...] - всё-равно оно работает только в двумя отдельными подстановками, если переменная бывает в знаменателе или числителе, даже с этой штукой. Приходится два правила держать, чтобы переменных не плодить.

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57