MathGroup Archive 2006

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

Search the Archive

Re: General--Differential equation problem..


Clear[z];
With[{r=2},z=z/.DSolve[{z'[s] == 1/r,z[0]==0},z, s][[1]]];

Clear[x,y];
{x,y}={x,y}/.DSolve[
        {x'[s]==Cos[z[s]], y'[s]==Sin[z[s]],x[0]==0,y[0]==0}, {x, y}, s][[1]];

{x[s],y[s],z[s]}

{2*Sin[s/2], -2*(Cos[s/2] - 1), s/2}

With[{r=2},{x'[s] == Cos[z[s]], y'[s] == Sin[z[s]], z'[s] == 1/r}]

{True,True,True}

Table[ParametricPlot[{x[s], y[s]}, {s, 0, smax},
      PlotRange->{{-2.1,2.1},{-0.1,4.1}},Frame->True,Axes->False],
    {smax,Pi/6,4Pi,Pi/6}];


Bob Hanlon

---- randomtalk at gmail.com wrote: 
> hello, i was trying to solve a set of differential equations needed for a school project.. However, i'm completely new to mathematica 5.0, and i have downloaded trial, here is what i inputed into the software:
> 
> In[2]:=
> DSolve[{x'[s] == Cos[z], y'[s] == Sin[z], z'[s] == 1/r, r == 2}, {x, y, z}, s]
> 
> returns this error: DSolve::dvnoarg: The function z appears with no arguments.
> 
> Is there anything wrong with what i inputed? The differential equations came from this website: http://fy.chalmers.se/LISEBERG/eng/loop_pe.html
> 
> Link to the forum page for this post:
> http://www.mathematica-users.org/webMathematica/wiki/wiki.jsp?pageName=Special:Forum_ViewTopic&pid=10212#p10212
> Posted through http://www.mathematica-users.org [[postId=10212]]
> 
> 


  • Prev by Date: Re: Extract any diagonal from a square matrix...
  • Next by Date: Re: Extract any diagonal from a square matrix...
  • Previous by thread: Re: General--Differential equation problem..
  • Next by thread: Re: General--Differential equation problem..