Plot[-0.075 / (tan(0.0002157x-0.2356)),{x,400,2048}]