MathGroup Archive 2012

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

Search the Archive

Re: Series Simplification - how to truncate the result ?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg127678] Re: Series Simplification - how to truncate the result ?
  • From: Rahul Chakraborty <rahul.6sept at gmail.com>
  • Date: Tue, 14 Aug 2012 04:25:02 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net

Dear all,


 I used Take command, but its not giving result.


 code as follows:

 (* Formula:        Subscript[F, e](x,t) = 1/2 (Subscript[C, 0] Subscript[d, 0])/(Subscript[d, 0]-x)^2*Subscript[V, 1]^2(t) - 1/2 (Subscript[C, 0] Subscript[d, 0])/(Subscript[d, 0]+x)^2*Subscript[V, 2]^2          *)

Clear[x,t,f];
c=4.06*(10^-4);
V[t]=Sqrt[2]*Subscript[V, p]*Sin[2Subscript[\[Omega], 0]t];
Subscript[V, 1][t] = 1+(c*V[t]);
r1 =Take[{Series[Subscript[V, 1][t],{1,(c*V[t]),2}]},2];
Subscript[V, 2] = 1;
z = (Subscript[d, 0]-x)^2;
y = Take[{Series[z,{Subscript[d, 0],0,2}]},2];                            (* Taylor expansion at x=0  *)                     
z1 = (Subscript[d, 0]+x)^2;
y1 = Take[{Series[z1,{Subscript[d, 0],0,2}]},2];                       (* Taylor expansion at x=0  *) 
a =  1/2*((Subscript[C, 0]*Subscript[d, 0])/y)*r1       //Simplify;
b = 1/2*((Subscript[C, 0]*Subscript[d, 0])/y1)*(Subscript[V, 2]^2)   //Simplify;
Subscript[F, e][x,t] =a-b

Kindly advice.


 Regards,

 rahul



  • Prev by Date: Re: Simplify
  • Next by Date: Re: Simplify
  • Previous by thread: Re: Series Simplification - how to truncate the result ?
  • Next by thread: Simplify