KORENY POLYNOMU .X:,p:@,:,>,,,,@,,y,:() BAIRSTOWA METODA4 VYPOCET REALNEHO I KOMPLEXNIHOKORENU POLYNOMU2:"****************************************"% " BAIRSTOWA METODA"% " ----------------"7 "VYPOCET REALNEHO I KOMPLEXNIHO KORENU POLYNOMU"6:"****************************************"::  ZADANI!("STUPEN POLYNOMU N = ";: N.2 A(N): B(N@): C(N@) 7Z!<"ZADEJ KOEFICIENT POLYNOMU"$F IN   P"A(";I;")=";: A(I)Z Id A(@) 0nPA()A(@):QA()A(@) x " "ZADEJ VYCHOZI HODNOTY P,Q" "P =";: P:"Q=";: Q:"RESENI:" VYPOCET Q1Q P1P  P2P1^P1P1(B()C(@)B()C())(C(@)C(@)C()C())^Q1Q1(B()C(@)B()C())(C(@)C(@)C()C()) (P2P1) p'ŬH RESENIK(P1P1Q1) K ^XP1(K)""X(";Z;") =";X,ZZ6XP1(K)@"X(";Z;") =";XJZZ T ^ KOMPLEXNI SDRUZENEhK1(K):K(K1)#r"X(";Z;")=";P1;"+J*";K|ZZ#"X(";Z;")=";P1;"-J*";KZZ REDUKCENN N  I NA(I)B(I) I6 I N@:B(I):C(I): I N   %"X(";Z;")="A()A() ::: HORNEROVO SCHEMA$ IN  ,B(I)A(I)P1B(I)Q1B(I) I$ IN  ,C(I)B(I)P1C(I)Q1C(I)$ I.JDETYDET:(Y)EPS VYSL: &YYcJN