Рекурсивная функция, возвращающая уточнение корня уравнения

open System 
open System.Windows.Forms 
open System.Drawing System.Console.Title <- "Имя консольного окна" // Объявляем экземпляр класса «Форма»: 
let form = new Form(BackColor = Color.White, Text="График функции") 
let fW = 200.0f 
let fH = 200.0f 
form.Width <- int fW // ширина окна формы, 
form.Height <- int fH // высота окна формы, 
form.Paint.Add( // рисование, 
fun drawGr-> // объявляем экземпляр класса “Pen” – карандаш, 
let pen=new Pen(Color.Black,Width = 2.0f) 
// объявляем экземпляр класса “Brush” – кисть, 
let brush=new SolidBrush(Color.Black) 
let oX = fW/2.0f // середина ширины окна формы, 
let oY = fH/2.0f // середина высоты окна формы, 
drawGr.Graphics.DrawLine(pen, 0.0f, oY, fW, oY) // рисуем ось OX, 
drawGr.Graphics.DrawLine(pen, oX, 0.0f, oX, fH) // рисуем ось OY, 
for t in 10.0f..0.1f..150.0f do // строим график функции по точкам, 
let x = 30.0f *sin(3.0f * t / 6.0f) 
let y = -30.0f *cos(t / 6.0f) 
drawGr.Graphics.FillEllipse(brush, x + oX, y + oY, 3.0f, 3.0f) // «точка» графика, )
printfn "%A" "Построить график?" 
System.Console.ReadKey() |> ignore // ждём в консоли разрешения на построение, 
Application.Run(form) // открываем приложение Windows Forms из консольного