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))

./POST DE DEPART (post n°0) Marquer comme non lu.

Dari

Ecrit le: Samedi 30 octobre 2004 à 20:44

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

Après un test de mot de passe, un peu de géométrie?

Votre programme doit maintenant tracer un cercle de centre et de rayon donné par l'utilisateur (arguments : x (coordonnée verticale en pixels), y (coordonnée horizontale en pixels) et r (rayon).
Je vous préviens, attention aux "Domain Error" pour un rayon négatif ou des variables du mauvais type (genre une chaîne de caractères #ko#

).

Bonne chance !

"iPod, therefore, I am."

http://media.laquadrature.net/Quadrature_black-out_HADOPI_468x60px.gif

./Post n°1 Marquer comme non lu.

bobti89

Ecrit le: Samedi 30 octobre 2004 à 23:26

Membre: Maître Ultime

Messages: 2494

Membre n°45

Inscrit le 09 février 2004

Quelle est la précision du cercle ?
Doit-il être clippé ?

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°2 Marquer comme non lu.

kaz00

Ecrit le: Samedi 30 octobre 2004 à 23:33

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

if x>=0 and y>=0 and r>=0 and gettype(x)="NUM" and gettype(y)="NUM" and gettype(r)="NUM":PxlCrcl y,x,r

On a le droit a ca??

./Post n°3 Marquer comme non lu.

Kevin Kofler

Ecrit le: Dimanche 31 octobre 2004 à 00:05

Administrateur

Groupe: Staff de Ti-Gen

Messages: 4814

Membre n°40

Inscrit le 08 février 2004

f(x,y,r)
:Prgm
: DrawParm (x+r*cos(t))*DELTAx+xmin,(r*sin(t)-y)*DELTAy+ymax,0,2pi,.05
:EndPrgm

Pas besoin de s'occuper du clipping, ni de la gestion d'erreurs.

-Edité le Dimanche 31 octobre 2004 à 00:05 par Kevin Kofler-

Membre de l'équipe de TIGCC: http://tigcc.ticalc.org
Mainteneur du portage Linux/Unix de TIGCC: http://tigcc.ticalc.org/linux/
Membre de l'équipe de CalcForge: http://www.calcforge.org:70/

Participez à la reprise de Ti-Gen!

./Post n°4 Marquer comme non lu.

kaz00

Ecrit le: Dimanche 31 octobre 2004 à 01:09

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

Crcl (y,x,r)
Prgm
Try
PxlCrcl y,x,r
Else:EndTry
EndPrgm

EDIT:vaut mieux mettre prgm() EndPrgm.
-Edité le Dimanche 31 octobre 2004 à 11:18 par genocyd-

./Post n°5 Marquer comme non lu.

geogeo

Ecrit le: Dimanche 31 octobre 2004 à 01:46

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4256

Membre n°3

Inscrit le 29 janvier 2004

Ouai les régles devraient être plus précises parce que sinon il faut juste utiliser la fonction cercle. Sinon le programme doit tracer un cercle plein ou vide?

Bon voici mon exemple en GFA-Basic:

Cls
Input "X";X%
Input "Y";Y%
Input "Rayon";R%
Cls
I%=X%-R%
While I%<=X%+R%
  J%=Y%-R%
  While J%<=Y%+R%
    Tmp%=(I%-X%)^2+(J%-Y%)^2
    If Tmp%<R%*R%+R% And Tmp%>R%*R%-R%   !Pour un cercle vide
    If Tmp%<=R%^2  !Pour un cercle plein
      Plot I%,J%
    Endif
    Inc J%
  Wend
  Inc I%
Wend

Bon ça rame à mort pour un cercle de rayon 50 il faut 40 secondes, ça rame car tout simplement le programme fait des tonnes de tests et trace avec la fonction Plot (fonction du TIOS très lente).
Il y a environ 10201 tests effectués pour un cercle de rayon 50! %)
A noter qu'il faut 36 secondes pour un cercle plein de rayon 50!
-Edité le Dimanche 31 octobre 2004 à 02:07 par geogeo-
-Edité le Dimanche 31 octobre 2004 à 02:08 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°6 Marquer comme non lu.

limmt

Ecrit le: Dimanche 31 octobre 2004 à 07:58

Administrateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Groupe: Omega staff

Messages: 4712

Membre n°20

