그냥 선으로 그렸습니다.
GeoGebra 3D 는 아직 tikz 로 내보는 기능을 지원하지 않더라요. 아쉬워요 ^^
아, 코드는 GeoGebra 에서 내보내기 한 것이라 잘 정돈된 것이 아니지만 아래에 붙여놓기 하겠습니다~
\begin{tikzpicture}[line cap=round,line join=round,>=triangle 45,x=1.0cm,y=1.0cm]
\draw (1.824233671752777,-0.768000087274585) node[anchor=north west] {$\mathbf{x} = \mathbf{x} (u, v)$};
\draw [rotate around={9.564218898555072:(0.0,0.0)},line width=1.2000000000000002pt,dash pattern=on 2pt off 2pt,fill=black,fill opacity=0.05] (0.0,0.0) ellipse (1.3000000000000003cm and 0.6176747726124736cm);
\draw [shift={(0.0,-0.0)},line width=1.2000000000000002pt,dash pattern=on 3pt off 3pt] plot[domain=4.2304710428029395:5.635932619113785,variable=\t]({1.0*1.3*cos(\t r)+-0.0*1.3*sin(\t r)},{0.0*1.3*cos(\t r)+1.0*1.3*sin(\t r)});
\draw[line width=1.2000000000000002pt, smooth,samples=100,domain=0.0:1.0] plot[parametric] function{(1.0-t)**(3.0)*(-1.2187290074278347)+3.0*t*(1.0-t)**(2.0)*(-1.8448557052543566)+3.0*t**(2.0)*(1.0-t)*(-2.204760202528503)+t**(3.0)*(-2.178215361943341),(1.0-t)**(3.0)*0.4524374061170949+3.0*t*(1.0-t)**(2.0)*0.1615615121731504+3.0*t**(2.0)*(1.0-t)*(-0.16402885153588556)+t**(3.0)*(-0.45360080759252713)};
\draw[line width=1.2000000000000002pt,dash pattern=on 2pt off 2pt, smooth,samples=100,domain=0.0:1.0] plot[parametric] function{(1.0-t)**(3.0)*(-2.178215361943341)+3.0*t*(1.0-t)**(2.0)*(-2.161389364629791)+3.0*t**(2.0)*(1.0-t)*(-1.691050664379004)+t**(3.0)*(-1.47239497587079),(1.0-t)**(3.0)*(-0.45360080759252713)+3.0*t*(1.0-t)**(2.0)*(-0.6371519929559033)+3.0*t**(2.0)*(1.0-t)*(-0.9119827545781716)+t**(3.0)*(-1.3062340624671882)};
\draw[line width=1.2000000000000002pt,dash pattern=on 2pt off 2pt, smooth,samples=100,domain=0.0:1.0] plot[parametric] function{(1.0-t)**(3.0)*(-1.47239497587079)+3.0*t*(1.0-t)**(2.0)*(-1.4222759313481352)+3.0*t**(2.0)*(1.0-t)*(-0.9280634421585979)+t**(3.0)*(-0.6025233838938657),(1.0-t)**(3.0)*(-1.3062340624671882)+3.0*t*(1.0-t)**(2.0)*(-1.3966021612256259)+3.0*t**(2.0)*(1.0-t)*(-1.2666027432154852)+t**(3.0)*(-1.1519399167756474)};
\draw[line width=1.2000000000000002pt,dash pattern=on 2pt off 2pt, smooth,samples=100,domain=0.0:1.0] plot[parametric] function{(1.0-t)**(3.0)*(-0.6025233838938657)+3.0*t*(1.0-t)**(2.0)*0.013781640690715144+3.0*t**(2.0)*(1.0-t)*0.5423579357650483+t**(3.0)*1.0370664563796896,(1.0-t)**(3.0)*(-1.1519399167756474)+3.0*t*(1.0-t)**(2.0)*(-0.9348628650461968)+3.0*t**(2.0)*(1.0-t)*(-0.8395122690277746)+t**(3.0)*(-0.7838961443023389)};
\draw[line width=1.2000000000000002pt, smooth,samples=100,domain=0.0:1.0] plot[parametric] function{(1.0-t)**(3.0)*1.084962916795597+3.0*t*(1.0-t)**(2.0)*1.5766117264417432+3.0*t**(2.0)*(1.0-t)*2.393649430279735+t**(3.0)*2.573280416527203,(1.0-t)**(3.0)*0.7161392805721459+3.0*t*(1.0-t)**(2.0)*0.69692134816506+3.0*t**(2.0)*(1.0-t)*0.2738979180646875+t**(3.0)*(-0.42817485012846246)};
\draw [shift={(0.0,-0.0)},line width=1.2000000000000002pt,dash pattern=on 3pt off 3pt] plot[domain=0.16692711016125156:3.3085197637510446,variable=\t]({1.0*1.3*cos(\t r)+-0.0*1.3*sin(\t r)},{0.0*1.3*cos(\t r)+1.0*1.3*sin(\t r)});
\draw[line width=1.2000000000000002pt,dash pattern=on 2pt off 2pt, smooth,samples=100,domain=0.0:1.0] plot[parametric] function{(1.0-t)**(3.0)*1.0370664563796896+3.0*t*(1.0-t)**(2.0)*1.485182513316395+3.0*t**(2.0)*(1.0-t)*2.622383294648881+t**(3.0)*2.573280416527203,(1.0-t)**(3.0)*(-0.7838961443023389)+3.0*t*(1.0-t)**(2.0)*(-0.7335180378506897)+3.0*t**(2.0)*(1.0-t)*(-0.6200893649307395)+t**(3.0)*(-0.42817485012846246)};
\draw (-0.7751013580758196,1.7451010790051946) node[anchor=north west] {$O$};
\draw (-1.9577372010310106,-0.17668216579698984) node[anchor=north west] {$S$};
\draw [shift={(0.473723721766323,-1.4517739008831654)}] plot[domain=0.38202568329163045:1.4571326678323258,variable=\t]({1.0*1.6423717348505644*cos(\t r)+-0.0*1.6423717348505644*sin(\t r)},{0.0*1.6423717348505644*cos(\t r)+1.0*1.6423717348505644*sin(\t r)});
\draw [->] (0.7902304115137766,0.15981178743165758) -- (0.66,0.18);
\end{tikzpicture}
KTUG 한국 텍 사용자 그룹
그냥 선으로 그렸습니다.
GeoGebra 3D 는 아직 tikz 로 내보는 기능을 지원하지 않더라요. 아쉬워요 ^^
아, 코드는 GeoGebra 에서 내보내기 한 것이라 잘 정돈된 것이 아니지만 아래에 붙여놓기 하겠습니다~
\begin{tikzpicture}[line cap=round,line join=round,>=triangle 45,x=1.0cm,y=1.0cm]
\draw (1.824233671752777,-0.768000087274585) node[anchor=north west] {$\mathbf{x} = \mathbf{x} (u, v)$};
\draw [rotate around={9.564218898555072:(0.0,0.0)},line width=1.2000000000000002pt,dash pattern=on 2pt off 2pt,fill=black,fill opacity=0.05] (0.0,0.0) ellipse (1.3000000000000003cm and 0.6176747726124736cm);
\draw [shift={(0.0,-0.0)},line width=1.2000000000000002pt,dash pattern=on 3pt off 3pt] plot[domain=4.2304710428029395:5.635932619113785,variable=\t]({1.0*1.3*cos(\t r)+-0.0*1.3*sin(\t r)},{0.0*1.3*cos(\t r)+1.0*1.3*sin(\t r)});
\draw[line width=1.2000000000000002pt, smooth,samples=100,domain=0.0:1.0] plot[parametric] function{(1.0-t)**(3.0)*(-1.2187290074278347)+3.0*t*(1.0-t)**(2.0)*(-1.8448557052543566)+3.0*t**(2.0)*(1.0-t)*(-2.204760202528503)+t**(3.0)*(-2.178215361943341),(1.0-t)**(3.0)*0.4524374061170949+3.0*t*(1.0-t)**(2.0)*0.1615615121731504+3.0*t**(2.0)*(1.0-t)*(-0.16402885153588556)+t**(3.0)*(-0.45360080759252713)};
\draw[line width=1.2000000000000002pt,dash pattern=on 2pt off 2pt, smooth,samples=100,domain=0.0:1.0] plot[parametric] function{(1.0-t)**(3.0)*(-2.178215361943341)+3.0*t*(1.0-t)**(2.0)*(-2.161389364629791)+3.0*t**(2.0)*(1.0-t)*(-1.691050664379004)+t**(3.0)*(-1.47239497587079),(1.0-t)**(3.0)*(-0.45360080759252713)+3.0*t*(1.0-t)**(2.0)*(-0.6371519929559033)+3.0*t**(2.0)*(1.0-t)*(-0.9119827545781716)+t**(3.0)*(-1.3062340624671882)};
\draw[line width=1.2000000000000002pt,dash pattern=on 2pt off 2pt, smooth,samples=100,domain=0.0:1.0] plot[parametric] function{(1.0-t)**(3.0)*(-1.47239497587079)+3.0*t*(1.0-t)**(2.0)*(-1.4222759313481352)+3.0*t**(2.0)*(1.0-t)*(-0.9280634421585979)+t**(3.0)*(-0.6025233838938657),(1.0-t)**(3.0)*(-1.3062340624671882)+3.0*t*(1.0-t)**(2.0)*(-1.3966021612256259)+3.0*t**(2.0)*(1.0-t)*(-1.2666027432154852)+t**(3.0)*(-1.1519399167756474)};
\draw[line width=1.2000000000000002pt,dash pattern=on 2pt off 2pt, smooth,samples=100,domain=0.0:1.0] plot[parametric] function{(1.0-t)**(3.0)*(-0.6025233838938657)+3.0*t*(1.0-t)**(2.0)*0.013781640690715144+3.0*t**(2.0)*(1.0-t)*0.5423579357650483+t**(3.0)*1.0370664563796896,(1.0-t)**(3.0)*(-1.1519399167756474)+3.0*t*(1.0-t)**(2.0)*(-0.9348628650461968)+3.0*t**(2.0)*(1.0-t)*(-0.8395122690277746)+t**(3.0)*(-0.7838961443023389)};
\draw[line width=1.2000000000000002pt, smooth,samples=100,domain=0.0:1.0] plot[parametric] function{(1.0-t)**(3.0)*1.084962916795597+3.0*t*(1.0-t)**(2.0)*1.5766117264417432+3.0*t**(2.0)*(1.0-t)*2.393649430279735+t**(3.0)*2.573280416527203,(1.0-t)**(3.0)*0.7161392805721459+3.0*t*(1.0-t)**(2.0)*0.69692134816506+3.0*t**(2.0)*(1.0-t)*0.2738979180646875+t**(3.0)*(-0.42817485012846246)};
\draw [shift={(0.0,-0.0)},line width=1.2000000000000002pt,dash pattern=on 3pt off 3pt] plot[domain=0.16692711016125156:3.3085197637510446,variable=\t]({1.0*1.3*cos(\t r)+-0.0*1.3*sin(\t r)},{0.0*1.3*cos(\t r)+1.0*1.3*sin(\t r)});
\draw[line width=1.2000000000000002pt,dash pattern=on 2pt off 2pt, smooth,samples=100,domain=0.0:1.0] plot[parametric] function{(1.0-t)**(3.0)*1.0370664563796896+3.0*t*(1.0-t)**(2.0)*1.485182513316395+3.0*t**(2.0)*(1.0-t)*2.622383294648881+t**(3.0)*2.573280416527203,(1.0-t)**(3.0)*(-0.7838961443023389)+3.0*t*(1.0-t)**(2.0)*(-0.7335180378506897)+3.0*t**(2.0)*(1.0-t)*(-0.6200893649307395)+t**(3.0)*(-0.42817485012846246)};
\draw (-0.7751013580758196,1.7451010790051946) node[anchor=north west] {$O$};
\draw (-1.9577372010310106,-0.17668216579698984) node[anchor=north west] {$S$};
\draw [shift={(0.473723721766323,-1.4517739008831654)}] plot[domain=0.38202568329163045:1.4571326678323258,variable=\t]({1.0*1.6423717348505644*cos(\t r)+-0.0*1.6423717348505644*sin(\t r)},{0.0*1.6423717348505644*cos(\t r)+1.0*1.6423717348505644*sin(\t r)});
\draw [->] (0.7902304115137766,0.15981178743165758) -- (0.66,0.18);
\end{tikzpicture}