Mathman.gr

  • Full Screen
  • Wide Screen
  • Narrow Screen
  • Increase font size
  • Default font size
  • Decrease font size

Σχήμα Horner

 

 

 roots

Στους συνδέσμους που ακολουθούν θα βρείτε παρουσιάσεις για το σχήμα 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}]

 

Επιστροφή στα Πολυώνυμα - Πολυωνυμικές Εξισώσεις

mtv_1

 

 

sideBar



You are here: ΠΑΝΕΠΙΣΤΗΜΙΟ Μαθηματικά και Προγραμματισμός