TI-Planet

by **critor** » 20 May 2013, 12:05

Dans une news précédente, nous te proposions un nouveau concours TI-Planet pour gagner une TI-Nspire CX mais aussi une TI-84 Plus C Silver Edition, avec une chasse au trésor Dragon Ball Z sur Internet dans le contexte de la programmation en langage BASIC!

Le BASIC fut un langage de programmation de référence dans les années 70-80, et il fut fourni d'origine sur la plupart des ordinateurs 8-bits et 16-bits des années 80-90.

Alors certes, nombre d'entre vous n'y êtes probablement pas familiarisés, mais nous allons y remédier de suite afin de vous donner les meilleures chances de gagner!

Peut-être plusieurs d'entre vous ont vu ou entendu parler des dessins animés de vulgarisation scientifique et historique "Il était une fois..." d'Albert Barillé, personnage qui nous a hélas quittés en 2009.
L'Homme, l'Espace, la Vie, les Amériques, les Explorateurs, les Découvreurs, notre Terre... De 1978 à 2008, pas moins de 7 séries vous ont compté les aventures de Maestro, Pierrot, Psi...

Ce qui est moins connu, c'est que dès 1983, les japonais ont répliqué avec un dessin animé du même style, "Ordy ou les grandes découvertes".

127 épisodes furent produits mais seulement 52 diffusés en France.

Ordy, petite créature rose, sort de l'ordinateur de deux frère et soeur japonais de 8-9 ans, et leur explique tout un tas de choses sur l'histoire et la science, pouvant à loisir projeter des images des événements en question et même y téléporter les enfants.

Des épisodes 9 à 12 nous avons droit à une petite séquence d'aventures sur les ordinateurs, et dans l'épisode 10 on a même le droit à un mini tutoriel de programmation utilisant le langage BASIC, et couvrant les instructions d'entrée, d'affectation et de sortie!

Les épisodes sont disponibles en français en bonne qualité sur DailyMotion, mais dans une version où les caractères japonais ont été censurés; soit tout simplement effacés, soit remplacés par de l'anglais surimprimé dans une police inappropriée faisant assez amateur.
Et dans le cas de nos programmes BASIC, c'est assez embêtant...

Et bien je vous offre l'extrait original non saccagé que je viens de numériser depuis une vieille cassette VHS:

Tu as maintenant les bases du langage BASIC, alors viens-vite participer à notre concours Dragon Ball Z!

by **Excale** » 19 May 2013, 23:18

Bonjour à tous,

Suite à ma participation au concours Palprem qui allait étrangement trop vite par rapport à ce qu'il est possible de faire en Basic, beaucoup de personnes m'ont demandé d'expliquer comment j’avais fait pour calculer si rapidement le 5000è palindrome premier.

La réponse est pourtant simple, j'ai utilisé ndless.
Le classeur est en fait un programme ndless qui va lui-même ouvrir un "vrai" classeur Nspire.

En pratique voilà ce qu'il se passe:

L'utilisateur ouvre le faux classeur, qui est en fait un programme ndless
Le programme copie le vrai classeur dans un fichier bidon
Le programme demande à l'OS d'ouvrir le classeur bidon en question
Le programme va créer un hook dans la fonction qui évalue une expression mathématique (c'est à dire qu'il prend la main dans cette fonction, fait quelque chose, et laisse la fonction continuer à s’exécuter normalement).
L'utilisateur voit un classeur Nspire ouvert
Il tape palprem(42)
L'OS arrive dans la fonction qui évalue l'expression mathématique, ce qui donne la main à mon programme
Le programme regarde si l'expression rentrée est de la forme palprem(nombre) (si il ne trouve pas ça, il ne fait rien et redonne la main à l'OS qui va évaluer le calcul)
Si il trouve le motif, il récupère le nombre et calcule le nombrième palindrome premier, et ce bien plus rapidement qu'en Basic
Le programme place ensuite le nombrième palindrome à la place de "palprem(nombre)", et redonne la main à l'OS
L'OS se retrouve alors avec un nombre à évaluer, et renvoie tout simplement ce nombre
L'utilisateur voit ce nombre et va alors pouvoir l'utiliser pour.... (zut, ça sert à quoi les palindromes premiers?)

Le code pour ceux que ça intéresse:

Show/Hide spoilerAfficher/Masquer le spoiler

Quelques définitions dont l'adresse du hook

