Recipe: Tvdl Show worst subscoring parts 1.1.2

created by LociOiling

Profile

• Name: Tvdl Show worst subscoring parts 1.1.2
• ID: 49920
• Shared with: Public
• Parent: Tvdl Show worst subscoring parts 1.1.1
• Children:
  • Worst Select Best Freeze 1.0
  • Tvdl Show Worst 1.1.3
• Created on: August 28, 2014 at 20:02 PM UTC
• Updated on: August 28, 2014 at 20:02 PM UTC
• Description:

  Displays the totals of all active subscores. Selects the worst segments based on the subscores and percentage of segments you specify. Prints a list of the selected segments and their scores. Version 1.1.2 implements jeff101's improvements to the selection dialog and recipe output.

Code

--[[ 

    TvdL Show worst subscoring parts 

    version 1.1.1 - 2014/07/14 - LociOiling
        --  add FindActiveSubscores (brutally yank'd from TvdL EDRW)
        --  this version of FindActiveSubscores totals subscores for *all* segments
        --  add some score and subscore reporting to the dialog
    version 1.1.2 - 2014/08/28 LociOiling
        -- implement jeff101's suggestions
            + combine subtotals and checkboxes in dialog
            + include more detailed information in recipe output
        -- automatically select all subscores if user selects none
        -- reduce the scope of key result variables
        -- rename confusing or ambiguous variables and functions
]]--


--
--  globals section
--

segCnt = structure.GetCount()

pct = 15
Recipe = "TvdL Show worst subscoring parts"
Version = "1.1.2"
ReVersion = Recipe .. " v." .. Version

gTotal = 0 -- grand total all subscores
--
--  end of globals section
--

function round ( x )--cut all afer 3-rd place
    return x - x % 0.001
end

function FindActiveSubscores ( show )
    local result = {}
    local Subs = puzzle.GetPuzzleSubscoreNames ()
    for ii = 1, #Subs do
        local total = 0
        local abstotal = 0
        local part
        for jj = 1, segCnt do
            part = current.GetSegmentEnergySubscore ( jj, Subs [ ii ] ) 
            total = total + part
            abstotal = abstotal + math.abs ( part )
        end
        if abstotal > 10 then
            result [ #result + 1 ] = { Subs [ ii ], total }
            gTotal = gTotal + total
            if show then print ( "Active subscore: " .. Subs [ ii ] .. ", total = " .. round ( total ) ) end
        end
    end
    if show then print ( #result .. " active subscores" ) end
    if show then print ( "Total of all subscores: " .. round ( gTotal ) ) end
    return result
end


function AskSelScores ( scrParts )
    local selParts = {}
    local ask = dialog.CreateDialog ( ReVersion )

    ask.segcnt = dialog.AddLabel ( segCnt .. " segments" )
    ask.active = dialog.AddLabel ( #scrParts .. " active subscores" )
    ask.gTotal = dialog.AddLabel ( "Total of all subscores: " .. round ( gTotal ) )
    ask.energyscore = dialog.AddLabel ( "current.GetEnergyScore(): " .. round ( current.GetEnergyScore() ) ) 
    if current.GetEnergyScore() ~= current.GetScore() then
        ask.score = 
            dialog.AddLabel ( "current.GetScore(): " .. round ( current.GetScore() ) ) 
        ask.exmult = 
            dialog.AddLabel ( "current.GetExplorationMultiplier(): " .. round ( current.GetExplorationMultiplier() ) ) 
    end

    ask.l0 = dialog.AddLabel ( "Subscore totals (all segments)" )
    ask.l1 = dialog.AddLabel ( "Specify which worst subscore totals to count" )
    for ii = 1,#scrParts do
        ask [ scrParts [ ii ] [ 1 ] ] = dialog.AddCheckbox ( scrParts [ ii ] [ 1 ] .. ":  " .. round ( scrParts [ ii ] [ 2 ] ), false )
    end
    ask.perc = dialog.AddSlider ( "Percent to select:", pct, 1, 100, 0 )
    ask.OK = dialog.AddButton ( "OK", 1 )  
    ask.Cancel = dialog.AddButton ( "Cancel", 0 )
    if dialog.Show ( ask ) > 0 then
        for ii = 1, #scrParts do
            if ask [ scrParts [ ii ] [ 1 ] ].value then selParts [ #selParts + 1 ] = scrParts [ ii ] [ 1 ] end
        end
    --
    --  select all if nothing selected
    --
        if #selParts == 0 then
            for ii = 1, #scrParts do
                selParts [ #selParts + 1 ] = scrParts [ ii ] [ 1 ] 
            end
        end

        pct = ask.perc.value
    end
    return selParts
end

function Showsels ( selParts )
    local sels = ""
    for jj = 1, # selParts do
        if jj > 1 then sels = sels .. ", " end
        sels = sels ..  selParts [ jj ] 
    end
    print ( "Selected scoreparts: " .. sels )
end
function Compute ( selParts )
    local segscores = {}
    for ii = 1, segCnt do
        local sub = 0
        for jj = 1, #selParts do
            sub = sub + current.GetSegmentEnergySubscore ( ii, selParts [ jj ] )
        end
        segscores [ #segscores + 1 ] = { ii, sub }
    end
    return segscores
end

function SortScores ( segscores )
    table.sort ( segscores, function ( a, b ) return a [ 2 ] < b [ 2 ] end)
    return segscores
end

function Showresult ( segscores )
    selection.DeselectAll ()
    print ( "Selecting " .. pct .. "% of segments" )
    print ( "Selecting " .. math.floor ( pct * segCnt / 100 ) .. " out of " .. segCnt .. " segments" )
    print ( "Selected segments:" )
    local totSelScore = 0
    for ii = 1, pct * segCnt / 100 do
        selection.Select ( segscores [ ii ] [ 1 ] )
        print ( "Segment " .. segscores [ ii ] [ 1 ] .. ", score = " .. round ( segscores [ ii ] [ 2 ] ) )
        totSelScore = totSelScore + segscores [ ii ] [ 2 ]
    end
    print ( "Total of selected subscores for selected segments: " .. round ( totSelScore ) )
end

function main ()
    print (  ReVersion )
    print ( "Puzzle: " .. puzzle.GetName () )
    print ( "Track: " .. ui.GetTrackName () )
    print ( "Segments: " .. segCnt )

    scoreParts = FindActiveSubscores ( true )
    print ( "current.GetEnergyScore(): " .. round ( current.GetEnergyScore() ) ) 
    if current.GetEnergyScore() ~= current.GetScore() then
        print ( "current.GetScore(): " .. round ( current.GetScore() ) ) 
        print ( "current.GetExplorationMultiplier(): " .. round ( current.GetExplorationMultiplier() ) ) 
    end

    selParts = AskSelScores ( scoreParts )     
    if #selParts > 0 then
        Showsels ( selParts )
        local segscores = {}
        segscores = Compute ( selParts )
        segscores = SortScores ( segscores )
        Showresult ( segscores )
    end
    cleanup ()
end

function cleanup ( error )
    print ( "---" )
--
--  model 100 - print recipe name, puzzle, track, time, score, and gain
--
    local reason
    local start, stop, line, msg
    if error == nil then
        reason = "complete"
    else
    --
    --  model 120 - civilized error reporting,
    --              thanks to Bruno K. and Jean-Bob
    --
        start, stop, line, msg = error:find ( ":(%d+):%s()" )
        if msg ~= nil then
            error = error:sub ( msg, #error )
        end
        if error:find ( "Cancelled" ) ~= nil then
            reason = "cancelled"
        else
            reason = "error"
        end
    end

    print (  ReVersion .. " " .. reason )
    print ( "Puzzle: " .. puzzle.GetName () )
    print ( "Track: " .. ui.GetTrackName () )

    if reason == "error" then
        print ( "Unexpected error detected" )
        print ( "Error line: " .. line )
        print ( "Error: \"" .. error .. "\"" )
    end

end

-- main call
xpcall ( main, cleanup )
--end of script

Comments

[LociOiling]

Version 1.1.2 implements some suggestions from jeff101.

In the selection dialog, the checkboxes and scores have been combined for a more compact display.

Additional information has been added to the recipe output, including puzzle name, track, and number of segments. The total score information shown on the selection dialog is now included in the recipe output as well. The recipe output also now shows details such as the subscores selected, the percentage of segments to select, and the grand total of the selected subscores for the selected segments.

One additional change is that the recipe now selects all subscores if you don't select any.

Internally, some variables and functions were renamed, and some global variables were replaced with local variables.