Recipe: Rav3n_pl Fuzes v1.5

created by LociOiling

Profile

• Name: Rav3n_pl Fuzes v1.5
• ID: 100007
• Shared with: Public
• Parent: Rav3n_pl Fuzes v1.4
• Children:
  • Rav3n_pl Fuzes v1.5.1
• Created on: September 27, 2014 at 19:48 PM UTC
• Updated on: September 27, 2014 at 19:48 PM UTC
• Description:

  Classic fuzes, now with wiggle factor. If you feel lucky, select the random fudge factor (RFF) to vary the clashing importance (CI) of the fuzes. V1.5 updates standard score reporting.

Code

--[[ 

    Rav3n_pl Fuzes

    Fuzes for Exploration v1
    Combination of Blufuze and Pinkfuze looped till any gain
    Can be used in normal puzzles too
    Options at end
    Script is using save slot 3 and recent best


    version 1.3 - 2014/05/22 - LociOiling
        --  add dialog
            * minimum points per loop
            * wiggle factor
        --  add cleanup
        --  convert to V2
        --  remove tail calls (short tails best)
        --  add model reporting - see "model" comments
    version 1.4 - 2014/07/07 - LociOiling
        --  refine model reporting
        --  add CSV (spreadsheet) output option
    version 1.5 - 2014/09/05 - LociOiling
        --  minor revisions to model reporting
]]--

--
--  globals section
--

--
--  model 001 -- standard recipe name and version
--
Recipe = "Rav3n_pl Fuzes"
Version = "1.5"
ReVersion = Recipe .. " v." .. Version

-- options VVVV

normal = true --set false to seek energy in exploration puzzles

daCapo = 2 --minimum gain from loop to run again

WF = 2 -- wiggle factor

useIRFF = false
IRFF = 0.05 -- irreproducible random fuzz factor

-- end of options ^^^^^^

p = print
CI = behavior.SetClashImportance

segCnt = structure.GetCount()
bestScore = 0

startChunque = nil -- initial chunquePoint
--
--  end of globals section
--

-- Module Random
-- Tvdl, 01-11-2012
function Seedrandom()
    math.randomseed ( os.time() % 1000000 )
    math.random ( 100 ) -- Because the first is not random
end
Seedrandom()

function Score ()
    if normal == true then
        return current.GetScore ()
    else
        return current.GetEnergyScore ()   
    end
end

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

function Wiggle ( how, iters, minppi )
    if how == nil then 
        how = "wa" 
    end
    if iters == nil then 
        iters = 6 
    end
    if minppi == nil then 
        minppi = 0.1 
    end
    
    local sp = 0 
    local ep = 0
    local ig = 0
    repeat 
        sp = Score ()
        iters = iters - 1
        if how == "s" then 
            structure.ShakeSidechainsAll ( 1 )
        elseif how == "wb" then 
            structure.WiggleAll ( 2 * WF, true, false )
        elseif how == "ws" then 
            structure.WiggleAll ( 2 * WF, false, true )
        elseif how == "wa" then 
            structure.WiggleAll ( 2 * WF, true, true )
        end
        ep = Score ()
        ig = ep - sp
    until how == "s" or ( iters <= 0 or ig < minppi )
end


function SaveBest ()
    local gGain = Score () - bestScore
    if gGain > 0 then
    --
    --  model 060 - report significant gains
    --
        if gGain > 0.001 then 
            print ( "Gained another " .. round ( gGain ) .. ", score = " .. round ( Score() ) ) 
        end
        bestScore = Score ()
        save.Quicksave ( 3 )
    else
        save.Quickload ( 3 )
    end
end

function doRFF ( iCI )
    local oCI
    if useIRFF and iCI < 1.0 then 
        tRFF = math.random ( IRFF * 100 ) / 100
        if math.random () > 0.5 then
            oCI = iCI + tRFF
        else
            oCI = iCI - tRFF
        end
        if oCI > 1 then
            oCI = 1
        end
        if oCI < 0 then
            oCI = 0
        end
        --print ( "CI adjusted from " .. round ( iCI ) .. " to " .. round ( oCI ) )
    else
        oCI = iCI
    end
    return oCI
