function y=derword(w,v)

A0=[1 2/9 2/9 ; 0 2/9 -1/9; 0 -1/9 2/9];
A1=[2/9 0 -1/9; 2/9 1 2/9; -1/9 0 2/9];
A2=[2/9 -1/9 0 ; -1/9 2/9 0; 2/9 2/9 1];
A=[A0 A1 A2];

m=[1 0 0 ; 0 1 0 ; 0 0 1];
for n=1:1:max(size(w))
    m=A(:,3*w(n)+1:3*w(n)+3)*m;
end
y=(3/5)^(max(size(w)))*m*v';