Changeset 0e760d0 in git for Singular/mpr_complex.cc
- Timestamp:
- Jul 2, 1999, 6:14:41 PM (25 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- bad4044b17c2db928e269ccf80888ade701dae6c
- Parents:
- 78315991a696a660dd3d43059499d754ccf8c669
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/mpr_complex.cc
r7831599 r0e760d0 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: mpr_complex.cc,v 1.1 0 1999-07-02 15:01:43wenk Exp $ */4 /* $Id: mpr_complex.cc,v 1.11 1999-07-02 16:14:40 wenk Exp $ */ 5 5 6 6 /* … … 508 508 { 509 509 510 510 in_real=floatToStr( c.real(), oprec ); // get real part 511 511 in_imag=floatToStr( abs(c.imag()), oprec ); // get imaginary part 512 512 513 513 if (rField_is_long_C()) 514 514 { 515 int len=(strlen(in_real)+strlen(in_imag)+ 5+strlen(currRing->parameter[0]))*sizeof(char);515 int len=(strlen(in_real)+strlen(in_imag)+7+strlen(currRing->parameter[0]))*sizeof(char); 516 516 out=(char*)AllocL(len); 517 517 memset(out,0,len); 518 if ( !c.real().isZero() ) 519 sprintf(out,"(%s%s%s*%s)",in_real,c.imag().sign()>=0?"+":"-",currRing->parameter[0],in_imag); 520 else 521 sprintf(out,"(%s%s*%s)",c.imag().sign()>=0?"":"-",currRing->parameter[0],in_imag); 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); 522 524 } 523 525 else 524 526 { 525 int len=(strlen(in_real)+strlen(in_imag)+ 8) * sizeof(char);527 int len=(strlen(in_real)+strlen(in_imag)+9) * sizeof(char); 526 528 out=(char*)AllocL( len ); 527 529 memset(out,0,len); 528 530 if ( !c.real().isZero() ) 529 sprintf(out,"(%s%s%s)",in_real,c.imag().sign()>=0?"+I*":"-I*",in_imag); 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); 530 533 else 531 sprintf(out,"(%s%s)",c.imag().sign()>=0?"I*":"-I*",in_imag); 534 sprintf(out,"%s(%s%s)",c.imag().sign()>=0?"":"+", 535 c.imag().sign()>=0?"I*":"-I*",in_imag); 532 536 } 533 537 FreeL( (ADDRESS) in_real );
Note: See TracChangeset
for help on using the changeset viewer.