Tag Info

New answers tagged

4

Creating a data set dset with date values for the period of 5 months starting on a Sunday associated with random integers ( DayName @ {2015, 04, 12} (* Sunday*)). dset = DateRange[{2015, 04, 12}, DatePlus[{2015, 04, 12}, {5, "Month"}], Quantity[1, "Days"]] // {#, RandomInteger[100, Length @ #]} & // Transpose ; To create tick marks, ...


8

wd = WeatherData["SanDiego", "Temperature", {"Jan. 1, 2014", "Aug. 1, 2014", "Day"}]; (* for version 10+ evaluate: wd = wd // Normal // QuantityMagnitude; *) sundays = Pick[wd[[All, 1]], DayName /@ wd[[All, 1]], Sunday]; wednesdays = Pick[wd[[All, 1]], DayName /@ wd[[All, 1]], Wednesday]; Ticks at Wednesday noon: ticks = MapIndexed[{AbsoluteTime[#] ...


3

Use Rotate[#1, 90 Degree, {Right, Center}] instead. This moves the point of rotation to the right and vertical centre of the bounding box of each string. What I suspect is that Mathematica aligns the bounding boxes by aligning their origins. By moving the rotation point, the origin is moved to that point perhaps, and now the boxes are right-aligned.


2

Labeling the contours in this case requires many digits, but becomes much more readable (I think) if scientific notation is used. To work around the incorrect chopping of the contour labels and also force Mathematica to use scientific notation, I would suggest the following: plotFunction[T_, Z_] := .3/(k T) Log10[1 + Z]/Z labelFunction = ...


1

You could add set back to your EdgeShapeFunction: EdgeShapeFunction -> (If[#[[1]] != #[[-1]], {Arrowheads[ If[#2[[1]] == chr, {{0.04, 1}}, {{0.02, 0.2}, {0.02, 0.8}}]], Arrow[BSplineCurve[{#[[1]], {0, 0}, #[[-1]]}, SplineWeights -> {2, 1, 2}], .025]}, Opacity[0]] &)


-1

This seems perfectly legible to me: Arrowheads[If[#2[[1]] == chr, {{0.04, .98}}, {{0.02, 0.2}, {0.02, 0.8}}]]


0

This isn't a real solution to the Export As PDF problem but it is a useful workaround in case other workarounds like reverting back to MMA 10.0.1 or using Export instead of Save As don't work for you (as was the case for me since I was already in MMA 10.0.1 and had used Export). You could of course always export as a raster graphics format like JPEG or PNG ...


0

Try to avoid transparent Ticks, or FontSize -> 0, probably this is a problem for PDF. Instead you can define your Ticks directly without Labels, if you want to have them like that. V[r_] := Exp[-2 (r - 1)] - 2 Exp[-(r - 1)] p = Plot[V[r], {r, 0, 5}, Ticks -> { {#, ""} & /@ Range[0, 5, .5], {#, ""} & /@ Range[-1, 1, .25]}, AxesLabel -> ...



Top 50 recent answers are included