end

function FuzeEnd ()
    CI ( 1 )
    Wiggle ( "wa", 1 )
    Wiggle ( "s", 1 )
    Wiggle ()
    recentbest.Restore ()
    SaveBest ()
end

function Fuze1 ( ci1, ci2 )
    CI ( doRFF ( ci1 ) )
    Wiggle ( "s", 1 )
    CI ( doRFF ( ci2 ) )
    Wiggle ( "wa", 1 )
end

function Fuze2 ( ci1, ci2 )
    CI ( doRFF ( ci1 ) )
    Wiggle ( "wa", 1 )
    CI ( 1 )
    Wiggle ()
    CI ( doRFF ( ci2 ) )
    Wiggle ( "wa", 1 )
end

--
--  begin chunquePoint Beta package version 0.2
--

CSVoutput = false

function beginChunque ( startChunque, prefix, scoreFunc, pose )
    local chunque = chunquePoint ( prefix, scoreFunc, pose )
    if startChunque == nil then
        chunquePrint ( chunque )
    else
        local gain = chunque [ 2 ] - startChunque [ 2 ]
        chunquePrint ( chunque, gain )
    end
    return chunque
end
function endChunque ( startChunque, prefix, scoreFunc, pose )
    local chunque = chunquePoint ( prefix, scoreFunc, pose )
    chunqueGain ( startChunque, chunque )
end

function chunquePoint ( prefix, scoreFunc, pose )
    if prefix == nil then 
        prefix = ""
    end
    if scoreFunc == nil then
        scoreFunc = current.GetEnergyScore
    end
    local score = 0
    if pose == nil then
        score =  scoreFunc ()
    else
        score = scoreFunc ( pose )
    end
    local runDate, runClock, runTime         
   
    runDate = os.date ()
    runClock = os.clock()
    runTime = os.time()

    return { prefix, score, runDate, runClock, runTime }
end

function chunquePrint ( chunque, gain )
    local function round ( ii )
        return ii - ii % 0.001
    end
    if gain == nil then
        if CSVOutput then
            print ( chunque [ 1 ] ..  "," .. 
                    round ( chunque [ 2 ] ) ..  "," .. 
                    chunque [ 3 ] 
                  )
        else
            print ( chunque [ 1 ] .. ", score: " .. 
                    round ( chunque [ 2 ] ) .. ", " ..
                    chunque [ 3 ] 
                  )
        end
    else
        if CSVOutput then
            print ( chunque [ 1 ] .. "," .. 
                    round ( chunque [ 2 ] ) .. "," .. 
                    round ( gain ) .. "," ..  
                    chunque [ 3 ] 
                  )
        else
            print ( chunque [ 1 ] .. ", score: " ..
                    round ( chunque [ 2 ] ) .. ", total gain: " ..
                    round ( gain ) .. ", " .. 
                    chunque [ 3 ]
                  )
        end
    end
end

function chunqueGain ( startChunk, endChunk )
    local function round ( ii )
        return ii - ii % 0.001
    end

    local Clocktime = os.difftime ( endChunk [ 5 ], startChunk [ 5 ] )
    local gain = round ( endChunk [ 2 ] - startChunk [ 2 ] ) 
    local hours = Clocktime / ( 60 * 60 ) 
    local pph = gain / hours

    if CSVOutput then
        print ( endChunk [ 1 ] .. "," ..
                round ( endChunk [ 2 ] ) .. "," ..
                round ( gain ) .. "," ..
                round ( hours ) .. "," .. 
                round ( pph ) .. "," ..
                endChunk [ 3 ]
              )
    else
        print ( endChunk [ 1 ] .. ", score: " .. 
                round ( endChunk [ 2 ] ) .. ", gain: " .. 
                round ( gain ) .. ", " ..
                endChunk [ 3 ] 
              )
        print ( endChunk [ 1 ] .. ", hours: " .. 
                round ( hours ) .. ", points per hour: " .. 
                round ( pph ) )
    end

end

--
--  end chunquePoint Beta package version 0.2
--

