皮皮虾图形学

Clear["Global`*"];f[x_, y_] := (1 (2 x^2 + y^2))/2;g1 = Grad[f[x, y], {x, y}]得到其梯度场函数：{2 x, y}绘制其梯度场：\[Rho]1 = StreamPlot[{g1[[1]], g1[[2]]}, {x, -5, 5}, {y, -5, 5}]绘制这个隐函数  现在结合起来看下效果...

原因：主要是字体问题导致的，从原来的样式表继承一个新的样式表。将相应部分修改为中文字体样式。导出pdf的时候选择显示屏环境Printout，并选择这个新创建的样式就可以了。解决方案：将这个文件保存为CHDefault.nb 添加样式表使用这个就可以了。(* Content-type: application/vnd.wolfram.mathematica *)(*** Wolfram Note...