T[u_,v_]:={Sin[u] Cosh[v],Cos[u] Cosh[v],Sinh[v]};
SurfaceName="templete.html";

Surface:=ParametricPlot3D[T[a,b],{a,0,2Pi},{b,-1,1},
   Axes->False, ViewVertical->{-1,0,0}, Background->GrayLevel[0.0],
   RenderAll->True,
   Boxed->False]; 

LiveForm[g_] := NumberForm[InputForm[N[g]], 5];

WriteLiveForm[filename_, g_] := (
         WriteString[filename, 
         ToString[NumberForm[InputForm[N[g]], 5]]];
         Close[filename];)

WriteLiveForm["surface.m",Surface]
