Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 08 Nov 2010, 7:52
Le programme perd beaucoup de son utilité vu qu'il ne dérive que les fonctions sans cosinus, sinus, tangente, exponentielle ...
As-tu une idée pour remédier à celà?
Sangohan38
Marion. Invité
Posté le : Lun 08 Nov 2010, 11:09
Pourrais-tu m'indiquer la demarche à suivre pour obtenir "String" - "inString" et enfin, "Del" ? Parce que j'ai une TI-82 Stats en francais...
Merci d'avance.
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 08 Nov 2010, 20:17
euh, sangohan:
mon programme est capable de dériver les sinus et cosinus, si c'est juste cos(X) et sin(X), enfin tant que ce n'est pas le cosinus ou sinus d'une fonction.
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 08 Nov 2010, 21:45
Mortel. C'est plus puissant que mon prog de dérivée et primitive de niveau Première.
Quoique j'ai pensé aux compositions de fonctions selon mes connaissance de l'époque. Toutefois j'utilisais des menus et pas une saisie en ligne.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 31 Jan 2011, 23:13
Ce n'est pas si terrible que ça. Plus propre c'est rare.
On pourrait peut-être remplacer les stockage dans "Y1" par la fonction "expr("
Mais c'est rôdé ainsi.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 717
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Mar 08 Fév 2011, 22:38
persalteas, tu es un veritable genie!!pourquoi? parce que:
-terminale a 15 ans !!!!!
-Herssahe
-ce prog la
-catalogue basic (quoique la c'est plus de la patience, c'est relativement simple
-tu es surement celui qui participe le plus aux forum ces 6 derniers mois
BRAVO!!!!!!!!!
---------------------- retrouvez moi sur twitter!!!
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 09 Fév 2011, 17:58
Je dois en déduire que je suis aussi un génie?
En effet, j'avais 15 et j'étais en terminales, j'ai programmé de nombreux programmes sur 82 (pas de chaines et de dérivées donc encore plus chiant à trouver des fonctions), j'avais aussi fait un fichier qui répertorie les fonctions (certes, j'ai perdu le fichier word et j'ai pas eu la motivation de le refaire mais j'en avais bien fait un) et je suis actif sur le forum après plus de 5 ans.
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 09 Fév 2011, 20:26
Sangohan aussi tu es un STL en avance ?
ça alors! tu es le premier cas que je trouve dans le monde qui a fait la même chose que moi!
Ah et aussi: l'année prochaine, j'attaque 10 ans d'études derrière un ordi (PACES puis fac de pharma), donc accès à internet, et je risque d'être souvent là sur le fofo...
ps pour Sango: ta page de traduction et d'emplacement des fonctions est ... bof.
ps pour akmdad: je te pardonne cette fois, mais tu est prié à l'avenir d'éviter de divulguer des informations personnelles à n'importe qui...Je sais que c'est facilement retrouvable avec mon profil mais si tu pouvais évite, merci. Même dans le monde de la progra j'ai des ennemis, ce serai bêtre qu'ils m'identifient, certains geeks sont dangereux...
remarque tu peux continuer à faire de la pub pour HERSSAHE, il se vend plus bien maintenant, alors je le donne gratuit...ça, ça me va très bien.
ps pour moi: bon, ben sinon vive moi quand même...
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 09 Fév 2011, 20:32
Bon dernier post avant de revenir au sujet principal.
Oui, je suis un STL et non, je ne suis pas en avance mais de fin d'année et je n'ai pas fait de fac mais une classe préparatoire (TPC, la seule prépa pour STL CLPI) et maintenant je fait une école de chimie (au passage, mon école fait ses portes ouvertes ce week-end, mp-moi pour plus d'infos).
Concernant ma page de traduction, c'est un copier/coller du fichier que j'avais fait et dont je n'ai jamais eu le courage de refaire vu qu'il en manquait une partie.
Et pour les infos personnelles, je ne vois pas quel "ennemi" se donnerais la peine pour peu que se soit une personne "normale".
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Ven 11 Fév 2011, 14:14
here is the new version of the program:
elle respecte bien la syntaxe si vous la respectez aussi (parenthèses).
Il est un peu plus compréhensible, il est surtout utile pour les premières qui apprennent les dérivées et cherchent des dérivées de fonctions simples
(ensuite, si vous souhaitez dériver des fonctions complexes, de type u/v , ln(u) , u*v , cos(u) , racine(u)... eh bien il vous faut taper u dans mon prog pour connaitre u' , et appliquer à la main le calcul complexe. donc ça aide quand même mais c'est pas parfait.)
CE PROGRAMME EST DEJA OPTIMISE. NE TOUCHEZ PAS AUX PARENTHESES. si elles y sont elles y restent, ne les enlevez pas, si elles n'y sont pas, ne les rajoutez pas.idem pour les guillemets.
il donne des dérivées justes, sauf pour les réels ou il vous dit "aucune idée" (si vous tapez F(X)=0 ou F(X)=5 ou F(X)=ABC... enfin tant qu'il y a pas un X dedans).
Code
:ClrHome
:Input "f(X)=",Str0
:0->N:0->K:0->M
:"0->Str1
:"0->Str2
:"0->Str3
:"0->Str4
:"0->Str5
:Repeat K=9
:sub(Str0,1,1->Str9
:If not(Str9="1" or Str9="2" or Str9="3" or Str9="4" or Str9="5" or Str9="6" or Str9="7" or Str9="8" or Str9="0":Then
:If Str9=/="-":"1"+Str0->Str0 // le petit moins "négatif"
:If Str9="-":Then // le petit moins "négatif"
:sub(Str0,2,1->Str9
:If not(Str9="1" or Str9="2" or Str9="3" or Str9="4" or Str9="5" or Str9="6" or Str9="7" or Str9="8" or Str9="9"
:"-1"+sub(Str0,2,length(Str0)-1->Str0 // le petit moins
:End
:End
:If M:"-"+Str0->Str0 // le petit moins
:inString(Str0,"+"->A
:inString(Str0,"-"->B // le grand moins "soustraction"
:If (B<A and B and A) or (B and not(A:Then
:B->A:1->M
:Else
:0->M
:End
:If A:Then
:N+1->N
:sub(Str0,1,A-1->Str9
:If N=1:Str9->Str1
:If N=2:Str9->Str2
:If N=3:Str9->Str3
:If N=4:Str9->Str4
:sub(Str0,A+1,length(Str0)-A->Str0
:sub(Str0,1,1->Str9
:Else
:9->K
:Str0->Str5
:End
:End
:0->L1(1
:0->L2(1
:0->L3(1
:0->L4(1
:0->L5(1
:0->L6(1
:0->R
:For(K,1,5
:If K=1:Str1->Str9
:If K=2:Str2->Str9
:If K=3:Str3->Str9
:If K=4:Str4->Str9
:If K=5:Str5->Str9
:15->M:0->A
:max(inString(Str9,"ln(X²"),inString(Str9,"ln(X^2"->A // X au carré
:If not(A:Then
:M-1->M
:max(inString(Str9,"ln(X³"),inString(Str9,"ln(X^3"->A // X au cube
:End
:If not(A:Then
:M-1->M
:inString(Str9,"ln(X^->A
:End
:If not(A:Then
:M-1->M
:inString(Str9,"ln(X->A
:End
:If not(A:Then
:M-1->M
:max(inString(Str9,"/(X^"),inString(Str9,"/X^->A
:End
:If not(A:Then
:M-1->M
:max(inString(Str9,"/(X³"),inString(Str9,"/X³->A // au cube
:End
:If not(A:Then
:M-1->M
:max(inString(Str9,"/(X²"),inString(Str9,"/X²->A // au carré
:End
:If not(A:Then
:M-1->M
:max(inString(Str9,"X-1"),inString(Str9,"/X->A
:End
:If not(A:Then
:M-1->M
:inString(Str9,"racine(X)->A
:End
:If not(A:Then
:M-1->M
:inString(Str9,"cos(X)->A
:End
:If not(A:Then
:M-1->M
:inString(Str9,"sin(X)->A
:End
:If not(A:Then
:M-1->M
:inString(Str9,"X²->A // au carré
:End
:If not(A:Then
:M-1->M
:inString(Str9,"X³->A // au cube
:End
:If not(A:Then
:M-1->M
:inString(Str9,"X^->A
:End
:If not(A:Then
:M-1->M
:inString(Str9,"X->A
:End
:If not(A:M-1->M
:If M:expr(sub(Str9,1,A-1->L1(1
:If M=12:"/X->Str9
:If M=15:2L1(1->L1(1
:If M=14:3L1(1->L1(1
:If M=13:Then
:sub(Str9,4,length(Str9)-4->N
:NL1(1->L1(1
:End
:If M<16 and M>12:"ln(X)->Str9
:If M=11:Then
:expr(sub(Str9,A+3+(inString(Str9,"/(X")>0),1->N
:-NL1(1->L1(1 // le petit moins
:N+1->L1(2
:End
:If M=10 or M=11:"/(X^->Str9
:If M=10:Then
:-3L1(1->L1(1
:4->L1(2
:End
:If M=9:Then
:-2L1(1->L1(1
:"/(X³)->Str9 // au cube
:End
:If M=8:"/(X²)->Str9 // au carré
:If M=8 or M=6:-L1(1->L1(1 // le petit moins
:If M=7:"/(2racine(X))->Str9
:If M=6:"sin(X)->Str9
:If M=5:"cos(X)->Str9
:If M=4:Then
:2L1(1->L1(1
:"X->Str9
:End
:If M=3:Then
:3L1(1->L1(1
:"X²->Str9 // au carré
:End
:If M=2:Then
:expr(sub(Str9,A+2,1->N
:NL1(1->L1(1
:N-1->L1(2
:"X^->Str9
:If N=4:"X³->Str9 // au cube
:If N=3:"X²->Str9 // au carré
:If N=2:"X->Str9
:End
:If M=1:" "->Str9
:If M:Then
:R+1->R
:If R=1:Then
:L1->L2
:Str9->Str1:End
:If R=2:Then
:L1->L3
:Str9->Str2:End
:If R=3:Then
:Str9->Str3
:L1->L4
:End
:If R=4:Then
:L1->L5
:Str9->Str4:End
:If R=5:Then
:L1->L6
:Str9->Str5:End
:End
:End
:ClrHome
:R->C
:Disp "f'(X)=
:If not(C:Disp "AUCUNE IDEE
:For(R,1,C
:If R=1:Then
:L2->L1:Str1->Str9
:End
:If R=2:Then
:L3->L1:Str2->Str9
:End
:If R=3:Then
:L4->L1:Str3->Str9
:End
:If R=4:Then
:L5->L1:Str4->Str9
:End
:If R=5:Then
:L6->L1:Str5->Str9
:End
:If R>1 and 0=<L1(1:Output(R+1,1,"+
:If 0>L1(1:Output(R+1,1,"- // le grand moins
:If Str9=" " or inString(Str9,"/") or 1=/=abs(L1(1
:Output(R+1,2,abs(L1(1
:Output(R+1,4,Str9
:If inString(Str9,"X^":Output(R+1,6+2(Str9="/(X^"),L1(2
:End
:DelVar Str1DelVar Str2DelVar Str3DelVar Str4DelVar Str5DelVar Str0DelVar Str9
:ClrAllLists
Autorisation : Membre
Nb de messages : 8
Inscrit le : Mar 28 Mai 2013, 21:49
Posté le : Mer 06 Mai 2015, 18:17
hello, le lien est hs, peux-tu le remettre stp car j'aimerais bien l'essayer, et pour le coup, c'est le seul que j'ai trouvé compatible avec ma caltoche.
Autorisation : Membre
Nb de messages : 1
Inscrit le : Dim 22 Nov 2015, 12:48
Posté le : Dim 22 Nov 2015, 12:50
hello alors moi j’ai un problème avec ma stats 82 fr le programme se lance et il ne se passe rien...que dois-je faire j'ai vraiment besoin de ce programme pour dérivée.merci d'avance
