Re: Three masses and four springs

Path	csiph.com!newsfeed.hal-mli.net!feeder3.hal-mli.net!newsfeed.hal-mli.net!feeder1.hal-mli.net!peer01.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nx02.iad01.newshosting.com!newshosting.com!newspump.sol.net!post2.nntp.sol.net!posts.news.twtelecom.net!nnrp3.twtelecom.net!not-for-mail
From	dale.jenkins8@gmail.com
Newsgroups	comp.soft-sys.math.mathematica
Subject	Re: Three masses and four springs
Date	Thu, 17 Apr 2014 09:10:41 +0000 (UTC)
Sender	steve@smc.vnet.net
Approved	Steven M. Christensen <steve@smc.vnet.net>, Moderator
Message-ID	<lio5qh$5kb$1@smc.vnet.net> (permalink)
References	<20140416074027.11A846A2B@smc.vnet.net> <CAEtRDSd9rg8t6X5=+wbqdqJzsPFfEEaShDR0v_7JVy1mtWXfPg@mail.gmail.com>
Lines	73
Organization	Time-Warner Telecom
NNTP-Posting-Date	17 Apr 2014 09:16:46 GMT
NNTP-Posting-Host	0e19daf1.news.twtelecom.net
X-Trace	DXC=i60FXi_V=hZIQ@m7RATcWVC_A=>8kQj6];[h;PUXBgbT?SWP;HjUf@VEFiONJ7[GoVP;4JbiY>o9T
X-Complaints-To	abuse@twtelecom.net
X-Received-Bytes	2500
X-Received-Body-CRC	3779071556
Xref	csiph.com comp.soft-sys.math.mathematica:16820

Show key headers only | View raw

Thanks a lot. Much appreciated.

RJ

From: Bob Hanlon
Sent: Wednesday, April 16, 2014 3:07 PM
To: Robert Jenkins
Cc: MathGroup
Subject: Re: Three masses and four springs

Use FullSimplify


DSolve[{
   -2*x1[t] + x2[t] == x1''[t],
   -2*x2[t] + x3[t] + x1[t] == x2''[t],
   -2*x3[t] + x2[t] == x3''[t],
   x1[0] == -1, x2[0] == 2, x3[0] == -1,
   x1'[0] == 0, x2'[0] == 0, x3'[0] == 0},
  {x1[t], x2[t], x3[t]}, t] //
FullSimplify


{{x1[t] -> (1/2)*
         ((-1 + Sqrt[2])*
              Cos[Sqrt[2 - Sqrt[2]]*
                  t] - (1 + Sqrt[2])*
              Cos[Sqrt[2 + Sqrt[2]]*
                  t]),
  x2[t] -> (1/2)*
    ((-(-2 + Sqrt[2]))*
              Cos[Sqrt[2 - Sqrt[2]]*
                  t] + (2 + Sqrt[2])*
              Cos[Sqrt[2 + Sqrt[2]]*
                  t]),
  x3[t] -> (1/2)*
    ((-1 + Sqrt[2])*
              Cos[Sqrt[2 - Sqrt[2]]*
                  t] - (1 + Sqrt[2])*
              Cos[Sqrt[2 + Sqrt[2]]*
                  t])}}





Bob Hanlon






On Wed, Apr 16, 2014 at 3:40 AM, Robert Jenkins =
<dale.jenkins8@gmail.com> wrote:

  The instruction
  DSolve[{-2*x1[t] + x2[t] == x1''[t], -2*x2[t] + x1[t] == =
x2''[t],
    x1[0] == -1, x2[0] == 2, x1'[0] == 0, x2'[0] == 0}, =
{x1, x2}, t]
  produces a simple solution. But I am surprised to find the three-mass =
version produces a mass of complication. Have I made a mistake?
  DSolve[{-2*x1[t] + x2[t] == x1''[t], -2*x2[t] + x3[t] + x1[t] =
==
     x2''[t], -2*x3[t] + x2[t] == x3''[t], x1[0] == -1, x2[0] =
== 2,
    x3[0] == -1, x1'[0] == 0, x2'[0] == 0, x3'[0] == 0}, =
{x1, x2, x3},
    t]

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar

Thread

Re: Three masses and four springs dale.jenkins8@gmail.com - 2014-04-17 09:10 +0000

csiph-web