Advertisement
jovanovski

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

Nov 16th, 2011
388
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.81 KB | None | 0 0
  1. Прва задача:
  2. m = Input["Vnesi go a"]
  3. n = Input["Vnesi go b"]
  4. x = 11*Cos[t] - 6*Cos[11*t/6]
  5. y = 11*Sin[t] - 6*Sin[11*t/6]
  6. p = ParametricPlot[{x, y}, {t, m, n}, AspectRatio -> Automatic]
  7. r = Table[{x, y}, {t, m, n, 1}]
  8. f = ListPlot[r, PlotStyle -> PointSize[0.02]]
  9. Show[p, f]
  10.  
  11. Втора задача:
  12. x = 31*Cos[t*\[Pi]] - 7*Cos[31*t*\[Pi]/7]
  13. y = 31*Sin[t*\[Pi]] - 7*Sin[31*t*\[Pi]/7]
  14. p = ParametricPlot[{x, y}, {t, 0, 20}, AspectRatio -> Automatic]
  15. f = ListPlot[{{31*Cos[0*\[Pi]] - 7*Cos[31*0*\[Pi]/7],
  16. 31*Sin[0*\[Pi]] - 7*Sin[31*0*\[Pi]/7]}},
  17. PlotStyle -> PointSize[0.02]]
  18. m = 31*Cos[0*\[Pi]] - 7*Cos[31*0*\[Pi]/7]
  19. n = 31*Sin[0*\[Pi]] - 7*Sin[31*0*\[Pi]/7]
  20. q = 31*Cos[1*\[Pi]] - 7*Cos[31*1*\[Pi]/7]
  21. d = 31*Sin[1*\[Pi]] - 7*Sin[31*1*\[Pi]/7]
  22. z = Graphics[Arrow[{{m, n}, {q, d}}]]
  23. Show[p, f, z]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement