Poster un nouveau sujet Poster une réponse
GOLDTANG - Maniez vos tangentes facilement !
Auteur Message
coc5
Avatar

Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Dim 04 Mai 2008, 16:35   Citer 

Et voici goldtang, le programme de traitement de tangente.
Vous entrez l'équation et vous pouvez maniez sa tangente et en avoir l'équation sur n'importe quel point de la courbe, vous la verrez dessinée.


TELECHARGER ICI !






Appuyez sur [MODE] pour quitter, les flèches gauche et droits pour vous déplacer (arriver sur le bord fait bouger l'écran donc l'intervalle). Zommez et dézoomez avec les flèches haut et bas. N'importe quelle autre touche vous permet de reconfigurer le pas ainsi que X.


Code

ClrHome
Disp "TANGENTE   //COC","
Output(8,1,"°VERSION GOLDEN°
1 -> Xres:ClrDraw
Input "Y1: ",Str1
FnOff
String->Equ(Str1,Y1
DelVar Str1
0 -> S:Lbl S
ClrDraw
FnOn 1
DispGraph
StorePic 1
"DX-DA+F -> Y‚
FnOff :If S:Goto V:5 -> K
While K-22
ClrHome:3 -> P
Input "X:",A
Input "Pas:",R
RecallPic 1
Repeat K and A=B
Repeat P+K:getKey -> K:End
A -> B:0 -> P
A-R(.1(K=82)-.1(K=84)+(K=24)-(K=26 -> A
nDeriv(Y1,X,A -> D
Y1(A -> F
If A<Xmin:Then
Xmax-Xmin+A -> Xmax:A -> Xmin:1 -> S:Goto S:End
If A>Xmax:Then
Xmin+Xmax-A -> Xmin:A -> Xmax:1 -> S:Goto S:End
Lbl V
0 -> S
ClrDraw:RecallPic 1
Pt-On(A,F,2
Line(Xmax,Y‚(Xmax),Xmin,Y‚(Xmin
round(F,3 -> F
Text(57,0,"F(X)= ",round(D,3),"X + ",F
Text(0,0,"X : ",round(A,3
Text(6,0,"Y : ",F
End
End
DelVar Y1
DelVar Y‚
ClrHome:ClrDraw
"



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



Publicité    



 
Poster un nouveau sujet Poster une réponse





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