Divisão de Observação da Terra e Geoinformática

A partir da média e da variância de duas imagens, a de referência R e a de ajuste A, o seguinte programa cria a imagem ajustada S de A, na qual a média e a variância é igual ao da imagem R.

{
Image imaref, imaju, imaout ("CAT_IMAGE");

//imaref = Retrieve (Name = "IMA_REF");
imaju  = Retrieve (Name = "IMA_AJU");

Vaju = 2909.46; // Use adjust variance
Vref = 2631.42; // Use reference variance

Maju = 86.79;  // Use adjust mean
Mref = 83.09; // Use reference mean

ganho = sqrt (Vaju/Vref);
offset = Maju - ganho * Mref;

imaout = New (Name = "IMA_OUT", ResX = 1, ResY = 1); //Use res X and Y
imaout = ganho * imaju + offset;
}