Changeset 13c3ae in git
- Timestamp:
- Feb 12, 2020, 6:38:59 PM (4 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 645c77cc0cd67244418581efcd97abbb9c96ea3a
- Parents:
- 1b9a1f5dcbc92d71f41abffa12d4b9a67c7b2627
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/primdec.lib
r1b9a1f r13c3ae 4078 4078 4079 4079 string mp="poly @p="+string(minpoly)+";"; 4080 ring RH = create_ring(char(R), "("+varstr(R)+","+string(par(1))+")", "dp"); 4080 string gnir="ring RH="+string(char(R))+",("+varstr(R)+","+string(par(1)) 4081 +"),dp;"; 4082 execute(gnir); 4081 4083 execute(mp); 4082 4084 ideal i=imap(R,i); 4083 4085 i=i,@p; 4084 4086 ideal ra=radical(i); 4085 ring RS = create_ring(char(R), "("+varstr(RH)+")", "(dp("+string(n)+"),lp)"); 4087 gnir="ring RS="+string(char(R))+",("+varstr(RH) 4088 +"),(dp("+string(n)+"),lp);"; 4089 execute(gnir); 4086 4090 ideal K=imap(RH,ra); 4087 4091 K=std(K);
Note: See TracChangeset
for help on using the changeset viewer.