bsp03

function [p,e,segnr1,segnr2] = bsp03
% Eckart Gekeler, Universitaet Stuttgart, Release 8.4.05
% L-Form mit Loch
% p sind die geordneten Knoten von Rand 1
% bzw. von Rand 1 und Rand 2

N = 16; %Winkelunterteilung
M = N/4;
J = 2:M;
U = [8 + 2*cos((3*pi/2) - 2*pi*(J-1)/N)]';
V = [8 + 2*sin((3*pi/2) - 2*pi*(J-1)/N)]';
p1 = [...
0  0  ;1  0  ;2  0  ;3  0  ;4  0  ;5  0  ;6  0  ;
7  0  ;8  0  ;8  1  ;8  2  ;8  3  ;8  4  ;8  5  ;
8  6  ;U  V  ;6  8  ;5  8  ;4  8  ;3  8  ;
2  8  ;1  8  ;0  8  ;0  7  ;0  6  ;0  5  ;0  4  ;
0  3  ;0  2  ;0  1  ];
p1 = p1';
%

J = N:-1:1;
X = [3 + 2*cos(2*pi*(J-1)/N)];
Y = [3 + 2*sin(2*pi*(J-1)/N)];
p2 = [X;Y];
p = [p1,p2];
M = size(p1,2);
e1 = [[1:M-1];[2:M]]; e1 = [e1,[M;1]];
e1 = [e1;zeros(2,M);ones(1,M)];
e2 = [[1:N-1],N;[2:N],1]; e2 = e2 + M;
e2 = [e2;zeros(2,N);2*ones(1,N)];
e  = [e1, e2];
segnr1 = 1; segnr2 = 2;