Putting a 2D region plot under a 3D plot The Next CEO of Stack OverflowPutting ticks with values on a parametric plotPlot above desired regionIntersecting RegionPlotsRegion plot with predicatePlot region from given coordinatesPutting arrows in 3d plotFilling the region under a lineHow Plot this RegionPlot a function under constraintregion plot with region function

What does "Its cash flow is deeply negative" mean?

% symbol leads to superlong (forever?) compilations

Is a stroke of luck acceptable after a series of unfavorable events?

Putting a 2D region plot under a 3D plot

MAZDA 3 2006 (UK) - poor acceleration then takes off at 3250 revs

Text adventure game code

Return of the Riley Riddles in Reverse

Can a single photon have an energy density?

How can I quit an app using Terminal?

How to count occurrences of text in a file?

Anatomically Correct Strange Women In Ponds Distributing Swords

Anatomically Correct Mesopelagic Aves

How can I open an app using Terminal?

How to start emacs in "nothing" mode (`fundamental-mode`)

How do I get the green key off the shelf in the Dobby level of Lego Harry Potter 2?

Why doesn't a table tennis ball float on the surface? How do we calculate buoyancy here?

How to safely derail a train during transit?

Is it a good idea to use COLUMN AS (left([Another_Column],(4)) instead of LEFT in the select?

Where to find order of arguments for default functions

Is the concept of a "numerable" fiber bundle really useful or an empty generalization?

Why do professional authors make "consistency" mistakes? And how to avoid them?

What happens if you roll doubles 3 times then land on "Go to jail?"

Unreliable Magic - Is it worth it?

How do I construct this japanese bowl?



Putting a 2D region plot under a 3D plot



The Next CEO of Stack OverflowPutting ticks with values on a parametric plotPlot above desired regionIntersecting RegionPlotsRegion plot with predicatePlot region from given coordinatesPutting arrows in 3d plotFilling the region under a lineHow Plot this RegionPlot a function under constraintregion plot with region function










2












$begingroup$


I am trying to plot this 3D function over a hexagonal region:



a1 = Sqrt[3] 1, 0;
a2 = Sqrt[3] 1/2, Sqrt[3]/2;
k = kx, ky;
S = 1 + Exp[I k. a2] + Exp[I k.(a2 - a1)];
EE = Abs[S]
R = 4 Pi/(3 Sqrt[3]);
ep = Plot3D[EE, -EE, kx, ky [Element] RegularPolygon[R, 6], Axes -> False, Boxed -> False, AspectRatio -> 2]


This works fine, but I would also like to draw the region under the 3D graph, something like:



bz = Graphics[RegularPolygon[R, 6]];


or



bz = RegionPlot[RegularPolygon[R, 6]];


However, using



Show[ep, bz]


doesn't work. I have found a few similar questions but they mostly seem to be about contours, I didn't know how to extend this for something as simple as a regular polygon.










share|improve this question











$endgroup$











  • $begingroup$
    do you want you Polygon flat under the region of 3D !?
    $endgroup$
    – Alrubaie
    5 hours ago










  • $begingroup$
    Try This p = Graphics3D[Polygon[1, 0, 0, 0, 1, 0, 0, 0, 1]]
    $endgroup$
    – Alrubaie
    4 hours ago















2












$begingroup$


I am trying to plot this 3D function over a hexagonal region:



a1 = Sqrt[3] 1, 0;
a2 = Sqrt[3] 1/2, Sqrt[3]/2;
k = kx, ky;
S = 1 + Exp[I k. a2] + Exp[I k.(a2 - a1)];
EE = Abs[S]
R = 4 Pi/(3 Sqrt[3]);
ep = Plot3D[EE, -EE, kx, ky [Element] RegularPolygon[R, 6], Axes -> False, Boxed -> False, AspectRatio -> 2]


This works fine, but I would also like to draw the region under the 3D graph, something like:



bz = Graphics[RegularPolygon[R, 6]];


or



bz = RegionPlot[RegularPolygon[R, 6]];


However, using



Show[ep, bz]


doesn't work. I have found a few similar questions but they mostly seem to be about contours, I didn't know how to extend this for something as simple as a regular polygon.










share|improve this question











$endgroup$











  • $begingroup$
    do you want you Polygon flat under the region of 3D !?
    $endgroup$
    – Alrubaie
    5 hours ago










  • $begingroup$
    Try This p = Graphics3D[Polygon[1, 0, 0, 0, 1, 0, 0, 0, 1]]
    $endgroup$
    – Alrubaie
    4 hours ago













2












2








2





$begingroup$


I am trying to plot this 3D function over a hexagonal region:



a1 = Sqrt[3] 1, 0;
a2 = Sqrt[3] 1/2, Sqrt[3]/2;
k = kx, ky;
S = 1 + Exp[I k. a2] + Exp[I k.(a2 - a1)];
EE = Abs[S]
R = 4 Pi/(3 Sqrt[3]);
ep = Plot3D[EE, -EE, kx, ky [Element] RegularPolygon[R, 6], Axes -> False, Boxed -> False, AspectRatio -> 2]


This works fine, but I would also like to draw the region under the 3D graph, something like:



bz = Graphics[RegularPolygon[R, 6]];


or



bz = RegionPlot[RegularPolygon[R, 6]];


However, using



Show[ep, bz]


doesn't work. I have found a few similar questions but they mostly seem to be about contours, I didn't know how to extend this for something as simple as a regular polygon.










share|improve this question











$endgroup$




I am trying to plot this 3D function over a hexagonal region:



a1 = Sqrt[3] 1, 0;
a2 = Sqrt[3] 1/2, Sqrt[3]/2;
k = kx, ky;
S = 1 + Exp[I k. a2] + Exp[I k.(a2 - a1)];
EE = Abs[S]
R = 4 Pi/(3 Sqrt[3]);
ep = Plot3D[EE, -EE, kx, ky [Element] RegularPolygon[R, 6], Axes -> False, Boxed -> False, AspectRatio -> 2]


This works fine, but I would also like to draw the region under the 3D graph, something like:



bz = Graphics[RegularPolygon[R, 6]];


or



bz = RegionPlot[RegularPolygon[R, 6]];


However, using



Show[ep, bz]


doesn't work. I have found a few similar questions but they mostly seem to be about contours, I didn't know how to extend this for something as simple as a regular polygon.







plotting regions






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 12 mins ago









J. M. is slightly pensive

98.7k10310467




98.7k10310467










asked 5 hours ago









AshAsh

185




185











  • $begingroup$
    do you want you Polygon flat under the region of 3D !?
    $endgroup$
    – Alrubaie
    5 hours ago










  • $begingroup$
    Try This p = Graphics3D[Polygon[1, 0, 0, 0, 1, 0, 0, 0, 1]]
    $endgroup$
    – Alrubaie
    4 hours ago
















  • $begingroup$
    do you want you Polygon flat under the region of 3D !?
    $endgroup$
    – Alrubaie
    5 hours ago










  • $begingroup$
    Try This p = Graphics3D[Polygon[1, 0, 0, 0, 1, 0, 0, 0, 1]]
    $endgroup$
    – Alrubaie
    4 hours ago















$begingroup$
do you want you Polygon flat under the region of 3D !?
$endgroup$
– Alrubaie
5 hours ago




$begingroup$
do you want you Polygon flat under the region of 3D !?
$endgroup$
– Alrubaie
5 hours ago












$begingroup$
Try This p = Graphics3D[Polygon[1, 0, 0, 0, 1, 0, 0, 0, 1]]
$endgroup$
– Alrubaie
4 hours ago




$begingroup$
Try This p = Graphics3D[Polygon[1, 0, 0, 0, 1, 0, 0, 0, 1]]
$endgroup$
– Alrubaie
4 hours ago










1 Answer
1






active

oldest

votes


















4












$begingroup$

Try this:



region = Graphics3D[Polygon[CirclePoints[R, 6] /. x_, y_ :> x, y, -3]];
Show[ep,region]


Mathematica graphics






share|improve this answer









$endgroup$












  • $begingroup$
    Works perfectly, thank you!
    $endgroup$
    – Ash
    4 hours ago










  • $begingroup$
    @Ash You are very welcome! Thank you for the accept as well!
    $endgroup$
    – MarcoB
    4 hours ago











  • $begingroup$
    That's nice! What AspectRatio did you use?
    $endgroup$
    – mjw
    3 hours ago










  • $begingroup$
    @mjw Thank you! The aspect ratio is inherited from ep, which was in the OP's original code; they had set it to $2$.
    $endgroup$
    – MarcoB
    3 hours ago











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


















StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194130%2fputting-a-2d-region-plot-under-a-3d-plot%23new-answer', 'question_page');

);

