Changeset 8d8fef in git for Singular/LIB/numerAlg.lib
- Timestamp:
- Jul 29, 2019, 11:36:09 PM (5 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- feed60bef09898f675e0f8605ed0ac0eaa8bed5a
- Parents:
- da1ec3de158a4f05384b9a83be86fc4c1942ec5fc1b9ababa50e8059dd847da0957f50aea901e6a8
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/numerAlg.lib
rda1ec3 r8d8fef 230 230 setring W1; 231 231 number j1=jj; 232 execute("ring q=(real,0),("+varstr(S)+"),dp;");232 ring q = create_ring("(real,0)", "("+varstr(S)+")", "dp"); 233 233 ideal I=imap(W1,I); 234 234 ideal J=imap(W1,J); 235 execute("ring qq=0,("+varstr(S)+"),dp;");235 ring qq = create_ring(0, "("+varstr(S)+")", "dp"); 236 236 ideal I=imap(S,I); 237 237 ideal J=imap(S,J); … … 315 315 if((u^2)==0) 316 316 { 317 execute("ring A=(real,e-1),("+varstr(S)+",I),ds;");317 ring A = create_ring("(real,e-1)", "("+varstr(S)+",I)", "ds"); 318 318 ideal II=imap(S,J); 319 319 list rw=imap(S,rw); … … 332 332 { 333 333 int d=dim(std(J)); 334 execute("ring R=(complex,e-1,I),("+varstr(S)+"),ds;");334 ring R = create_ring("(complex,e-1,I)", "("+varstr(S)+")", "ds"); 335 335 list w=imap(S,w); 336 336 ideal II=imap(S,J); … … 355 355 if(tt==d) 356 356 { 357 execute("ring A=(complex,e,I),("+varstr(S)+"),dp;");357 ring A = create_ring("(complex,e,I)", "("+varstr(S)+")", "dp"); 358 358 t=tt; 359 359 } 360 360 else 361 361 { 362 execute("ring RR=(real,e-2),("+varstr(S)+",I),dp;");362 ring RR = create_ring("(real,e-2)", "("+varstr(S)+",I)", "dp"); 363 363 ideal II=imap(S,J); 364 364 list rw=imap(S,rw); … … 398 398 setring M; 399 399 sz1=size(SOL); 400 execute("ring RRRQ=(real,e-1),("+varstr(S)+",I),dp;");400 ring RRRQ = create_ring("(real,e-1)", "("+varstr(S)+",I)", "dp"); 401 401 ideal HH=imap(RR,HH); 402 402 if(dim(std(HH))==0) … … 413 413 if(sz1==sz2) 414 414 { 415 execute("ring A=(complex,e,I),("+varstr(S)+"),dp;");415 ring A = create_ring("(complex,e,I)", "("+varstr(S)+")", "dp"); 416 416 t=d; 417 417 } 418 418 else 419 419 { 420 execute("ring RQ=(real,e-1),("+varstr(S)+"),dp;");420 ring RQ = create_ring("(real,e-1)", "("+varstr(S)+")", "dp"); 421 421 ideal II=imap(S,J); 422 422 def RW=WitSet(II); … … 448 448 if((ni+nr)<1/10^(2*e-3)) 449 449 { 450 execute("ring A=(complex,e,I),("+varstr(S)+"),dp;");450 ring A = create_ring("(complex,e,I)", "("+varstr(S)+")", "dp"); 451 451 list W(ii)=imap(RW,W(ii)); 452 452 t=0; … … 459 459 { 460 460 def SS=Singular2bertini(W(ii)); 461 execute("ring D=(complex,e,I),("+varstr(S)+",s,gamma),dp;");461 ring D = create_ring("(complex,e,I)", "("+varstr(S)+",s,gamma)", "dp"); 462 462 string nonsin; 463 463 ideal H,L; … … 504 504 if(tr<=1/10^(2*e-3)) 505 505 { 506 execute("ring A=(complex,e,I),("+varstr(S)+"),dp;");506 ring A = create_ring("(complex,e,I)", "("+varstr(S)+")", "dp"); 507 507 t=ii; 508 508 ii=d+1;
Note: See TracChangeset
for help on using the changeset viewer.