level 2
幸运的可微
楼主
在mma中利用Export导出的图片是这样的,无法调整大小,旁边还有东西,求教
导出式子是这样的:
graph = Plot[{\[Pi]r1, \[Pi]r2, \[Pi]r3, \[Pi]3}, {\[Eta], 0, 10},
PlotTheme -> "Scientific",
PlotStyle -> {Dashed, Thick, {Black, DotDashed}, {Red, Dotted}},
PlotLegends ->
Placed[{"制造商回收零售商利润", "零售商回收零售商利润", "第三方回收零售商利润",
"第三方回收第三方利润"}, {0.2, 0.4}],
FrameLabel -> {Style["消费者对CSR敏感系数\[Eta]", Bold, 12],
Style["零售商与第三方利润", Bold, 12]}];
Export["C:\\Users\\Administrator\\Documents\\graph.png",
Show[graph, ImageSize -> 400], ImageResolution -> 300]

2022年04月16日 08点04分
1
导出式子是这样的:
graph = Plot[{\[Pi]r1, \[Pi]r2, \[Pi]r3, \[Pi]3}, {\[Eta], 0, 10},
PlotTheme -> "Scientific",
PlotStyle -> {Dashed, Thick, {Black, DotDashed}, {Red, Dotted}},
PlotLegends ->
Placed[{"制造商回收零售商利润", "零售商回收零售商利润", "第三方回收零售商利润",
"第三方回收第三方利润"}, {0.2, 0.4}],
FrameLabel -> {Style["消费者对CSR敏感系数\[Eta]", Bold, 12],
Style["零售商与第三方利润", Bold, 12]}];
Export["C:\\Users\\Administrator\\Documents\\graph.png",
Show[graph, ImageSize -> 400], ImageResolution -> 300]
