Changeset d4cec6a in git for Singular/LIB/paraplanecurves.lib
- Timestamp:
- Jul 23, 2019, 11:31:27 AM (5 years ago)
- Branches:
- (u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')
- Children:
- 7161acac8387482214ebcdd85e77266519f0cad2
- Parents:
- d906dc5d406b00b056fb825f5c5c8988ebcaceb3628fc3d0ec524cd36ca82c3a6275c0dcf5d73c83
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/paraplanecurves.lib
rd906dc rd4cec6a 1365 1365 int d = deg(F); 1366 1366 def R = basering; 1367 execute("ring S=("+charstr(R)+"),(x,y,t),dp;");1368 execute("ring C=("+charstr(R)+"),(x,y),ds;");1367 ring S = create_ring(ringlist(R)[1], "(x,y,t)", "dp", "no_minpoly"); 1368 ring C = create_ring(ringlist(R)[1], "(x,y)", "ds", "no_minpoly"); 1369 1369 int genus=(d-1)*(d-2) div 2; 1370 1370 if(w>=1){"the arithmetic genus of the plane curve:";genus;pause();} … … 1373 1373 tauloc,tausing,k,rat,nbranchinf,nbranch,nodes,cuspsinf,nodesinf; 1374 1374 list inv; 1375 execute("ring newR=("+charstr(R)+"),(x,y),dp;");1375 ring newR = create_ring(ringlist(R)[1], "(x,y)", "dp", "no_minpoly"); 1376 1376 //the singularities at the affine part 1377 1377 map sigma=R,var(1),var(2),1; … … 1556 1556 option(redSB); 1557 1557 def R=basering; 1558 execute("ring S=("+charstr(R)+"),(x,y),lp;");1558 ring S = create_ring(ringlist(R)[1], "(x,y)", "lp", "no_minpoly"); 1559 1559 map phi=R,x,y; 1560 1560 ideal singL=phi(singL); … … 1569 1569 map alpha=S,var(1)-singL[2][2],var(2)-singL[1][2]; 1570 1570 f=alpha(f); 1571 execute("ring C=("+charstr(S)+"),("+varstr(S)+"),ds;");1571 ring C = create_ring(ringlist(S)[1], "("+varstr(S)+")", "ds", "no_minpoly"); 1572 1572 poly f=imap(S,f); 1573 1573 ideal singL=imap(S,singL); … … 1612 1612 } 1613 1613 1614 execute("ring B=("+charstr(S)+"),a,dp;");1614 ring B = create_ring(ringlist(S)[1], "a", "dp", "no_minpoly"); 1615 1615 map beta=S,a,a; 1616 1616 poly p=beta(p);
Note: See TracChangeset
for help on using the changeset viewer.