Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- K[v_,x_Real,s_Real,t_Real]:=
- Module[{p,X=x,S=s,T=t}, NIntegrate[v[X,p],{p,S,T}]]
- J[v_,x_Real,t_Real]:=
- Module[{q,X=x,T=t},NIntegrate[K[v,X,q,T],{q,0,T}]]
- v[x_Real,t_Real]:=Module[{X=x,T=t},X+T]
- w[x_Real,t_Real]:=Module[{X=x,T=t},J[v,X,T]]
- Plot[w[x,1],{x,-10,10}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement