dérivée en TI-Basic (e)z80

[Hamza.S]

Salut,

j'ai commencé un programme pour les calculs de dérivée, tout en Basic. vous trouverez si joint le zip qui contient les programmes.
liste des programmes :

• CALC : calcul des dérivées
• DELPAR : pour supprimer les parenthèses ouvertes en début et fermées à la fin : (X) donne X
• DERIVEE : le programme permettant de saisir la fonction
• MULTIPLE : sensé mettre en place les multiplications à leur place (avec tous les tests je ne sais plus si ça fonctionne correctement ou pas)
• OPERATOR : choix de l'opérateur de calcul /*-+ ou le petit moins ou la fonction sin(cos(tan(log(ln(sin^-1(cos^-1(tan^-1(√(e^(abs( et en prime il donne les parties exemple : 8*X
  
  • opérateur = * stocké dans la chaîne 6
  • partie 1 = 8 stocké dans la chaîne 4
  • partie 2 = X stocké dans la chaîne 5
  ou ln(8*X)
  
  • fonction = ln( stocké dans la chaîne 6
  • partie 1 = 8*X stocké dans la chaine 3

je ne sais par quel miracle j'ai réussi à faire une truc qui fonctionne... (il ne simplifie pas les calculs)



la partie spoiler a été corrigé.

Show/Hide spoilerAfficher/Masquer le spoiler

mais en fait... pas tout à fait, il y a certains bugs dont je n'arrive pas à corriger, exemple :

vous pouvez remarquer qu'il y a un 11 qui sort de nul part dû à un mauvais calcul pour la proportion d'une chaîne.
souvent c'est une parenthèse ouvrante en trop ou bien une erreur de dimension, enfin bref... j'ai décidé d'abandonner le projet.
si quelqu'un souhaite voir/corriger le programme,il faut regarder dans le programme CALC pour les corrections de bugs.

si vous réussissez, n'oubliez pas de partager

possible de l'adapter pour les monochromes pour cela, remplacez la ligne 232 du programme CALC par les 7 suivantes :

Code: Select all

expr(Str3)-1→N
{0,1→L₁
{0,N→L₂
LinReg(ax+b) Y₁
EquString(Y₁,Str4
sub(Str4,1,length(Str4)-3→Str4
"("+Str3+")*("+Str8+")*("+Str7+")^("+Str4+")→Str8

Show/Hide spoilerAfficher/Masquer le spoiler

ceux/celles qui ont un éditeur de programme en français :

Code: Select all

expr(Chn3)-1→N
{0,1→L₁
{0,N→L₂
RégLin(ax+b) Y₁
ÉquChaîne(Y₁,Chn4
sousch(Chn4,1,longueur(Chn4)-3→Chn4
"("+Chn3+")*("+Chn8+")*("+Chn7+")^("+Chn4+")→Chn8

quelques remarques :

• beaucoup ont remarqué qu'on peut écrire ln(X+1 sans fermé la parenthèse, sur la calculatrice, il faut absolument fermer les parenthèses
• pour le fameux 11 dans la dernière photo il y a 2 astuces pour l'éviter, soit on écrit 1*X*ln(X+1) soit on inverse l'ordre, ln(X+1)*X
• pour les polynômes, commencez du plus grand vers le plus petit

[Wistaro]

Beau travail !

Si j'ai le temps un jour je regarderais

[Hamza.S]

@Wistaro merci
(il ne simplifie pas les calculs)

pour les dérivées je n'ai pas mit pour cos^-1( sin^-1( tan^-1( car je ne croyais pas pouvoir aller jusque là
pour les ajouter c'est juste du copier/coller puis éditer en fonction de la formule de dérivée
formules :

Code: Select all

( cos^-1(u) )' = -u'/(√(1-u²))
( sin^-1(u) )' = u'/(√(1-u²))
( tan^-1(u) )' = u'/(1+u²)

mais là c'est plus dans les étude supérieures
(sans oublier les fonctions avec h : cosh, sinh et tanh)

j'ai édité le premier post

[Hamza.S]

finalement, j'ai décidé d'achever le programme pour offrir quelque chose, même-si non complet (pas de simplification et la flemme de mettre des conditions pour simplifier quelques petit trucs), ceux qui n'ont pas la chance de s'offrir une machine avec un moteur CAS.

ce qui manque actuellement, côté fonction :

• certaines fonctions trigo :
  
  • arccos(
  • arcsin(
  • tan(
  • arctan(
  • et les hyperboliques? (je ne sais pas si je rajouterai ça)
• abs( pose un petit problème, il n'y a pas de fonction sign( sur ces modèles
• log( (la fonction la plus embêtante car c'est une fonction à 2 arguments)

il sera sans doute disponible bientôt.

[Epharius]

Nice, impatient de tester ça, ça fait tellement longtemps que tu y travailles

[Hamza.S]

comme je le pensais, c'est avec cette fonction log que je bloque le plus. je rage sec
je pense qu'il sera en ligne ce soir, c'est pas sûr

[Hamza.S]

les programmes sont maintenant en ligne :
pour les CE : archives_voir.php?id=845123
pour les monochromes : archives_voir.php?id=845118
pour les 82 Stats/83 : archives_voir.php?id=846698

si vous trouvez des bugs n'hésitez pas à les signaler

[Hamza.S]

il y a un bug auquel je ne me suis pas penché, les fonctions avec 2 log( avec une fonction log( à l'intérieur sans précision du deuxième argument, exemple log(log(X),2)
(la condition n'est pas difficile à mettre en place)
pour que ça fonctionne correctement, il faut préciser la deuxième du deuxième log(, écrire log(log(X,10),2)

[Hamza.S]

j'ai corrigé pour les log(

[Ti64CLi++]

Waouh, bravo Hamza.S , un vrai petit moteur de calcul formel
Manque plus que les primitives, les intégrales, et le portage de xCAS pour TI 83 PCE