A Typical DISCRETA-GAP session
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