(Subscript[θ, 1])=(tan^(-1))(\[LeftBracketingBar](((Subscript[HR, (Subscript[t, 31])])-(Subscript[HR, (Subscript[t, 30])]))/((Subscript[t, 31])-(Subscript[t, 30])))\[RightBracketingBar])