Algorithm for generating new explicitly solvable Schrodinger type equations