Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

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

Search the Archive

Re: real valued solutions?

  • To: mathgroup at
  • Subject: [mg23492] Re: [mg23449] real valued solutions?
  • From: BobHanlon at
  • Date: Fri, 12 May 2000 22:54:30 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

In a message dated 5/10/2000 2:55:33 AM, robert.schuerhuber at writes:

>i guess my problem is rather simple to solve, but i counld't figure it
>out :-(
>i'd like to solve ordinary differential equations with constant
>coefficients with mathematica, where everything is real-valued. so the
>solution is real-valued, too. how can i avoid the complex exponentials
>in the solution?
>{{y[x]->Exp[-(-1)^2/3 x ( ... }}
>as the result instead of the real-valued solution y[x]=Exp[x/2]
>(Cos[Sqrt[3]/2 x]-1/Sqrt[3] Sin[Sqrt[3]/2 x).

y[x] /. Flatten[
        DSolve[{y''[x] - y'[x] + y[x] == 0, y[0] == 1, y'[0] == 0}, y[x], 
          x]] // ComplexExpand // Simplify

-(1/3)*E^(x/2)*(Sqrt[3]*Sin[(Sqrt[3]*x)/2] - 


BobHanlon at

  • Prev by Date: Q: make function from Developer` available in package
  • Next by Date: LinearProgramming vs. ConstrainedMin
  • Previous by thread: real valued solutions?
  • Next by thread: multi-unit notebooks