(Subscript[P, k_]) := {Cos[2π ((3-k)/12)], Sin[2π ((3-k)/12)]};
Graphics[{
Table[Text[k,(Subscript[P, k])], {k,12}],
Line[{(Subscript[P, 1]),(Subscript[P, 9])}], Line[{(Subscript[P, 2]),(Subscript[P, 11])}], Line[{(Subscript[P, 4]),(Subscript[P, 12])}]
}]

(Subscript[e, k_]):= (E^(2π I k/12));
{Im[Conjugate[(Subscript[e, 1])-(Subscript[e, 9])] (((Subscript[e, 2])+(Subscript[e, 11]))/2)], Im[Conjugate[(Subscript[e, 1])](Subscript[e, 9])]} // Simplify