数学建模社区-数学中国

标题: 一些初等函数: [打印本页]

作者: lilianjie    时间: 2012-1-11 12:30
标题: 一些初等函数:
:=IntegerRing() ;Z;$ m0 w0 Y! W+ `; j; i1 m
n := -1666666666234567890;1 H: B4 ^6 H# [
> n;! C' |# |, q9 g+ d2 e' ]1 t* `
- `. M2 K8 v( S/ Q
> n:Hex;                           转16
" k; L7 L* C" _6 q4 J( z9 GIntegerToString(n, 2);        转2; a/ O3 z  e) R( F8 v
IntegerToString(n, 10);       转10+ A& o/ q' x* t: Y7 L' T
IntegerToString(n, 16);        转161 |9 U! z6 E- H. z; @0 Z2 d- R  I
IntegerToString(n, 36);         转36
IntegerToString(n) ;; P1 a6 B7 x* K
IntegerToString(-0x17213080A7E55CD2);转串Zero(Z);
/ I! Y: N6 b9 W0 ~% RIdentity(Z);                   & d' }8 U  k; m4 B/ M
Representative(Z);         环代表元( `0 Y) B. w3 J! [/ v8 |6 K3 p
Eltseq(n);                        取整$ R# n$ t/ [5 n9 B6 i
Eltseq(-0x17213080A7E55CD2) ;
Denominator(n);Denominator(12/13);Denominator(222222/111);
7 g% s! e' K: }  w2 N' r! z! v1 g
9 K% |0 N6 l1 X' ym := elt< Z |  -0x17213080A7E55CD2>;m;         在虚实2次域中进制砖换不变
3 }/ w2 _" e4 [3 z$ X8 d5 Ok := Z ! elt< QuadraticField(3) | -1666666666234567890, 0>;. s: e' E- w9 @; ?$ g1 u% q0 N
> k;
. t5 s. M+ A3 C' }. R2 z7 An eq k;
: J" i7 l+ Z' [/ ]/ \" h* skk := Z ! elt< QuadraticField(3) | -0x17213080A7E55CD2, 0>;
9 ^& f4 y, E( F" _2 s& ]: X0 r> kk;
5 [: a7 b0 q- q2 E& ekk eq k;
- O4 l8 K& }( _& l# T; i: ?. N( {' E  N0 x- i3 c& V/ ?) C
k := Z ! elt< QuadraticField(13) | -1666666666234567890, 0>;
8 a3 o7 p/ u3 [4 t> k;
6 u) s1 @- |4 I; A7 Gn eq k;
- V0 M8 ]5 C, C& b# [! l7 jkk := Z ! elt< QuadraticField(13) | -0x17213080A7E55CD2, 0>;
: o& W4 t, f% O* L$ Z; H3 o> kk;( w# Y" M; `" [- i$ a" `/ z( P5 y
kk eq k;- t$ r) Q& O1 y
* }3 G/ S1 ~! }; |0 P% b
Eltseq(kk) ;Eltseq(-1/14);
$ V* L' `; k3 D4 O2 G
: w) J! I1 G& a6 x1 ]

7 z" ]5 A+ O6 m- ~! x3 J8 i. s2 X; l
! E  F+ Q# T2 n7 d/ L: m( A* a3 j0 C% u# g* X
k := Z ! elt< QuadraticField(-3) | -1666666666234567890, 0>;5 r- F# F/ @/ B( t' P% m4 H  H/ @
> k;
  y+ D4 b2 V) |9 Y/ k6 x6 wn eq k;% \  S/ R! g! h- W
kk := Z ! elt< QuadraticField(-3) | -0x17213080A7E55CD2, 0>;$ i: |- ?8 k2 J
> kk;
$ o' u4 D6 v2 T7 A, D: |kk eq k;# ?, S. _2 v5 \) Q1 H

) F* x# b- ?" k* Z8 e1 Ok := Z ! elt< QuadraticField(-13) | -1666666666234567890, 0>;% S5 k* `+ ?" m, k6 ~" n
> k;
* Z2 i; h7 I- _: A0 @4 w: |n eq k;+ c6 C( E' \  ^3 Q9 P# M2 R
kk := Z ! elt< QuadraticField(-13) | -0x17213080A7E55CD2, 0>;
$ t. D% N1 q; j+ P> kk;
# z* a2 P) R$ G( E# m$ q6 |1 w4 }kk eq k;  A" y  ]1 l9 l: i
: I2 F3 ^$ ?6 N! ?9 d
Eltseq(kk) ;Eltseq(-1/14);5 Y/ k* |5 M" x! x
+ F# `) g+ U( M5 B

& K4 d5 _- G6 n. s' Y3 W$ a) g$ T; Z5 N& R
6 Y6 x1 ]; y  o* ~) k' l, g

  F* |, x1 Q" G8 H; i! B' g' \1 T
; V' k7 U' l9 X1 V
  ~8 V( @( a; D0 E$ c% X4 F0 v  I) M/ f* |6 M3 E5 P7 g) A7 r9 b
