public function maxWay2(d:Array,x:Number):Array{

 

                       //d-матрица смежности

                       //x-элемент который есть начало поиска замкнутого пути

 

                        var i:int; //счетчик

                        var j:int; //счетчик

                        var l:int=-1; //счетчик

                        var put:Array=new Array(); //туда будем добавлять номера элементов пути

                        var end:Boolean=false; //переменная для проверки окончания поиска

 

 

                        for(i=0;i<d.length;i++) //цикл по размерности матрицы смежности,т.е по кол-ву элементов в графе

                        {

                                if(d[x][i]==1) //если нашли связь с каким-то элементом то...

                                {

                                        l++; //делаем l=0

                                        put[l]=i; //записываем этот элемент в путь

                                        i=d.length; //завершаем цикл по i

                                        j=-1; // делаем -1 чтобы инкриминировать в начале следующего цикла 

                                        while(end==false) 

                                        {

                                                j++;

 

                                                if(d[put[l]][j]==1 && provMas(put,j)==-1) //если находим элемент, с которым есть связь у предыдущего элемента добавленного в наш путь и он

                                                  // не содержится в пути то...

                                                        {

                                                                l++;                                                        

                                                                put[l]=j; //добавляем этот элемент в путь

                                                                j=-1; //присваиваем -1 чтобы начать поиск уже для нового элемента

 

                                                        }

                                                        if(put[l]==x || j>=d.length) //критерии окончания поиска:если нашли замкнутый путь или если не нашли связь 

                                                        {

                                                                end=true;

                                                        }

 

                                        }

                                }

                        }

 

                        if(put[l]==x && l!=-1) //если получили замкнутый путь и вошли  в самый первый if то возвращаем путь

                        {

                                return put;

                        }

                        return[-1,-1];

 

                }

 

                public function provMas(a:Array,sE:Object):int {

                        for(var i:int=0;i < a.length;i++)

                        {

                                if (a[i].toString()==sE.toString()) { 

                                        return i;

                                }                        

                        }

                        return -1;

                }