Pemodelan menggunakan vektor dan matrix, yang harus diperhatikan adalah pendeklarasian type vektor dan matrik seperti berikut :
type TVektor=array[0..2] of real; Tmatriks=array[0..2,0..2] of real;
Fungsi-fungsi yang dibutuhkan adalah perkalian matrix terhadap vektor, tentunya harus menggunakan ordo yang sama.
function perkalianmatriksvektor(matriks:TMatriks;vektor:TVektor):tvektor; var i,j:integer; begin for i:=0 to high(matriks) do begin result[i]:=0; for j:=0 to high(vektor) do result[i]:=result[i]+matriks[i,j]*vektor[j]; end; end;