I might as well show this done numerically:
Code:
>function bi(z1)
$ global z
$ ll=length(z1);rv=[];
$ ss="tan(pi-2*x)-(z+cos(x))/sin(x)";
$ for idx=1 to ll
$ z=z1(idx);
$ rv=rv_[z,bisect(ss,pi/4,pi/2)];
$ end
$ return rv
$endfunction
>
>bi([0.1:0.1:3])
0.1 1.47256
0.2 1.38356
0.3 1.30822
0.4 1.24641
0.5 1.19606
0.6 1.15483
0.7 1.12072
0.8 1.09215
0.9 1.06794
1 1.0472
1.1 1.02925
1.2 1.01358
1.3 0.999785
1.4 0.987552
1.5 0.976632
1.6 0.966827
1.7 0.957974
1.8 0.949944
1.9 0.942625
2 0.935929
2.1 0.92978
2.2 0.924112
2.3 0.918873
2.4 0.914014
2.5 0.909497
2.6 0.905286
2.7 0.901352
2.8 0.897667
2.9 0.894209
3 0.890958
>
RonL