Modetest2
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: chapes
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.45 Ko KB
Mis en ligne Uploaded: 13/06/2025 - 03:33:16
Uploadeur Uploader: chapes (Profil)
Téléchargements Downloads: 2
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4718299
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.45 Ko KB
Mis en ligne Uploaded: 13/06/2025 - 03:33:16
Uploadeur Uploader: chapes (Profil)
Téléchargements Downloads: 2
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4718299
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
:Local sortedList, uniqueVals, counts, currentVal, currentCount, maxFreq, modes, i :If dim(dataList) = 0 Then :Disp "List is empty." :Return undef :EndIf :sortedList := dataList :SortA sortedList :uniqueVals := {} :counts := {} :currentVal := sortedList[1] :currentCount := 1 :For i, 2, dim(sortedList) :If sortedList[i] = currentVal Then :currentCount +:= 1 :Else : uniqueVals := augment(uniqueVals, {currentVal}) : counts := augment(counts, {currentCount}) : currentVal := sortedList[i] : currentCount := 1 :EndIf :EndFor :uniqueVals := augment(uniqueVals, {currentVal}) :counts := augment(counts, {currentCount}) :maxFreq := max(counts) :modes := {} :For i, 1, dim(counts) :If counts[i] = maxFreq Then : modes := augment(modes, {uniqueVals[i]}) :EndIf :EndFor :Disp "The mode(s) is/are:", modes :Return modes Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
:Local sortedList, uniqueVals, counts, currentVal, currentCount, maxFreq, modes, i :If dim(dataList) = 0 Then :Disp "List is empty." :Return undef :EndIf :sortedList := dataList :SortA sortedList :uniqueVals := {} :counts := {} :currentVal := sortedList[1] :currentCount := 1 :For i, 2, dim(sortedList) :If sortedList[i] = currentVal Then :currentCount +:= 1 :Else : uniqueVals := augment(uniqueVals, {currentVal}) : counts := augment(counts, {currentCount}) : currentVal := sortedList[i] : currentCount := 1 :EndIf :EndFor :uniqueVals := augment(uniqueVals, {currentVal}) :counts := augment(counts, {currentCount}) :maxFreq := max(counts) :modes := {} :For i, 1, dim(counts) :If counts[i] = maxFreq Then : modes := augment(modes, {uniqueVals[i]}) :EndIf :EndFor :Disp "The mode(s) is/are:", modes :Return modes Made with nCreator - tiplanet.org
>>