. l: G! A( F7 u7 Y$ M% I

% M& \4 n8 Q, q: X4 A9 S8 s=============4 I  Q% x9 L% y" E& p

2 A! A; V5 b8 N& t, N: u2 w6 q# w& r) }2 s6 J. W
7 [& A5 Y6 g+ Q8 W, a0 [# k7 E

! u. ?! h; [4 P9 k* pInteger Ring$ E$ [' {0 o% o6 ?" D. Z  o/ J0 o
-1666666666234567890+ B. c4 b) `3 t& }/ _
-0x17213080A7E55CD2
  E3 t" A; ^% X* Z) ~" m$ X( j-10111001000010011000010000000101001111110010101011100110100100 w3 A5 k2 \9 r  p
-1666666666234567890
& j8 ]" ~7 v" x+ F" }# M-17213080A7E55CD29 V* n5 S! P% ?
-CNUO0WGPY9CI! Z+ x# I' d" U  O- e& U) [$ s
-1666666666234567890, l1 b' E" O( n) b# n6 w
-1666666666234567890! G: o) S+ |0 ~2 Z) \2 t# {
07 o0 T% D' A; G) U
1
8 ~# @& j. V0 Z! r2 t  Y6 _8 _' {0
1 N$ i% K, H! P1 D8 d7 D) L5 g$ b- k  d[ -1666666666234567890 ]
3 s' V7 `: Z# V3 J- O[ -1666666666234567890 ]
' F2 L/ r: q) _- D1
# p4 r7 B5 t) ?2 w130 G% W. c3 j6 q
1
2 T3 g9 q# C/ Z7 E( U6 r
1 H+ L! ~5 x/ p; ^8 [2 a7 g-1666666666234567890
* @: F/ f7 |' z% R# K7 Ctrue3 b4 T2 P# E7 S$ r, v1 O. s
-1666666666234567890# \0 ^$ H& \3 p- g: e; `& A
true
2 x7 |: N0 \# `, ^: v( @-16666666662345678900 q+ i* |+ ?% I; i6 v
true  s1 U/ H: I1 s( E4 n
-1666666666234567890
$ R4 ^- Z5 ~  d) _& a2 m4 j1 D' Qtrue- F$ C4 X6 H1 Q& G, K9 I- N
[ -1666666666234567890 ]" g( v7 Z! T, f% D- z; n$ u  P
[ -1/14 ]$ v: j& S2 J8 D
5 o1 C7 U0 o4 P( r+ E

* ]# {& b- j( e2 B8 S- q% C0 y5 [' M; f* y

* q4 T# ?$ p! l8 s! o2 E9 M+ z
3 E, }3 V; J  ]7 t
$ s8 l6 R' Q% `' v1 N2 J
0 Y* Y! Y. w1 K8 f-1666666666234567890
$ Z% R0 t5 Y  j" U-16666666662345678901 s* R7 O! V( Y* L
true7 Y3 v$ b0 `8 S
-1666666666234567890
4 C; X7 r8 @9 t5 R+ Z" dtrue
: E: _) b: L# y-1666666666234567890
/ p- W3 Y, p" z, B$ I8 p; Rtrue
$ `$ y/ ?6 f8 R$ l$ j-16666666662345678907 Q- C- B, o  {! f
true
: o& k7 {( V# q- m[ -1666666666234567890 ]
' E5 T( i- X" O, W[ -1/14 ]
! O8 {3 c  ^9 C8 j+ u3 E' B" r9 g3 B) B5 F9 M( d3 d- w' E* O3 K+ x

作者: 孤寂冷逍遥    时间: 2012-1-11 12:42

作者: lilianjie    时间: 2012-1-11 12:49
ss:=12345678111;ss;
* N& d. }3 l/ |# x. E( Ys:=0x12345678111;ss;! z5 S/ a: l7 D8 `0 \" K

# V/ i2 F8 f2 n/ z  _2 V: v! f" Rsss:=Factorization(ss);sss;
1 c9 x& k6 N# a: e5 g3 p# Tsss1:=Factorisation(s);sss1;
& B1 E% f  {9 l6 v! V2 ], x0 r" OFactorizationToInteger(sss);6 m  Y7 r& h- ]) Q9 O
FactorisationToInteger(sss1) ;
. J' Q# b- v# k* p& C: C$ t$ @- S7 VFacint(sss1);因子分解和还原
ssss:=Intseq(ss, 2);ssss;6 V: f# E+ Z# l5 Q0 O5 u
SequenceToInteger(ssss, 2);  j' h1 G# i5 r' j
ssss:=Intseq(ss, 17);ssss;
) d* [+ k$ R; d% ~" E  pSequenceToInteger(ssss, 17);% A2 \, a; |' |! @
ssss1:=Intseq(s, 17);ssss1;
3 e9 c' G. M% m( [* X0 h9 o( b% a# lSequenceToInteger(ssss1, 17);转成2和17进制

! {1 C0 E( c6 @# a4 G0 ^- Z. H- H5 N! n9 D- l
12345678111
, T. |  S7 A% Z3 X6 `% b1 r12345678111
/ P9 M; o! u/ {* L[ <3, 1>, <13, 1>, <31, 1>, <1447, 1>, <7057, 1> ]
3 @6 p2 ~  h: ~6 I5 R; }4 F[ <3, 1>, <83, 1>, <34129, 1>, <147209, 1> ]9 \: M! g3 I" ]0 O9 B5 ]& A
123456781118 ]4 c# p: u- w5 F2 }2 D. a. s5 H4 ^
1250999894289
# x+ j7 \3 c! O3 ^- Z" M( @1250999894289
* d: i' Y7 j4 ~* o: p8 Z1 m[ 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, . A. I9 L8 e  D, _* n; G
1, 1, 1, 0, 1, 1, 0, 1 ]
2 W5 o& [. m" t8 L" P12345678111, B) J/ h" f) Q; e) F& o- c
[ 8, 6, 6, 4, 0, 8, 1, 13, 1 ]0 N0 l0 i. |9 e1 Z
123456781114 a% n+ G/ }* s* v( P% {* ~
[ 14, 6, 7, 11, 9, 15, 11, 5, 9, 10 ]
- }: [/ N9 M! a" L; r. H# c1 v- e" T6 |1250999894289
作者: lilianjie    时间: 2012-1-11 13:12
本帖最后由 lilianjie 于 2012-1-11 13:31 编辑
2 [) T* A" F2 G9 W& A( k, \8 `. I% K) X3 j" P
Z:=IntegerRing(5) ;Z;           模5等价类环n := 1666666666234567890;2 z6 a. \) R8 h3 d2 }
> n;
8 v: H; z: Q6 J$ Xn1:=Z!1111111111111111111111;n1;
8 v- b/ S/ }2 J3 s0 hn2:=Z!11333331111111111111111;n2;  I8 V* G* ^- q) }

: j$ X9 f0 c; e1 q3 q
8 \1 x% P9 Z4 D* O  z1 p/ k1 `K:=Z!n1+Z!n2;K;
+ f5 l. u+ J! n6 s
+ B0 d; f- s% e4 K# L" GIsField(Z);      是域吗Characteristic(Z);环特征( t/ A4 k& u, J. Q: D: |
IsFinite(Z);有限环吗
' X0 `4 l2 E! r- ^: DIsCommutative(Z);可换吗
7 ]' ]# H# q- c, g$ ]6 q
IsOrdered(Z);有序吗-------应有不过这函数没有这功能IsEuclideanDomain(Z);欧整环吗------欧环还有非整的。。。。
8 V7 y2 t& e% l# r! V; s5 W2 \8 jIsPID(Z) ;主理想整环吗/ m+ z! [) Y% F, a' V
* N; v, Q' h! T# ~( N
IsUFD(Z) ;唯一分解吗
* U/ w1 G; l3 T1 I+ QIsDivisionRing(Z) ;除环吗
* I- z- z; g1 {: a7 x- ]1 jIsEuclideanRing(Z) ;欧环吗# }7 L) {- h( a) ?* K2 h% t+ f" F. l) L
IsPrincipalIdealRing(Z) ;主理想整环吗
1 D8 |/ x0 u( t# pIsDomain(Z) ;整环吗
FieldOfFractions(Z);分式域9 w  y+ Z( E' _: g
UnitGroup(Z);单位群8 r7 h9 K, p! J+ p& X9 g8 v
MultiplicativeGroup(Z);乘群
3 n) Z9 V$ ?3 e/ J5 _6 y
Category(Z) ;范畴Parent(Z) ;父环
5 [, T' A- ?5 c. r: v6 c' _6 cPrimeRing(Z);素环单环和本原环不同Center(Z) ;中心
5 u' V+ _; u% z- W) G$ D) kAdditiveGroup(Z) ;加群-----就第行一特点ClassGroup(Z) ;类群----------只有Z才有------难懂理想类群更难懂
; T/ Q6 ?0 Q9 Q' c* _8 E3 }& X7 a* y# x
ZZ:=IntegerRing() ;ZZ;
# v4 \4 |  ^2 Q- X3 fClassGroup(ZZ) ;
8 A5 Z. u( s/ M' v
, z1 S2 I9 L* M9 o7 m1 I
===========
, s, A* F6 o9 F- Z
5 \3 ^9 B' D9 e  b+ q$ ?7 NResidue class ring of integers modulo 5& l. A. I- ]' ^4 B  F1 v+ ^3 G8 O7 i
1666666666234567890: W+ {6 n/ G" p! `* K
19 ]. U% y; Y4 l
1& ?/ l1 T9 a* R
2
5 D7 Z- b' f( b0 s' F) }true
1 ~6 F; i5 K7 o5
) |  o3 W! A9 H* h, z0 N$ ^( o8 Ztrue 5  i7 ^0 B; `4 Y# u1 u9 I
true
+ U" v9 g7 C% yfalse$ G$ L; N8 ?4 l
true
( X! s, K# u* n8 Ctrue
( c! U$ J" b" ]  ~  Mtrue
+ z$ m! n% T7 k, R6 I$ Z4 ytrue
9 S$ M: k6 Y% F2 d# r" w" strue
8 b0 K" X; f9 P9 A& F" S- i& btrue, Y5 `+ W" h  ^
true4 `) |  @  z9 x2 D& }& H9 `) T
Residue class ring of integers modulo 5
) I; X+ |$ C1 u6 c' B) g; cAbelian Group isomorphic to Z/4
# S; u: A$ R* i  @  t7 L2 j0 H2 {/ BDefined on 1 generator
' \1 l) s+ M! W" }  B: w8 s7 wRelations:
% `& a3 p* L" B6 E, r" Y' N    4*$.1 = 0
# {/ N3 q% u9 h) S$ a, JAbelian Group isomorphic to Z/4+ ^$ L5 N" I) X* E! k8 D
Defined on 1 generator) R$ f1 [( B) H4 H  M7 O
Relations:
0 o8 C* `% |3 i0 l/ z    4*$.1 = 0& E5 t% b1 Z, n1 M; q4 d% j+ p
RngIntRes
& g0 E  D3 a. L: n& _) t0 NPower Structure of RngIntRes
) Q- L6 f& v% hResidue class ring of integers modulo 5
7 I$ q# C3 ?& Z* U0 r% r  C6 \, HResidue class ring of integers modulo 55 a% Y4 O5 e. |; J) Y
Abelian Group isomorphic to Z/59 X# c" \) N: i8 [5 M# T: C- c2 Z9 d
Defined on 1 generator" D7 p1 J, }3 H. }4 g1 d) v9 Q
Relations:
' h. r$ ?( Y4 H) F. E5 z- A    5*$.1 = 06 w' n% b, X' X& C" R; a) V" ^6 l/ \
3 [/ d7 i8 R! Q
>> ClassGroup(Z) ;
* g$ h( n+ [, V) Y             ^$ F0 N  ?7 [; @$ q
Runtime error in 'ClassGroup': Bad argument types4 E( t; m- n8 R. A5 K
Argument types given: RngIntRes7 T/ }& g& }  E" P* W
) G' Z0 n* F7 Y: w; ~0 z
Integer Ring
" f7 R9 s, y5 r) W: g& ?6 C2 y8 oAbelian Group of order 1
作者: lilianjie    时间: 2012-1-11 13:52
Z:=IntegerRing(12) ;Z;   ( J% L; ^) w0 O5 V* G& M
UnitGroup(Z);( G# I' F0 u) o, m6 U% X' r0 f
MultiplicativeGroup(Z);% n' \- k7 _, y; A$ t* O- q
Category(Z) ;" W3 m: _5 a! j3 b& E5 y
PrimeRing(Z);
- s+ R1 @1 E0 \( p5 k' zAdditiveGroup(Z) ;* C5 X* H2 y& y. N1 A% y  Q& R
3 ^/ ^. P! k5 @4 ?) y
Z:=IntegerRing(13) ;Z;   % @, t6 {. l9 Z5 B8 s) k
UnitGroup(Z);
* M( W" a  ~. @* @MultiplicativeGroup(Z);& V* w$ y& p* Y1 ]
Category(Z) ;) y* i  @: u- z8 C& w9 V
PrimeRing(Z);2 w: e: k. a  u8 w- p7 Q
AdditiveGroup(Z) ;
& [% R: M% d9 r  d/ Q# J: a6 t9 i+ o+ n" N" d1 \

5 f; ~) L: ~4 K* X9 K/ `2 {1 p" V+ k: q; m
Residue class ring of integers modulo 12/ Y4 W) U1 z0 b' n+ }
Abelian Group isomorphic to Z/2 + Z/2
+ k' {2 F5 L4 iDefined on 2 generators2 d: Q& N! {7 a& Q3 m& p
Relations:
) s* r+ y/ s7 @3 j" B    2*$.1 = 0
: Q: [* ^6 w* Q' }% y% E( p( Z7 H0 U    2*$.2 = 0- p; N3 O9 i, X" H
Abelian Group isomorphic to Z/2 + Z/2非素数环的乘群同构两个小群的直积(1*11    5*7)Defined on 2 generators- u  k3 ?# X1 d& g# c+ ^5 W. @
Relations:
    2*$.1 = 0. ~6 g) p) z' r8 X  E; w6 p
    2*$.2 = 0! U9 C1 b7 h& Z8 V$ K
RngIntRes
+ H, M% @  r& G8 gResidue class ring of integers modulo 12
* I1 S' D1 r2 C/ a7 G% ?' xAbelian Group isomorphic to Z/126 \$ d  L. C# c. q
Defined on 1 generator1 n' h6 _( `1 e% Z4 I
Relations:
2 m+ a" N) E& U    12*$.1 = 0& b7 I, b$ L) F$ X# p/ _- G
Residue class ring of integers modulo 13
/ U3 [6 j3 F# _# J2 @% jAbelian Group isomorphic to Z/12
' ?- k8 `" K! ^8 F* [% Y' e; E) N) g+ MDefined on 1 generator7 E' T+ q/ S+ W4 Q! A1 u& b
Relations:( B  r8 y; u* Q/ ?3 R. g) m
    12*$.1 = 0
