Su5/Divergence Weapons - B Path Subtle Blow II

    local function TPTestApoc()
        local tpPerHit = 60;
        local tpFed = 0;
        for i=1,10 do
            local hits = 1;
            if math.random(100) < 4 then
                hits = hits + 3;
            elseif math.random(100) < 6 then
                hits = hits + 2;
            end

            for j=1,hits do
                if math.random(100) ~= 100 then
                    tpFed = tpFed + tpPerHit;
                end
            end
        end
        return tpFed;
    end
    local function TPTestFT()
        local tpPerHit = 43;
        local tpFed = 0;
        for i=1,10 do
            local hits = 1;
            if math.random(100) < 51 then
                hits = hits + 1;
            end

            for j=1,hits do
                if math.random(100) ~= 100 then
                    tpFed = tpFed + tpPerHit;
                end
            end
        end
        return tpFed;
    end

        local results = T{};
        for test = 1,10000 do
            results:append(TPTestApoc())
        end
        table.sort(results, function(a,b) return a>b end);

        for index,result in ipairs(results) do
            if index < 10 then
                print(result);
            end
            if result < 800 then
                print('Total of ' .. index-1 .. ' results above 800 TP fed.');
                break;
            end
        end

1440 TP fed 2 times. (0.02%)
1380 TP fed 1 times. (0.01%)
1320 TP fed 4 times. (0.04%)
1260 TP fed 14 times. (0.14%)
1200 TP fed 18 times. (0.18%)
1140 TP fed 32 times. (0.32%)
1080 TP fed 90 times. (0.90%)
1020 TP fed 133 times. (1.33%)
960 TP fed 277 times. (2.77%)
900 TP fed 622 times. (6.22%)
840 TP fed 549 times. (5.49%)
780 TP fed 1315 times. (13.15%)
720 TP fed 2292 times. (22.92%)
660 TP fed 256 times. (2.56%)
600 TP fed 3992 times. (39.92%)
540 TP fed 390 times. (3.90%)
480 TP fed 13 times. (0.13%)

860 TP fed 9 times. (0.09%)
817 TP fed 78 times. (0.78%)
774 TP fed 397 times. (3.97%)
731 TP fed 1021 times. (10.21%)
688 TP fed 1854 times. (18.54%)
645 TP fed 2401 times. (24.01%)
602 TP fed 2202 times. (22.02%)
559 TP fed 1298 times. (12.98%)
516 TP fed 567 times. (5.67%)
473 TP fed 145 times. (1.45%)
430 TP fed 28 times. (0.28%)

1204 TP fed 1 times. (0.01%)
1118 TP fed 1 times. (0.01%)
1075 TP fed 6 times. (0.06%)
1032 TP fed 29 times. (0.29%)
989 TP fed 128 times. (1.28%)
946 TP fed 269 times. (2.69%)
903 TP fed 654 times. (6.54%)
860 TP fed 1084 times. (10.84%)
817 TP fed 1503 times. (15.03%)
774 TP fed 1803 times. (18.03%)
731 TP fed 1722 times. (17.22%)
688 TP fed 1349 times. (13.49%)
645 TP fed 859 times. (8.59%)
602 TP fed 398 times. (3.98%)
559 TP fed 154 times. (1.54%)
516 TP fed 32 times. (0.32%)
473 TP fed 7 times. (0.07%)
430 TP fed 1 times. (0.01%)

        local repetitions = 10000;
        local results = T{};
        for test = 1,repetitions do
            local result = TPTestFT();
            if results[result] == nil then
                results[result] = 1;
            else
                results[result] = results[result] + 1;
            end
        end

        local sorted = T{};
        for k,v in pairs(results) do
            sorted:append({TP=k, Count=v});
        end
        table.sort(sorted, function(a,b) return a.TP > b.TP end);
        
        for _,entry in ipairs(sorted) do
            print(string.format('%u TP fed %u times. (%.02f%%)', entry.TP, entry.Count, (entry.Count/repetitions) * 100));
        end