un script sur plusieurs fichiers "functions.m"

**prologO** · 18/12/2007, 16h09

bonjour

donc j'ai programmé mon premier script en Matlab 7.1

mais je veut le diviser sur plusier fichiers ( fonctions) *.m

bon voila mon script

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
% script calculant l"intégrale d'une fonction en utilisant la méthode de
% Gauss Legendre
 
disp('ceci est un programme calculant l"intégrale de la fonction')
 
f = inline('exp(-t)','t')
p(1,1)=1;
p(2,1:2)=[1 0]; 
disp('pour continuer la calcule de l"intégrale de cette fonction  ')
n=input('vous devez specifiez le nombre "n" qui est le degrée du poly de Legendre ');
 
for k=2:n
   p(k+1,1:k+1)=((2*k-1)*[p(k,1:k) 0]-(k-1)*[0 0 p(k-1,1:k-1)])/k;
end
sprintf('le polynome de legendre d ordre  %d est ',n);
pp=p(n+1,:);
x=roots(pp);
pp1=polyder(pp);
 for i=1:numel(x)
    w(i)=2/( (1-x(i)^2)*polyval(pp1,x(i))^2 );
 end
if sum(w)<=2 
 
for i=1:numel(x)
    ss(i)=w(i)*feval(f,x(i))
end
disp('l"intégrale vaut ') 
sum(ss)
 
else
    disp('il ya une erreur d"arrondissage et d"approximation pour les wi')
    return;
 end

je veut que
le polynome de legndre ( appele pp ( la dernière ligne de la matrice p)) qui'il soit dans un fichier PLG.m

le calcul des x(i) ( les racines de ces polynomes) et les w(i) (les poids associé à ces racines)) dans un autre fichier XWX.m

puis un petit script qui peut lire une fonction 'inline' pour évaluer son intégrale entre -1 et 1 en utilisant les deux fonctions PLG et XWX

Merci d'avance

j'ai attaché le script en format txt.

**Caro-Line** · 18/12/2007, 16h15

Et quelle est la question au juste ?

En gros il suffit de copier-coller la partie qui t'intéresses en réfléchissant aux entrées/sorties.
exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
function pp=PLG(n,p)
for k=2:n
   p(k+1,1:k+1)=((2*k-1)*[p(k,1:k) 0]-(k-1)*[0 0 p(k-1,1:k-1)])/k;
end
sprintf('le polynome de legendre d ordre  %d est ',n);
pp=p(n+1,:);

Et dans ton code tu remplaces la partie copiée/collée par l'appel à la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pp=PLG(n,p);

**prologO** · 18/12/2007, 16h22

Envoyé par caro95470

Et quelle est la question au juste ?

En gros il suffit de copier-coller la partie qui t'intéresses en réfléchissant aux entrées/sorties.

eh oui les E/S que je ne comprend pas en matlab+ la fonction feval (apparement je vais l'utiliser

)

**Caro-Line** · 18/12/2007, 16h28

Envoyé par prologO

eh oui les E/S que je ne comprend pas en matlab+ la fonction feval (apparement je vais l'utiliser

)

Montre-nous ce que tu as fait jusqu'à présent.
Je ne vois pas bien où est la difficulté des E/S.
Et pourquoi veux-tu utiliser la fonction feval ? Dans ton cas je n'en vois pas l'intérêt.
Commence déjà par faire une fonction et on te dira ce qui ne va pas.
courage....

**prologO** · 18/12/2007, 16h40

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
function [pp1,x]=plg(n)
p(1,1)=1;
p(2,1:2)=[1 0]; 
 
 
for k=2:n
   p(k+1,1:k+1)=((2*k-1)*[p(k,1:k) 0]-(k-1)*[0 0 p(k-1,1:k-1)])/k;
end
sprintf('le polynome de legendre d ordre  %d est ',n);
pp=p(n+1,:);
x=roots(pp);
pp1=polyder(pp);

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function xwx(n)
[pp1,x]=plg(n)
for i=1:numel(x)
    w(i)=2/( (1-x(i)^2)*polyval(pp1,x(i))^2 );
 end
if sum(w)<=2 
 
for i=1:numel(x)
    ss(i)=w(i)*feval(f,x(i))
end
disp('l"intégrale vaut ') 
sum(ss)
 
else
    disp('il ya une erreur d"arrondissage et d"approximation pour les wi')
    return;
 end

dans cet fonction
il ya une erreur a la ligne 9

??? Undefined function or variable 'f'.
Error in ==> xwx at 9
ss(i)=w(i)*feval(f,x(i))

le script principale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
disp('pour continuer la calcule de l"intégrale de cette fonction  ')
n=input('vous devez specifiez le nombre "n" qui est le degrée du poly de Legendre ');
f=inline('exp(-t)')
plg(n)
xwx(n)