Changeset 7a09e1d in git


Ignore:
Timestamp:
Sep 10, 2013, 7:28:50 PM (11 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
4049491feb1f9f52f927026394356d3dc0bff1ab
Parents:
1b70fe982adba74b2d7a2f4766d7ec6d103a2cf2d18df5f1f6b128c177729f69cdcb63493d3b8277
Message:
Merge branch 'spielwiese' of https://github.com/jankoboehm/Sources into jankoboehm-spielwiese

Conflicts solved:
	Singular/ipshell.cc
	libpolys/polys/ext_fields/transext.cc
	libpolys/polys/monomials/ring.h
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • Singular/LIB/ellipticcovers.lib

    r1b70fe r7a09e1d  
    213213  }
    214214  if ((typeof(xy)=="graph")||(typeof(d)=="list"))  {
    215     list xl = ringlist(R)[1][2];
     215    list xl = ringlist(basering)[1][2];
    216216    list ed = xy.edges;
    217217    number f=1;
    … …  
    408408  if (typeof(P)=="graph"){
    409409     if (size(#)>1){
    410        return(gromovWitten(propagator(G,#)));
     410       return(gromovWitten(propagator(P,#)));
    411411     } else {
    412412      int d =#[1];
    … …  
    416416      for (int j=1; j<=size(pa); j++) {
    417417       ti=timer;
    418        re[j]=gromovWitten(propagator(G,pa[j]));
     418       re[j]=gromovWitten(propagator(P,pa[j]));
    419419       ti=timer-ti;
    420420       //print(string(j)+" / "+string(size(pa))+"    "+string(pa[j])+"     "+string(re[j])+"      "+string(sum(re))+"     "+string(ti));
    … …  
    461461       ti=timer;
    462462       //pararg[j]=list(propagator(G,pa[j]));
    463        re[j]=gromovWitten(propagator(G,pa[j]));
     463       re[j]=gromovWitten(propagator(P,pa[j]));
    464464       ti=timer-ti;
    465465       if (vb>0){print(string(j)+" / "+string(size(pa))+"    "+string(pa[j])+"     "+string(re[j])+"      "+string(sum(re))+"     "+string(ti));}

  • Singular/ipshell.cc

    rd18df5 r7a09e1d  
    17961796  }
    17971797#endif
    1798   else if (rIsExtension(r))
    1799   {
    1800     if ( r->cf->extRing!=NULL )// nCoeff_is_algExt(r->cf))
    1801     {
    1802       rDecomposeCF(&(L->m[0]), r->cf->extRing, r);
    1803     }
    1804     else
    1805     {
    1806       assume( nCoeff_is_GF(r->cf) );
    1807 
    1808       lists Lc=(lists)omAlloc0Bin(slists_bin);
    1809       Lc->Init(4);
    1810       // char:
    1811       Lc->m[0].rtyp=INT_CMD;
    1812       Lc->m[0].data=(void*)r->cf->m_nfCharQ;
    1813       // var:
    1814       lists Lv=(lists)omAlloc0Bin(slists_bin);
    1815       Lv->Init(1);
    1816       Lv->m[0].rtyp=STRING_CMD;
    1817       Lv->m[0].data=(void *)omStrDup(*rParameter(r));
    1818       Lc->m[1].rtyp=LIST_CMD;
    1819       Lc->m[1].data=(void*)Lv;
    1820       // ord:
    1821       lists Lo=(lists)omAlloc0Bin(slists_bin);
    1822       Lo->Init(1);
    1823       lists Loo=(lists)omAlloc0Bin(slists_bin);
    1824       Loo->Init(2);
    1825       Loo->m[0].rtyp=STRING_CMD;
    1826       Loo->m[0].data=(void *)omStrDup(rSimpleOrdStr(ringorder_lp));
    1827 
    1828       intvec *iv=new intvec(1); (*iv)[0]=1;
    1829       Loo->m[1].rtyp=INTVEC_CMD;
    1830       Loo->m[1].data=(void *)iv;
    1831 
    1832       Lo->m[0].rtyp=LIST_CMD;
    1833       Lo->m[0].data=(void*)Loo;
    1834 
    1835       Lc->m[2].rtyp=LIST_CMD;
    1836       Lc->m[2].data=(void*)Lo;
    1837       // q-ideal:
    1838       Lc->m[3].rtyp=IDEAL_CMD;
    1839       Lc->m[3].data=(void *)idInit(1,1);
    1840       // ----------------------
    1841       L->m[0].rtyp=LIST_CMD;
    1842       L->m[0].data=(void*)Lc;
    1843     }
    1844     if (L->m[0].rtyp==0)
    1845     {
    1846       //omFreeBin(slists_bin,(void *)L);
    1847       return NULL;
    1848     }
     1798  else if ( r->cf->extRing!=NULL )// nCoeff_is_algExt(r->cf))
     1799  {
     1800    rDecomposeCF(&(L->m[0]), r->cf->extRing, r);
     1801  }
     1802  else if(rField_is_GF(r))
     1803  {
     1804    lists Lc=(lists)omAlloc0Bin(slists_bin);
     1805    Lc->Init(4);
     1806    // char:
     1807    Lc->m[0].rtyp=INT_CMD;
     1808    Lc->m[0].data=(void*)r->cf->m_nfCharQ;
     1809    // var:
     1810    lists Lv=(lists)omAlloc0Bin(slists_bin);
     1811    Lv->Init(1);
     1812    Lv->m[0].rtyp=STRING_CMD;
     1813    Lv->m[0].data=(void *)omStrDup(*rParameter(r));
     1814    Lc->m[1].rtyp=LIST_CMD;
     1815    Lc->m[1].data=(void*)Lv;
     1816    // ord:
     1817    lists Lo=(lists)omAlloc0Bin(slists_bin);
     1818    Lo->Init(1);
     1819    lists Loo=(lists)omAlloc0Bin(slists_bin);
     1820    Loo->Init(2);
     1821    Loo->m[0].rtyp=STRING_CMD;
     1822    Loo->m[0].data=(void *)omStrDup(rSimpleOrdStr(ringorder_lp));
     1823
     1824    intvec *iv=new intvec(1); (*iv)[0]=1;
     1825    Loo->m[1].rtyp=INTVEC_CMD;
     1826    Loo->m[1].data=(void *)iv;
     1827
     1828    Lo->m[0].rtyp=LIST_CMD;
     1829    Lo->m[0].data=(void*)Loo;
     1830
     1831    Lc->m[2].rtyp=LIST_CMD;
     1832    Lc->m[2].data=(void*)Lo;
     1833    // q-ideal:
     1834    Lc->m[3].rtyp=IDEAL_CMD;
     1835    Lc->m[3].data=(void *)idInit(1,1);
     1836    // ----------------------
     1837    L->m[0].rtyp=LIST_CMD;
     1838    L->m[0].data=(void*)Lc;
    18491839  }
    18501840  else

  • Tst/Manual/ellipticcovers.res.gz.uu

    r1b70fe r7a09e1d  
    11begin 664 ellipticcovers.res.gz
    2 M'XL("$IA)U(``V5L;&EP=&EC8V]V97)S+G)E<P#E5TUOXS80O0OH?Q@L>K`2
    3 MKBL.*5E)$!?HE[%`L0B2%#T(2>W83%981[)E.>N?WR$I4I23[A;HL1!@Z8V&
    4 M;X;#1VI\<_O+AX\`P*?P^X>?X%V[:\?K\N'=!40WW2N<`EG_*JNR'<47D;[#
    5 M=`IJO2XW;;E<UB^JV8TK]66\:Q>M'R8ZQB,_0^Z=Y!2:LGJ"Z\M1P@Z<'9`=
    6 M!#O(F(VVG&V1;07;2K9-V3:+V6IS\9T?FD[AJ5EL/L$,+N%Y\5G--!JMRUT[
    7 MX@R98,1B4&<2':27KY[0.XO!4QP'A<BF,*,$BH(S$'<,]!W#.S*0^B["^UUD
    8 M$H,O9?L))%`1J!AJ!XMJ!1FHU9/:13[$9`J;IMXLGA9MW=C$355BEL04FL`]
    9 MGASP'N,?]+-\3\B93NE'QIXJ_T<J-%1F9'Y*/UDWO"/*3LTM[T*<#&G/!K0S
    10 M5TA])?J*79Z<6(1FE):1@AFJP&IM0B?001,M/QXH_4#GB>%`FZB91::M^7MY
    11 M,C`8-SS-AE:IK?+8MT_-V201HG<R:>26,!]:,TO(CYRE93QRQC>(Y3U/^@7Q
    12 M@<(<,:A"-K1*RWCDBZ]I":-?4)Y,O<(Y'T.U?WY0#5SQRW^QSFX<'1'+^GFS
    13 M;]7/=46G0-6.KHS6O-!L;4^=7(5=M6ZMPA4*UZ5?#9I8G[$(,I;C_CD=PV9!
    14 MNZLM*0G:OA,ZK0I^=QZ1;'7.DZA`ASC+HD(XA"R-"ND0;?RH2!V23$1%YE#*
    15 M,"HF#F6,1T7NT(0E47%FD:X21>")@UR'X-Q!U#$X.BAT$"X<E#H*EPZF.@Q/
    16 M'<QT'-ZEA!1(,T\<Y(8Y=Q`-\YF#0C-CXJ#4S,@=3#4S=ED)8B8J%`YR3872
    17 M0314J8/"4&4.2D/5947`C,T=Y&;LF8.HQXK$0:''BBXKRDD["W20&V?A(!KG
    18 M+BLJC7F;.LC-VRZKB1:NETL6R&C2"Q_>$KZ6B!4^'P@_UQ^A^KE^^;-L6U6-
    19 MKDARF&;^/9V6WAF3@3XS?0[#0*#VPD"F]K(S'MK,M&5HXW;NZ=!F"I"%-C15
    20 MZ$6<N)D%4N[8`D%[-B.^I#>B3:@7M^,SC!R'1D/)16ATG+(W<L_I9X.N/KWT
    21 M71@;:#(TVD!Y:'2!@BWJ`V&P47V@?F/XU?&+R7OU((YM%W/CNYB@?QFV+2A\
    22 MVX)O]BW#GN5UIZ*?2(*>3QXI<(:!8HU6:0(_POP@YE#N8%^MU&-9J94UJZ:I
    23 M&ZB7RWW3J!64%1!\4(]UHXX;/&K<SL_[G0%K8J$RY.<PO[C^]?:/ZX_4'<XM
    24 M[5HM7G1!ODZA?7>?R\U&N[;JT,(CS03F\;S+:]%"6W]6E39]FS@L@R\/?1..
    25 MRR."#8QT"#RI2C6+EFA_VU=+O3F]U_^E=-W'>Q96\-OU?E4W7]5)_U7&O-L<
    26 MMV^T^$=[0_>6JGFF3()^M?/^+\MA^6W5SZCH7PLR=]F(H#$2O)^0H-VN_P_I
    27 6/SO[W8CW>U'0WOX^^AO@\L+,4@T`````
     2M'XL("/R0+5(``V5L;&EP=&EC8V]V97)S+G)E<P"=6-]OXS8,?C>P_T$X["%N
     3M=)E%R8ZSHGG8A@4'#$.Q'K`'HQURK=$+UN:G>]<__TC)E.5$`8S$0*2/HCY2
     4M(BDKN?O\QZ>_A1!J+O[Z])OXT!R:R<OJRX=KD=RU0S`7*/UOM5XUH_0ZH5;,
     5MYZ)^>5EMF]7CX^9;O3],UO7WR:%9-GZ:;AF/]"RY5S)SL5^MG\4_-Z-,OBOY
     6M#O)=RW>3RM%.R1W(G98[(W>YW!6I?-I>_^2GYG/QO%]NOXJ%N!&OR__K!:'1
     7MR^K0C)0$J26R6-2*=`MQ\*0'7EGW>FD:;$0Q%PMTH*J4%/I>"FHA;$$*0ZT.
     8MV_O$.B:^KYJOP@C<!-R,^B"6ZR=1B/KIN3XDWL1T+K;[S7;YO&PV>^>XW954
     9M9BF:1O``5^_P`.DOU#<?$;%HC%\F]53E62JP5'9F.<:OHIW>$A5CVY2MB:L^
     10M[:Q'N^"-I">C)V4_%;)H8C2.$8U9JD#J9)H<:*&U5AY/-'XB:T(XT3EJ5U&0
     11MM/QHKGH"JP;CHB\U)#7'NIUK+#-("%[)NE$ZPK(O+1RA.E(VCO%(&2+$YD%E
     12M74"\H=!'"':AZ$N-8SS2A5-:Q.`#JK*YSW"E)F+]]OJEWHM;=3,@SCP/CXC'
     13MS>OVK:E_WZSQ%%@WHUN;:S[1W-Z..5VUBUH;JS!"85RZ:.#".H]UX+&9=/U\
     14M(K9+K*YFA4Y@^4[QM*K4_:\)IBWY/$TJ8*1DD52:$<@\J0PC+/RDRAD9J9.J
     15M8)1+2*HIHT*JI"H936665#.':)?0@LH8*C*A%$,@&PH8:C*B-$-#5I1AF),9
     16ME3,LR(YJ70(T1,Q3ALHREPS!,L\8:F*&C*$A9E`,<V*&UBN-S$@%FJ$B*C`,
     17MP5+E#+6E*A@:2]5ZA<#.+1DJ.W?&$&BNSAAJFJM;K]`G4M;`4%EES1"L<NL5
     18M;HT=S1DJ.]IZ-:7$]>E2!&DT[1)?Q!*?4L0EONHE?DDOH<WKYMN_JZ:IUZ-;
     19M3#G("S^.IZ57AJR7GP6=PZ*7H.Z!($W=XU;<E]EEFU"FW-KSOLQN0!'*P.Y"
     20ME\09KRQ(Y98M2&C/9I,OZX3@'.J2F_DLHX*^T%(J'0J9TW1"Y3G]:H#WITM]
     21M-N,,3?M"9Z@,A6PH*%%O"()"]8:ZPO#1\<%47?8`3-PMYL[?8H+[2__:`MI?
     22M6R!Z;^G?64YO*M3#%/1\YB@#%Q!DK,U5Z)S.3Y4UJ:@9>!TLB^=Z7>^7#2[I
     23MS[?U(Z6KUP1SM5,/>@P9M7"U`]?%#AWOAMI@U'6AZZ*B?0^0M.T::O78$H-M
     24MB-4X1@?M*+0M3O+.3H,HE&T4/D?NDD=!H$M,O7_%]U5P,6JU:95<E-SB9X1#
     25M5@2!2#N1#D3@1"80J=17=(]0GQ*:P81ZF(=P2JCCA"9""(,\/$.8#UMRQ$,3
     26M)RR&>1@)RAG"Z<515J>$Z`F?GQ=$^0SA;)B':E!0B)!/[AZCNC3,EC%6*Y%%
     27M1WR,A,4RQHHEXN.P0%O&RZLE$AB==F^K"\KE'&.L7H;%.G)$6,98P0R+]3G&
     28M6,5$5CTLUI8Q5C(1'X>=$I8Q5C/#SIU(9$S:W0TN.'C.,5Y>,Y'(6,;+:^8<
     29M8ZQFAL4Z<E)8QEC-#(MUG+%]G>O@)ZQ6W0]"C?<R^N>*_I9Z.XQ4=VO2>`O[
     30+.?D!OEZ,HOP2````
    2831`
    2932end

  • Tst/Manual/ellipticcovers.stat

    r1b70fe r7a09e1d  
    1 1 >> tst_memory_0 :: 1378312527:3.1.3.sw, 32 bit:spielwiese:i686-Linux:lubuntu:788920
    2 1 >> tst_memory_1 :: 1378312527:3.1.3.sw, 32 bit:spielwiese:i686-Linux:lubuntu:2760704
    3 1 >> tst_memory_2 :: 1378312527:3.1.3.sw, 32 bit:spielwiese:i686-Linux:lubuntu:2760704
    4 1 >> tst_timer_1 :: 1378312527:3.1.3.sw, 32 bit:spielwiese:i686-Linux:lubuntu:864
     11 >> tst_memory_0 :: 1378717954:3.1.3.sw, 32 bit:spielwiese:i686-Linux:lubuntu:800428
     21 >> tst_memory_1 :: 1378717954:3.1.3.sw, 32 bit:spielwiese:i686-Linux:lubuntu:4857856
     31 >> tst_memory_2 :: 1378717954:3.1.3.sw, 32 bit:spielwiese:i686-Linux:lubuntu:4857856
     41 >> tst_timer_1 :: 1378717954:3.1.3.sw, 32 bit:spielwiese:i686-Linux:lubuntu:1143

  • libpolys/polys/ext_fields/transext.cc

    r1b70fe r7a09e1d  
    846846     NUM(result) = p_Diff(NUM(fa),k,ntRing);
    847847     //DEN(result) = NULL; // done by ..Alloc0..
     848     if (NUM(result)==NULL)
     849     {
     850       ntDelete(&result,cf);
     851       return(NULL);
     852     }
    848853     COM(result) = COM(fa);
    849854     //check_N((number)result,cf);

  • libpolys/polys/monomials/ring.h

    rd18df5 r7a09e1d  
    636636
    637637
    638 /* R, Q, Fp: FALSE */
    639 static inline BOOLEAN rIsExtension(const ring r)
    640 {
    641   assume(r != NULL);
    642   const coeffs C = r->cf;
    643   assume(C != NULL);
    644   return nCoeff_is_Extension(C) || nCoeff_is_GF(C) || nCoeff_is_long_C(C);
    645 }
    646 
    647638/// Tests whether '(r->cf->minpoly) == NULL'
    648639static inline BOOLEAN rMinpolyIsNULL(const ring r)

  • libpolys/polys/sparsmat.cc

    rd18df5 r7a09e1d  
    311311  poly p;
    312312
    313   if ((d>100) || (rIsExtension(r)))
     313  if (d>100)
    314314    return sw;
    315315  if (!rField_is_Q(r))
Note: See TracChangeset for help on using the changeset viewer.