% Schematic29.m %
clear; clc; clf;
a = 0.25; a0 = 1.75;
kk = 1.0; n = 100;
the = linspace(0,2*pi,n);
yy = a0 + a*cos(kk*the);
plot(the,yy,'k-','linewidth',2.5)
b = 0.95;
values=[0, the, the(n); 0, yy, 0];
patch(values(1,:), values(2,:), [b b b])
b = 0.7;
values=[0, the, the(n); 0, 0*yy+0.7, 0];
patch(values(1,:), values(2,:), [b b b])
hold on
line([0.0 2*pi],[ a0 a0 ],'color','k','LineStyle','--','linewidth',1);
line([0.0 2*pi],[ a0 a0 ]+1,'color','k','LineStyle','-','linewidth',1);
line([0 0],[0 a0+1],'color','k','LineStyle','-','linewidth',1);
line([2*pi 2*pi],[0 a0+1],'color','k','LineStyle','-','linewidth',1);
text('Interpreter','latex', 'String','Fluid 2,~$\rho_{o},~\eta_{o}$','position',[3.25 2.3],'FontSize',18)
text('Interpreter','latex', 'String','Fluid 1,~$\rho_{i},~\eta_{i}$','position',[1.7 1.1],'FontSize',18)
text('Interpreter','latex', 'String','Solid fibre','position',[2.5 0.34],'FontSize',18)
tt = 7;
line([the(tt), the(tt) ],[1.3, yy(tt) ],'color','k','linewidth',1);
plot([the(tt)], [yy(tt)-0.06],'k^','linewidth',1,'MarkerEdgeColor','k','MarkerFaceColor','k')
line([the(tt), the(tt) ],[0.9, 0 ],'color','k','linewidth',1);
plot([the(tt)], [0+0.06],'kv','linewidth',1,'MarkerEdgeColor','k','MarkerFaceColor','k')
text('Interpreter','latex', 'String','$R$','position',[the(tt)-0.07 1.1],'FontSize',18)
tt = 13;
line([the(tt), the(tt) ],[1.3, 1.75 ],'color','k','linewidth',1);
plot([the(tt)], [1.75-0.06],'k^','linewidth',1,'MarkerEdgeColor','k','MarkerFaceColor','k')
line([the(tt), the(tt) ],[0.9, 0 ],'color','k','linewidth',1);
plot([the(tt)], [0+0.06],'kv','linewidth',1,'MarkerEdgeColor','k','MarkerFaceColor','k')
text('Interpreter','latex', 'String','$R_0$','position',[the(tt)-0.07 1.1],'FontSize',18)
tt = 85;
line([the(tt), the(tt)],[0.48, 0.7],'color','k','linewidth',1);
plot([the(tt)], [0.7-0.06],'k^','linewidth',1,'MarkerEdgeColor','k','MarkerFaceColor','k')
line([the(tt), the(tt) ],[0.2, 0 ],'color','k','linewidth',1);
plot([the(tt)], [0+0.06],'kv','linewidth',1,'MarkerEdgeColor','k','MarkerFaceColor','k')
text('Interpreter','latex', 'String','$R_1$','position',[the(tt)-0.1 0.32],'FontSize',18)
tt = 50;
line([the(tt), the(tt) ],[yy(tt), 1.75 ],'color','k','linewidth',1);
plot([the(tt)], [1.75-0.06],'k^','linewidth',0.01,'MarkerEdgeColor','k','MarkerFaceColor','k')
plot([the(tt)], [yy(tt)+0.06],'kv','linewidth',0.01,'MarkerEdgeColor','k','MarkerFaceColor','k')
text('Interpreter','latex', 'String','$\alpha_{0}$','position',[the(tt)+0.1 1.62],'FontSize',18)
text('Interpreter','latex', 'String','$z$','position',[6.0 -0.2],'FontSize',22)
text('Interpreter','latex', 'String','$r$','position',[-0.3 2.5],'FontSize',22)
set(gca, 'FontSize',14)
axis image
axis off
set(gcf,'PaperPositionMode','auto')
