Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'problem with the "interpolating function"' topicStudent Support Forum > General > "problem with the "interpolating function""

Next Comment >Help | Reply To Topic
Author Comment/Response
Tomce
09/24/08 1:58pm

I have a problem getting numerical values of interpolating function, which is a solution of a system of differential equations

here is a copy/paste of .nb file:

s0 = 0.25*Pi;
p0 = 0.1*Pi;

Rez = NDSolve[
{a''[s] == 0.5*c[s]*Sin[a[s]],
c'[s] == 0,
x'[s] == Cos[a[s]],
a[0] == 0,
a[s0] == p0,
a'[0] == 0,
x[0] == 0},

{a[s], x[s], c[s]},

{s, 0, s0},

Method -> "Shooting"
];

a[s0]
a[s0] /. Rez
a[s0] /. First[Rez]
a[N[s0]]
a[N[s0]] /. Rez
a[N[s0]] /. First[Rez]
N[a[s0]] /. Rez
N[a[s0] /. First[Rez]]
Evaluate[a[s0] /. Rez]

Plot[a[s] /. Rez, {s, 0, s0}]
Plot[x[s] /. Rez, {s, 0, s0}]
Plot[c[s] /. Rez, {s, 0, s0}]


Neither of
a[s0]
a[s0] /. Rez
a[s0] /. First[Rez]
a[N[s0]]
a[N[s0]] /. Rez
a[N[s0]] /. First[Rez]
N[a[s0]] /. Rez
N[a[s0] /. First[Rez]]
Evaluate[a[s0] /. Rez]
gives me numerical value of function a in point s0. The "Plot" command however successfully draws all three functions. Please help me.

P.S. I'm using Mathematica 6.0.

URL: ,

Subject (listing for 'problem with the "interpolating function"')
Author Date Posted
problem with the "interpolating function" Tomce 09/24/08 1:58pm
Re: problem with the Xavier 09/25/08 4:51pm
Re: Re: problem with the Tomce 09/26/08 04:47am
Next Comment >Help | Reply To Topic