clear
clc
x=[1,17,17,17,17];
y=[9,1,5,7,8];
figure
plot([x(1),x(2)],[y(1),y(2)],"-sk",MarkerEdgeColor=[0 0 0],MarkerFaceColor=[1 0 0],MarkerSize=10)
hold on
plot([0,18],[1,1],":.k",MarkerSize=1)
hold on
plot(x(1),y(1),"-sk",MarkerEdgeColor=[0 0 0],MarkerFaceColor=[0 1 1],MarkerSize=10)
axis equal
axis off
legend("可移动粒子","","不可移动粒子",Location="south",Orientation="horizontal")
legend("boxoff")
ax = gca;
exportgraphics(ax,'C:\Users\11607\Desktop\论文插图\CSF5-a.png','Resolution',300)
figure
plot([x(1),x(3)],[y(1),y(3)],"-sk",MarkerEdgeColor=[0 0 0],MarkerFaceColor=[1 0 0],MarkerSize=10)
hold on
plot([0,18],[1,1],":.k",MarkerSize=1)
hold on
plot([0,18],[5,5],":.k",MarkerSize=1)
hold on
plot(x(1),y(1),"-sk",MarkerEdgeColor=[0 0 0],MarkerFaceColor=[0 1 1],MarkerSize=10)
hold on
plot(x(2),y(2),"-sk",MarkerEdgeColor=[0 0 0],MarkerFaceColor=[1 0.5 0.5],MarkerSize=10)
axis equal
axis off
legend("可移动粒子新位置","","","不可移动粒子","可移动粒子原位置",Location="south",Orientation="horizontal")
legend("boxoff")
ax = gca;
exportgraphics(ax,'C:\Users\11607\Desktop\论文插图\CSF5-b.png','Resolution',300)
figure
plot([x(1),x(4)],[y(1),y(4)],"-sk",MarkerEdgeColor=[0 0 0],MarkerFaceColor=[1 0 0],MarkerSize=10)
hold on
plot([0,18],[1,1],":.k",MarkerSize=1)
hold on
plot([0,18],[7,7],":.k",MarkerSize=1)
hold on
plot(x(1),y(1),"-sk",MarkerEdgeColor=[0 0 0],MarkerFaceColor=[0 1 1],MarkerSize=10)
hold on
plot(x(2),y(2),"-sk",MarkerEdgeColor=[0 0 0],MarkerFaceColor=[1 0.5 0.5],MarkerSize=10)
axis equal
axis off
legend("可移动粒子新位置","","","不可移动粒子","可移动粒子原位置",Location="south",Orientation="horizontal")
legend("boxoff")
ax = gca;
exportgraphics(ax,'C:\Users\11607\Desktop\论文插图\CSF5-c.png','Resolution',300)
figure
plot([x(1),x(5)],[y(1),y(5)],"-sk",MarkerEdgeColor=[0 0 0],MarkerFaceColor=[1 0 0],MarkerSize=10)
hold on
plot([0,18],[1,1],":.k",MarkerSize=1)
hold on
plot([0,18],[8,8],":.k",MarkerSize=1)
hold on
plot(x(1),y(1),"-sk",MarkerEdgeColor=[0 0 0],MarkerFaceColor=[0 1 1],MarkerSize=10)
hold on
plot(x(2),y(2),"-sk",MarkerEdgeColor=[0 0 0],MarkerFaceColor=[1 0.5 0.5],MarkerSize=10)
axis equal
axis off
legend("可移动粒子新位置","","","不可移动粒子","可移动粒子原位置",Location="south",Orientation="horizontal")
legend("boxoff")
ax = gca;
exportgraphics(ax,'C:\Users\11607\Desktop\论文插图\CSF5-d.png','Resolution',300)