Le 22/06/98 à Buchy (France-Hte Normandie)

I.FRANCAIS
II.ENGLISH

       I.Français
Aformel est un programme ecrit en TI-BASIC qui vous permet de faire du
calcul formel à partir de votre TI-83.
 Le programme utilise la valeur (approchée) placée dans Ans et cherche
ensuite une racine carrée.
 Par exemple:
vous tapez Sin(PI/3)
la calculatrice retourne: .8660254038
lancer alors le prgmAformel
le programme affiche: 1/2*racine carrée de 3

Les petits problemes:
* sin(PI/4)
D'autres : contactez-moi
jacques.cerezo@wanadoo.fr

 Merci de tester ce programme. Si vous l'utilisez souvent, cela serait
vraiment sympa que vous m'envoyiez quelque Email

      II.English
Aformel is a Basic-program which allows you to use exact value instead
of approximate one.
 The prgm uses the approximate value placed in the Ans var and searchs 
an exact value like that:
 1/2*V~3
For example:
Press Sin(PI/3 and then Enter
the calculator returns : .8660254038
launch the Aformel program
the program displays : 1/2*V~3
known Bugs:
* Sin(PI/4)
Please reports any other bugs:
jacques.cerezo@wanadoo.fr

 Thanks for testing this program. If you often use it, please send me 
some emails.(Excuse-me for my dispicable english).

                     Aformel by Jérôme Mousseau
                                511, route de Forges-les-Eaux
                                76750 BUCHY
                                (FRANCE)

prgmAFORMEL:

ANS->Y:0->S:Y->X
ABS (X->X:0->M
1E7->R
FOR(B,2,7
IF B=4:END
XV~B->A
IF 3RA=INT (3RA
THEN
1->M:GOTO 1
END
X/V~B->A
IF 3RA=INT (3RA
GOTO 1
END
DISP "RIEN TROUVE
Y
STOP
LBL 1
IF X|=Y:-A->A          ; "|=" means not equal to
IF M=1
THEN
DISP "A/V~B
ELSE
DISP "A*V~B
END
Y
DISP "A=
DISP A>FRAC
DISP "B=
DISP B>FRAC