flint-sys 0.9.0

Bindings to the FLINT C library
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115

/*
    Copyright (C) 2011 Andy Novocin
    Copyright (C) 2016 William Hart
    Copyright (C) 2024 Fredrik Johansson

    This file is part of FLINT.

    FLINT is free software: you can redistribute it and/or modify it under
    the terms of the GNU Lesser General Public License (LGPL) as published
    by the Free Software Foundation; either version 3 of the License, or
    (at your option) any later version.  See <https://www.gnu.org/licenses/>.
*/

#include <string.h>
#include "fmpz_poly.h"
#include "fmpz_poly_factor.h"
#include "profiler.h"

/* assume that the user runs the program from the base directory
   of the flint repo */
#define MY_DIR "src/fmpz_poly_factor/profile/"

void factor_poly(const char * file_str, const char * name, slong wanted_factors)
{
    FILE * file;
    fmpz_poly_t f;
    fmpz_poly_factor_t fac;
    struct timeval start, stop;
    ulong ms;

    fmpz_poly_init(f);

    if (!strcmp(name, "S7"))
        fmpz_poly_swinnerton_dyer(f, 7);
    else if (!strcmp(name, "S8"))
        fmpz_poly_swinnerton_dyer(f, 8);
    else if (!strcmp(name, "S9"))
        fmpz_poly_swinnerton_dyer(f, 9);
    else if (!strcmp(name, "S10"))
        fmpz_poly_swinnerton_dyer(f, 10);
    else if (!strcmp(name, "P7*M12_5") || !strcmp(name, "P7*M12_6"))
    {
        fmpz_poly_t g;
        fmpz_poly_init(g);
        file = fopen(MY_DIR"P7_flint", "rw");
        fmpz_poly_fread(file, g);
        fclose(file);
        file = fopen((!strcmp(name, "P7*M12_5") ? MY_DIR"M12_5_flint" : MY_DIR"M12_6_flint"), "rw");
        fmpz_poly_fread(file, f);
        fclose(file);
        fmpz_poly_mul(f, f, g);
        fmpz_poly_clear(g);
    }
    else
    {
        file = fopen(file_str, "rw");
        fmpz_poly_fread(file, f);
        fclose(file);
    }

    fmpz_poly_factor_init(fac);

    gettimeofday(&start, NULL);
    fmpz_poly_factor(fac, f);
    gettimeofday(&stop, NULL);
    ms = (stop.tv_sec - start.tv_sec)*1000 + (stop.tv_usec - start.tv_usec) / 1000;

    flint_printf("%s has %wd factors: %ld ms\n", name, fac->num, ms);

    if (fac->num != wanted_factors)
    {
        flint_printf("FAIL: expected %wd factors\n", wanted_factors);
        flint_abort();
    }

    fmpz_poly_factor_clear(fac);

    fmpz_poly_clear(f);
}

int main(int argc, char *argv[])
{
    flint_printf("\n");
    flint_set_num_threads(8);
    factor_poly(MY_DIR"P1_flint", "P1", 36);
    factor_poly(MY_DIR"P2_flint", "P2", 12);
    factor_poly(MY_DIR"P3_flint", "P3", 16);
    factor_poly(MY_DIR"P4_flint", "P4", 2);
    factor_poly(MY_DIR"P5_flint", "P5", 1);
    factor_poly(MY_DIR"P6_flint", "P6", 6);
    factor_poly(MY_DIR"P7_flint", "P7", 1);
    factor_poly(MY_DIR"P8_flint", "P8", 1);
    factor_poly(MY_DIR"M12_5_flint", "M12_5", 1);
    factor_poly(MY_DIR"M12_6_flint", "M12_6", 2);
    factor_poly(MY_DIR"T1_flint", "T1", 2);
    factor_poly(MY_DIR"T2_flint", "T2", 2);
    factor_poly(MY_DIR"T3_flint", "T3", 4);
    factor_poly(MY_DIR"H1_flint", "H1", 28);
    factor_poly(MY_DIR"S7_flint", "S7", 1);
    factor_poly(MY_DIR"S8_flint", "S8", 1);
    factor_poly(MY_DIR"C1_flint", "C1", 32);

    /* Not run by default because they are too slow currently */
    if (argc > 1 && !strcmp(argv[1], "-hard"))
    {
        factor_poly(MY_DIR"P7_M12_5_flint", "P7*M12_5", 2);     /*  51 seconds */
        factor_poly(MY_DIR"P7_M12_6_flint", "P7*M12_6", 3);     /*  96 seconds */
        factor_poly(MY_DIR"H2_flint", "H2", 6);     /*  71 seconds */
        factor_poly(MY_DIR"S9_flint", "S9", 1);     /*  57 seconds */
        factor_poly(MY_DIR"S10_flint", "S10", 1);   /* 6300 seconds */
    }

    return 0;
}