$ r8 X0 ]8 X8 mAbelian Group isomorphic to Z/12     素数环的乘群同构Z13-1=Z12Defined on 1 generator! T$ ^8 i5 k5 e9 e/ }
Relations:
& C! L( \: h& k  A2 e    12*$.1 = 0
: R- |5 f/ D2 ERngIntRes
6 H  ?" R  \, z: v, zResidue class ring of integers modulo 131 d) b3 j/ T8 R: U5 v
Abelian Group isomorphic to Z/13
; \& b2 A4 m6 e) ?Defined on 1 generator2 B4 m" h( y; }' I
Relations:+ N6 {- a- ~" O" b1 V9 d2 h# ]6 @
    13*$.1 = 0
作者: lilianjie    时间: 2012-1-11 14:24
本帖最后由 lilianjie 于 2012-1-11 14:25 编辑
+ |5 b6 V& ^$ n$ i# w: d: Q* x" E. K  Y6 O, t: s( E( y
Z:=IntegerRing() ;Z;   
4 H3 P. ]7 C3 W9 E$ Q$ P4 X4 V+ @, z
* o, {7 `" c( W: FR:=IntegerRing(12) ;R;   
+ [: f' ~% U- X( U3 @9 j* eS:=IntegerRing(13) ;S;   ; u9 G5 F) C+ R2 Y- {* K2 c" m
! o% m; B7 y. H0 A
3 ?: @) u  k7 ]
PrimeRing(R) ;6 c7 e0 t( n6 F+ s: N" \+ R5 \  ]
Centre(R) ;4 F# Q: k, x8 o" @# S
* v+ B# I. {: w0 I
Characteristic(R) ;6 H0 b5 Q  g2 O: p$ h! E) X
# R ;阶----元素数
4 y8 k9 A0 S7 j" q' u4 E: K6 GIsPID(R) ;非素数不是整环不是极大理想整环,但都有极大理想公因IsDomain(R) ;
/ G, Y7 S7 J( S/ u/ C0 H3 \Has**(R) ;7 o9 G- c0 p: p* Q

1 E; g) H- l6 _$ }! ?  rIsPID(S) ;' ~* o, r8 P, P* a2 \4 E  L7 {
IsDomain(S) ;
0 H/ G( y" y3 j/ v" nHas**(S) ;' C4 Q* s- G& F' F
R eq S ;
8 H$ r6 ^3 _* R' s) e' [0 E5 SR ne S ;5 g* p* a; \7 F
( g' X6 ^) T( B( d& X( U
Parent(R!123) arent(S!123) ;
4 w; g5 y) O0 d, j9 b2 qCategory(R!234) ;Category(S!234) ;
& h2 C) J5 \; M9 y& L4 s. z4 V7 z$ H3 e# Q2 T8 I# d8 H: Q6 `' c
a:=Random(R) ;a;b:=Random(S) ;b;
! I% {' G, ^0 zRepresentative(R) ;+ Z9 h& X9 h: a5 f: B
Representative(S) ;
) w0 Y4 ]* B6 k+ }! I' u; D4 Y/ d% z2 w* s8 `
(R!a) in R ;
+ W/ u: y* ?7 W9 b  x# |6 e, h1 z+ P3 d(S!b) notin S ;: \: v+ Y. E. P% M& q' m6 v
IsUnit(a) ;                是单位吗2 {+ O* N/ _( `
IsIdempotent(a) ;是幂等元吗
% J; @, o' q% g* A6 F! AIsNilpotent(b) ;是幂零元吗4 c6 J! _$ T8 m: g2 h, ^. c  z4 t
IsZeroDivisor(a) ;可除零吗
+ |* ^+ D2 `% ^) v2 M* [$ U4 |IsIrreducible(Z!b) ; 可约吗
IsPrime(Z!a) ;
* O7 y$ I3 p# z3 E! ?7 o  l6 f7 k& ~$ @( Y7 U
Z!a gt Z!b ;
$ u1 p' X  n3 U2 k5 W0 F; u  oZ!a ge Z!b ;1 V4 b$ W' ?6 y. p7 T
Z!a lt Z!b ;5 R7 Y8 l- O% C1 c: l
Z!a le Z!b ;只有同类环才可比较元素大小,
Maximum(Z!a, Z!b) ;
1 N" q# A* [- R8 h) }$ x4 iMinimum(Z) ;* {* m) C) K9 R1 q
6 t$ |4 \0 j& L6 S& N3 I
Maximum(S) ;2 ]$ ]  ]8 y3 i  q0 x- A) z2 C
Minimum(Z!a, Z!b) ;$ O  |; s* R6 E8 g
Minimum(R) ;8 ^: b, l% }2 h* ~1 U$ q
* O. @7 G' t7 S% T

