function [T]=tglgstn(x)
% USC Spring
% this ia an nd-map generalization of the 2d-logistic map . . .
d=2.01;r=1.8;
n=length(x);
y=(1-2*x)';
%y=[(1-2*x(1)) (1-2*x(2)) (1-2*x(3))...
% (1-2*x(4)) (1-2*x(5)) (1-2*x(6))...
% (1-2*x(7)) (1-2*x(8)) (1-2*x(9))...
% (1-2*x(10))];
A=d*r*diag(ones(n,1))+(-1+d/2)*r*diag(ones(n-1,1),1)+...
(-1+d/2)*r*diag(ones(n-1,1),-1);
for i=1:n
B(i,:)=A(i,:).*y;
end;
T=B;