Code for Power Cohesion and for deriving the different financial cycle measures. (Financial cycles: Characterisation and real-time measurement with Paul Hiebert and Tuomas Peltonen, JIMF, 100, 102082, 2020)