level 1
xiaoqinjj
楼主
MMA12.2,在输出二维色图jpg中,正常应该输出几百kB的文件,但实际只输出一个1kB的空白文件,重新运行又可能正确输出,在输出一些简单的图形时较少遇到这种情况,改换tif文件输出也一样的概率性失败。画图这块的代码案例如下:
evlfpl = ListDensityPlot[
0.4*mnmdac[[j]]/Map[Mean, Map[Flatten, mnmdac]][[j]],
Mesh -> None, ColorFunction -> "SunsetColors",
PlotLabel -> "档" <> ToString[{j}],
ColorFunctionScaling -> False, AspectRatio -> 1.68/1,
FrameTicks -> {{24*Range[-1, 100], None}, {Automatic, None}},
DataRange -> {{obff, lfst}, {-24 + 0.0,
24*4 + 24.0}},
MaxPlotPoints -> 400, FrameLabel -> {"频率/Hz", "时间/Hour"},
ImageSize -> 400];
pkpl = Show[{NumberLinePlot[pkfrtb, Frame -> True,
FrameLabel -> {"频率/Hz", "时间/Hour"},
FrameTicks -> {{Table[{(m + 24 - 0.0)*6 + 1,
m}, {m, -24, 24*10, 24}],
None}, {Automatic, None}},
PlotLabel -> ((prpkmx + stnb - 1) obff)[[j]],
PlotRange -> {{0, lfst}, All},
PlotStyle -> {Black, PointSize[0.001]}, AspectRatio -> 1.68/1,
ImageSize -> 400],
ListPlot[Transpose[{sefrtb, Range[Length[setm]]}], Joined -> True,
PlotStyle -> {Thin, Red}, PlotMarkers -> {Automatic, 2.4},
PlotRange -> All]}];
evpkpl = GraphicsGrid[{{evlfpl, pkpl}}, Spacings -> -20];
Export["分档追踪" <> ToString[j] <> ".jpg", evpkpl,
ImageResolution -> 144];
想插入失败的图片但提示:高度超出限制。
2022年03月12日 10点03分
1
evlfpl = ListDensityPlot[
0.4*mnmdac[[j]]/Map[Mean, Map[Flatten, mnmdac]][[j]],
Mesh -> None, ColorFunction -> "SunsetColors",
PlotLabel -> "档" <> ToString[{j}],
ColorFunctionScaling -> False, AspectRatio -> 1.68/1,
FrameTicks -> {{24*Range[-1, 100], None}, {Automatic, None}},
DataRange -> {{obff, lfst}, {-24 + 0.0,
24*4 + 24.0}},
MaxPlotPoints -> 400, FrameLabel -> {"频率/Hz", "时间/Hour"},
ImageSize -> 400];
pkpl = Show[{NumberLinePlot[pkfrtb, Frame -> True,
FrameLabel -> {"频率/Hz", "时间/Hour"},
FrameTicks -> {{Table[{(m + 24 - 0.0)*6 + 1,
m}, {m, -24, 24*10, 24}],
None}, {Automatic, None}},
PlotLabel -> ((prpkmx + stnb - 1) obff)[[j]],
PlotRange -> {{0, lfst}, All},
PlotStyle -> {Black, PointSize[0.001]}, AspectRatio -> 1.68/1,
ImageSize -> 400],
ListPlot[Transpose[{sefrtb, Range[Length[setm]]}], Joined -> True,
PlotStyle -> {Thin, Red}, PlotMarkers -> {Automatic, 2.4},
PlotRange -> All]}];
evpkpl = GraphicsGrid[{{evlfpl, pkpl}}, Spacings -> -20];
Export["分档追踪" <> ToString[j] <> ".jpg", evpkpl,
ImageResolution -> 144];
想插入失败的图片但提示:高度超出限制。