Commit 2b5eb0ae authored by Jiri (George) Lebl's avatar Jiri (George) Lebl Committed by George Lebl

sin, cos, sinh, cosh were wrong for complex arguments


Thu Aug 05 00:52:15 2004  George Lebl <jirka@5z.com>

	* src/mpwrap.c: sin, cos, sinh, cosh were wrong for complex arguments
parent 87195dc2
Thu Aug 05 00:52:15 2004 George Lebl <jirka@5z.com>
* src/mpwrap.c: sin, cos, sinh, cosh were wrong for complex arguments
Wed Aug 04 23:07:46 2004 George Lebl <jirka@5z.com>
* src/graphing.c: make window titles saner
......
......@@ -614,4 +614,6 @@ false == true false
0 == true false
true == 0 false
false == 0 true
|cos(pi+0.1i) +1| < 0.1 true
|sin(pi+0.1i)| < 0.11 true
load "longtest.gel" true
......@@ -4992,8 +4992,8 @@ mpw_sin(mpw_ptr rop,mpw_ptr op)
mpwl_cosh(&t,i);
mpwl_mul(rop->r,rop->r,&t);
mpwl_cos(rop->i,i);
mpwl_sinh(&t,r);
mpwl_cos(rop->i,r);
mpwl_sinh(&t,i);
mpwl_mul(rop->i,rop->i,&t);
mpwl_free(&t,TRUE);
......@@ -5028,9 +5028,9 @@ mpw_cos(mpw_ptr rop,mpw_ptr op)
mpwl_cosh(&t,i);
mpwl_mul(rop->r,rop->r,&t);
mpwl_sin(rop->i,i);
mpwl_sin(rop->i,r);
mpwl_neg(rop->i,rop->i);
mpwl_sinh(&t,r);
mpwl_sinh(&t,i);
mpwl_mul(rop->i,rop->i,&t);
mpwl_free(&t,TRUE);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment