Pensez à lire la Charte avant de poster !

$\newcommand{\K}{\mathbf K}$


Les-Mathematiques.net - Cours de mathématiques supérieures
 Les-Mathematiques.net - Cours de mathématiques universitaires - Forum - Cours à télécharger

A lire
Deug/Prépa
Licence
Agrégation
A télécharger
Télécharger
166 personne(s) sur le site en ce moment
E. Cartan
A lire
Articles
Math/Infos
Récréation
A télécharger
Télécharger
Théorème de Cantor-Bernstein
Théo. Sylow
Théo. Ascoli
Théo. Baire
Loi forte grd nbre
Nains magiques
 
 
 
 
 

Machines de Turing

Envoyé par christophe c 
Machines de Turing
il y a onze années
Voilà un petit cadeau:

Depuis que les ordinateurs sont puissants, les OS controlent entierement les cartes graphiques, donc je ne peux pas vous proposer de version "modernes" du spectacle suivant!

Les ordinateurs actuels exécutent des milliards d'opérations par seconde. Un ordinateur n'est rien d'autre qu'une machine de Turing

But du jeu: "voir la bande" (où la petite tête de la machine se promène et change les cases. 1 million de petites cases changées par seconde, c'est tentant de la voir en live...

Le petit programme suivant, qui s'exécute automatiquement sous dos en pplein écran (vous n'avez rien à faire) met provisoirement votre PC en mode 320×200 et 256 couleurs (juste ce qu'il faut pour q'un segment ancienne version tienne sur l'écran (64000 cases).

Le premier nombre à entrer est le nb d'opération: si vous voulez voir quelque chose entrez un nombre entre 10000000 et 100000000.

Le deuxième est le nombre d'état de la machine: entrez pas plus que 7 (vous pouvez aller jusqu'à 19 sans bug, mais elles deviennent trop subtiles). Le troisième est l'"alphabet": (nombre de couleurs). Essayez 5 (jusqu'à 255 possible).

Vous verrez alors une machine de Turing s'exécuter en live à environ 1000000 cases changées par seconde. Le programme les choisit au hasard et les change toutes les 300000 opérations: sinon bcp d'entre elles font rien (ou efface la bande)...




[www.logique.jussieu.fr]



Edité 1 fois. La dernière correction date de il y a onze années et a été effectuée par christophe chalons.
Re: Machines de Turing
il y a onze années
avatar
Pensez à mettre le programme à un endroit où le chemin ne comporte aucune espace...
Re: Machines de Turing
il y a onze années
Désolé, je voulais le faire avant, mais... grosses occupations.

Voilà le programme (en pascal pour DOS, version 7)
Il se télécharge facilement sur le net (le TPascal 7, je veux dire)
**************
program essaitur;
uses dos, crt;

type reac=record
change:byte;
mouv:byte;
eta:byte;
end;

var i:longint;
var t:array[0..64000] of byte absolute $A000:0000;
var cur:longint;
var etat:byte;

mem:array[0..20,0..255] of reac;

procedure initializgraph;
begin
asm
mov ah,0
mov al,$13
int $10
end ;
end;

procedure turing(n,m:byte);
var i,j:byte;
begin
for i:=0 to 20 do
begin
for j:=0 to 255 do
begin
mem[i,j].change:=random(m);
mem[i,j].mouv:=random(3);
mem[i,j].eta:=random(n);
end;
end;
end;

procedure deplace(c:byte);
begin
if c=0 then if cur>0 then dec(cur) else cur:=64000
else if c=2 then if cur<64000 then inc(cur) else cur:=0;
end;

procedure pas;
var a,c:byte;
begin
a:=t[cur];
t[cur]:=mem[etat,a].change;
c:=mem[etat,a].mouv;
etat:=mem[etat,a].eta;
deplace(c);
end;

var max,j:longint;n,m:byte;
begin
randomize;
cur:=32000;

etat:=0;
writeln('nombre operations a raison d1 million/s');

readln(max);
writeln('nombre etats de la turing machine');
readln(n);
writeln('nombre de couleurs reconnues');
read(m);
turing(n,m);
initializgraph;
for j:=0 to 64000 do t[j]:=j mod 256;
for j:=1 to max do
begin
pas;
if j mod 300000=0 then turing(n,m);
end;
readln;
end.

[La fonte italique est-elle indispensable pour le code ? AD]



Edité 2 fois. La derni&egrave;re correction date de il y a onze ann&eacute;es et a &eacute;t&eacute; effectu&eacute;e par AD.
Re: Machines de Turing
il y a onze années
Je fais remonter le fil.

Réponse à AD: non, j'avoue, je sais pas pourquoi j'ai mis le code en italique, peut-être pour l'isoler du reste, mais bon, il n'y avait pas de risque de confusion

Je fais remonter le fil, je me lasse pas d'admirer le spectacle...

Un conseil: si vos PC sont modernes et rapides, essayez 300000000 d'opérations, 3 états et 11 couleurs.
Et entrez dans la matrice...

vous pouvez cliquer sur "executer" directement, pas vraiment besoin de l'enregistrer, de toute façon, je le laisserai éternellement sur mon site à ce lien

[www.logique.jussieu.fr]
Désolé, vous n'avez pas la permission d'envoyer ou de répondre dans ce forum.
Liste des forums - Statistiques du forum

Total
Discussions: 136 301, Messages: 1 317 549, Utilisateurs: 24 003.
Notre dernier utilisateur inscrit Sil.


Ce forum
Discussions: 37 176, Messages: 277 915.

 

 
©Emmanuel Vieillard Baron 01-01-2001
Adresse Mail:

Inscription
Désinscription

Actuellement 16057 abonnés
Qu'est-ce que c'est ?
Taper le mot à rechercher

Mode d'emploi
En vrac

Faites connaître Les-Mathematiques.net à un ami
Curiosités
Participer
Latex et autres....
Collaborateurs
Forum

Nous contacter

Le vote Linux

WWW IMS
Cut the knot
Mac Tutor History...
Number, constant,...
Plouffe's inverter
The Prime page