Jag är fast på uppgift 1 på Mathematica inlämningen och vet inte alls hur jag kommer igång med den.

Jag har definerat vektorn v = {-s1, 1 + s2, 2 + s3} och hörnen = {s1, s2, s3, s4, s5, s1}

Sedan gör jag polygonen:

polygonen =
Graphics[{Polygon[hörnen]}, Axes -> True,
PlotRange -> {{-10, 10}, {-10, 10}}];
Show[polygonen, hörnen]

Men jag får ut konstiga saker, typ en liten x,y-axel.

Uppskattar all hjälp jag kan få.