Re: Displaying Equations Symbolically and Numerically
- To: mathgroup at smc.vnet.net
- Subject: [mg114776] Re: Displaying Equations Symbolically and Numerically
- From: Jon McLoone <jonm at wolfram.co.uk>
- Date: Thu, 16 Dec 2010 05:51:51 -0500 (EST)
- References: <ieadkv$r9h$1@smc.vnet.net>
On Dec 15, 12:51 pm, Gregory Lypny <gregory.ly... at videotron.ca> wrote:
> Hello everyone,
>
> I would like to be able to display equations for my students in symbolic
> form on the left side and with the numbers plugged in on the right side
> but am not quite sure how to do it programmatically. Suppose my
> equation in "symbolic" form is
>
> sqrt(x^(a+b)) + c ln(d/e)
>
> I know I can make it look like real math by having it displayed as
> TraditionalForm. However, I also want to display the solution with
> particular values for the variable x and the parameters a, b, c, d, and
> e slotted in, something like
>
> sqrt(x^(a+b)) + c ln(d/e) = sqrt(9^(2+1)) + 4 ln(32/8) =
= answer
>
> to recognize that some students may be a little rusty at simplifying on
> the fly. Wrapping the whole package in Manipulate would put the icing
> on the cake.
>
> Any tips on how apply the appropriate styles would be most appreciated.
>
> Regards,
>
> Gregory
Try
ShowSubstitution[expr_, values_] := Row[{TraditionalForm[expr], " =
", HoldForm[expr] /. values, " = ", expr /. values, " = ",
N[expr /. values]}]
Then, for example...
ShowSubstitution[ Sqrt[x^(a + b)] + c Log[d/e], {a -> 2, b -> 3, c ->
5, d -> 8, e -> 2, x -> 5}]
You could then wrap manipulate around with
Manipulate[
ShowSubstitution[ Sqrt[x^(a + b)] + c Log[d/e], {a -> aval, b -> 3, c -
> 5, d -> 8, e -> 2, x -> 5}],
{aval,1,10,1}]