- 注册时间
- 2021-11-19
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 9837
- 在线时间
- 小时
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?欢迎注册
×
- // 计算多项式 x^5 + x + 12 的伽罗瓦群
- P<x> := PolynomialRing(RationalField());
- f := x^5 + x + 12;
- print "Polynomial:", f;
- G := GaloisGroup(f);
- print "Galois group:", G;
- print "Order:", #G;
- print "Isomorphic to:", GroupName(G);
- print "-----------------------------------";
- // 所有子群
- Subs := Subgroups(G);
- print "All subgroups (by order):";
- for sub in Subs do
- print "Order", #sub`subgroup, ":", GroupName(sub`subgroup);
- end for;
- print "-----------------------------------";
- // 正规子群
- NormalSubs := NormalSubgroups(G);
- print "Normal subgroups:";
- for nsub in NormalSubs do
- print "Order", #nsub`subgroup, ":", GroupName(nsub`subgroup);
- end for;
- print "-----------------------------------";
- // 合成列
- Comp := CompositionSeries(G);
- print "Composition series:";
- for i in [1..#Comp] do
- print i, ":", GroupName(Comp[i]);
- end for;
- print "-----------------------------------";
- // 生成元
- print "Generators of Galois group:";
- print Generators(G);
- print "-----------------------------------";
- // 判断是否可解
- print "Is solvable?", IsSolvable(G);
复制代码 |
|