Plouf

5 Reputation

One Badge

3 years, 140 days

MaplePrimes Activity


These are questions asked by Plouf


 

with(plots); with(LinearAlgebra)

NULL

NULL

NULL

couples := [5, 0], [6, 0], [6, 3], [10, 3], [7, 5], [9, 5], [7, 7], [8, 7], [5.5, 9], [3, 7], [4, 7], [2, 5], [4, 5], [1, 3], [5, 3]

Points := Matrix([[5, 6, 6, 10, 7, 9, 7, 8, 5.5, 3, 4, 2, 4, 1, 5], [0, 0, 3, 3, 5, 5, 7, 7, 9, 7, 7, 5, 5, 3, 3]])

NULL

Homothety

 

W := Matrix(2, 2, {(1, 1) = (1/60)*k, (1, 2) = 0, (2, 1) = 0, (2, 2) = (1/60)*k})NULLNULL``NULLNULL

Rotation on x axis

 

NULL

X := Matrix(2, 2, {(1, 1) = cos((1/90)*Pi*k), (1, 2) = sin((1/90)*Pi*k), (2, 1) = sin((1/90)*Pi*k), (2, 2) = -cos((1/90)*Pi*k)})````NULLNULL

Rotation of angle k

 

Y := Matrix(2, 2, {(1, 1) = cos((1/180)*Pi*k), (1, 2) = -sin((1/180)*Pi*k), (2, 1) = sin((1/180)*Pi*k), (2, 2) = cos((1/180)*Pi*k)})NULLNULLNULL

``

n := Multiply(Y, Multiply(X, Multiply(W, Points)))

_rtable[18446746437110297774]

(3.1)

NouvCouples := seq([n[1, i], n[2, i]], i = 1 .. 15)

Sapin := animate(polygonplot, [[NouvCouples], color = "ForestGreen"], k = 0 .. 180)

 

 

NULL

Neige

 

PointsNeige := seq([-30+i, 30-(1/2)*j*sin(i+j)], i = 0 .. 60); neige := animate(pointplot, [[PointsNeige], color = black], j = 0 .. 60, view = [-30 .. 30, 0 .. 30])

 

NULL

display([Sapin, neige], scaling = constrained)

 

NULL

NULL


 

Download Homework.mw

 

Hi, i need some help for a homework.

Here is the statement

You must first animate a series of linear transformations on the polygon formed by the following couples: [5, 0], [6., 0], [6, 3], [10, 3], [7, 5], [9, 5], [7, 7], [8, 7], [5.5, 9], [3, 7], [4, 7], [2, 5], [4, 5], [1, 3], [5, 3] It will be necessary to make, at the same time, a rotation around a line making an angle k with the axis of x, a rotation of an angle k and a scaling of variable ratio (but equal to 3 at the end animation). The k animation parameter should range from 0 to 180. I suggest you use the color green for your polygon. Then you will need to create a second animation by entering these command lines: SnowPoints: = seq ([- 30 + i, 30 - j / 2 * sin (i + j)], i = 0 .. 60): snow: = animate (pointplot, [[PointsNeige], color = black], j = 0 .. 60, view = [-30 .. 30, 0 .. 30]) : Finally, you will have to roll both animations at the same time.

The GIF shows the results that I should get according to my teacher

Thanks for the help !

Page 1 of 1