PicKit2...

Quelques expériences sous Linux (Ubuntu - 9.10 - Karmic Koala) avec le PICkit 2 Debug Express de Microchip. L'ensemble qui coûte moins de 50.00 € se compose du PICkit 2 avec son interface USB qui permet de programmer la carte d'expérimentation avec un PIC16F887, huit LEDs, un bouton poussoir, un potentiomètre,... Côté logiciel, j'utiliserai uniquement des logiciels libres : pk2cmd, sdcc et gputils.


En chantier. (c'est rien de le dire...)

Premiers tests. (voir aussi)

sudo ./pk2cmd -PPIC16F887 -R -T  # start the pre-installed program
# program the device
sudo ./pk2cmd -PPIC16F887 -M -F/media/cdrom0/Install/Lessons/44-Pin\ Demo\ Board/02\ Blink/Blink.HEX
# 
sudo ./pk2cmd -PPIC16F887 -M -F../PicKit/Install/Lessons/44-Pin\ Demo\ Board/02\ Blink/Blink.HEX
sudo ./pk2cmd -PPIC16F887 -R -T 

---

Curieusement, le lendemain la LED 'busy' clignote lentement (slow busy blink) et le PicKit2 ne semble plus rien vouloir entendre... Le firmware semble être corrompu, la version n'est plus bonne... Heureusement, il suffit de le recharger (le fichier 'PK2V023200.hex' vient avec pk2cmd).

# ./pk2cmd -?V
Executable Version:    1.20.00
Device File Version:   1.55.00
OS Firmware Version:   118.90.90


Operation Succeeded
# ./pk2cmd /DPK2V023200.hex
Downloading OS...
Verifying new OS...
Resetting PICkit 2...
OS Update Successful.

Operation Succeeded
# ./pk2cmd -?V

Executable Version:    1.20.00
Device File Version:   1.55.00
OS Firmware Version:   2.32.00


Operation Succeeded
# ./pk2cmd -R -T -PPIC16F887

Operation Succeeded

---

En m'inspirant de ce blog, un petit programme...

#include <pic16f887.h>

/* inspired by http://jsmerritt.blogspot.com/2009/06/getting-started-with-pic.html */
/* ------------------ */
/* Configuration bits */
typedef unsigned int word;
word at _CONFIG1 CONFIG1 = _LVP_OFF & _FCMEN_OFF & _IESO_OFF &
                           _BOR_OFF & _CPD_OFF & _CP_OFF & _MCLRE_OFF &
                           _PWRTE_ON & _WDT_OFF & _INTRC_OSC_NOCLKOUT;
word at _CONFIG2 CONFIG2 = _WRT_OFF & _BOR21V;

void isr() interrupt 0
        {
        /* interrupt service routine */
        }

void foo()
        {
        int     i;

        for (i = 0; i < 40; i++)
                ;
        }
void main()
        {
        long i;
        unsigned char state;

        RP0 = 1;
        TRISD = 0;      // set PORTD as all outputs
        RP0 = 0;

        // counter leds
        state = 1;
        while (1)
                {
                for (i = 0; i < 2000; ++i)
                        foo();
                state += 1;
                PORTD = state;
                }
        }

Il n'y a plus qu'à...

$ sdcc -mpic14 -p16f887 count.c
$ sudo pk2cmd -PPIC16F887 -M -F count.hex
$ sudo pk2cmd -PPIC16F887 -R -T

---

Pour programmer la PIC18F4550 USB Development Board de Futurlec, il faut un adaptateur RJ12 (RJ11 à 6 fils) - ICSP (pdf). Il existe un kit à ~7.00 euros chez Microchip, mais si on ajoute les frais (port et taxes), cela devient hors de prix... Fabriquer l'adaptateur est facile ...si on a le matériel (notamment la pince à servir, le bout de câble et un connecteur (type 'header' en ligne pour jumpers).



On remarquera l'inversion 1<->6 (le câble est 'twisté').

Loi de Zipf sous Linux

Vers 1935, George Kingsley Zipf entreprit d'analyser la fréquence des mots dans Ulysses de James Joyce...

Après avoir classé les mots par leur fréquence d'apparition, il se serait aperçu que si le mot le plus fréquent apparaissait N fois, le dixième mot le plus fréquent apparaissait N/λ, le centième mot, N/λ², etc...

Il est aujourd'hui facile de vérifier ses travaux.

D'abord, il faut aller chercher Ulysses sur le Projet Gutenberg et en traitant le texte avec des outils standards Unix/Linux, on obtient assez facilement le résultat attendu.

Il suffit, en effet, d'envoyer le texte dans une série de filtres :

cat 4300-8.txt |

La première chose à faire est de transformer toutes les majuscules en minuscules pour que 'The' soit équivalent à 'the' :

|tr [A-Z] [a-z]

Ensuite, on sépare tous les mots pour en mettre un sur chaque ligne. Le plus simple est de substituer tous les caractères non alphabétiques par un retour à la ligne :

|sed 's/[^a-z]/\n/g'

Tant qu'à faire, supprimons toutes les lignes vides créées :

|awk '/[a-z]/{print $1;}'

Nous avons maintenant une liste de mots qu'il convient de trier :

|sort

Et compter chaque mot :

|uniq -c

Nous ne nous intéressons pas aux mots en eux-mêmes, mais au nombre de fois qu'ils apparaissent :

|awk '{print $1;}'

On va trier cette liste de fréquences par ordre descendant pour avoir la plus haute fréquence au premier rang (première ligne) :

|sort -rn

Et numéroter les lignes pour obtenir deux colonnes : le rang et la fréquence :

|pr -n -t

En résumé :

time cat 4300-8.txt|tr [A-Z] [a-z]|sed 's/[^a-z]/\n/g'|awk '/[a-z]/{print $1;}'|sort|uniq -c|awk '{print $1;}'|sort -rn|pr -n -t > zipf.data

Cela a pris, en gros, 9 secondes, bien moins que ce que le pauvre monsieur Zipf a dû y consacrer.

Si on trace le graphe log/log résultant avec Gnuplot

set logscale
set xlabel 'rang'
set ylabel 'frequence'
set title 'Loi de Zipf (Ulysses)'
set term png
set output 'UlyssesZipf.png'
plot 'zipf.data'

On obtient :

---

Un autre truc amusant (qui n'a probablement rien à voir avec Zipf) est la génération d'un graphique log/log qui montre 'le nombre 'y' de mots présents 'x' fois'.

À partir de la liste des fréquences, je compte combien de mots apparaissent un fois, deux fois,...

|sort -n|uniq -c

Et, comme on veut obtenir un graphique : nombre 'y de fois' qu'un mot apparaît 'x fois', il faut inverser les colonnes avant de l'injecter dans Gnuplot :

|awk '{print $2" "$1}'

En résumé :

time cat 4300-8.txt|tr [A-Z] [a-z]|sed 's/[^a-z]/\n/g'|awk '/[a-z]/{print $1;}'|sort|uniq -c|awk '{print $1;}'|sort -n|uniq -c|awk '{print $2" "$1;}' > data

Il ne reste plus qu'à 'gnuploter' tout ça :

set logscale
set term png
set output 'UlyssesZipf.png'
plot 'data'

Et voilà!

On 'voit bien' que sur un graphique log/log,

le nombre 'y' de fois qu'un mot apparaît 'x' fois

suit une loi de puissance.

Boule

Pour faire une boule, il suffit de frotter deux corps en rotation. (?)

Catadioptre

Une pile de cubes chromés formant un 'catadioptre'...

Coin de cube avec POV-Ray

La boule rouge est placée derrière la caméra, le ciel est bleu, le sol est sable; on tourne autour d'un cube chromé dont on a retiré un 'coin de cube'... On remarquera que la boule (caméra) restent bien au centre quand elle se trouve dans le coin de cube.

#include "textures.inc"
#include "colors.inc"

global_settings {
   assumed_gamma 1.5
   noise_generator 2
}

light_source {
   <-10, 100, -10>, rgb <1, 1, 1>
}
light_source {
   <30, 20, -80>, rgb <1, 1, 1>
}
background { color rgb <0.4, 0.4, 0.6> }

camera {
 location <8, 4, -4>
 look_at <0, 0, 0>
 rotate <0, 0, 15>
 rotate <0, -15+clock*90, 0>
 }
sphere {
 <32, 16, -16>, 1
 pigment { color Red}
 rotate <0, 0, 15>
 rotate <0, -15+clock*90, 0>
 }
#declare D = 0.00001; // just a little bit !
difference {
 box {
  // big cube
  <0, 0, 0>, <3, 3, -3>
  texture{Polished_Chrome
   finish {reflection 0.9}}
  }
 box {
  // creux
  <2, 2, -2>, <3+D, 3+D, -3-D>
  texture{Polished_Chrome
   finish {reflection 0.9}}
  }
 }
plane{ <0,1,0>, 0
       texture{
          pigment {color rgb <0.85,0.6,0.4>}
              } // end of texture
 translate <0, -2, 0>
     } // end of plane

----

; Persistence Of Vision raytracer version 3.5 CubeCorner.ini file.

Antialias=On
Antialias_Threshold=0.3
Antialias_Depth=3

Input_File_Name=CubeCorner.pov

Initial_Frame=1
Final_Frame=30
Initial_Clock=0
Final_Clock=1

Cyclic_Animation=on
Pause_when_Done=off

----

povray -H200 -W200 CubeCorner.ini
convert -delay 50 -loop 0 -dispose Previous CubeCorner*.png CubeCornerMirror.gif

Faire un baudrier avec une sangle (et un peu de ferraille)

Il faut environ 2.50 mètres de sangle plate de 45 mm (noire sur le dessin), deux 'boucles' triangulaires (rouge) et deux 'boucles' carrées avec deux trous (bleu). Il est/était connu, à Bruxelles, sous le nom 'baudrier Lecomte' (du nom d'une famille de vendeurs de matériel d'escalade/spéléo/...). Lorsque la sangle est usée, il est facile et économique de la remplacer. Le confort n'est pas exceptionnel, mais il est simple, solide et efficace. Le schéma ci-dessus donne le parcours de la sangle dans les boucles. Le bas de la sangle passe derrière le dos; on passe les jambes dans les deux grandes boucles (reliée par une ficelle (verte)). Les 'triangles rouges' sont maintenus contre les plaquettes bleue par la sangle (la boucle est la plus courte possible); les 'jambières' passent en dessous. Le 'delta' (mousqueton en acier, triangulaire, à vis (non représenté)) ferme les deux 'triangles rouges'.

Mal lunée...

Il arrive que la Lune soit mal représentée. Par exemple, on ne peut pas avoir de derniers croissants le soir, c'est une Lune du matin... Ce type d'erreur est fréquente dans les épisodes des Simpsons. Par exemple, dans l'épisode GABF05, où l'on voit Homer dire bonsoir à Bart au fond du jardin parce qu'il est l'objet d'une mesure d'éloignement de sa soeur Lisa.
(aussi dans GABF12, GABF20, CABF20, DABF01, DABF02, DABF8, DABF11, DABF16, DABF18, DABF21... dans le film la Lune change de phase d'un moment à l'autre lors du voyage de retour d'Alaska; dans l'épisode 'Qui veut tuer Homer?' (EABF01), on a un dernier croissant quand Tahïti Bob sonne à la porte des Simpson et une pleine Lune lorsqu'il se retrouve dans la chambre de Bart). De même dans HABF02 :



Mais, cela arrive aussi sur les boîtes aux lettres de la poste belge :



Ou, sur une affiche des Grignoux :

où la photo est prise en direction de l'ouest...

Sur la météo de la télévision locale rtc...