Пытаюсь написать программу реализующую фрактал по алгоритму "Игра Хаос" на Builder 6.0(к сути дела это,конечно , отношения не имеет). Не имея особых навыков программирования, я написал следующий код:
| Код |
void __fastcall TForm1::Button1Click(TObject *Sender)
{
......................//здесь я задал все используемые символы
/* Задаём заравочную точку внутри n-гольника*/
srand(time(NULL));
fR=(rand()%720)*(2*pi/720); //Полярный угол затравочной точки
Rn=F(fR,R0,pi,n); //Р-в т. n-угольника c таким же f
RR=(rand()%1000000)*(Rn/1000000); // радиус-в. затравочной б. rand дробной частью
//от радиус-в т. n-угол-ка с таким же f
xR=RR*cos(fR);yR=RR*sin(fR);//Затравочная т. в прямоугольной СК
int i=0;int j=0;
while (i<=1100)
{
/* Задаём случайную вершину n-гольника*/
srand(time(NULL));
m=rand()%n; //№ вершины
fN=2*pi*((n-m)/n);//Её полярный угол
//R0 - её радиус
xN=R0*cos(fN);yN=R0*sin(fN);//Вершина в прямоугольной СК
/* Найдем новую точку*/
xnew=(xR+L*xN)/(1+L);ynew=(yR+L*yN)/(1+L); //Координаты
Rnew=sqrt(xnew*xnew+ynew*ynew); //Радиус-вектор
xR=xnew;yR=ynew;RR=Rnew; //новая т. становится исходной
if(i>a)
{
U[j][j]=xR,yR; //Координаты точки в массив
j++;
}
else
j=0;
i++;
}
}
|
Скомпилировать мне удаётся. А когда выполнить, ввожу необходимые параметры и нажимаю кнопку, описанную выше появляется ошибка: Project raised exception class EStackOverflow with message 'Stack overflow'. Как будто Циклы бесконечные. Может быть кто подскажет в каком направлении поиска мне двигаться??
|