Changeset a9c967b in git
- Timestamp:
- Apr 22, 2005, 6:04:46 PM (18 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')
- Children:
- 834754e36a63571f0f2f35770cdb783eaf40315f
- Parents:
- 492b694ff4ece8ce29a8d09b598f9c12148165cf
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/primitiv.lib
r492b69 ra9c967b 3 3 // This library is for Singular 1.2 or newer 4 4 5 version="$Id: primitiv.lib,v 1. 19 2005-04-20 17:28:48Singular Exp $";5 version="$Id: primitiv.lib,v 1.20 2005-04-22 16:04:46 Singular Exp $"; 6 6 category="Commutative Algebra"; 7 7 info=" … … 383 383 { "EXAMPLE:"; echo = 2; 384 384 ring r=0,(x,y),dp; 385 splitring(x2-2,"r1"); // change to Q(sqrt(2)) 385 def r1=splitring(x2-2); 386 setring r1; basering; // change to Q(sqrt(2)) 386 387 // change to Q(sqrt(2),sqrt(sqrt(2)))=Q(a) and return the transformed 387 388 // old parameter: 388 splitring(x2-a,"r2",a); 389 def r2=splitring(x2-a,a); 390 setring r2; basering; erg; 389 391 // the result is (a)^2 = (sqrt(sqrt(2)))^2 390 nameof(basering);391 r2;392 392 kill r1; kill r2; 393 393 }
Note: See TracChangeset
for help on using the changeset viewer.