Animacje obiektu na wykresie, obrót

|Animacja obiektu na wykresie

Tworzę matrycę z danymi punktów tworzących obiekt :

gwiazdka

Zmianę położenia obiektu i przeniesienie go w pożądany punkt przeprowadzimy za pomocą trzech procedur :

1    . równoległe przeniesienie obiektu dla połączenia początku koordynat z wybranym punktem

2    . obrót ciała na zadany kąt odnośnie początku koordynat

3    . modyfikacja wymiarów w zgodności z przyjętą skalą

Tworzę program animujący obrót obiektu : argumenty programu :

x ; y -koordynaty punktu w które przenosimy początek koordynat kąt - kąt obrotu obiektu m - współczynnik skali

obiekt - matryca z koordynatami punktów

trans (x ; y ; kąt ; m ; obiekt):=

B:=matrix (rows (obiekt) ; l)

R:= augment (b + x ; B + y)

Q ;= eval

"matryca obrotu obiektu na zadany kąt" cos (kąt) sin (kąt)]

- sin

R + m- obiekt-Q

Ustalam kąt oraz czas (koniecznie oznaczony "t", im większy zakres tym szybszy obrót)

. „ n    t := 0 . . 71

A0:=—

9

Wywołuje wykres 22 i wpisuje program :

Punkt wstawienia środka obiektu usyalam na (2;2) skale na 0.5 Przy wpisywaniu kąta dopisuje "*t" - koniecznie

po wpisaniu naciskam enter, wykres zostaje otoczony czerwoną ramką , na czerwono zaznaczono też "A©"

Klikam ppm , wybieram Animuj , następnie t, nic to nie daje pokazuje się komunikat: "A© nie jest zdefiniowane"

wpi3uje na ekranie zmienną g=range(1..7)

poniżej wpisuje funkcje wfile , gdzie g zostaje zapisane jako t klikam na wykres ppm klikam Animuj i wybieram z "t" oraz "g" : "g"

Zostaje wstawiona gwiazdka na wykresie

Klikam ppm na wykresie , wybieram zakładkę Częstotliwość wyświetlania klatek, wybieram Powtarzaj ciągle.

Gwiazdka zaczyna 3ię obracać.

wfile (g ; t)= 1

g := 0 . . 7 =

trans (2 ; 2 ; A©-t ; 0,5 ; gwiazdka)

Szybkość obrotu mogę sobie ustalić , mogę też ruch oglądać ujęcie po ujęciu.