Changeset b3ea61f in git
- Timestamp:
- Oct 6, 2008, 7:34:18 PM (15 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '00e2e9c41af3fde1273eb3633f4c0c7c3db2579d')
- Children:
- 40cb868fa73b4b919663ea7103e36b4df054e48e
- Parents:
- 886b0dae50b58b9f8b0863c63abf2f0ddacf9a26
- Location:
- Singular/LIB
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/central.lib
r886b0da rb3ea61f 1 1 /////////////////////////////////////////////////////////////////////////////// 2 version="$Id: central.lib,v 1. 5 2008-04-23 14:06:09 motsakExp $"2 version="$Id: central.lib,v 1.6 2008-10-06 17:33:57 Singular Exp $" 3 3 category="Noncommutative" 4 4 info=" … … 705 705 706 706 // check result of linearMapKernel 707 if( (typeof(T) == "int") and (T == 0) ) 707 if( typeof(T) == "int" ) 708 { 709 if( T == 0 ) 708 710 { 709 711 // All zeroes! Return Basis: … … 711 713 return( Basis ); 712 714 } 715 } 713 716 else 714 715 716 717 718 719 717 { 718 if( typeof(T) != "module" ) 719 { 720 ERROR( "Wrong output from the 'linearMapKernel' function!" ); 721 } 722 } 720 723 721 724 result = linearCombinations( Basis, T ); -
Singular/LIB/equising.lib
r886b0da rb3ea61f 1 version="$Id: equising.lib,v 1.1 8 2008-10-06 17:04:26Singular Exp $";1 version="$Id: equising.lib,v 1.19 2008-10-06 17:34:18 Singular Exp $"; 2 2 category="Singularities"; 3 3 info=" … … 359 359 { 360 360 charaStr = charstr(basering); 361 if ( charaStr == string(chara) + "," + parstr(basering) or minPolyStr<>"")361 if ((charaStr == string(chara) + "," + parstr(basering)) or (minPolyStr<>"")) 362 362 { 363 363 if (minPolyStr<>"") … … 442 442 ideal qIdeal = imap(myRing1, qIdeal); 443 443 444 if( qIdeal!= 0)444 if(size(qIdeal) != 0) 445 445 { 446 446 def r_base = basering; … … 457 457 else 458 458 { 459 if( qIdeal!= 0)459 if(size(qIdeal) != 0) 460 460 { 461 461 def r_base = basering;
Note: See TracChangeset
for help on using the changeset viewer.