Modify Axes Range
3
$begingroup$
With the following code:
arc = Graphics[{Arrowheads[{0, 0.04}],
GraphicsComplex[
Table[{0.5 + 0.7 Re[Exp[I*g]], 0.5 + 0.7 Im[Exp[I*g]]}, {g,
Subdivide[0, Pi/2 - Pi/6, 100]}], Arrow[Range[101]]]}];
sensor = Graphics[
Circle[{0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}, 0.03]];
sensorM =
Graphics[Style[Text["M" , {1, 1.47}], FontSize -> 18,
FontFamily -> "Latin Modern Roman"]];
Omega0 = Graphics[
Style[Text[
"!(*SuperscriptBox[([CapitalOmega]), (0)])" , {0.2,
1.27}], FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
OmegaE = Graphics[
Style[Text[
"!(*SuperscriptBox[([CapitalOmega]), (e)])" , {0.8,
-0.27}], FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
theta = Graphics[
Style[Text["[Theta]" , {1.2, 0.77}], FontSize -> 20,
FontFamily -> "Latin Modern Roman"]];
rpolar = Graphics[
Style[Text["r" , {0.85, 1.17}], FontSize -> 20,
FontFamily -> "Latin Modern Roman"]];
er = Graphics[
Arrow[{{0.5 + 1. Cos[Pi/3],
0.5 + 1. Sin[Pi/3]}, {0.5 + 1. Cos[Pi/3] + 0.3 Cos[Pi/3],
0.5 + 1. Sin[Pi/3] + 0.3 Sin[Pi/3]}}]];
etheta = Graphics[
Arrow[{{0.5 + 1. Cos[Pi/3],
0.5 + 1. Sin[Pi/3]}, {0.5 + 1. Cos[Pi/3] - 0.3 Sin[Pi/3],
0.5 + 1. Sin[Pi/3] + 0.3 Cos[Pi/3]}}]];
erUnit = Graphics[
Style[Text[Subscript[OverHat[e], r], {1.25, 1.55}], FontSize -> 20,
FontFamily -> "Latin Modern Roman"]];
erthetaUnit =
Graphics[Style[Text[Subscript[OverHat[e], [Theta]], {0.75, 1.65}],
FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
h = Graphics[
Line[{{{-1, 1/2}, {0, 0}, {-1, -1/2}}, {{0, 1/2}, {1,
0}, {0, -1/2}}, {{1, 1/2}, {2, 0}, {1, -1/2}}}]];
propVector =
Graphics[{Arrowheads[{{Automatic, Automatic, h}}],
Arrow[{{-1., 0.5}, {-0.5, 0.5}}]}];
lines = Graphics[{Line[{{-0.8, 0.2}, {-0.8, 0.8}}],
Line[{{-0.75, 0.2}, {-0.75, 0.8}}]}];
pinc = Graphics[
Style[Text["!(*SubscriptBox[(p), (inc)])", {-0.95, 0.75}],
FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
Show[{Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]], arc, sensor, sensorM, Omega0,
OmegaE, theta, rpolar, er, etheta, erUnit, lines, propVector, pinc,
erthetaUnit,
Graphics[{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}]},
Axes -> True, AxesOrigin -> {0.5, 0.5},
AxesLabel -> {Style["x", FontSize -> 20,
FontFamily -> "Latin Modern Roman", FontColor -> Black],
Style["y", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black]}, AxesStyle -> Arrowheads[{0, 0.05}],
PlotRange -> All]
I produced the following image
Eventually, I will get rid of AxesTicks, but I leave them for reference. I am puzzled how I can modify the Axes Range. For instance, the x-axis should range from -0.3 to 1.3 and similarly for the y-axis. The AxesLabel should be moved accordingly but the rest of the figure should not be modified.
Thanks in advance!
plotting graphics
asked yesterday
dimitrisdimitris
2,1481331
$endgroup$
add a comment |
3
$begingroup$
With the following code:
arc = Graphics[{Arrowheads[{0, 0.04}],
GraphicsComplex[
Table[{0.5 + 0.7 Re[Exp[I*g]], 0.5 + 0.7 Im[Exp[I*g]]}, {g,
Subdivide[0, Pi/2 - Pi/6, 100]}], Arrow[Range[101]]]}];
sensor = Graphics[
Circle[{0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}, 0.03]];
sensorM =
Graphics[Style[Text["M" , {1, 1.47}], FontSize -> 18,
FontFamily -> "Latin Modern Roman"]];
Omega0 = Graphics[
Style[Text[
"!(*SuperscriptBox[([CapitalOmega]), (0)])" , {0.2,
1.27}], FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
OmegaE = Graphics[
Style[Text[
"!(*SuperscriptBox[([CapitalOmega]), (e)])" , {0.8,
-0.27}], FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
theta = Graphics[
Style[Text["[Theta]" , {1.2, 0.77}], FontSize -> 20,
FontFamily -> "Latin Modern Roman"]];
rpolar = Graphics[
Style[Text["r" , {0.85, 1.17}], FontSize -> 20,
FontFamily -> "Latin Modern Roman"]];
er = Graphics[
Arrow[{{0.5 + 1. Cos[Pi/3],
0.5 + 1. Sin[Pi/3]}, {0.5 + 1. Cos[Pi/3] + 0.3 Cos[Pi/3],
0.5 + 1. Sin[Pi/3] + 0.3 Sin[Pi/3]}}]];
etheta = Graphics[
Arrow[{{0.5 + 1. Cos[Pi/3],
0.5 + 1. Sin[Pi/3]}, {0.5 + 1. Cos[Pi/3] - 0.3 Sin[Pi/3],
0.5 + 1. Sin[Pi/3] + 0.3 Cos[Pi/3]}}]];
erUnit = Graphics[
Style[Text[Subscript[OverHat[e], r], {1.25, 1.55}], FontSize -> 20,
FontFamily -> "Latin Modern Roman"]];
erthetaUnit =
Graphics[Style[Text[Subscript[OverHat[e], [Theta]], {0.75, 1.65}],
FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
h = Graphics[
Line[{{{-1, 1/2}, {0, 0}, {-1, -1/2}}, {{0, 1/2}, {1,
0}, {0, -1/2}}, {{1, 1/2}, {2, 0}, {1, -1/2}}}]];
propVector =
Graphics[{Arrowheads[{{Automatic, Automatic, h}}],
Arrow[{{-1., 0.5}, {-0.5, 0.5}}]}];
lines = Graphics[{Line[{{-0.8, 0.2}, {-0.8, 0.8}}],
Line[{{-0.75, 0.2}, {-0.75, 0.8}}]}];
pinc = Graphics[
Style[Text["!(*SubscriptBox[(p), (inc)])", {-0.95, 0.75}],
FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
Show[{Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]], arc, sensor, sensorM, Omega0,
OmegaE, theta, rpolar, er, etheta, erUnit, lines, propVector, pinc,
erthetaUnit,
Graphics[{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}]},
Axes -> True, AxesOrigin -> {0.5, 0.5},
AxesLabel -> {Style["x", FontSize -> 20,
FontFamily -> "Latin Modern Roman", FontColor -> Black],
Style["y", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black]}, AxesStyle -> Arrowheads[{0, 0.05}],
PlotRange -> All]
I produced the following image
Eventually, I will get rid of AxesTicks, but I leave them for reference. I am puzzled how I can modify the Axes Range. For instance, the x-axis should range from -0.3 to 1.3 and similarly for the y-axis. The AxesLabel should be moved accordingly but the rest of the figure should not be modified.
Thanks in advance!
plotting graphics
asked yesterday
dimitrisdimitris
2,1481331
$endgroup$
1
$begingroup$
usePlotRange -> {{-.3, 1.3}, {-.3, 1.3}}, and add the optionImagePadding -> Scaled[.1]?
$endgroup$
– kglr
yesterday
$begingroup$
@kglr Thanks a lot! But now, unfortunately, one of the vertical lines on the left disappears.
$endgroup$
– dimitris
yesterday
$begingroup$
@kglr If we modify theScaledto 0.15 we get the whole figure but minimized I have to addImageSize -> 400to get a bigger Figure but I do not know if this is the proper technique.
$endgroup$
– dimitris
yesterday
$begingroup$
dimitris, i posted an answer using an alternative approach.
$endgroup$
– kglr
yesterday
add a comment |
3
3
3
$begingroup$
With the following code:
arc = Graphics[{Arrowheads[{0, 0.04}],
GraphicsComplex[
Table[{0.5 + 0.7 Re[Exp[I*g]], 0.5 + 0.7 Im[Exp[I*g]]}, {g,
Subdivide[0, Pi/2 - Pi/6, 100]}], Arrow[Range[101]]]}];
sensor = Graphics[
Circle[{0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}, 0.03]];
sensorM =
Graphics[Style[Text["M" , {1, 1.47}], FontSize -> 18,
FontFamily -> "Latin Modern Roman"]];
Omega0 = Graphics[
Style[Text[
"!(*SuperscriptBox[([CapitalOmega]), (0)])" , {0.2,
1.27}], FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
OmegaE = Graphics[
Style[Text[
"!(*SuperscriptBox[([CapitalOmega]), (e)])" , {0.8,
-0.27}], FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
theta = Graphics[
Style[Text["[Theta]" , {1.2, 0.77}], FontSize -> 20,
FontFamily -> "Latin Modern Roman"]];
rpolar = Graphics[
Style[Text["r" , {0.85, 1.17}], FontSize -> 20,
FontFamily -> "Latin Modern Roman"]];
er = Graphics[
Arrow[{{0.5 + 1. Cos[Pi/3],
0.5 + 1. Sin[Pi/3]}, {0.5 + 1. Cos[Pi/3] + 0.3 Cos[Pi/3],
0.5 + 1. Sin[Pi/3] + 0.3 Sin[Pi/3]}}]];
etheta = Graphics[
Arrow[{{0.5 + 1. Cos[Pi/3],
0.5 + 1. Sin[Pi/3]}, {0.5 + 1. Cos[Pi/3] - 0.3 Sin[Pi/3],
0.5 + 1. Sin[Pi/3] + 0.3 Cos[Pi/3]}}]];
erUnit = Graphics[
Style[Text[Subscript[OverHat[e], r], {1.25, 1.55}], FontSize -> 20,
FontFamily -> "Latin Modern Roman"]];
erthetaUnit =
Graphics[Style[Text[Subscript[OverHat[e], [Theta]], {0.75, 1.65}],
FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
h = Graphics[
Line[{{{-1, 1/2}, {0, 0}, {-1, -1/2}}, {{0, 1/2}, {1,
0}, {0, -1/2}}, {{1, 1/2}, {2, 0}, {1, -1/2}}}]];
propVector =
Graphics[{Arrowheads[{{Automatic, Automatic, h}}],
Arrow[{{-1., 0.5}, {-0.5, 0.5}}]}];
lines = Graphics[{Line[{{-0.8, 0.2}, {-0.8, 0.8}}],
Line[{{-0.75, 0.2}, {-0.75, 0.8}}]}];
pinc = Graphics[
Style[Text["!(*SubscriptBox[(p), (inc)])", {-0.95, 0.75}],
FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
Show[{Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]], arc, sensor, sensorM, Omega0,
OmegaE, theta, rpolar, er, etheta, erUnit, lines, propVector, pinc,
erthetaUnit,
Graphics[{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}]},
Axes -> True, AxesOrigin -> {0.5, 0.5},
AxesLabel -> {Style["x", FontSize -> 20,
FontFamily -> "Latin Modern Roman", FontColor -> Black],
Style["y", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black]}, AxesStyle -> Arrowheads[{0, 0.05}],
PlotRange -> All]
I produced the following image
Eventually, I will get rid of AxesTicks, but I leave them for reference. I am puzzled how I can modify the Axes Range. For instance, the x-axis should range from -0.3 to 1.3 and similarly for the y-axis. The AxesLabel should be moved accordingly but the rest of the figure should not be modified.
Thanks in advance!
plotting graphics
asked yesterday
dimitrisdimitris
2,1481331
$endgroup$
With the following code:
arc = Graphics[{Arrowheads[{0, 0.04}],
GraphicsComplex[
Table[{0.5 + 0.7 Re[Exp[I*g]], 0.5 + 0.7 Im[Exp[I*g]]}, {g,
Subdivide[0, Pi/2 - Pi/6, 100]}], Arrow[Range[101]]]}];
sensor = Graphics[
Circle[{0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}, 0.03]];
sensorM =
Graphics[Style[Text["M" , {1, 1.47}], FontSize -> 18,
FontFamily -> "Latin Modern Roman"]];
Omega0 = Graphics[
Style[Text[
"!(*SuperscriptBox[([CapitalOmega]), (0)])" , {0.2,
1.27}], FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
OmegaE = Graphics[
Style[Text[
"!(*SuperscriptBox[([CapitalOmega]), (e)])" , {0.8,
-0.27}], FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
theta = Graphics[
Style[Text["[Theta]" , {1.2, 0.77}], FontSize -> 20,
FontFamily -> "Latin Modern Roman"]];
rpolar = Graphics[
Style[Text["r" , {0.85, 1.17}], FontSize -> 20,
FontFamily -> "Latin Modern Roman"]];
er = Graphics[
Arrow[{{0.5 + 1. Cos[Pi/3],
0.5 + 1. Sin[Pi/3]}, {0.5 + 1. Cos[Pi/3] + 0.3 Cos[Pi/3],
0.5 + 1. Sin[Pi/3] + 0.3 Sin[Pi/3]}}]];
etheta = Graphics[
Arrow[{{0.5 + 1. Cos[Pi/3],
0.5 + 1. Sin[Pi/3]}, {0.5 + 1. Cos[Pi/3] - 0.3 Sin[Pi/3],
0.5 + 1. Sin[Pi/3] + 0.3 Cos[Pi/3]}}]];
erUnit = Graphics[
Style[Text[Subscript[OverHat[e], r], {1.25, 1.55}], FontSize -> 20,
FontFamily -> "Latin Modern Roman"]];
erthetaUnit =
Graphics[Style[Text[Subscript[OverHat[e], [Theta]], {0.75, 1.65}],
FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
h = Graphics[
Line[{{{-1, 1/2}, {0, 0}, {-1, -1/2}}, {{0, 1/2}, {1,
0}, {0, -1/2}}, {{1, 1/2}, {2, 0}, {1, -1/2}}}]];
propVector =
Graphics[{Arrowheads[{{Automatic, Automatic, h}}],
Arrow[{{-1., 0.5}, {-0.5, 0.5}}]}];
lines = Graphics[{Line[{{-0.8, 0.2}, {-0.8, 0.8}}],
Line[{{-0.75, 0.2}, {-0.75, 0.8}}]}];
pinc = Graphics[
Style[Text["!(*SubscriptBox[(p), (inc)])", {-0.95, 0.75}],
FontSize -> 20, FontFamily -> "Latin Modern Roman"]];
Show[{Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]], arc, sensor, sensorM, Omega0,
OmegaE, theta, rpolar, er, etheta, erUnit, lines, propVector, pinc,
erthetaUnit,
Graphics[{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}]},
Axes -> True, AxesOrigin -> {0.5, 0.5},
AxesLabel -> {Style["x", FontSize -> 20,
FontFamily -> "Latin Modern Roman", FontColor -> Black],
Style["y", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black]}, AxesStyle -> Arrowheads[{0, 0.05}],
PlotRange -> All]
I produced the following image
Eventually, I will get rid of AxesTicks, but I leave them for reference. I am puzzled how I can modify the Axes Range. For instance, the x-axis should range from -0.3 to 1.3 and similarly for the y-axis. The AxesLabel should be moved accordingly but the rest of the figure should not be modified.
Thanks in advance!
plotting graphics
plotting graphics
asked yesterday
dimitrisdimitris
2,1481331
asked yesterday
dimitrisdimitris
2,1481331
asked yesterday
dimitrisdimitris
2,1481331
asked yesterday
dimitrisdimitris
2,1481331
asked yesterday
dimitrisdimitris
2,1481331
2,1481331
1
$begingroup$
usePlotRange -> {{-.3, 1.3}, {-.3, 1.3}}, and add the optionImagePadding -> Scaled[.1]?
$endgroup$
– kglr
yesterday
$begingroup$
@kglr Thanks a lot! But now, unfortunately, one of the vertical lines on the left disappears.
$endgroup$
– dimitris
yesterday
$begingroup$
@kglr If we modify theScaledto 0.15 we get the whole figure but minimized I have to addImageSize -> 400to get a bigger Figure but I do not know if this is the proper technique.
$endgroup$
– dimitris
yesterday
$begingroup$
dimitris, i posted an answer using an alternative approach.
$endgroup$
– kglr
yesterday
add a comment |
1
$begingroup$
usePlotRange -> {{-.3, 1.3}, {-.3, 1.3}}, and add the optionImagePadding -> Scaled[.1]?
$endgroup$
– kglr
yesterday
$begingroup$
@kglr Thanks a lot! But now, unfortunately, one of the vertical lines on the left disappears.
$endgroup$
– dimitris
yesterday
$begingroup$
@kglr If we modify theScaledto 0.15 we get the whole figure but minimized I have to addImageSize -> 400to get a bigger Figure but I do not know if this is the proper technique.
$endgroup$
– dimitris
yesterday
$begingroup$
dimitris, i posted an answer using an alternative approach.
$endgroup$
– kglr
yesterday
1
1
$begingroup$
use
PlotRange -> {{-.3, 1.3}, {-.3, 1.3}}, and add the option ImagePadding -> Scaled[.1]?$endgroup$
– kglr
yesterday
$begingroup$
use
PlotRange -> {{-.3, 1.3}, {-.3, 1.3}}, and add the option ImagePadding -> Scaled[.1]?$endgroup$
– kglr
yesterday
$begingroup$
@kglr Thanks a lot! But now, unfortunately, one of the vertical lines on the left disappears.
$endgroup$
– dimitris
yesterday
$begingroup$
@kglr Thanks a lot! But now, unfortunately, one of the vertical lines on the left disappears.
$endgroup$
– dimitris
yesterday
$begingroup$
@kglr If we modify the
Scaled to 0.15 we get the whole figure but minimized I have to add ImageSize -> 400 to get a bigger Figure but I do not know if this is the proper technique.$endgroup$
– dimitris
yesterday
$begingroup$
@kglr If we modify the
Scaled to 0.15 we get the whole figure but minimized I have to add ImageSize -> 400 to get a bigger Figure but I do not know if this is the proper technique.$endgroup$
– dimitris
yesterday
$begingroup$
dimitris, i posted an answer using an alternative approach.
$endgroup$
– kglr
yesterday
$begingroup$
dimitris, i posted an answer using an alternative approach.
$endgroup$
– kglr
yesterday
add a comment |
2 Answers
2
active
oldest
votes
4
$begingroup$
Remove the axes and add the arrow and text primitives in the desired location:
Show[{Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]], arc, sensor, sensorM, Omega0,
OmegaE, theta, rpolar, er, etheta, erUnit, lines, propVector, pinc,
erthetaUnit,
Graphics[{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}]},
Graphics[{Arrowheads[{0, 0.05}], Arrow[{{-.3, .5}, {1.3, .5}}],
Arrow[{{.5, -.3}, {.5, 1.3}}],
Text[Style["y", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black], {.5, 1.4}],
Text[Style["x", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black], {1.4, .5}]}],
Axes -> False, PlotRange -> All]
answered yesterday
kglrkglr
182k10200414
$endgroup$
$begingroup$
Thank you very much! I use Mathematica a lot for visualisations but I am wondering if a Figure like the current could pass the typical journal publication requirements.
$endgroup$
– dimitris
yesterday
$begingroup$
@dimitris, my pleasure. Thank you for the accept. It looks better than many pictures I have seen in quite a few journals:) If you haven't already seen it you will find Szabolcs'sMatexpackage very useful ( see this)
$endgroup$
– kglr
yesterday
$begingroup$
Actually I found Szabolc's package several minutes before posting my question. I saw the description and the download page but I was very tired to try it:-)! Thanks in any case because I was not familiar with the linked question!
$endgroup$
– dimitris
yesterday
add a comment |
3
$begingroup$
This is basically the same a what kglr posted, but it is structured so that making adjustments to the axis graphics is easy. In particular, using Offset makes very easy to adjust the position of the axis labels, since the adjustment is made in printer's points and thus independent of the coordinate system.
axes =
Module[{axesLblF, xAxisPts, yAxisPts, xLbl, yLbl},
axesLblF = (Style[#, 20, "TR"] &);
xAxisPts = {{-.3, .5}, {1.3, .5}};
yAxisPts = {{.5, -.3}, {.5, 1.3}};
xLbl = Text[axesLblF @ "x", Offset[{10, 0}, xAxisPts[[2]]]];
yLbl = Text[axesLblF @ "y", Offset[{0, 10}, yAxisPts[[2]]]];
Graphics[{Arrowheads[{0, 0.05}], Arrow[xAxisPts], xLbl, Arrow[yAxisPts], yLbl}]]
Show[
Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]],
arc, sensor, sensorM, Omega0, OmegaE, theta, rpolar, er, etheta,
erUnit, lines, propVector, pinc, erthetaUnit,
Graphics[
{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}],
axes,
PlotRange -> All]
Note: I use the Times Roman font ("TR") because I do not have "Latin Modern Roman" on my system.
answered yesterday
m_goldbergm_goldberg
85.7k872196
$endgroup$
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
return StackExchange.using("mathjaxEditing", function () {
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
});
});
}, "mathjax-editing");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "387"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f190882%2fmodify-axes-range%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
2 Answers
2
active
oldest
votes
2 Answers
2
active
oldest
votes
active
oldest
votes
active
oldest
votes
4
$begingroup$
Remove the axes and add the arrow and text primitives in the desired location:
Show[{Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]], arc, sensor, sensorM, Omega0,
OmegaE, theta, rpolar, er, etheta, erUnit, lines, propVector, pinc,
erthetaUnit,
Graphics[{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}]},
Graphics[{Arrowheads[{0, 0.05}], Arrow[{{-.3, .5}, {1.3, .5}}],
Arrow[{{.5, -.3}, {.5, 1.3}}],
Text[Style["y", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black], {.5, 1.4}],
Text[Style["x", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black], {1.4, .5}]}],
Axes -> False, PlotRange -> All]
answered yesterday
kglrkglr
182k10200414
$endgroup$
$begingroup$
Thank you very much! I use Mathematica a lot for visualisations but I am wondering if a Figure like the current could pass the typical journal publication requirements.
$endgroup$
– dimitris
yesterday
$begingroup$
@dimitris, my pleasure. Thank you for the accept. It looks better than many pictures I have seen in quite a few journals:) If you haven't already seen it you will find Szabolcs'sMatexpackage very useful ( see this)
$endgroup$
– kglr
yesterday
$begingroup$
Actually I found Szabolc's package several minutes before posting my question. I saw the description and the download page but I was very tired to try it:-)! Thanks in any case because I was not familiar with the linked question!
$endgroup$
– dimitris
yesterday
add a comment |
4
$begingroup$
Remove the axes and add the arrow and text primitives in the desired location:
Show[{Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]], arc, sensor, sensorM, Omega0,
OmegaE, theta, rpolar, er, etheta, erUnit, lines, propVector, pinc,
erthetaUnit,
Graphics[{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}]},
Graphics[{Arrowheads[{0, 0.05}], Arrow[{{-.3, .5}, {1.3, .5}}],
Arrow[{{.5, -.3}, {.5, 1.3}}],
Text[Style["y", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black], {.5, 1.4}],
Text[Style["x", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black], {1.4, .5}]}],
Axes -> False, PlotRange -> All]
answered yesterday
kglrkglr
182k10200414
$endgroup$
$begingroup$
Thank you very much! I use Mathematica a lot for visualisations but I am wondering if a Figure like the current could pass the typical journal publication requirements.
$endgroup$
– dimitris
yesterday
$begingroup$
@dimitris, my pleasure. Thank you for the accept. It looks better than many pictures I have seen in quite a few journals:) If you haven't already seen it you will find Szabolcs'sMatexpackage very useful ( see this)
$endgroup$
– kglr
yesterday
$begingroup$
Actually I found Szabolc's package several minutes before posting my question. I saw the description and the download page but I was very tired to try it:-)! Thanks in any case because I was not familiar with the linked question!
$endgroup$
– dimitris
yesterday
add a comment |
4
4
4
$begingroup$
Remove the axes and add the arrow and text primitives in the desired location:
Show[{Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]], arc, sensor, sensorM, Omega0,
OmegaE, theta, rpolar, er, etheta, erUnit, lines, propVector, pinc,
erthetaUnit,
Graphics[{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}]},
Graphics[{Arrowheads[{0, 0.05}], Arrow[{{-.3, .5}, {1.3, .5}}],
Arrow[{{.5, -.3}, {.5, 1.3}}],
Text[Style["y", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black], {.5, 1.4}],
Text[Style["x", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black], {1.4, .5}]}],
Axes -> False, PlotRange -> All]
answered yesterday
kglrkglr
182k10200414
$endgroup$
Remove the axes and add the arrow and text primitives in the desired location:
Show[{Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]], arc, sensor, sensorM, Omega0,
OmegaE, theta, rpolar, er, etheta, erUnit, lines, propVector, pinc,
erthetaUnit,
Graphics[{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}]},
Graphics[{Arrowheads[{0, 0.05}], Arrow[{{-.3, .5}, {1.3, .5}}],
Arrow[{{.5, -.3}, {.5, 1.3}}],
Text[Style["y", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black], {.5, 1.4}],
Text[Style["x", FontSize -> 20, FontFamily -> "Latin Modern Roman",
FontColor -> Black], {1.4, .5}]}],
Axes -> False, PlotRange -> All]
answered yesterday
kglrkglr
182k10200414
answered yesterday
kglrkglr
182k10200414
answered yesterday
kglrkglr
182k10200414
answered yesterday
kglrkglr
182k10200414
182k10200414
$begingroup$
Thank you very much! I use Mathematica a lot for visualisations but I am wondering if a Figure like the current could pass the typical journal publication requirements.
$endgroup$
– dimitris
yesterday
$begingroup$
@dimitris, my pleasure. Thank you for the accept. It looks better than many pictures I have seen in quite a few journals:) If you haven't already seen it you will find Szabolcs'sMatexpackage very useful ( see this)
$endgroup$
– kglr
yesterday
$begingroup$
Actually I found Szabolc's package several minutes before posting my question. I saw the description and the download page but I was very tired to try it:-)! Thanks in any case because I was not familiar with the linked question!
$endgroup$
– dimitris
yesterday
add a comment |
$begingroup$
Thank you very much! I use Mathematica a lot for visualisations but I am wondering if a Figure like the current could pass the typical journal publication requirements.
$endgroup$
– dimitris
yesterday
$begingroup$
@dimitris, my pleasure. Thank you for the accept. It looks better than many pictures I have seen in quite a few journals:) If you haven't already seen it you will find Szabolcs'sMatexpackage very useful ( see this)
$endgroup$
– kglr
yesterday
$begingroup$
Actually I found Szabolc's package several minutes before posting my question. I saw the description and the download page but I was very tired to try it:-)! Thanks in any case because I was not familiar with the linked question!
$endgroup$
– dimitris
yesterday
$begingroup$
Thank you very much! I use Mathematica a lot for visualisations but I am wondering if a Figure like the current could pass the typical journal publication requirements.
$endgroup$
– dimitris
yesterday
$begingroup$
Thank you very much! I use Mathematica a lot for visualisations but I am wondering if a Figure like the current could pass the typical journal publication requirements.
$endgroup$
– dimitris
yesterday
$begingroup$
@dimitris, my pleasure. Thank you for the accept. It looks better than many pictures I have seen in quite a few journals:) If you haven't already seen it you will find Szabolcs's
Matex package very useful ( see this)$endgroup$
– kglr
yesterday
$begingroup$
@dimitris, my pleasure. Thank you for the accept. It looks better than many pictures I have seen in quite a few journals:) If you haven't already seen it you will find Szabolcs's
Matex package very useful ( see this)$endgroup$
– kglr
yesterday
$begingroup$
Actually I found Szabolc's package several minutes before posting my question. I saw the description and the download page but I was very tired to try it:-)! Thanks in any case because I was not familiar with the linked question!
$endgroup$
– dimitris
yesterday
$begingroup$
Actually I found Szabolc's package several minutes before posting my question. I saw the description and the download page but I was very tired to try it:-)! Thanks in any case because I was not familiar with the linked question!
$endgroup$
– dimitris
yesterday
add a comment |
3
$begingroup$
This is basically the same a what kglr posted, but it is structured so that making adjustments to the axis graphics is easy. In particular, using Offset makes very easy to adjust the position of the axis labels, since the adjustment is made in printer's points and thus independent of the coordinate system.
axes =
Module[{axesLblF, xAxisPts, yAxisPts, xLbl, yLbl},
axesLblF = (Style[#, 20, "TR"] &);
xAxisPts = {{-.3, .5}, {1.3, .5}};
yAxisPts = {{.5, -.3}, {.5, 1.3}};
xLbl = Text[axesLblF @ "x", Offset[{10, 0}, xAxisPts[[2]]]];
yLbl = Text[axesLblF @ "y", Offset[{0, 10}, yAxisPts[[2]]]];
Graphics[{Arrowheads[{0, 0.05}], Arrow[xAxisPts], xLbl, Arrow[yAxisPts], yLbl}]]
Show[
Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]],
arc, sensor, sensorM, Omega0, OmegaE, theta, rpolar, er, etheta,
erUnit, lines, propVector, pinc, erthetaUnit,
Graphics[
{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}],
axes,
PlotRange -> All]
Note: I use the Times Roman font ("TR") because I do not have "Latin Modern Roman" on my system.
answered yesterday
m_goldbergm_goldberg
85.7k872196
$endgroup$
add a comment |
3
$begingroup$
This is basically the same a what kglr posted, but it is structured so that making adjustments to the axis graphics is easy. In particular, using Offset makes very easy to adjust the position of the axis labels, since the adjustment is made in printer's points and thus independent of the coordinate system.
axes =
Module[{axesLblF, xAxisPts, yAxisPts, xLbl, yLbl},
axesLblF = (Style[#, 20, "TR"] &);
xAxisPts = {{-.3, .5}, {1.3, .5}};
yAxisPts = {{.5, -.3}, {.5, 1.3}};
xLbl = Text[axesLblF @ "x", Offset[{10, 0}, xAxisPts[[2]]]];
yLbl = Text[axesLblF @ "y", Offset[{0, 10}, yAxisPts[[2]]]];
Graphics[{Arrowheads[{0, 0.05}], Arrow[xAxisPts], xLbl, Arrow[yAxisPts], yLbl}]]
Show[
Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]],
arc, sensor, sensorM, Omega0, OmegaE, theta, rpolar, er, etheta,
erUnit, lines, propVector, pinc, erthetaUnit,
Graphics[
{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}],
axes,
PlotRange -> All]
Note: I use the Times Roman font ("TR") because I do not have "Latin Modern Roman" on my system.
answered yesterday
m_goldbergm_goldberg
85.7k872196
$endgroup$
add a comment |
3
3
3
$begingroup$
This is basically the same a what kglr posted, but it is structured so that making adjustments to the axis graphics is easy. In particular, using Offset makes very easy to adjust the position of the axis labels, since the adjustment is made in printer's points and thus independent of the coordinate system.
axes =
Module[{axesLblF, xAxisPts, yAxisPts, xLbl, yLbl},
axesLblF = (Style[#, 20, "TR"] &);
xAxisPts = {{-.3, .5}, {1.3, .5}};
yAxisPts = {{.5, -.3}, {.5, 1.3}};
xLbl = Text[axesLblF @ "x", Offset[{10, 0}, xAxisPts[[2]]]];
yLbl = Text[axesLblF @ "y", Offset[{0, 10}, yAxisPts[[2]]]];
Graphics[{Arrowheads[{0, 0.05}], Arrow[xAxisPts], xLbl, Arrow[yAxisPts], yLbl}]]
Show[
Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]],
arc, sensor, sensorM, Omega0, OmegaE, theta, rpolar, er, etheta,
erUnit, lines, propVector, pinc, erthetaUnit,
Graphics[
{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}],
axes,
PlotRange -> All]
Note: I use the Times Roman font ("TR") because I do not have "Latin Modern Roman" on my system.
answered yesterday
m_goldbergm_goldberg
85.7k872196
$endgroup$
This is basically the same a what kglr posted, but it is structured so that making adjustments to the axis graphics is easy. In particular, using Offset makes very easy to adjust the position of the axis labels, since the adjustment is made in printer's points and thus independent of the coordinate system.
axes =
Module[{axesLblF, xAxisPts, yAxisPts, xLbl, yLbl},
axesLblF = (Style[#, 20, "TR"] &);
xAxisPts = {{-.3, .5}, {1.3, .5}};
yAxisPts = {{.5, -.3}, {.5, 1.3}};
xLbl = Text[axesLblF @ "x", Offset[{10, 0}, xAxisPts[[2]]]];
yLbl = Text[axesLblF @ "y", Offset[{0, 10}, yAxisPts[[2]]]];
Graphics[{Arrowheads[{0, 0.05}], Arrow[xAxisPts], xLbl, Arrow[yAxisPts], yLbl}]]
Show[
Graphics[{Dotted, Circle[{0.5, 0.5}, 1]}],
Graphics[Circle[{0.5, 0.5}, 0.5]],
arc, sensor, sensorM, Omega0, OmegaE, theta, rpolar, er, etheta,
erUnit, lines, propVector, pinc, erthetaUnit,
Graphics[
{DotDashed, Arrowheads[0.04],
Arrow[{{0.5, 0.5}, {0.5 + 1. Cos[Pi/3], 0.5 + 1. Sin[Pi/3]}}]}],
axes,
PlotRange -> All]
Note: I use the Times Roman font ("TR") because I do not have "Latin Modern Roman" on my system.
answered yesterday
m_goldbergm_goldberg
85.7k872196
answered yesterday
m_goldbergm_goldberg
85.7k872196
answered yesterday
m_goldbergm_goldberg
85.7k872196
answered yesterday
m_goldbergm_goldberg
85.7k872196
85.7k872196
add a comment |
add a comment |
draft saved
draft discarded
Thanks for contributing an answer to Mathematica Stack Exchange!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
Use MathJax to format equations. MathJax reference.
To learn more, see our tips on writing great answers.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f190882%2fmodify-axes-range%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
1
$begingroup$
use
PlotRange -> {{-.3, 1.3}, {-.3, 1.3}}, and add the optionImagePadding -> Scaled[.1]?$endgroup$
– kglr
yesterday
$begingroup$
@kglr Thanks a lot! But now, unfortunately, one of the vertical lines on the left disappears.
$endgroup$
– dimitris
yesterday
$begingroup$
@kglr If we modify the
Scaledto 0.15 we get the whole figure but minimized I have to addImageSize -> 400to get a bigger Figure but I do not know if this is the proper technique.$endgroup$
– dimitris
yesterday
$begingroup$
dimitris, i posted an answer using an alternative approach.
$endgroup$
– kglr
yesterday