       Re: Mathematica???

• To: mathgroup at smc.vnet.net
• Subject: [mg21631] Re: [mg21610] Mathematica???
• From: "David Park" <djmp at earthlink.net>
• Date: Tue, 18 Jan 2000 02:35:17 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Krzysztof,

A fun problem! But it takes a little work.

I put up a notebook, ElasticCollision.nb, at my web site which will produce the
animation. You can specify the masses, initial positions, initial velocities and
radii of the two balls and the maximum time for the animation starting at t = 0.

David Park

>
>I need to make animation showing two balls colliding with each other. The animation
can be onli in
>one dimension + time.
>It have to look like this
>1. O-----------><------------O
>
>2. ------------->OO<-----------
>
>3.   O<---------    -------->O
>
>m1*v1+m2*v2 = m1*v3+m2*v4
>&
>m1*(v1^2)/2 + m2*(v2^2)/2 = m1*(v3^2)/2 + m2*(v4^2)/2
>
>where:
>m1,m2 - mass of balls
>v1,v3 - velocity of 1st ball before and after collision
>v2,v4 - velocity of 2nd ball before and after collision
>
>I worked out:
>v3=(2*m2*v2+(m1-m2)*v1)/m1+m2
>v4=((v1 - v2)(m1+m2)+2*m2*v2+(m1-m2)*v1)/m1+m2
>time
>(I'm not sure about that)  t1 - before collision; t2 - after;
> t -complete time[0..99]
>position of balls before collision - r1,r2
>position of balls after collision - r3,4
>r0 - initial position
>r1=r0+(v1*t1)
>r2=r0-(v2*t2)
>r3=?
>r4=?
>
>and I do not know how to transmit it to Mathematica. I don't have this
>program in home, I can only use it in school so my time of useing it is
>limited & I can't experiment with it.Should I use Animate commend or
>any other?
>
>
>

```

• Prev by Date: Re: entering an equation
• Next by Date: Re: Question:Polar Field Plot
• Previous by thread: Mathematica???
• Next by thread: Flat, OneIdentity attributes