Discussion :

[nomdutilisateur]

Bonjour,

Me revoilou avec mes questions bizares

En C, on utilise MAP pour calibrer une valeur :

Code C :

Sélectionner tout - Visualiser dans une fenêtre à part

int axeay = map(ay, -17000, 17000, 0, 180);

Mais...en Pascal ? Une équivalence ?

Merci de m'avoir lu.
J'oubliais, c'est pour convertir en degrés des valeurs de capteur d'angle.

[JP CASSOU]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
function map(const X: double; const fromLow, fromHigh, toLow, toHigh: double): double;
var 
  a,b: double;
begin
  a := (toHigh - toLow) /  (fromHigh - fromLow) ;
  b := -fromLow * a;
  Result := a * x + b;
end;

[anapurna]

Salut

Code c :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
long map(long x, long in_min, long in_max, long out_min, long out_max) {
      return (x - in_min) * (out_max - out_min) / (in_max - in_min) + out_min;
    }

ce qui donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Function map(x,in_min,in_max,out_min,out_max : Longint) : Longint;
Begin 
    Result :=  (x - in_min) * (out_max - out_min) div (in_max - in_min) + out_min;
End;

[nomdutilisateur]

Merci beaucoup à tous les deux, je regarde ça lundi

[Guesset]

Bonjour,

Pour donner un peu plus de sécurité, j'ajouterais deux tests :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
function map(x, xmin, xmax, ymin, ymax : Longint) : Longint;
begin 
   if x <= xmin then exit(ymin);
   if x >= xmax then exit(ymax);
   Result :=  ((x - xmin) * (ymax - ymin) + (xmax - xmin) div 2) div (xmax - xmin) + ymin;
end;

D'une part, si xmin = xmax, on sort avant la division fatale par 0 avec une valeur relativement pertinente et, d'autre part, la sortie reste strictement dans [ymin..ymax] même si l'entrée x est hors jeu.

J'ai ajouté un arrondi pour faire joli : (xmax - xmin) div 2.

Salutations