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.
Menu
Calculatrices
Graph 35 à 100
Graph 25+Pro/25+E/25+E II
Graph 35+USB/75(+E)/85/95 SD
Graph 100(+)
Classpad 300/330(+)
fx-CG 10/20 (Prizm)
Classpad 400(+E)
Graph 90+E
fx-92+ SC
Liens
¤ Transférer un programme sur
sa calculatrice

¤ Vous cherchez une fonction ?
Utilitaires >> Graph 35 à 100 >> Graphisme >> Sprite Recon
Sprite Recon
Version : Alpha Taille : 1500 octets Ajouté le : 2019-05-01 19:36 Modifié le : 2019-05-05 18:23
Auteur et posteur :
DisperseurHors ligneMembrePoints: 1830 Défis: 1 Message
Planète Casio - Programme Casio de graphisme - Sprite Recon - disperseur - Calculatrices
Nombre de visites sur cette page : 2899
Score au progrank : 26
Pas encore de note !
Vous devez être connecté(e) pour noter (inscription).
290 téléchargements | Soumettre un test

Ce programme est sous licence Creative Commons 2.0 BY


Description en français :

Bonjour à tous,
Comme promis dans la dernière rdp je publie ici la première version de mon algorithme de reconnaissance de sprite.
Comme on peut le deviner ce programme reconnait des sprites.
Au démarrage du programme, on se retrouve dans une interface utilisateur en locate, dans laquelle on peux dessiner le sprite de notre choix (actuellement de taille maximum 7*7 pixels). Puis on presse [EXE], la calto potasse quelques dixièmes de seconde et elle vous dit si le sprite donné est connu. Si oui, alors vous avez une réponse positive, sinon le programme l\'enregistre et sera capable de le reconnaître plus tards. Mieux, si ce sprite est référencé dans la petite base de données intégrée au programme, l'algo vous dit de quelle forme il s'agit. Actuellement les formes implémentées sont:
-carré de 2*2 px;
-carré vide de 3*3 px;
-cercle vide de 4px de diamètre;
-cercle vide de 5px de diamètre;
-pixel (point);
-croix de 3px de largeur.

Pour ceux qui ne veulent pas télécharger le programme, voici son code source:

Do
LpWhile Getkey<>0

0->A~Z
ClrText

'LIST MEM
"MEM"->List 1
If List 1[1]=0
Then 100->Dim List 1
"MEM"->List 1
1->List 1[1]
15->List 1[2]
495->List 1[3]
63903->List 1[4]
186->List 1[5]
4357252->List 1[6]
27030->List 1[7]
15255086->List 1[8]
IfEnd

'PICT BASE
[[0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0]]->Mat A

'PICT EDITOR

'_->_PICT LOAD
For 1->Theta To 7
For 1-><r> To 7
Mat A[Theta,<r>]=1=>Locate <r>,Theta,"_#E6A6_"
Next
Next

'_->_BACKGROUND
For 1-><r> To 7
Locate 8,<r>,"|"
Next

Red Locate 9,1,"Sprite Recon"
Blue Locate 9,3,"By Disperseur"
Black Locate 9,4,"Use  [_#E690__#E692__#E693__#E691_]"
Black Locate 9,5,"and  [SHIFT]"
Black Locate 9,6,"and  [ALPHA]"
Black Locate 9,7,"then [EXE]"

'_->_POS INIT
1-><r>:1->Theta
Locate 1,1,"+"

'_->_MAIN LEAP
While 1
Do
LpWhile Getkey=0
If Mat A[Theta,<r>]=1
Then Locate <r>,Theta,"_#E6A6_"
Else Locate <r>,Theta," "
IfEnd

'_->_COMMANDS
<r><7=>Getkey=27=>Isz <r>
<r>>1=>Getkey=38=>Dsz <r>
Theta<7=>Getkey=37=>Isz Theta
Theta>1=>Getkey=28=>Dsz Theta
Getkey=78=>1->Mat A[Theta,<r>]
Getkey=77=>0->Mat A[Theta,<r>]

Locate <r>,Theta,"+"
Getkey=31=>Break
Do
LpWhile Getkey<>0
WhileEnd
ClrText

"Analyse.."

'FIRST POINT SEARCHING
For 1->Theta To 7
For 1-><r> To 7
If Mat A[Theta,<r>]=1
Then
<r>->A~B
Theta->C~D
Break
IfEnd
Next
Next

'SIZE DETERMINING
For 1->Theta To 7
For 1-><r> To 7
If Mat A[Theta,<r>]=1
Then
<r><A=><r>->A
<r>>B=><r>->B
Theta<C=>Theta->C
Theta>D=>Theta->D
IfEnd
Next
Next

'READING MAT DIM
{D-C+1,B-A+1}->Dim Mat B

'WEIGHT MAT DIM
{D-C+1,B-A+1}->Dim Mat C

For C->Theta To D
For A-><r> To B
Mat A[Theta,<r>]=1=>1->Mat B[Theta-C+1,<r>-A+1]
Next
Next

'WEIGHT MAT FILL
For 1->Theta To D-C+1
For 1-><r> To B-A+1
2^W->Mat C[Theta,<r>]
Isz W
Next
Next

