Skip to main content

How to export this PDF figure with a small size


I want to export a PDF figure with the following codes, but the size of the PDF is too big, about 1.5M. I hope the size can be around 100k. I have tried for a long time but can not find a good solution. Any help or suggestion will be highly appreciated!



\[Rho]2plus = {{0.2011205485336045077` + 
 1.`*^-6 I, -0.017422322154311026` - 
 0.508770348467936524` I, -0.01627481119236278` - 
 0.009599125271231317` I, 
0.00012377921551508936` - 
 0.0001037303194895626` I}, {-0.317422322154311026` + 
 0.008770348467936524` I, 0.5253584399150775` + 1.`*^-6 I, 
0.1810835129135062` - 0.050379441418388037` I, 
0.012122030783398718` - 
 0.00011053335415397864` I}, {-0.01627481119236278` + 

 0.009599125271231317` I, 
0.4810835129135062` + 0.050379441418388037` I, 
0.07251617971431137` + 1.`*^-6 I, 
0.011027619410833644` + 
 0.00549701145732366` I}, {0.20012377921551508936` + 
 0.0001037303194895626` I, 
0.012122030783398718` + 0.00011053335415397864` I, 
0.011027619410833644` - 0.00549701145732366` I, 
0.001004831837006529` + 1.`*^-6 I}};


\[Rho]2minus = {{0.005277185010322719` + 1.`*^-6 I, 
0.0010040157957586214` + 
 0.04371079428674348` I, -0.09005650743684472643` - 
 0.046221573555130006` I, -0.003643884304307673` - 
 0.001085378855037156` I}, {0.2010040157957586214` - 
 0.24371079428674348` I, 
0.0131515781501287` + 1.`*^-6 I, -0.1857896769310657` + 
 0.01114973388880884` I, 
0.008915832323651186` + 
 0.03176372686431984` I}, {0.5005650743684472643` + 

 0.046221573555130006` I, -0.0857896769310657` - 
 0.01114973388880884` I, 
0.07651833701845997` + 1.`*^-6 I, -0.0025963451307736015` - 
 0.034899274546212444` I}, {-0.003643884304307673` + 
 0.001085378855037156` I, 
0.208915832323651186` - 
 0.23176372686431984` I, -0.0025963451307736015` + 
 0.034899274546212444` I, 0.005052899821088675` + 1.`*^-6 I}};




