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