Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> la vertion 4 béta du Labygénérateur !

<< Page: 1, 2, 3, 4, 5, 6, 7 >>

la vertion 4 béta du Labygénérateur !

Auteur

Message

lover-lol

Autorisation : Membre
Nb de messages : 74
Inscrit le : Ven 03 Déc 2010, 3:42

Posté le : Sam 01 Jan 2011, 20:59

Merci !

----------------------
Derien

Google_AdSense

metallica

Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14

Posté le : Sam 01 Jan 2011, 22:16

De rien

----------------------

Tutoriel sur l'Axe Parser !

Google_AdSense

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05

Posté le : Lun 03 Jan 2011, 10:52

OUAHH !! C'est génial, toutes c'est petites astuces Metallica pour
économiser des octets !

Je kiffe grave ! Va y ! Déchire toi, balance en plein !

Çà fait gagner de la place et de la vitesse au prgm !

Merci aussi a persalteas pour cet quelques modifications, je vais l'ais
essayer sans attendre et je vous dirais quoi !

Par contre ta remarque sur le fait que le labyrinthe n'a pas de solution
m’inquiète beaucoup, car les miens sont bel et bien PARFAITS !
(Un seul est unique chemin possible et cela dans tout les cas, et aucune zone inaccessible)...

Vérifie si tu n'a pas fait d'erreur ! Quel plaie ce recopiage !

Et oui il n'y a pas de "et" entre les Pxl-Test...

Pour info j'ai déjà écrit la version 4.5 !
je prendrait en compte vos modifications et la publirée bientôt !

Merci a tous pour votre soutient !

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128 Géodésie

Google_AdSense

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05

Posté le : Lun 03 Jan 2011, 13:59

Çà y est j'ai tester vos propositions et toutes fonctionnent !

C'est officiel elles seront intégrées à la version 4.5 du prgm !

Sauf peut'être les "delvar x" à la place de "0-)x".
Car elle prend la même place et n'est pas forcement plus facile à écrire...
Cependant si elle va plus vite à s'exécuter je la l'adopterais...

Merki !

Persalteas

Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Lun 03 Jan 2011, 20:26

j'ai vérifié ça me fait bien un labyrinthe avec le chemin coupé au milieu de l'écran.

metallica

Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14

Posté le : Mar 04 Jan 2011, 18:34

