数学建模社区-数学中国
标题:
一些初等函数:
[打印本页]
作者:
lilianjie
时间:
2012-1-11 12:30
标题:
一些初等函数:
:=IntegerRing() ;Z;
8 N# _% b; F3 e
n := -1666666666234567890;
5 Q3 x6 J! T+ Z6 r1 ]
> n;
+ ~& X! M! O/ o& Z/ d6 h
2 n( c( J' Z1 J2 _5 B3 C
> n:Hex; 转16
6 u1 j0 M3 D- L2 S
IntegerToString(n, 2); 转2
( M5 Y' t# G% Z# Q$ O- A
IntegerToString(n, 10); 转10
, C; n1 F5 M, p
IntegerToString(n, 16); 转16
' w" U7 N/ o$ n& V' {
IntegerToString(n, 36); 转36
IntegerToString(n) ;
& k; x/ m8 l5 A
IntegerToString(-0x17213080A7E55CD2);转串
Zero(Z);
& `, N/ R/ b# f
Identity(Z);
7 K) x7 D( [7 T& E4 ]
Representative(Z); 环代表元
7 [6 g6 r7 D; p
Eltseq(n); 取整
: J, {6 r' N2 q( G; o
Eltseq(-0x17213080A7E55CD2) ;
Denominator(n);Denominator(12/13);Denominator(222222/111);
. W0 U. S& M- J" x( J: M6 S3 Z
9 L0 g+ c( B( K# i' Z6 s: o* ]
m := elt< Z | -0x17213080A7E55CD2>;m; 在虚实2次域中进制砖换不变
# |" x! N1 U; _
k := Z ! elt< QuadraticField(3) | -1666666666234567890, 0>;
4 X* c, T" D% B% g* F3 h7 v
> k;
: G# G7 W: E% u
n eq k;
7 M& t" z' Z. ~% T
kk := Z ! elt< QuadraticField(3) | -0x17213080A7E55CD2, 0>;
9 @' o# R! ^/ f: R9 X
> kk;
$ v( X5 d' {9 ^1 E0 Q2 Y; \ F
kk eq k;
/ n: t2 E5 T) H+ v" Y
2 }/ x. ^* b o! Y
k := Z ! elt< QuadraticField(13) | -1666666666234567890, 0>;
+ t! h& G$ q+ e8 A2 ?3 r% l1 R
> k;
( P/ v3 c0 [* s" c7 {- C% U
n eq k;
% v) q. e. n5 Y6 W1 \ q
kk := Z ! elt< QuadraticField(13) | -0x17213080A7E55CD2, 0>;
* f1 W% R7 _1 _! R
> kk;
# T) U6 K: D2 \* L) l6 I
kk eq k;
' x" U4 G o- Z; A
6 W, P- |, q! _, f F
Eltseq(kk) ;Eltseq(-1/14);
& E! d$ p: `) m" M. d- [
# {$ P3 y4 u4 L% H% _* I; d. g, ]0 F
% b% ^; }0 q8 Q' j1 s; Y
5 z4 T+ Z" `8 U4 U
. ~0 Y4 X: a% y E
k := Z ! elt< QuadraticField(-3) | -1666666666234567890, 0>;
n( |- j9 S. H
> k;
9 M7 \( A2 l2 W
n eq k;
] u5 C# E5 x
kk := Z ! elt< QuadraticField(-3) | -0x17213080A7E55CD2, 0>;
+ `+ l6 m: b& |0 P8 K8 X& [
> kk;
( z# g3 E3 s) Z$ p0 \) `# v/ a
kk eq k;
& Z+ i- j9 T& ~. b3 T' q
: L& o$ v* B* r! z& n
k := Z ! elt< QuadraticField(-13) | -1666666666234567890, 0>;
5 M' w' p& @4 K/ j9 ?$ r k8 ?
> k;
% N' I$ i" O/ I5 b2 B0 x
n eq k;
+ q/ E% T# K5 B/ e
kk := Z ! elt< QuadraticField(-13) | -0x17213080A7E55CD2, 0>;
* e8 z6 N. G/ [) Y @2 }2 |% x3 l2 `
> kk;
/ G2 o; T0 i, f* Y S0 A( _
kk eq k;
+ j0 B T: z8 W5 H7 A
+ q1 ^$ X0 l0 N8 R& c) B5 r% b
Eltseq(kk) ;Eltseq(-1/14);
) t0 B: g9 _8 X: [9 X3 B
Q4 _# T0 B& m
# O# `, {' }& U( ?4 y. f
9 \: |- n2 q+ A5 P: P
8 [% }' J- F' b! `4 M+ _
+ K3 W- o: ]- q* T0 [; {
) G R( ^! q0 O
3 P2 J8 r& e- D
& |1 E! |4 {$ K+ f, w
, L, E( e# N6 v9 A( n# \! n) k, j
+ h7 C3 N9 L/ V2 Q$ Y
=============
; I: ]+ P3 i9 l$ Z
( ?$ r2 z' R G1 p2 r( |
+ z0 k m! f# \. P: W+ o- W6 \2 T
, Q) |/ m5 L: E0 t5 n
' G, B9 h% n+ e: D( f# s4 t
Integer Ring
. ~; k' f' @+ q! k
-1666666666234567890
2 O$ R# L3 x% L7 E9 l
-0x17213080A7E55CD2
3 a0 H% o& C* k1 J
-1011100100001001100001000000010100111111001010101110011010010
( N6 O2 I& A9 s! k
-1666666666234567890
; E9 U- k& B5 H
-17213080A7E55CD2
7 `1 a6 Y7 E2 Q
-CNUO0WGPY9CI
% O9 k& K' G. c, e! t1 ^9 U) ]
-1666666666234567890
% }, b4 G( v3 v
-1666666666234567890
9 @: f0 z2 e; s
0
( d* i* W1 @: y" g' z
1
5 n7 {, i7 J( |
0
! z, t5 V9 F, N- s
[ -1666666666234567890 ]
2 f* U; D8 S, A5 q- X+ X' f! s- n
[ -1666666666234567890 ]
2 k, d3 S( V, q
1
0 c3 I" C' B6 m9 k+ C; f' q
13
, Y0 g3 ?& Q+ V# _- g
1
2 h3 Y/ S8 K& v8 U
0 T0 M4 l" H# O3 d7 ~2 J
-1666666666234567890
# A: d c/ W. s, m+ N
true
+ v" G4 ?3 }$ u, w
-1666666666234567890
2 p4 {0 F6 i( _8 V& X: o( T
true
; {. t5 ^# L' _/ n( V" B( O
-1666666666234567890
P& H2 r- i+ q! j7 |" t1 d$ f S
true
' u; A$ b+ D% K' J3 Q- r
-1666666666234567890
. \9 [( k' C/ f! J
true
% e: a0 k. U, s1 r
[ -1666666666234567890 ]
& U) Y/ t1 b* e/ F* ]8 ?/ n7 P. z1 k
[ -1/14 ]
. S" g/ i. s2 V5 q0 R
5 \# F8 m0 @. k1 a" g
7 b' Z& m( e1 `& [
" R4 @( x; M2 r9 P
0 q2 x- L0 [! l. Y
; M9 v w9 s( t& g
9 d5 L ~. @, G. R) j" ^7 Q
* a1 n: F' c" m. v% Q
-1666666666234567890
' r) ^1 l2 X' }, G
-1666666666234567890
" ]9 W! a$ m- O' C
true
8 b, k! U& k4 @
-1666666666234567890
9 V! ]# [1 g2 `1 w- z3 s! j
true
2 q" Z7 `; z( x
-1666666666234567890
+ A: l* z: R2 F, c
true
" I+ z3 f4 }; v
-1666666666234567890
+ s6 a1 [3 W7 [0 \# P& q
true
- ]8 u) w- M$ z
[ -1666666666234567890 ]
3 a+ g' W+ \$ N3 W* k
[ -1/14 ]
8 e7 R9 p/ J+ a0 y8 O7 r4 C
) y7 U2 l/ u. b# A; B& v
作者:
孤寂冷逍遥
时间:
2012-1-11 12:42
作者:
lilianjie
时间:
2012-1-11 12:49
ss:=12345678111;ss;
. q# o1 [; y& N7 G8 E. W0 ]+ x% }! s
s:=0x12345678111;ss;
% E: U+ Z" q7 [6 M) ^* t) S+ g3 y" W
; T& p- {7 F0 o" l% b2 q! f
sss:=Factorization(ss);sss;
9 ^! ?. F3 o5 B* u, h5 U3 \; T* H
sss1:=Factorisation(s);sss1;
" }& i1 D( ~" J& L1 H
FactorizationToInteger(sss);
8 e8 [! \3 [8 e P" p+ P) r
FactorisationToInteger(sss1) ;
+ Q# S! q0 Y n" G
Facint(sss1);
因子分解和还原
ssss:=Intseq(ss, 2);ssss;
5 ` W9 B, J. l% L- T
SequenceToInteger(ssss, 2);
, @# Q: g5 i! O! x3 y" ?% v
ssss:=Intseq(ss, 17);ssss;
$ P. |( S4 V( w; K: q0 t) t" T2 P% ?! w
SequenceToInteger(ssss, 17);
) K4 U; r; C$ B8 m) S5 k( ^; ?
ssss1:=Intseq(s, 17);ssss1;
" V0 V t; d( H) g
SequenceToInteger(ssss1, 17);
转成2和17进制
( Q* C, V# o ], R8 @
L1 Q+ Q( @9 ? r
12345678111
8 T* K( ?( F! m1 x a) n( x
12345678111
# P, ?1 X1 E$ n% A3 d1 t
[ <3, 1>, <13, 1>, <31, 1>, <1447, 1>, <7057, 1> ]
" \4 q/ c7 R8 ~
[ <3, 1>, <83, 1>, <34129, 1>, <147209, 1> ]
; J8 F, \9 j9 A, F8 X4 p) S0 x
12345678111
5 D. r8 Q* J# N4 e3 T
1250999894289
0 J& K6 l& b k
1250999894289
u& |* B% A! P( {- Z5 A
[ 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1,
+ L6 f o+ P2 R
1, 1, 1, 0, 1, 1, 0, 1 ]
1 G5 |' K2 u; p& `* g8 n/ P
12345678111
( _0 `7 g$ w8 E; ~8 [
[ 8, 6, 6, 4, 0, 8, 1, 13, 1 ]
0 H, B: s- z" E+ p
12345678111
7 Y# V1 v) Q/ w p7 m% ]
[ 14, 6, 7, 11, 9, 15, 11, 5, 9, 10 ]
1 x6 K' u2 ~! f; {, k# ]
1250999894289
作者:
lilianjie
时间:
2012-1-11 13:12
本帖最后由 lilianjie 于 2012-1-11 13:31 编辑
, a, X" j# [& a* k( u5 Y- S
( j* i5 G0 w/ @' S' b& F! e+ e# I
Z:=IntegerRing(5) ;Z; 模5等价类环
n := 1666666666234567890;
& J, E& M( L, f9 N N6 k
> n;
7 L8 @, g) ~2 ~% m4 w$ z( G
n1:=Z!1111111111111111111111;n1;
( [# {5 Z. H3 U% O" ^
n2:=Z!11333331111111111111111;n2;
" m7 {, U8 D+ L0 a5 B3 x
) Q: |8 d% k$ Y! \9 j1 m/ Y$ n4 k9 @2 ^
- \/ C* e: Y% m/ d
K:=Z!n1+Z!n2;K;
0 y$ k# E2 l4 U7 h. M
: p+ j4 S1 d3 j% ~' i* O
IsField(Z); 是域吗
Characteristic(Z);环特征
" b7 f8 S1 h _ R, w, z: x
IsFinite(Z);有限环吗
6 J( t! _4 U$ t! U2 q
IsCommutative(Z);可换吗
6 D2 ~5 I4 U% {9 X" P
IsOrdered(Z);有序吗-------应有不过这函数没有这功能
IsEuclideanDomain(Z);欧整环吗------欧环还有非整的。。。。
) [( K* x) Y# l! Z* Y
IsPID(Z) ;主理想整环吗
7 ^" F4 D. _! P
, S% N! m8 g) ]1 M9 y: P
IsUFD(Z) ;唯一分解吗
" L8 J/ m$ t- i5 H Z( x
IsDivisionRing(Z) ;除环吗
- k& m& l- C* r3 }
IsEuclideanRing(Z) ;欧环吗
& h: G3 S3 i0 y0 C: [0 u9 H
IsPrincipalIdealRing(Z) ;主理想整环吗
1 e* B2 w4 Y9 u2 V, I! q
IsDomain(Z) ;整环吗
FieldOfFractions(Z);分式域
; P* f/ t: K+ f1 V" h, g4 v
UnitGroup(Z);单位群
/ V# |8 o6 r- t$ I
MultiplicativeGroup(Z);乘群
; A5 B# g H% {
Category(Z) ;范畴
Parent(Z) ;父环
' O3 W, f( X' i6 D7 E, X* ~
PrimeRing(Z);素环单环和本原环不同
Center(Z) ;中心
: U2 s4 y1 m4 K4 W! F
AdditiveGroup(Z) ;加群-----就第行一特点
ClassGroup(Z) ;类群----------只有Z才有------难懂理想类群更难懂
7 P6 g: Y* M s5 ~! F# t2 F5 c& `
6 D' H2 k4 W5 O5 ?& [
ZZ:=IntegerRing() ;ZZ;
3 K2 K8 i1 e6 C& i
ClassGroup(ZZ) ;
1 o% Z% m2 F. u& ]5 e. A& z
; o, l3 y$ A5 t# x7 L
===========
; E. c6 ]/ V x3 P
6 L& l, f$ n: C1 `" U
Residue class ring of integers modulo 5
9 L: a% z4 P0 x, j0 K+ l1 j5 w
1666666666234567890
# \% T; G* j6 @* r2 d
1
0 C, C/ `# ]& |& C
1
" k. N1 i. w) O+ D
2
- e# H' U7 } t. s
true
P6 _/ e+ S. ] O, l4 b0 v4 y: H4 A
5
! @- {2 x$ {5 o5 |+ S
true 5
! }; \. ~( p' c9 ~4 _1 A
true
* V7 a' w8 \. d1 k
false
3 a0 Y6 @1 x( v% x5 o$ P5 A! R
true
% i3 t- b8 g( f# W! x$ e/ v+ z
true
# O' X7 r7 ^. a" r6 w+ @
true
3 `, ^9 B9 \ _1 D1 W3 V' x7 @
true
' N2 H" w( ]8 A, A( k) h
true
( w4 v% ]3 @0 S5 W3 }0 ?6 H# h
true
3 f6 h. {& o' w7 l$ a/ U5 D9 w
true
& S9 S6 P9 I: h# r |
Residue class ring of integers modulo 5
# R/ h' W c3 E) O1 Q3 r
Abelian Group isomorphic to Z/4
v3 ]2 t7 C* a% r( N8 h
Defined on 1 generator
" _1 \! _/ a7 p8 q
Relations:
4 G. N- i. c) @3 U( ~ n5 J
4*$.1 = 0
- ^5 H1 C; y; q6 p" V3 Z
Abelian Group isomorphic to Z/4
0 O0 j( M* I6 ~, T! R; e2 p
Defined on 1 generator
|2 f- N) t t7 h9 T
Relations:
/ \$ P, {% j( e- {
4*$.1 = 0
$ i1 F. O0 n* O2 c+ t! Q+ m
RngIntRes
! W1 f; e- O% d9 ]
Power Structure of RngIntRes
1 R- U! n7 Z; B
Residue class ring of integers modulo 5
% ^% f% q7 ]) o" i# \5 I
Residue class ring of integers modulo 5
8 @4 @5 O- W+ V, _0 |% Q
Abelian Group isomorphic to Z/5
- h$ w( g: F ^. k
Defined on 1 generator
. L3 r4 C; c. b, @
Relations:
. g% h" [& T! N1 [1 W
5*$.1 = 0
+ t2 `# E" U' k( P! V) e
/ _/ E9 J# D/ X/ z' |7 j, B5 k
>> ClassGroup(Z) ;
% u$ G/ Q) I, x; {( C
^
3 b6 l' U/ I. L) g) u, l, `
Runtime error in 'ClassGroup': Bad argument types
- h: P8 l6 v, A
Argument types given: RngIntRes
) r9 ^8 A4 ?. `; T& a- [: M
* z7 q) Q5 j9 ?2 U
Integer Ring
4 }6 |3 Z+ H6 E# b# c. u! k
Abelian Group of order 1
作者:
lilianjie
时间:
2012-1-11 13:52
Z:=IntegerRing(12) ;Z;
5 M3 @9 ?3 O" \" T. V7 v8 r" b
UnitGroup(Z);
8 r6 x. }3 s) D1 @, N! b+ D& O* ?: l
MultiplicativeGroup(Z);
% u. F6 b7 U3 ~5 s5 U
Category(Z) ;
* ?) ^3 E8 |7 p/ G2 g1 l
PrimeRing(Z);
! t+ ^0 N' a% n
AdditiveGroup(Z) ;
7 E( L" o& ^! ?, _7 d% s+ Q5 N
5 L1 [, g7 P5 Z. a2 K) l9 N7 p
Z:=IntegerRing(13) ;Z;
2 J( x. \2 ]8 D2 c: X2 }
UnitGroup(Z);
) D0 _( ]( X4 h& [4 s
MultiplicativeGroup(Z);
$ e g* j" |% b! H
Category(Z) ;
, P( w+ C+ ^. m
PrimeRing(Z);
. c2 ]6 R" M- S1 H% w# H5 f, D
AdditiveGroup(Z) ;
! l4 g+ w9 C ^
$ m& i# n+ F" m; o& `" q1 N
( X+ A! e9 ^4 s/ t% [1 l
, F1 x* p4 R: R
Residue class ring of integers modulo 12
* G' j) d5 d$ `! M5 }7 X
Abelian Group isomorphic to Z/2 + Z/2
1 K% k" K* r5 M) U: c4 i& p. A
Defined on 2 generators
% a" F; t" t9 {' y2 @
Relations:
4 n" L* A" h; b# z9 X3 C" S0 W1 t
2*$.1 = 0
- F# u, d) M+ a0 W0 [" P3 ?
2*$.2 = 0
6 M& B; E# |" s/ R
Abelian Group isomorphic to Z/2 + Z/2非素数环的乘群同构两个小群的直积(1*11 5*7)
Defined on 2 generators
. ~0 W* ~& z( H+ [& l( q
Relations:
2*$.1 = 0
- w. n- X1 M# W g& _5 n
2*$.2 = 0
, O7 Z" R: O& b) q! ~
RngIntRes
" h* h5 R" R2 f! {
Residue class ring of integers modulo 12
+ j: U2 x0 L% H- m1 r( y
Abelian Group isomorphic to Z/12
3 `, ?$ S* U4 J: t B2 I
Defined on 1 generator
. [+ U7 S+ f3 Q* L( }& `4 V0 ^
Relations:
* [9 ?5 Z6 @7 M4 w8 Y) t
12*$.1 = 0
% s& o b2 d3 t5 P3 A
Residue class ring of integers modulo 13
m" i$ M2 v- k
Abelian Group isomorphic to Z/12
: Z0 d' T5 [0 q# q/ B
Defined on 1 generator
3 `$ _7 E# s8 p% y9 V. S+ Z
Relations:
. ~3 Z6 k G6 x v. f
12*$.1 = 0
6 }0 E, R2 e' g3 I, b$ j
Abelian Group isomorphic to Z/12
素数环的乘群同构Z13-1=Z12
Defined on 1 generator
: p1 l$ c1 j# ~" N6 B% A, g
Relations:
0 u `4 Q: {/ K) q( x" v
12*$.1 = 0
0 ?9 \! @7 L9 y) I i
RngIntRes
+ s$ h* F, |' f# k/ ]- i; G
Residue class ring of integers modulo 13
S, c8 O# C' B
Abelian Group isomorphic to Z/13
; F8 G3 V$ R7 {+ Z
Defined on 1 generator
: S6 [3 C' x3 S! ]9 I
Relations:
% J, F/ B1 w ?2 j3 F7 z# K
13*$.1 = 0
作者:
lilianjie
时间:
2012-1-11 14:24
本帖最后由 lilianjie 于 2012-1-11 14:25 编辑
: m% u( Y& D! w* l( b" q5 Y
# f# `7 t6 u) S9 b
Z:=IntegerRing() ;Z;
8 Z; V+ y: U' V; J% Q
0 [+ X% n2 C/ S4 ]! m/ c
R:=IntegerRing(12) ;R;
& i$ _ F, c; h; {( t/ p
S:=IntegerRing(13) ;S;
6 @! c( ~/ c( c* V2 A. E0 r5 \
% d8 D: C* M8 N9 T" S5 ^
9 e+ X8 p1 H# m( P2 Q1 G4 g {
PrimeRing(R) ;
1 E# T2 I( b/ g4 v* c; L1 i' D
Centre(R) ;
M% M1 X5 I7 f; l3 J4 }/ p
3 ~% @6 o/ I% }2 J t! t
Characteristic(R) ;
) `$ h5 f! E" P4 T( n
# R ;阶----元素数
7 L+ C; `# i& {) S' e, G) O
IsPID(R) ;
非素数不是整环不是极大理想整环,但都有极大理想公因
子
IsDomain(R) ;
' A. G6 y) p3 b* |# N
Has**(R) ;
0 N! R# u; P0 N% \0 R
9 b) j& w) g( C. g/ G8 Q
IsPID(S) ;
; J) t5 k- w- u5 ]/ ? y
IsDomain(S) ;
/ ?! `! }6 H1 |. L
Has**(S) ;
7 l' d& {: y# B. c" S Y
R eq S ;
( m1 v7 t, ~! A& g% ^# j
R ne S ;
0 B0 X" I1 k) j. Y; j# f2 m
: `) x! b. Z/ \
Parent(R!123)
arent(S!123) ;
0 k2 U% y* Y. N$ O0 q
Category(R!234) ;Category(S!234) ;
, F' \% _, o3 Z/ j/ |3 y
$ ^4 U: k. E1 q$ n
a:=Random(R) ;a;b:=Random(S) ;b;
2 i" V) q1 i& o8 e
Representative(R) ;
& W" p( U7 h( |( ^
Representative(S) ;
" q" q) V+ m: ?. Q6 d
6 m, T; N/ ~2 r+ m$ R1 b: M5 e
(R!a) in R ;
; y( L9 h0 e# z4 G9 K: K7 ~
(S!b) notin S ;
9 s9 }" |. M( `% ^
IsUnit(a) ; 是单位吗
% r9 o8 h8 o6 Z3 e- ~
IsIdempotent(a) ;是幂等元吗
Z+ e8 }# E) T9 E7 J
IsNilpotent(b) ;是幂零元吗
7 j, B( F0 e( y4 f3 [. ` _$ V# ^; f$ A: Y
IsZeroDivisor(a) ;可除零吗
6 Z% V6 a5 K" X" n, g. y6 Z: _ F
IsIrreducible(Z!b) ; 可约吗
IsPrime(Z!a) ;
( l- I" k( Z% G# y/ j$ A6 \# \+ {1 X
8 m' W5 @4 a j" k& p# R6 }6 K
Z!a gt Z!b ;
4 ?! z" Q# X5 a7 v. U
Z!a ge Z!b ;
4 ?( \2 f6 I4 a2 W$ b* i+ \
Z!a lt Z!b ;
3 U8 a3 F4 s+ F$ c) m
Z!a le Z!b ;只有同类环才可比较元素大小,
Maximum(Z!a, Z!b) ;
, K' x' S6 n) w; q8 N
Minimum(Z) ;
5 n3 g0 l3 x% H, E1 y
: X( a$ f5 n- y) ^4 G% o
Maximum(S) ;
t7 a: c, S- \3 L
Minimum(Z!a, Z!b) ;
* Z% _2 M& \) ^
Minimum(R) ;
2 _+ ?0 Z2 G2 D0 Z2 Y
, r9 T7 D1 u. B0 G; T
~, t% b' g+ ^/ @
) \& j( J9 R9 Q( O$ e" O
Integer Ring
3 n7 v$ u7 g" b
Residue class ring of integers modulo 12
9 f) i% s' D5 Z5 I. i! V
Residue class ring of integers modulo 13
. r* K" t; r* d. h6 F# S* X
Residue class ring of integers modulo 12
A7 h- m4 w8 B- x0 j o5 _5 y
Residue class ring of integers modulo 12
# J4 l" Q" Z7 |. b8 y F
12
" k, U- v6 A, |6 M
12
6 {1 M( C$ |2 ^
false
6 ^( e' h, _) h& F! o
false
0 E9 R5 J8 K8 n. \$ h& u
true
+ X: B( R0 C0 o0 d, [7 \4 w3 D0 {
true
( F# u* p# P3 j& Z$ c, g
true
* O2 h: \; ^8 R4 `( ~+ E5 S( a) b
true
_8 L; s9 O/ o+ H1 v
false
, [$ V. R) {$ e- D+ [. R) g1 \
true
# M+ h) U/ F7 q' m. S
Residue class ring of integers modulo 12
) x: N3 q! b, L* w6 F) O2 G0 `
Residue class ring of integers modulo 13
. ^+ g5 V, f9 W6 n8 X3 L, L+ R1 a& d
RngIntResElt
* x! S# C0 h5 K: |7 m: U5 ?4 A
RngIntResElt
# T, r5 W% K1 @! f
9
% N0 x* m' G5 R$ q6 n$ v
12
?+ t7 f* x( r& A8 _
0
* R8 o( V* J1 f2 x9 H: V
0
, \. C9 i$ n5 b$ [! N+ T. J
true
; n, d8 [1 h0 e. S$ z
false
2 y8 R+ [! V$ w" A. o2 s) [9 f
false
" P5 y" k! s' p q, L( a: T
true
: [0 v1 h( ?8 |7 m
false
$ E! u! r5 n; ?2 {
true
) Q' a. v) I1 C* b% B; \; C* X
false
) f+ r, k: d2 S* i( ?) e y
false
7 L2 P% Q( }9 N% g6 f; u, |
false
) \/ V" U* o9 z* f
false
* c% F# t4 w# e
true
# \7 Q% [3 G; b4 x0 W9 }
true
5 z. j( Q7 f2 [# p
12
7 c" t; w9 }+ Q8 Z1 ?3 ?3 O& }. l# i
1
; T* K1 w! V3 K- v. \! ^$ p
2 g9 l+ |8 A5 W p+ `! r7 W
>> Maximum(S) ;
8 t" K- j; X) s* X8 ?
^
D4 O9 T I9 o9 T+ V; v! _
Runtime error in 'Maximum': Bad argument types
+ C6 l2 ?+ N! }2 j
Argument types given: RngIntRes
8 e, o4 x- u- J/ C9 q7 w$ m
, S8 r% C, O. K7 R0 M5 A, _6 K p
9
& N5 A# l* o, i6 E( d. W) W
$ |( _) ]6 I; [$ y( }5 D; `0 [
>> Minimum(R) ;
& z/ ^* s* ~# t3 A7 _
^
/ M# D7 l+ x9 M" [) o! @9 X: ~
Runtime error in 'Minimum': Bad argument types
9 }8 B$ X7 a' ^8 u3 ]3 P! m9 {
Argument types given: RngIntRes
作者:
lilianjie1
时间:
2012-1-11 15:48
本帖最后由 lilianjie1 于 2012-1-11 15:56 编辑
3 K7 V& P1 ?+ j5 L8 j, k) ~
5 }5 T- V/ l2 L D' @/ _! e
Z:=IntegerRing() ;Z;
1 n: Z4 i$ M. }4 X2 ?. C
I12:=ideal< Z | 12 >;
: C* Z O, M* Z; n( c4 C
I12;
7 b& n: ]# c9 I
ZZ:=IntegerRing(15) ;ZZ;
( H8 l$ o/ ^8 B% L+ C* _( A" h
IZZ15:=ideal< Z | 15 >;
( K4 w/ a! Z: Y2 |3 d; k
IZZ15;
) M& N/ D7 m" f7 T5 @
I12 eq IZZ15;
$ M" I; `9 r; l4 @
Q1:=quo< Z | 12 >;Q1;
; n/ ]( ^# @- t1 b2 F
ZZZ:=IntegerRing(5) ;ZZ;
" V: V! s! L ]; q \( b+ p
IZZZ5:=ideal< Z | 5 >;
0 F, L8 G! Q. S+ N k2 C- }1 Q
IZZZ5;
/ M# w. Q p6 R& p% ^
# [0 q/ g7 {$ R5 u( }5 i
I12 * IZZ15; 理想和/积/并/交,
% i2 Y1 j8 b* N3 l2 B. m
理想和是理想对应两(可多个)元素加,
, e, J4 T' Q8 Y! a5 T0 j* Z
理想积是两理想(可多个)对应元素积,
# x. Y3 l# O. T5 w5 x4 }2 l
理想并就两(可多个)理想元素并,就不一定还是理想,
; a0 `: Q6 w/ l: O$ y+ |
理想交是理想(可多个)元素交,理想交一定还是理想,
+ s) ]% C) Z. m/ j& t
7 x* g. M. f3 W
理想积是理想交的真子集,极大理想交是理想------J根
% B5 m5 M+ \, Z+ {7 u! t5 W5 j1 ^
理想商就理想间同态:是必须能整除
/ B n; @7 f3 `) v* Y( B
I12 + IZZ15;
* ?7 V, v% s( U! _
I12 meet IZZ15;
5 A; i1 g/ ^4 j" X) D, f& t( _+ D
F' j4 P9 C- }* z. \; C
I12 * IZZZ5;
4 B; f# @- t2 w+ ?; e, `6 V
I12 + IZZZ5;
& C' u( I: k1 D" t u
I12 meet IZZZ5;
9 x% Y/ c7 j, _) h W
I12 / IZZZ5;
5 r" G$ n% U- x2 W: z7 Z' {$ z8 w
IZZZ5/ I12 ;
* c* s7 l1 m M7 _ M$ b
Z * IZZZ5;
3 A) g2 m" p- `0 P: S
I12 + IZZZ5;
6 \" P* l' N7 E* h
IZZ15 meet IZZZ5;
7 W. \% K3 A1 j; I( |+ ^! k' b/ g
IZZ15 / IZZZ5;Z meet IZZZ5;
' e8 J p7 {" _' F
I12 meet IZZZ5;
% f4 l) I+ ~9 A! k% c
IZZ15 meet IZZZ5;
; K# ?1 Q, T& |0 l+ `
IZZ15 / IZZZ5;
) J/ H- Q8 r+ M, z) g/ L ?; f; T! b
# O X3 z9 C9 H" u" j* ?* j6 d* j
I12 subset IZZZ5;
运算后的各种理想互相是否包含
IZZ15 subset IZZZ5;
% B% h- K/ L8 E u9 L
IZZ15 subset IZZZ5;
6 d7 x0 o7 Z6 p
IZZZ5 subset IZZ15;
6 f$ o V; d0 R5 W i, g
Integer Ring
/ s; T; h. v1 `
Ideal of Integer Ring generated by 12
) q% u3 Q% A, q
Residue class ring of integers modulo 15
! s6 H. y" m3 R7 v' K( J w3 l
Ideal of Integer Ring generated by 15
, ~! P1 Z" K& c X% t5 u: L1 G8 n/ e7 F. `
false
( I* b& x- J6 Z
Residue class ring of integers modulo 12
! ~. r& q9 F8 e3 d6 v
Residue class ring of integers modulo 15
, i( O, c* [) s1 {" j
Ideal of Integer Ring generated by 5
' q6 c# G! B2 L3 T: i
Ideal of Integer Ring generated by 180
( w4 _$ n3 P& O/ _7 B8 }$ |3 l
Ideal of Integer Ring generated by 3
[, s9 }0 S+ U
Ideal of Integer Ring generated by 60
5 x, |' C7 n. l" L m
Ideal of Integer Ring generated by 60
1 a" M& R) Z% k; l% E$ U8 q- T7 I
Integer Ring
+ R* x# \( g( x$ g. Y" X- E
Ideal of Integer Ring generated by 60
) _9 e9 L$ F U- f' E
u% E4 Q/ O8 N% T1 C
>> I12 / IZZZ5;
. m+ _ Z( ` W0 {; z6 S8 s
^
* h' m5 q0 t- g' b( M
Runtime error in '/': Argument 2 must divide argument 1.
+ N/ I, M: T& U6 S' C+ n
8 k2 E, x4 C; }/ S' E- A
+ M* D) Y8 S- `4 t f( f
>> IZZZ5/ I12 ;
' ^; @9 X9 a1 o, P3 C; a
^
4 C/ u( a) |( p! ^) J
Runtime error in '/': Argument 2 must divide argument 1.
+ e. V1 ^# ?7 C* \1 f$ f$ Z0 w5 r
& P. u: n7 d' d9 Y8 e) X5 q8 B
Ideal of Integer Ring generated by 5
\9 s& o* e1 Q' V3 q" ^: T
Integer Ring
$ M$ e' F$ }" p) n0 U( R
Ideal of Integer Ring generated by 15
: C% v* @" W* h! z8 T e( Y
Ideal of Integer Ring generated by 3
( A/ D" s; K* S5 N
Mapping from: Ideal of Integer Ring generated by 3 to RngInt: Z
8 z( @- Q* I3 l7 C6 x
Ideal of Integer Ring generated by 5
! v0 {8 E, i# c
Ideal of Integer Ring generated by 60
+ ]" z4 e: O7 }5 w
Ideal of Integer Ring generated by 15
( y5 @ |* L' B# b7 M9 ?
Ideal of Integer Ring generated by 3
6 ~% O% ?1 ~. \6 a" Z/ x
Mapping from: Ideal of Integer Ring generated by 3 to RngInt: Z
+ K/ l/ u' _$ |$ a) _
( N1 r. b5 N6 N4 F# G9 i, T/ {
false
3 J! c9 p( Z Z: t4 U
true
( Q+ v( @4 M v5 y8 }
true
9 g3 R9 X' b% ?5 P( b1 e; z
false
作者:
lilianjie1
时间:
2012-1-11 16:39
Z:=IntegerRing() ;Z;
. K, G; F [# b, J! _& I! V4 [
I12:=ideal< Z | 13 >;
+ O$ a$ Z' {7 E6 T8 r
I12;
: i* m& E( N' z* U3 d3 X2 G
ZZ:=IntegerRing(60) ;ZZ;
4 _% q1 D# a, r! G
IZZ15:=ideal< ZZ | 31 >;
0 U2 f# L6 a; p/ c; p* O, g9 O
IZZ15;
: F) t: M& ^; I, K$ Z1 A" c
ResidueClassField(I12);
2 j! e3 |8 z& e/ D
ResidueClassField(IZZ15);
环和极大理想的商构成域---剩余类域,剩余类环中的素数都是极大理想
! o. }6 x, w1 d( N4 ^
loc< Z | 19> ;
9 o2 d( i4 ` b% C7 p. n
loc< Z | 17> ;
1 e0 E& t7 s) `9 T+ V8 y$ R
loc< Z | 131> ;局部化:一个素理想到原环元素的映射
3 }' ^9 I" d* z5 Z% Z. p
ext< Z | > ;超越扩张到一元多项式
6 j9 T9 D; |* q
ext< ZZ | > ;
6 [/ Z: P; S& r' k( \
- ^* o; U3 j: V8 _/ I
ext< Z, 2 | > ;超越扩张到多元多项式
' q/ e' `% b7 W
7 T% X7 \/ c* ]3 w) P& J
ext< Z, 3 | >
Completion(Z, I12) ;
5 U4 b- K2 ]0 C9 K4 H
9 ?7 C( j: q* Z/ J# x& b3 u' y
! i4 R$ }. v8 {9 b. `! r" A0 t0 s
comp<Z |I12 >;
3 V4 A5 w: h3 ^ b* E
素理想零理想完备化,和P进环联系起来
- `( s& ~, b7 F+ }" P
Completion(Z, 0) ;
H* |2 T( U: m7 @+ k: ^5 j% P
comp<Z |0 >;
$ O8 M# v( ?! _; {7 ]" j- @
1 j2 S3 h0 Y' j x
Integer Ring
/ j: _% B% ]! c
Ideal of Integer Ring generated by 13
8 G. m: ]4 h* b: T
Residue class ring of integers modulo 60
/ v5 a& V- Y& c& O
Residue class ring of integers modulo 60
/ }' Q( o1 | J" M3 p z
Finite field of size 13
, d7 Q. B1 `2 x6 s; F; l5 [
Mapping from: RngInt: Z to GF(13)
# |# [, D/ i1 D5 T7 Y. \
modulo 13
9 J( a8 O/ @$ B0 ^2 N
4 k0 e3 D; e& M, Q1 f7 a9 d' I
>> ResidueClassField(IZZ15);
; a2 ]) R: ?% g2 R' Y
^
8 m* ]# `( Q' ~0 k
Runtime error in 'ResidueClassField': Bad argument types
$ J/ Q% I) _" ]3 a7 P) ~
Argument types given: RngIntRes
6 C; G4 ^; \4 S/ E% D4 j
* e# |1 D0 x; z1 F; D
Valuation ring of Rational Field with generator 19
y0 W, V4 x0 J$ ^
Mapping from: RngInt: Z to Valuation ring of Rational Field with generator 19
# `1 \; U+ I2 P4 Y% c' c
Valuation ring of Rational Field with generator 17
( i9 R* u: p3 F9 V- }9 s
Mapping from: RngInt: Z to Valuation ring of Rational Field with generator 17
0 Q' x" i8 ^5 Q& r1 h+ Y5 h6 U( y; I
Valuation ring of Rational Field with generator 131
* `8 h4 B s$ J8 H- {
Mapping from: RngInt: Z to Valuation ring of Rational Field with generator 131
- }0 Y, J" p9 W: F2 s* t9 l
Univariate Polynomial Ring over Integer Ring
! |+ K& f, z! v5 D5 O
Univariate Polynomial Ring over IntegerRing(60)
" D+ H1 z |$ q, F# c0 a
1 \, _' C: E" }" f# e% T
>> ext< Z, 2 | > ;
* Y: i6 |4 ~5 `1 A
^
" g# S' y9 R1 d0 R
Runtime error: This constructer is no longer supported
& X& B, y( G! @5 K# W$ q
; X! C" r5 U2 C
1 D; a/ q* w& f, i: y/ @9 Q
>> ext< Z, 3 | >
% L3 J0 E! N8 T) {# K' f- M
^
" H1 v1 |; h K2 Q4 b2 P, H6 U
Runtime error: This constructer is no longer supported
- \% s( N1 l1 u" D
& K3 y. Y- O* a5 k3 [
13-adic ring
/ e2 S1 P! r5 \# W q. V( `$ g$ [& T
Mapping from: RngInt: Z to pAdicRing(13)
$ ?% e( ~% r3 n7 s1 d8 D* n! J. s
. Y {" x5 L/ |, f7 {! B+ k
Completion(
- s" f& J$ i0 N
Z: Integer Ring,
. ^3 o2 u1 i1 n$ \1 g) T3 N
P: Ideal of Integer Ring generated by 0
$ G: x! O9 V; ~: N2 L% N( u+ M
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5