An Algorithm for the Topological Entropy of Multimodal Maps