function [wsk, cmdx] = sieci(d, D, dimensions, epoki, topologyFcn, distanceFcn)

    figure
    gscatter(d(1,:),d(2,:),D);
    title('dane');

    net=selforgmap(dimensions ,epoki, 3, topologyFcn, distanceFcn);%%<-to zmieniaj
    net.trainParam.showWindow=0;
    net=train(net,d);
    wages = net.iw{1,1};

    %distan=dist(d', net.iw{1}');
    %[~,cmdx]=min(distan,[],2);
    hold on;
    plotsom(net.iw{1,1},net.layers{1}.distances);

    %%drugi etap
    net_lvl2 = selforgmap([1 3],epoki,3, topologyFcn, distanceFcn);
    net_lvl2.trainParam.showWindow=false;
    net_lvl2 = train(net_lvl2,wages');
    net_lvl2.iw{1,1};

    distan = dist(d',net_lvl2.iw{1}');
    [~,cmdx] = min(distan,[],2);


    %wskaźnik jakości dopasowania danych
    wsk=liczWskDopasoawnia(cmdx, length(d));
end