Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Прва задача:
- 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]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement