公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
995 浏览
\[Delta] = 0.7;
F[x_] := 2*\[Alpha]*(-1/8*x^-8 + 1/5*x^-5 - 1/2*x^-2 - 
      1/3*Log[x + 1] + 1/6*Log[(x - 1/2)^2 + 3/4] - 
      Sqrt[3]/3*ArcTan[(2*Sqrt[3]*(x - 1/2))/3]) + (1 - 
      2*\[Alpha])*(-1/4*x^-4 + x^-1 - 1/3*Log[x + 1] + 
      1/6*Log[(x - 1/2)^2 + 3/4] + 
      Sqrt[3]/3*ArcTan[(2*Sqrt[3]*(x - 1/2))/3]) - (-1/3*Log[x + 1] + 
     1/6*Log[(x - 1/2)^2 + 3/4] + 
     Sqrt[3]/3*ArcTan[(2*Sqrt[3]*(x - 1/2))/3]);
t2 = ContourPlot[
  F[((1 - \[Delta]^3 + m^3)/\[Delta]^3)^(1/3)] - F[m] == 0, {\[Alpha],
    0, 10}, {m, 0.7, 1}, FrameLabel -> {\[Alpha], m}]

结果图

MMA默认图形显示效果很差,看上去很模糊

Q1 怎么提高绘图默认分辨率,让图形看上去更精致一些,能想MATLAB一样的效果吗?

Q2  在正式论文里引用图像时该怎么处理(总感觉截图的话不太好),得到想要的大小和分辨率?

Q3  纵坐标标签 m 能调正吗?

分类:绘图 | 用户: keanhy (361 分)

1个回答

+1 投票
 
已采纳

Mathematica 在图上来说是很给力的。

下面是一些常用的参数设置以及相关的函数(详细说明请查询对应的帮助,在 Mma 中按 F1 即可):

  • PlotPoints  绘图精度
  • Style  文本样式
  • Rotate  旋转
  • FrameStyle  边框样式
  • ImageResolution  导出图像时指定的分辨率,单位:ppi
  • ImageSize  图像大小

例:

\[Delta] = 0.7;
F[x_, \[Alpha]_] := 
  2 \[Alpha] (-1/8 x^-8 + 1/5 x^-5 - 1/2 x^-2 - 1/3 Log[x + 1] + 
      1/6 Log[(x - 1/2)^2 + 3/4] - 
      Sqrt[3]/3 ArcTan[(2 Sqrt[3] (x - 1/2))/3]) + (1 - 
      2 \[Alpha]) (-1/4 x^-4 + x^-1 - 1/3 Log[x + 1] + 
      1/6 Log[(x - 1/2)^2 + 3/4] + 
      Sqrt[3]/3 ArcTan[(2 Sqrt[3] (x - 1/2))/3]) - (-1/3 Log[x + 1] + 
     1/6 Log[(x - 1/2)^2 + 3/4] + 
     Sqrt[3]/3 ArcTan[(2 Sqrt[3] (x - 1/2))/3]);
t2 = ContourPlot[
  F[((1 - \[Delta]^3 + m^3)/\[Delta]^3)^(1/3), \[Alpha]] - 
    F[m, \[Alpha]] == 0,
  {\[Alpha], 0, 10},
  {m, 0.7, 1},
  FrameLabel -> {Style["\[Alpha]", Bold, 16], 
    Rotate[Style["m", Bold, 16], -Pi/2]},(*Rotate旋转*)
  FrameStyle -> Directive[12, FontFamily -> "Arial", Black],(*边框样式*)
  Background -> White,
  PlotPoints -> 50,(*绘图精度,50已经是比较大的值了*)
  ImageSize -> {500, 500}(*图像尺寸,单位:像素*)]
Export["D:/t2.png", t2, ImageResolution -> 220]
(*ImageResolution:图像分辨率,在Word中一般为:220ppi,96ppi,72ppi,如果是打印的话就设置为220ppi\
*)

 

用户: 野鹤 (5.0k 分)
采纳于 用户:keanhy
O(∩_∩)O谢谢!
...