lisp routine to draw Aspheric lens profiles

Hello all,

I've tried searching the net for a routine that can draw Aspheric lens profiles and have not had any luck.

I found a google book post indicating someone or a company has created a visuallisp routine but apparently they haven't released it or made it available to the general public.

Wikipedia describes what an Aspheric lens profile is and provides a formula for creating one - however I am unable to provide that link due to posting restrictions on my newly created account (I fully understand why!)

A small portion of an Aspheric lens profile is close to what a dished head profile is so in my searching efforts I was able to locate a lisp routine that a board member here by the name of The Buzzard put together - nice routine and dialog window BTW Buzzard! - anywho, that's how I found this site.

I'm hoping someone here might be up to the challenge of creating a lisp routine to draw up Aspheric lens profiles

TIA

S

Basicly any mathmatical formula can be written in lisp theres example here of parabolica formula. If the formula is very complicated I would look at VBA or someone may be able to .net it for you the main reason being that the formula can be written closer to what it actually looks like in book form. It just takes a bit more effort in lisp but breaking it down into small steps it can be achieved.

z= x2 * y3 x squared y cubed multiple (setq z (* (* x x) (* y (* y y)))) in a most simple form.