figplus=GraphicsRow[
DiscretePlot3D[#@\[Rho]2plus[[i, j]], {i, 1, 4}, {j, 1, 4}, 
  BoxRatios -> {1., 1., .8}, ExtentSize -> 0.5, 
  PlotRange -> {{.5, 4.5}, {.5, 4.5}, {-.5, .526}}, 
  ColorFunction -> (Blend[{Hue[2/3], Hue[0]}, #] &), 
  ExtentElementFunction -> "ProfileCube", 
  Ticks -> {{{1, "A"}, {2, "B"}, {3, "C"}, {4, "D"}}, {{1, 
      "E"}, {2, "F"}, {3, "G"}, {4, "H"}}, Automatic}, 
  AxesEdge -> {{-1, -1}, {1, -1}, {1, 1}}, 

  FillingStyle -> Opacity[1], 
  LabelStyle -> 
   Directive[FontSize -> 12, FontFamily -> "Helvetica"], 
  Boxed -> True] & /@ {Re, Im} , ImageSize -> 500 ];



figminus =GraphicsRow[DiscretePlot3D[#@\[Rho]2minus[[i, j]], {i, 1, 4}, {j, 1, 4}, 
  BoxRatios -> {1., 1., .8}, ExtentSize -> 0.5, 
  PlotRange -> {{.5, 4.5}, {.5, 4.5}, {-.5, .523}}, 

  ColorFunction -> (Blend[{Hue[2/3], Hue[0]}, #] &), 
  ExtentElementFunction -> "ProfileCube", 
  Ticks -> {{{1, "A"}, {2, "B"}, {3, "C"}, {4, "D"}}, {{1, 
      "E"}, {2, "F"}, {3, "G"}, {4, "H"}}, Automatic}, 
  AxesEdge -> {{-1, -1}, {1, -1}, {1, 1}}, 
  FillingStyle -> Opacity[1], 
  LabelStyle -> 
   Directive[FontSize -> 12, FontFamily -> "Helvetica"], 
  Boxed -> True] & /@ {Re, Im} , ImageSize -> 500 ];
gg = Grid[{{figminus}, {figplus}}, Spacings -> {0, 0}]

Export["Fig8.pdf", gg, ImageResolution -> 600]

enter image description here




Comments

Post a Comment

Popular posts from this blog

plotting - How to draw lines between specified dots on ListPlot?

I would like to create a plot where I have unconnected dots and some connected. So far, I have figured out how to draw the dots. My code is the following: ListPlot[{{1, 1}, {2, 2}, {3, 3}, {4, 4}, {1, 4}, {2, 5}, {3, 6}, {4, 7}, {1, 7}, {2, 8}, {3, 9}, {4, 10}, {1, 10}, {2, 11}, {3, 12}, {4,13}, {2.5, 7}}, Ticks -> {{1, 2, 3, 4}, None}, AxesStyle -> Thin, TicksStyle -> Directive[Black, Bold, 12], Mesh -> Full] I have thought using ListLinePlot command, but I don't know how to specify to the command to draw only selected lines between the dots. Do have any suggestions/hints on how to do that? Thank you. Answer One possibility would be to use Epilog with Line : ListPlot[ {{1, 1}, {2, 2}, {3, 3}, {4, 4}, {1, 4}, {2, 5}, {3, 6}, {4, 7}, {1, 7}, {2, 8}, {3, 9}, {4, 10}, {1, 10}, {2, 11}, {3, 12}, {4, 13}, {2.5, 7}}, Ticks -> {{1, 2, 3, 4}, None}, AxesStyle -> Thin, TicksStyle -> Directive[Black, Bold, 12], Mesh -> Full, Epilog -> { Line[ ...
Post a Comment
Read more

list manipulation - Selecting multiple columns from a matrix?

Sample data: data = { {{2013, 1, 1}, 24.13, 167.67, 231.82}, {{2013, 1, 2}, 32.15, 170.92, 225.99}, {{2013, 1, 3}, 35.43, 172.68, 221.67}, {{2013, 1, 4}, 36.73, 173.05, 218.32}, {{2013, 1, 5}, 58.19, 165.96, 197.05}, {{2013, 1, 6}, 69.99, 163.50, 187.52}, {{2013, 1, 7}, 71.37, 154.21, 175.58}, {{2013, 1, 8}, 72.51, 149.66, 163.25}}; I want a DateListPlot with three graphs, so for a matrix formed by columns 1 and 2, one for columns 1 and 3, and 1 for columns 1 and 4. At the moment I'm using this code: data2 = Transpose[{data[[All, 1]], data[[All, 2]]}]; data3 = Transpose[{data[[All, 1]], data[[All, 3]]}]; data4 = Transpose[{data[[All, 1]], data[[All, 4]]}]; DateListPlot[{data2, data3, data4}, Joined -> True, Filling -> {3 -> {1}}] but I have a hunch that this can be done more efficiently. I don't like the Transpose s in particular. Any ideas? edit (for extra credit) What if I need to multiply the second column by 2, which in my solution is simp...
Post a Comment
Read more

calculus and analysis - Integral of the Sinc product

Let us consider the following integral $$ B_n = \int_0^\infty \prod_{k=1,3,5,\dots}^n\frac{\sin (x/k)}{x/k}dx $$ By definition, Sinc[x] == Sin[x]/x , therefore B[n_?OddQ] := Integrate[Product[Sinc[x/k], {k, 1, n, 2}], {x, 0, Infinity}] B /@ Range[1, 13, 2] {Pi/2, Pi/2, Pi/2, Pi/2, Pi/2, Pi/2, Pi/2} OK, everything is fine. But... B[15] 467807924713440738696537864469 Pi/935615849440640907310521750000 What's going on? Answer As Eckhard wrote in comments B[n] is the n-th Borwein integral . (The letter B was not accidental :) ) This funny properties of Borwein integrals is related to the Fourier transform of Sinc function FourierTransform[Sinc[x], x, k] 1/2 Sqrt[Pi/2] (Sign[1 - k] + Sign[1 + k]) Plot[%, {k, -2, 2}, Filling -> 0] which is the box function. The result is $\pi/2$ while the sum $$ 1/3+1/5+\dots+1/n $$ B_n = \frac{\pi}{2} - \pi \bigg(\sum_{k=3,5,\ldots}^n\frac{1}{k} -1\biggr)^\frac{n-1}{2}\prod_{k=3,5,\dots}^n\frac{k}{k-1}. $$ For $n=15$ it is equal to $$ \frac{46780...
Post a Comment
Read more