コルテスの表現公式を用いた 非固有アファイン球面の具体例を描画します． 与える正則関数として 1/3 i z^3, 1/4 i z^4 を選んだものです．

example32[x_, y_]:={x, -2 x y, (1/3) x^3 + x y^2}

gr321=ParametricPlot3D[Evaluate[example32[x,y]], {x,-1,1},{y,-1,1}, ViewPoint ->{3,3,3}]

gr322=ParametricPlot3D[Evaluate[example32[x,y]], {x,-1,1},{y,-1,1}, ViewPoint ->{3,0,0}]

gr323=ParametricPlot3D[Evaluate[example32[x,y]], {x,-1,1},{y,-1,1}, ViewPoint ->{0,3,0}]

gr324=ParametricPlot3D[Evaluate[example32[x,y]], {x,-1,1},{y,-1,1}, ViewPoint ->{0,0,3}]

example33[x_, y_]:={x, y^3-3 x^2 y, (1/4) (x^4 + 6 x^2 y^2 -3 y^4)}

gr331=ParametricPlot3D[Evaluate[example33[x,y]], {x,-1,1},{y,-1,1}, ViewPoint ->{3,3,3}]

gr332=ParametricPlot3D[Evaluate[example33[x,y]], {x,-1,1},{y,-1,1}, ViewPoint ->{3,0,0}]

gr333=ParametricPlot3D[Evaluate[example33[x,y]], {x,-1,1},{y,-1,1}, ViewPoint ->{0,3,0}]

gr334=ParametricPlot3D[Evaluate[example33[x,y]], {x,-1,1},{y,-1,1}, ViewPoint ->{0,0,3}]

[Top] [Back]