aaaaaaaaaaaaaaaaaaaaaaaaaaaa
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: vicente messer
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.97 Ko KB
Mis en ligne Uploaded: 28/06/2025 - 02:36:55
Mis à jour Updated: 28/06/2025 - 02:36:59
Uploadeur Uploader: vicente messer (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4762241
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.97 Ko KB
Mis en ligne Uploaded: 28/06/2025 - 02:36:55
Mis à jour Updated: 28/06/2025 - 02:36:59
Uploadeur Uploader: vicente messer (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4762241
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
// Define trGEN()= // Prgm // Local lhsCoeffs, rhsCoeffs, icList, Us, s, A, B, Ipoly, Y // Local n, m, j, k // // // 1) Coeficientes del LHS: [a, a, &, a] // Request "Coef LHS [a&a]=", lhsCoeffs // // // 2) Coeficientes del RHS: [b, b, &, b] // Request "Coef RHS [b&b]=", rhsCoeffs // // // 3) Función de entrada en Laplace // Request "U(s)=", Us // // // 4) Definir símbolo s // s := getSymbol("s") // // // 5) Grados de los polinomios // n := dim(lhsCoeffs) - 1 // orden de la EDO // m := dim(rhsCoeffs) - 1 // // // 6) Construir A(s) = a·s + & + a // A := 0 // For j,1,dim(lhsCoeffs) // A := A + lhsCoeffs[j] * s^(dim(lhsCoeffs)-j) // EndFor // // // 7) Construir B(s) = b·sP + & + b // B := 0 // For j,1,dim(rhsCoeffs) // B := B + rhsCoeffs[j] * s^(dim(rhsCoeffs)-j) // EndFor // // // 8) Pedir condiciones iniciales [y(0), y'(0), &, y}{¹~(0)] // Request "ICs [y(0)&y}{¹~(0)]=", icList // // // 9) Calcular el polinomio de términos iniciales: // // Ipoly = £_{j=1..n} a_j · £_{k=0..j-1} [ s^(j-1-k) · y}O~(0) ] // Ipoly := 0 // For j,1,n // For k,0,j-1 // Ipoly := Ipoly // + lhsCoeffs[j] * s^(j-1-k) // * icList[k+1] // EndFor // EndFor // // // 10) Calcular Y(s) = [ B(s)·U(s) + Ipoly ] / A(s) // Y := (B * Us + Ipoly) / A // // // 11) Mostrar resultado // Disp "Y(s) =" // Disp Y // EndPrgm Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
// Define trGEN()= // Prgm // Local lhsCoeffs, rhsCoeffs, icList, Us, s, A, B, Ipoly, Y // Local n, m, j, k // // // 1) Coeficientes del LHS: [a, a, &, a] // Request "Coef LHS [a&a]=", lhsCoeffs // // // 2) Coeficientes del RHS: [b, b, &, b] // Request "Coef RHS [b&b]=", rhsCoeffs // // // 3) Función de entrada en Laplace // Request "U(s)=", Us // // // 4) Definir símbolo s // s := getSymbol("s") // // // 5) Grados de los polinomios // n := dim(lhsCoeffs) - 1 // orden de la EDO // m := dim(rhsCoeffs) - 1 // // // 6) Construir A(s) = a·s + & + a // A := 0 // For j,1,dim(lhsCoeffs) // A := A + lhsCoeffs[j] * s^(dim(lhsCoeffs)-j) // EndFor // // // 7) Construir B(s) = b·sP + & + b // B := 0 // For j,1,dim(rhsCoeffs) // B := B + rhsCoeffs[j] * s^(dim(rhsCoeffs)-j) // EndFor // // // 8) Pedir condiciones iniciales [y(0), y'(0), &, y}{¹~(0)] // Request "ICs [y(0)&y}{¹~(0)]=", icList // // // 9) Calcular el polinomio de términos iniciales: // // Ipoly = £_{j=1..n} a_j · £_{k=0..j-1} [ s^(j-1-k) · y}O~(0) ] // Ipoly := 0 // For j,1,n // For k,0,j-1 // Ipoly := Ipoly // + lhsCoeffs[j] * s^(j-1-k) // * icList[k+1] // EndFor // EndFor // // // 10) Calcular Y(s) = [ B(s)·U(s) + Ipoly ] / A(s) // Y := (B * Us + Ipoly) / A // // // 11) Mostrar resultado // Disp "Y(s) =" // Disp Y // EndPrgm Made with nCreator - tiplanet.org
>>
