Ttyjukl

Strange behavior of Object.defineProperty() in JavaScript

One-one communication

What would you call this weird metallic apparatus that allows you to lift people?

How many time has Arya actually used Needle?

What initially awakened the Balrog?

How much damage would a cupful of neutron star matter do to the Earth?

Google .dev domain strangely redirects to https

Most bit efficient text communication method?

Hangman Game with C++

How would a mousetrap for use in space work?

Interpretation of R output from Cohen's Kappa

In musical terms, what properties are varied by the human voice to produce different words / syllables?

Is there hard evidence that the grant peer review system performs significantly better than random?

Is it fair for a professor to grade us on the possession of past papers?

Put R under double integral

Electrolysis of water: Which equations to use? (IB Chem)

What is the meaning of 'breadth' in breadth first search?

What is the home of the drow in Flanaess?

How do I find out the mythology and history of my Fortress?

Do wooden building fires get hotter than 600°C?

How to compare two different files line by line in unix?

Who can remove European Commissioners?

An adverb for when you're not exaggerating

Is CEO the "profession" with the most psychopaths?

Drawing spherical mirrors

1

What is the best way to draw 3D spherical mirrors like these on tikz?

tikz-pgf tikz-arrows 3d tikz-3d

share|improve this question

asked 2 hours ago

RodrigoRodrigo

725

• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  
  What have you tried so far?
  
  – JouleV
  2 hours ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  For things like that I just make a sketch in GeoGebra and export as TeX.
  
  – Rodrigo
  2 hours ago
  

  
  
  
  

add a comment | 

1

What is the best way to draw 3D spherical mirrors like these on tikz?

tikz-pgf tikz-arrows 3d tikz-3d

share|improve this question

asked 2 hours ago

RodrigoRodrigo

725

• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  
  What have you tried so far?
  
  – JouleV
  2 hours ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  For things like that I just make a sketch in GeoGebra and export as TeX.
  
  – Rodrigo
  2 hours ago
  

  
  
  
  

add a comment | 

What is the best way to draw 3D spherical mirrors like these on tikz?

tikz-pgf tikz-arrows 3d tikz-3d

share|improve this question

asked 2 hours ago

RodrigoRodrigo

725

share|improve this question

asked 2 hours ago

RodrigoRodrigo

725

share|improve this question

asked 2 hours ago

RodrigoRodrigo

725

asked 2 hours ago

RodrigoRodrigo

725

asked 2 hours ago

RodrigoRodrigo

725

1 Answer
1

active

oldest

votes

5

This may be a starting point. You are expecting others to type in symbols from your screen shot, and it may be that you're expecting too much.

documentclass[tikz,border=3.14mm]{standalone}

usepackage{tikz-3dplot}

usetikzlibrary{3d}

begin{document}

tdplotsetmaincoords{90}{-30}

begin{tikzpicture}[tdplot_main_coords,bullet/.style={circle,fill,inner sep=1pt}]

 % parameters

 pgfmathsetmacro{Radius}{2.5}

 pgfmathsetmacro{Angle}{120}

 % left

 begin{scope}[shift={(-4,0,0)},local bounding box=L]

  draw plot[variable=x,domain=0:360,smooth] (0,{Radius*cos(x)},{Radius*sin(x)});

  draw[top color=gray!20,bottom color=gray!30,middle color=white] 

  plot[variable=x,domain=90:-90,smooth] (-0.2,{Radius*cos(x)},{Radius*sin(x)})

  -- plot[variable=x,domain=-90:90,smooth] (0,{Radius*cos(x)},{Radius*sin(x)})

  --cycle ;

  foreach X in {90,140}

  {draw plot[variable=x,domain=90:-90,smooth]

  ({-0.1*Radius*cos(x)},{cos(X)*Radius*sin(x)},{sin(X)*Radius*sin(x)});}

  draw plot[variable=x,domain=0:60,smooth]

  ({-0.1*Radius*cos(x)},{cos(Angle)*Radius*sin(x)},{sin(Angle)*Radius*sin(x)})

  node[bullet] (P1){};

 end{scope} 

 % left

 begin{scope}[shift={(4,0,0)},local bounding box=R]

  foreach X in {90,140}

  {draw[dashed] plot[variable=x,domain=90:-90,smooth]

  ({-0.2+0.1*Radius*cos(x)},{cos(X)*Radius*sin(x)},{sin(X)*Radius*sin(x)});}

  draw[dashed] plot[variable=x,domain=90:270,smooth]

    (-0.2,{Radius*cos(x)},{Radius*sin(x)});

  draw[top color=gray!20,bottom color=gray!30,middle color=white] 

  plot[variable=x,domain=90:-90,smooth] (-0.2,{Radius*cos(x)},{Radius*sin(x)})

  -- plot[variable=x,domain=-90:90,smooth] (0,{Radius*cos(x)},{Radius*sin(x)})

  --cycle ;

  draw plot[variable=x,domain=0:360,smooth] (0,{Radius*cos(x)},{Radius*sin(x)});

 end{scope} 

