Question: What i will do if after running a program, it shows:The length of ouput exceeds 1000000?

 

NULL

restart

 

With(LinearAlgebra):

 

q := a*mu^4+b*mu^3+d*mu^2+e*mu+f = 0:

 

sol := solve(a*mu^4+b*mu^3+d*mu^2+e*mu+f = 0, mu):

 

S1 := allvalues(sol):

 

PARAM := [a = -(1/16)*(1296*Psi^(19/3)-2124*Psi^(17/3)+8448*Psi^(11/3)-336*Psi^4-2304*Psi^(13/3)-672*Psi^5-3840*Psi^(8/3)-180*Psi^7+2304*Psi^(10/3))/((-4+Psi^(2/3))*c^2), b = -(1/16)*(-648*Psi^(19/3)-4608*Psi^(10/3)+90*Psi^7+1062*Psi^(17/3)+7680*Psi^(8/3)+672*Psi^4-16896*Psi^(11/3)-600*Psi^5+8064*Psi^(13/3))/((-4+Psi^(2/3))*c^2), d = -(1/16)*(144*Psi^4+2304*Psi^(8/3)-1152*Psi^(10/3))/(-4+Psi^(2/3))-(1/16)*(-480*Psi^(14/3)-1152*Psi^(5/3)+96*Psi^(16/3)+90*Psi^(17/3)-22720*Psi^(8/3)-5690*Psi^(11/3)+6144*Psi+1024*Psi^(4/3)-2040*Psi^(13/3)-2048-1584*Psi^4+13752*Psi^(10/3)-3456*Psi^2+30024*Psi^3-3040*Psi^(7/3)+48*Psi^5+512*Psi^(2/3))/((-4+Psi^(2/3))*c^2), e = -(1/16)*(-144*Psi^4-2304*Psi^(8/3)+1152*Psi^(10/3))/(-4+Psi^(2/3))-(1/16)*(18880*Psi^(8/3)+3456*Psi^2-1024*Psi^(4/3)+1248*Psi^4+1152*Psi^(5/3)+252*Psi^5-512*Psi^(2/3)-29700*Psi^3-1992*Psi^(13/3)-45*Psi^(17/3)+480*Psi^(14/3)-6144*Psi-96*Psi^(16/3)-11448*Psi^(10/3)+14093*Psi^(11/3)+2464*Psi^(7/3)+2048)/((-4+Psi^(2/3))*c^2), f = -(1/16)*(576*Psi^2-1536*Psi-256*Psi^(2/3)-144*Psi^(8/3)+1024+384*Psi^(5/3))/(-4+Psi^(2/3))-(1/16)*(-6144+7040*Psi+864*Psi^(8/3)+96*Psi^2-2304*Psi^(5/3)-14208*Psi^(4/3)+5760*Psi^(7/3)+8704*Psi^(1/3)-1440*Psi^3+1536*Psi^(2/3))/((-4+Psi^(2/3))*c^2)]:

 

``

 

S2 := eval(S1, PARAM):

 

``

 

``

 

``

 

 

``

``

 



Download relativistic_59.mw

Please Wait...