数学建模社区-数学中国

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

作者: lilianjie    时间: 2012-1-11 12:30
标题: 一些初等函数:
:=IntegerRing() ;Z;. d) m' k8 w( J, |5 ?' q3 {' Q* G
n := -1666666666234567890;) O# r; ^, ^, R- y
> n;( X: \1 t5 a8 g$ j2 Q

8 X; F; z# M! S5 E& Z# X: l> n:Hex;                           转16
! ?, E4 g$ I. Q9 V. n5 aIntegerToString(n, 2);        转25 h: I; [8 ]& I3 W, N
IntegerToString(n, 10);       转10
4 }# l' o6 z# ?8 R7 c' iIntegerToString(n, 16);        转167 o% `/ V. o7 w$ |
IntegerToString(n, 36);         转36
IntegerToString(n) ;; l7 b! l. r% k4 l: Y: Z
IntegerToString(-0x17213080A7E55CD2);转串Zero(Z);0 B3 j( @5 R0 X% h& J9 A7 A+ W
Identity(Z);                   8 p# V+ R" y+ x3 q2 z
Representative(Z);         环代表元8 R) t4 h/ S" i% r! k3 A1 S# k1 E
Eltseq(n);                        取整+ v% e6 b( Z  v5 y9 l) h% V: Y  g' Z
Eltseq(-0x17213080A7E55CD2) ;
Denominator(n);Denominator(12/13);Denominator(222222/111);" Y5 a. k3 g0 l( w' M9 X
1 z+ i2 ^' D) \; p3 y9 H& t0 L* p
m := elt< Z |  -0x17213080A7E55CD2>;m;         在虚实2次域中进制砖换不变
0 d4 i1 A+ L: M1 w( O4 J8 @0 [k := Z ! elt< QuadraticField(3) | -1666666666234567890, 0>;- u3 }/ x( z6 j, z% w8 ^' Z& s
> k;
- c* V$ Y; i5 {7 M/ }n eq k;5 r1 I4 E6 e% U( _/ j
kk := Z ! elt< QuadraticField(3) | -0x17213080A7E55CD2, 0>;
, [$ _0 b/ I2 S( A& p1 [( C( z> kk;
! D3 W7 N& o  `8 s1 }" zkk eq k;2 ^: N- R' b/ q4 u( j# w0 b
5 y& [: v: k4 ]1 t- l0 G6 s* D
k := Z ! elt< QuadraticField(13) | -1666666666234567890, 0>;
+ V# B. @9 S' O( S. k> k;
, Z" D7 o, G6 M) @4 a- V& Mn eq k;
, d1 W8 [" t$ B# d6 Kkk := Z ! elt< QuadraticField(13) | -0x17213080A7E55CD2, 0>;
- Y. q- Q) }: }: g> kk;( h- e/ l7 g2 d# M5 S
kk eq k;
; W! w# ~# |& I; U. r1 J9 H2 V5 T4 i- U' g. C  p4 L
Eltseq(kk) ;Eltseq(-1/14);
( D7 r( @$ Q# _' v( Z7 t- D# ^# L
2 P7 N6 _% I) H1 t; Y3 y

/ ^: h: I! e8 a0 z6 z
' s3 K& ^# B: m9 K$ D( Y) O" ?( a* r. P% B, e
k := Z ! elt< QuadraticField(-3) | -1666666666234567890, 0>;
- w1 U( o  d& }/ F8 J6 q( u> k;/ K2 H, r: v/ @5 l) A% t
n eq k;: j0 g# c  V1 U; ?
kk := Z ! elt< QuadraticField(-3) | -0x17213080A7E55CD2, 0>;) R) q5 z9 R5 c
> kk;# i) G: e# S7 n2 G5 ~) j
kk eq k;
% Q% H/ T5 Q. F: f0 _4 C
+ M8 ~+ Y9 @: D5 h' c: Zk := Z ! elt< QuadraticField(-13) | -1666666666234567890, 0>;
- U( d0 m. \: N* K) {> k;
8 M5 z- \' l9 }' D2 Q7 [3 fn eq k;, T' y3 @% k2 f+ \5 w  a0 S8 Y3 m
kk := Z ! elt< QuadraticField(-13) | -0x17213080A7E55CD2, 0>;
3 v0 q. f# E5 I+ \9 L5 J> kk;
3 J8 d' F/ T9 Z4 o5 r( ^3 D, a# }5 bkk eq k;
& a1 S6 f2 R) @8 e; A6 b0 A* ^) _9 d
Eltseq(kk) ;Eltseq(-1/14);
1 g1 D0 {3 P  D, R9 o3 I6 a8 {2 k

7 u4 ]+ D" ?( o4 j/ J% i. d3 p. E  [6 i6 k

, {: \4 {4 k5 B* V* t4 s
' I  j; Z, G6 g  W, a6 Y6 j0 N1 K! ?

* p8 I4 K* ?" P# b2 z, R; q4 b" f3 h* k; e6 k
5 ~; b5 L5 ]( L  [/ R) Z, V

7 D8 _/ _, t" Q, Y, k( y& r8 h+ A" M6 `=============
* g! o$ f0 p$ ^
- n2 _; a8 p3 V/ g( Z# @( d1 F6 H8 k$ L7 w! B/ H' I% ?

1 S# k: {* v. E; h4 X; G) }- t0 a! _. ?" o: M  j8 F$ R
Integer Ring% o& j! R# p" J! W2 R7 `' g; v
-16666666662345678901 G1 P1 r  a5 n' V# K6 j8 I
-0x17213080A7E55CD2: Y4 v* o. j, h7 |( B
-1011100100001001100001000000010100111111001010101110011010010
% m2 R2 S( S; w5 G2 t-1666666666234567890
* I/ w# [" C9 H-17213080A7E55CD2
5 S/ `8 p7 b* `- W-CNUO0WGPY9CI
" a, S5 e; ?1 A8 h6 Q  G-16666666662345678900 f& \/ O$ q2 _) [8 b
-1666666666234567890
  Z  Q0 K) O" I) |  Y- e+ B" ^0. L& q' S* T; s; O5 m
1- K$ w- e* t# M
0
1 z9 c9 |- f$ c! M  Q[ -1666666666234567890 ]
, b6 g; ~$ z3 {+ V[ -1666666666234567890 ]3 t8 @" i% M. v% R) ]5 R; N
12 w# k' l) G. ~, e9 h5 l/ J
134 Z, {0 P" g9 s* j9 |9 K5 O
15 g7 {: Z" \( m) z( g

& U$ Y5 v9 k- B% W3 O5 ]+ ]' w-1666666666234567890' G$ P3 L* w! v) r4 j
true( u9 q6 O5 ]# C) A
-1666666666234567890
! j# ]; w/ I2 D8 otrue
2 i# c5 U9 Z) O8 p5 s4 d+ m6 R3 I2 V-16666666662345678907 f& `' A0 F3 V/ O% J4 Z
true
4 Z$ H; T0 |; `-1666666666234567890$ G; X# [! r* l* e6 x2 Q" i
true- B3 ~1 T, Y8 Z; b5 c9 Y; u
[ -1666666666234567890 ]
  l1 {/ k% ?) p  ^% @[ -1/14 ]
1 d, x8 X$ o9 f( k" i
$ Q' B2 j, m' c2 P' I
! B) o* _- x& c6 b9 y* j- t" X5 _/ d8 _: J9 z) m+ @
+ ^$ v$ [6 J& G' p

' i1 b' Q0 s) @0 h6 ~' o
% E* y7 i0 |1 E) }: u, s  B" I/ @  V: N, e4 L& b% O/ a, r$ j, Q
-1666666666234567890
" U$ l- k6 T% Z) d8 @! x-1666666666234567890" {, H3 C& M/ S4 \, F( X4 _
true  k# h7 {6 v0 ^8 w; \
-1666666666234567890
% R8 _1 [$ W# H- a2 c! o$ Htrue
! N8 G; b) k5 I' X+ X0 k5 Y-16666666662345678906 E) e! M8 T0 |1 E& G7 H& v
true& b& ~9 f, [9 u4 Z' Q+ b
-16666666662345678905 s& @9 V0 i5 p' H+ H) v& S
true
6 e5 I' O, Y5 T' ?2 ]" t$ B8 v[ -1666666666234567890 ]$ D, N, J( e& z; _9 T# f
[ -1/14 ]% d8 ^! H  o& X3 h/ }
1 ^2 P" _& i6 g2 L" U) m* {

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

作者: lilianjie    时间: 2012-1-11 12:49
ss:=12345678111;ss;8 {, O1 H/ H3 Z, V
s:=0x12345678111;ss;
( B, L4 W( a! b8 d5 X
0 l0 k5 }4 `* j& C& ksss:=Factorization(ss);sss;5 k& k5 l* [0 f" Y+ \
sss1:=Factorisation(s);sss1;
% c  F2 A, h" r$ s  c: S/ v2 E1 G& @FactorizationToInteger(sss);
3 o5 v9 d  r3 L6 @. s* ]! @FactorisationToInteger(sss1) ;
1 `, S( O- d: @7 i8 s  zFacint(sss1);因子分解和还原
ssss:=Intseq(ss, 2);ssss;0 s7 @; r7 u6 `/ `2 _5 H
SequenceToInteger(ssss, 2);
- J# ~' D+ R' D% Sssss:=Intseq(ss, 17);ssss;1 u1 m5 p& @  O2 x1 p
SequenceToInteger(ssss, 17);" N# x& z2 ^0 R: c6 D- o0 Q
ssss1:=Intseq(s, 17);ssss1;
: N* z( D' F7 G9 X) NSequenceToInteger(ssss1, 17);转成2和17进制
, B, P8 i' K5 ?! L' [1 D; [
) R: {. j  A' D) H2 m6 V. t- A# }
12345678111
% r- ]: t; j7 Q3 B# a12345678111
# y$ [' \+ ]% V$ T. y[ <3, 1>, <13, 1>, <31, 1>, <1447, 1>, <7057, 1> ]: L" C" y) J% K% @+ r
[ <3, 1>, <83, 1>, <34129, 1>, <147209, 1> ]
! K$ N3 K( B3 S3 o& H7 u12345678111
# S- e- l# b, k$ r' j, I1250999894289& J2 [, R5 k% e; u) E1 e
1250999894289+ p9 E2 z5 C" Y0 d
[ 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, 2 G5 t' c0 m* s
1, 1, 1, 0, 1, 1, 0, 1 ]7 {9 K1 Q# \: _1 J( t
123456781119 s6 {% [) `( F" v$ S! n9 T& C7 F+ c
[ 8, 6, 6, 4, 0, 8, 1, 13, 1 ]& p0 |% t, v: b- W& h4 s* h
123456781117 Q" [3 l5 G6 t( J. t; U: A
[ 14, 6, 7, 11, 9, 15, 11, 5, 9, 10 ]+ X5 i# t7 H! I
1250999894289
作者: lilianjie    时间: 2012-1-11 13:12
本帖最后由 lilianjie 于 2012-1-11 13:31 编辑
5 ]1 _6 V3 D/ Q& m
' W+ M, c$ M7 z# e& @! {7 a; VZ:=IntegerRing(5) ;Z;           模5等价类环n := 1666666666234567890;
! [2 O6 X  h8 c, X* j4 E) R5 h> n;: d( n% Y2 w- c" E7 W9 o
n1:=Z!1111111111111111111111;n1;
6 h% K+ T' o# Xn2:=Z!11333331111111111111111;n2;' _: g( w3 z0 \' B7 w. S9 P

) J: E8 E6 t% N, I: ^, z1 P
7 m3 Q- B+ @1 p& a4 I9 l2 I" k" eK:=Z!n1+Z!n2;K;& f& q0 W) I$ Z! @8 `) F

4 f* ?  b8 j2 NIsField(Z);      是域吗Characteristic(Z);环特征6 W' @* T  d8 c" d) _9 [$ U
IsFinite(Z);有限环吗
8 S+ T6 c# A! i1 [. tIsCommutative(Z);可换吗

$ R. W5 I  |9 ?. i5 l+ Y# m1 @IsOrdered(Z);有序吗-------应有不过这函数没有这功能IsEuclideanDomain(Z);欧整环吗------欧环还有非整的。。。。
: R2 L  X  z+ S% r6 _IsPID(Z) ;主理想整环吗
1 W- z% r  d: f5 k- E2 J
( E4 m8 D* z0 W; |( h( dIsUFD(Z) ;唯一分解吗
  M! l7 r' c* T1 M$ W8 AIsDivisionRing(Z) ;除环吗
9 J% `( {9 W- r; @5 w' yIsEuclideanRing(Z) ;欧环吗: o$ L# `) y% P" P
IsPrincipalIdealRing(Z) ;主理想整环吗
8 ^  ?3 O/ N. YIsDomain(Z) ;整环吗
FieldOfFractions(Z);分式域
; b$ g9 O/ D8 q3 {UnitGroup(Z);单位群
+ ^' S; I9 E" Z, r3 DMultiplicativeGroup(Z);乘群
$ i# L5 ^5 g) |' ]' C' h. H
Category(Z) ;范畴Parent(Z) ;父环. _/ A+ e2 [- s& m
PrimeRing(Z);素环单环和本原环不同Center(Z) ;中心2 |4 y4 E3 e/ E1 Z5 D
AdditiveGroup(Z) ;加群-----就第行一特点ClassGroup(Z) ;类群----------只有Z才有------难懂理想类群更难懂
2 n& I% C) o* E( b, t
8 W5 m# D( P% xZZ:=IntegerRing() ;ZZ;
0 m: t4 j0 M2 a# w; rClassGroup(ZZ) ;

/ g% ]; J6 e4 K6 j
, ]9 l- y8 s5 f0 d===========/ @  x, c7 p  l4 M) I' C- b
3 H- w' e  Q3 |4 W  i
Residue class ring of integers modulo 5
* h! R+ B- e: u5 R1666666666234567890
- J' [, \. @' w% m, w/ V$ Z1
+ U# R+ C1 d* b1 Q1# L" N" Y4 M: p; v( e( |8 o9 ]8 F
2* e& J7 R2 N2 _% W4 H' Q; f
true4 L3 e) f; [! U0 c8 z; }
5
: V" ]- O1 B3 R( l$ W: L: y! Utrue 5
5 K' G' F# D2 j/ z( d8 S; L. xtrue
6 F" k+ M, E5 `9 k$ d  W' Tfalse' ~) R0 k) v; K
true' b$ s2 C' }7 U% @: R% `: y
true8 P  p  A- f  P4 H' z
true- c% F% S1 K' m9 W2 C9 A% \4 i
true3 G& F2 }$ y" H% \6 D" B$ ~
true
  G1 s$ f, }% J% N$ n1 f# U* Mtrue
1 _( [1 a6 }. o* M* L6 o4 U' x) Etrue) Q9 U5 ?3 L- ^6 {: C  f7 ]
Residue class ring of integers modulo 58 o- S0 Z2 L8 J' o% a8 O- f' f
Abelian Group isomorphic to Z/4
* N  U7 x9 y$ BDefined on 1 generator
+ b" @3 ^! H! ?% Z9 bRelations:
# @  n9 P2 a" x3 C    4*$.1 = 0, _5 l& N! j/ ~5 `1 J8 T. k- [# b) l
Abelian Group isomorphic to Z/4: b; x& n& x6 a# a5 |& q* w# d# s4 ]
Defined on 1 generator/ b  X9 D. |8 F! c- [) m
Relations:+ ]9 p; h0 r3 b& W4 Q
    4*$.1 = 0
: I& D& p" p0 M$ QRngIntRes" ?, d& A3 }0 L& i% H& v
Power Structure of RngIntRes/ `( M0 V# s7 a* J/ m- B1 p
Residue class ring of integers modulo 5
* m: S* f% E. M) f0 X- AResidue class ring of integers modulo 5$ l  p, Q# n5 P; R- d1 E( V
Abelian Group isomorphic to Z/5
( [- }% U( s8 p; U; j- nDefined on 1 generator
& ^+ f2 t( X. B& ^3 F2 u* U3 PRelations:+ y& a( b# W# I0 |" P% \/ _) M
    5*$.1 = 0
* P- n  g) s) G- B8 x+ Q
8 w6 O$ m6 z+ e>> ClassGroup(Z) ;
- [( u7 H1 c3 C             ^
! l! B; Q9 k3 ^) q% e6 D" `Runtime error in 'ClassGroup': Bad argument types& ?  x: K% E& ~& ^& u
Argument types given: RngIntRes
0 o1 O3 L$ v8 Z% ^; r; N
' r  F3 g  e, P( l; PInteger Ring8 q# q6 Y9 c% o9 [: t
Abelian Group of order 1
作者: lilianjie    时间: 2012-1-11 13:52
Z:=IntegerRing(12) ;Z;   4 Z" P! j( N2 U* ?' A) F4 s5 B
UnitGroup(Z);
- c" d, ?( X! |7 @MultiplicativeGroup(Z);
2 S# J0 y- y& ~3 Y* f$ QCategory(Z) ;
, Z, x' }' _; M- V9 zPrimeRing(Z);! x+ s$ V6 h, V3 b# A! i
AdditiveGroup(Z) ;% _; ~. A. q2 N' y* j4 I% ^5 \

& ?* w% Z& p/ S# k" [Z:=IntegerRing(13) ;Z;   ! {8 K. o/ q! n/ k" J1 Y
UnitGroup(Z);
  ]( x# _" v+ j& b+ l; E" ~MultiplicativeGroup(Z);
. P% I# P% P8 G% `+ \3 VCategory(Z) ;7 W: o' Y1 \  l- X: |
PrimeRing(Z);2 j/ W/ R) R( p0 u% `; e, d
AdditiveGroup(Z) ;
: f# m  y5 r, R, b$ l
8 v* C; y6 J) y4 g
* g8 g7 C: m  r, e0 I* g) W+ p2 O$ N6 o' X
Residue class ring of integers modulo 12  ]% e$ O8 X9 Y1 ?- D
Abelian Group isomorphic to Z/2 + Z/2* p7 D9 l( ]& \5 q5 Z
Defined on 2 generators/ l; {7 V0 t4 ?0 S/ _+ |! b
Relations:
0 u) H) I( n' C5 @. o: ]" n    2*$.1 = 0
; M; v* B+ C2 y8 c5 F8 A+ |9 d: N    2*$.2 = 0. N# z' C/ z. ?/ U) ]* [* S
Abelian Group isomorphic to Z/2 + Z/2非素数环的乘群同构两个小群的直积(1*11    5*7)Defined on 2 generators
" b6 L; ]% i' u- IRelations:
    2*$.1 = 0( u' B' l5 o6 L
    2*$.2 = 0
6 J1 M# O( \, L! NRngIntRes; [% t: }5 o* x7 B6 l4 T
Residue class ring of integers modulo 12. `" v/ h3 P' |& D9 U) ~: z/ `
Abelian Group isomorphic to Z/12  r: ^  e- u; r1 d# @9 o
Defined on 1 generator
$ r- V5 D* F& RRelations:
6 s$ x8 }* q0 a: q    12*$.1 = 0# D, J2 r1 m2 r
Residue class ring of integers modulo 136 o9 o  s! }7 o7 k' i7 O5 s
Abelian Group isomorphic to Z/12  e' ^9 U8 Y" E9 g
Defined on 1 generator' S( B# g% z# B) T+ P4 m
Relations:  a2 Q8 \* _* _# {5 ^
    12*$.1 = 0
# D1 u) k  R' u4 u0 i2 }Abelian Group isomorphic to Z/12     素数环的乘群同构Z13-1=Z12Defined on 1 generator
4 n+ {+ a3 x1 e% p0 u0 H$ H# iRelations:
  ~/ R3 G# v5 Z9 S1 J9 M+ r. M    12*$.1 = 08 ]! a2 O  p2 F0 y
RngIntRes8 F1 }; V0 h+ ]7 @! M) V- Z" H
Residue class ring of integers modulo 13( P' ]4 t2 R; r0 V
Abelian Group isomorphic to Z/138 T' _6 W9 w1 X7 b6 O+ `7 s
Defined on 1 generator5 [' j$ q3 \4 l/ f/ J
Relations:0 d" P" e& C+ L
    13*$.1 = 0
作者: lilianjie    时间: 2012-1-11 14:24
本帖最后由 lilianjie 于 2012-1-11 14:25 编辑
$ O7 h( |: O& T$ h- {; E8 B2 K3 I
5 O3 R, j) n* H6 [, W0 `Z:=IntegerRing() ;Z;   
. g" T/ I/ j# V/ Z5 N; j
: X8 K" @0 Z8 H& X% k" sR:=IntegerRing(12) ;R;   0 m: w! d2 G% K( v+ k* p
S:=IntegerRing(13) ;S;   . I2 C4 u6 o3 z# B  M
* d# M4 g6 ~4 p# h5 J; l3 ~
) d6 ?1 x: A& }, q; H3 M. z
PrimeRing(R) ;0 N! H' J; A6 J9 u+ l( G/ N$ g/ d/ ]
Centre(R) ;
4 r. ?$ e$ z0 L  h$ b0 ~2 U, t1 i+ c, n. s
Characteristic(R) ;
' x9 K, G, e) @/ {! q) c) j# R ;阶----元素数5 w* a, f' J6 V! X7 s
IsPID(R) ;非素数不是整环不是极大理想整环,但都有极大理想公因IsDomain(R) ;( b* b# \5 b: }7 s
Has**(R) ;$ i2 o1 V: f+ V) H" }) j. f3 a. J
* K* b' o" f/ i. c  c" Y
IsPID(S) ;) l# O; h8 A* ^+ \1 X' L+ R% x6 R
IsDomain(S) ;
# f; I! [& z- n3 pHas**(S) ;
9 f1 M8 p  p3 f4 ?R eq S ;7 l1 l! T2 C+ \. t+ p$ B7 y; C
R ne S ;
2 `& r- }$ J1 h6 A4 @0 a5 O6 t
7 ^) a4 b. ]5 a5 W" e7 CParent(R!123) arent(S!123) ;
/ ^+ n9 V" T0 ECategory(R!234) ;Category(S!234) ;
) V& I+ l8 `8 R; c* d
9 n2 ~; Z" v& ]* s. k' ma:=Random(R) ;a;b:=Random(S) ;b;
, M# V) w) ]9 ?6 h7 M9 LRepresentative(R) ;
' K/ X. z& ]! p4 Z  LRepresentative(S) ;
& R# |5 a* r& n+ B& ]
2 I& B6 a8 a: J0 \6 }(R!a) in R ;
  L$ n  |7 u! @9 D4 L& |(S!b) notin S ;4 a4 t$ d' r1 h/ A0 A# }$ Z- G
IsUnit(a) ;                是单位吗
: B9 i# f& z; L+ ^6 E$ @8 [IsIdempotent(a) ;是幂等元吗
4 Y7 @  w# K/ w6 a0 O" n0 l" cIsNilpotent(b) ;是幂零元吗' |5 @& t. ?# T5 A9 u' K8 C
IsZeroDivisor(a) ;可除零吗" Y  @$ w: |1 F4 ]! L6 r
IsIrreducible(Z!b) ; 可约吗
IsPrime(Z!a) ;
  e! c% h& \  I) j
& M, x: E2 o; ]5 |Z!a gt Z!b ;
# J7 s' u- ^6 F( A7 ~4 MZ!a ge Z!b ;9 Q9 v: b3 E( i  r
Z!a lt Z!b ;
) w# Y. K$ t) b+ MZ!a le Z!b ;只有同类环才可比较元素大小,
Maximum(Z!a, Z!b) ;
) `/ O6 D/ A+ T0 B$ s" k7 VMinimum(Z) ;
% h. y) r, g, \- z% J# {( E" g5 Y: T+ H6 H
Maximum(S) ;
$ w9 u% [' ?/ B; }4 U# `Minimum(Z!a, Z!b) ;
8 O( {. @  l, }Minimum(R) ;
, L: {% _/ p$ G/ R" }' r
: _/ X6 U0 d' o) t' k( f! t/ i7 d. ]  s5 ~& |4 j$ t. i: V% j

! d& k9 D. n1 Q7 B1 n1 ?0 OInteger Ring
1 Y/ x$ A+ U- E' f6 BResidue class ring of integers modulo 12
6 ~1 _/ K1 d9 }5 w4 f- o& LResidue class ring of integers modulo 138 [7 @/ H( g: T! t+ v0 s# W; F
Residue class ring of integers modulo 12
8 o3 D$ @4 d8 HResidue class ring of integers modulo 12' u* ?8 J6 [7 z2 J, ~5 T3 b- j* P; R( C
12
" J/ z' T9 q) T) j9 X129 W: R, p' v5 w
false
# u9 F1 {( z  f. e: rfalse& _" \! R: E1 S0 ^4 k" E  [6 R
true
# f2 i( c- ]/ S4 }true8 M$ c9 ^  a. S! l* y+ H# r" R0 n4 I
true
, J6 i0 y* W* s" \; otrue) C# B& I# \/ B) i1 g4 ~6 }1 N
false
7 D" Y7 H" c. n, z% e' Utrue
- j! ~7 a3 t& c! O8 RResidue class ring of integers modulo 12
% _1 ?3 f4 ]: d: t8 S2 ~$ V* CResidue class ring of integers modulo 13) B' o& g, k  Z$ m( D8 K
RngIntResElt% _, w# b4 D3 ~2 @# J8 p
RngIntResElt& c2 O0 n2 j, p5 M5 L& Y, r- G
9
! Z* k7 n5 v7 K' y12. ~. B! ^+ x: V
0
5 j- Q: W' x) J  O) \- z6 Q5 k6 P0. [0 ~: E2 s: W# `8 M
true
) v" G. S# S; r- T& zfalse
' b  J6 R+ Q, D6 x: f; kfalse( v# H* F( e3 B9 G2 r& L. z$ r
true' D1 }# s0 Y% U. G, D+ Z7 Y
false
6 _3 P! L: a  d. O9 H" T3 Vtrue
& c' O6 D; m! l/ Q4 Ufalse
( N0 y$ [# i# S- W8 wfalse) J  E; a5 s2 R+ x  X' Z
false& i% H, ?* D6 J; |; Q
false
0 ~! \7 z/ n9 H1 Atrue' K+ _: x% l3 \& L
true
0 w* G  P* T( C123 N$ }) \+ ^. ~; F
11 x6 t. l! p# n. {0 E* s
: b1 a: `! }( n  U* p' I0 C
>> Maximum(S) ;' s8 g' ]  }7 x( z/ G, H, J
          ^
/ R% ^. O7 b. W4 I1 SRuntime error in 'Maximum': Bad argument types7 g6 r, E8 q+ v2 N! c& S* D+ c6 E
Argument types given: RngIntRes
5 G8 o; z+ l& o6 `( m  }4 p! D( }% {( m7 u# Q) c$ _
9- @% g+ e6 e! ?$ q) G6 `

5 e5 k* W9 Y+ m; |' ~: B; F4 V>> Minimum(R) ;
/ |' i/ M6 N4 l2 \7 l, b+ s( Q          ^$ a1 N) f; U2 B& x
Runtime error in 'Minimum': Bad argument types- Q: b% z$ p- t- q0 q% h& D
Argument types given: RngIntRes
作者: lilianjie1    时间: 2012-1-11 15:48
本帖最后由 lilianjie1 于 2012-1-11 15:56 编辑
, }2 K/ f' k, i" H$ M" C* a5 T7 l0 @9 q
Z:=IntegerRing() ;Z;   6 M! \' S& R% B% [; v
I12:=ideal< Z | 12 >;
  \: B& K/ t; q9 W! Y3 y0 k+ S5 H4 @I12;
! P) o* L. h- f. @' lZZ:=IntegerRing(15) ;ZZ;   & Z) u! T$ {2 Q8 N. A* }
IZZ15:=ideal< Z | 15 >;
$ }. c. q' @) ?  a; |, RIZZ15;+ v( E& u+ b' \* y; H/ X
I12 eq IZZ15;
: L  p+ q" B0 \2 qQ1:=quo< Z | 12 >;Q1;
8 l, n' |7 C4 XZZZ:=IntegerRing(5) ;ZZ;   
8 J( x6 k1 J6 ~% eIZZZ5:=ideal< Z | 5 >;
9 K5 Z% d" O" F6 k+ G  Y9 K$ S1 I' FIZZZ5;
# ^. x( _2 v+ y/ `* j! Q' Z6 V
1 n! D8 I" y( p) hI12 *  IZZ15;            理想和/积/并/交,0 V* r3 S, J/ H% k% {5 i
理想和是理想对应两(可多个)元素加,! U# b. N7 P% W* I! f5 \  k
理想积是两理想(可多个)对应元素积,
# R. t" s$ @( i, c: I6 {理想并就两(可多个)理想元素并,就不一定还是理想,
9 U$ x% F$ {$ [9 r) a& V1 S9 C* A理想交是理想(可多个)元素交,理想交一定还是理想,
1 t( Y+ J! r! z; {1 A' C3 ^3 Z; y/ B! N3 i" P/ Z9 X6 g! E) d7 \
理想积是理想交的真子集,极大理想交是理想------J根
$ [- M" H8 j4 s# r, `5 n6 K
理想商就理想间同态:是必须能整除
. @) A- q8 Q5 c9 rI12 +  IZZ15;% Q0 y1 H- k; m& z: e/ w1 R; l
I12 meet  IZZ15;
1 p$ F5 ~% D6 j" n2 M# s: O/ H' Q( x" {! E* h
I12 * IZZZ5;6 v9 f- f+ |! z7 |( A
I12 + IZZZ5;
2 v. N8 I- e# h, G8 [5 S& KI12 meet IZZZ5;2 r' C  s! F1 f7 [) K$ Z1 U, n, ]
I12 / IZZZ5;. c' `8 g+ P9 @
IZZZ5/ I12 ;8 c# w+ ]! E) |  O% v
Z * IZZZ5;
0 _5 J7 k: O7 u. pI12 + IZZZ5;
4 t! ^( [) u$ D6 b/ {& eIZZ15 meet IZZZ5;
9 v- G% k9 r8 c' ^7 VIZZ15 / IZZZ5;
Z meet IZZZ5;
8 C3 Y$ ~0 V) a3 JI12 meet IZZZ5;
0 p2 a7 R' [5 z( ^+ pIZZ15 meet IZZZ5;& q- g7 O# e; B3 B+ y
IZZ15 / IZZZ5;
; {+ }3 ?6 s2 W5 h7 F
: j3 h( Y- l- S3 ~I12  subset  IZZZ5;运算后的各种理想互相是否包含IZZ15  subset   IZZZ5;) @. n+ M3 v- r) q3 I5 d9 U
IZZ15 subset IZZZ5;1 C* z# e7 i# f  u8 r( C
IZZZ5 subset IZZ15;

3 S* |& ?" W( J$ a- wInteger Ring
0 m# R, x" f  W) Z! |Ideal of Integer Ring generated by 12
: x' c. i/ l2 i/ x  NResidue class ring of integers modulo 15
# p! A9 K% Z7 ~1 h0 z( P6 RIdeal of Integer Ring generated by 15
; w2 w6 o0 ~8 j; f4 lfalse
4 m7 d) ]! j& u; d& \- U7 ?4 wResidue class ring of integers modulo 12
. x4 L, I" U; f, J, v0 t; v6 vResidue class ring of integers modulo 15
+ S" s3 D2 n. k% n% rIdeal of Integer Ring generated by 5$ |6 P/ c2 W' e4 T* B3 @
Ideal of Integer Ring generated by 180+ R/ ]0 n6 W1 P4 |: O. n- n# Q8 F0 ^
Ideal of Integer Ring generated by 37 }3 j$ R/ m, T- e! A. m
Ideal of Integer Ring generated by 60+ z: c! R0 \9 I
Ideal of Integer Ring generated by 60; m3 u& |3 [+ b* r9 B
Integer Ring2 G4 e; a: a9 @* l8 t
Ideal of Integer Ring generated by 60
; A2 z5 b, y- a" o& x
0 ]* h, K* e4 e* d>> I12 / IZZZ5;
% H2 I, u" A7 L: _! C/ f+ H. x       ^. b1 L5 z+ ^( P+ y2 Z  r% u5 q
Runtime error in '/': Argument 2 must divide argument 1.
- o6 A" q6 x* {( h% L9 ^
  F* z, U% c2 W& M( x/ H# C
6 _" ?' |5 {9 d>> IZZZ5/ I12 ;
8 o% ?( j: H2 Q0 F1 o. p! V        ^
  I% j# ]5 b6 [. D: zRuntime error in '/': Argument 2 must divide argument 1.
9 V, r  J+ j2 j4 x  c& ~5 B2 o8 t$ B" ?0 |
Ideal of Integer Ring generated by 5
" m. F/ y5 C1 Q4 c2 f% ^Integer Ring  P  s, H0 x1 g9 ~) j5 T" S
Ideal of Integer Ring generated by 15& ?) P0 a& Q* d& Z) z8 z
Ideal of Integer Ring generated by 30 G; ~( e  B5 p6 r. @* B
Mapping from: Ideal of Integer Ring generated by 3 to RngInt: Z
7 n5 u" h+ n) x0 X7 s8 qIdeal of Integer Ring generated by 5
& W9 G6 Q6 u$ \. R! PIdeal of Integer Ring generated by 60
: T4 w9 K0 L/ N" D  H& a: KIdeal of Integer Ring generated by 15' Z5 w9 r5 y6 `, d/ U2 L* c
Ideal of Integer Ring generated by 3/ ^$ X* q6 `+ J: z% g, K# v" t  U
Mapping from: Ideal of Integer Ring generated by 3 to RngInt: Z4 u/ r$ O2 S, {- p. J1 s5 D4 g

1 D( i' W5 @3 `, R' q% wfalse% _; [, i8 C  W! P" d$ o( ?
true( U: h( ?& i( ]7 j2 |
true
& d, M& x+ }* `- pfalse
作者: lilianjie1    时间: 2012-1-11 16:39
Z:=IntegerRing() ;Z;   
% M2 z8 P" V5 R9 C$ c: _- ]I12:=ideal< Z | 13 >;
7 w7 |6 {+ @7 n/ i/ Q7 F) wI12;
) i' C$ p! _" M0 iZZ:=IntegerRing(60) ;ZZ;   
' Q' R0 M1 b3 S1 X& X& ~IZZ15:=ideal< ZZ | 31 >;
6 J6 H5 `  \  |IZZ15;! ^, @# J! E5 c/ e. j
ResidueClassField(I12);
& n# T% d+ L7 m$ Z9 `ResidueClassField(IZZ15);环和极大理想的商构成域---剩余类域,剩余类环中的素数都是极大理想

  Z* j9 F6 \* r+ z  v1 Y* \  N7 rloc< Z | 19> ;6 Z  ?4 O) v# ]" f) p7 Q+ I- ^
loc< Z | 17> ;9 i% _% p) ~  g
loc< Z | 131> ;局部化:一个素理想到原环元素的映射

1 W" Q$ s( Z6 next< Z | > ;超越扩张到一元多项式2 o' p& l( T& G. u3 e0 x
ext< ZZ | > ;
7 l  c, ^& l: {) ]
0 P4 I5 O( \( F: R8 Gext< Z, 2 | > ;超越扩张到多元多项式. _% V- r  [( J; U" B3 f

+ Z9 B  O$ e% @) e; Y: xext< Z, 3 | >
Completion(Z, I12) ;
1 n) y0 v  p% M* a
. @3 m4 k% ^2 A4 `' n- Z! C# P' |$ n
comp<Z |I12  >;
; P6 A9 z" c) b5 }    素理想零理想完备化,和P进环联系起来 , b. M: M. @4 N3 C. j
Completion(Z, 0) ;
$ U( ]/ J1 U7 x2 M; B1 V2 [5 rcomp<Z |0  >;9 {% A) m8 b" {7 p/ r: m! `

$ F5 _( D7 y5 z, X' d7 ~Integer Ring/ Q. E* e: {# N. s
Ideal of Integer Ring generated by 13, |3 f3 U' r  g0 }' _
Residue class ring of integers modulo 60, f; M% D! L( w1 @2 K
Residue class ring of integers modulo 60
2 D( N2 a# M2 E, ~6 l8 f3 TFinite field of size 13
  L8 E5 k3 f2 c. kMapping from: RngInt: Z to GF(13): |2 f1 G* \/ ^; |! M
modulo 13 % j# z: ~8 n3 Y$ v

- B) `9 Y% h& b* k* s, ?0 M3 v>> ResidueClassField(IZZ15);  B) E8 T& N  A- R- A9 G
                    ^1 e( H: [6 g! U8 x3 w
Runtime error in 'ResidueClassField': Bad argument types! O& }' t' v5 B, Q5 {. Q
Argument types given: RngIntRes6 d/ d5 X- I9 m5 o# V3 C4 ~
. D4 L: v' t- F% k
Valuation ring of Rational Field with generator 197 w% I8 T8 T9 J9 U. N
Mapping from: RngInt: Z to Valuation ring of Rational Field with generator 19
8 W  C4 ^$ p5 u3 CValuation ring of Rational Field with generator 17" i1 W( j% U: J  v
Mapping from: RngInt: Z to Valuation ring of Rational Field with generator 17: K) z3 V( |$ _
Valuation ring of Rational Field with generator 131
5 _0 u6 M# O2 I: p0 P* B' t! f8 WMapping from: RngInt: Z to Valuation ring of Rational Field with generator 1313 X3 {- n# G: i8 A
Univariate Polynomial Ring over Integer Ring) h; R* C" g# m$ y: Z0 C
Univariate Polynomial Ring over IntegerRing(60)
* z- y8 ^1 ~, p& d" q! O, v% U$ c, L4 X) y! I7 ^% F$ Y
>> ext< Z, 2 | > ;
$ ?4 P( N8 G, ?; e1 Z3 ]% D      ^& q5 o2 e/ d: p$ i
Runtime error: This constructer is no longer supported
. j  ?/ |+ }* V0 K+ a/ r0 s1 b# u8 J- Z
6 ~( y% S8 n1 j5 t; W6 y( Q
>> ext< Z, 3 | >, G& {% F: z2 f0 J2 z
      ^4 Y/ L; o/ |- |
Runtime error: This constructer is no longer supported( K( z* ?/ T; [, P. K( x! l. A! V
( ]: G. O% _1 F! ^2 v
13-adic ring
0 f3 v& C3 D9 Q  H, j# KMapping from: RngInt: Z to pAdicRing(13)1 W7 G+ T3 D. L2 `0 \1 R2 u

' M& T* [% @7 E; l% BCompletion(
5 O: n  n% X" g    Z: Integer Ring,
; v  Q- D; @! L5 E4 j    P: Ideal of Integer Ring generated by 07 `9 g& r8 v. V  ]





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