Guest User

Untitled

a guest
Dec 7th, 2017
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.19 KB | None | 0 0
  1. Clear[[Beta],[Alpha]]
  2. f[z_]:=[Pi]^2 Cot[([Pi] z [Alpha])^(1/2)]
  3. g[z_]:=f[z+(-([Pi]/2)+2 k [Pi])^2/([Pi] [Alpha])]
  4. res[k_]=Residue[FullSimplify[TrigToExp@g[z],k[Element]Integers],{z,0}]
Add Comment
Please, Sign In to add comment