Changeset 78eaa8 in git for Singular/LIB/resolve.lib
- Timestamp:
- Jul 24, 2019, 1:39:31 PM (5 years ago)
- Branches:
- (u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')
- Children:
- 20e7303a3d50b30117c53a232ad724297637ac0e
- Parents:
- fa1cd304b94fb2782b47874564b731a57670c34ccbb89a79113ccf8c4cf31dd700cba8927fe3623a
- git-author:
- Hans Schoenemann <hannes@mathematik.uni-kl.de>2019-07-24 13:39:31+02:00
- git-committer:
- GitHub <noreply@github.com>2019-07-24 13:39:31+02:00
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/resolve.lib
rfa1cd3 r78eaa8 396 396 laM=subst(laM,var(templist[4][j]),0); 397 397 } 398 execute("ring Rnew=("+charstr(basering)+"),("+string(templist[1])+"),dp;");398 ring Rnew = create_ring(ringlist(basering)[1], "("+string(templist[1])+")", "dp", "no_minpoly"); 399 399 ideal Jnew=imap(R,Jsub); 400 400 ideal eD=imap(R,Esub); … … 639 639 v=N[4]; 640 640 for(j=1;j<=size(v);j++){BO[5]=subst(BO[5],var(v[j]),0);} 641 execute("ring R1=("+charstr(R0)+"),("+newvar+"),dp;");641 ring R1 = create_ring(ringlist(R0)[1], "("+newvar+")", "dp", "no_minpoly"); 642 642 list BO=imap(R0,BO); 643 643 ideal C=imap(R0,C); … … 1115 1115 laM=subst(laM,var(v[j]),0); 1116 1116 } 1117 execute("ring R2=("+charstr(S)+"),("+newvar+"),dp;");1117 ring R2 = create_ring(ringlist(S)[1], "("+newvar+")", "dp", "no_minpoly"); 1118 1118 list BO=imap(S,B); 1119 1119 ideal laM=imap(S,laM); … … 2984 2984 //--- hypersurface is V(@f) 2985 2985 @f=Jb[fvec[i]]; 2986 execute("ring R1=("+charstr(R)+"),(@y,"+varstr(R)+"),dp;");2986 ring R1 = create_ring(ringlist(R)[1], "(@y,"+varstr(R)+")", "dp", "no_minpoly"); 2987 2987 poly p=imap(R,@p); 2988 2988 poly f=imap(R,@f); … … 4233 4233 kill tr,L; 4234 4234 } 4235 execute("ring R1=("+charstr(S)+"),(@z,"+varstr(S)+"),dp;");4235 ring R1 = create_ring(ringlist(S)[1], "(@z,"+varstr(S)+")", "dp", "no_minpoly"); 4236 4236 poly p=imap(S,@p); 4237 4237 list BO=imap(S,BO); … … 4800 4800 { 4801 4801 string newvar=string(N[1]); 4802 execute("ring R1=("+charstr(R)+"),("+newvar+"),dp;");4802 ring R1 = create_ring(ringlist(R)[1], "("+newvar+")", "dp", "no_minpoly"); 4803 4803 list BO=imap(R,BO); 4804 4804 ideal cent=imap(R,cent);
Note: See TracChangeset
for help on using the changeset viewer.