end{tikzpicture} 

end{document} 

share|improve this answer

answered 56 mins ago

marmotmarmot

119k6154289

add a comment | 

Your Answer

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "85"
};
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

Name

Email

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2ftex.stackexchange.com%2fquestions%2f485625%2fdrawing-spherical-mirrors%23new-answer', 'question_page');
}
);

Post as a guest

Name

Email

Required, but never shown

5

This may be a starting point. You are expecting others to type in symbols from your screen shot, and it may be that you're expecting too much.

documentclass[tikz,border=3.14mm]{standalone}

usepackage{tikz-3dplot}

usetikzlibrary{3d}

begin{document}

tdplotsetmaincoords{90}{-30}

begin{tikzpicture}[tdplot_main_coords,bullet/.style={circle,fill,inner sep=1pt}]

 % parameters

 pgfmathsetmacro{Radius}{2.5}

 pgfmathsetmacro{Angle}{120}

 % left

 begin{scope}[shift={(-4,0,0)},local bounding box=L]

  draw plot[variable=x,domain=0:360,smooth] (0,{Radius*cos(x)},{Radius*sin(x)});

  draw[top color=gray!20,bottom color=gray!30,middle color=white] 

  plot[variable=x,domain=90:-90,smooth] (-0.2,{Radius*cos(x)},{Radius*sin(x)})

  -- plot[variable=x,domain=-90:90,smooth] (0,{Radius*cos(x)},{Radius*sin(x)})

  --cycle ;

  foreach X in {90,140}

  {draw plot[variable=x,domain=90:-90,smooth]

  ({-0.1*Radius*cos(x)},{cos(X)*Radius*sin(x)},{sin(X)*Radius*sin(x)});}

  draw plot[variable=x,domain=0:60,smooth]

  ({-0.1*Radius*cos(x)},{cos(Angle)*Radius*sin(x)},{sin(Angle)*Radius*sin(x)})

  node[bullet] (P1){};

 end{scope} 

 % left

 begin{scope}[shift={(4,0,0)},local bounding box=R]

  foreach X in {90,140}

  {draw[dashed] plot[variable=x,domain=90:-90,smooth]

  ({-0.2+0.1*Radius*cos(x)},{cos(X)*Radius*sin(x)},{sin(X)*Radius*sin(x)});}

  draw[dashed] plot[variable=x,domain=90:270,smooth]

    (-0.2,{Radius*cos(x)},{Radius*sin(x)});

  draw[top color=gray!20,bottom color=gray!30,middle color=white] 

  plot[variable=x,domain=90:-90,smooth] (-0.2,{Radius*cos(x)},{Radius*sin(x)})

  -- plot[variable=x,domain=-90:90,smooth] (0,{Radius*cos(x)},{Radius*sin(x)})

  --cycle ;

  draw plot[variable=x,domain=0:360,smooth] (0,{Radius*cos(x)},{Radius*sin(x)});

 end{scope} 

end{tikzpicture} 

end{document} 

share|improve this answer

answered 56 mins ago

