Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- a = Input[]
- b = Input[]
- f1[t_] = 3*Cos[Pi/2*t] - 2*Cos[3*Pi*t]
- f2[t_] = 3*Sin[Pi/2*t] - 2*Sin[3*Pi*t]
- tabela1 = Table[{f1[t], f2[t]}, {t, a, a + 3*b, b/2}]
- x = ParametricPlot[{f1[t], f2[t]}, {t, a, a + 3*b}]
- y = ListPlot[{tabela1}, PlotStyle -> PointSize[0.02]]
- Show[x, y]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
