There are actually a couple of ways of doing this. My favorite method is to
use a package called 'scifac' which includes a method called 'gcfac.'
Sometimes it is helpful to declare a variable as 'mainvar,' but it is not
necessary here.
solution 1: as andre maute suggested.
---
(%i12) display2d:false$
(%i13) expr:
%e^(-sqrt(sqrt(73)-10)*%psi-sqrt(-sqrt(73)-10)*%psi)*((7*sqrt(73)+73)*f_6_1(0)*%e^(2*sqrt(sqrt(73)-10)*%psi+sqrt(-sqrt(73)-10)*%psi)+((73-7*sqrt(73))*f_6_1(0)*%e^(2*sqrt(-sqrt(73)-10)*%psi)+(73-7*sqrt(73))*f_6_1(0))*%e^(sqrt(sqrt(73)-10)*%psi)+(7*sqrt(73)+73)*f_6_1(0)*%e^(sqrt(-sqrt(73)-10)*%psi))/292$
(%i14) ratsimp(expr/f_6_1(0)) * f_6_1(0);
(%o14) f_6_1(0)*%e^(-sqrt(sqrt(73)-10)*%psi-sqrt(-sqrt(73)-10)*%psi)
*((7*sqrt(73)+73)*%e^(2*sqrt(sqrt(73)-10)*%psi
+sqrt(-sqrt(73)-10)*%psi)
+((73-7*sqrt(73))*%e^(2*sqrt(-sqrt(73)-10)*%psi)
-7*sqrt(73)+73)
*%e^(sqrt(sqrt(73)-10)*%psi)
+(7*sqrt(73)+73)*%e^(sqrt(-sqrt(73)-10)*%psi))
Solution 2, there is actually a special package for this kind of
simplification:
display2d:false$
(%i15) expr:
%e^(-sqrt(sqrt(73)-10)*%psi-sqrt(-sqrt(73)-10)*%psi)*((7*sqrt(73)+73)*f_6_1(0)*%e^(2*sqrt(sqrt(73)-10)*%psi+sqrt(-sqrt(73)-10)*%psi)+((73-7*sqrt(73))*f_6_1(0)*%e^(2*sqrt(-sqrt(73)-10)*%psi)+(73-7*sqrt(73))*f_6_1(0))*%e^(sqrt(sqrt(73)-10)*%psi)+(7*sqrt(73)+73)*f_6_1(0)*%e^(sqrt(-sqrt(73)-10)*%psi))/292$
(%i16) load(scifac)$
(%i17) gcfac( expr );
(%o17) f_6_1(0)*%e^-((sqrt(-(sqrt(73)+10))+sqrt(sqrt(73)-10))*%psi)
*((7*sqrt(73)+73)*%e^((sqrt(-(sqrt(73)+10))
+2*sqrt(sqrt(73)-10))
*%psi)
+(73-7*sqrt(73))*%e^(sqrt(sqrt(73)-10)*%psi)
*(%e^(2*sqrt(-(sqrt(73)+10))*%psi)+1)
+(7*sqrt(73)+73)*%e^(sqrt(-(sqrt(73)+10))*%psi))
On Thu, Mar 8, 2012 at 12:59 AM, razif razali <razif66 at gmail.com> wrote:
>
> I have below equation
> ------------------
>
%e^(-sqrt(sqrt(73)-10)*%psi-sqrt(-sqrt(73)-10)*%psi)*((7*sqrt(73)+73)*f_6_1(0)*%e^(2*sqrt(sqrt(73)-10)*%psi+sqrt(-sqrt(73)-10)*%psi)+((73-7*sqrt(73))*f_6_1(0)*%e^(2*sqrt(-sqrt(73)-10)*%psi)+(73-7*sqrt(73))*f_6_1(0))*%e^(sqrt(sqrt(73)-10)*%psi)+(7*sqrt(73)+73)*f_6_1(0)*%e^(sqrt(-sqrt(73)-10)*%psi))/292;
> -------------
> and I want to simplify the equation so that it become (longEquation) x
f_6_1(0)
>
> can anyone give me some hint on how to do it?it seems fullratsimp,
tragsimp can't help me to do it..
>
> thanks in advanced
> --
> Regards,
>
> RAZIF RAZALI,
>
>
>
> _______________________________________________
> Maxima mailing list
> Maxima at math.utexas.edu
> http://www.math.utexas.edu/mailman/listinfo/maxima
>