Forum de Ti-Gen.org, le site francophone des TI

Bienvenue Invité ! Se connecter Mes sujets	Administrer
Utilisateurs actifs : Aucun membre + 1 visiteur

Avant de poster sur le forum, il y a des régles de bases à respecter pour une bonne entente et un respect de tous.
Veuillez lire la charte du forum.

:: Index » Concours - Contests » Concours FireProg » Deuxième concours FireProg (22 réponse(s))

./REPRISE DU POST PRECEDENT (post n°19) Marquer comme non lu.

bobti89

Ecrit le: Lundi 1er novembre 2004 à 23:07

Membre: Maître Ultime

Messages: 2494

Membre n°45

Inscrit le 09 février 2004

Alors ? On garde cette règle ?
Si oui, voila ma fonction :

cercle(x,y,r)
:Prgm
: setMode("Angle","Radian")
: DrawParm (x+r*cos(t))*DELTAx+xmin,(r*sin(t)-y)*DELTAy+ymax,0,2pi+pi/10,pi/10
:EndPrgm

-Edité le Lundi 1er novembre 2004 à 23:37 par bobti89-

bob ou bob, vous ne voyez pas la différence. Pourtant il y en a une fondamentale, l'un est écrit à l'endroit, l'autre à l'envers.

Visitez mon site : http://www.bobti89.fr.st
Testez mon forum ici

./Post n°20 Marquer comme non lu.

geogeo

Ecrit le: Mardi 2 novembre 2004 à 00:33

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4258

Membre n°3

Inscrit le 29 janvier 2004

Une grande amélioration de mon algorithme du dessus.
En GFA Basic toujours mais bon c'est facile à transposer au TI-Basic, a savoir qu'il est possible de tester les codes en GFA Basic en téléchargeant l'interpréteur!

Cls
Input "X";Xc%
Input "Y";Yc%
Input "Rayon";R%
Cls
T%=Timer
X%=0
Y%=R%
U%=1
V%=R%+R%-1
E%=0
While X%<Y%
  Plot Xc%+X%,Yc%+Y%
  Plot Xc%+Y%,Yc%-X%
  Plot Xc%-X%,Yc%-Y%
  Plot Xc%-Y%,Yc%+X%
  Inc X%
  Add E%,U%
  Add U%,2
  If V%<E%+E% Then
    Dec Y%
    Sub E%,U%
    Sub V%,2
  Endif
  Exit If X%>Y%
  Plot Xc%+Y%,Yc%+X%
  Plot Xc%+X%,Yc%-Y%
  Plot Xc%-Y%,Yc%-X%
  Plot Xc%-X%,Yc%+Y%
Wend
Print "Temps d'exécution:";(Timer-T%)/200

Pour dessiner un cercle de coordonnées 120,64 de rayon 50 il faut 0.31 seconde et avec un rayon de 10, 0.065 seconde.

Je viens de reproduire le même programme en TI-Basic, pour un cercle de rayon 50 il faut 9 secondes et avec un cercle de rayon 10 il faut 2 secondes!

Reste un pb c'est qu'en TI Basic le programme fait 278 octets contre 400 octets en GFA Basic.
-Edité le Mardi 2 novembre 2004 à 00:41 par geogeo-

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°21 Marquer comme non lu.

Dari

Ecrit le: Dimanche 7 novembre 2004 à 17:01