Planète Casio
Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.

Forum Casio - Autres questions


Index du Forum » Autres questions » savoir si toute les "case" d'une matrice sont identique.
Manolo Hors ligne Membre Points: 910 Défis: 13 Message

savoir si toute les "case" d'une matrice sont identique.

Posté le 25/08/2018 20:35

bonjours, je voudrais savoir quel est la methode pour savoir si toute les "case" d'une matrice sont identique.
merci.

Précédente – 1, 2
Lephenixnoir Hors ligne Administrateur Points: 24572 Défis: 170 Message

Citer : Posté le 26/08/2018 12:04 | #

Par contre tu as détruit la matrice, là.
Mon graphe (11 Avril): ((Rogue Life || HH2) ; PythonExtra ; serial gint ; Boson X ; passe gint 3 ; ...) || (shoutbox v5 ; v5)
Dark storm En ligne Labélisateur Points: 11641 Défis: 176 Message

Citer : Posté le 26/08/2018 22:03 | #

J'ai corrigé son code, qui du coup nécessite deux matrices temporaires pour ne pas détruire l'originale.
Dim Mat Z → Dim Mat A
Mat Z - Mat Z[1,1] → Mat B
If Mat B = Mat A
Then "OK"
Else "NO"
IfEnd
ClrMat A
ClrMat B
Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Zezombye Hors ligne Rédacteur Points: 1756 Défis: 13 Message

Citer : Posté le 27/08/2018 14:01 | #

Pas besoin, suffit de sauvegarder Mat Z[1,1] dans une variable, puis ensuite de faire Mat Z + cette variable.
Divers jeux : Puissance 4 - Chariot Wars - Sokoban
Ecrivez vos programmes basic sur PC avec BIDE
Totoyo Hors ligne Membre d'honneur Points: 16102 Défis: 102 Message
Lephenixnoir Hors ligne Administrateur Points: 24572 Défis: 170 Message

Citer : Posté le 27/08/2018 19:47 | #

Bon, je voulais sortir une solution synthétique, mais... en fait personne n'a essayé le code de Zezombye !

Le calcul listique ne s'étend pas aux matrices : Mat A+1 renvoie une erreur.

En fait même Mat A=Mat B renvoie une erreur.

J'ai tenté de sortir une solution sans itérer sur la matrice mais je n'arrive à rien.
Mon graphe (11 Avril): ((Rogue Life || HH2) ; PythonExtra ; serial gint ; Boson X ; passe gint 3 ; ...) || (shoutbox v5 ; v5)
Dark storm En ligne Labélisateur Points: 11641 Défis: 176 Message

Citer : Posté le 27/08/2018 22:04 | #

Du coup j'ai pas lu les codes itératifs, mais quid de ceci ?
Dim Mat A
List Ans[1]→M
0→R
For 1→A To M
Mat→List(A, A)
R+Min(List Ans)≠Max(List Ans)→R
Next

Faudrait tester la vitesse, je connais pas assez le Basic pour dire si ça sera rapide ou non.
Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Manolo Hors ligne Membre Points: 910 Défis: 13 Message

Citer : Posté le 28/08/2018 11:59 | #

mais vous prenez pas la tête, il marche mon système tout simple...
Lephenixnoir Hors ligne Administrateur Points: 24572 Défis: 170 Message

Citer : Posté le 28/08/2018 12:01 | #

Si je ne me trompe pas Darks, ton programme teste que toutes les colonnes sont uniformes, mais pas que la matrice l'est dans son ensemble.

Ça nous amuse pour la plupart, Manolo. Optimiser une tâche en Basic, c'est fun. :3
Mon graphe (11 Avril): ((Rogue Life || HH2) ; PythonExtra ; serial gint ; Boson X ; passe gint 3 ; ...) || (shoutbox v5 ; v5)
Dark storm En ligne Labélisateur Points: 11641 Défis: 176 Message

Citer : Posté le 28/08/2018 13:29 | #

En effet, faut ajouter cette dernière ligne :
Trn Mat A
Mat->List(Ans, 1)
C+Min(List Ans)!=Max(List Ans)->C
Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Manolo Hors ligne Membre Points: 910 Défis: 13 Message

Citer : Posté le 28/08/2018 14:32 | #

vous êtes géniaux...
Précédente – 1, 2
LienAjouter une imageAjouter une vidéoAjouter un lien vers un profilAjouter du codeCiterAjouter un spoiler(texte affichable/masquable par un clic)Ajouter une barre de progressionItaliqueGrasSoulignéAfficher du texte barréCentréJustifiéPlus petitPlus grandPlus de smileys !
Cliquez pour épingler Cliquez pour détacher Cliquez pour fermer
Alignement de l'image: Redimensionnement de l'image (en pixel):
Afficher la liste des membres
:bow: :cool: :good: :love: ^^
:omg: :fusil: :aie: :argh: :mdr:
:boulet2: :thx: :champ: :whistle: :bounce:
valider
:) ;) :D :p
:lol: 8) :( :@
0_0 :oops: :grr: :E
:O :sry: :mmm: :waza:
:'( :here: ^^ >:)

→ ⇒ √ Σ ∫ ≠ ≥ ≤ π θ ◢ ± α β γ δ Δ σ ≈ ∞ ∈ λ
Veuillez donner la réponse en chiffre
Vous devez activer le Javascript dans votre navigateur pour pouvoir valider ce formulaire.

Si vous n'avez pas volontairement désactivé cette fonctionnalité de votre navigateur, il s'agit probablement d'un bug : contactez l'équipe de Planète Casio.

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 238 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd