Delphi - Seccion dorada

Hola Alguien puede ayudarme con el algoritmo o el codigo para el metodo de la seccion dorada? Sabre agradecer

¿Qué necesitas exactamente?. Si nos explicas mejor el problema quizá podamos ayudarte.

¿Qué entradas y salidas tendría la función que necesitas?.

Echa un vistazo en: http://www.newsartesvisuales.com/funda/compo4.htm

En la figura de esa página, ¿qué necesitas calcular, c ó a?