Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'plotting several interpolating functions' topicStudent Support Forum > General > "plotting several interpolating functions"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
Luka
03/09/13 11:58am

I think this solves my problem:

eq = Gx + D[Dif*\!\(
\*SubscriptBox[\(\[PartialD]\), \(x\)]\(n[x]\)\), x] -
Kr (n[x] - n0) == 0;
bcs = {n'[d] == 0, n[0] == n0*Exp[- V]};
d = 20*10^-6;
Gx = 10^19;
n0 = 10^21;
Dif = 4*10^-9;
Kr = 3.1*10^-9;
sol := {V,
NDSolve[{eq, bcs}, n[x], {x, 0, d}, MaxSteps -> 50000] [[1, 1, 2]]}
res = Table[sol, {V, 0, 0.7, 0.01}];
ListPlot[Table[res, {x, 0, d}]]

Is there any better solution?

Best regards,

Luka

URL: ,

Subject (listing for 'plotting several interpolating functions')
Author Date Posted
plotting several interpolating functions Luka 03/08/13 4:16pm
Re: plotting several interpolating functions Bill Simpson 03/08/13 9:13pm
Re: plotting several interpolating functions Bill Simpson 03/08/13 9:55pm
Re: plotting several interpolating functions Luka 03/09/13 11:58am
Re: plotting several interpolating functions Luka 03/10/13 03:13am
Re: Re: plotting several interpolating functions Bill Simpson 03/11/13 2:30pm
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic