#!/bin/sh cat < # http://perso.wanadoo.fr/jean-paul.davalan/jeux/nim/fibonacci/ # EOF # nécessite gawk (ou awk, dans ce cas modifier ci-dessous) AWK=gawk # gnuplot # pstoimg (fichier perl de la distribution de latex2html) # Nombre maximum de pions (ou d'allumettes) du tas au moment de jouer N=100 echo ""| $AWK -v N=$N ' function Grundy(a, b, u,i,m,k) { if(a==0) { t[a, b]=0 return 0; } if(t[a, b] != "") return t[a, b]; u=b; if(u>a) u=a; for(i=1;i<=u;i++) { k = Grundy(a-i, 2*i); m[k] = 1; } k=0; while(m[k]==1) k++; t[a, b] = k; delete m; return k; } function p2c( k,r,g) { # mise en forme for(k=N;k>=1;k--) { for(r=1;2*r " k # on arrive en k en venant de k+r tk[ k+r, k] = 1; } } } for(k=1;k<=N;k++) { s=""; for(r=1;r\n\n" > fic print "

Valeurs de la fonction de Grundy

" > fic print "\n" > fic for(i=1;i<=N;i++) printf("",i) > fic print "" > fic for(i=N;i>=0;i--) { if(i%2==0)bg="#55ff88" else bg="#b5ffd3" printf("",bg,i) > fic for(j=1;j<=N;j++) { if(j<=i) printf("",Grundy(i,j)) > fic else printf("") > fic } print "" > fic } print "
n\\p%2s
%d%d 
" > fic } END { if(N=="") N=100 # htmltable("tableGrundy.html") p2c() } ' > "pts100.g"; echo 'set terminal postscript eps color "TimesNewRoman" 12;set output "fig100.eps"; set nokey;set grid;plot "pts100.g" with points,x with lines'|gnuplot pstoimg -antialias -aaliastext -scale 1.3 -type png -o fig100.png fig100.eps