'SOM CALC
0->S
For 1->Theta To D-C+1
For 1-><r> To B-A+1
S+(Mat B[Theta,<r>]*Mat C[Theta,<r>])->S
Next
Next

'SEARCH
"S="
SDisps
'IMAGES REFERENCEES

For 1-><r> To 100
If List 1[<r>]=S
Then "Connu"
Break
IfEnd
If List 1[<r>]=0
Then "Inconnu, enregistré"
S->List 1[<r>]
Break
IfEnd
Next

S=1=>"POINT"
S=15=>"CARRE 2*2"
S=495=>"CARRE 3*3"
S=63903=>"CARRE 4*4"
S=186=>"CROIX 3*3"
S=4357252=>"CROIX 5*5"
S=27030=>"CERCLE D=4"
S=15255086=>"CERCLE D=5"

ClrMat  


Le petit bémol est que l'algo ne peux pas reconnaître plusieurs sprites regroupés. Pour parer à ce problème je cherche un moyen de détecter les différents sprites qui pourraient êtres présents dans l'image donnée au début.

Sur ce, si vous avez des questions (et je pense qu'il y en aura ) n'hésitez pas.

A+ sur Planet Casio

English description:

//////


Commentaires :

Pages: Précédente | 1, 2, 3, 4, 5 | Suivante

LephenixnoirHors ligneAdministrateurPoints: 24145 Défis: 170 Message
Posté le 05-05-2019 à 20:39 | #
Pour 6×6 je suis à peu près sûr que ça marche, 7×7 ça semble être limite. As-tu tenté de comparer l'image comportant uniquement un pixel en bas à droite (plus grosse puissance de 2) avec celle qui a ce pixel plus le pixel en haut à gauche (plus faible puissance de 2) ?
DisperseurHors ligneMembrePoints: 1830 Défis: 1 Message
Posté le 05-05-2019 à 20:45 | #
Euh non. J'ai transformé la puissance de 2 en puissance de 0.2 .

Edit: Ah oui si je mets deux pixels opposés en diagonale il voit un point. Normal je tombe sur une puissance -29.. Mais là je ne vois pas comment faire..
LephenixnoirHors ligneAdministrateurPoints: 24145 Défis: 170 Message
Posté le 05-05-2019 à 20:47 | #
Compte tenu du format, je ne vois pas trop en quoi ça t'aiderait... il n'y a pas plus de chiffres significatifs avec des puissances de 0.2 !
DisperseurHors ligneMembrePoints: 1830 Défis: 1 Message
Posté le 05-05-2019 à 20:50 | #
Oui mais dans ce cas il y as un bug à 7*7.. il faut peut être opter pour un autre remplissage
LephenixnoirHors ligneAdministrateurPoints: 24145 Défis: 170 Message
Posté le 05-05-2019 à 20:55 | #
Tu ne peux pas faire mieux que les puissances de 2 à moins d'exploiter des arguments spécifiques au format BCD des nombres en Basic...

La raison est simple, si tu as n pixels tu as 2^n images possibles. La matrice que je t'ai donnée utilise les nombres de 0 à 2^n-1 pour les représenter.

Tout ce que tu peux essayer de faire c'est toucher d'autres motifs décimaux en utilisant l'exposant au lieu de la mantisse, mais tu ne pourras gagner que 7 pixels au plus (2^7 < 199 < 2^8).

Et tu vas avoir du mal à faire rentrer ce formalisme dans ton encodage je crois.

En fin de compte la raison pour laquelle il y a une limite est simple : il y a plus d'images différentes que de nombres différents
DisperseurHors ligneMembrePoints: 1830 Défis: 1 Message
Posté le 05-05-2019 à 20:57 | #
Ok je vois.. Je peux le faire tourner en Python.. bon il n'y auras pas l'interface mais au moins je pourrais faire une image plus grande..
LephenixnoirHors ligneAdministrateurPoints: 24145 Défis: 170 Message
Posté le 05-05-2019 à 21:07 | #
Tu as d'autres solutions, encore !

Par exemple tu peux utiliser plusieurs nombres par image. Soit tu prends plusieurs cases de la liste, soit tu peux utiliser des complexes (cela revient au même). Tu as alors deux fois plus de stockage pour tes images, donc deux fois plus de pixels
DisperseurHors ligneMembrePoints: 1830 Défis: 1 Message
Posté le 06-05-2019 à 07:16 | #
Mouais... J'ai regardé les courbes de 2^x et d'autres nombres à la puissance x et j'ai trouvé 2.05^x qui me semble pas mal..
LephenixnoirHors ligneAdministrateurPoints: 24145 Défis: 170 Message
Posté le 06-05-2019 à 09:21 | #
Wait... pourquoi voudrais-tu utiliser 2.05^x ?
DisperseurHors ligneMembrePoints: 1830 Défis: 1 Message
Posté le 06-05-2019 à 09:22 | #
Pour faire en sorte de pouvoir utiliser plus de pixels en me préservant des erreurs d'imprécision

Pages: Précédente | 1, 2, 3, 4, 5 | Suivante

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 163 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