Math 143
Donald Hartig
Lab 2
Jan 17, 2013
I am going to work on Chapter 11 Section 1, number 50. This is one of the problems in Task 1. You should not do that problem.
We are asked to investigate curves defined by x = cos(t), y = sin(t) - sin(c t). Begin with the following definition.
![C := proc (c, a, b) options operator, arrow; plot([cos(t), `+`(sin(t), `-`(sin(`*`(c, `*`(t))))), t = a .. b]) end proc; -1](images/Lab2Animation_2.gif){kind=small}
Experiment a bit.
![display(Matrix(3, 3, [seq(C(c, 0, `+`(`*`(2, `*`(Pi)))), c = 1 .. 9)]))](images/Lab2Animation_3.gif){kind=small}
|
![display(Matrix(3, 3, [seq(C(`/`(1, `*`(c)), 0, `+`(`*`(2, `*`(c, `*`(Pi))))), c = 1 .. 9)]))](images/Lab2Animation_13.gif){kind=small}
|
![animate(display, ['C(c, 0, `+`(`*`(2, `*`(Pi))))'], c = 1 .. 9, frames = 40)](images/Lab2Animation_23.gif){kind=small}
 |
![animate(display, ['C(`/`(1, `*`(c)), 0, `+`(`*`(2, `*`(c, `*`(Pi)))))'], c = 1 .. 10, frames = 60)](images/Lab2Animation_25.gif){kind=small}
 |