Inscrit le 01 février 2004

f(x,y,r)
Prgm
Try
PxlCrcl y,x,r
Else
EndTry
EndPrgm

http://www.falco-fr.com/ - http://www.jump67.com/ - http://www.msf-league.com/

./Post n°7 Marquer comme non lu.

kaz00

Ecrit le: Dimanche 31 octobre 2004 à 11:16

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

limmt :
f(x,y,r)
Prgm
Try
PxlCrcl y,x,r
Else
EndTry
EndPrgm

c'est exactement ce que j'ai posté un peu plus haut.

./Post n°8 Marquer comme non lu.

bobti89

Ecrit le: Dimanche 31 octobre 2004 à 12:28

Membre: Maître Ultime

Messages: 2494

Membre n°45

Inscrit le 09 février 2004

Alors ?
C'est quoi la vraie règle ?

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°9 Marquer comme non lu.

Dari

Ecrit le: Dimanche 31 octobre 2004 à 12:43

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

Euh, cercle vide (juste le contour) SANS utiliser la fonction PxlCrcl (trop facile sinon).

"iPod, therefore, I am."

./Post n°10 Marquer comme non lu.

geogeo

Ecrit le: Dimanche 31 octobre 2004 à 14:00

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4256

Membre n°3

Inscrit le 29 janvier 2004

Bah Kevin a alors le meilleur programme? Il ne serait pas mieux d'autoriser seulement les fonctions de traçage d'un point ou de ligne?

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°11 Marquer comme non lu.

Dari

Ecrit le: Dimanche 31 octobre 2004 à 14:51

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

Ben non, si je mets f("arthur",{test},undef) ça va pas marcher (je pense pas)

"iPod, therefore, I am."

./Post n°12 Marquer comme non lu.

Kevin Kofler

Ecrit le: Dimanche 31 octobre 2004 à 17:52

Administrateur

Groupe: Staff de Ti-Gen

Messages: 4814

Membre n°40

Inscrit le 08 février 2004

Si.

(Ça ne trace rien.)

./Post n°13 Marquer comme non lu.

kaz00

Ecrit le: Dimanche 31 octobre 2004 à 19:08

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

Dari, il fallait penser aux fonctions de la TI avant de lancer le concours.

./Post n°14 Marquer comme non lu.

Folco

Ecrit le: Lundi 1er novembre 2004 à 01:01

Administrateur

Groupe: Staff de Ti-Gen

Messages: 1286

Membre n°181

Inscrit le 05 avril 2004

ça serait mieux de faire un truc d'algo pur (et même utile) qu'une fonction qui existe déjà dans la ti...

<<< Kernel Extremist©®™ >>>
Pas la peine d'aller là plus d'une fois tous les six mois...

"Il faut apprendre pour savoir qu'il faut apprendre pour savoir."

./Post n°15 Marquer comme non lu.

kaz00

Ecrit le: Lundi 1er novembre 2004 à 01:28

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

Je suis d'accord, mais ca n'a pas ete precisé.

./Post n°16 Marquer comme non lu.

bobti89

Ecrit le: Lundi 1er novembre 2004 à 10:49

Membre: Maître Ultime

Messages: 2494

Membre n°45

Inscrit le 09 février 2004

Entièrement d'accord !

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°17 Marquer comme non lu.

Dari

Ecrit le: Lundi 1er novembre 2004 à 18:09

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

C'était juste comme ça, c'est quoi le problème ?

Puis Kevin, est-tu sûr que si je déplace la window le cercle apparaîtra toujours. Ton truc, c'est une histoire de fonction, donc de POINT, et pas de PIXEL.

"iPod, therefore, I am."

./Post n°18 Marquer comme non lu.

Kevin Kofler

Ecrit le: Lundi 1er novembre 2004 à 21:53

Administrateur

Groupe: Staff de Ti-Gen

Messages: 4814

Membre n°40

Inscrit le 08 février 2004

Dari :
Puis Kevin, est-tu sûr que si je déplace la window le cercle apparaîtra toujours. Ton truc, c'est une histoire de fonction, donc de POINT, et pas de PIXEL.

xmin, DELTAx etc., tu penses que je les utilise pour faire joli? #roll#

./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

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

Pages : 1/2 |« « [1] 2 » »|

Page générée en 51.5ms avec 18 requetes