Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Plot intrinsic functions' topicStudent Support Forum > General > "Plot intrinsic functions"

Next Comment >Help | Reply To Topic
Author Comment/Response
DrWhoGo
03/15/13 10:15am

Hello,

could someone help me with the following problem?
I want to plot a intrinsic funtion as it is discribed in a book. I copied the code but it doesn't work the way it should. In fact it doesn't work at all. At least there is no error.

This function is supposed to plot the the function with the curvature "fun":

plotintrinsic[fun_, a_: 0, {c_: 0, d_: 0, theta0_: 0},
optsnd___, {smin_: - 10, smax_: 10}, optspp___] :=
ParametricPlot[
Module[{x, y, theta}, {x[t], y[t]} /.
NDSolve[{x'[ss] == Cos[theta[ss]],
y'[ss] == Sin[theta[ss]],
theta'[ss] == fun[ss],
x[a] == c, y[a] == d, theta[a] == theta0},
{x, y, theta}, {ss, smin, smax}, optsnd]] // Evaluate, {t,
smin, smax}, AspectRatio -> Automatic, optspp];

And this is how I use the function. The code is also a sample from the book:

plotintrinsic[(# + Sin[#]) &, 0, {0, 0, 0}, {-18, 18},
PlotPoints -> 80];

When I run it there is no plot. I use Version 8.0 of Mathematica.

Thank you all in advance!

URL: ,

Subject (listing for 'Plot intrinsic functions')
Author Date Posted
Plot intrinsic functions DrWhoGo 03/15/13 10:15am
Re: Plot intrinsic functions jf 03/15/13 11:18am
Next Comment >Help | Reply To Topic