2次曲面の描画  quad.m

Loading Package

\(Remove["Global`*"]; 
Get["quadrics`"]\)

First Step

\(p = x^2 + y^2 - z^2 - 1\ ; 

    quadrics[p, ViewPoint\  -> {\ 0, \(-2\), 1}]\)

\(Get["knife`"]; 
p = x^2 + y^2 - z^2 - 1\ ; 

    gr = knife[quadrics[p, 
			DisplayFunction -> Identity], 

        		{0, 0, 1, 0}, {\(-90\), 0, 0}, {0, 2, 2}]; 

    Show[gr, ViewPoint\  -> {\ 0, \(-2\), 1}]; 

    Show[gr, ViewPoint\  -> {\ 0, \(-2\), 0}]\)

Draw The Quadrics

\(p = x^2 + y^2 - z^2 + k\ ; 

    Do[quadrics[p, ViewPoint -> {0, \(-2\), 1}\ , 
		
        PlotRange -> {{\(-3\), 3}, {\(-3\), 3}, {\(-3\), 3}}]\ , {k, \(-2\), 
        3, 1}]\)