Page 27 - 4721
P. 27

plot(X(1,:),X(2,:),'.','markersize',30)
                            axis([0 3 0 3])
                            for i = 1:3,text(X(1,i)+0.1,X(2,i),sprintf('class %g',Yc(i))),end
                            title('Testing the network.')
                            xlabel('X(1,:)')
                            ylabel('X(2,:)')

                                3 Розграфимо досліджувану площину кольорами за
                            належністю до класів згідно результатів роботи мережі:
                            x1 = 0:.05:3;
                            x2 = x1;
                            [X1,X2] = meshgrid(x1,x2);       %розмальовуємо координатну
                            сітку кольорами відповідно до класів
                            xx = [X1(:) X2(:)]';
                            yy = net(xx);
                            yy = full(yy);
                            m = mesh(X1,X2,reshape(yy(1,:),length(x1),length(x2)));
                            m=handle(m);
                            m.FaceColor = [0 0.5 1];            %вибір кольору
                            m.LineStyle = 'none';
                            hold on
                            m = mesh(X1,X2,reshape(yy(2,:),length(x1),length(x2)));
                            m=handle(m);
                            m.FaceColor = [0 1.0 0.5];
                            m.LineStyle = 'none';
                            m = mesh(X1,X2,reshape(yy(3,:),length(x1),length(x2)));
                            m=handle(m);
                            m.FaceColor = [0.5 0 1];
                            m.LineStyle = 'none';
                            plot3(X(1,:),X(2,:),[1 1 1]+0.1,'.','markersize',30)
                            plot3(x(1),x(2),1.1,'.','markersize',30,'color',[1 0 0])
                            hold off
                                                           26
   22   23   24   25   26   27   28   29   30   31   32