Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - 30. Rzut ukośny (w pudełku)

magbo · Excel Expert Posty: 346

ostatnio sporo było zadań z tej dziedziny. w załączniku - zabawka (należy kliknąć kulkę).
No i przydałaby się drobna korekta - na razie kulka rozpędza sie odbijając się od ścianek ;-)

pingpong2.zip

Pobierz Plik ściągnięto 561 raz(y) 11.31 KB

Kaper · Excel Expert Posty: 1626

Problem z przyspieszeniem bierze się (bezpośrednio) z linii 69 w kodzie modułu 2, gdzie mamy:

Vy = Vy - Delta * Cells(5, 2).Value

Warto zwrócić uwagę, że Vy może być zarówno dodatnie, jak i ujemne. Zatem zgodne z oczekiwaniem działanie parametru przyspieszenie (kom. B5) osiągniemy kiedy ta linia będzie uwzględniać znak Vy

Vy = Vy + Delta * Sgn(Vy) * Cells(5, 2).Value

Skoro już prędkość ma się zmieniać, to pewnie warto by było dodać również analogiczną linię dla składowej poziomej:

Vx = Vx + Delta * Sgn(Vx) * Cells(5, 2).Value

A przyglądając się tym równaniom od strony merytorycznej, można przypuszczać, że fizykę ruchu jednostajnie przyspieszonego/opóźnionego oddały by lepiej równania:

Vy = Vy * (1 + Delta * Cells(5, 2).Value)
Vx = Vx * (1 + Delta * Cells(5, 2).Value)

bezpośrednie zastosowanie v(t) = vo + at wymagałoby zapamiętania jeszcze jednej pary zmiennych Vy0 i Vx0 i wtedy moglibyśmy liczyć np.
Vy = Vy0 + t * Cells(5, 2).Value) - wynik powinien być ten sam, co powyżej

Biorąc pod uwagę, że liczymy ruch w wielu krokach (proponowane B7 wynosi 1000) rozsądne wielkości przyspieszenia/ opóźnienia to np. -0,0001 itp.

Pozdrawiam,