( }5 {6 ~  O! R( P
. y; ~8 Q3 N5 i. y, r5 h2 zInteger Ring
1 G9 q" v' N( t+ ~3 _Residue class ring of integers modulo 12+ k% c7 a; G+ d$ T# \$ G
Residue class ring of integers modulo 13% V; F/ P; b& b( t0 Q9 D
Residue class ring of integers modulo 12
2 H7 u/ t$ |) aResidue class ring of integers modulo 122 z" W2 n+ c  {2 x
12
/ x6 u/ h+ b& g1 n; b12
# S8 I0 F# j7 j& m3 }# l& Vfalse
5 t$ P, t8 U% @4 `7 R( r" o5 B; Afalse) h' H; d. j: n1 I  n0 x+ d
true7 Q' y8 P, Z6 O3 U( ~6 W
true* a4 U8 R/ z2 p; |9 M, x! W4 F. T& k. a
true5 _' D" k8 \0 U. X! U
true
6 H0 N& ]( `/ f( xfalse
5 E& \9 |9 U3 xtrue9 Y" Q9 H4 @. i# A5 L) ~, ?
Residue class ring of integers modulo 12
: e8 \' q; |) e' |Residue class ring of integers modulo 13/ G! L) B6 C  Y
RngIntResElt
& ?4 C/ h: E( ?RngIntResElt: o, [' f# V0 r2 p( C, k( \
99 {; J, J9 W# Z- s& O7 F6 i/ w
12
% B2 ^+ s: b' K; @/ G04 a7 [9 S# M! U# `4 w# p
05 L& O- ~1 B8 n1 R' O3 J: Y+ {, @
true: Z# S/ i  z! @4 }# r! A$ T3 y
false. o9 _/ b0 Z: B" |
false/ u& K9 k" g# s* q
true
1 I$ |* f# q6 Z$ Ufalse1 _4 Y: f. |9 E- a5 o. t
true  Z2 \3 {8 x* T2 U; I5 S, L; V
false
$ {8 i. F- |  q- c1 u4 C, bfalse
4 m: V& v# n, p4 Hfalse
5 v3 v+ l' N$ F$ E6 efalse
, s: X% i. p# X8 Utrue
' n, b$ w, J$ [1 }- Ntrue
6 d- G- I. k  v9 Q" b12
  [5 [) O" b- G1
7 x! k: O* a( g5 d# |' B
" L7 R; W' l  G0 p>> Maximum(S) ;
! z1 _4 S; ^' y. Z# d/ d7 `          ^5 b. C2 J% ]) }+ y
Runtime error in 'Maximum': Bad argument types
$ N; V. I6 \, p- I" G! Y2 H$ A+ p# ]2 ~; @Argument types given: RngIntRes
. v& U. t# a6 q/ m  ]8 y# t, r( b2 L$ x9 p1 N$ J1 b
98 I+ P6 J3 x/ O% |

& d, o0 x2 Z2 f" v6 j5 l9 L- D>> Minimum(R) ;; e) l1 O. i, |0 w4 w- E: S
          ^0 O& i' l6 d" E. Z+ v
Runtime error in 'Minimum': Bad argument types+ j  V9 g* G1 B3 c
Argument types given: RngIntRes
作者: lilianjie1    时间: 2012-1-11 15:48
本帖最后由 lilianjie1 于 2012-1-11 15:56 编辑 ) ?( l9 m. U6 g- ?
1 T* z( _3 \& [# M
Z:=IntegerRing() ;Z;   $ i4 O; h( u% {, @- S$ E
I12:=ideal< Z | 12 >;. {8 i8 d$ A8 x  p* ]% O
I12;
+ W) U; Q( @" |6 k( y7 [) H; {ZZ:=IntegerRing(15) ;ZZ;   / Y: Q! I3 r) w. D* X& k( C
IZZ15:=ideal< Z | 15 >;0 d0 K4 y; ]+ u/ N
IZZ15;/ d8 _  H4 M# w' P0 ]% Q5 r
I12 eq IZZ15;
$ v0 c3 ~7 z" ]4 x3 P6 z0 oQ1:=quo< Z | 12 >;Q1;4 V. S- d% f$ A' r7 w5 H- z6 ]
ZZZ:=IntegerRing(5) ;ZZ;   
$ n3 g) L0 W, p7 B. ~, O- }IZZZ5:=ideal< Z | 5 >;% C) ]3 X6 Z9 v0 `9 `+ B; a
IZZZ5;( z4 H4 S4 h! G" _  s

7 N- W, \4 O  o) C, _' a7 m6 Q2 {I12 *  IZZ15;            理想和/积/并/交,
7 z6 t5 s  K6 Q  E理想和是理想对应两(可多个)元素加,: C4 z3 }  K9 j* w
理想积是两理想(可多个)对应元素积,3 b$ ~2 b3 t" G% g7 G* V' A' |( r& @" |
理想并就两(可多个)理想元素并,就不一定还是理想," E: ~! e6 N! K) O
理想交是理想(可多个)元素交,理想交一定还是理想,
0 |1 C" s# D9 d0 N# o5 p% [6 C: J" p9 q1 R+ Q
理想积是理想交的真子集,极大理想交是理想------J根

: l: Z+ b6 X6 u* _5 b$ p8 _5 X# _理想商就理想间同态:是必须能整除
- v, t9 z9 y. D8 {) t0 ^; eI12 +  IZZ15;
3 M4 }' b( S( G3 O7 S& yI12 meet  IZZ15;! ~$ ]+ g+ \; S& Q1 I

* a* C& V3 X; B8 S. P; e9 X/ hI12 * IZZZ5;$ X6 t% z$ }4 h: q4 v( P. ?/ ]
I12 + IZZZ5;( U) F9 V0 ~3 L2 ~" ?
I12 meet IZZZ5;1 i! {# T" o' h
I12 / IZZZ5;8 h9 h' {& U0 Y; f- r
IZZZ5/ I12 ;) p& R- e: H. g: C
Z * IZZZ5;
/ w. C5 a, Q9 C" J0 d% o% D3 n7 mI12 + IZZZ5;
6 G5 Q0 c5 }: Q- T' T7 Z( J; _IZZ15 meet IZZZ5;2 J) O  J( Z) I) I; j, u0 W
IZZ15 / IZZZ5;
Z meet IZZZ5;
- Z( ~1 V, ^5 N# H, FI12 meet IZZZ5;5 z$ J3 a. E6 [; d1 e* M
IZZ15 meet IZZZ5;
- ^+ L/ s9 e! G1 F* e4 m; xIZZ15 / IZZZ5;
: h  n( B% @. Z" A8 m( q$ Y& W* O5 @5 Y
: N1 Z; f4 S4 W4 z" @/ b' Z6 _2 [I12  subset  IZZZ5;运算后的各种理想互相是否包含IZZ15  subset   IZZZ5;0 D# m: b# l! @+ }- {1 i$ D
IZZ15 subset IZZZ5;
0 @' Z% b: ~' h+ Y* C2 o* yIZZZ5 subset IZZ15;
0 N& l- v3 T! C$ {0 N
Integer Ring  R0 n  ]9 \* i# K( f' D) ?
Ideal of Integer Ring generated by 12
" s  }9 Y- Q/ \Residue class ring of integers modulo 150 V0 _- z" Q9 U- c$ x2 \
Ideal of Integer Ring generated by 15
: O! v, U4 L! e6 x2 k8 X8 i; vfalse
+ i4 Q- ^# p. R( J3 p: S0 nResidue class ring of integers modulo 123 c# u" I$ x1 I6 I* ^8 O
Residue class ring of integers modulo 15# N5 t% ^! a% w+ @* E7 b$ U
Ideal of Integer Ring generated by 52 W/ C* K- y4 e4 j; q
Ideal of Integer Ring generated by 180
2 u' G2 P! @8 a( J5 E/ [  MIdeal of Integer Ring generated by 39 n" ~# c: i3 i- @! O
Ideal of Integer Ring generated by 605 B! S8 G5 f5 v3 b! @8 S/ o% [
Ideal of Integer Ring generated by 607 z2 a3 Y* q6 Q$ J; g3 v/ u
Integer Ring' }- ?$ g. _) V* E- Q" r
Ideal of Integer Ring generated by 60
% P# o% F4 }5 l  J% E* Z9 M8 W' y& c7 G/ u1 q9 o
>> I12 / IZZZ5;
) g8 Y5 G: R  p5 V; y3 Q$ P* q       ^, J9 p% V! U7 o- v1 E9 u0 `% s
Runtime error in '/': Argument 2 must divide argument 1.4 v. o* O0 |% x* {$ B& x
6 e% n* o6 S$ O- @/ x
  C' K1 j2 ?& y* z0 C' r
>> IZZZ5/ I12 ;
+ [! c( K* ~/ R# o7 w        ^6 A( c& T  P8 A
Runtime error in '/': Argument 2 must divide argument 1.3 Y% g! E; @; T# e" x
- n& q$ k' g$ |2 a0 `# h3 i
Ideal of Integer Ring generated by 54 h; n/ g0 V" e  K; S
Integer Ring
% P0 t  X$ w" a: Y! t0 jIdeal of Integer Ring generated by 155 w3 f1 a  u, f0 `* M
Ideal of Integer Ring generated by 3
0 R* a6 H* x2 P+ HMapping from: Ideal of Integer Ring generated by 3 to RngInt: Z
4 F' Z" s8 R8 z. r$ O6 rIdeal of Integer Ring generated by 5
7 `* P% o6 V7 C' j* Q4 aIdeal of Integer Ring generated by 60
: @; S$ E! l4 g5 T) L* K3 IIdeal of Integer Ring generated by 15
' C) g0 g8 H8 d9 L' U5 PIdeal of Integer Ring generated by 3. t4 \" p7 A7 `. v8 ~
Mapping from: Ideal of Integer Ring generated by 3 to RngInt: Z
9 P* L) Z4 t4 S" l4 T. ?4 @! x1 F
& E; |5 V; y0 Z9 p4 N% Kfalse, e9 i; e# c% J. |6 t' x
true
* P& f- ^% `7 B  S% f- z6 qtrue+ C2 x! J5 n) ?  k; o
false
作者: lilianjie1    时间: 2012-1-11 16:39
Z:=IntegerRing() ;Z;   
: _/ c3 V+ P8 I+ KI12:=ideal< Z | 13 >;5 ^! r+ }1 _3 {, v6 ~/ `1 e
I12;! X: k* @  t3 C2 w/ T6 n
ZZ:=IntegerRing(60) ;ZZ;   8 }! G6 }: R1 v* r
IZZ15:=ideal< ZZ | 31 >;
% o9 i* ]" R* R: `. H- H$ MIZZ15;; H+ L" o1 `/ L7 H) _& h
ResidueClassField(I12);) K* c& t3 B) _9 S. K" `% i9 E
ResidueClassField(IZZ15);环和极大理想的商构成域---剩余类域,剩余类环中的素数都是极大理想
5 P* J5 x/ _6 r! g8 q8 d
loc< Z | 19> ;2 B1 X5 N- m4 {' b3 h% Y
loc< Z | 17> ;0 n. k# _6 e% v! g4 \
loc< Z | 131> ;局部化:一个素理想到原环元素的映射

  Q) V  @. y# o1 m; Oext< Z | > ;超越扩张到一元多项式8 ]; {1 h/ L* B! K& R  k4 S: @* v
ext< ZZ | > ;
/ x9 c. D! H  M' ]/ F( M4 B
# Y1 N! O$ R2 v' Q0 T. h5 j9 q% E- fext< Z, 2 | > ;超越扩张到多元多项式
0 E6 e& P$ G; r6 S' I# }. d% b' `  e9 b+ o; e* t# N
ext< Z, 3 | >
Completion(Z, I12) ;1 G+ D6 z, I! U& t7 h
: [/ j4 D& k0 W: Q  r

) M( C+ x8 C3 e3 k9 T7 Gcomp<Z |I12  >;
. o9 C3 {  x6 B3 A  u2 K6 j    素理想零理想完备化,和P进环联系起来
& ?/ X9 }7 y1 K2 X, gCompletion(Z, 0) ;
% g  a+ r) i$ |2 E- S- q( xcomp<Z |0  >;
2 L" b/ u& K! \2 w
& G( Z9 ]7 I$ WInteger Ring$ v1 c5 ~5 W4 n! C1 {
Ideal of Integer Ring generated by 13
. u; }9 I5 j; G2 O5 a4 vResidue class ring of integers modulo 60
+ O2 j8 `  a+ S" T0 {1 d8 yResidue class ring of integers modulo 60" s7 m! {3 E& e' o! A' e7 J/ f
Finite field of size 13
+ B8 A/ P. _* O  }* lMapping from: RngInt: Z to GF(13)
5 D: ]7 u& q" v! dmodulo 13
' j1 u7 m1 |$ r2 v( o- O6 m/ ?% ]5 ^8 z; y4 i9 c5 [
>> ResidueClassField(IZZ15);' i% E9 M& b) a" M
                    ^
