matricecomplet
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: Lizanetti
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.65 Ko KB
Mis en ligne Uploaded: 09/06/2025 - 09:10:25
Mis à jour Updated: 09/06/2025 - 09:11:15
Uploadeur Uploader: Lizanetti (Profil)
Téléchargements Downloads: 3
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4706070
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.65 Ko KB
Mis en ligne Uploaded: 09/06/2025 - 09:10:25
Mis à jour Updated: 09/06/2025 - 09:11:15
Uploadeur Uploader: Lizanetti (Profil)
Téléchargements Downloads: 3
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4706070
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
Define matricecomplet() Prgm Local A, L, P, D, n, i // Saisie de la matrice Request "Entrez une matrice carrée A :", A n := dim(A) Disp "Matrice A :" Disp A // Déterminant Disp "1. Déterminant de A" Disp "det(A) =", det(A) // Valeurs propres Disp "2. Valeurs propres" L := eigVl(A) Disp "Valeurs propres :", L // Vecteurs propres Disp "3. Vecteurs propres (matrice P)" P := eigVc(A) Disp "P =", P // Matrice diagonale Disp "4. Matrice diagonale D" D := diag(L) Disp "D =", D // Dimensions des sous-espaces propres Disp "5. Dimensions des sous-espaces propres" For i,1,n Disp "Dim noyau (A - ", L[i][1], " * I) :" Disp dim(ker(A - L[i][1] * identity(n,n))) EndFor // Vérification de la diagonalisation Disp "6. Vérification : A = P.D.P^-1 ?" Disp "P.D.P^-1 =" Disp P . D . inverse(P) EndPrgm Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
Define matricecomplet() Prgm Local A, L, P, D, n, i // Saisie de la matrice Request "Entrez une matrice carrée A :", A n := dim(A) Disp "Matrice A :" Disp A // Déterminant Disp "1. Déterminant de A" Disp "det(A) =", det(A) // Valeurs propres Disp "2. Valeurs propres" L := eigVl(A) Disp "Valeurs propres :", L // Vecteurs propres Disp "3. Vecteurs propres (matrice P)" P := eigVc(A) Disp "P =", P // Matrice diagonale Disp "4. Matrice diagonale D" D := diag(L) Disp "D =", D // Dimensions des sous-espaces propres Disp "5. Dimensions des sous-espaces propres" For i,1,n Disp "Dim noyau (A - ", L[i][1], " * I) :" Disp dim(ker(A - L[i][1] * identity(n,n))) EndFor // Vérification de la diagonalisation Disp "6. Vérification : A = P.D.P^-1 ?" Disp "P.D.P^-1 =" Disp P . D . inverse(P) EndPrgm Made with nCreator - tiplanet.org
>>