Post as a guest















Required, but never shown

























1 Answer
1






active

oldest

votes








1 Answer
1






active

oldest

votes









active

oldest

votes






active

oldest

votes









4












$begingroup$

Try this:



region = Graphics3D[Polygon[CirclePoints[R, 6] /. x_, y_ :> x, y, -3]];
Show[ep,region]


Mathematica graphics






share|improve this answer









$endgroup$












  • $begingroup$
    Works perfectly, thank you!
    $endgroup$
    – Ash
    4 hours ago










  • $begingroup$
    @Ash You are very welcome! Thank you for the accept as well!
    $endgroup$
    – MarcoB
    4 hours ago











  • $begingroup$
    That's nice! What AspectRatio did you use?
    $endgroup$
    – mjw
    3 hours ago










  • $begingroup$
    @mjw Thank you! The aspect ratio is inherited from ep, which was in the OP's original code; they had set it to $2$.
    $endgroup$
    – MarcoB
    3 hours ago















4












$begingroup$

Try this:



region = Graphics3D[Polygon[CirclePoints[R, 6] /. x_, y_ :> x, y, -3]];
Show[ep,region]


Mathematica graphics






share|improve this answer









$endgroup$












  • $begingroup$
    Works perfectly, thank you!
    $endgroup$
    – Ash
    4 hours ago










  • $begingroup$
    @Ash You are very welcome! Thank you for the accept as well!
    $endgroup$
    – MarcoB
    4 hours ago











  • $begingroup$
    That's nice! What AspectRatio did you use?
    $endgroup$
    – mjw
    3 hours ago










  • $begingroup$
    @mjw Thank you! The aspect ratio is inherited from ep, which was in the OP's original code; they had set it to $2$.
    $endgroup$
    – MarcoB
    3 hours ago