marmotmarmot

119k6154289

add a comment | 

5

This may be a starting point. You are expecting others to type in symbols from your screen shot, and it may be that you're expecting too much.

documentclass[tikz,border=3.14mm]{standalone}

usepackage{tikz-3dplot}

usetikzlibrary{3d}

begin{document}

tdplotsetmaincoords{90}{-30}

begin{tikzpicture}[tdplot_main_coords,bullet/.style={circle,fill,inner sep=1pt}]

 % parameters

 pgfmathsetmacro{Radius}{2.5}

 pgfmathsetmacro{Angle}{120}

 % left

 begin{scope}[shift={(-4,0,0)},local bounding box=L]

  draw plot[variable=x,domain=0:360,smooth] (0,{Radius*cos(x)},{Radius*sin(x)});

  draw[top color=gray!20,bottom color=gray!30,middle color=white] 

  plot[variable=x,domain=90:-90,smooth] (-0.2,{Radius*cos(x)},{Radius*sin(x)})

  -- plot[variable=x,domain=-90:90,smooth] (0,{Radius*cos(x)},{Radius*sin(x)})

  --cycle ;

  foreach X in {90,140}

  {draw plot[variable=x,domain=90:-90,smooth]

  ({-0.1*Radius*cos(x)},{cos(X)*Radius*sin(x)},{sin(X)*Radius*sin(x)});}

  draw plot[variable=x,domain=0:60,smooth]

  ({-0.1*Radius*cos(x)},{cos(Angle)*Radius*sin(x)},{sin(Angle)*Radius*sin(x)})

  node[bullet] (P1){};

 end{scope} 

 % left

 begin{scope}[shift={(4,0,0)},local bounding box=R]

  foreach X in {90,140}

  {draw[dashed] plot[variable=x,domain=90:-90,smooth]

  ({-0.2+0.1*Radius*cos(x)},{cos(X)*Radius*sin(x)},{sin(X)*Radius*sin(x)});}

  draw[dashed] plot[variable=x,domain=90:270,smooth]

    (-0.2,{Radius*cos(x)},{Radius*sin(x)});

  draw[top color=gray!20,bottom color=gray!30,middle color=white] 

  plot[variable=x,domain=90:-90,smooth] (-0.2,{Radius*cos(x)},{Radius*sin(x)})

  -- plot[variable=x,domain=-90:90,smooth] (0,{Radius*cos(x)},{Radius*sin(x)})

  --cycle ;

  draw plot[variable=x,domain=0:360,smooth] (0,{Radius*cos(x)},{Radius*sin(x)});

 end{scope} 

end{tikzpicture} 

end{document} 

share|improve this answer

answered 56 mins ago

marmotmarmot

119k6154289

add a comment | 

This may be a starting point. You are expecting others to type in symbols from your screen shot, and it may be that you're expecting too much.

documentclass[tikz,border=3.14mm]{standalone}

usepackage{tikz-3dplot}

usetikzlibrary{3d}

begin{document}

tdplotsetmaincoords{90}{-30}

