Любите такое?

%!PS-Adobe-1.0 
%%Title: Example solve equation 
%%Creator: Carpov P.V. 
%%Pages: 1 
%%DocumentFonts: Courier 
%%BoundingBox: 0 0 595 842 
%%EndComments 

   /title (Solve equation) def 
   /equation ( exp (-x/2) - 5  = 0.0125*x*x*x ) def 
   /answer {1.35} def 
   /string (          ) def 
   /function { 
      /u exch def 
      2.71828 u -2 div exp u u u mul mul 0.0125 mul sub 5 sub    
   } def 

%%EndProlog 
%%Page 1 1 

   gsave 
   595 2 div 842 2 div translate 

   /Courier findfont 16 scalefont setfont 

   -595 2 div 50 add 842 2 div 50 sub  moveto 
   title show 
   -595 2 div 50 add 842 2 div 120 sub moveto (Answer: ) show 
    
   /_x -10 def 
   /x_  10 def 
    
   0 1 100{ 
   /i exch def 
   _x x_ add 2 div 
   /x exch def 
    
   x function 
   /answer exch def 
   answer x_ function mul 0 le 
      {  x /_x exch def } 
      {  x /x_ exch def } 
   ifelse 
   }for 
    
   x string cvs 

   50 180 moveto (0.125*x*x*x) show 
   70 -70 moveto (exp ( -x/2) - 5) show 
   -150  842 2 div 80 sub   moveto  
   equation false charpath 
   0.8 setlinewidth 
   -595 2 div 50 add 80 add   842 2 div 120 sub  moveto 
   0.1 setlinewidth 
    
   string false charpath 
   1.0 setlinewidth 
   stroke 

   0.0 setlinewidth    
   newpath 
   0 200 moveto 
   0 -200 lineto 
   200 0 moveto 
   -200 0 lineto 
   0 200 moveto 
   -3 190 lineto 
   0 200 moveto 
   3 190 lineto 
   200 0 moveto 
   190 3 lineto 
   200 0 moveto 
   190 -3 lineto 
    
   -180 20 180{ 
   /i exch def 
   i 0 moveto 
   i 2 lineto 
} for 
   -180 20 180{ 
   /i exch def 
   0 i moveto 
   2 i lineto 
} for 
   200 10 moveto (x) show 
   5 200 moveto (y) show 
   3 -14 moveto (0) show 

   0.5 setlinewidth 
   180 -5 -180{ 
      /i exch def 
      i 
      2.71828 i -20 div 0.5 mul exp 5 sub 20 mul 
      /a exch def    
      a 200 le 
      { 
      i 
      a 
      i 180 eq 
         { moveto } 
         { lineto } 
      ifelse 
      } 
      if 
   }for 
   stroke 
    
   -180 5 180{ 
      /i exch def 
      i 20 div 
      /a exch def    
      a a a  mul mul  0.0125 mul  20 mul 
      /b exch def 
      b abs 200 le 
      { 
         i 
         b 
         i -180  eq 
            { moveto } 
            { lineto } 
         ifelse 
       
         } 
       
      if 
   }for 
   stroke 

   closepath 
   stroke    
    

   grestore 
   showpage 

%%Trailer