Made long test more user friendly
Showing
-
Owner
The file generated by this can be read using
stream = OpenRead["~/scratch/long-test-01234.bin", BinaryFormat -> True]; data = First@Last@Reap[While[True, len = BinaryRead[stream, "UnsignedInteger32"]; If[len === EndOfFile, Break[]]; Sow[BinaryRead[stream, {"Integer32", "Integer32", "Integer32", "Real64"}]]; len == BinaryRead[stream, "UnsignedInteger32"]; ]]; Close[stream]
Combine this with a473e15f (comment 13644) to analyse data
SortBy[ Function[{w, i, seed, del}, basis[[ 1 + Floor[Length[basis] Ran2[Range[w], seed]] ]] -> del ] @@@ data, Last ]
Please register or sign in to comment