Changeset bad404 in git for Singular/mpr_complex.cc
- Timestamp:
- Jul 2, 1999, 6:43:19 PM (24 years ago)
- Branches:
- (u'spielwiese', 'ec94ef7a30b928574c0c3daf41f6804dff5f6b69')
- Children:
- 347cc4a89a0993c5c099335b71dd3a757e7d7805
- Parents:
- 0e760d04e4076beb76ad1f4d178a2e3cf2b8c3d3
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/mpr_complex.cc
r0e760d0 rbad404 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: mpr_complex.cc,v 1.1 1 1999-07-02 16:14:40wenk Exp $ */4 /* $Id: mpr_complex.cc,v 1.12 1999-07-02 16:43:19 wenk Exp $ */ 5 5 6 6 /* … … 517 517 memset(out,0,len); 518 518 if ( !c.real().isZero() ) // (-23-i*5.43) or (15.1+i*5.3) 519 sprintf(out,"%s(%s%s%s*%s)",(c.imag().sign()<0&&c.real().sign()<0)?"+":"", 520 in_real,c.imag().sign()>=0?"+":"-",currRing->parameter[0],in_imag); 521 else // +(-i*43) or +(i*34) 522 sprintf(out,"%s(%s%s*%s)",c.imag().sign()>=0?"":"+", 523 c.imag().sign()>=0?"":"-",currRing->parameter[0],in_imag); 519 sprintf(out,"(%s%s%s*%s)",in_real,c.imag().sign()>=0?"+":"-",currRing->parameter[0],in_imag); 520 else // (-i*43) or (i*34) 521 sprintf(out,"(%s%s*%s)",c.imag().sign()>=0?"":"-",currRing->parameter[0],in_imag); 524 522 } 525 523 else … … 528 526 out=(char*)AllocL( len ); 529 527 memset(out,0,len); 530 if ( !c.real().isZero() ) 531 sprintf(out,"%s(%s%s%s)",(c.imag().sign()<0&&c.real().sign()<0)?"+":"", 532 in_real,c.imag().sign()>=0?"+I*":"-I*",in_imag); 528 if ( !c.real().isZero() ) 529 sprintf(out,"(%s%s%s)",in_real,c.imag().sign()>=0?"+I*":"-I*",in_imag); 533 530 else 534 sprintf(out,"%s(%s%s)",c.imag().sign()>=0?"":"+", 535 c.imag().sign()>=0?"I*":"-I*",in_imag); 531 sprintf(out,"(%s%s)",c.imag().sign()>=0?"I*":"-I*",in_imag); 536 532 } 537 533 FreeL( (ADDRESS) in_real );
Note: See TracChangeset
for help on using the changeset viewer.