The R Project SVN R

Rev

Rev 54435 | Rev 69410 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 54435 Rev 57524
Line 56... Line 56...
56 
abs(Im(cos(acos(1i))) -	 1) < 2*Meps
 56 
abs(Im(cos(acos(1i))) -	 1) < 2*Meps
57 
abs(Im(sin(asin(1i))) -	 1) < 2*Meps
 57 
abs(Im(sin(asin(1i))) -	 1) < 2*Meps
58 
##P (1 - Im(sin(asin(Ii))))/Meps
 58 
##P (1 - Im(sin(asin(Ii))))/Meps
59 
##P (1 - Im(cos(acos(Ii))))/Meps
 59 
##P (1 - Im(cos(acos(Ii))))/Meps
60 
abs(Im(asin(sin(1i))) -	 1) < 2*Meps
 60 
abs(Im(asin(sin(1i))) -	 1) < 2*Meps
61 
cos(1i) == cos(-1i)# i.e. Im(acos(*)) gives + or - 1i:
 61 
all.equal(cos(1i), cos(-1i)) # i.e. Im(acos(*)) gives + or - 1i:
62 
abs(abs(Im(acos(cos(1i)))) - 1) < 4*Meps
 62 
abs(abs(Im(acos(cos(1i)))) - 1) < 4*Meps
63 
 
 63 
 
64 
 
 64 
 
65 
set.seed(123) # want reproducible output
 65 
set.seed(123) # want reproducible output
66 
Isi <- Im(sin(asin(1i + rnorm(100))))
 66 
Isi <- Im(sin(asin(1i + rnorm(100))))