4-saddle.nb

•

$C:\\RICK\\mathdept\\Web page\\rmabry\\math223$

$LiveForm[graphics_, animOpts___] := Module[{graphics3d = Switch[graphics, _ContourGraphics, Graphics3D[SurfaceGraphics[graphics]], _DensityGraphics, Graphics3D[SurfaceGraphics[graphics]], _SurfaceGraphics, Graphics3D[graphics], _, graphics]}, Switch[graphics3d, _List, HoldForm[ShowAnimation][NumberForm[InputForm[N[graphics3d]], 5], InputForm[N[Flatten[{animOpts}]]]], _, NumberForm[InputForm[N[graphics3d]], 5]]] ; <br /> WriteLiveForm[filename_, graphics_, animOpts___] := Module[{ps, x}, ps = Unprotect[Real] ; Format[x_Real, InputForm] := OutputForm[NumberForm[x, 5, NumberFormat -> (If[#3 == "", #1, SequenceForm[#1, "*^", #3]] &)]] ; Protect @@ ps ; WriteString[filename, ToString[LiveForm[graphics, animOpts], CharacterEncoding -> None]] ; Close[filename] ; ps = Unprotect[Real] ; Format[x_Real, InputForm] =. ; Protect @@ ps ;] ; Null$

$General :: spell1 : Possible spelling error: new symbol name \" LiveForm \" is similar to existing symbol \" LineForm \".$

Converted by Mathematica (May 12, 2003)