Code: Select all: #include <os.h> #include <libndls.h> #include <stdint.h> #include <inttypes.h> static const unsigned int addr_exdoc_openclass[] = {0x10009B48, 0x10009B20, 0x10009AE8, 0x10009AE8}; #define EXDOC_OPENCLASS ((int(*)(char*, char*, int))nl_osvalue((int*)addr_exdoc_openclass, sizeof(addr_exdoc_openclass)/sizeof(addr_exdoc_openclass[0]))) static const unsigned int hook_addr_newclass[] = {0x10027558, 0x100274C4, 0x10026C54, 0x10026BEC}; #define HOOK_NEWCLASS nl_osvalue((int*)hook_addr_newclass, sizeof(hook_addr_newclass)/sizeof(hook_addr_newclass[0])) static const unsigned int hook_addr_calc[] = {0x1006CBBC, 0x1006CAEC, 0x1006C2B8, 0x1006C210}; #define HOOK_ADDR_CALC nl_osvalue((int*)hook_addr_calc, sizeof(hook_addr_calc)/sizeof(hook_addr_calc[0]))

Le "vrai" classeur, qu'on inclut directement dans le binaire

Code: Select all: extern void* __file_start__; extern void* __file_end__; asm(".globl __file_start__ \n" ".globl __file_end__ \n" "__file_start__: \n" ".incbin \"palprem_class.tns\" \n" "__file_end__: \n");

Code pour trouver le n-ième palindrome premier. Adapté de : http://www.programmingsimplified.com/c/source-code/c-program-find-next-prime-palindrome

Code: Select all: uint32_t palprime(uint32_t m) { uint32_t n, t, r = 0, c, z = 0; if(m<=5) { const int y[] = {0,2,3,5,7,11}; return y[m]; } else { n = 101-2; z = 5; } while(z<m) { printf("%" PRId32 " %" PRId32 "\n",z,n); while (TRUE) { n+=2; t = n; /* Calculating reverse of number */ while(t) { r *= 10; /* Compound assignment operator r*=10 => r=r*10 */ r += t%10; t /= 10; } /* if reverse equals original then it is palindrome */ if (r == n) { /* Checking prime */ if ((n%2 == 0) || (n%3 == 0) || (n%5 == 0)) goto suite; c = 7; while( c*c<=n) { if ((n%c == 0) || (n%(c+4) == 0)) break; c+=6; } if (c*c>n) break; } suite: r = 0; } z++; } return n; }

Ce bout permet d'enlever le hook quand on quitte le classeur

Code: Select all: HOOK_DEFINE(newclass) { HOOK_UNINSTALL(HOOK_ADDR_CALC, calc_change); HOOK_UNINSTALL(HOOK_NEWCLASS , newclass); HOOK_RESTORE_RETURN(newclass); }

Vérifie si l'utilisateur a tapé palstring(nombre), et appelle si besoin palprime()

Code: Select all: char resultstring[0x100]; const unsigned char palstring[] = {0x70, 0x00, 0x61, 0x00, 0x6C, 0x00, 0x70, 0x00, 0x72, 0x00, 0x65, 0x00, 0x6D, 0x00, 0x28, 0x00}; HOOK_DEFINE(calc_change) { char* calcul = (char *) HOOK_SAVED_REGS(calc_change)[2]; if( !memcmp( calcul, &palstring, sizeof(palstring) ) ) { uint32_t input = 0; int offset = 0; unsigned char currentn = calcul[sizeof(palstring)]; while( currentn>=0x30 && currentn<=0x39 ) { input = input*10 + (currentn-0x30); offset+=2; currentn = calcul[sizeof(palstring)+offset]; } if( offset!=0 && calcul[sizeof(palstring)+offset]==')' && calcul[sizeof(palstring)+offset+2]==0) { uint32_t result = palprime(input); char resultstringbuf[0x80]; memset(resultstring , 0x0, 0x100); memset(resultstringbuf, 0x0, 0x80); sprintf(resultstringbuf, "%" PRId32 "", result); int i; for( i=0; i<0x80; i++ ) { resultstring[2*i] = resultstringbuf[i]; } HOOK_SAVED_REGS(calc_change)[2] = (int) resultstring; } else { HOOK_SAVED_REGS(calc_change)[2] = (int) palstring; } } else { int i; for( i=0; i<0x100; i++ ) { if( calcul[2*i]=='p' && !memcmp( calcul+2*i, &palstring, sizeof(palstring)-2 )) { HOOK_SAVED_REGS(calc_change)[2] = (int) palstring; break; } } } HOOK_RESTORE_RETURN(calc_change); }

Ouvre le classeur et définit les hooks.

