TTT, Text To Ti

Accueil

Créer

Archives

Consultation du fichier MATHSPE.83p

Vous pouvez télécharger ce fichier en cliquant sur le lien ci-dessous:

Télécharger MATHSPE.83p

Utilisateurs de Netscape, après avoir cliqué sur ce lien, une page de type texte avec de nombreux caractères peut s'afficher. Cliquez alors sur Fichier/Enregistrez sous. Sélectionnez un dossier et tapez ".83p" puis validez. Votre fichier est alors téléchargé sur votre disque dur.

Contenu du fichier MATHSPE.83p

Description: mathspe

Texte:
Nom de la variable: MATHSPE
Commentaire:Program file 06/03/07, 19:11
Stockage: RAM
----------
:"Math–matiques sp–ciales
Lbl 0
ClrHome
Menu(" Maths sp– v1.0 ","D–composition",1,"Algo d'Euclide",2,"Congruences",3,"Equation dioph",4,"Similitudes",5,"Cours",6,"Quitter",7

Lbl M
{Ans,AnsüL‚
{0,1üL
LinReg(Y
EquåStrY,Str1
sub(Str1,4,length(Str1)-3üStr1
DelVar Y
End

Lbl 1
2üB
1üC
Disp "D–composition
Input "A=",A
int(abs(AüA
ClrListL
If A=1 or not(A
Then
Pause {A
Else
While Aø1 and B÷ð(A
If fPart(A/B
Then
B+1üB
Else
A/BüA
BüL(C
C+1üC
Disp B
End
End
If Aø1
Then
AüL(C
Disp A
End
If 1=dim(L
Disp "A est premier
Pause L
End
Goto 0

Lbl 2
Disp "Algorithme
Disp "d'Euclide
Input "A=",C
Input "B=",D
abs(int(CüC
abs(int(DüD
Input "Solution?(0/1)",Á
max(C,DüA
min(C,DüB
1üU
0üX
0üV
1üY
Repeat R=0
int(A/BüQ
A-BQüR
If Á
Then
For(Z,1,5
If Z=2:Str1+"=üStr2
If Z=3:Str2+Str1+"*üStr2
If Z=4:Str2+Str1+"+üStr2
If Z=5:Pause Str2+Str1
{A,B,Q,R,0
Ans(Z
If Z÷4:Goto M
End
End
BüA
RüB
U-QXüS
XüU
SüX
V-YQüT
YüV
TüY
End
Disp "PGCD:",A
Disp "U=",U
Disp "V=",V
Pause
CD/AüA
If A<û10
Disp "PPCM=",A
Pause
Goto 0

Lbl 3
ClrHome
Menu("Congruences","Nombre congru",C1,"Puissances",C2,"Tableau",C3,"Retour",0
Lbl C1
Disp "A=B(mod M)
Prompt A,M
int(AüA
int(abs(MüM
If M and A<û10
Then
Disp A-Mint(A/M
Else
If not(M
Then
Disp "Erreur: M=0
Else
Disp "Nombre trop gros
End
End
Pause
Goto 3

Lbl C2
Disp "Solv congruences
"Pas de resultatsüStr1
Disp "A^B=C (mod M)
Prompt A,B,M
For(E,2,B
A^EüS
If Sùû10
Then
ClrHome
Pause Str1
Goto E
End
S/MüC
S-Mint(CüD
ClrHome
Disp "Reste:",DåFrac
Disp "Puissance:",E
If D÷1
Then
Disp "Valeur finale
Pause
Goto E
End
If DùM-1:Pause
End
ClrHome
Pause Str1
Goto 3
Lbl E
BüE
End
End
Goto 3

Lbl C3
Disp "Tableau de congr
Input "Module:",Str1
0üK
length(Str1üL
int(abs(expr(Str1üM
2+4LüD
int(79/DüP
Input "Fonction:",Str1
StringåStr1,Y
PlotsOf
FnOff
AxesOff
GridOff
ZoomSto
0üTmin:0üÁmin
1üTblInpu
1üâ
Horizon40
Horizon31
Horizon22
Line(0,40,0,22
Line(16,40,16,22
Line(94,40,94,22
Text(23,2,"X
Text(32,2,"F(X)
Text(42,0,"F(X)="+Str1
Text(48,0,"Mod=",M
StorePi1
For(A,0,M-1
Text(23,18+AD-PKD,A
Y(A)-Mint(Y(A)/M
If Ans=int(Ans
Then
Text(32,18+AD-PKD,Ans
Else
Text(32,18+AD-PKD,"!
End
Line(16+AD-PKD+D,40,16+AD-PKD+D,22
If not(fPart((A+1)/P
Then
K+1üK
Pause
If AøM-1
ClrDraw
RecallP1
End
End
If fPart(A/P
Pause
ClrHome
ZoomRcl
AxesOn
DelVar Pic1FnOn
Goto 3

Lbl Q
End
End
Lbl 4
1üÁ
Menu("X0 et Y0","Auto",K,"Entrer",L,"Retour",0
Lbl K
0üÁ
Lbl L
Disp "AX+BY=C
0üX:0üY
Prompt A,B,C
If Á
Then
Input "X0=",X
Input "Y0=",Y
If AX+BY=C and 1=gcd(abs(X),abs(Y
Then
Goto O
Else
ClrHome
Disp "X0 et Y0
If AX+BYøC
Then
Pause "incorrects
Else
Disp "non premiers
Pause "entre eux
End
ClrHome
Goto Q
End
End
For(X,10,ú10,ú1
For(Y,10,ú10,ú1
If AX+BY=C and 1=gcd(abs(X),abs(Y
Then
ClrHome
Disp "X0=",X
Disp "Y0=",Y
Pause
Menu("Sol simple?","Oui",O,"Non",P
Lbl P
End:End:End
Disp "Le programme n'a
Disp "pas trouv– de so
Disp "lution –vidente.
Pause
Goto 0
Lbl O
ClrHome
ú10üX
AnsüY
End
End
For(Z,1,5
If Z=1
Then
Disp "D'apres theo de
Disp "Gauss:
End
If Z=2:"X="+Str1+"K+üStr2
If Z=3:Output(3,1,Str2+Str1
If Z=4:"Y="+Str1+"K+üStr2
If Z=5:Output(5,1,Str2+Str1
{úB,X,A,Y,0
Ans(Z
If Z÷4:Goto M
End
Pause
If not(Á
End
Goto 0

Lbl 5
0àüI
"S=üStr3
Disp "Equation:
Input "S(X)=",Str4
StringåStr4,Y
Y(0üB
Y(1)-BüA
1üZ
If 0
Then
Lbl A
End
DelVar Á
If A+IøI
Then
àüX
If Y=Aà+B
Then
DelVar Z
If A+I=1+I
Then
If B+I=I
Then
Pause Str3+"Id P
Else
Disp Str3+"Translation de
Disp "vecteur:",BåFrac
Pause
End
Else
ClrHome
B/(1-AüD
angle(AüC
abs(AüE
Disp Str3+"Sim directe
Disp "Rapport:",EåFrac
Disp "Angle: Ä*",C/ÄåFrac
Disp "Centre:
Pause DåFrac
End
End
If Y=B-Aà
Then
If 1=abs(A
Then
ClrHome
Disp "S=Sym–trie d'axe
.5à+.5YüC
.5+.5BüD
real(CüE
imag(CüF
real(DüG
imag(DüH
Fix 6
For(C,1,4
If C=2:Str1+"X+üStr2
If C=3:Str2+Str1+"Y+üStr2
If C=4:Str2+Str1+"=0üStr1
If C=1:2H-2F
If C=2:2E-2G
If C=3:2FG-2EH
If C÷3:Goto M
End
Float
Pause Str1
End
Disp "S est une
Disp "similitude
Disp "indirecte, la
Disp "compos–e:S= WoD
Pause "O¯: D=Sym (0x)
"W=üStr3
"AX+BüStr1
StringåStr1,Y
ClrHome
1üÁ
DelVar Z
End
End
If Z
Then
Disp "Cette –quation
Disp "n'est pas celle
Disp "d'une similitu-
Pause "de.
Else
If Á=1:Goto A
End
StringåStr4,Y
Goto 0

Lbl 6
PlotsOf
FnOff
AxesOff
ClrDraw
Text(1,0,"Bezout"):Text(7,0,"a,b prem entre eux <=> il"):Text(13,0,"existe (u,v)/ au+bv=1"):Text(25,0,"Gauss"):Text(31,0,"{a,b prem entre eux"):Text(37,0,"{a divise bc"):Text(43,0,"=>a divise c"):Pause :ClrDraw:Text(1,0,"Fermat"):Text(7,0,"pÀN* et p premier"):Text(13,0,"aÀN et a nn divisible par p"):Text(19,0,"=>a^(p-1)1(p)"):Text(31,0,"Consequence"):Text(37,0,"a quelconque"):Text(43,0,"p premier"):Text(49,0,"=>a^pa(p)")
Pause
ClrDraw
Text(0,1,"PGCD(a,b)*PPCM(a,b)=a*b
Pause
Disp
AxesOn
FnOn
Goto 0

Lbl 7
Disp "Programm– par
Disp "Nicolas Moreaud
1ürand:rand(65
ClrHome
Output(1,1,"

[ Langue: fr - Auteur: NC (NC) ]

Utilisation du fichier sur une calculatrice

Pour pouvoir lire ce fichier sur une calculatrice Ti82, Ti83, ou Ti83+, vous devez télécharger les deux programmes ci-dessous:

Si vous possédez une Ti83 ou une Ti83+:
- Télécharger ION.zip
- Télécharger txtviewAV.zip

Si vous possédez une Ti82:
- Télécharger Crash.zip
- Télécharger Txtview82.zip

Suivez à présent ces étapes :

Si vous possédez une Ti83 ou une Ti83+:
1. Décompressez les fichiers ion.zip et txtviewAV.zip à l'aide d'un utilitaire du type Winzip.
2. Ouvrez votre logiciel de transfert Ti-PC, puis connectez votre cable (si vous n'en possédez pas, vous pouvez en acquérir un à partir de 6 euros sur les enchères de france83.com: voir la pub en haut de la page).
3. Envoyez les fichier Ion.83g (ou ion.8xg si vous avez une Ti83+), Txtview.83g (ou Txtview.8xg si vous avez une Ti83+) et MATHSPE.83p sur votre calculatrice.
4. Sur votre calculatrice, lancez le programme nommé "ION", un programme nommé "A" est généré.
5. Lancez le programme nommé "A". "Textview" apparait alors dans le menu qui s'affiche. Cliquez dessus. Vous voyez un nouveau menu s'ouvrir. La description du programme que vous venez de télécharger y apparait. Cliquez dessus. Votre texte s'affiche sur l'écran !
Si possédez une Ti82:
1. Décompressez les fichiers crash.zip et txtview82.zip à l'aide d'un utilitaire du type Winzip.
2. Ouvrez votre logiciel de transfert Ti-PC, puis connectez votre cable (si vous n'en possédez pas, vous pouvez en acquérir un à partir de 6 euros sur les enchères de france83.com: voir la pub en haut de la page).
3. Envoyez les fichiers Crash.82b (attention ceci effacera toutes les données enregistrées sur votre calculatrice!) puis TxtView.82p et MATHSPE.83p sur votre Ti
4. Lancez le programme nommé "Crash". "Textview" apparait alors dans le menu qui s'affiche. Cliquez dessus. Vous voyez un nouveau menu s'ouvrir. La description du programme que vous venez de télécharger y apparait. Cliquez dessus. Votre texte s'affiche sur l'écran !

Options relatives à textview

Une fois les étapes précédentes réalisées, vous voilà sur le programme textview. Ce programme propose plusieurs options qui vous permettent de lire le fichier que vous venez de télécharger. Voici les boutons de votre calcultrice à presser pour obtenir l'action indiquée:

(quand vous êtes sur ION ou sur CRASH (Ti82), cliquez sur [MODE] pour quitter ION)
Quand vous êtes dans le menu principal de Textview:
- [flèche "haut"] : faire monter le curseur de sélection
- [flèche "bas"] : faire descendre le curseur de sélection
- [flèche "droite"] : change de page (s'il y'a plus de 9 fichiers sur la calculatrice)
- [CLEAR] : retourner vers ION
Quand vous lisez un fichier avec textview:
- [flèches] : faire défiler le texte sur l'écran
- [DEL] : aller en haut de la page
- [STAT] : aller en bas de la page
- [2nd] + [flèche "gauche"] : aller à gauche de la page
- [2nd] + [flèche "droite"] : aller à droite de la page
- [TRACE] : retour au début du texte
- [GRAPH] : aller à la fin du texte
- [MODE] : retour à la ligne automatique
- [X,T,0] : afficher le texte en plus petit
- [Y=] : inverser les couleurs de l'écran
- [CLEAR] : retour vers le menu principal de Textview
IMPORTANT: ne pressez jamais [2nd], [ON] pour éteindre votre calculatrice alors que vous êtes encore sous txtview, sans quoi votre calculatrice "plantera" et toutes les données enregistrées en mémoire seront perdues !

TTT, Text To Ti, est un programme réalisé par guillaume renard (france83.com) adapté du logiciel calctext de kouri (encore merci kouri!). Tous droits réservés à leurs auteurs. Les images et les textes du site sont protégés par copyright. © Guillaume Renard - 2002. Ti82, Ti83, Ti83+ sont des marques déposées par le groupe Texas Instrument. France83.com, le logiciel TTT, Text To Ti, et son auteur ne sont, en aucun cas, affiliés ou partenaires avec le groupe Texas Instrument.