Проблема с переполнением стека при табуляции функции

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
 
namespace Zadanie4
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        long Fact(long n)
        {
            if (n == 0)
                return 1;
            else
                return n * Fact(n - 1);
        }
        private void Button1_Click(object sender, EventArgs e)
        {
            textBox4.Text = "";
            double a, b, h, y, ad, z, zsum = 0, ze;
 
            a = Double.Parse(textBox1.Text); //Начало отрезка
            b = Double.Parse(textBox2.Text); //Конец отрезка
            h = Double.Parse(textBox3.Text); //Шаг
            ze = Double.Parse(textBox5.Text); //Заданная точность
 
            int n = (int)(Math.Ceiling((b - a) / h) + 1); //кол-во иксов
            
            ad = a; //Начальный X (икс) = начало отрезка
 
            textBox6.Text = "\t s \r\n"; //наименования параметров выводимых в textbox'ы
            textBox4.Text = "\t y \r\n";
            textBox7.Text = "   x \r\n";
 
            for (int x = 1; x <= n; ++x) //Просто n итераций равных кол-ву иксов
            {
                y = ((Math.Pow(ad, 2) / 4) + (ad / 2) + 1) * Math.Exp(ad / 2); //Находим Y-ки
 
                textBox7.Text += String.Format("{0,4} \r\n",Convert.ToString(ad)); //вывод X-ов
                textBox4.Text += String.Format("{0,17} \r\n", Convert.ToString(y));//вывод Y-ов
                
                for (long i = -1; ; i++) //цикл для S-параметра
                {
                    z = ((Math.Pow(i+1,2) + 1)*Math.Pow(ad/2, i + 1))/Fact(i + 1); //Находим S
 
                    if (Math.Abs(z) > ze) //Сравниваем с заданной точностью
                    {
                        zsum += z;
                    }
                    else
                    {
                        textBox6.Text += String.Format("{0,17} \r\n", Convert.ToString(zsum)); //Выводим полученный S
                        zsum = 0;
                        break;
                    }
                }
                ad = Math.Round(ad + h, 3, MidpointRounding.AwayFromZero); //Находим следующий икс -> икс + шаг = след-й икс
            }
        }
 
        private void Button2_Click(object sender, EventArgs e)
        {
            Application.Exit();
        }
    }
}