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

How to write papers efficiently when English isn't my first language?

Is it okay to store user locations?

Why does C# sound extremely flat when saxophone is tuned to G?

How can I open an app using Terminal?

How should I support this large drywall patch?

How long to clear the 'suck zone' of a turbofan after start is initiated?

Whats the best way to handle refactoring a big file?

How easy is it to start Magic from scratch?

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

Is it my responsibility to learn a new technology in my own time my employer wants to implement?

Is HostGator storing my password in plaintext?

Fastest way to shutdown Ubuntu Mate 18.10

Science fiction novels about a solar system spanning civilisation where people change their bodies at will

If the heap is initialized for security, then why is the stack uninitialized?

How to be diplomatic in refusing to write code that breaches the privacy of our users

Opposite of a diet

WOW air has ceased operation, can I get my tickets refunded?

Increase performance creating Mandelbrot set in python

Why is there a PLL in CPU?

% symbol leads to superlong (forever?) compilations

How do spells that require an ability check vs. the caster's spell save DC work?

How do I solve this limit?

How to make a variable always equal to the result of some calculations?

The King's new dress



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

Францішак Багушэвіч Змест Сям'я | Біяграфія | Творчасць | Мова Багушэвіча | Ацэнкі дзейнасці | Цікавыя факты | Спадчына | Выбраная бібліяграфія | Ушанаванне памяці | У філатэліі | Зноскі | Літаратура | Спасылкі | НавігацыяЛяхоўскі У. Рупіўся дзеля Бога і людзей: Жыццёвы шлях Лявона Вітан-Дубейкаўскага // Вольскі і Памідораў з песняй пра немца Адвакат, паэт, народны заступнік Ашмянскі веснікВ Минске появится площадь Богушевича и улица Сырокомли, Белорусская деловая газета, 19 июля 2001 г.Айцец беларускай нацыянальнай ідэі паўстаў у бронзе Сяргей Аляксандравіч Адашкевіч (1918, Мінск). 80-я гады. Бюст «Францішак Багушэвіч».Яўген Мікалаевіч Ціхановіч. «Партрэт Францішка Багушэвіча»Мікола Мікалаевіч Купава. «Партрэт зачынальніка новай беларускай літаратуры Францішка Багушэвіча»Уладзімір Іванавіч Мелехаў. На помніку «Змагарам за родную мову» Барэльеф «Францішак Багушэвіч»Памяць пра Багушэвіча на Віленшчыне Страчаная сталіца. Беларускія шыльды на вуліцах Вільні«Krynica». Ideologia i przywódcy białoruskiego katolicyzmuФранцішак БагушэвічТворы на knihi.comТворы Францішка Багушэвіча на bellib.byСодаль Уладзімір. Францішак Багушэвіч на Лідчыне;Луцкевіч Антон. Жыцьцё і творчасьць Фр. Багушэвіча ў успамінах ягоных сучасьнікаў // Запісы Беларускага Навуковага таварыства. Вільня, 1938. Сшытак 1. С. 16-34.Большая российская1188761710000 0000 5537 633Xn9209310021619551927869394п