Code: Select all: int main() { nl_set_resident(); FILE *tns_file; tns_file = fopen("/logs/palprem.tns","wb"); fwrite (&__file_start__ , sizeof(char) , 4*(&__file_end__-&__file_start__), tns_file ); fclose(tns_file); EXDOC_OPENCLASS("/logs","palprem.tns",1); HOOK_INSTALL(HOOK_ADDR_CALC, calc_change); HOOK_INSTALL(HOOK_NEWCLASS, newclass); return 0; }

Je suis ouvert à toutes questions si besoin

.

...et si vous voulez télécharger le programme, c'est par ici: http://tiplanet.org/forum/archives_voir.php?id=14699

by **mdr1** » 19 May 2013, 20:46

Bonjour à tous !

J'ai l'honneur de vous faire part d'un tutoriel de ma composition pour récupérer un programme perdu par un RAM Cleared !

wabbitemu08.gif

Les conditions suivantes devront toutefois être vérifiées :

Vous possédez une TI-83+/84+.
Votre programme était archivé juste avant de le mettre en RAM et de le perdre avec un RAM Cleared.
L'application Calcsys doit être sur votre calculatrice.

Ces trois conditions réunies, vos chances de récupérer votre programme sont environ de 100% si vous suivez bien le tutoriel ! Aucune connaissance sur la calculatrice n'est exigée, tout est détaillé.

Si j'ai pensé à faire ce tutoriel, c'est qu'il m'est déjà arrivé de désarchiver un programme, l'utiliser/l'éditer (ce peut être un programme assembleur aussi), puis pour n'importe quelle raison de me prendre un effacement de RAM, perdant ainsi des heures et des heures de dur labeur de programmation. J'avais donc tout fait en triturant la mémoire de ma calculatrice avec Calcsys... pour finalement réussir à tout récupérer !

Mettez donc dès maintenant Calcsys sur votre calculatrice pour éviter le pire.

Lien : Récupérer un programme perdu par un RAM Cleared

by **critor** » 19 May 2013, 18:07

Dans la série Dragon Ball Z, C-16 est un des cyborgs créés par le docteur Gero pour l'armée du Ruban Rouge.

In the Dragon Ball Z anime, C-16 is a cyborg created by Dr. Gero for the Red Ribbon Army.

Il est endommagé en tentant de protéger les cyborgs C-17 et C-18 contre Cell, et se fait réparer par Bulma et son père à la Capsule Corporation pour participer au tournoi organisé par Cell.

It is damaged in an attempt to protect cyborgs C-17 and C-18 against Cell, and is repaired by Bulma and her father at the Capsule Corporation in order to participate in the tournament organized by Cell.

Dans l'épisode 168 de Dragon Ball Z, pendant ses réparations Bulma arrive à dumper une partie du code source du cyborg C-16 sur son ordinateur.
On en aperçoit brièvement deux portions de code, et on remarque qu'il s'agit de code Basic, le Basic ayant été un langage très courant dans les années 70-80, fourni d'origine avec nombre d'ordinateurs 8-bits ou 16-bits de cette époque.

In episode 168 of Dragon Ball Z, while attempting to repair it Bulma manages to dump some part of the source code of the cyborg C-16 on her computer.
We briefly see two code segments, and we note that this is Basic code, Basic being a very common language in the 70s and 80s which was preinstalled on many 8-bits and 16-bits computers.

Voici un petit extrait de l'épisode en question avec:

Here is a small part of the episode with:

une première portion de code visible entre 0min12s et 0min22s
a first code segment visible between 0min11s and 0min20s
une deuxième portion de code visible entre 0min36s et 0min44s
a second code segment visible between 0min32s and 0min39s

Nous avons donc le plaisir de te convier à un petit concours, afin de gagner de superbes lots:

We have the pleasure to invite you to a contest in order to win great prizes:

1 TI-Nspire CX numérique avec son logiciel et sa licence + 2 stickers TI-Planet
1 TI-Nspire CX non-CAS with its software and licence + 2 TI-Planet stickers
1 TI-84 Plus C Silver Edition (nouveauté couleur rentrée 2013) avec son chargeur USB + 2 stickers TI-Planet
1 TI-84 Plus C Silver Edition (new color calculator for back to school 2013) with its USB charger + 2 TI-Planet stickers
1 poster de calculatrice Texas Instruments (modèle au choix, dans la limite des disponibilités) + 2 stickers TI-Planet
1 Texas Instruments calculator poster (model of your choice, if available) + 2 TI-Planet stickers
1 stylo USB Texas Instruments + 2 stickers TI-Planet
1 Texas Instruments USB pen + 2 TI-Planet stickers
1 bloc-notes Texas Instruments + 2 stickers TI-Planet
1 Texas Instruments notebook + 2 TI-Planet stickers
4 stickers TI-Planet
4 TI-Planet stickers

