Advertisement
Guest User

Untitled

a guest
Nov 25th, 2014
139
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. K[v_,x_Real,s_Real,t_Real]:=
  2. Module[{p,X=x,S=s,T=t}, NIntegrate[v[X,p],{p,S,T}]]
  3.  
  4. J[v_,x_Real,t_Real]:=
  5. Module[{q,X=x,T=t},NIntegrate[K[v,X,q,T],{q,0,T}]]
  6.  
  7. v[x_Real,t_Real]:=Module[{X=x,T=t},X+T]
  8.  
  9. w[x_Real,t_Real]:=Module[{X=x,T=t},J[v,X,T]]
  10.  
  11. Plot[w[x,1],{x,-10,10}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement