kąty ugięcia sąważne pojęcie w fizyce i są wykorzystywane do rozwiązywania wielu problemów , począwszy od obliczania ugięcia planety na orbicie , do pomiaru trajektorii przebytej przez obiekt pod wpływem grawitacji . Dzięki zastosowaniu QBASICa zautomatyzować obliczenie kąta ugięcia i łatwiej do czynienia z zestawów danych , które byłyby zbyt trudna do pracy z ręcznie. Instrukcja
1
Stwórz dwie tablice do przechowywania danych X i Y koordynowania dla poruszającego się obiektu , za pomocą instrukcji DECLARE „DIM x (n) , DIM y ( n ) ” gdzie n oznacza liczbę punktów danych potrzebnych do pełnego zestawu danych . Aby wykazać wyraźny kąt odchylania ,minimalna wielkośćpowinna być to zestaw 10 wartości danych .
2
wejściowe dane współrzędnych do tablic używając przypisanie ( = ) operatora , w postaci ” , x ( 1) = 2,3, y ( 1 ) = 4,5, x ( 2 ) = 2,5 … ” dla całego zestawu danych , które będą stosowane . Sprawdź, czy dane zostały wprowadzone poprawnie używając PRINT ekspresji . Na przykład ” PRINT r ( 1 ) ” powinna zwrócić wartość 4,5 do bufora wyjściowego na ekranie
3
Inicjowanie dwa więcej zmiennych – . dx, dy – do przechowywania szybkość zmian między X i Y , jak oraz zmienne dF, theta zapisać gradient krzywej i kąt obliczony z nachylenia .
4
Oblicz zmianę różnych wartości X i Y za pomocą zmiennych dx i dy do przechowywania wyniki . Obliczania zmiany między x ( 1 ) X ( 2 ) tworzenie wzoru w sposób następujący: dX = x ( 2) – X (1 ) . Wzór na DY według takiego samego schematu , gdzie D = r ( 2 ) – y ( 1 )
5
Obliczyć gradient krzywej , stosując wzór dF = dy /dx . . Zmienne DY i DX muszą być podejmowane przez samych punktów danych lub dF będzie nieprawidłowe.
6
Obliczyć kąt ugięcia poprzez 180 stopni minustangens gradientu . Składnia QBASICa tego jest w postaci ” teta = 180 – atn (DF ) „, w którym atn jestfunkcja tangens theta i powraca do wartości w stopniach. Powtórz ten proces poprzez zmianę zakresu danych wykorzystywanych przy obliczaniu zmiennych dx i dy , aby uzyskać zakres kątów ugięcia należy zastosować do analizy . Imperium