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 djmp at earthlink.net http://home.earthlink.net/~djmp/ > >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? > > >