SHARE
TWEET

Untitled

a guest Jun 19th, 2019 64 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. a = 5;
  2. b = .1;
  3. f = (1 + Exp[(k - a)]);
  4. B = f*(1/(z - (q^2 + k*q*x) + I*b) +
  5.     1/(z - (q^2 - k*q*x) + I*b));
  6. ListContourPlot[
  7. NIntegrate[Re[B], {x, -1, 1}, {k, -a, a}], {z, 0, 5,
  8.  1}, {q, 0, 5, 1}]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top