0001
0002 function drowVi(x,y)
0003
0004
0005 a = 20;
0006 b = 12;
0007 c = 12;
0008 r = 3;
0009
0010 plot(x-3,(y-(b/2)-2),'*','LineWidth',2,...
0011 'MarkerEdgeColor',[0.6, 0.2 , 1],...
0012 'MarkerFaceColor',[0.6, 0.2 , 1],...
0013 'MarkerSize',5), hold on
0014 plot(x,(y-(b/2)-2),'*','LineWidth',2,...
0015 'MarkerEdgeColor',[0.6, 0.2 , 1],...
0016 'MarkerFaceColor',[0.6, 0.2 , 1],...
0017 'MarkerSize',5), hold on
0018 plot(x+3,(y-(b/2)-2),'*','LineWidth',2,...
0019 'MarkerEdgeColor',[0.6, 0.2 , 1],...
0020 'MarkerFaceColor',[0.6, 0.2 , 1],...
0021 'MarkerSize',5), hold on
0022
0023 X1 = [x-a/2; x+a/2];
0024 Y1 = [y+b/2; y+b/2];
0025 plot(X1,Y1, 'Color', [0.6, 0.2 , 1], 'LineWidth',2,...
0026 'MarkerEdgeColor',[0.6, 0.2 , 1],...
0027 'MarkerFaceColor',[0.6, 0.2 , 1],...
0028 'MarkerSize',5)
0029
0030 X2 = [x+a/2; x+a/2];
0031 Y2 = [y-b/2; y+b/2];
0032 plot(X2,Y2, 'Color',[0.6, 0.2 , 1],'LineWidth',2,...
0033 'MarkerEdgeColor',[0.6, 0.2 , 1],...
0034 'MarkerFaceColor',[0.6, 0.2 , 1],...
0035 'MarkerSize',5)
0036
0037 X3 = [x-a/2; x-a/2];
0038 Y3 = [y+b/2; y-b/2];
0039 plot(X3,Y3, 'Color', [0.6, 0.2 , 1],'LineWidth',2,...
0040 'MarkerEdgeColor',[0.6, 0.2 , 1],...
0041 'MarkerFaceColor',[0.6, 0.2 , 1],...
0042 'MarkerSize',5)
0043
0044 X4 = [x-a/2; x+a/2];
0045 Y4 = [y-b/2; y-b/2];
0046 plot(X4,Y4,'Color', [0.6, 0.2 , 1],'LineWidth',2,...
0047 'MarkerEdgeColor',[0.6, 0.2 , 1],...
0048 'MarkerFaceColor',[0.6, 0.2 , 1],...
0049 'MarkerSize',5)
0050
0051 alfa1 = [(pi/2):0.001:(3*pi/2)];
0052 xr1 = r.*cos(alfa1) + (x-(c/2)).*ones(size(alfa1));
0053 yr1 = r.*sin(alfa1) + y.*ones(size(alfa1));
0054 plot(xr1',yr1', 'Color', [0.6, 0.2 , 1],'LineWidth',2,...
0055 'MarkerEdgeColor',[0.6, 0.2 , 1],...
0056 'MarkerFaceColor',[0.6, 0.2 , 1],...
0057 'MarkerSize',5)
0058
0059 alfa2 = [(-pi/2):0.001:(pi/2)];
0060 xr2 = r.*cos(alfa2) + (x+(c/2)).*ones(size(alfa2));
0061 yr2 = r.*sin(alfa2) + y.*ones(size(alfa2));
0062 plot(xr2',yr2', 'Color', [0.6, 0.2 , 1],'LineWidth',2,...
0063 'MarkerEdgeColor',[0.6, 0.2 , 1],...
0064 'MarkerFaceColor',[0.6, 0.2 , 1],...
0065 'MarkerSize',5)
0066
0067 X6 = [x-(c/2); x+(c/2)];
0068 Y6 = [y-3; y-3];
0069 plot(X6,Y6, 'Color', [0.6, 0.2 , 1],'LineWidth',2,...
0070 'MarkerEdgeColor',[0.6, 0.2 , 1],...
0071 'MarkerFaceColor',[0.6, 0.2 , 1],...
0072 'MarkerSize',5)
0073
0074 X7 = [x-(c/2); x+(c/2)];
0075 Y7 = [y+3; y+3];
0076 plot(X7,Y7, 'Color', [0.6, 0.2 , 1],'LineWidth',2,...
0077 'MarkerEdgeColor',[0.6, 0.2 , 1],...
0078 'MarkerFaceColor',[0.6, 0.2 , 1],...
0079 'MarkerSize',5)
0080
0081
0082