Quelle  2.1.5   Sprache: unbekannt

file:=HapFile("image2.1.1.eps");
x:=ReadImageAsWeightFunction(file,3);;
M:=x[1];;
w:=x[2];;
Print(EulerIntegral(M,w),"\n");

[ Dauer der Verarbeitung: 0.24 Sekunden  (vorverarbeitet)  ]