%% sub-function is used to plot the position of the eight nodes;
%% 2005-11-17;MaDengYong;

function plot_node6(XY,ID) 

xy_l=size(XY,1);
ID1=ID(1);
ID2=ID(2);
ID3=ID(3);
ID4=ID(4);
ID5=ID(5);
IP_set=[0 3 4 5 6 7 8];

for lp1=1:xy_l

    
    
    if IP_set(lp1)==ID1 || IP_set(lp1)==ID2 || IP_set(lp1)==ID3 || IP_set(lp1)==ID4 || IP_set(lp1)==ID5
        plot(XY(lp1,1),XY(lp1,2),'ro');
        is_elements(IP_set(lp1),XY(lp1,:),ID1,ID2);
    else
        plot(XY(lp1,1),XY(lp1,2),'bo');
        is_elements(IP_set(lp1),XY(lp1,:),ID1,ID2);
    end
       
      
end