EECS_207A_HW1_problem_2.mws

> ## HW1, EECS 207A, UCI , FALL 2004
## By Nasser Abbasi

> N:=1000;
f := x-> sum( (1/(2*k-1)) * sin((2*k-1)*x) , k=1..N);
xvalues:={1.5,5.9,6.3,-0.6};
map(evalf(f),xvalues);

N := 1000

f := proc (x) options operator, arrow; sum(sin((2*k-1)*x)/(2*k-1), k = (1 .. N)) end proc

xvalues := {1.5, 5.9, 6.3, -.6}

{-.7847402072, .7939417352, .7856426940, -.7849571638}

>

>