![]() |
![]() |
||||
![]() | |||||
![]() |
![]() АЛГОРИТМЫ Новости Рассылка новостей Форум AlgoPascal Редактор блок-схем Статьи О сайте Контакты |
![]() |
![]() Поиск всех рациональных корней полинома с целыми коэффициентамиПроцедура находит все рациональные линейные множители Ui x+Vi - фактически, все рациональные корни - многочлена p(x) = a0 x n+a1 x n-1+...+an = (U1 x+V1 )*...*(Ur x+Vr )(d0 x n-r+...+dn-r ),где коэффициенты ak - целые, а полином с коэфициентами dk линейных рациональных множителей не содержит. В процедуре находятся все делители p и q чисел a0 и an соответственно. Затем при условии, что px-q является множителем многочлена, p(x) делится по алгоритму Евклида на px-q. Получается новый полином, для которого повторяется вся процедура до тех пор, пока не будет получен полином, не имеющий рациональных линейных множителей. Коэфициенты исходного полинома передаются в процедуру используя массив A, в этот массив на выходе из процедуры помещаются коэфициенты полинома не содержащего линейных рациональных множителей di . Если нашли ошибку в алгоритме - сообщите! Блоксхемы:![]() ![]() К сожалению, для данного алгоритма нет исходного кода. Это не ошибка и сообщать мне об этом не надо. Возможно, для алгоритма ещё не успели создать исходный код, или же при переносе алгоритма из старой версии библиотеки возникли проблемы с исходником и его написание пришлось отложить до лучших времен. Попробуйте воспользоваться прилагаемыми файлами и блок-схемой или поискать на сайте аналогичный алгоритм, но с исходником. |
![]() |
|
|
![]() |