Oswaldo Ramirez
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: oswaldo.ramirez
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.89 Ko KB
Mis en ligne Uploaded: 24/02/2025 - 04:09:17
Uploadeur Uploader: oswaldo.ramirez (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4515538
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.89 Ko KB
Mis en ligne Uploaded: 24/02/2025 - 04:09:17
Uploadeur Uploader: oswaldo.ramirez (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4515538
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
Define shapiroWilk()=Prgm Request "Ingresa los datos separados por comas:" , datos L1 := expr( "{" & datos & "}" ) N := dim(L1) If N < 3 Then Disp "Error: La muestra debe tener al menos 3 datos." Return EndIf SortA(L1) // Ordenar datos de menor a mayor x := mean(L1) // Media de la muestra S2 := sumSeq((L1[i] - x)^ 2 , i, 1 , N) // Varianza sin dividir por N Disp "Cantidad de datos (N): " , N Disp "Media (x): " , x Disp "S² (sumatoria de cuadrados): " , S2 // Obtener coeficientes a_i de Shapiro-Wilk A := newList(floor(N/ 2 )) For i, 1 , floor(N/ 2 ) mi := invNorm((i - 0.375 ) / (N + 0.25 )) // Valores normales esperados A[i] := mi / sumSeq(mi^ 2 , i, 1 , floor(N/ 2 )) EndFor If mod(N, 2 )` 0 Then A[floor(N/ 2 )+ 1 ] := 0 // Si N es impar, el coeficiente central es 0 EndIf Disp "Coeficientes a_i:" For i, 1 , floor(N/ 2 ) Disp "a_" , i, ": " , A[i] EndFor // Calcular W B := sumSeq(A[i] * (L1[N-i+ 1 ] - L1[i]), i, 1 , floor(N/ 2 )) W := (B^ 2 ) / S2 Disp "Sumatoria del numerador B: " , B Disp "Coeficiente de Shapiro-Wilk (W): " , WEndPrgm Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
Define shapiroWilk()=Prgm Request "Ingresa los datos separados por comas:" , datos L1 := expr( "{" & datos & "}" ) N := dim(L1) If N < 3 Then Disp "Error: La muestra debe tener al menos 3 datos." Return EndIf SortA(L1) // Ordenar datos de menor a mayor x := mean(L1) // Media de la muestra S2 := sumSeq((L1[i] - x)^ 2 , i, 1 , N) // Varianza sin dividir por N Disp "Cantidad de datos (N): " , N Disp "Media (x): " , x Disp "S² (sumatoria de cuadrados): " , S2 // Obtener coeficientes a_i de Shapiro-Wilk A := newList(floor(N/ 2 )) For i, 1 , floor(N/ 2 ) mi := invNorm((i - 0.375 ) / (N + 0.25 )) // Valores normales esperados A[i] := mi / sumSeq(mi^ 2 , i, 1 , floor(N/ 2 )) EndFor If mod(N, 2 )` 0 Then A[floor(N/ 2 )+ 1 ] := 0 // Si N es impar, el coeficiente central es 0 EndIf Disp "Coeficientes a_i:" For i, 1 , floor(N/ 2 ) Disp "a_" , i, ": " , A[i] EndFor // Calcular W B := sumSeq(A[i] * (L1[N-i+ 1 ] - L1[i]), i, 1 , floor(N/ 2 )) W := (B^ 2 ) / S2 Disp "Sumatoria del numerador B: " , B Disp "Coeficiente de Shapiro-Wilk (W): " , WEndPrgm Made with nCreator - tiplanet.org
>>
