극소곡면

양성덕20210413 세 번째 시도 당시 알지 못했던 기법을 알게 되서 이제 다음과 같이 그림을 완성한다. 이러면 Weber가 그린 방법을 그대로 따른 셈이 된다. 참고 문헌[2] Matthias Weber, Costa’s Minimal Surface, Mathematica Notebook File %display latexIn [1]: var(‘rho’) rho = ( gamma(3/4)/sqrt(2)/gamma(5/4) ).n() In [2]: Phi1(w) = 2*rho*I*sqrt(w)*hypergeometric((1/4,3/2,), (5/4,), w^2) Phi2(w) = -2/(3*rho)*I*w*sqrt(w)*hypergeometric((1/2,3/4,), (7/4,), w^2) In [3]: omega1(z) = … Read more

그려보는 순서대로 파일을 공개합니다. 제 아이디어의 흐름을 보실 수 있을 겁니다. 반짝하는 아이디어로 이틀동안 급하게 그렸기 때문에 코드가 많이 엉성할 겁니다만 SageMath로 곡면을 그리고자 하는 이들에게 도움이 될까 하여 불완전한 코드나마 공개합니다. 네 번째 시도에서 Costa 곡면 전체를 볼 수 있습니다. 그림을 마우스로 찍고 빙빙 돌려보면서 관찰해 보세요. 첫 번째 시도 두 번째 시도 세 … Read more

X3DOM from MMA 확대, 회전, 이동이 가능합니다. – 마우스 휠을 돌리면 그림을 키우거나 줄일 수 있습니다. – 마우스 왼버튼을 누르고 움직이면 그림을 돌릴 수 있습니다. – 컨트롤 키와 마우스 왼버튼을 누르고 움직이면 그림을 평행이동시킬 수 있습니다. 한 화면에 여러 파일들을 불러들이는 것 실습하는 중입니다. 시간이 좀 걸리겠네요.

[canvasio3D width=”320″ height=”320″ border=”1″ borderCol=”#F6F6F6″ dropShadow=”0″ backCol=”#FFFFFF” backImg=”…” mouse=”on” rollMode=”off” rollSpeedH=”0″ rollSpeedV=”0″ objPath=”SchwarzPSurface” objScale=”20″ objColor=”” lightSet=”7″ reflection=”off” refVal=”5″ objShadow=”off” floor=”off” floorHeight=”42″ lightRotate=”off” vector=”on” mousewheel=”on” Help=”off”] [/canvasio3D] [canvasio3D width=”320″ height=”320″ border=”1″ borderCol=”#F6F6F6″ dropShadow=”0″ backCol=”#FFFFFF” backImg=”…” mouse=”on” rollMode=”off” rollSpeedH=”0″ rollSpeedV=”0″ objPath=”SchwarzDSurface” objScale=”15″ objColor=”” lightSet=”7″ reflection=”off” refVal=”5″ objShadow=”off” floor=”off” floorHeight=”42″ lightRotate=”off” vector=”on” mousewheel=”on” Help=”off”] [/canvasio3D]