[MATHS] Etude de fonction

[Keisuke]

Je préfère pas, vu le niveau de programmation Ti présent dans celui-ci, par rapport au miens ^^

En plus il n'apportera rien, car il est plus pourri que tous ce qu'on peut trouver... lol

car je ne savais pas comment fonctionner les listes et matrices... donc, pour une idée de ce que j'avais fais: matrice[1,1]:="x" matrice[1,2], matrice[1,3]... donc bon ca prend un peu de place lol

@+

[Levak]

Honte à moi !!!
Quand on fait "augment" ça n'assigne pas dans la liste, ça renvoie juste la valeur !!

Donc à chaque fois que l'on a un augment() il faut le mettre dans une variable

Code: Select all

© On crée les variables pour les lignes
For j,1,nb_ligne
 expr("li"string(j)":={})
EndFor

© On fusionne les éléments ensembles avec un nombre correct d'espaces
For i,1,nb_colonnes
temp_list:={}
 For j,1,nb_lignes
  expr("ligne"string(j)":=mat["string(j)","string(i)"]")
  expr("dligne"j":=dim(ligne"string(j)")")
  expr("temps_list:=augment(temp_list,{dligne"string(j)"}")
 EndFor
 nb_char_max:=max(temp_list)
 For j,1,nb_lignes
  expr("nb_space:=nb_char_max-dim(ligne"string(j)")"
  For space,0,nb_space
   expr("ligne"string(j)":=ligne"string(j)"' '"
  EndFor
  expr("li"string(j)":=augment(li"string(j)",ligne"string(j)")")
 EndFor
EndFor

© on affiche le résultat ligne par ligne
For j,1,nb_lignes
 expr("Disp li'string(j)")
EndFor


Adri tu as testé avec ce code ? J'ai pas l'impression que tu l'ai vu avec le changement de page ?

[Adriweb]

Oui, c'était la première version, je l'ai mis-à-jour depuis

Oui, Levak j'avais testé mais ca foirait quand même lol

Et d'ailleurs je l'ai encore amélioré aujourdhui et j'ai refait l'algo de transformation matrice - string multi ligne .... Ce qui donne donc maintenant : (c'est toujours un peu à retravailler mais c'est un bon début, ce qui cloche un peu juste c'est lalignement dees "+" et des "-" pour le signe de la dérivée...




Donc je propose une nouvelle version de nouveau en version alpha juste parce que la présentation sous forme de string multiligne n'est pas encore tout à fait parfaite...

Sinon, oui, je peux réactiver l'affichage des || mais bon je suis pas sur que ca fonctionne parfaitement, c'est pourquoi j'ai commenté le code

Sinon, oui j'ai corrigé hier soir le problème de tri des nombres, en effet il y a un bug de la part de TI lorsqu'on tri des listes contenant un infini dedans...

Bref, voila une nouvelle version revue et corrigée, toujours alpha/beta désignée pour etre testée et commentée de votre part

Screenshot avec les nouveautés :




Téléchargement :
Etude de Fonctions NSpire CAS

[critor]

Téléchargement :
Etude de Fonctions NSpire CAS

On peut bientôt le mettre sur le portail?
Avec une news en prime!

[Adriweb]

Je le mettrais sur le portail dès que tout sera bien réglé

Sinon vous avez testé ?

[Adriweb]

Ah, oui, en effet, merci Bisam ....
Edit: oui mais ca affiche "_" dans le tableau une fois affiché .... D'ou l'intéret de ceci est nulle de la part de TI... dommage

[Bisam]

J'ai retrouvé mon programme de mise en RPN.
Il est à mon avis facile de l'adapter (peut-être même suffit-il de faire un copier-coller) pour la Nspire.
Ensuite, le problème est de récupérer les sous-expressions car évidemment la calculette ne gère pas les arbres ! Mais j'ai quand même ma petit idée.

Pour info, une expression assez complexe niveau bac+2 met environ 5s pour être convertie en RPN par ma V200... alors elle devrait en mettre 15 fois moins avec la Nspire.
Si on rajoute, le traitement des sous-expressions puis le solve pour trouver l'ensemble de définition, on devrait arriver à environ 1 à 2s de calcul.

Voici le programme (ou plutôt les fonctions) : 

Show/Hide spoilerAfficher/Masquer le spoiler

La fonction principale :

Code: Select all

RPN(ex)
Func
Local pile,rep,i,j,k,n,ch,top,pch,ptop,new
makestr(ex)»ex
dim(ex)»n
1»i
""»pile
0»j
{}»rep
0»k
true»new
While iœn or jž1
 mid(ex,i,1)»ch
 prior(ch)»pch
 right(pile,1)»top
 prior(top)»ptop
 If ch"" and pch=0 Then
  If mid(ex,i,3)="—^(" Then
   pilechar(1)»pile
   true»new
   i+2»i
  ElseIf mid(ex,i,4)="sin(" Then
   pilechar(3)»pile
   true»new
   i+3»i
  ElseIf mid(ex,i,5)="sinh(" Then
   pilechar(9)»pile
   true»new
   i+4»i
  ElseIf mid(ex,i,5)="sin°(" Then
   pilechar(6)»pile
   true»new
   i+4»i
  ElseIf mid(ex,i,6)="sinh°(" Then
   pilechar(12)»pile
   true»new
   i+5»i
  ElseIf mid(ex,i,4)="cos(" Then
   pilechar(4)»pile
   true»new
   i+3»i
  ElseIf mid(ex,i,5)="cosh(" Then
   pilechar(10)»pile
   true»new
   i+4»i
  ElseIf mid(ex,i,5)="cos°(" Then
   pilechar(7)»pile
   true»new
   i+4»i
  ElseIf mid(ex,i,4)="tan(" Then
   pilechar(5)»pile
   true»new
   i+3»i
  ElseIf mid(ex,i,5)="tanh(" Then
   pilechar(11)»pile
   true»new
   i+4»i
  ElseIf mid(ex,i,5)="tan°(" Then
   pilechar(8)»pile
   true»new
   i+4»i
  ElseIf mid(ex,i,6)="tanh°(" Then
   pilechar(13)»pile
   true»new
   i+5»i
  ElseIf mid(ex,i,3)="ln(" Then
   pilechar(2)»pile
   true»new
   i+2»i
  ElseIf ch="§" Then
   pilechar(14)»pile
   true»new
   i+1»i
  ElseIf ch="ª" Then
   pilech»pile
   true»new
   i+1»i
  ElseIf new Then
   ch»rep[k+1]
   false»new
   i+1»i
  Else
   rep[k]ch»rep[k]
   i+1»i
  EndIf
 ElseIf ch="(" or pchptop Then
  pilech»pile
  true»new
  i+1»i
 ElseIf ch=")" and top="(" Then
  left(pile,j-1)»pile
  true»new
  i+1»i
 ElseIf pchœptop Then
  top»rep[k+1]
  true»new
  left(pile,j-1)»pile
 EndIf
 dim(pile)»j
 dim(rep)»k
EndWhile
rep
EndFunc

La fonction de priorité des opérateurs :

Code: Select all

prior(ch)
Func
If ch="ª" Then
 6
ElseIf ord(ch)œ14 and ord(ch)0 Then
 5
ElseIf ch="^" Then
 4
ElseIf ch="*" or ch="/" Then
 3
ElseIf ch="+" or ch="-" Then
 2
ElseIf ch="(" or ch=")" Then
 1
Else
 0
EndIf
EndFunc

et la fonction de transformation en "string" (sauf si c'est déjà un "string") :

Code: Select all

makestr(ex)
when(getType(ex)"STR",string(ex),ex)

J'ai fait un copier-coller depuis TI Program Editor pour V200... alors forcément certains caractères ne passent pas (la flèche d'affectation est devenue , des signes = et le "e" de l'exponentielle sont illisibles, le "^-1" des fonctions réciproques aussi, etc...).
Je pense qu'en recollant dans TI Program Editor pour Nspire (ou un équivalent), on doit pouvoir tout récupérer.

Vous remarquerez que j'ai transformé les fonctions usuelles (sin, cos, tan, ln, exp, etc...) en des caractères inusités (de 1 à 14), ce afin de n'avoir qu'un seul caractère à tester par la suite...

[Bisam]

J'ai légèrement modifié le code ci-dessus pour le rendre plus léger et normalement pas beaucoup plus lent.

J'ai également écrit la fonction qui remplacera la fonction "part" pour obtenir les sous-expressions... et je vous fournirai bientôt la fonction qui détermine l'ensemble de définition... mais il restera à en extraire les bornes (ce qui n'est pas forcément simple).

Il faudra sans doute que je rajoute des opérateurs dans ma conversion RPN pour justement résoudre ce problème de recherche des bornes (à savoir "ou", "et", , =, =, pour ne citer que ceux qui me viennent à l'esprit).

[Adriweb]

Intéressant ton code mais pour mon programme j'ai opté au final (et je pense que c'est intéressant de ne pas changer) de demander à l'utilisateur le domaine à étudier, car souvent on nous demande d'étudier des fonctions dans certains domaines seulement... Donc c'est encore plus pratique....

Bon, ben sinon, on pourrait releaser la version 1.5 avec la mise en forme sur une matrice ?

Ah moins que quelqu'un a un commentaire/bug a rapporter ?

Sinon j'upload la version 1.5 ou 1.6 avec quelques optimisations par ci par la ....


Merci de commenter !


Je vous rapelle que la version 1.5 est disponible ici :

Etude de Fonctions NSpire CAS v1.5

et la version 2.0alpha ici :

Etude de Fonctions NSpire CAS v2alpha


(seule la mise en forme finale du tableau change)

[Keisuke]

Hello,

je viens de tester la v2a
et j'ai constaté un truc (dis moi si je me trompe)
Tu n'affiche plus dans le tableau les valeurs interdites ?

Sinon, meme s'il y a les guillemets, je préfère l'affichage en matrice, c'est un choix personnel...

sinon, dans les tableaux tu n'utilises pas la variable "var" passer en paramètre...

c'est a dire si tu met: etude(t^2+6,t,{-5,10})
dans le tableau il y a:
x
f'(x)
f(x)
au lieu de : t ; f'(t); f(t)

Sinon, good job.

@+