Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 6328
Réponses : 26
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

TANGENTE en temps réel - 2ième version ! - Page 1 / 2

coc5 le 28/11/2007 à 17:53
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
vibra le 28/11/2007 à 19:39
Pas mal !! Moi qui suis pourtant l'expert ès programmes de maths je n'y avait songé. Bravo ! winkle.gif
Ratuss le 28/11/2007 à 20:23
j'aime beaucoup la longueur du code par rapport à la qualité du prog...
vibra le 29/11/2007 à 17:52
C'est clair !
Stupid le 29/11/2007 à 18:04
Ratuss a écrit :
j'aime beaucoup la longueur du code par rapport à la qualité du prog...


C'EST IRONIQUE?
vibra le 29/11/2007 à 18:23
Non je ne pense pas.
Ratuss le 29/11/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)
mad67 le 01/12/2007 à 09: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. bigmouth.gif
vibra le 01/12/2007 à 11:10
mad67 a écrit :
merci vibra. bigmouth.gif

Heuuu pourquoi merci ? crazy.gif
mad67 le 01/12/2007 à 16:15
je vais donner le tiens j'ai la flemme de le faire.
coc5 le 01/12/2007 à 16:30
Un petit coup de molette t'aurais évité de te tromper d'interlocuteur eyeonly.gif
Ratuss le 01/12/2007 à 17:40
en effet, l'auteur du programme c'est... MOI glasses.gif
coc5 le 05/12/2007 à 17:05
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
Ratuss le 05/12/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)
webmaster le 05/12/2007 à 19:59
Pourquoi une partie du code est en petit ?

@+ Le Webmaster
vibra le 05/12/2007 à 22:10
Ouais mais encore un programme pour les stats cry.gif
Ratuss le 06/12/2007 à 07:02
webmaster a écrit :
Pourquoi une partie du code est en petit ?

@+ Le Webmaster


c'est la première version je crois...
coc5 le 06/12/2007 à 20:29
Ratuss a écrit :
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.

Citation

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

Citation
Pourquoi une partie du code est en petit ?


C'est en effet la première version, pour ceux qui la voudrait quand-même.
vibra le 06/12/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.
inax le 26/04/2008 à 17:18
merci pour ce programme il est super bigmouth.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.