Changeset 2ddc345 in git

Timestamp:

Apr 26, 2005, 10:24:53 PM (18 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')

Children:

c01577b9269d33a2e140644f2888687cda7bb211

Parents:

c961371e9cbd176376a16fa45f2635d4dc1066f1

Message:

*levandov: example is changed, simplified


git-svn-id: file:///usr/local/Singular/svn/trunk@7912 2c84dea3-7e68-4137-9b89-c4e89433aadc

Location:

Tst/Plural

Files:

• doc-syz.res.gz.uu (modified) (1 diff)
• doc-syz.stat (modified) (1 diff)
• doc-syz.tst (modified) (1 diff)

Tst/Plural/doc-syz.res.gz.uu

@@ -1 +1 @@
 begin 640 doc-syz.res.gz
-M'XL("`X>'D$``V1O8RUS>7HN<F5S`%V2WVN#,!#'W_TKCK*'1&/;Q+;;D`B;
-M?1'*F.WZ--KB9AE"?YLQXU^_B[;J%H2[^WYRY^62Q=LT>@$`'L`L>H:>RE5_
-MEWWT?&MQ)2(`%#?9(5.$^I:Q$`20'C_=7)?]P_:GGZM$-?N]`"[9X0OF9TF&
-M+*:,%$RSDK+TY,-@L-R<27[<>+1)&`6P3]0E*R!\]U;XM?\>-VCZ'TT"W,Z9
-M6,E8M.I]K7HKR0==_<'HPNA=]3'`NE4--[;+1N?#6J^KV+H%W("J#"84/C0`
-MAY3K7&WWI/<Z6\Z?9CT6LBEM,W$JI^-.0WB6\7ID%\+1PC%>B<8FW$6?VH6M
-MNWV,;DE<%FO/*5HROA$A-9).BY,;\62)I%,-9Y.EVV0'D0S/+.0L%"ST6HXS
-MBF2N4A)U^L81[8_I]VX+B<3K[C*!8SKA52N2H$C<6%!;,Q*/T90.QB.7XY'8
-ME0BG<IA5,J@6AM0<W]A:,FFQ9W*JT")7,+QFM&OX-VQ:XO5C-0_R.R><^G?6
-)+[&/;0'B`@``
+M'XL("*NB;D(``V1O8RUS>7HN<F5S`%U374^K0!!][Z^8F/NP4%!9:O6&P(/T
+MA>3F&JP^F=K0LBH)A99=KRR__IZE%AH3DIV9,V<^F>73(OE+1%Y$?Y)[NE!2
+M79;%YB*8++\1_HU46U77I?R!^A&!LBZJ0C$KF)B7HHCR>NM*W5U6XNM2JDP-
+M_K.(FJ)ZI\=#R*Z=U')8ZVBGLYQ\']#5%3VO#TS6:]\:&#<1[8IJ7Y>:0GJL
+M:_7P]HPLFLVMGI%2(2FCN?J@!BC5;_1I\"'`'`$RU10MQ2_^"M]8_>T`+7Y"
+M=Q'</8>OPI0'T'O-7X7>5:_'+]QHD`?&[PA1>H:;VAU\%@/#U@&TG@&L#>A$
+M\JXCJK99^2XV3<9B9V&=8=A)O5=%7;%&Y,M[:TCE\7/D*2O*XRB^!'T5\H-4
+M31_9/V'F5NRRDC:9%'(@8V7]-.-#F+[.[)9/-9\:J<-C,\^%;-FMK='$0)J=
+M2%[8OOK3=D1N3@@/-1`](O,3XH<=D+-HF'N1"U26A/'!B3TGYD[L]ST<[>^B
+M$DVF1$X;35M1J09&48H=Q+$3["@)I<I9<C8;K"$))LF+MPH[)(6$C?AVJ[LI
+M2UUNF8:9R].I9]EH_&CK./RPG9;#RTT-T@O&R828K4*-WB#=P.E(`]1V1L(+
+M8&[8>JH[[K9=[WH+"T8%Z<Y4@)!C9E/$6$*?AI]:X/@I=G7^60I:AKBB\_8X
+M?@I9=((M8>/7@YF?)HIKQ)WT,L/4*KFOI?&V1R6QSN+A;S`3!`W&M9G:&'1V
+4/&YSP)^2>5;P:_(?X(DT)3`$````
 `
 end

Tst/Plural/doc-syz.stat

@@ -1 @@
-1 >> tst_memory_0 :: 1092492813:2004081415:2-1-99:ix86-Linux:mamawutz:356508
-1 >> tst_memory_1 :: 1092492813:2004081415:2-1-99:ix86-Linux:mamawutz:706964
-1 >> tst_memory_2 :: 1092492813:2004081415:2-1-99:ix86-Linux:mamawutz:706964
-1 >> tst_timer_1 :: 1092492813:2004081415:2-1-99:ix86-Linux:mamawutz:13
+1 >> tst_memory_0 :: 1114546859:2005042520:2-1-99:ix86-Linux:mamawutz:435260
+1 >> tst_memory_1 :: 1114546859:2005042520:2-1-99:ix86-Linux:mamawutz:706164
+1 >> tst_memory_2 :: 1114546859:2005042520:2-1-99:ix86-Linux:mamawutz:706164
+1 >> tst_timer_1 :: 1114546859:2005042520:2-1-99:ix86-Linux:mamawutz:8

Tst/Plural/doc-syz.tst

@@ -1 +1 @@
 LIB "tst.lib";
+LIB "nctools.lib";
 tst_init();
-ring Rq=(0,Q),(x,y,z),dp; //U_q(so_3)
+ring Rq=(0,Q),(x,y,z),dp; // U_q(so_3)
+minpoly = RootOfUnity(6); // Q is a 6th root of unity
 matrix C[3][3];
 matrix D[3][3];
-C[1,2]=Q2;
-C[1,3]=1/Q2;
-C[2,3]=Q2;
-D[1,2]=-Q*z;
-D[1,3]=1/Q*y;
-D[2,3]=-Q*x; 
-system("PLURAL",C,D);
+C[1,2]=Q2;    C[1,3]=1/Q2;  C[2,3]=Q2;
+D[1,2]=-Q*z;  D[1,3]=1/Q*y; D[2,3]=-Q*x; 
+ncalgebra(C,D); 
+option(redSB);
+option(redTail); // we wish to have minimal bases
 poly Cq=Q^4*x2+y2+Q^4*z2+Q*(1-Q^4)*x*y*z;
 poly C1=x^3+x;
 poly C2=y^3+y;
 poly C3=z^3+z;
-ideal I=Cq,C1,C2,C3;
+ideal I=Cq,C1,C2,C3; // ideal generated by central elements
 I=std(I);
-module a=syz(I);
-print(a);
+I;
+module S=syz(I);
+size(S);
+ideal tst = ideal(transpose(S)*transpose(I));
+std(tst);
 tst_status(1);$