| Author |
Comment/Response |
Bill Simpson
|
10/09/12 12:28pm
In[1]:= fsol[K_,δ_?NumericQ]:=NDSolve[{0.5*Derivative[2,0][u][x,t]+Derivative[0,1][u][x,t]== -Exp[-2 K t],u[-δ,t]==0,u[δ,t]==0,u[x,1]==0},u[x,t],{x,-δ,δ},{t,0,1}];
v=fsol[-1,1]/.{x->0,t->0}
Out[2]= {{u[0,0]->1.87402}}
In[3]:= w=v[[1,1,2]]
Out[3]= 1.87402
URL: , |
|