Вы должны добавить Pi/2-Pi/n
k[n_] := Pi/2 - Pi/n;
f[n_] := Line[
Table[50 {Cos[(2 i ) Pi/n + k[n]] ,Sin[(2 i) Pi/n + k[n]]}, {i,0,n}]];
GraphicsGrid@Partition[Graphics /@ Table[f[i], {i, 3, 8}], 3]
Редактировать
Отвечая на ваш комментарий, я объясню, какЯ пришел к формуле.Посмотрите на следующее изображение:
Как вы можете видеть, мы хотим, чтобы средняя точка стороны была выровнена с Pi / 2.Итак ... что такое α ?Это очевидно
2 α = 2 Pi / n (одна сторона) -> α = Pi / n
Редактировать 2
Если вы хотите, чтобы нижняя сторона была выровнена по оси x, добавьте 3 Pi/2- Pi/n
вместо ...