Skip to main content

Using LaunchKernels to launch kernels with lower priorities


On windows the kernels launched with LaunchKernels are starred with "Below Normal" priority.


Is there a way to start them with even lower priority (eg. "Idle")?


I'm doing some intensive numerical analysis on my computer, which becomes really unresposive while the analysis is running. If I manually lower the priority of the kernels (eg from ProcessExplorer) then I'm able to work normally. But manually finding the processes every 10 minutes becomes tedious. Of course I could just launch fewer kernels than I have cores, but that seems inelegant.


Bonus points for a cross-platform solution:)



Answer



Here are two possible approaches.


Using initialization code


Firstly, one notes that the process priority is set (in AddOns/Applications/SubKernels/LocalKernels.m) using


SetSystemOptions["ProcessPriority" -> -1];


where the numeric value corresponds to a priority as follows:



  • -2: low

  • -1: below normal

  • 0: normal

  • 1: above normal

  • 2: high


Process priorities on Windows are rather complex and it doesn't seem like there's a way to set idle priority directly, but low will probably be good enough. To execute this code in each subkernel after launch, you just need to evaluate:



Needs["Parallel`Developer`"]; (* Load required package *)
$InitCode = Hold[System`SetSystemOptions["ProcessPriority" -> -2];];

and now each kernel's process priority will change from normal to low shortly after it starts.


Starting local kernels as if they were remote


Another, Windows-specific, approach is as follows. I will use this essentially as an excuse to post the command needed to start remote kernels on Windows where we usually do not have ssh available; I found the widely cited Remote Kernel Strategies presentation less than helpful here and devised this alternative, which I believe works better than other approaches.


We use the rcmd/rcmdsvc executables from the Windows 2000 Resource Kit, which must be installed first (although the installation is utterly trivial). Mathematica's installation directory must also be in the system's PATH environment variable for the math command to execute properly on the remote computer (even if in reality this is the same as the local computer).


We now change SubKernels`RemoteKernels`$RemoteCommand as follows:


SubKernels`RemoteKernels`$RemoteCommand :=
"runas /savedcreds /user:\"`3`\" /noprofile \"rcmd \\\\`1` start /b " <>

If[SubKernels`LocalKernels`Private`lowerprio, "/LOW", "/NORMAL"] <>
" math -noinit -subkernel -mathlink -linkmode Connect `4` -linkname `2`\"";

The username (slot 3) defaults to the username of the logged-on user but can be changed using e.g.


SubKernels`RemoteKernels`$RemoteUserName = "mathematica";

Each remote kernel configured with this option will start with reduced priority, depending on whether or not the option is set for local kernels. While it isn't ideal for the process priority for remote kernels to be set using the tickbox on the Local Kernels tab, this option has to be set somewhere and short of adding our own checkbox this seemed like the most reasonable choice. Remote hosts can also be used, of course, if you have them available; if you want to save this command line for each of the hosts set up (say, you want to set up both Windows and Linux hosts, and need to use a different command line for each) then tick the "Use custom launch command" box when configuring the host.


Comments

Popular posts from this blog

front end - keyboard shortcut to invoke Insert new matrix

I frequently need to type in some matrices, and the menu command Insert > Table/Matrix > New... allows matrices with lines drawn between columns and rows, which is very helpful. I would like to make a keyboard shortcut for it, but cannot find the relevant frontend token command (4209405) for it. Since the FullForm[] and InputForm[] of matrices with lines drawn between rows and columns is the same as those without lines, it's hard to do this via 3rd party system-wide text expanders (e.g. autohotkey or atext on mac). How does one assign a keyboard shortcut for the menu item Insert > Table/Matrix > New... , preferably using only mathematica? Thanks! Answer In the MenuSetup.tr (for linux located in the $InstallationDirectory/SystemFiles/FrontEnd/TextResources/X/ directory), I changed the line MenuItem["&New...", "CreateGridBoxDialog"] to read MenuItem["&New...", "CreateGridBoxDialog", MenuKey["m", Modifiers-...

How to thread a list

I have data in format data = {{a1, a2}, {b1, b2}, {c1, c2}, {d1, d2}} Tableform: I want to thread it to : tdata = {{{a1, b1}, {a2, b2}}, {{a1, c1}, {a2, c2}}, {{a1, d1}, {a2, d2}}} Tableform: And I would like to do better then pseudofunction[n_] := Transpose[{data2[[1]], data2[[n]]}]; SetAttributes[pseudofunction, Listable]; Range[2, 4] // pseudofunction Here is my benchmark data, where data3 is normal sample of real data. data3 = Drop[ExcelWorkBook[[Column1 ;; Column4]], None, 1]; data2 = {a #, b #, c #, d #} & /@ Range[1, 10^5]; data = RandomReal[{0, 1}, {10^6, 4}]; Here is my benchmark code kptnw[list_] := Transpose[{Table[First@#, {Length@# - 1}], Rest@#}, {3, 1, 2}] &@list kptnw2[list_] := Transpose[{ConstantArray[First@#, Length@# - 1], Rest@#}, {3, 1, 2}] &@list OleksandrR[list_] := Flatten[Outer[List, List@First[list], Rest[list], 1], {{2}, {1, 4}}] paradox2[list_] := Partition[Riffle[list[[1]], #], 2] & /@ Drop[list, 1] RM[list_] := FoldList[Transpose[{First@li...

plotting - How to draw lines between specified dots on ListPlot?

I would like to create a plot where I have unconnected dots and some connected. So far, I have figured out how to draw the dots. My code is the following: ListPlot[{{1, 1}, {2, 2}, {3, 3}, {4, 4}, {1, 4}, {2, 5}, {3, 6}, {4, 7}, {1, 7}, {2, 8}, {3, 9}, {4, 10}, {1, 10}, {2, 11}, {3, 12}, {4,13}, {2.5, 7}}, Ticks -> {{1, 2, 3, 4}, None}, AxesStyle -> Thin, TicksStyle -> Directive[Black, Bold, 12], Mesh -> Full] I have thought using ListLinePlot command, but I don't know how to specify to the command to draw only selected lines between the dots. Do have any suggestions/hints on how to do that? Thank you. Answer One possibility would be to use Epilog with Line : ListPlot[ {{1, 1}, {2, 2}, {3, 3}, {4, 4}, {1, 4}, {2, 5}, {3, 6}, {4, 7}, {1, 7}, {2, 8}, {3, 9}, {4, 10}, {1, 10}, {2, 11}, {3, 12}, {4, 13}, {2.5, 7}}, Ticks -> {{1, 2, 3, 4}, None}, AxesStyle -> Thin, TicksStyle -> Directive[Black, Bold, 12], Mesh -> Full, Epilog -> { Line[ ...