Беларусь Змест Назва Гісторыя Геаграфія Сімволіка Дзяржаўны лад Палітычныя партыі Міжнароднае становішча і знешняя палітыка Адміністрацыйны падзел Насельніцтва Эканоміка Культура і грамадства Сацыяльная сфера Узброеныя сілы Заўвагі Літаратура Спасылкі НавігацыяHGЯOiТоп-2011 г. (па версіі ej.by)Топ-2013 г. (па версіі ej.by)Топ-2016 г. (па версіі ej.by)Топ-2017 г. (па версіі ej.by)Нацыянальны статыстычны камітэт Рэспублікі БеларусьШчыльнасць насельніцтва па краінахhttp://naviny.by/rubrics/society/2011/09/16/ic_articles_116_175144/А. Калечыц, У. Ксяндзоў. Спробы засялення краю неандэртальскім чалавекам.І ў Менску былі мамантыА. Калечыц, У. Ксяндзоў. Старажытны каменны век (палеаліт). Першапачатковае засяленне тэрыторыіГ. Штыхаў. Балты і славяне ў VI—VIII стст.М. Клімаў. Полацкае княства ў IX—XI стст.Г. Штыхаў, В. Ляўко. Палітычная гісторыя Полацкай зямліГ. Штыхаў. Дзяржаўны лад у землях-княствахГ. Штыхаў. Дзяржаўны лад у землях-княствахБеларускія землі ў складзе Вялікага Княства ЛітоўскагаЛюблінская унія 1569 г."The Early Stages of Independence"Zapomniane prawdy25 гадоў таму было аб'яўлена, што Язэп Пілсудскі — беларус (фота)Наша вадаДакументы ЧАЭС: Забруджванне тэрыторыі Беларусі « ЧАЭС Зона адчужэнняСведения о политических партиях, зарегистрированных в Республике Беларусь // Министерство юстиции Республики БеларусьСтатыстычны бюлетэнь „Полаўзроставая структура насельніцтва Рэспублікі Беларусь на 1 студзеня 2012 года і сярэднегадовая колькасць насельніцтва за 2011 год“Индекс человеческого развития Беларуси — не было бы нижеБеларусь занимает первое место в СНГ по индексу развития с учетом гендерного факцёраНацыянальны статыстычны камітэт Рэспублікі БеларусьКанстытуцыя РБ. Артыкул 17Трансфармацыйныя задачы БеларусіВыйсце з крызісу — далейшае рэфармаванне Беларускі рубель — сусветны лідар па дэвальвацыяхПра змену коштаў у кастрычніку 2011 г.Бядней за беларусаў у СНД толькі таджыкіСярэдні заробак у верасні дасягнуў 2,26 мільёна рублёўЭканомікаГаласуем за ТОП-100 беларускай прозыСучасныя беларускія мастакіАрхитектура Беларуси BELARUS.BYА. Каханоўскі. Культура Беларусі ўсярэдзіне XVII—XVIII ст.Анталогія беларускай народнай песні, гуказапісы спеваўБеларускія Музычныя IнструментыБеларускі рок, які мы страцілі. Топ-10 гуртоў«Мясцовы час» — нязгаслая легенда беларускай рок-музыкіСЯРГЕЙ БУДКІН. МЫ НЯ ЗНАЕМ СВАЁЙ МУЗЫКІМ. А. Каладзінскі. НАРОДНЫ ТЭАТРМагнацкія культурныя цэнтрыПублічная дыскусія «Беларуская новая пьеса: без беларускай мовы ці беларуская?»Беларускія драматургі па-ранейшаму лепш ставяцца за мяжой, чым на радзіме«Працэс незалежнага кіно пайшоў, і дзяржаву турбуе яго непадкантрольнасць»Беларускія філосафы ў пошуках прасторыВсе идём в библиотекуАрхіваванаАб Нацыянальнай праграме даследавання і выкарыстання касмічнай прасторы ў мірных мэтах на 2008—2012 гадыУ космас — разам.У суседнім з Барысаўскім раёне пабудуюць Камандна-вымяральны пунктСвяты і абрады беларусаў«Мірныя бульбашы з малой краіны» — 5 непраўдзівых стэрэатыпаў пра БеларусьМ. Раманюк. Беларускае народнае адзеннеУ Беларусі скарачаецца колькасць злачынстваўЛукашэнка незадаволены мінскімі ўладамі Крадзяжы складаюць у Мінску каля 70% злачынстваў Узровень злачыннасці ў Мінскай вобласці — адзін з самых высокіх у краіне Генпракуратура аналізуе стан са злачыннасцю ў Беларусі па каэфіцыенце злачыннасці У Беларусі стабілізавалася крымінагеннае становішча, лічыць генпракурорЗамежнікі сталі здзяйсняць у Беларусі больш злачынстваўМУС Беларусі турбуе рост рэцыдыўнай злачыннасціЯ з ЖЭСа. Дазволіце вас абкрасці! Рэйтынг усіх службаў і падраздзяленняў ГУУС Мінгарвыканкама вырасАб КДБ РБГісторыя Аператыўна-аналітычнага цэнтра РБГісторыя ДКФРТаможняagentura.ruБеларусьBelarus.by — Афіцыйны сайт Рэспублікі БеларусьСайт урада БеларусіRadzima.org — Збор архітэктурных помнікаў, гісторыя Беларусі«Глобус Беларуси»Гербы и флаги БеларусиАсаблівасці каменнага веку на БеларусіА. Калечыц, У. Ксяндзоў. Старажытны каменны век (палеаліт). Першапачатковае засяленне тэрыторыіУ. Ксяндзоў. Сярэдні каменны век (мезаліт). Засяленне краю плямёнамі паляўнічых, рыбакоў і збіральнікаўА. Калечыц, М. Чарняўскі. Плямёны на тэрыторыі Беларусі ў новым каменным веку (неаліце)А. Калечыц, У. Ксяндзоў, М. Чарняўскі. Гаспадарчыя заняткі ў каменным векуЭ. Зайкоўскі. Духоўная культура ў каменным векуАсаблівасці бронзавага веку на БеларусіФарміраванне супольнасцей ранняга перыяду бронзавага векуФотографии БеларусиРоля беларускіх зямель ва ўтварэнні і ўмацаванні ВКЛВ. Фадзеева. З гісторыі развіцця беларускай народнай вышыўкіDMOZGran catalanaБольшая российскаяBritannica (анлайн)Швейцарскі гістарычны15325917611952699xDA123282154079143-90000 0001 2171 2080n9112870100577502ge128882171858027501086026362074122714179пппппп

ValueError: Expected n_neighbors <= n_samples, but n_samples = 1, n_neighbors = 6 (SMOTE) The 2019 Stack Overflow Developer Survey Results Are InCan SMOTE be applied over sequence of words (sentences)?ValueError when doing validation with random forestsSMOTE and multi class oversamplingLogic behind SMOTE-NC?ValueError: Error when checking target: expected dense_1 to have shape (7,) but got array with shape (1,)SmoteBoost: Should SMOTE be ran individually for each iteration/tree in the boosting?solving multi-class imbalance classification using smote and OSSUsing SMOTE for Synthetic Data generation to improve performance on unbalanced dataproblem of entry format for a simple model in KerasSVM SMOTE fit_resample() function runs forever with no result