//This makes a file of N random double values.

Cd(__DIR__);;

U0 F64FileGenTXT(U8 *filename, I64 n)
{
        I64       i;
        CDoc *doc = DocNew(filename);

        DocPrint(doc,"//This is unsorted.\n");
        for (i = 0; i < n; i++)
                DocPrint(doc, "%12.6f\n", Rand);
        DocWrite(doc);
        DocDel(doc);
}
F64FileGenTXT("~/DemoUnsortedF64.DD", 10);

U0 F64FileGenDAT(U8 *filename, I64 n)
{//File/CFile, ::/Demo/Disk/DataBase.CC
        I64  i;
        F64 *a = MAlloc(n * sizeof(F64));

        for (i = 0; i < n; i++)
                a[i] = Rand;
        FileWrite(filename, a, n * sizeof(F64));
        Free(a);
}
F64FileGenDAT("~/DemoUnsortedF64.DATA", 10);