Forum TI-Planet.org

Loin de moi L'idée de faire de la pub mais ma passion des caltoches m'amene à etre multimarques
et puisque la SHARP n'est pas distribuée en france ... pas de confli
La sharp EL 9900 avec son clavier réversible.
pas la peine de la chercher elle n'est pas vendue sur notre territoir.
elle est plutot complete, rapide, sont clavier retournable permet pour le côté simple une utilisation jusqu'en seconde et ensuite il y a l'autre face.
elle n'est pas calcul formelle.
mais c'est fonctionnalités couvrent de nombreux domaines
- Graph séquenciel, parametrique, rectangulaire et polaire
- stat graphique barre, lignes brisées, distribué, rectangle, proba
- un mode slide pour la mémorisation d'écran
- opérations sur les listes, les matrices
- calculs financiers
- Solveur
- Clavier 2 faces avec paramétrage et fonctionnement de la calculatrice différent.
- Ecran partageable
- tableau de résultat
- PC LINK
- 64Ko
- 132x64

quelques photos
avec une vieille casio 7000G et une nouvelle Graph 75 (désolé j'ai pas de 83 ou 84 )





des petits benchs pour ceux qui veulent comparer



si vous pouvez me donner des temps sur 83 ou 84

Le test 15

adapté à la EL

Code: Select all

AxisOFF 'Non affichage des axes
0-Xmin 'Paramétrage des coordonnées
126-Xmax
127-Xscl
-62-Ymin
0-Ymax
63-Yscl
DispG 'Passage en mode graphique
Line(49,0,49,-30)
Line(125,0,125,-30)
Line(50,-30,124,-30)
Line(50,-30,124,-30)
Line(50,0,124,0)
Line(50,-1,124,-1)
Line(50,-2,124,-2)
Line(50,-3,124,-3)
Line(50,-6,124,-6)
Line(50,-7,124,-7)
Line(50,-8,124,-8)
Line(50,-9,124,-9)
Text(1,1,"SCORE: 0") 'On affiche le score
10-Y
0-A
y-B
-3-C
2-D
89-X
Label AA
X+C-X
Y+D-Y
If (X50)+(X122)=0 Goto FF 'Le and étant binaire j'utilise le +
-C-C
X+2xC-X
Label FF
If (Y=30)+(X-2)=0 Goto EE
-D-D
B+D-Y
Label EE
If PxlTST(X,Y)=0 Goto BB 'Test d'un pixel (1)
E+5-E 'J affiche le score ici normalement mais le Text ne prend pas en charge les variables (2)
PxlOFF(X,Y) 'Supression d'un pixel (1)
PxlOFF(X+1,Y) 'remarquez le +Y ici car on fonctionne  sur la matrice
PxlOFF(X+2,Y)
PxlOFF(X,Y+1)
PxlOFF(X+1,Y+1)
PxlOFF(X+2,Y+1)
Y-D-Y
-D-D
Label BB
If E200 Goto CC
PxlOFF(A,B)
PxlOFF(A+1,B)
PxlOFF(A+2,B)
PxlOFF(A,B+1)
PxlOFF(A+1,B+1)
PxlOFF(A+2,B+1)
Line(X,-Y,X+2,-Y) 'remarquez le -Y ici car on fonctionne  sur le repère
Line(X,-Y-1,X+2,-Y-1)
X-A
Y-B
Goto AA
Label CC

(1) les instructions Pxl... font des opérations sur une partie de la matrice de l'écran 126x62 (sur 132x64!!??). Le 0,0 étant en haut à gauche et le 126x62 presque en bas à droite

(2) au passage il n'existe pas de variable Alpha