Changeset 2ddc345 in git


Ignore:
Timestamp:
Apr 26, 2005, 10:24:53 PM (19 years ago)
Author:
Viktor Levandovskyy <levandov@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
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:
3 edited

Legend:

Unmodified
Added
Removed
  • Tst/Plural/doc-syz.res.gz.uu

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

    rc961371 r2ddc345  
    1 1 >> tst_memory_0 :: 1092492813:2004081415:2-1-99:ix86-Linux:mamawutz:356508
    2 1 >> tst_memory_1 :: 1092492813:2004081415:2-1-99:ix86-Linux:mamawutz:706964
    3 1 >> tst_memory_2 :: 1092492813:2004081415:2-1-99:ix86-Linux:mamawutz:706964
    4 1 >> tst_timer_1 :: 1092492813:2004081415:2-1-99:ix86-Linux:mamawutz:13
     11 >> tst_memory_0 :: 1114546859:2005042520:2-1-99:ix86-Linux:mamawutz:435260
     21 >> tst_memory_1 :: 1114546859:2005042520:2-1-99:ix86-Linux:mamawutz:706164
     31 >> tst_memory_2 :: 1114546859:2005042520:2-1-99:ix86-Linux:mamawutz:706164
     41 >> tst_timer_1 :: 1114546859:2005042520:2-1-99:ix86-Linux:mamawutz:8
  • Tst/Plural/doc-syz.tst

    rc961371 r2ddc345  
    11LIB "tst.lib";
     2LIB "nctools.lib";
    23tst_init();
    3 ring Rq=(0,Q),(x,y,z),dp; //U_q(so_3)
     4ring Rq=(0,Q),(x,y,z),dp; // U_q(so_3)
     5minpoly = RootOfUnity(6); // Q is a 6th root of unity
    46matrix C[3][3];
    57matrix D[3][3];
    6 C[1,2]=Q2;
    7 C[1,3]=1/Q2;
    8 C[2,3]=Q2;
    9 D[1,2]=-Q*z;
    10 D[1,3]=1/Q*y;
    11 D[2,3]=-Q*x;
    12 system("PLURAL",C,D);
     8C[1,2]=Q2;    C[1,3]=1/Q2;  C[2,3]=Q2;
     9D[1,2]=-Q*z;  D[1,3]=1/Q*y; D[2,3]=-Q*x;
     10ncalgebra(C,D);
     11option(redSB);
     12option(redTail); // we wish to have minimal bases
    1313poly Cq=Q^4*x2+y2+Q^4*z2+Q*(1-Q^4)*x*y*z;
    1414poly C1=x^3+x;
    1515poly C2=y^3+y;
    1616poly C3=z^3+z;
    17 ideal I=Cq,C1,C2,C3;
     17ideal I=Cq,C1,C2,C3; // ideal generated by central elements
    1818I=std(I);
    19 module a=syz(I);
    20 print(a);
     19I;
     20module S=syz(I);
     21size(S);
     22ideal tst = ideal(transpose(S)*transpose(I));
     23std(tst);
    2124tst_status(1);$
Note: See TracChangeset for help on using the changeset viewer.