MathGroup Archive 2011

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

Search the Archive

Definite integral

  • To: mathgroup at
  • Subject: [mg116210] Definite integral
  • From: carlos at
  • Date: Sat, 5 Feb 2011 05:45:23 -0500 (EST)

Have problems getting Mathematica to compute this
definite integral (length of a parabola, for a graduate homework).
Only completes in reasonable time if theta=0; else freezes.
Any advice? Thanks.

ClearAll[theta,Ls,m,g,=CF=B5,d]; xhat=x/Ls; theta=Pi/6;
H=m*g*Ls^2/(8*d); epsilon=Simplify[m*g*Ls*Sin[theta]/H];
z=zhat*m*g*Sec[theta]*Ls^2/H; z=Simplify[z];
Print["z=",z]; dzdx=Simplify[D[z,x]];
Print["dzdx=",dzdx]; ds=Sqrt[1+dzdx^2];
L=Simplify[L,Ls>0&&L>0]; Print["L=",L//TraditionalForm];

  • Prev by Date: Simplification with custom axioms
  • Next by Date: Re: phase portraits
  • Previous by thread: Simplification with custom axioms
  • Next by thread: Re: Definite integral