Tu veux d'autres optimisations. Tiens:
Tous les "If {EXPRESSION}=0" peuvent être remplacer par "If non({EXPRESSION}"
Ensuite toutes parenthèses se trouvant avant un [sto->] peut être supprimer. (Ce qui fait pas mal d'octets économiser.)
Je te conseil d'écrire Delvar {VARIABLE} au lieu de 0->{VARIABLE} car tu peux par exemple écrire:

Code

:Delvar X{0,1,4->A
au lieu de:
:0->X
:{0,1,4->A

----------------------

Tutoriel sur l'Axe Parser !

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05

Posté le : Mer 05 Jan 2011, 11:34

Persalteas, tu m’inquiète beaucoup, car ce prgm fonctionne vraiment
à la perfection...

Si c'est moi qui est fait une erreur, ce n'ai pas grave,
garde ce que tu a déjà recopier car la version 4.5 ne devrait plus tardé.
Tu n'auras alors plus qu'a compléter ou modifier, et avec un peu de chance
çà rectifiera l'erreur...

Mais qu'entend tu par "chemin coupé au milieu de l'écran" ???

PS: Merci Metalica !

Persalteas

Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Mer 05 Jan 2011, 15:29

j'entends qu'il y a une ligne (bon, pas une ligne droite, elle fait des détours) qui va du haut de l'écran au bas de l'écran, me barrant ainsi le chemin.

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05

Posté le : Jeu 06 Jan 2011, 13:08

C'est space ton truc !

Tu sais quoi ?
Je posterais un lien avec une vidéo et de images...
En attendant essaye de faire un "Reset défaut" de la calto.(çà ne suprime rien...).

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05

Posté le : Jeu 06 Jan 2011, 13:09

4.5 ! La version musclée du Labygénérateur !

691 octéts...(avec les lignes facultatives et 640 sans).

Code

:Menu("LABYRINTHE","PLAY",2,"NEW",1,"REPET",3
:Lbl 1:Effvar c:Effvar P:1-)N ----(Effvar C facultatif).
:AxesNaff
:RappelImage (le n° de votre image):Pause:EffDessin ----(Ligne facultative).
:0-)Xmin:0-)Ymin:94-)Xmax:62-)Ymax
:Vertical 1:Vertical 93
:Horizontale 1:Horizontale 61
:Lbl 3
:{0,4,0,-4,0-)A:{0,3.1,0,-3.1,0-)B:{62,65.1,62,58,9-)C
:Lbl 0
:Reapet pxl-Test(A,B
:1+4entAléat(0,15-)A
:1+4entAléat(0,23-)B:End
:If A=1:2-)L
:If A=61:4-)L
:If B=1:1-)L
:If B=93:3-)L
:While 1
:If non(pxl-Test(A+LA(L),B+LA(L+1:Then
:A+LA(L-)A:B+LA(L+1-)B
:Ligne(B,LC(L)-A,B-LB(L+1),LC(L)-A-LB(L)
:C+1-)C:Pxl->On(62,partEnt(C/(154/45)+2 ----(Ligne facultative).
:Else
:If pxl-Test(A+4(A=/=61),B)Pxl-Test(A-4(A=/=1),B)pxl-Test(A,B+4(B=/=93))pxl-Test(A,B-4(B=/=1))=1
:Goto 0
:End
:entAléat(1,4-)L
:End
______________________________________________________________________

:Lbl 2
:Effvar X:Effvar Y
:3+4entAléat(1,14-)C
:3+4entAléat(1,21-)D
:Pxl-On(C,D
:If P=0:Then:3-)A:3-)B
:For(P,2,92:Plx-Off(62,P:End ----(Ligne facultative).
:End:1-)P
:
:Repeat A=C ou B=D
:codeTouche-)K
:
:If K=45:Goto 6
:Y-2(K=24)+2(K=26-)Y
:x-2(K=25)+2(K=34-)x
:
:If non(Pxl-Test(A+X,B+Y:Then
:Pt-Off(B,62-A,3
:A+2X-)A:B+2Y-)B
:Pt-On(B,62-A,3
:End:Effvar X:Effvar Y
:End
:N+2-)N:Pxl-On(62,N:Goto 2
:Lbl 6
:Menu("GAGNE !","QUIT",5,"SAVE",4
:Lbl 4:SauveImage 0
:Lbl 5:EffListe LA:EffListe LB:EffListe LC:AxesAff:ZStandard:EffEcr:Disp (N-1)/2:Stop

metallica

Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14

Posté le : Jeu 06 Jan 2011, 17:21

Tiens je suis sympa, je vais t'optimiser ton code (regarde les commentaires):

Code

:Menu("LABYRINTHE","PLAY",2,"NEW",1,"REPET",3
:Lbl 1:Effvar cEffvar P1-)N // Pas besoin de mettre ":" après Delvar {variable}
:AxesNaff
:RappelImage (le n° de votre image):Pause:EffDessin
:0-)Xmin:0-)Ymin:94-)Xmax:62-)Ymax
:Vertical 1:Vertical 93
:Horizontale 1:Horizontale 61
:Lbl 3
:{0,4,0,-4,0-)A:{0,3.1,0,-3.1,0-)B:{62,65.1,62,58,9-)C
:Lbl 0
:Reapet pxl-Test(A,B
:1+4entAléat(0,15-)A
:1+4entAléat(0,23-)B:End
:2(A=1)+4(A=61-)L // Calcul de booléen évitant d'utiliser des If. Augmente la vitesse du programme
:(B=1)+3(B=93-)L
:While 1
:If non(pxl-Test(A+LA(L),B+LA(L+1:Then
:A+LA(L-)A:B+LA(L+1-)B
:Ligne(B,LC(L)-A,B-LB(L+1),LC(L)-A-LB(L)
:C+1-)C:Pxl->On(62,2+partEnt(C/(154/45 // Le 2+ au début pour supprimer ")"
:Else
:If pxl-Test(A+4(A=/=61),B)Pxl-Test(A-4(A=/=1),B)pxl-Test(A,B+4(B=/=93))pxl-Test(A,B-4(B=/=1 // Le =1 n'est pas nécessaire.
:Goto 0
:End
:entAléat(1,4-)L
:End
______________________________________________________________________

:Lbl 2
:Effvar XEffvar Y3+4entAléat(1,14-)C // Même remarque qu'au début
:3+4entAléat(1,21-)D
:Pxl-On(C,D
:If non(P:Then:3-)A:3-)B
:For(P,2,92:Plx-Off(62,P:End
:End:1-)P
:Repeat A=C ou B=D
:codeTouche-)K
:If K=45:Goto 6
:Y-2(K=24)+2(K=26-)Y
:x-2(K=25)+2(K=34-)x
:If non(Pxl-Test(A+X,B+Y:Then
:Pt-Off(B,62-A,3
:A+2X-)A:B+2Y-)B
:Pt-On(B,62-A,3
:End:Effvar XEffvar YEnd // Encore même remarque.
:N+2-)N:Pxl-On(62,N:Goto 2
:Lbl 6
:Menu("GAGNE !","QUIT",5,"SAVE",4
:Lbl 4:SauveImage 0
:Lbl 5:EffListe LA:EffListe LB:EffListe LC:AxesAff:ZStandard:EffEcr:Disp (N-1)/2 // La dernière ligne du programme est déjà un Stop

A chque fois que tu aère le programme d'une ligne ça prend 1 octet en plus.

----------------------

Tutoriel sur l'Axe Parser !

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Jeu 06 Jan 2011, 19:37

Faux! C'est quand tu rajoute un : que ça met des octets donc un retour à la ligne ou continuer en mettant les deux points consomme autant de mémoire.

Sangohan38

metallica

Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14

Posté le : Jeu 06 Jan 2011, 19:44

Oui mais je dit ça dès qu'il n'y a rien sur cette ligne (sauter plusieurs lignes pour séparer en plusieurs parties son code par exemple)

----------------------

Tutoriel sur l'Axe Parser !

Google_AdSense

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05

Posté le : Ven 07 Jan 2011, 9:11

Merci les copains ! Çà fonctionne très bien et sa économise tout pleins d’octets !
But :
:2(A=1)+4(A=61-)L

B=1)+3(B=93-)L
Est faux si L=0

Je propose donc :

B=1)+2(A=1)+3(B=93)+4(A=61
:Rép(Rép=/=0)+L(Rép=0-)L
C'est plus long mais çà fonctionne !

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05

Posté le : Ven 07 Jan 2011, 9:15

4.6 ! La version musclée du Labygénérateur !

Code

:Menu("LABYRINTHE","PLAY",2,"NEW",1,"REPET",3
:Lbl 1:Effvar cEffvar P1-)N ----(Effvar C facultatif).
:AxesNaff
:RappelImage (le n° de votre image):Pause:EffDessin ----(Ligne facultative).
:0-)Xmin:0-)Ymin:94-)Xmax:62-)Ymax
:Vertical 1:Vertical 93
:Horizontale 1:Horizontale 61
:Lbl 3
:{0,4,0,-4,0-)A:{0,3.1,0,-3.1,0-)B:{62,65.1,62,58,9-)C
:Lbl 0
:Reapet pxl-Test(A,B
:1+4entAléat(0,15-)A
:1+4entAléat(0,23-)B:End
:If A=1:2-)L
:If A=61:4-)L
:If B=1:1-)L
:If B=93:3-)L
:While 1
:If non(pxl-Test(A+LA(L),B+LA(L+1:Then
:A+LA(L-)A:B+LA(L+1-)B
:Ligne(B,LC(L)-A,B-LB(L+1),LC(L)-A-LB(L)
:C+1-)C:Pxl->On(62,2+partEnt(C/(154/45 ----(Ligne facultative).
:Else
:If pxl-Test(A+4(A=/=61),B)Pxl-Test(A-4(A=/=1),B)pxl-Test(A,B+4(B=/=93))pxl-Test(A,B-4(B=/=1
:Goto 0
:End
:entAléat(1,4-)L
:End
______________________________________________________________________

:Lbl 2
:Effvar XEffvar Y
3+4entAléat(1,14-)C
:3+4entAléat(1,21-)D
:Pxl-On(C,D
:If P=0:Then:3-)A:3-)B
:For(P,2,92:Plx-Off(62,P:End ----(Ligne facultative).
:End:1-)P
:
:Repeat A=C ou B=D
:codeTouche-)K
:
:If K=45:Goto 6
:Y-2(K=24)+2(K=26-)Y
:x-2(K=25)+2(K=34-)x
:
:If non(Pxl-Test(A+X,B+Y:Then
:Pt-Off(B,62-A,3
:A+2X-)A:B+2Y-)B
:Pt-On(B,62-A,3
:End:Effvar XEffvar Y
End
:N+2-)N:Pxl-On(62,N:Goto 2
:Lbl 6
:Menu("GAGNE !","QUIT",5,"SAVE",4
:Lbl 4:SauveImage 0
:Lbl 5:EffListe LA,LB,LC:AxesAff:ZStandard:EffEcr:Disp (N-1)/2

Persalteas

Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Sam 08 Jan 2011, 8:53

je vais l'essayer.
qu'est ce qu'elle a de mieux que la précédente, selon toi?

metallica

Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14

Posté le : Dim 09 Jan 2011, 11:59

J'avais pas vu un truc mais à la fin dès que t'écris:

Code

:EffListe LA:EffListe LB:EffListe LC

Tu peux remplacer par:

Code

EffListe LA,LB,LC

----------------------

Tutoriel sur l'Axe Parser !

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05

Posté le : Lun 10 Jan 2011, 10:45

Aïe !!! Une erreur !

B=1)+2(A=1)+3(B=93)+4(A=61
:Rép(Rép=/=0)+L(Rép=0-)L
Ne fonctionne pas non plus !

Elle génère des erreurs lorsque A et B=1...
Ne l'utilisée pas !

Utilisez pour le moment :
:If A=1:2-)L
:If A=61:4-)L
:If B=1:1-)L
:If B=93:3-)L

Désolé, faudra faire avec...

f/x=x²
Invité

Posté le : Lun 10 Jan 2011, 17:06

LA,LB et LC c'est L1,L2 et L3?

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05

Posté le : Lun 10 Jan 2011, 17:16

Oui, tu peut les remplacer par çà...
Si tu veut faire comme moi, c'est le petit "l" dans le catalogue
puis la lettre a, b ou c...

PS: Merci a Métalica. Çà fonctionne !

<< Page: 1, 2, 3, 4, 5, 6, 7 >>

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> la vertion 4 béta du Labygénérateur !

Flux RSS