Miroirs/rpn
1
0
Fork 0
mirror of https://github.com/louisrubet/rpn synced 2024-11-17 07:47:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

#133: added complex conj

Browse source
This commit is contained in:
Louis Rubet 2017-06-16 12:00:59 +02:00
parent 0b1bd7bc85
commit aa6cd3a4de
3 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/program.cpp
View file

@ -60,7 +60,7 @@ program::keyword_t program::s_keywords[] =
//COMPLEX
{ cmd_keyword, "re", &program::re, "complex real part" },
{ cmd_keyword, "im", &program::im, "complex imaginary part" },
//{ cmd_keyword, "conj", &program::conj, "complex conjugate" },
{ cmd_keyword, "conj", &program::conj, "complex conjugate" },
{ cmd_keyword, "arg", &program::arg, "complex argument in radians" },
//TEST

9
src/rpn-complex.hpp
View file

@ -38,3 +38,12 @@ void arg()
stack::copy_and_push_back(_branch_stack, 0, *_stack);
_branch_stack.pop_back();
}
void conj()
{
MIN_ARGUMENTS(1);
ARG_MUST_BE_OF_TYPE(0, cmd_complex);
complex* cplx = (complex*)_stack->back();
CHECK_MPFR(mpfr_neg(cplx->im()->mpfr, cplx->im()->mpfr, floating_t::s_mpfr_rnd));
}

4
test/10-complex.txt
View file

@ -226,3 +226,7 @@ drop
(0,-1) arg pi neg 2 / ==
-> stack should be 1
drop
# conj
(1,2) conj dup conj
-> stack should be (1,-2), (1,2)