function s = logper
%

d = 0.003;
x = [-9.667 -11.107 -12.768 -14.675 -16.865 -19.383 -22.277 -25.603 -29.425];
y = [ 2.142   2.463   2.832   3.255   3.741   4.299   4.944   5.682   6.531];
m = [7 7 7 9 9 9 11 11 11];
n = length(x);
w = wires([x' -y' zeros(n,1)],[x' +y' zeros(n,1)],d,m);
for k=1:n-1  
   t{k} = transmission([x(k) 0 0],[x(k+1) 0 0], abs(x(k+1)-x(k)), -1000, 0, 0);
end
e = excitation([x(1) 0 0],1);
s = comment(construct(w,t{:},e),'LogPer');