% Koordinaten des Verlaufs

% unterer verlauf
x = [sind(0:359),1.1*sind(-1:358),1.2*sind(-2:357)]; % X
y = [cosd(0:359),1.1*cosd(-1:358),1.2*cosd(-2:357)]; % Y
z = zeros(1,1080); % Z
l = 2*ones(1080,1); % Lagennummer = 2

% oberer verlauf
x2 = [1.2*sind(357:-1:-2),1.1*sind(358:-1:-1),sind(359:-1:0)]; % X
y2 = [1.2*cosd(357:-1:-2),1.1*cosd(358:-1:-1),cosd(359:-1:0)]; % Y
z2 = .5*ones(1,1080); % Z
l2 = ones(1080,1); % Lagennummer = 1

% Koordinatenmatrix beider Verläufe, weil der Strom durch beide Verläufe
% fließt
punkte = [x' ,y' , z', l;x2', y2', z2', l2;   0 .5 .5 1;-.5 .5 .5 1; -.5 .5 0 2;-0.5 -.5 0 2; -.5 -.5 .5 1; .5 -.5 .5 1];

clear x y z l x2 y2 z2 l2
% Segmentmatrix beschreibt, welche Koordinate mit welcher verbunden werden
% soll
% Die ersten beiden Spalten sagen, dass zwischen z.B. Punkt 1 und Punkt 2
% eine Verbindung besteht, Spalte 3 sagt diese Verbindung ist auf der
% entsprechenden Lagennummer, es treten in der dritten Spalte ein paar
% Nullen auf, die Kennzeichnen, das das jeweilige Segment von eine Lage in
% in die andere Lage wechselt
segment = [[1:2165]',[2:2166]',[2*ones(1079,1);0;ones(1079,1);1;1;0;2 ;0;1;]];

% Vorschau
plot3(punkte(:,1),punkte(:,2),punkte(:,3))

% Nun will ich aber sagen, dass alle Segmente, die sich auf Lage 2 befinden
% dicker dargestellt werden sollen, der rest bleibt normal


% Definierte lagennummer
Lg = 1;


figure
hold on
tic
for seg=1:length(segment)
    if segment(seg,3) == Lg % Wenn die definierte lagennummer übereinstimmt
        plot3(punkte(segment(seg,1):segment(seg,2),1),... Segment zwischen Punkt und dem nächsten Punkt
            punkte(segment(seg,1):segment(seg,2),2),...
            punkte(segment(seg,1):segment(seg,2),3),...
            'LineWidth',2,'Color','r') % Eigenschaft dieses Segments
    else % Restnormal plotten
        plot3(punkte(segment(seg,1):segment(seg,2),1),...
            punkte(segment(seg,1):segment(seg,2),2),...
            punkte(segment(seg,1):segment(seg,2),3),...
            'LineWidth',1)
    end
end
view(3)
toc
hold off