Pars à la chasse aux 7 boules de cristal, et si tu les réunis avant les autres, tu pourras demander le lot de ton choix au dragon Shenron.

Go hunting for the seven crystal balls, and if you success before the others, you'll be able to ask dragon Shenron the prize of your choice!

Pour réunir les 7 boules de cristal te permettant d'invoquer le dragon Shenron, il te suffit de nous envoyer par email à info@tiplanet.org avant le mercredi 5 juin 2013 à 23h59 CEST (heure française):

To complete your quest for the seven crystal balls and invoke the Shenron dragon, you just have to send us by email at info@tiplanet.org before Wednesday, June 2013 5 at 23:59 CEST (France time):

une adresse électronique valide où te contacter
a valid email address to you contact
tes nom, prénom et adresse
your names and address
tes réponses à tout ou partie des 7 questions suivantes:
your answers to some or all of the following 7 questions:

[tableborder=0]

Question 1^ère boule de cristal:
Recopier exactement dans un fichier texte la 1^ère portion de code Basic visible de 0min12s à 0min22s dans la vidéo ci-dessus.

1^st crystal ball question:
Copy exactly in a text file the 1^st Basic code portion visible between 0min11s and 0min20s in the above video.

Question 2^ème boule de cristal:
Cette 1^ère portion de code Basic est en fait extraite d'un projet bien plus important. De quoi pouvait-il s'agir? (plusieurs réponses sont possibles)

2^nd crystal ball question:
This 1^st Basic code segment is actually taken from a much larger project. What could it be? (multiple answers possible)

Question 3^ème boule de cristal:
Cette 1^ère portion de code est en fait incomplète et il en manque la fin. Sans rien modifier aux lignes déjà recopiées, invente et rajoute à ton fichier texte une fin de code cohérente. (plusieurs réponses sont possibles)

3^rd crystal ball question:
This 1^st code segment is actually incomplete and the end is missing. Without changing the already copied lines, develop and add a coherent end for the code and add it to your text file. (multiple answers possible)

Question 4^ème boule de cristal:
Recopier exactement dans un fichier texte la 2^ème portion de code Basic visible de 0min36s à 0min44s dans la vidéo ci-dessus.

4^th crystal ball question:
Copy exactly the 2^nd Basic code segment visible between 0min32s and 0min39s in the above video.

Question 5^ème boule de cristal:
De très nombreuses familles de langages Basic ont existé, et cette 2^ème portion de code utilise en fait un dialecte bien précis du langage Basic.

Donne le nom exact du langage Basic utilisé ici dans cette 2^ème portion de code.
Quel ordinateur (marque et modèle) pouvait possiblement traîner chez la Toei Animation afin qu'elle ait pu avoir cette 2^ème portion de code sous la main lors de la production du dessin animé? (plusieurs réponses sont possibles et acceptées)

5^th crystal ball question:
Many families of Basic languages have existed, and the 2^nd code segment actually uses a very specific dialect of Basic.

Give the exact name of the Basic language used here in the 2^nd code segment.
Which computer (brand and model) could possibly have been available at the Toei Animation when the anime was being produced, so that they were able to copy this 2^nd code segment from it? (multiple answers are possible)

Question 6^ème boule de cristal:
Cette 2^ème portion de code est en fait incomplète et il en manque le début. Sans rien modifier aux lignes déjà recopiées, invente et rajoute à ton fichier texte un début de code cohérent.(plusieurs réponses sont possibles)

6^th crystal ball question:
This 2^nd code segment is actually incomplete and the start is missing. Without changing the already copied lines, develop and add a coherent start for the code and add it to your text file. (multiple answers possible)

Question 7^ème boule de cristal:
Recopie ou adapte la 2^ème portion de code sur la machine, l'émulateur ou le logiciel de ton choix. (le choix d'écrans monochromes ou à faible définition n'est pas pénalisé - seule compte l'adaptation au mieux du code dans les contraintes que vous vous imposez)
En ignorant la partie que tu as dû compléter, que réalise cette 2^ème portion de code?
Tu fourniras:

le nom et la version de la machine, de l'émulateur ou du logiciel choisi
au format texte le code source, éventuellement adapté selon la machine, l'émulateur ou le logiciel choisi
un fichier directement utilisable avec la machine, l'émulateur ou le logiciel choisi
au format texte, ta description de ce que fait le programme (tu as le droit de l'accompagner d'images fixes ou animées si certaines choses sont trop dures à décrire)

