Home |
Logithèque |
TI81
Grapheur 3D
Code
5->A
2->Arow
A+1->Acol
ClrDraw
(Xmax-Xmin)/A->B
(Ymax-Ymin)/8->C
Ymin->F
Lbl 1
Xmin->E
1->D
Lbl 2
E->X
F->Y
PrgmX
.1Ans->Z
(X-Xmin)/(Xmax-Xmin)->X
(Y-Ymin)/(Ymax-Ymin))->Y
((X+Y-.5)(Xmax-Xmin)+Xmin)/2->G
((X-Y+.5+Z)(Ymax-Ymin)+Ymin)/2->H
If E>Xmin
Line([A](1,D-1),[A](2,D-1),G,H)
If F>Ymin
Line([A](1,D),[A](2,D),G,H)
G->[A](1,D)
H->[A](2,D)
D+1->D
E+B->E
If E<=Xmax
Goto 2
F+C->F
If F<=Ymax
Goto 1
(250 octets).
Mode d'emploi
Définir le PrgmX pour qu'il calcule la fonction à partir de X et Y. La valeur renvoyée est récupérée depuis Ans : tout algorithme est possible dans ce programme (même une saisie utilisateur !!).
Lancer le programme 3D.
Le graphe 3D de la fonction f(x,y) est affiché.
On peut changer le nombre de subdivisions du graphe en ligne 1 (maximum 6).
Normalement le graphe est plutôt indépendant du range, mais il est préférable de revenir au Range standard.
Mathématiques à l'oeuvre
Il s'agit d'une projection.
Quelques fonctions que l'on peut placer dans le programme "PrgmX" sont (SQR symbolise la racine carrée) :
3sin(.7 SQR(X^2+Y^2))
2sin(X-Y)
2XY/SQR(2X^2+Y^2)
(X-Y)/(X+Y)
X^3/40-X-Y^2/4
IPart((X+Y)/3)-IPart((X+Y+.5)/3)
On peut aussi tracer des polaires en programmant le PrgmX ainsi :
Pol(X,Y)->R
J->T
PrgmY
Et on définit la fonction g(r,t) dans le PrgmY. On peut y mettre par exemple une des fonctions suivantes :
2-8/R
2sin2R
.07R(9-R^2)-.4
Abs(R-1)-Abs(R-2)-Abs(R-3)+Abs(R-4)
.2R(R-3)(R-6)
R/T
Rsin4T