Sp = 1.5;
hold on
x = -Sp + (-2*pi/5: 0.01: 2*pi/5);
h= plot(x, tan(x+Sp), 'k');
set(h,'linewidth',1.1); % <- Set linewidth here
x1 = -Sp + (-pi/4:0.01:pi/4);
h = plot(x1, x1+Sp);
set(h,'linewidth',1.1); % <- Set linewidth here
x = Sp + (-2*pi/5: 0.01: 2*pi/5);
h = plot(x, -tan(x-Sp), 'k');
set(h,'linewidth',1.1); % <- Set linewidth here
x1 = Sp + (-pi/4:0.01:pi/4);
h = plot(x1, -x1+Sp);
set(h,'linewidth',1.1); % <- Set linewidth here
C1 = 6;
x = C1 + (-1.5:0.01:1.5);
h = plot(x, (x-C1).^3, 'k');
set(h,'linewidth',1.1); % <- Set linewidth here
h = line([C1-1, C1+1], [0, 0] );
set(h,'linewidth',1.1); % <- Set linewidth here
C1 = 9.5;
x = C1 + (-1.5:0.01:1.5);
h = plot(x, -(x-C1).^3, 'k');
set(h,'linewidth',1.1); % <- Set linewidth here
h = line([C1-1, C1+1], [0, 0] );
set(h,'linewidth',1.1); % <- Set linewidth here
C1 = 14;
x = C1 + (-1.5:0.01:1.5);
h= plot(x, 2*sign(x-C1).*sqrt(abs(x-C1)), 'k');
set(h,'linewidth',1.1); % <- Set linewidth here
h = line([C1, C1], [-1, 1] );
set(h,'linewidth',1.1); % <- Set linewidth here
C1 = 17.5;
x = C1 + (-1.5:0.01:1.5);
h = plot(x, -2*sign(x-C1).*sqrt(abs(x-C1)), 'k');
set(h,'linewidth',1.1); % <- Set linewidth here
h = line([C1, C1], [-1, 1] );
set(h,'linewidth',1.1); % <- Set linewidth here
axis equal
axis off
plot2svg