Page 1 of 1

Aficher une equation "brut"

Unread postPosted: 05 Feb 2015, 15:38
by adrien4607
Bonjour, je suis entrain de faire un programme sur ma nouvel ti nspire cas :P
Le but de se programme sera de calculé les limites, mais j'aimerais pouvoir dire à l'utilisateur quand l’équation est indéterminée de type "∞ /∞ ","0/0", ...
Le problème est que si je passe par le string, ça m'affiche un truc bien pourris avec le "/" mais si je sort du string ça exécute mon calcul et me sort un undef (normal :#roll#: ...)


Merci d'avance pour votre aide :)

Re: Aficher une equation "brut"

Unread postPosted: 05 Feb 2015, 20:10
by Adriweb
He ben, en gros... c'est pas possible :P
C'est un des reproches concernant l'impossiblité d'accéder d'un peu plus près au moteur de calcul de la Nspire, d'ailleurs...

Mais bon, sinon, la Nspire (CX) CAS permet déjà de calculer les limites.
Tu voudrais faire quoi de plus exactement ?

Re: Aficher une equation "brut"

Unread postPosted: 05 Feb 2015, 20:23
by adrien4607
Ha ben c'est la m**** :#fou#:
J'aurais bien voulu automatiser les calculs des différente limite, j'y suis parvenu mais bon j'aurais bien voulu faire en sorte que se sois un peux plus détaillé :P

Voila mon code actuelle, mais je trouve ça dommage cette énorme limitation :?
Code: Select all
Define lym(a,b)=
Prgm
:    Try:
:        Local limm,limp,lim_pinf,lim_minf,m,p
:        limm:=lim(expr(a),x,b,−1)
:        limp:=lim(expr(a),x,b,1)
:        limmp:=lim(expr(a),x,b)
:        lim_pinf:=lim(expr(a),x,∞)
:        lim_minf:=lim(expr(a),x,−∞)
:        If abs(limp)=∞ or abs(limm)=∞ Then
:            Disp "Asymptote vertical d'équation x=",b
:        EndIf
:        If abs(lim_minf)≠∞ Then
:            Disp "Asymptote horizontal à gauche d'équation y=",lim_minf
:        Else
:            m:=lim(((expr(a))/(x)),x,∞)
:            p:=lim(expr(a)-m*x,x,∞)
:            Disp "Asymptote oblique à gauche d’équation",y=m,"x+",p
:        EndIf
:        If abs(lim_minf)≠∞ Then
:             Disp "Asymptote horizontal à droite d'équation y=",lim_pinf
:        Else
:                 m:=lim(((expr(a))/(x)),x,−∞)
:                  p:=lim(expr(a)-m*x,x,−∞)
:                 Disp "Asymptote oblique à droite d’équation",y=m,"x+",p
:        EndIf
:    Else
:        Disp "Une erreur inattenduec'est produite !"
:    EndTry
:EndPrgm