function GetParams ()
    local dlg = dialog.CreateDialog ( ReVersion )
    dlg.daCapo = dialog.AddSlider ( "minimum gain" , daCapo, 0.1, 25, 1 )  
    dlg.WF = dialog.AddSlider ( "Wiggle Factor" , WF, 1, 5, 0 )  
    dlg.useIRFF = dialog.AddCheckbox ( "Use CI fuzz factor?" , useIRFF )
    dlg.IRFF = dialog.AddSlider ( "CI fuzz factor" , IRFF, 0.00, 0.50, 2 )
    dlg.CSVOutput = dialog.AddCheckbox ( "CSV output?" , CSVOutput )

    dlg.ok = dialog.AddButton ( "OK", 1 )
    dlg.cancel = dialog.AddButton ( "Cancel", 0 )

    if dialog.Show ( dlg ) > 0 then
        daCapo = dlg.daCapo.value
        WF = dlg.WF.value
        useIRFF = dlg.useIRFF.value
        IRFF = dlg.IRFF.value
        CSVOutput = dlg.CSVOutput.value
        return true
    end
    return false
end

function Fuzes ()
    if GetParams () then
    --
    --  model 010 - startup - print recipe name, puzzle name, track
    --
        print (  ReVersion )
        print ( "Puzzle: " .. puzzle.GetName () )
        print ( "Track: " .. ui.GetTrackName () )

    --
    --  model 020 - startup - print recipe parms
    --
        print ( "options:" )
        print ( "minimum gain per cycle = " .. daCapo )
        print ( "Wiggle Factor = " .. WF )
        if ( useIRFF ) then
            print ( "max fuzz factor = " .. IRFF )  
        end
        print ( "--" )

        local startScore = Score () 

    --
    --  model 030 - startup - print start time, start score
    --
        startChunque = beginChunque ( nil, "Start", Score )

        bestScore = Score ()
        save.Quicksave ( 3 )
        selection.SelectAll ()
        recentbest.Save ()
        local fuzeCount = 1

        repeat
            local ss = Score ()
        --
        --  model 040 - start cycle - print cycle #, current score
        --
            local runName = "Fuze run " .. fuzeCount
            local begChunque = beginChunque ( startChunque, runName, Score )

        --
        --  pink fuse
        --
            print ( "Run " .. fuzeCount .. ", Fuze 1/6" ) --model 050 - log major sections
            Fuze1 ( 0.3, 0.6 ) 
            FuzeEnd ()

            print ( "Run " .. fuzeCount .. ", Fuze 2/6" ) --model 050 - log major sections
            Fuze2 ( 0.5, 0.7 ) 
            FuzeEnd ()

            print ( "Run " .. fuzeCount .. ", Fuze 3/6" ) --model 050 - log major sections
            Fuze2 ( 0.7, 0.5 ) 
            FuzeEnd ()

        --
        --  blue fuse
        --
            print ( "Run " .. fuzeCount .. ", Fuze 4/6" ) --model 050 - log major sections
            Fuze1 ( 0.05, 1 )  
            recentbest.Restore () 
            SaveBest ()

            print ( "Run " .. fuzeCount .. ", Fuze 5/6" ) --model 050 - log major sections
            Fuze1 ( 0.07, 1 )  
            recentbest.Restore () 
            SaveBest ()

            print ( "Run " .. fuzeCount .. ", Fuze 6/6" ) --model 050 - log major sections
            Fuze2 ( 0.3, 1 ) 
            recentbest.Restore () 
            SaveBest ()

            local runGain = Score () - ss

        --
        --  model 070 - end cycle - print cycle #, time, gain
        --
            endChunque ( begChunque, "end run " .. fuzeCount, Score )

            fuzeCount = fuzeCount + 1
        until runGain < daCapo

    --
    --  model 090 - exit via the cleanup routine
    --
        cleanup ()
    end
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

--
--  model 130 - reset clash importance, clear selections, restore structures, etc.
--
    behavior.SetClashImportance ( 1 )
    selection.DeselectAll ()

    if error ~= nil then 
        save.Quickload ( 3 )
    end

--
--  model 150 - report the final time, score, gain, elapsed time, and points per hour
--
    if startChunque ~= nil then
        endChunque ( startChunque, "Final", Score )
    end
end

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