clc;
clear;
close all;
core1 = [80 0 0.2 80; 110 750 0.25 50; 180 460 0.15 30];
core2 = [95 0 0.3 100; 150 980 0.3 60; 180 644 0.2 50];
core3 = [30 0 0.1 20; 50 0 0.08 10];
core4 = [180 0 0.6 400; 220 0 0.5 350; 350 2600 0.5 120; 420 1368 0.4 70];
core5 = [150 0 0.6 400; 180 0 0.6 400; 320 2475 0.5 130; 380 1400 0.4 80];
core6 = [120 0 0.4 150; 150 0 0.3 120; 220 950 0.3 50];
a = 3*3*2*4*4*3;
b = 4;
f = zeros(a, b);
t = 0;
for i = 1: 3
    for j = 1: 3
        for k = 1: 2
            for x = 1: 4
                for y = 1: 4
                    for z = 1: 3
                        t = t + 1;
                        for l = 1: 4
                            f(t, l) = core1(i, l) + core2(j, l) + core3(k, l) + core4(x, l) + core5(y, l) + core6(z, l);
                            f(t, 5: 10) = [i j k x y z]
                        end
                    end
                end
            end
        end
    end
end
save soc1_1.txt f -ASCII
f = del(f);
save soc1_2.txt f -ASCII
f = non_domination_sort_mod(f);
f = f(:, 1: 4);
save soc1_3.txt f -ASCII