세이지매쓰

양성덕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) = […]

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