Αριθμητικη Ανάλυση I (Εργαστήριο)

Μήπως να ξανακάνω Μηχανογραφικό;

Συντονιστές: φιάλη klein, Ryu, markelos, meleneemil, Nasia!

Απάντηση
Άβαταρ μέλους
O kanenas
Δημοσιεύσεις: 3244
Εγγραφή: Κυρ Νοέμ 05, 2006 3:26 pm
Real Name: Αφροξυλάνθη
Facebook ID: 0
Τοποθεσία: Within search engines that search engines that search
Επικοινωνία:

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από O kanenas »

Ρε σεις, στο πρώτο μέρος της εργασίας, στην δεύτερη ερώτηση (που λέει για τις μαθόδους Secant και Muller) περιμένει να φτιάξουμε εμείς functions που να υλοποιούν αυτές τις μεθόδους?

By the way, ανέβασα την φετινή εργασία, η οποία είναι ένα κολάζ της 2ης και 3ης εργασίας του 2003 :lol:
R.I.P.
Life is so vain, but death equals pain
So let's make one more attempt and live with nothing to gain
sunday
Δημοσιεύσεις: 43
Εγγραφή: Τετ Μάιος 23, 2007 10:59 am

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από sunday »

Την muller μας την δίνει ,τον κώδικα της secant τον έχουμε απο προηγούμενο εργαστήριο.
Εγώ για α=1,ορίζω το πολυώνυμο αλλά δεν έχει ρίζες...
Άβαταρ μέλους
O kanenas
Δημοσιεύσεις: 3244
Εγγραφή: Κυρ Νοέμ 05, 2006 3:26 pm
Real Name: Αφροξυλάνθη
Facebook ID: 0
Τοποθεσία: Within search engines that search engines that search
Επικοινωνία:

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από O kanenas »

Υπάρχει κανείς/μια να μου στείλει pm να του/της δώσω το msn μου ή το e-mail, να μου στείλει την secant, γιατί δεν την έχω?
R.I.P.
Life is so vain, but death equals pain
So let's make one more attempt and live with nothing to gain
Άβαταρ μέλους
DeLarge
Δημοσιεύσεις: 113
Εγγραφή: Πέμ Μάιος 22, 2008 5:14 pm
Real Name: Urasawa Naoki
Gender: Male
Facebook ID: 0

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από DeLarge »

Από το δεύτερο εργαστήριο, η secant:

function [x,xlist,iter] = secant(f,x0,x1,tol,maxit)
if nargin < 3, error('Insufficient input \n'); end;
if nargin < 4,tol = eps; end;
if nargin < 5, maxit = 50; end;
f0 = feval(f,x0);f1 = feval(f,x1);
iter = 0; xdiff = inf; xlist=[x0;x1]; x=x1;
while xdiff >= tol
xold=x;
x = x - f1*(x1-x0)/(f1-f0);
xdiff = abs(x-xold)/abs(x);
xlist=[xlist;x]; iter = iter + 1;
if iter >= maxit, error('Not converged after maxit iterations.'); end
x0=x1; f0=f1; x1=x; f1 = feval(f,x);
end
Άβαταρ μέλους
O kanenas
Δημοσιεύσεις: 3244
Εγγραφή: Κυρ Νοέμ 05, 2006 3:26 pm
Real Name: Αφροξυλάνθη
Facebook ID: 0
Τοποθεσία: Within search engines that search engines that search
Επικοινωνία:

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από O kanenas »

Σωστό! Δεν είχα σκεφτεί ότι θα μπορούσα να μάθω κι έτσι τον κώδικα της secant... :lol:
Ευχαριστώ!
R.I.P.
Life is so vain, but death equals pain
So let's make one more attempt and live with nothing to gain
Άβαταρ μέλους
Ulm
Δημοσιεύσεις: 97
Εγγραφή: Πέμ Ιουν 07, 2007 8:56 pm
Real Name: ?
Gender: Female

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από Ulm »

Βασικά τον κώδικα της τέμνουσας (secant) το βιβλίο την έχει κάπως διαφορετικά από τον παραπάνω.
Ας το τσεκάρει κάποιος γιατί δεν είμαι και σίγουρη. (σελίδα 255)
Τα ωραιότερα πράγματα στη ζωή είναι ή ανήθικα ή παράνομα ή παχαίνουν!!!
eloxim
Δημοσιεύσεις: 6
Εγγραφή: Τρί Μάιος 20, 2008 4:53 pm
Real Name: ...
Gender: Female
Facebook ID: 0

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από eloxim »

