Recipe: Test your PC power on puzzle 2383

created by Bruno Kestemont

Profile

• Name: Test your PC power on puzzle 2383
• ID: 108568
• Shared with: Public
• Parent: Test your PC power
• Children: None
• Created on: March 06, 2024 at 20:59 PM UTC
• Updated on: March 06, 2024 at 21:23 PM UTC
• Description:

  Test your PC on the same standard very big puzzle 2383 ; with auto wiggle power, view "minimalist", electron density view: none ; then report the experience conditions here

Code

--Test your PC power by Bruno Kestemont
--Use on puzzle 2383 with auto wiggle power, view "minimalist", electron density view: none


startRecTime=os.clock()
startRecDate=os.date()
p=print --"quicker" print
segCnt=structure.GetCount()
stopRecTime=os.clock()
Testtimerec=0
firstlooptime=0
buffer= 600-- in seconds
buffermin=buffer/60 -- in minutes


function Testtime()
stopRecTime=os.clock()
Testtimerec=stopRecTime-startRecTime -- in seconds
return Testtimerec
end

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

function round1(x)--cut all afer 1-rd place
	return x-x%0.1
end

function Score() 
	return current.GetEnergyScore()
end
startingscore= Score() -- to get track on latest attempt
maxScore= Score()
s=round(startingscore)
notelibre={} -- list of free segments
notesave={} -- backup of notes
testresult=""
result=0
loopnr=0

function noteread(i)
	local Note=structure.GetNote(i)
	if #Note>0 and Note:find("Score") then
		notelibre[i]=false
		notesave[i]=Note
		p(Note)
	else 
		notelibre[i]=true
		notesave[i]=''
	end
	return
end

function readarchives()
	print("Previous results")
	for i= 1 , segCnt do
		noteread(i)
	end
end

function whriteresult()
	testresult=startRecDate.."/ Score:"..result.."in "..loopnr.." loops. Result: "..firstlooptime.." sec / 1st loop"
	for i= 1 , segCnt do
	    if notelibre[i] then
		p("Whriting in note"..i)
		structure.SetNote(i, testresult)
		break
		end
	end
end

function Testing()
	repeat
		local gl=Score()
		loopnr=loopnr+1
		if loopnr <50 then
			selection.SelectRange(loopnr,(2*loopnr))
			structure.LocalWiggleSelected(1)
			selection.DeselectAll()
		elseif loopnr <300 then
			selection.SelectRange(loopnr,(10+loopnr))
			structure.LocalWiggleSelected(1)
			selection.DeselectAll()
		elseif loopnr <600 then
			selection.SelectRange(1,loopnr)
			structure.LocalWiggleSelected(1)
			structure.ShakeSidechainsSelected(1)
			selection.DeselectAll()
		else
			structure.WiggleAll(1)
			structure.ShakeSidechainsAll(1)
		end
		Testtime()
		timesec=round1(Testtimerec)
		local glr=round(Score()-gl)
		local gr=round(Score()-s)
		print(loopnr.." loops in "..timesec.." sec. / "..buffer..". Gain= "..glr.." / "..gr)
		if loopnr==1 then
			firstlooptime=Testtimerec
			print("Power result:"..firstlooptime.." sec./ 1st loop")
			if firstlooptime>buffer then
				print("Too slow for this test, try on a smaler puzzle")
			end
		end
	until Testtimerec>buffer
end

function Cleaning()
	--p("Cleaning")
	selection.DeselectAll()
    freeze.UnfreezeAll()
	band.DeleteAll()
	behavior.SetClashImportance(1)
	behavior.SetSlowFiltersDisabled(false)
	recentbest.Save()
end

function keepingnotes()

end

function MAINtest()
	p("Test your PC power by B.Kestemont")
	p("Date: "..startRecDate)
	if segCnt<600 then p("WARNING: Not intended for this puzzle. Please use only for Contest") end
	p("##################")
	readarchives()
	p("##################")
	p("Testing pc ... Go for "..buffermin.." minutes")
	p("Don't touch or cancel, be patient waiting results")
	puzzle.StartOver()
	startingscore= Score() -- to get track on latest attempt
	maxScore= Score()
	s=round(startingscore)
	for i= 1, segCnt do
		local archive=notesave[i]
		structure.SetNote(i, archive)
	end
	Cleaning()
	Testing()
	recentbest.Restore()
	p("...")
	result=round(Score())
	p("Result= "..result)
	whriteresult()

end

MAINtest()

Comments

[Bruno Kestemont]

CPU: ACPI\GenuineIntel_-_Intel64Family_6_Model_158-_Intel(R)Core(TM)_i9-9900K_CPU@_3.60GHz
Graphic card: idem (+ Intel(R) UHD Graphicx 630
RAM: 16,0 Go

==============

Details (in French):
Intel(R) Core(TM) i9-9900K CPU @ 3.60GHz

Vitesse de base :	3,60 GHz
Sockets :	1
Cœurs :	8
Processeurs logiques :	16
Virtualisation :	Activé
Cache de niveau 1 :	512 Ko
Cache de niveau 2 :	2,0 Mo
Cache de niveau 3 :	16,0 Mo

Utilisation	52%
Vitesse	4,66 GHz
Durée de fonctionnement	5:13:56:32
Processus	165
Threads	1764
Handles	68545

Mémoire

16,0 Go

Vitesse :	2133 MHz
Emplacements utilisés :	2 de 4
Facteur de forme :	DIMM
Matériel réservé :	139 Mo

Disponible	5,8 Go
Mise en cache	5,9 Go
Validée	16,5/29,8 Go
Réserve paginée	420 Mo
Pool non paginé	415 Mo
Utilisée (compressée)	10,0 Go (1,2 Go)

§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§

TEST RESULT:

1 loop in 9.2 sec / 600
74 loops in 603 sec.
(no gain)