Plotting graphs of position

Plot[pos1[t], {t, 0, T}]

Apparently different outcomes

Reaction?

(Subscript[x1, 0]) = -5.5 (Subscript[r, 0])(Subscript[x2, 0]) =  0.0(Subscript[x3, 0]) =  1.1  (Subscript[r, 0])(Subscript[v1, 0]) =  5000.0(Subscript[v2, 0]) =  0.0(Subscript[v3, 0]) =  0.0

No reaction?

(Subscript[x1, 0]) = -5.5 (Subscript[r, 0])(Subscript[x2, 0]) =  0.0(Subscript[x3, 0]) =  0.75 (Subscript[r, 0])(Subscript[v1, 0]) =  1000.0(Subscript[v2, 0]) =  0.0(Subscript[v3, 0]) =  0.0

Neither anion dissociates?

(Subscript[x1, 0]) = -4.0 (Subscript[r, 0])(Subscript[x2, 0]) =  0.0(Subscript[x3, 0]) =  1.1  (Subscript[r, 0])(Subscript[v1, 0]) =  400.0(Subscript[v2, 0]) =  0.0(Subscript[v3, 0]) =  0.0

Energetic Analysis

KE[t_] := 
      (1/2) (Subscript[m, Cl]) vel1[t]^2 + (1/2) (Subscript[m, Na]) vel2[t]^2 + 
        (1/2) (Subscript[m, Cl]) vel3[t]^2

V[r1_, r2_]  =  
      ((e^2)/(4 π (Subscript[ϵ, 0]))) 
        ((((Subscript[r, 0])^8)/(9  (r1^9))) + (((Subscript[r, 0])^8)/(9  (r2^9))) + (1/(r1 + r2)) - 
            (1/r1) - (1/r2));

PE[t_] := V[pos2[t] - pos1[t], pos3[t] - pos2[t]]