Ο Φιλιππάκης ζήτησε το έκτο ερώτημα του τέταρτου εργαστηρίου... Το έχει λύση κανείς; Αν ναι,είναι εύκολο να το ανεβάσει, ή αν δεν θέλει να ανεβάσει έστω ένα σχεδιάγραμμα του πως λύνετε; Ευχαριστώ, προκαταβολικά!!!
jova
Δημοσιεύσεις: 21
Εγγραφή: Παρ Ιαν 18, 2008 9:50 pm
Real Name: nobody
Gender: Male

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από jova »

Καλησπέρα σε όλους.

Στην άσκηση με την μέθοδο Muller στο ερώτημα 4 τι εννοεί λέγοντας

Επιλέγοντας ως αρχικές τιμές άκρα διαστήματος που περιέχουν την αρχή των αξόνων?

Please Help!!!!
Άβαταρ μέλους
remilt
Δημοσιεύσεις: 95
Εγγραφή: Δευ Δεκ 11, 2006 1:14 pm
Real Name: Καραμανλής Μίλτος
Gender: Male
Τοποθεσία: Αθήνα

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από remilt »

Ενοεί ακριβώς αυτό! :wink: Πάρε ώς άκρα για παράδειγμα τα -1 και 1 ενώ για την Muller πάρε και ένα εσωτερικό σημείο, λογικά η Muller θα βρεί μία από τις δύο συζηγείς μιγαδικές ρίζες ενώ όχι η Secant μιάς και είναι τέτοιος ο αλγόριθμος της μεθόδου που δεν μπορεί να περάσει από πραγματικές αρχικές τιμές σε μιγαδικές. άν θέσεις μιγαδικές αρχικές τιμές των οποίων τα πραγματικά μέρη να "εγκλείουν" την αρχή των αξώνων (πχ -1+i και 1+ i) μπορείς να εντοπίσεις τις μιγαδικές ρίζες και από τις δύο μεθόδους.
jova
Δημοσιεύσεις: 21
Εγγραφή: Παρ Ιαν 18, 2008 9:50 pm
Real Name: nobody
Gender: Male

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από jova »

thanx..!!! :-)

Δεν ήμουνα σίγουρος αν έπρεπε να πάρω τυχαιες δικές μου.
Άβαταρ μέλους
O kanenas
Δημοσιεύσεις: 3244
Εγγραφή: Κυρ Νοέμ 05, 2006 3:26 pm
Real Name: Αφροξυλάνθη
Facebook ID: 0
Τοποθεσία: Within search engines that search engines that search
Επικοινωνία:

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από O kanenas »

Επειδή χρειάζεται για την εργασία, μπορεί κάποιος/α να κάνει ένα copy-paste τον κώδικα της linls, παρακαλώ πολύ? :D
R.I.P.
Life is so vain, but death equals pain
So let's make one more attempt and live with nothing to gain
Άβαταρ μέλους
Ulm
Δημοσιεύσεις: 97
Εγγραφή: Πέμ Ιουν 07, 2007 8:56 pm
Real Name: ?
Gender: Female

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από Ulm »

Ο κώδικας της linls:

function p=linls(x,y);
% linear least squears
n=length(x);
sx=x'*ones(n,1);
sy=y'*ones(n,1);
sx2=(x.^2)'*ones(n,1);
sxy=(x.*y)'*ones(n,1);
par=n*sx2-sx^2;
a=(n*sxy-sx*sy)/par;
b=(sx2*sy-sxy*sx)/par;
p=[a;b];
Τα ωραιότερα πράγματα στη ζωή είναι ή ανήθικα ή παράνομα ή παχαίνουν!!!
Άβαταρ μέλους
O kanenas
Δημοσιεύσεις: 3244
Εγγραφή: Κυρ Νοέμ 05, 2006 3:26 pm
Real Name: Αφροξυλάνθη
Facebook ID: 0
Τοποθεσία: Within search engines that search engines that search
Επικοινωνία:

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από O kanenas »

Merci beaucoup!
R.I.P.
Life is so vain, but death equals pain
So let's make one more attempt and live with nothing to gain
Άβαταρ μέλους
fael_adan
Δημοσιεύσεις: 5
Εγγραφή: Παρ Νοέμ 16, 2007 12:41 pm

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από fael_adan »

Παιδιά είναι εύκολο να ενημερώσει κάποιος για τη φετινή ύλη του μαθήματος?
Άβαταρ μέλους
armaos
Δημοσιεύσεις: 258
Εγγραφή: Τρί Νοέμ 06, 2007 8:43 pm
Real Name: Αρμαος
Gender: Male
Facebook ID: 0
Επικοινωνία:

Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι

Δημοσίευση από armaos »

Παιδιά παρακαλώ ας ενημερώσει κάποιος πότε θα εξεταστεί η 2η εργασία γιατί είμαι παλιός και δεν παρακολουθώ.
Απάντηση

Επιστροφή στο “Δεύτερο Έτος”