Στους συνδέσμους που ακολουθούν θα βρείτε παρουσιάσεις για το σχήμα Horner ( με παράδειγμα ) και σχετικές λύσεις ασκήσεων από την Άλγεβρα της Β' Λυκείου.
Στο παρακάτω έγγραφο γίνεται μια παρουσίαση του σχήματος Horner με προγραμματιστική υλοποίηση στο λογισμικό Mathematica.
Ακολουθεί ο κώδικας εισόδου (input) που παραθέσαμε στο παραπάνω έγγραφο. Όσοι έχουν το λογισμικό Mathematica μπορούν να τον αντιγράψουν και να τον επικολλήσουν. Πιθανώς να χρειαστεί να μετατραπεί το format από text σε input (αφού έχει μαρκαριστεί πρώτα το αντίστοιχο «κελί»). Στη συνέχεια κάνουμε Shift +Enter, όπου συναντάμε κενή γραμμή κατά την αντιγραφή.
horner[s_List]:=Module[{b={}},
a=Divisors[Last[s]];a=Join[a,-a];
For[i=1,i<=Length[a],
For[p=First[s];j=2,j<=Length[s],
p*=Part[a,i];p+=Part[s,j];j++];
If[p==0,AppendTo[b,Part[a,i]]];i++];b]
horner[{1,-5,-32,122,77,-373,210 }]
horner1[sy_List]:=Module[{s=sy,c,b={}},
Label[1];
a=Divisors[Last[s]];a=Join[a,-a];
For[i=1,i<=Length[a],
For[p=First[s];c=First[s];j=2,j<=Length[s],
p*=Part[a,i];p+=Part[s,j];AppendTo[c,p];j++];
If[p==0,AppendTo[b,Part[a,i]];s=Drop[c,-1];c=First[s];
Goto[1]];i++];AppendTo[b,{s}]]
horner1[{1,-5,-32,122,77,-373,210}]
Επιστροφή στα Πολυώνυμα - Πολυωνυμικές Εξισώσεις
