lcrpn

20 Reputation

3 Badges

7 years, 253 days

MaplePrimes Activity


These are replies submitted by lcrpn

@Preben Alsholm 


Then how to calc sin(pi/16)?, we know it should be "1/sqrt(1+(1+sqrt(2)+sqrt(4+2*sqrt(2)))^2)".


``

``

``

identify(evalf(sin((1/16)*Pi)))

.1950903221

(1)

evalf(sin((1/16)*Pi)-1/sqrt(1+(1+sqrt(2)+sqrt(4+2*sqrt(2)))^2))

0.1e-9

(2)

``

``


Download sine.mw

@Markiyan Hirnyk 

f := proc (x) options operator, arrow; sin(x)+cos(x+(1/5)*Pi) end proc

proc (x) options operator, arrow; sin(x)+cos(x+(1/5)*Pi) end proc

(1)

simplify(convert(collect(convert(expand(f(x)), sincos, {cos(x), sin(x)}), {cos(x), sin(x)}), phaseamp, x))

(2-2*sin((1/5)*Pi))^(1/2)*cos(x+arctan((sin((1/5)*Pi)-1)/cos((1/5)*Pi)))

(2)

Page 1 of 1