/* Copyright (C) 2010 Fredrik Johansson Copyright (C) 2013 Mike Hansen 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 2.1 of the License, or (at your option) any later version. See . */ #ifdef T #include "templates.h" void TEMPLATE(T, mat_randops) (TEMPLATE(T, mat_t) mat, slong count, flint_rand_t state, const TEMPLATE(T, ctx_t) ctx) { slong c, i, j, k; slong m = mat->r; slong n = mat->c; if (mat->r == 0 || mat->c == 0) return; for (c = 0; c < count; c++) { if (n_randint(state, 2)) { if ((i = n_randint(state, m)) == (j = n_randint(state, m))) continue; if (n_randint(state, 2)) for (k = 0; k < n; k++) TEMPLATE(T, add) (mat->rows[j] + k, mat->rows[j] + k, mat->rows[i] + k, ctx); else for (k = 0; k < n; k++) TEMPLATE(T, sub) (mat->rows[j] + k, mat->rows[j] + k, mat->rows[i] + k, ctx); } else { if ((i = n_randint(state, n)) == (j = n_randint(state, n))) continue; if (n_randint(state, 2)) for (k = 0; k < m; k++) TEMPLATE(T, add) (mat->rows[k] + j, mat->rows[k] + j, mat->rows[k] + i, ctx); else for (k = 0; k < m; k++) TEMPLATE(T, sub) (mat->rows[k] + j, mat->rows[k] + j, mat->rows[k] + i, ctx); } } } #endif