Re: Test/Prise en main de la nouvelle HP Prime
Posté: 07 Aoû 2013, 21:51
Update de l'article avec une première révision en anglais par Laurae puis une passe de ma part .
News, programmes, tutoriaux, forum sur les calculatrices TI !
https://tiplanet.org/forum/
brebisson a écrit:Bonjour,
quelques commentaires:
[...]
Cyrille
Lionel Debroux a écrit:D'après Tim Wessman à http://www.omnimaga.org/index.php?topic ... #msg303116 , en bas de la page 1, Cyrille s'est mal exprimé à propos du code natif (il ne parlait pas forcément en son nom, mais ne l'a pas mentionné ?), et nous l'avons mal compris.
Le même message de Tim Wessman indique publiquement le type de processeur de la Prime: un S3C2416. On savait déjà que l'ARM9 de la Prime était un modèle standard (et que le portage de Linux sur Prime serait donc plus facile que sur les Nspire non documentées), mais je ne crois pas qu'on connaissait le modèle précis
Il y a apparemment un accélérateur 2D: http://www.arm.com/community/partners/d ... ctId/2255/ , http://elinux.org/S3C2416 , http://www.armkits.com/download/S3C2416 ... 090306.pdf et autres.
EXPORT Ulam
BEGIN
LOCAL a,b,xy:={160,120}, n:=1, m:=.9, d:={{1,0}, {0,1}, {-1,0}, {0,-1}};
RECT();
WHILE n<100000 DO
FOR a FROM 1 TO 4 DO
m:=m+.5;
FOR b FROM 1 TO m DO
IF CAS.isprime(n) THEN PIXON_P(xy,127);END;
xy:=xy+d(a);
n:=n+1;
END;
END;
END;
FREEZE;
END;
//-------------
Ran(n) BEGIN FLOOR(RANDOM(n)); END; // Fonction locale au programme
EXPORT Box(n) // Fonction globale
BEGIN
FOR A:=1 TO n DO
RECT_P(Ran(320),Ran(260),Ran(320),Ran(260),0,Ran(16581375));
END;
FREEZE;
END;
//-------------------------
LPiece:={100,50,20,10,5,2,1} ; // Variable globale
EXPORT Monnaie(Reste, NPiece)
BEGIN
IF Reste==0 THEN RETURN 1; END;
IF Reste<0 OR NPiece==0 THEN RETURN 0; END;
RETURN Monnaie(Reste-LPiece(NPiece),NPiece)+Monnaie(Reste,NPiece-1);
END;