Affine transformation of circular arc in 3D
6
$begingroup$
Start with a quarter-circle of radius 1 centered at the origin and lying in the $xz$-plane:
arc = ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}]
I want to dilate this by a factor of 2 and shift the center to {3, 0, 0}, then show the result graphically.
The following does not work:
shiftAndDilate3D = AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}]
Graphics3D[GeometricTransformation[arc3D, shiftAndDilate3D]]
The error I get is that Graphics3DBox is not a Graphics3D primitive or directive.
What am I doing wrong?
graphics3d geometric-transform
edited Mar 8 at 23:56
J. M. is slightly pensive♦
97.9k10304464
asked Mar 7 at 16:36
murraymurray
6,2551835
$endgroup$
add a comment |
6
$begingroup$
Start with a quarter-circle of radius 1 centered at the origin and lying in the $xz$-plane:
arc = ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}]
I want to dilate this by a factor of 2 and shift the center to {3, 0, 0}, then show the result graphically.
The following does not work:
shiftAndDilate3D = AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}]
Graphics3D[GeometricTransformation[arc3D, shiftAndDilate3D]]
The error I get is that Graphics3DBox is not a Graphics3D primitive or directive.
What am I doing wrong?
graphics3d geometric-transform
edited Mar 8 at 23:56
J. M. is slightly pensive♦
97.9k10304464
asked Mar 7 at 16:36
murraymurray
6,2551835
$endgroup$
$begingroup$
At least for this case, it is much better to just apply the affine transformation to the parametric equations directly:ParametricPlot3D[AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}] @ {Cos[t], 0, Sin[t]} // Evaluate, {t, 0, π/2}].
$endgroup$
– J. M. is slightly pensive♦
Mar 8 at 1:46
$begingroup$
@J.M.iscomputer-less: That's a refreshingly different approach! I have to look at in the entire context of the more complicated thing I'm actually trying to do. It's worth making an answer!
$endgroup$
– murray
Mar 8 at 1:55
$begingroup$
I think I kind of understand your confusion now, in light of this and your other question. One problem is that the docs do not give a complete and unambiguous list of primitives that one can point to and say: "these are primitives, and they are the only ones supported byGeometricTransformation"; this list mixes up directives and primitives, so that doesn't count.
$endgroup$
– J. M. is slightly pensive♦
Mar 8 at 23:56
$begingroup$
Possibly relevant: mathematica.stackexchange.com/questions/10957/…
$endgroup$
– Sjoerd C. de Vries
Mar 9 at 14:07
add a comment |
6
6
6
$begingroup$
Start with a quarter-circle of radius 1 centered at the origin and lying in the $xz$-plane:
arc = ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}]
I want to dilate this by a factor of 2 and shift the center to {3, 0, 0}, then show the result graphically.
The following does not work:
shiftAndDilate3D = AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}]
Graphics3D[GeometricTransformation[arc3D, shiftAndDilate3D]]
The error I get is that Graphics3DBox is not a Graphics3D primitive or directive.
What am I doing wrong?
graphics3d geometric-transform
edited Mar 8 at 23:56
J. M. is slightly pensive♦
97.9k10304464
asked Mar 7 at 16:36
murraymurray
6,2551835
$endgroup$
Start with a quarter-circle of radius 1 centered at the origin and lying in the $xz$-plane:
arc = ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}]
I want to dilate this by a factor of 2 and shift the center to {3, 0, 0}, then show the result graphically.
The following does not work:
shiftAndDilate3D = AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}]
Graphics3D[GeometricTransformation[arc3D, shiftAndDilate3D]]
The error I get is that Graphics3DBox is not a Graphics3D primitive or directive.
What am I doing wrong?
graphics3d geometric-transform
graphics3d geometric-transform
edited Mar 8 at 23:56
J. M. is slightly pensive♦
97.9k10304464
asked Mar 7 at 16:36
murraymurray
6,2551835
edited Mar 8 at 23:56
J. M. is slightly pensive♦
97.9k10304464
asked Mar 7 at 16:36
murraymurray
6,2551835
edited Mar 8 at 23:56
J. M. is slightly pensive♦
97.9k10304464
edited Mar 8 at 23:56
J. M. is slightly pensive♦
97.9k10304464
edited Mar 8 at 23:56
J. M. is slightly pensive♦
97.9k10304464
97.9k10304464
asked Mar 7 at 16:36
murraymurray
6,2551835
asked Mar 7 at 16:36
murraymurray
6,2551835
asked Mar 7 at 16:36
murraymurray
6,2551835
6,2551835
$begingroup$
At least for this case, it is much better to just apply the affine transformation to the parametric equations directly:ParametricPlot3D[AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}] @ {Cos[t], 0, Sin[t]} // Evaluate, {t, 0, π/2}].
$endgroup$
– J. M. is slightly pensive♦
Mar 8 at 1:46
$begingroup$
@J.M.iscomputer-less: That's a refreshingly different approach! I have to look at in the entire context of the more complicated thing I'm actually trying to do. It's worth making an answer!
$endgroup$
– murray
Mar 8 at 1:55
$begingroup$
I think I kind of understand your confusion now, in light of this and your other question. One problem is that the docs do not give a complete and unambiguous list of primitives that one can point to and say: "these are primitives, and they are the only ones supported byGeometricTransformation"; this list mixes up directives and primitives, so that doesn't count.
$endgroup$
– J. M. is slightly pensive♦
Mar 8 at 23:56
$begingroup$
Possibly relevant: mathematica.stackexchange.com/questions/10957/…
$endgroup$
– Sjoerd C. de Vries
Mar 9 at 14:07
add a comment |
$begingroup$
At least for this case, it is much better to just apply the affine transformation to the parametric equations directly:ParametricPlot3D[AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}] @ {Cos[t], 0, Sin[t]} // Evaluate, {t, 0, π/2}].
$endgroup$
– J. M. is slightly pensive♦
Mar 8 at 1:46
$begingroup$
@J.M.iscomputer-less: That's a refreshingly different approach! I have to look at in the entire context of the more complicated thing I'm actually trying to do. It's worth making an answer!
$endgroup$
– murray
Mar 8 at 1:55
$begingroup$
I think I kind of understand your confusion now, in light of this and your other question. One problem is that the docs do not give a complete and unambiguous list of primitives that one can point to and say: "these are primitives, and they are the only ones supported byGeometricTransformation"; this list mixes up directives and primitives, so that doesn't count.
$endgroup$
– J. M. is slightly pensive♦
Mar 8 at 23:56
$begingroup$
Possibly relevant: mathematica.stackexchange.com/questions/10957/…
$endgroup$
– Sjoerd C. de Vries
Mar 9 at 14:07
$begingroup$
At least for this case, it is much better to just apply the affine transformation to the parametric equations directly:
ParametricPlot3D[AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}] @ {Cos[t], 0, Sin[t]} // Evaluate, {t, 0, π/2}].$endgroup$
– J. M. is slightly pensive♦
Mar 8 at 1:46
$begingroup$
At least for this case, it is much better to just apply the affine transformation to the parametric equations directly:
ParametricPlot3D[AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}] @ {Cos[t], 0, Sin[t]} // Evaluate, {t, 0, π/2}].$endgroup$
– J. M. is slightly pensive♦
Mar 8 at 1:46
$begingroup$
@J.M.iscomputer-less: That's a refreshingly different approach! I have to look at in the entire context of the more complicated thing I'm actually trying to do. It's worth making an answer!
$endgroup$
– murray
Mar 8 at 1:55
$begingroup$
@J.M.iscomputer-less: That's a refreshingly different approach! I have to look at in the entire context of the more complicated thing I'm actually trying to do. It's worth making an answer!
$endgroup$
– murray
Mar 8 at 1:55
$begingroup$
I think I kind of understand your confusion now, in light of this and your other question. One problem is that the docs do not give a complete and unambiguous list of primitives that one can point to and say: "these are primitives, and they are the only ones supported by
GeometricTransformation"; this list mixes up directives and primitives, so that doesn't count.$endgroup$
– J. M. is slightly pensive♦
Mar 8 at 23:56
$begingroup$
I think I kind of understand your confusion now, in light of this and your other question. One problem is that the docs do not give a complete and unambiguous list of primitives that one can point to and say: "these are primitives, and they are the only ones supported by
GeometricTransformation"; this list mixes up directives and primitives, so that doesn't count.$endgroup$
– J. M. is slightly pensive♦
Mar 8 at 23:56
$begingroup$
Possibly relevant: mathematica.stackexchange.com/questions/10957/…
$endgroup$
– Sjoerd C. de Vries
Mar 9 at 14:07
$begingroup$
Possibly relevant: mathematica.stackexchange.com/questions/10957/…
$endgroup$
– Sjoerd C. de Vries
Mar 9 at 14:07
add a comment |
3 Answers
3
active
oldest
votes
5
$begingroup$
You could work with regions instead. Your arc:
arc = ParametricRegion[{Cos[t], 0, Sin[t]}, {{t, 0, [Pi]/2}}];
The transformed arc:
shiftAndDilate3D = AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}];
new = TransformedRegion[arc, shiftAndDilate3D];
Visualization:
Show[
Region[arc, BaseStyle->Red],
Region[new, BaseStyle->Blue],
Axes->True
]
answered Mar 7 at 17:15
Carl WollCarl Woll
70.3k394183
$endgroup$
$begingroup$
How should one know from the Mathematica documentation thatParametricRegionis a "region" suitable for the 1st argument toTransformedRegion? (The documentation involvingGeometricTransformatino,Region, etc., is sadly deficient. As withImage, these things seem to have been thrown into Mathematica without sufficient exposition, or perhaps even without sufficient coherence for the various kinds of things, on the one hand, and sufficient distinctions among them, on the other hand.)
$endgroup$
– murray
Mar 7 at 20:22
$begingroup$
On the one hand, I like this answer better than the others because it is more direct. On the other hand, it uses yet a different type of object, namely, a "region".
$endgroup$
– murray
Mar 7 at 20:23
$begingroup$
But I'm annoyed by the different method to style the resulting graphics display, namely, through use of theBaseStyleoption ofRegioninstead of the usualPlotStyleoption ofParametricPlot3Dand so many other graphics and graphics 3D functions. Moreover, why should it be necessary to wrap the result of aParametricRegionexpression with aRegion? Either there's something fundamental here I don't understand, or else a whole slew of graphics-like or geometric-like constructs have been thrown into recent versions of Mathematica without sufficient rationalization of the whole domain.
$endgroup$
– murray
Mar 7 at 20:36
$begingroup$
Further rant: Why doesParametricRegiontake as 2nd argument a list of lists (of parameters and their extent), whereasParametricPlot3Duses the parameter information as a list, then another list, etc.?
$endgroup$
– murray
Mar 7 at 20:39
$begingroup$
@murray Lots of questions. For a brief overview of regions, see reference.wolfram.com/language/guide/GeometricComputation. Basically, a region is a computable object. Region is a function that displays the object (similar to RegionPlot). Show converts a region object to a Graphics/Graphics3D object. ParametricRegion has a different syntax because it supports arguments without bounds, e.g.,ParametricRegion[{Cos[t], 0, Sin[t]}, t].
$endgroup$
– Carl Woll
Mar 7 at 20:48
|
show 4 more comments
5
$begingroup$
You cannot apply those geometric transformations to the results of the plotting; instead, you should apply them to a Graphics primitive, e.g. the Line object generated by ParametricPlot, which you can extract using e.g. Cases:
arcLine =
First@Cases[ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}], _Line, All]
Graphics3D[{
Red, arcLine,
Blue, GeometricTransformation[arcLine, shiftAndDilate3D]
}]
In red in the plot above is your original curve, in blue the transformed one.
answered Mar 7 at 17:06
MarcoBMarcoB
37.5k556113
$endgroup$
$begingroup$
Where in the documentation does it explain what is, and what is not, a "geometric object"?
$endgroup$
– murray
Mar 7 at 17:29
$begingroup$
@murray I was being loose with words there. I really meant a "Graphicsprimitive", such as those discussed in this guide:Graphicsobjects. I fixed it in the answer.
$endgroup$
– MarcoB
Mar 7 at 18:20
$begingroup$
Alas, the doc page guide/GraphicsObjects does not fully identify or clarify what is, and what is not, a "graphics object". For example, given the answer by Carl Woll to my question, aParametricRegionseems to qualify as such an object, yet is not listed on that guide page. So the documentation list of graphics objects doesn't specify what they are, and certainly -- and this is perhaps a real design defect -- theHeadof these objects doesn't tell you that they are "graphics objects"!
$endgroup$
– murray
Mar 7 at 19:53
add a comment |
4
$begingroup$
Use arc3D[[1]] (which contains all the graphics primitives and their styles) as the first argument of GeometricTransformation:
arc3D = ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}]
Show[arc3D,
Graphics3D[GeometricTransformation[arc3D[[1]], shiftAndDilate3D] /. l_Line :> {Orange, l}],
PlotRange -> All]
answered Mar 7 at 17:12
kglrkglr
189k10205422
$endgroup$
$begingroup$
I cannot reproduce that. Rather, I get an error message: "An improperly formatted option was encountered while reading a Graphics3DBox. The left-hand side of the option was not a symbol or string."
$endgroup$
– murray
Mar 7 at 17:38
$begingroup$
@murray, forgot a comma beforePlotRange(fixed now).
$endgroup$
– kglr
Mar 7 at 17:41
$begingroup$
Sorry, I should have caught that!
$endgroup$
– murray
Mar 7 at 19:47
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%2f192809%2faffine-transformation-of-circular-arc-in-3d%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
3 Answers
3
active
oldest
votes
3 Answers
3
active
oldest
votes
active
oldest
votes
active
oldest
votes
5
$begingroup$
You could work with regions instead. Your arc:
arc = ParametricRegion[{Cos[t], 0, Sin[t]}, {{t, 0, [Pi]/2}}];
The transformed arc:
shiftAndDilate3D = AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}];
new = TransformedRegion[arc, shiftAndDilate3D];
Visualization:
Show[
Region[arc, BaseStyle->Red],
Region[new, BaseStyle->Blue],
Axes->True
]
answered Mar 7 at 17:15
Carl WollCarl Woll
70.3k394183
$endgroup$
$begingroup$
How should one know from the Mathematica documentation thatParametricRegionis a "region" suitable for the 1st argument toTransformedRegion? (The documentation involvingGeometricTransformatino,Region, etc., is sadly deficient. As withImage, these things seem to have been thrown into Mathematica without sufficient exposition, or perhaps even without sufficient coherence for the various kinds of things, on the one hand, and sufficient distinctions among them, on the other hand.)
$endgroup$
– murray
Mar 7 at 20:22
$begingroup$
On the one hand, I like this answer better than the others because it is more direct. On the other hand, it uses yet a different type of object, namely, a "region".
$endgroup$
– murray
Mar 7 at 20:23
$begingroup$
But I'm annoyed by the different method to style the resulting graphics display, namely, through use of theBaseStyleoption ofRegioninstead of the usualPlotStyleoption ofParametricPlot3Dand so many other graphics and graphics 3D functions. Moreover, why should it be necessary to wrap the result of aParametricRegionexpression with aRegion? Either there's something fundamental here I don't understand, or else a whole slew of graphics-like or geometric-like constructs have been thrown into recent versions of Mathematica without sufficient rationalization of the whole domain.
$endgroup$
– murray
Mar 7 at 20:36
$begingroup$
Further rant: Why doesParametricRegiontake as 2nd argument a list of lists (of parameters and their extent), whereasParametricPlot3Duses the parameter information as a list, then another list, etc.?
$endgroup$
– murray
Mar 7 at 20:39
$begingroup$
@murray Lots of questions. For a brief overview of regions, see reference.wolfram.com/language/guide/GeometricComputation. Basically, a region is a computable object. Region is a function that displays the object (similar to RegionPlot). Show converts a region object to a Graphics/Graphics3D object. ParametricRegion has a different syntax because it supports arguments without bounds, e.g.,ParametricRegion[{Cos[t], 0, Sin[t]}, t].
$endgroup$
– Carl Woll
Mar 7 at 20:48
|
show 4 more comments
5
$begingroup$
You could work with regions instead. Your arc:
arc = ParametricRegion[{Cos[t], 0, Sin[t]}, {{t, 0, [Pi]/2}}];
The transformed arc:
shiftAndDilate3D = AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}];
new = TransformedRegion[arc, shiftAndDilate3D];
Visualization:
Show[
Region[arc, BaseStyle->Red],
Region[new, BaseStyle->Blue],
Axes->True
]
answered Mar 7 at 17:15
Carl WollCarl Woll
70.3k394183
$endgroup$
$begingroup$
How should one know from the Mathematica documentation thatParametricRegionis a "region" suitable for the 1st argument toTransformedRegion? (The documentation involvingGeometricTransformatino,Region, etc., is sadly deficient. As withImage, these things seem to have been thrown into Mathematica without sufficient exposition, or perhaps even without sufficient coherence for the various kinds of things, on the one hand, and sufficient distinctions among them, on the other hand.)
$endgroup$
– murray
Mar 7 at 20:22
$begingroup$
On the one hand, I like this answer better than the others because it is more direct. On the other hand, it uses yet a different type of object, namely, a "region".
$endgroup$
– murray
Mar 7 at 20:23
$begingroup$
But I'm annoyed by the different method to style the resulting graphics display, namely, through use of theBaseStyleoption ofRegioninstead of the usualPlotStyleoption ofParametricPlot3Dand so many other graphics and graphics 3D functions. Moreover, why should it be necessary to wrap the result of aParametricRegionexpression with aRegion? Either there's something fundamental here I don't understand, or else a whole slew of graphics-like or geometric-like constructs have been thrown into recent versions of Mathematica without sufficient rationalization of the whole domain.
$endgroup$
– murray
Mar 7 at 20:36
$begingroup$
Further rant: Why doesParametricRegiontake as 2nd argument a list of lists (of parameters and their extent), whereasParametricPlot3Duses the parameter information as a list, then another list, etc.?
$endgroup$
– murray
Mar 7 at 20:39
$begingroup$
@murray Lots of questions. For a brief overview of regions, see reference.wolfram.com/language/guide/GeometricComputation. Basically, a region is a computable object. Region is a function that displays the object (similar to RegionPlot). Show converts a region object to a Graphics/Graphics3D object. ParametricRegion has a different syntax because it supports arguments without bounds, e.g.,ParametricRegion[{Cos[t], 0, Sin[t]}, t].
$endgroup$
– Carl Woll
Mar 7 at 20:48
|
show 4 more comments
5
5
5
$begingroup$
You could work with regions instead. Your arc:
arc = ParametricRegion[{Cos[t], 0, Sin[t]}, {{t, 0, [Pi]/2}}];
The transformed arc:
shiftAndDilate3D = AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}];
new = TransformedRegion[arc, shiftAndDilate3D];
Visualization:
Show[
Region[arc, BaseStyle->Red],
Region[new, BaseStyle->Blue],
Axes->True
]
answered Mar 7 at 17:15
Carl WollCarl Woll
70.3k394183
$endgroup$
You could work with regions instead. Your arc:
arc = ParametricRegion[{Cos[t], 0, Sin[t]}, {{t, 0, [Pi]/2}}];
The transformed arc:
shiftAndDilate3D = AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}];
new = TransformedRegion[arc, shiftAndDilate3D];
Visualization:
Show[
Region[arc, BaseStyle->Red],
Region[new, BaseStyle->Blue],
Axes->True
]
answered Mar 7 at 17:15
Carl WollCarl Woll
70.3k394183
answered Mar 7 at 17:15
Carl WollCarl Woll
70.3k394183
answered Mar 7 at 17:15
Carl WollCarl Woll
70.3k394183
answered Mar 7 at 17:15
Carl WollCarl Woll
70.3k394183
70.3k394183
$begingroup$
How should one know from the Mathematica documentation thatParametricRegionis a "region" suitable for the 1st argument toTransformedRegion? (The documentation involvingGeometricTransformatino,Region, etc., is sadly deficient. As withImage, these things seem to have been thrown into Mathematica without sufficient exposition, or perhaps even without sufficient coherence for the various kinds of things, on the one hand, and sufficient distinctions among them, on the other hand.)
$endgroup$
– murray
Mar 7 at 20:22
$begingroup$
On the one hand, I like this answer better than the others because it is more direct. On the other hand, it uses yet a different type of object, namely, a "region".
$endgroup$
– murray
Mar 7 at 20:23
$begingroup$
But I'm annoyed by the different method to style the resulting graphics display, namely, through use of theBaseStyleoption ofRegioninstead of the usualPlotStyleoption ofParametricPlot3Dand so many other graphics and graphics 3D functions. Moreover, why should it be necessary to wrap the result of aParametricRegionexpression with aRegion? Either there's something fundamental here I don't understand, or else a whole slew of graphics-like or geometric-like constructs have been thrown into recent versions of Mathematica without sufficient rationalization of the whole domain.
$endgroup$
– murray
Mar 7 at 20:36
$begingroup$
Further rant: Why doesParametricRegiontake as 2nd argument a list of lists (of parameters and their extent), whereasParametricPlot3Duses the parameter information as a list, then another list, etc.?
$endgroup$
– murray
Mar 7 at 20:39
$begingroup$
@murray Lots of questions. For a brief overview of regions, see reference.wolfram.com/language/guide/GeometricComputation. Basically, a region is a computable object. Region is a function that displays the object (similar to RegionPlot). Show converts a region object to a Graphics/Graphics3D object. ParametricRegion has a different syntax because it supports arguments without bounds, e.g.,ParametricRegion[{Cos[t], 0, Sin[t]}, t].
$endgroup$
– Carl Woll
Mar 7 at 20:48
|
show 4 more comments
$begingroup$
How should one know from the Mathematica documentation thatParametricRegionis a "region" suitable for the 1st argument toTransformedRegion? (The documentation involvingGeometricTransformatino,Region, etc., is sadly deficient. As withImage, these things seem to have been thrown into Mathematica without sufficient exposition, or perhaps even without sufficient coherence for the various kinds of things, on the one hand, and sufficient distinctions among them, on the other hand.)
$endgroup$
– murray
Mar 7 at 20:22
$begingroup$
On the one hand, I like this answer better than the others because it is more direct. On the other hand, it uses yet a different type of object, namely, a "region".
$endgroup$
– murray
Mar 7 at 20:23
$begingroup$
But I'm annoyed by the different method to style the resulting graphics display, namely, through use of theBaseStyleoption ofRegioninstead of the usualPlotStyleoption ofParametricPlot3Dand so many other graphics and graphics 3D functions. Moreover, why should it be necessary to wrap the result of aParametricRegionexpression with aRegion? Either there's something fundamental here I don't understand, or else a whole slew of graphics-like or geometric-like constructs have been thrown into recent versions of Mathematica without sufficient rationalization of the whole domain.
$endgroup$
– murray
Mar 7 at 20:36
$begingroup$
Further rant: Why doesParametricRegiontake as 2nd argument a list of lists (of parameters and their extent), whereasParametricPlot3Duses the parameter information as a list, then another list, etc.?
$endgroup$
– murray
Mar 7 at 20:39
$begingroup$
@murray Lots of questions. For a brief overview of regions, see reference.wolfram.com/language/guide/GeometricComputation. Basically, a region is a computable object. Region is a function that displays the object (similar to RegionPlot). Show converts a region object to a Graphics/Graphics3D object. ParametricRegion has a different syntax because it supports arguments without bounds, e.g.,ParametricRegion[{Cos[t], 0, Sin[t]}, t].
$endgroup$
– Carl Woll
Mar 7 at 20:48
$begingroup$
How should one know from the Mathematica documentation that
ParametricRegion is a "region" suitable for the 1st argument to TransformedRegion? (The documentation involving GeometricTransformatino, Region, etc., is sadly deficient. As with Image, these things seem to have been thrown into Mathematica without sufficient exposition, or perhaps even without sufficient coherence for the various kinds of things, on the one hand, and sufficient distinctions among them, on the other hand.)$endgroup$
– murray
Mar 7 at 20:22
$begingroup$
How should one know from the Mathematica documentation that
ParametricRegion is a "region" suitable for the 1st argument to TransformedRegion? (The documentation involving GeometricTransformatino, Region, etc., is sadly deficient. As with Image, these things seem to have been thrown into Mathematica without sufficient exposition, or perhaps even without sufficient coherence for the various kinds of things, on the one hand, and sufficient distinctions among them, on the other hand.)$endgroup$
– murray
Mar 7 at 20:22
$begingroup$
On the one hand, I like this answer better than the others because it is more direct. On the other hand, it uses yet a different type of object, namely, a "region".
$endgroup$
– murray
Mar 7 at 20:23
$begingroup$
On the one hand, I like this answer better than the others because it is more direct. On the other hand, it uses yet a different type of object, namely, a "region".
$endgroup$
– murray
Mar 7 at 20:23
$begingroup$
But I'm annoyed by the different method to style the resulting graphics display, namely, through use of the
BaseStyle option of Region instead of the usual PlotStyle option of ParametricPlot3D and so many other graphics and graphics 3D functions. Moreover, why should it be necessary to wrap the result of a ParametricRegion expression with a Region? Either there's something fundamental here I don't understand, or else a whole slew of graphics-like or geometric-like constructs have been thrown into recent versions of Mathematica without sufficient rationalization of the whole domain.$endgroup$
– murray
Mar 7 at 20:36
$begingroup$
But I'm annoyed by the different method to style the resulting graphics display, namely, through use of the
BaseStyle option of Region instead of the usual PlotStyle option of ParametricPlot3D and so many other graphics and graphics 3D functions. Moreover, why should it be necessary to wrap the result of a ParametricRegion expression with a Region? Either there's something fundamental here I don't understand, or else a whole slew of graphics-like or geometric-like constructs have been thrown into recent versions of Mathematica without sufficient rationalization of the whole domain.$endgroup$
– murray
Mar 7 at 20:36
$begingroup$
Further rant: Why does
ParametricRegion take as 2nd argument a list of lists (of parameters and their extent), whereas ParametricPlot3D uses the parameter information as a list, then another list, etc.?$endgroup$
– murray
Mar 7 at 20:39
$begingroup$
Further rant: Why does
ParametricRegion take as 2nd argument a list of lists (of parameters and their extent), whereas ParametricPlot3D uses the parameter information as a list, then another list, etc.?$endgroup$
– murray
Mar 7 at 20:39
$begingroup$
@murray Lots of questions. For a brief overview of regions, see reference.wolfram.com/language/guide/GeometricComputation. Basically, a region is a computable object. Region is a function that displays the object (similar to RegionPlot). Show converts a region object to a Graphics/Graphics3D object. ParametricRegion has a different syntax because it supports arguments without bounds, e.g.,
ParametricRegion[{Cos[t], 0, Sin[t]}, t].$endgroup$
– Carl Woll
Mar 7 at 20:48
$begingroup$
@murray Lots of questions. For a brief overview of regions, see reference.wolfram.com/language/guide/GeometricComputation. Basically, a region is a computable object. Region is a function that displays the object (similar to RegionPlot). Show converts a region object to a Graphics/Graphics3D object. ParametricRegion has a different syntax because it supports arguments without bounds, e.g.,
ParametricRegion[{Cos[t], 0, Sin[t]}, t].$endgroup$
– Carl Woll
Mar 7 at 20:48
|
show 4 more comments
5
$begingroup$
You cannot apply those geometric transformations to the results of the plotting; instead, you should apply them to a Graphics primitive, e.g. the Line object generated by ParametricPlot, which you can extract using e.g. Cases:
arcLine =
First@Cases[ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}], _Line, All]
Graphics3D[{
Red, arcLine,
Blue, GeometricTransformation[arcLine, shiftAndDilate3D]
}]
In red in the plot above is your original curve, in blue the transformed one.
answered Mar 7 at 17:06
MarcoBMarcoB
37.5k556113
$endgroup$
$begingroup$
Where in the documentation does it explain what is, and what is not, a "geometric object"?
$endgroup$
– murray
Mar 7 at 17:29
$begingroup$
@murray I was being loose with words there. I really meant a "Graphicsprimitive", such as those discussed in this guide:Graphicsobjects. I fixed it in the answer.
$endgroup$
– MarcoB
Mar 7 at 18:20
$begingroup$
Alas, the doc page guide/GraphicsObjects does not fully identify or clarify what is, and what is not, a "graphics object". For example, given the answer by Carl Woll to my question, aParametricRegionseems to qualify as such an object, yet is not listed on that guide page. So the documentation list of graphics objects doesn't specify what they are, and certainly -- and this is perhaps a real design defect -- theHeadof these objects doesn't tell you that they are "graphics objects"!
$endgroup$
– murray
Mar 7 at 19:53
add a comment |
5
$begingroup$
You cannot apply those geometric transformations to the results of the plotting; instead, you should apply them to a Graphics primitive, e.g. the Line object generated by ParametricPlot, which you can extract using e.g. Cases:
arcLine =
First@Cases[ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}], _Line, All]
Graphics3D[{
Red, arcLine,
Blue, GeometricTransformation[arcLine, shiftAndDilate3D]
}]
In red in the plot above is your original curve, in blue the transformed one.
answered Mar 7 at 17:06
MarcoBMarcoB
37.5k556113
$endgroup$
$begingroup$
Where in the documentation does it explain what is, and what is not, a "geometric object"?
$endgroup$
– murray
Mar 7 at 17:29
$begingroup$
@murray I was being loose with words there. I really meant a "Graphicsprimitive", such as those discussed in this guide:Graphicsobjects. I fixed it in the answer.
$endgroup$
– MarcoB
Mar 7 at 18:20
$begingroup$
Alas, the doc page guide/GraphicsObjects does not fully identify or clarify what is, and what is not, a "graphics object". For example, given the answer by Carl Woll to my question, aParametricRegionseems to qualify as such an object, yet is not listed on that guide page. So the documentation list of graphics objects doesn't specify what they are, and certainly -- and this is perhaps a real design defect -- theHeadof these objects doesn't tell you that they are "graphics objects"!
$endgroup$
– murray
Mar 7 at 19:53
add a comment |
5
5
5
$begingroup$
You cannot apply those geometric transformations to the results of the plotting; instead, you should apply them to a Graphics primitive, e.g. the Line object generated by ParametricPlot, which you can extract using e.g. Cases:
arcLine =
First@Cases[ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}], _Line, All]
Graphics3D[{
Red, arcLine,
Blue, GeometricTransformation[arcLine, shiftAndDilate3D]
}]
In red in the plot above is your original curve, in blue the transformed one.
answered Mar 7 at 17:06
MarcoBMarcoB
37.5k556113
$endgroup$
You cannot apply those geometric transformations to the results of the plotting; instead, you should apply them to a Graphics primitive, e.g. the Line object generated by ParametricPlot, which you can extract using e.g. Cases:
arcLine =
First@Cases[ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}], _Line, All]
Graphics3D[{
Red, arcLine,
Blue, GeometricTransformation[arcLine, shiftAndDilate3D]
}]
In red in the plot above is your original curve, in blue the transformed one.
answered Mar 7 at 17:06
MarcoBMarcoB
37.5k556113
edited Mar 7 at 18:18
answered Mar 7 at 17:06
MarcoBMarcoB
37.5k556113
answered Mar 7 at 17:06
MarcoBMarcoB
37.5k556113
answered Mar 7 at 17:06
MarcoBMarcoB
37.5k556113
37.5k556113
$begingroup$
Where in the documentation does it explain what is, and what is not, a "geometric object"?
$endgroup$
– murray
Mar 7 at 17:29
$begingroup$
@murray I was being loose with words there. I really meant a "Graphicsprimitive", such as those discussed in this guide:Graphicsobjects. I fixed it in the answer.
$endgroup$
– MarcoB
Mar 7 at 18:20
$begingroup$
Alas, the doc page guide/GraphicsObjects does not fully identify or clarify what is, and what is not, a "graphics object". For example, given the answer by Carl Woll to my question, aParametricRegionseems to qualify as such an object, yet is not listed on that guide page. So the documentation list of graphics objects doesn't specify what they are, and certainly -- and this is perhaps a real design defect -- theHeadof these objects doesn't tell you that they are "graphics objects"!
$endgroup$
– murray
Mar 7 at 19:53
add a comment |
$begingroup$
Where in the documentation does it explain what is, and what is not, a "geometric object"?
$endgroup$
– murray
Mar 7 at 17:29
$begingroup$
@murray I was being loose with words there. I really meant a "Graphicsprimitive", such as those discussed in this guide:Graphicsobjects. I fixed it in the answer.
$endgroup$
– MarcoB
Mar 7 at 18:20
$begingroup$
Alas, the doc page guide/GraphicsObjects does not fully identify or clarify what is, and what is not, a "graphics object". For example, given the answer by Carl Woll to my question, aParametricRegionseems to qualify as such an object, yet is not listed on that guide page. So the documentation list of graphics objects doesn't specify what they are, and certainly -- and this is perhaps a real design defect -- theHeadof these objects doesn't tell you that they are "graphics objects"!
$endgroup$
– murray
Mar 7 at 19:53
$begingroup$
Where in the documentation does it explain what is, and what is not, a "geometric object"?
$endgroup$
– murray
Mar 7 at 17:29
$begingroup$
Where in the documentation does it explain what is, and what is not, a "geometric object"?
$endgroup$
– murray
Mar 7 at 17:29
$begingroup$
@murray I was being loose with words there. I really meant a "
Graphics primitive", such as those discussed in this guide: Graphics objects. I fixed it in the answer.$endgroup$
– MarcoB
Mar 7 at 18:20
$begingroup$
@murray I was being loose with words there. I really meant a "
Graphics primitive", such as those discussed in this guide: Graphics objects. I fixed it in the answer.$endgroup$
– MarcoB
Mar 7 at 18:20
$begingroup$
Alas, the doc page guide/GraphicsObjects does not fully identify or clarify what is, and what is not, a "graphics object". For example, given the answer by Carl Woll to my question, a
ParametricRegion seems to qualify as such an object, yet is not listed on that guide page. So the documentation list of graphics objects doesn't specify what they are, and certainly -- and this is perhaps a real design defect -- the Head of these objects doesn't tell you that they are "graphics objects"!$endgroup$
– murray
Mar 7 at 19:53
$begingroup$
Alas, the doc page guide/GraphicsObjects does not fully identify or clarify what is, and what is not, a "graphics object". For example, given the answer by Carl Woll to my question, a
ParametricRegion seems to qualify as such an object, yet is not listed on that guide page. So the documentation list of graphics objects doesn't specify what they are, and certainly -- and this is perhaps a real design defect -- the Head of these objects doesn't tell you that they are "graphics objects"!$endgroup$
– murray
Mar 7 at 19:53
add a comment |
4
$begingroup$
Use arc3D[[1]] (which contains all the graphics primitives and their styles) as the first argument of GeometricTransformation:
arc3D = ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}]
Show[arc3D,
Graphics3D[GeometricTransformation[arc3D[[1]], shiftAndDilate3D] /. l_Line :> {Orange, l}],
PlotRange -> All]
answered Mar 7 at 17:12
kglrkglr
189k10205422
$endgroup$
$begingroup$
I cannot reproduce that. Rather, I get an error message: "An improperly formatted option was encountered while reading a Graphics3DBox. The left-hand side of the option was not a symbol or string."
$endgroup$
– murray
Mar 7 at 17:38
$begingroup$
@murray, forgot a comma beforePlotRange(fixed now).
$endgroup$
– kglr
Mar 7 at 17:41
$begingroup$
Sorry, I should have caught that!
$endgroup$
– murray
Mar 7 at 19:47
add a comment |
4
$begingroup$
Use arc3D[[1]] (which contains all the graphics primitives and their styles) as the first argument of GeometricTransformation:
arc3D = ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}]
Show[arc3D,
Graphics3D[GeometricTransformation[arc3D[[1]], shiftAndDilate3D] /. l_Line :> {Orange, l}],
PlotRange -> All]
answered Mar 7 at 17:12
kglrkglr
189k10205422
$endgroup$
$begingroup$
I cannot reproduce that. Rather, I get an error message: "An improperly formatted option was encountered while reading a Graphics3DBox. The left-hand side of the option was not a symbol or string."
$endgroup$
– murray
Mar 7 at 17:38
$begingroup$
@murray, forgot a comma beforePlotRange(fixed now).
$endgroup$
– kglr
Mar 7 at 17:41
$begingroup$
Sorry, I should have caught that!
$endgroup$
– murray
Mar 7 at 19:47
add a comment |
4
4
4
$begingroup$
Use arc3D[[1]] (which contains all the graphics primitives and their styles) as the first argument of GeometricTransformation:
arc3D = ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}]
Show[arc3D,
Graphics3D[GeometricTransformation[arc3D[[1]], shiftAndDilate3D] /. l_Line :> {Orange, l}],
PlotRange -> All]
answered Mar 7 at 17:12
kglrkglr
189k10205422
$endgroup$
Use arc3D[[1]] (which contains all the graphics primitives and their styles) as the first argument of GeometricTransformation:
arc3D = ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t, 0, π/2}]
Show[arc3D,
Graphics3D[GeometricTransformation[arc3D[[1]], shiftAndDilate3D] /. l_Line :> {Orange, l}],
PlotRange -> All]
answered Mar 7 at 17:12
kglrkglr
189k10205422
edited Mar 7 at 17:40
answered Mar 7 at 17:12
kglrkglr
189k10205422
answered Mar 7 at 17:12
kglrkglr
189k10205422
answered Mar 7 at 17:12
kglrkglr
189k10205422
189k10205422
$begingroup$
I cannot reproduce that. Rather, I get an error message: "An improperly formatted option was encountered while reading a Graphics3DBox. The left-hand side of the option was not a symbol or string."
$endgroup$
– murray
Mar 7 at 17:38
$begingroup$
@murray, forgot a comma beforePlotRange(fixed now).
$endgroup$
– kglr
Mar 7 at 17:41
$begingroup$
Sorry, I should have caught that!
$endgroup$
– murray
Mar 7 at 19:47
add a comment |
$begingroup$
I cannot reproduce that. Rather, I get an error message: "An improperly formatted option was encountered while reading a Graphics3DBox. The left-hand side of the option was not a symbol or string."
$endgroup$
– murray
Mar 7 at 17:38
$begingroup$
@murray, forgot a comma beforePlotRange(fixed now).
$endgroup$
– kglr
Mar 7 at 17:41
$begingroup$
Sorry, I should have caught that!
$endgroup$
– murray
Mar 7 at 19:47
$begingroup$
I cannot reproduce that. Rather, I get an error message: "An improperly formatted option was encountered while reading a Graphics3DBox. The left-hand side of the option was not a symbol or string."
$endgroup$
– murray
Mar 7 at 17:38
$begingroup$
I cannot reproduce that. Rather, I get an error message: "An improperly formatted option was encountered while reading a Graphics3DBox. The left-hand side of the option was not a symbol or string."
$endgroup$
– murray
Mar 7 at 17:38
$begingroup$
@murray, forgot a comma before
PlotRange (fixed now).$endgroup$
– kglr
Mar 7 at 17:41
$begingroup$
@murray, forgot a comma before
PlotRange (fixed now).$endgroup$
– kglr
Mar 7 at 17:41
$begingroup$
Sorry, I should have caught that!
$endgroup$
– murray
Mar 7 at 19:47
$begingroup$
Sorry, I should have caught that!
$endgroup$
– murray
Mar 7 at 19:47
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%2f192809%2faffine-transformation-of-circular-arc-in-3d%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
$begingroup$
At least for this case, it is much better to just apply the affine transformation to the parametric equations directly:
ParametricPlot3D[AffineTransform[{2 IdentityMatrix[3], {3, 0, 0}}] @ {Cos[t], 0, Sin[t]} // Evaluate, {t, 0, π/2}].$endgroup$
– J. M. is slightly pensive♦
Mar 8 at 1:46
$begingroup$
@J.M.iscomputer-less: That's a refreshingly different approach! I have to look at in the entire context of the more complicated thing I'm actually trying to do. It's worth making an answer!
$endgroup$
– murray
Mar 8 at 1:55
$begingroup$
I think I kind of understand your confusion now, in light of this and your other question. One problem is that the docs do not give a complete and unambiguous list of primitives that one can point to and say: "these are primitives, and they are the only ones supported by
GeometricTransformation"; this list mixes up directives and primitives, so that doesn't count.$endgroup$
– J. M. is slightly pensive♦
Mar 8 at 23:56
$begingroup$
Possibly relevant: mathematica.stackexchange.com/questions/10957/…
$endgroup$
– Sjoerd C. de Vries
Mar 9 at 14:07