begin{tikzpicture}[tdplot_main_coords,bullet/.style={circle,fill,inner sep=1pt}]

 % parameters

 pgfmathsetmacro{Radius}{2.5}

 pgfmathsetmacro{Angle}{120}

 % left

 begin{scope}[shift={(-4,0,0)},local bounding box=L]

  draw plot[variable=x,domain=0:360,smooth] (0,{Radius*cos(x)},{Radius*sin(x)});

  draw[top color=gray!20,bottom color=gray!30,middle color=white] 

  plot[variable=x,domain=90:-90,smooth] (-0.2,{Radius*cos(x)},{Radius*sin(x)})

  -- plot[variable=x,domain=-90:90,smooth] (0,{Radius*cos(x)},{Radius*sin(x)})

  --cycle ;

  foreach X in {90,140}

  {draw plot[variable=x,domain=90:-90,smooth]

  ({-0.1*Radius*cos(x)},{cos(X)*Radius*sin(x)},{sin(X)*Radius*sin(x)});}

  draw plot[variable=x,domain=0:60,smooth]

  ({-0.1*Radius*cos(x)},{cos(Angle)*Radius*sin(x)},{sin(Angle)*Radius*sin(x)})

  node[bullet] (P1){};

 end{scope} 

 % left

 begin{scope}[shift={(4,0,0)},local bounding box=R]

  foreach X in {90,140}

  {draw[dashed] plot[variable=x,domain=90:-90,smooth]

  ({-0.2+0.1*Radius*cos(x)},{cos(X)*Radius*sin(x)},{sin(X)*Radius*sin(x)});}

  draw[dashed] plot[variable=x,domain=90:270,smooth]

    (-0.2,{Radius*cos(x)},{Radius*sin(x)});

  draw[top color=gray!20,bottom color=gray!30,middle color=white] 

  plot[variable=x,domain=90:-90,smooth] (-0.2,{Radius*cos(x)},{Radius*sin(x)})

  -- plot[variable=x,domain=-90:90,smooth] (0,{Radius*cos(x)},{Radius*sin(x)})

  --cycle ;

  draw plot[variable=x,domain=0:360,smooth] (0,{Radius*cos(x)},{Radius*sin(x)});

 end{scope} 

end{tikzpicture} 

end{document} 

share|improve this answer

answered 56 mins ago

marmotmarmot

119k6154289

documentclass[tikz,border=3.14mm]{standalone}

usepackage{tikz-3dplot}

usetikzlibrary{3d}

begin{document}

tdplotsetmaincoords{90}{-30}

begin{tikzpicture}[tdplot_main_coords,bullet/.style={circle,fill,inner sep=1pt}]

 % parameters

 pgfmathsetmacro{Radius}{2.5}

 pgfmathsetmacro{Angle}{120}

 % left

 begin{scope}[shift={(-4,0,0)},local bounding box=L]

  draw plot[variable=x,domain=0:360,smooth] (0,{Radius*cos(x)},{Radius*sin(x)});

  draw[top color=gray!20,bottom color=gray!30,middle color=white] 

  plot[variable=x,domain=90:-90,smooth] (-0.2,{Radius*cos(x)},{Radius*sin(x)})

  -- plot[variable=x,domain=-90:90,smooth] (0,{Radius*cos(x)},{Radius*sin(x)})

  --cycle ;

  foreach X in {90,140}

  {draw plot[variable=x,domain=90:-90,smooth]

  ({-0.1*Radius*cos(x)},{cos(X)*Radius*sin(x)},{sin(X)*Radius*sin(x)});}

  draw plot[variable=x,domain=0:60,smooth]

  ({-0.1*Radius*cos(x)},{cos(Angle)*Radius*sin(x)},{sin(Angle)*Radius*sin(x)})

  node[bullet] (P1){};

 end{scope} 

 % left

 begin{scope}[shift={(4,0,0)},local bounding box=R]

  foreach X in {90,140}

  {draw[dashed] plot[variable=x,domain=90:-90,smooth]

  ({-0.2+0.1*Radius*cos(x)},{cos(X)*Radius*sin(x)},{sin(X)*Radius*sin(x)});}

  draw[dashed] plot[variable=x,domain=90:270,smooth]

    (-0.2,{Radius*cos(x)},{Radius*sin(x)});

  draw[top color=gray!20,bottom color=gray!30,middle color=white] 

  plot[variable=x,domain=90:-90,smooth] (-0.2,{Radius*cos(x)},{Radius*sin(x)})

  -- plot[variable=x,domain=-90:90,smooth] (0,{Radius*cos(x)},{Radius*sin(x)})

  --cycle ;

  draw plot[variable=x,domain=0:360,smooth] (0,{Radius*cos(x)},{Radius*sin(x)});

 end{scope} 

end{tikzpicture} 

end{document} 

share|improve this answer

answered 56 mins ago

marmotmarmot

119k6154289

answered 56 mins ago

marmotmarmot

119k6154289

answered 56 mins ago

marmotmarmot

119k6154289