#deklaracja zmiennych
raster A, B, C;
numeric a, lin, col, komp, sizeA, sizeB;
string rastertype$;
clear();
# otwarcie oryginalnego rastrra
GetInputRaster(A);
#odczytanie wymiarów i typu  rastra A w celu stworzenia tymczasowego rastra C
lin = NumLins(A); col = NumCols(A); rastertype$=RastType(A);
#otwarcie rastra skompresowanego
GetInputRaster(B);
#Stworzenie rastra tymczasowego C w pamięci RAM
CreateTempRaster(C, lin, col, rastertype$);
#obliczenie wartości bezwlędnej z dwóch rastrów
C = abs(A-B);
#obliczenie sumy różnic bezwględnych jasności
a=GlobalSum(C);
#odczyt wielkościi obiektów rastrowych w bajtach
sizeA = GetObjectSize(A); sizeB = GetObjectSize(B);
#obliczenie stopnia kompresji danych rastrowych
komp = sizeB/sizeA;
#wykruk wartości różnic bezwglęnych na konsoli
print(rastertype$);
print('Suma = ', a);
print('stopień kompresji -',komp);
#END