Re: Weird trigonometric integral and Simplification question
- To: mathgroup at smc.vnet.net
- Subject: [mg31789] Re: [mg31777] Weird trigonometric integral and Simplification question
- From: BobHanlon at aol.com
- Date: Sun, 2 Dec 2001 04:25:05 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 2001/12/1 4:50:18 AM, bta at attewode.com writes:
>Simplification question
>
> If I set lambda=(1+Sqrt[5])/2, and then ask Mathematica to
>Expand[lambda^7] or ask for any other power of lambda, Mathematica
>gives a nice result that I can easily rewrite by hand in the form a + b
>lambda where a and b are integers. Is there any way to get Mathematica
>to
>write the result in this form? (I'm not interested in the answer involving
>the Fibonacci sequence, I'm interested in learning how to manipulate
>expressions in Mathematica.)
Once you give lambda a value you cannot express anything literally in
terms of lambda since Mathematica will substitute the assigned value.
However, the symbol GoldenRatio which is equivalent to your lambda
can be used
{GoldenRatio, FunctionExpand[GoldenRatio]}
{GoldenRatio, (1/2)*(1 + Sqrt[5])}
Clear[f];
f[n_Integer?NonNegative] :=
Module[{a,b, lambda = (1+Sqrt[5])/2, soln1, soln2},
Off[Solve::svars];
soln1 = FullSimplify[Solve[a+b*lambda == lambda^n, {a,b}][[1]]];
soln2 =
Solve[Coefficient[FullSimplify[a /. soln1 /. Sqrt[5] -> x], x] == 0,
b][[1]];
On[Solve::svars];
Simplify[a+b*GoldenRatio /. Join[soln1 /. soln2, soln2]]];
f[7]
8 + 13*GoldenRatio
Table[{GoldenRatio^n,"==", t=f[n],
FullSimplify[GoldenRatio^n - t]\[Equal]0}, {n, 0, 7}]//TableForm
>
> Similarly if I ask Mathematica for Inverse[{{a,b},{c,d}}] it gives
>a
>nice result, but how do I get it to factor out a d-b c?
>
inv = Inverse[{{a,b},{c,d}}]
If you factor something out of a matrix, Mathematica will immediately
carry out the multiplication or division. You can use an undefined
operator to delay the operations
CircleTimes[(t=Denominator[inv[[1,1]]]) * inv, 1/t]
inv == Times@@%
Bob Hanlon
Chantilly, VA USA