Lecture des donnees de calibration

readData[nom_] := Partition[ReadList[nom, Number], 4];

fichiers = 
      Table["data/calibdata" <> ToString[i], {i, 0, 6}]

Chaque element de data contient une liste de paires de points {px,py,qx,qy} ou {px,py} est un point de l'image, et {qx,qy} est un point du monde (on suppose qz=0)

data = readData  /@  fichiers;
MatrixForm  /@  data