Computational procedure for Vinti's theory of an accurate intermediary orbit