Plot[pi-(x*sin(2*pi/x)/2), {x, 1, 100}]