7^th crystal ball question:
Copy or adapt the 2^nd code segment on the hardware, emulator or software of your choice. (the choice of monochrome or low definition screens is not penalized - only correct/complete adaptation of the code within the chosen constraints is taken into accound)
Ignoring the part you had to complete, what does this 2^nd code segment perform?
You'll send:

the name and version of the chosen hardware, emulator or software
in a text file, the used source code, adapted if necessary for the chosen hardware, emulator or software
a file directly usable with the chosen hardware, emulator or software
in a text file, your description of what the program does perform (you have the right to attach fixed or animated images if some things are hard to describe)

[/table]

Extraits de règlement:

si plusieurs participations sont reçues de la part d'une même personne, seule la dernière est prise en compte
(si vous envoyez donc par exemple une 2ème participation avec de nouvelles réponses ou réponses corrigées, n'oubliez pas de recopier et joindre à nouveau toutes les autres réponses envoyées lors de la 1ère participation)
les participations seront évaluées une fois le concours clôturé, et les candidats se verront attribuer un classement: 1er, 2ème, 3ème, etc...
en cas d'égalité entre deux ou plusieurs participations, la date et l'heure de réception serviront à départager
chaque gagnant se verra contacté dans l'ordre du classement, et pourra choisir parmi les lots mis en jeux restants

Extracts from the rules:

If we receive several entries from you, only the latest will be valid
(meaning that if you send a second entry with new answers/modified answers, don't forget to add the other answers you sent us the previous time)
we will grade you answers once the contest is finished, and we will establish a ranking
if several people end up with the same grade, the sending date/hour will be used to choose
each winner will be contacted in the ranking order, and will be able to choose among the prizes left in

Le règlement complet de ce concours, déposé légalement chez huissier, est disponible à cette adresse :
archives_voir.php?id=12093 ou sur UPECS.

The full rules are available here: archives_voir.php?id=12093 or on UPECS

Les données personnelles récoltées ne sont utilisées qu'à des fins de bon déroulement du concours et font l'objet d'une déclaration à la CNIL, conformément à la loi de 1978. Vous disposez à tout moment d'un droit d'accès, de modification et de suppression.

by **critor** » 19 May 2013, 10:53

Dans une news précédente je vous présentais AutoCalc 4.0, mon moteur de calcul qui vous permet sur toutes vos calculatrices TI-76.fr, TI-82 Stats, TI-83, TI-84 Plus et TI-84 Pocket d'obtenir des résulats exacts simplifiés au lieu des valeurs approchées habituelles de votre calculatrice:

En cela, ces calculatrices rattrapent ou même dépassent donc ce qui se fait d'origine sur les calculatrices scientifiques à écran matriciel (TI-Collège Plus, Casio College 2D...) ou encore les dernières calculatrices graphiques Casio Graph/Prizm:

Les modèles gérés présentant nombre d'incompatibilités, je développe/améliore le code sur un des modèles uniquement, et dois ensuite reporter tous mes ajouts et modifications sur les autres.

Je viens justement de recevoir un rapport de bug présentant une divergence entre les TI-84 Plus C Silver Edition et TI-82 Stats.fr dans le 2ème cas:

Le bug concerne donc le solveur de polynômes du second degré, dans le cas particulier où le discriminant est strictement négatif, et où aucune forme exacte n'est trouvée pour les arguments des solutions complexes.

C'est la TI-84 Plus C Silver Edition qui a raison, et je vous sors aujourd'hui AutoCalc 4.1 qui corrige ce bug pour TI-82 Stats, TI-83, TI-84 Plus et TI-84 Pocket.

(la TI-76.fr n'est pas concernée puisqu'elle ne gère pas les nombres complexes)

En corrigeant ce bug, j'en ai trouvé un deuxième, de moindre importance, concernant les mêmes nombres mais dans la calculatrice exacte.
Les nombres étaient affichées sous une forme juste mais non totalement simplifiée avec un "/1" dans leurs arguments.
C'est également corrigé pour TI-82 Stats, TI-83 et toutes TI-84 dont la TI-84 Plus C.

Dans une autre news précédente j'avais sorti sous la forme d'une application AutoMath un pack de mes programmes de mathématiques pour les examens et particulièrement le BAC.
Cette application incluait notamment AutoCalc.
Cela permettait aux possesseurs de TI-83 Plus, TI-84 Plus et TI-84 Pocket de stocker et exécuter tous ces programmes directement depuis leur mémoire d'archive, économisant ainsi avantageusement la mémoire principale RAM pour d'autres utilisations!

AutoMath passe en version 1.1 en reprenant la version AutoCalc 4.1 améliorée.

Bonne réussite!

Liens:
AutoCalc 4.1 (le moteur de calcul exact)
AutoMath 1.1