TANGENTE en temps réel - 2ième version ! |
Auteur |
Message |
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Mer 28 Nov 2007, 17:53
|
|
|
Une petit programme permettant d'obtenir la tangente à une courbe en temps réel, avec son équation .
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à
-- 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 ! |
|
|
|
vibra
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mer 28 Nov 2007, 19:39
|
|
|
Pas mal !! Moi qui suis pourtant l'expert ès programmes de maths je n'y avait songé. Bravo !
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
Ratuss
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Mer 28 Nov 2007, 20:23
|
|
|
j'aime beaucoup la longueur du code par rapport à la qualité du prog...
---------------------- --- LISTE DES JEUX POUR TI --- |
|
|
|
vibra
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Jeu 29 Nov 2007, 17:52
|
|
|
C'est clair !
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
Stupid
Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Jeu 29 Nov 2007, 18:04
|
|
|
Citer : Ratuss | j'aime beaucoup la longueur du code par rapport à la qualité du prog... |
C'EST IRONIQUE?
|
|
|
|
vibra
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Jeu 29 Nov 2007, 18:23
|
|
|
Non je ne pense pas.
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
Ratuss
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Jeu 29 Nov 2007, 19:03
|
|
|
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 --- |
|
|
|
mad67
Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05
|
Posté le : Sam 01 Déc 2007, 9:37
|
|
|
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.
|
|
|
|
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 : mad67 | merci vibra. |
Heuuu pourquoi merci ?
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
mad67
Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05
|
Posté le : Sam 01 Déc 2007, 16:15
|
|
|
je vais donner le tiens j'ai la flemme de le faire.
|
|
|
|
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Sam 01 Déc 2007, 16:30
|
|
|
Un petit coup de molette t'aurais évité de te tromper d'interlocuteur
---------------------- Ne cliquez pas ici ! |
|
|
|
Ratuss
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Sam 01 Déc 2007, 17:40
|
|
|
en effet, l'auteur du programme c'est... MOI
---------------------- --- LISTE DES JEUX POUR TI --- |
|
|
|
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Mer 05 Déc 2007, 17:05
|
|
|
Nouvelle version !
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à
---------------------- Ne cliquez pas ici ! |
|
|
|
Ratuss
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Mer 05 Déc 2007, 19:13
|
|
|
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 --- |
|
|
|
webmaster
Autorisation : Administrateur
Nb de messages : 792
Inscrit le : Mer 18 Aoû 2004, 22:13
|
Posté le : Mer 05 Déc 2007, 19:59
|
|
|
Pourquoi une partie du code est en petit ?
@+ Le Webmaster
|
|
|
|
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
|
|
|
Ouais mais encore un programme pour les stats
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
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 : webmaster | Pourquoi une partie du code est en petit ?
@+ Le Webmaster |
c'est la première version je crois...
---------------------- --- LISTE DES JEUX POUR TI --- |
|
|
|
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Jeu 06 Déc 2007, 20:29
|
|
|
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
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 ! |
|
|
|
vibra
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Jeu 06 Déc 2007, 20:40
|
|
|
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 !!! |
|
|
|
inax
Autorisation : Membre
Nb de messages : 4
Inscrit le : Ven 25 Avr 2008, 13:15
|
Posté le : Sam 26 Avr 2008, 17:18
|
|
|
merci pour ce programme il est super
|
|
|
|