Poster un nouveau sujet Poster une réponse Page: 1,      >>
TANGENTE en temps réel - 2ième version !
Auteur Message
coc5
Avatar

Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mer 28 Nov 2007, 17:53   Citer 

Une petit programme permettant d'obtenir la tangente à une courbe en temps réel, avec son équation happy.gif.

On peut se déplacer sur la courbe et voir la tangente évoluer ainsi que son équation.

Nouveau


J'ai d'abord raccourci le code, puis j'y ai ajouté la possibilité de zoomer ou de dézoomer, ainsi que de pouvoir se déplacer précisément sur la courbe (touches 4 et 6).

De plus, le système d'affichage de la courcbe a été révisé (Plus de 2X + 0 ou de -5X + -8).
Il n'y a plus de temps d'attente avant l'affichage, on peut quitter proprement avec la touche [MODE], ce qui efface maintenant toute les variables utilisées, donc de la place.

Voilà happy.gif



-- LE LIEN ICI --




Code
ClrHome
Input "EQUATION ? n°",F
max(0,min(9,F -> F
Repeat K=22
ClrDraw
(Xmax-Xmin)/94 -> R
"C(I-X)+D -> Str2
FnOff
FnOn F
StorePic 1
FnOff
Xmin+.5(Xmax-Xmin -> X
Repeat K=25 or K=34 or K=22
X+R((K=26)-(K=24)-.1(K=82)+.1(K=84 -> X
[Y1 (var + -> + 1)] -> D
X -> A
X-R10^( [ (-) ] 9 -> X
(D-[Y1 (var + -> + 1)])/(R10^( [ (-) ] 9 -> C
A -> X
Xmin -> I
E -> W
expr(Str2 -> E
Xmax -> I
expr(Str2 -> H
ClrDraw
RecallPic 1
Pt-On(X,[Y1 (var + -> + 1)],2
Line(Xmin,E,Xmax,H
Text(0,0,"X = ",round(X,2
Text(7,0,"Y = ",round([Y1 (var + -> + 1)],2
"+
If D<0:"-
If D:Text(57,0,round(C,2),"X ",Ans,abs(round(D,2
Repeat K:getKey -> K:End
End
1-.3((K=25)-(K=34 -> N
NXmax -> Xmax
NXmin -> Xmin
NYmin -> Ymin
NYmax -> Ymax
End
DelVar Str2
DelVar Pic1
ClrHome


(Xmax-Xmin)/94 -> R
ClrDraw
R/47 -> A
-A-Xmin -> S
"C(I-A)+D -> Str2
Input "EQUATION n° ? ",N
max(0,min(9,N -> N
FnOff
FnOn N
StorePic 1
FnOff
If not(N:Equ>String(Y0,Str3
If N=1:Equ>String(Y1,Str3
If N=2:Equ>String(Y‚2Str3
If N=3:Equ>String(Y3,Str3
If N=4:Equ>String(Y4,Str3
If N=5:Equ>String(Y5,Str3
If N=6:Equ>String(Y6,Str3
If N=7:Equ>String(Y7,Str3
If N=8:Equ>String(Y8,Str3
If N=9:Equ>String(Y9,Str3
"( -> Str1
For(I,1,length(Str3
sub(Str3,I,1
If Ans="X
"A
Str1+Ans -> Str1
End
While 1
Repeat K:getKey -> K:End
A -> J
expr(Str1 -> P
A+R(K=26)-R(K=24 -> A
A+10^(-9 -> A
expr(Str1 -> D
A-10^(-9 -> A
expr(Str1
(D-Ans)/(10^(-9 -> C
Xmin -> I
E -> W
expr(Str2 -> E
Xmax -> I
H -> Z
expr(Str2 -> H
Pt-Off(J,P,2
Line(Xmin,W,Xmax,Z,0
RecallPic 1
Pt-On(A,expr(Str1),2
Line(Xmin,E,Xmax,H
Text(57,0,round(C,3),"X + ",round(D,3
End


----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
vibra



Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mer 28 Nov 2007, 19:39   Citer 

Pas mal !! Moi qui suis pourtant l'expert ès programmes de maths je n'y avait songé. Bravo ! winkle.gif

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 28 Nov 2007, 20:23   Citer 

j'aime beaucoup la longueur du code par rapport à la qualité du prog...

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
vibra



Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Jeu 29 Nov 2007, 17:52   Citer 

C'est clair !

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Jeu 29 Nov 2007, 18:04   Citer 


Citer : Ratuss
j'aime beaucoup la longueur du code par rapport à la qualité du prog...



C'EST IRONIQUE?

 Adresse email Haut de page Bas de page 
 
vibra



Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Jeu 29 Nov 2007, 18:23   Citer 

Non je ne pense pas.

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Jeu 29 Nov 2007, 19:03   Citer 

non pas du tout, ce prog ne semble pas très volumineux... (mais c'est peut être lié au fait que je suis passé en 1280*1024 :p)

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
mad67



Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Sam 01 Déc 2007, 9:37   Citer 

vous voulez rire mon prof de math m'a vu entrain de programmer et il ma demandé d'en faire un.mais bon vu que rpg3 prend 11000 octects (il y a 25 races avec 41 armes) je l'ai pas fait merci vibra. bigmouth.gif

 Adresse email Haut de page Bas de page 
 
vibra



Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Sam 01 Déc 2007, 11:10   Citer 


Citer : mad67
merci vibra. bigmouth.gif


Heuuu pourquoi merci ? crazy.gif

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
mad67



Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Sam 01 Déc 2007, 16:15   Citer 

je vais donner le tiens j'ai la flemme de le faire.

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Sam 01 Déc 2007, 16:30   Citer 

Un petit coup de molette t'aurais évité de te tromper d'interlocuteur eyeonly.gif

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Sam 01 Déc 2007, 17:40   Citer 

en effet, l'auteur du programme c'est... MOI glasses.gif

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mer 05 Déc 2007, 17:05   Citer 

Nouvelle version winkle.gif !

Nouveau

J'ai d'abord raccourci le code, puis j'y ai ajouté la possibilité de zoomer ou de dézoomer, ainsi que de pouvoir se déplacer précisément sur la courbe (touches 4 et 6).

De plus, le système d'affichage de la courcbe a été révisé (Plus de 2X + 0 ou de -5X + -8 ).
Il n'y a plus de temps d'attente avant l'affichage, on peut quitter proprement avec la touche [MODE], ce qui efface maintenant toute les variables utilisées, donc de la place.

Voilà happy.gif

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 05 Déc 2007, 19:13   Citer 

franchement chapeau !


dommage qu'il n'y ait pas la possibilité de tracer la tgte en un point précis (du genre x=3 par exemple)

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 792
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Mer 05 Déc 2007, 19:59   Citer 

Pourquoi une partie du code est en petit ?

@+ Le Webmaster

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
vibra



Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mer 05 Déc 2007, 22:10   Citer 

Ouais mais encore un programme pour les stats cry.gif

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Jeu 06 Déc 2007, 7:02   Citer 


Citer : webmaster
Pourquoi une partie du code est en petit ?

@+ Le Webmaster



c'est la première version je crois...

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Jeu 06 Déc 2007, 20:29   Citer 


Citer : Ratuss
franchement chapeau !


dommage qu'il n'y ait pas la possibilité de tracer la tgte en un point précis (du genre x=3 par exemple)



C'est faisable, je m'y applique pour la 3ième version.


Citer

Ouais mais encore un programme pour les stats


Désolé vibra mais en temps réel ce n'est pas possible en 82 sad.gif
Par contre, compatible 82, je peux faire afficher la tangente et son équation à partir d'un x donné.


Citer
Pourquoi une partie du code est en petit ?



C'est en effet la première version, pour ceux qui la voudrait quand-même.

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
vibra



Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Jeu 06 Déc 2007, 20:40   Citer 

Nan c'est bon te fatigues pas pour moi, je ne me servirai jamais de ton programme de toute façon (non pas qu'il ne soit pas utile), car j'essaye d'être indépendant de ma calculette (je calcule même tout de tête), et j'utilise que très rarement les programmes que je fais moi-même. Je les fait pour le fun.

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
inax



Autorisation : Membre
Nb de messages : 4
Inscrit le : Ven 25 Avr 2008, 13:15
Posté le : Sam 26 Avr 2008, 17:18   Citer 

merci pour ce programme il est super bigmouth.gif

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink