Mathematica 与 复变函数

    数理方法是一门十分没有乐趣的课 数理方法是一门十分重要的课 隔壁核工的 去年老师挂了36个

复函数积分

    在复变函数中,只有解析函数的不定积分才有意义 命令
Integrate[f[z],{z,z1,z2}]
Integrate[z^2 + z + 4, {z, I + 2, 2*I + 5}]
42 + (167 I)/3

解析函数的展开

Series[f[z],{z,z0,n}]
*
参数n表示展开式只显示到自变量z的第n次幂
*
In Series[Sin[z]/z, {z, I, 5}]
Out

In Series[1/(z^3 + 2*z^2 + 5*z + 6), {z, I, 5}]
Out

复级数的收敛判断

Sum[n*I, {n, 1, Infinity}]

Sum[I/n^2, {n, 1, Infinity}]

复函数的分解

    将复变函数f(z)分解为实部和虚部
ComplexExpand[Sin[x + y*I]]

验证柯西定理

Integrate[z^2 + z + 4, {z, I + 2, 2*I + 5, 6, I + 2}]
0

留数计算

    Residue[f[z],{z, z0}]指令
Residue[Sin[z]/(z*(z - 1)), {z, 0}]
0
Residue[Sin[z]/(z*(z - 1)), {z, 1}]
Sin[1]


    乐,复变函数压根写不出来 所以复变函数还有个可视化的问题,可视化的命令是ComplexPlot3D

复变函数可视化

ComplexPlot3D

ComplexPlot3D[E^z, {z, -1 - I , 1 + I }, BoxRatios -> {1, 1, 1}, 
 PlotRange -> {
         
  {-[Pi], [Pi]}, {-[Pi], [Pi]}, {0, 2 [Pi]}}]

三个坐标轴分别表示 自变量的实部 虚部 和 因变量的模长,颜色表示因变量的辐角

ComplexPlot

ComplexPlot[E^z, {z, -[Pi] - I [Pi], [Pi] + I [Pi]}]
    坐标表示 自变量的实部与虚部 透明度表示因变量的模长与辐角

奇点

ComplexPlot[(z + 5)^2/((z - 1 - I) (z - 0.5 - 0.5 I)^2), {z, 0, 2 + 2 I}, 
 ColorFunction -> None]
    明显的 0.5+0.5I处有两个旋,是二阶的极点 1+I 处有一个旋,是一阶的极点

本性奇点

ComplexPlot[E^(1/z), {z, -1 - I , 1 + I}, ColorFunction -> None]
经验分享 程序员 微信小程序 职场和发展