4












4








4





$begingroup$

Try this:



region = Graphics3D[Polygon[CirclePoints[R, 6] /. x_, y_ :> x, y, -3]];
Show[ep,region]


Mathematica graphics






share|improve this answer









$endgroup$



Try this:



region = Graphics3D[Polygon[CirclePoints[R, 6] /. x_, y_ :> x, y, -3]];
Show[ep,region]


Mathematica graphics







share|improve this answer












share|improve this answer



share|improve this answer










answered 4 hours ago









MarcoBMarcoB

38k556114




38k556114











  • $begingroup$
    Works perfectly, thank you!
    $endgroup$
    – Ash
    4 hours ago










  • $begingroup$
    @Ash You are very welcome! Thank you for the accept as well!
    $endgroup$
    – MarcoB
    4 hours ago











  • $begingroup$
    That's nice! What AspectRatio did you use?
    $endgroup$
    – mjw
    3 hours ago










  • $begingroup$
    @mjw Thank you! The aspect ratio is inherited from ep, which was in the OP's original code; they had set it to $2$.
    $endgroup$
    – MarcoB
    3 hours ago
















  • $begingroup$
    Works perfectly, thank you!
    $endgroup$
    – Ash
    4 hours ago










  • $begingroup$
    @Ash You are very welcome! Thank you for the accept as well!
    $endgroup$
    – MarcoB
    4 hours ago











  • $begingroup$
    That's nice! What AspectRatio did you use?
    $endgroup$
    – mjw
    3 hours ago










  • $begingroup$
    @mjw Thank you! The aspect ratio is inherited from ep, which was in the OP's original code; they had set it to $2$.
    $endgroup$
    – MarcoB
    3 hours ago















$begingroup$
Works perfectly, thank you!
$endgroup$
– Ash
4 hours ago




$begingroup$
Works perfectly, thank you!
$endgroup$
– Ash
4 hours ago












$begingroup$
@Ash You are very welcome! Thank you for the accept as well!
$endgroup$
– MarcoB
4 hours ago





$begingroup$
@Ash You are very welcome! Thank you for the accept as well!
$endgroup$
– MarcoB
4 hours ago













$begingroup$
That's nice! What AspectRatio did you use?
$endgroup$
– mjw
3 hours ago




$begingroup$
That's nice! What AspectRatio did you use?
$endgroup$
– mjw
3 hours ago












$begingroup$
@mjw Thank you! The aspect ratio is inherited from ep, which was in the OP's original code; they had set it to $2$.
$endgroup$
– MarcoB
3 hours ago




$begingroup$
@mjw Thank you! The aspect ratio is inherited from ep, which was in the OP's original code; they had set it to $2$.
$endgroup$
– MarcoB
3 hours ago

















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














StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194130%2fputting-a-2d-region-plot-under-a-3d-plot%23new-answer', 'question_page');

);

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







Popular posts from this blog

Can not update quote_id field of “quote_item” table magento 2Magento 2.1 - We can't remove the item. (Shopping Cart doesnt allow us to remove items before becomes empty)Add value for custom quote item attribute using REST apiREST API endpoint v1/carts/cartId/items always returns error messageCorrect way to save entries to databaseHow to remove all associated quote objects of a customer completelyMagento 2 - Save value from custom input field to quote_itemGet quote_item data using quote id and product id filter in Magento 2How to set additional data to quote_item table from controller in Magento 2?What is the purpose of additional_data column in quote_item table in magento2Set Custom Price to Quote item magento2 from controller

How to solve knockout JS error in Magento 2 Planned maintenance scheduled April 23, 2019 at 23:30 UTC (7:30pm US/Eastern) Announcing the arrival of Valued Associate #679: Cesar Manara Unicorn Meta Zoo #1: Why another podcast?(Magento2) knockout.js:3012 Uncaught ReferenceError: Unable to process bindingUnable to process binding Knockout.js magento 2Cannot read property `scopeLabel` of undefined on Product Detail PageCan't get Customer Data on frontend in Magento 2Magento2 Order Summary - unable to process bindingKO templates are not loading in Magento 2.1 applicationgetting knockout js error magento 2Product grid not load -— Unable to process binding Knockout.js magento 2Product form not loaded in magento2Uncaught ReferenceError: Unable to process binding “if: function()return (isShowLegend()) ” magento 2

Nissan Patrol Зміст Перше покоління — 4W60 (1951-1960) | Друге покоління — 60 series (1960-1980) | Третє покоління (1980–2002) | Четверте покоління — Y60 (1987–1998) | П'яте покоління — Y61 (1997–2013) | Шосте покоління — Y62 (2010- ) | Посилання | Зноски | Навігаційне менюОфіційний український сайтТест-драйв Nissan Patrol 2010 7-го поколінняNissan PatrolКак мы тестировали Nissan Patrol 2016рвиправивши або дописавши її