Read("discreta.g");
label := compose_group("PGGL 2 32");
g_label := label[1];
g_label_tex := label[2];
dl := calc_delta_lambda(33, 5, 6);
km := compute_KM(g_label, 5, 6);
par := get_vtk(km);
do_LLL(km, 12);

get_solutions_from_solver(km, 12);
M := get_KM_matrix(km, 5, 6);
P := get_plesken_matrix(km, 5, 6);
P1 := get_plesken_matrix_with_inverse(km, 5, 6);
Sel := [0,1,2,3,4,5,6,7,8,9,10,11,12];
Sel1 := [0,1,2];
Sel2 := [3,4,5,6,7,8,9,10,11,12];
V := get_intersection_matrix_Iknn(km, "0");
VV := V[4];
W := get_intersection_matrix_Iknm(km, "1");
I1 := block_intersection_type(O, 1, VV, 0, 5, ol);
I2 := block_intersection_type_decomposed(O, 1, VV, 0, 5, ol);
g := get_generators(km);
gg := Group(g, g[1]^0);
Size(gg);
orb := get_orbit_representatives(km);
so := get_stabilizer_orders(km);
no := get_number_of_solutions(km, 12);
s := get_solutions(km, 12, 1, no);
O := design_orbits(s[1]);
ol := calc_orbit_length(so[7], gg);

Back to the DISCRETA homepage
Back to the DISCRETA-GAP interface
Last updated: July 26, 1999, Evi Haberberger