Prog sous DELPHI ->Matrice...(Personne connait?) - Programmation
Marsh Posté le 13-01-2002 à 19:26:28
Pourquoi tu ne mets pas ce que a trouver ca peux servir à d'autres !!! (sinon ca fait un sujet de plus qui sert à rien car y'a pas la reponse).
Marsh Posté le 16-01-2002 à 23:05:19
DarkOli a écrit a écrit : Pourquoi tu ne mets pas ce que a trouver ca peux servir à d'autres !!! (sinon ca fait un sujet de plus qui sert à rien car y'a pas la reponse). |
Tu as raison..voila...La saisie des coeff se fait dans des "edit"..G fait un prog pour calculer des matrice 2*2 si vous voulez d'autre info..demandez!Je ne suis pas un boss je débute mais je peux vous transmettre d'autre partie de la source...
function inverse(x:tmat):Tmat;
Var
det:real;
begin
det:=x[0,0]*x[1,1]-x[1,0]*x[0,1];
if det=0
then showmessage ('La matrice inverse n''existe pas car'+chr(13)+
'le déterminant de la matrice est nul'
else
begin
inverse[0,0]:=(1/det)*(x[1,1]);
inverse[0,1]:=(1/det)*(x[0,1]);
inverse[1,0]:=(1/det)*(x[1,0]);
inverse[1,1]:=(1/det)*(x[0,0]);
end;
Marsh Posté le 13-01-2002 à 17:20:45
Je fais un prog sous DELPHI (je débute) sur des matrices mais je ne me souviens plus comment on calcul une matrice inverse
exemple : Matrice A
a00 a01
a10 a11
J'ai calculé le determinant mais je sais plus comment obtenir la matrice inverse a partir de la matrice A
Si je nomme ses coeff
r00 r01
r10 r11
r00= 1/det*?
Si qqun pouvais m'éclairer ça serai chouette...Merci
Je veux pas la syntaxe en DELPHI je veux juste l'équation mathématique, pour le reste je me débrouille...
[edtdd]--Message édité par dionaea--[/edtdd]