! r2 G) _) ^  |0 Q. k, S5 s$ bRuntime error in 'ResidueClassField': Bad argument types
2 B3 `: d- M* ~! w9 [Argument types given: RngIntRes
  W# Y& ~3 V; s! F
7 S# g  k# G: J1 d; ^( jValuation ring of Rational Field with generator 19& F( z6 q9 c& v" P
Mapping from: RngInt: Z to Valuation ring of Rational Field with generator 19
8 a- O/ Y4 [1 p1 ]; G1 G0 @Valuation ring of Rational Field with generator 17) i! P& I: a3 t9 [/ }9 p( B' m
Mapping from: RngInt: Z to Valuation ring of Rational Field with generator 17
& C( R8 i  r" ?, i$ r5 I6 k: AValuation ring of Rational Field with generator 1316 _9 j6 c, U+ g4 R6 a
Mapping from: RngInt: Z to Valuation ring of Rational Field with generator 131
# X& M* O4 K. OUnivariate Polynomial Ring over Integer Ring
$ Z& j1 c1 o+ kUnivariate Polynomial Ring over IntegerRing(60), R4 {  m4 @8 ~4 x1 e: X* T

# _" S0 v' t' y6 P5 _>> ext< Z, 2 | > ;! t2 o, Q, S% Z: L7 z! Z) F) z
      ^# K3 M( ^) Z; L8 f0 g+ S; N) p2 S* a" H
Runtime error: This constructer is no longer supported; ?4 V6 |% r" X& l- u- ]6 O
6 `& t! Q7 b2 ^3 \8 X! y
0 N" t3 C% g9 ^3 K! r- ~0 r
>> ext< Z, 3 | >0 a2 k- Y+ @& y. w, L. A2 Y  V
      ^
) ~/ ?8 L- w. T% U& n' L/ BRuntime error: This constructer is no longer supported5 K  Q- J, O4 _: }8 _. G2 H
5 j( K' o& m6 c  t, ~% G. K
13-adic ring2 ~" K; k: d/ O+ ?- J; D
Mapping from: RngInt: Z to pAdicRing(13). S! y$ }  U4 j& i' W4 F2 r
& X2 C9 \' I* J
Completion(% z! Z" C: t6 U7 V0 Q, p8 A
    Z: Integer Ring,  n6 }8 V6 b! L% E& D; \. f
    P: Ideal of Integer Ring generated by 0/ e5 a7 G& e% j, D" n





欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5