MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: change of variables


You can try the following approach:

Let suppose you have the 1-D heat equation where the dimensional
temperature v is a function of time(t) and the spatial coordinate (x).
Here is the equation  where K is the thermal diffusivity

heatEqn := D[v[x, t], t] == K D[v[x, t], {x, 2}]

Now let us introduce the following dimensionless varaibles bases on a
temperature scale V, a length scale L , and a time scale T

η[x_] := x/L
Ï?[t_] := t/T
v[x, t] := Ï?[η[x], Ï?[t]]/Φ

Then evaluating

In[5]:=

heatEqn /. {x/L -> η, t/T -> Ï?}

Out[5]=

Derivative[0, 1][Ï?][η, Ï?]/(T*Φ) ==
  (K*Derivative[2, 0][Ï?][η, Ï?])/(L^2*Φ)

One can apply additional rules to simplify the resulting dimensionless
equation if needed.

Hope this helps,

Cheers

Brian

hussain.alqahtani at gmail.com wrote:
> Dear Members,
>
> I have a differential equation that i need to nondimensionalize.
> Therefore, i introduced a new nondimensional varibles and so that i get
> a nondimensional equation. I am wondering how can i do that in
> Mathematica?. For example if i have this term:
>
> K*D[v,{x,2}],
>
> my new nondimensional variables are:
>
> x*=x/L and v*=v/L,
>
> I can do that by hand, but since i have a huge number of equations, i
> rather prefer to use Mathematica.
>
> I appreciate any help in this regard, and many thanks in anticipation.
> 
> HMQ


  • Prev by Date: Re: Re: Converting decimal to/from IEEE hex format
  • Next by Date: Re: Graphics--Need Help: How to show legends for graphics under Show Command?
  • Previous by thread: change of variables
  • Next by thread: Too late to upgrade from 4.2 to 5.2....