By the way, ανέβασα την φετινή εργασία, η οποία είναι ένα κολάζ της 2ης και 3ης εργασίας του 2003
Αριθμητικη Ανάλυση 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: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Ρε σεις, στο πρώτο μέρος της εργασίας, στην δεύτερη ερώτηση (που λέει για τις μαθόδους Secant και Muller) περιμένει να φτιάξουμε εμείς functions που να υλοποιούν αυτές τις μεθόδους?
By the way, ανέβασα την φετινή εργασία, η οποία είναι ένα κολάζ της 2ης και 3ης εργασίας του 2003
By the way, ανέβασα την φετινή εργασία, η οποία είναι ένα κολάζ της 2ης και 3ης εργασίας του 2003
R.I.P.
Life is so vain, but death equals pain
So let's make one more attempt and live with nothing to gain
So let's make one more attempt and live with nothing to gain
Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Την muller μας την δίνει ,τον κώδικα της secant τον έχουμε απο προηγούμενο εργαστήριο.
Εγώ για α=1,ορίζω το πολυώνυμο αλλά δεν έχει ρίζες...
Εγώ για α=1,ορίζω το πολυώνυμο αλλά δεν έχει ρίζες...
- O kanenas
- Δημοσιεύσεις: 3244
- Εγγραφή: Κυρ Νοέμ 05, 2006 3:26 pm
- Real Name: Αφροξυλάνθη
- Facebook ID: 0
- Τοποθεσία: Within search engines that search engines that search
- Επικοινωνία:
Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Υπάρχει κανείς/μια να μου στείλει 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
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: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Από το δεύτερο εργαστήριο, η 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
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: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Σωστό! Δεν είχα σκεφτεί ότι θα μπορούσα να μάθω κι έτσι τον κώδικα της 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
So let's make one more attempt and live with nothing to gain
Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Βασικά τον κώδικα της τέμνουσας (secant) το βιβλίο την έχει κάπως διαφορετικά από τον παραπάνω.
Ας το τσεκάρει κάποιος γιατί δεν είμαι και σίγουρη. (σελίδα 255)
Ας το τσεκάρει κάποιος γιατί δεν είμαι και σίγουρη. (σελίδα 255)
Τα ωραιότερα πράγματα στη ζωή είναι ή ανήθικα ή παράνομα ή παχαίνουν!!!
-
eloxim
- Δημοσιεύσεις: 6
- Εγγραφή: Τρί Μάιος 20, 2008 4:53 pm
- Real Name: ...
- Gender: Female
- Facebook ID: 0
Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Ο Φιλιππάκης ζήτησε το έκτο ερώτημα του τέταρτου εργαστηρίου... Το έχει λύση κανείς; Αν ναι,είναι εύκολο να το ανεβάσει, ή αν δεν θέλει να ανεβάσει έστω ένα σχεδιάγραμμα του πως λύνετε; Ευχαριστώ, προκαταβολικά!!!
Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Καλησπέρα σε όλους.
Στην άσκηση με την μέθοδο Muller στο ερώτημα 4 τι εννοεί λέγοντας
Επιλέγοντας ως αρχικές τιμές άκρα διαστήματος που περιέχουν την αρχή των αξόνων?
Please Help!!!!
Στην άσκηση με την μέθοδο Muller στο ερώτημα 4 τι εννοεί λέγοντας
Επιλέγοντας ως αρχικές τιμές άκρα διαστήματος που περιέχουν την αρχή των αξόνων?
Please Help!!!!
- remilt
- Δημοσιεύσεις: 95
- Εγγραφή: Δευ Δεκ 11, 2006 1:14 pm
- Real Name: Καραμανλής Μίλτος
- Gender: Male
- Τοποθεσία: Αθήνα
Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Ενοεί ακριβώς αυτό!
Πάρε ώς άκρα για παράδειγμα τα -1 και 1 ενώ για την Muller πάρε και ένα εσωτερικό σημείο, λογικά η Muller θα βρεί μία από τις δύο συζηγείς μιγαδικές ρίζες ενώ όχι η Secant μιάς και είναι τέτοιος ο αλγόριθμος της μεθόδου που δεν μπορεί να περάσει από πραγματικές αρχικές τιμές σε μιγαδικές. άν θέσεις μιγαδικές αρχικές τιμές των οποίων τα πραγματικά μέρη να "εγκλείουν" την αρχή των αξώνων (πχ -1+i και 1+ i) μπορείς να εντοπίσεις τις μιγαδικές ρίζες και από τις δύο μεθόδους.
Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι
thanx..!!! 
Δεν ήμουνα σίγουρος αν έπρεπε να πάρω τυχαιες δικές μου.
Δεν ήμουνα σίγουρος αν έπρεπε να πάρω τυχαιες δικές μου.
- O kanenas
- Δημοσιεύσεις: 3244
- Εγγραφή: Κυρ Νοέμ 05, 2006 3:26 pm
- Real Name: Αφροξυλάνθη
- Facebook ID: 0
- Τοποθεσία: Within search engines that search engines that search
- Επικοινωνία:
Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Επειδή χρειάζεται για την εργασία, μπορεί κάποιος/α να κάνει ένα copy-paste τον κώδικα της linls, παρακαλώ πολύ? 
R.I.P.
Life is so vain, but death equals pain
So let's make one more attempt and live with nothing to gain
So let's make one more attempt and live with nothing to gain
Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Ο κώδικας της 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];
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: Εργαστήριο Αριθμητικής Ανάλυσης Ι
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
So let's make one more attempt and live with nothing to gain
Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Παιδιά είναι εύκολο να ενημερώσει κάποιος για τη φετινή ύλη του μαθήματος?
- armaos
- Δημοσιεύσεις: 258
- Εγγραφή: Τρί Νοέμ 06, 2007 8:43 pm
- Real Name: Αρμαος
- Gender: Male
- Facebook ID: 0
- Επικοινωνία:
Re: Εργαστήριο Αριθμητικής Ανάλυσης Ι
Παιδιά παρακαλώ ας ενημερώσει κάποιος πότε θα εξεταστεί η 2η εργασία γιατί είμαι παλιός και δεν παρακολουθώ.