Калкулус Лаб.Веж. 3

Прва задача:
m = Input["Vnesi go a"]
n = Input["Vnesi go b"]
x = 11*Cos[t] - 6*Cos[11*t/6]
y = 11*Sin[t] - 6*Sin[11*t/6]
p = ParametricPlot[{x, y}, {t, m, n}, AspectRatio -> Automatic]
r = Table[{x, y}, {t, m, n, 1}]
f = ListPlot[r, PlotStyle -> PointSize[0.02]]
Show[p, f]

Втора задача:
x = 31*Cos[t*\[Pi]] - 7*Cos[31*t*\[Pi]/7]
y = 31*Sin[t*\[Pi]] - 7*Sin[31*t*\[Pi]/7]
p = ParametricPlot[{x, y}, {t, 0, 20}, AspectRatio -> Automatic]
f = ListPlot[{{31*Cos[0*\[Pi]] - 7*Cos[31*0*\[Pi]/7],
    31*Sin[0*\[Pi]] - 7*Sin[31*0*\[Pi]/7]}},
  PlotStyle -> PointSize[0.02]]
m = 31*Cos[0*\[Pi]] - 7*Cos[31*0*\[Pi]/7]
n = 31*Sin[0*\[Pi]] - 7*Sin[31*0*\[Pi]/7]
q = 31*Cos[1*\[Pi]] - 7*Cos[31*1*\[Pi]/7]
d = 31*Sin[1*\[Pi]] - 7*Sin[31*1*\[Pi]/7]
z = Graphics[Arrow[{{m, n}, {q, d}}]]
Show[p, f, z]