Funciones
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: francisco0115
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.97 Ko KB
Mis en ligne Uploaded: 01/07/2025 - 23:43:09
Uploadeur Uploader: francisco0115 (Profil)
Téléchargements Downloads: 2
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4773406
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.97 Ko KB
Mis en ligne Uploaded: 01/07/2025 - 23:43:09
Uploadeur Uploader: francisco0115 (Profil)
Téléchargements Downloads: 2
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4773406
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
function [x, y] = euler(f, x0, y0, h, n) x = x0:h:x0 + n*h; y = zeros(1, n+1); y(1) = y0; for i = 1:n y(i+1) = y(i) + h * f(x(i), y(i)); end end function [x, y] = rk2(f, x0, y0, h, n) x = x0:h:x0 + n*h; y = zeros(1, n+1); y(1) = y0; for i = 1:n k1 = f(x(i), y(i)); k2 = f(x(i)+h, y(i)+h*k1); y(i+1) = y(i) + h*(k1 + k2)/2; end end function [x, y] = rk4(f, x0, y0, h, n) x = x0:h:x0 + n*h; y = zeros(1, n+1); y(1) = y0; for i = 1:n k1 = f(x(i), y(i)); k2 = f(x(i)+h/2, y(i)+h*k1/2); k3 = f(x(i)+h/2, y(i)+h*k2/2); k4 = f(x(i)+h, y(i)+h*k3); y(i+1) = y(i) + h*(k1 + 2*k2 + 2*k3 + k4)/6; end end function I = compuesta_trapecio(f, a, b, n) h = (b - a) / n; x = a:h:b; I = f(a) + f(b); for i = 2:n I = I + 2*f(x(i)); end I = I * h / 2; end function I = punto_medio(f, a, b) I = (b - a) * f((a + b)/2); end function I = trapecio(f, a, b) I = (b - a) * (f(a) + f(b)) / 2; end function I = simpson(f, a, b) I = (b - a) / 6 * (f(a) + 4*f((a + b)/2) + f(b)); end function a = minimos_cuadrados_lineal(x, y) A = [ones(length(x),1), x(:)]; a = (A' * A) (A' * y(:)); end function a = ajuste_exponencial(x, y) Y = log(y(:)); A = [ones(length(x),1), x(:)]; coef = (A' * A) (A' * Y); a(1) = exp(coef(1)); a(2) = coef(2); end function a = minimos_cuadrados_lineal(x, y) % Ajuste lineal: y H a0 + a1*x A = [ones(length(x),1), x(:)]; % matriz A a = (A' * A) (A' * y(:)); % solución a = (A^T A)^(-1) A^T y end Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
function [x, y] = euler(f, x0, y0, h, n) x = x0:h:x0 + n*h; y = zeros(1, n+1); y(1) = y0; for i = 1:n y(i+1) = y(i) + h * f(x(i), y(i)); end end function [x, y] = rk2(f, x0, y0, h, n) x = x0:h:x0 + n*h; y = zeros(1, n+1); y(1) = y0; for i = 1:n k1 = f(x(i), y(i)); k2 = f(x(i)+h, y(i)+h*k1); y(i+1) = y(i) + h*(k1 + k2)/2; end end function [x, y] = rk4(f, x0, y0, h, n) x = x0:h:x0 + n*h; y = zeros(1, n+1); y(1) = y0; for i = 1:n k1 = f(x(i), y(i)); k2 = f(x(i)+h/2, y(i)+h*k1/2); k3 = f(x(i)+h/2, y(i)+h*k2/2); k4 = f(x(i)+h, y(i)+h*k3); y(i+1) = y(i) + h*(k1 + 2*k2 + 2*k3 + k4)/6; end end function I = compuesta_trapecio(f, a, b, n) h = (b - a) / n; x = a:h:b; I = f(a) + f(b); for i = 2:n I = I + 2*f(x(i)); end I = I * h / 2; end function I = punto_medio(f, a, b) I = (b - a) * f((a + b)/2); end function I = trapecio(f, a, b) I = (b - a) * (f(a) + f(b)) / 2; end function I = simpson(f, a, b) I = (b - a) / 6 * (f(a) + 4*f((a + b)/2) + f(b)); end function a = minimos_cuadrados_lineal(x, y) A = [ones(length(x),1), x(:)]; a = (A' * A) (A' * y(:)); end function a = ajuste_exponencial(x, y) Y = log(y(:)); A = [ones(length(x),1), x(:)]; coef = (A' * A) (A' * Y); a(1) = exp(coef(1)); a(2) = coef(2); end function a = minimos_cuadrados_lineal(x, y) % Ajuste lineal: y H a0 + a1*x A = [ones(length(x),1), x(:)]; % matriz A a = (A' * A) (A' * y(:)); % solución a = (A^T A)^(-1) A^T y end Made with nCreator - tiplanet.org
>>
