π
<-
Chat plein-écran
[^]

Challenge: XCAS code to anothers CAS

Pour le TI-Basic sur Nspire

Challenge: XCAS code to anothers CAS

Message non lude compsystems » 21 Mar 2018, 20:47

Challenge: Port the following code written in XCAS in tibasic, lua, etc on a calculator of texas instruments, casio, ..., as well as in other CAS (Mathematica, Maple, Symbolic toolbox (matlab), etc

Terms:
You can not use text strings to form expressions, only CAS commands


The following code, shows an exercise of the solution of a system step by step
Code: Tout sélectionner
testCAS():={
   local y,x,list0,expr0,lsolx,y1,y2,sols,test1;
   purge(x,y);
   autosimplify(nop); autosimplify();
   approx_mode(0); approx_mode();
   DispG; ClrIO; printf("Solving a system of two equations"); printf("Solve the following system:");
   list0 := [ y = x^2, y = 2*x + 3 ]; printf(list0);
   printf("substitute y = x² in y = 2x + 3:");
   expr0 := subst(list0(2),list0(1)); printf(expr0);
   printf("substract 2x + 3:");
   expr0 := expr0-(2*x + 3); printf(expr0);
   printf("simplify:");
   expr0 := simplify(expr0); printf(expr0);
   printf("factor:");
   expr0 := factor(expr0); printf(expr0);
   printf("zero factor theorem:");
   lsolx := [ part(left(expr0),1)=0, part(left(expr0),2)=0 ]; printf(lsolx);
   printf("First factor plus 3, second minus 1:");
   lsolx := [lsolx(1)+3, lsolx(2)-1 ]; printf(eval(lsolx,1));
   printf("simplify"); printf("x values:");
   lsolx := simplify(lsolx); printf(lsolx);
   printf("y values:"); printf("Replace x values in the system, firts equation");
   y1 := subst(list0(1),lsolx(1)); printf(y1);
   printf("Replace x values in the system, second equation");
   y2 := subst(list0(1),lsolx(2)); printf(y2);
   printf("Solutions shaped as a array");
   sols:=[[lsolx(1),y1],[lsolx(2),y2]]; printf(sols);
   printf("Checking results:"); printf("Replace x and y values in the system, firts equation");
   test1 := subst(list0(1),[sols(1,1),sols(1,2)]); printf(test1);
   printf("Evaluate:");
   test1 := evalb(test1); printf(test1);
   printf("Replace x and y values in the system, second equation");
   test1 := subst(list0(1),[sols(2,1),sols(2,2)]); printf(test1);
   printf("Evaluate:");
   test1 := evalb(test1); printf(test1);
   sols := solve([ y = x^2, y = 2*x + 3 ],[x,y]); printf("Solutions:"); printf(sols);
   printf("Solutions shaped as a boolean expression:");
   sols := list2exp(sols,[x,y]); printf(eval(sols,1));
   printf("Graphing");
   plot([x^2,2*x+3],x);
   // DispHome
   return("Done");
}:;


Image
Dernière édition par compsystems le 21 Mar 2018, 20:54, édité 1 fois.
Avatar de l’utilisateur
compsystems
Niveau 9: IC (Compteur Infatigable)
Niveau 9: IC (Compteur Infatigable)
Prochain niv.: 18%
 
Messages: 204
Inscription: 30 Mai 2011, 13:44
Genre: Homme
Calculatrice(s):

Re: Challenge: XCAS code to anothers CAS

Message non lude Ti64CLi++ » 21 Mar 2018, 20:49

I will try it :)
It's a good idea, maybe a lot of people will port it to a lot of calculator :p
Image
Avatar de l’utilisateur
Ti64CLi++Modo
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Prochain niv.: 65.1%
 
Messages: 3059
Images: 61
Inscription: 04 Juil 2014, 14:40
Localisation: Valence 26
Genre: Homme
Calculatrice(s):
Classe: 1°S-SVT
GitHub: Ti64CLi


Retourner vers Nspire-Basic

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités

-
Rechercher
-
Sujets à la une
"NumWorks++": Challenge de modification matérielle pour rajouter une puce de mémoire Flash !
Offre TI-Planet/Jarrety pour avoir la TI-83 Premium CE avec son chargeur pour 79,79€ port inclus !
Offre TI-Planet/Jarrety pour avoir la TI-Nspire CX CAS à seulement 130€ TTC port inclus!
Jailbreake ta TI-Nspire avec Ndless et profite des meilleurs jeux et applications !
Transforme ta TI-Nspire CX en console Game Boy Advance!
12345
-
Donations/Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
PayPal : paiement en ligne sécurisé - secure online payments
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety 
-
Stats.
296 utilisateurs:
>271 invités
>21 membres
>4 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)