Jak vypočítat úhly vychýlení QBASIC

Deformace úhly jsoudůležité pojetí ve fyzice a jsou používány k řešení široké škály problémů od výpočtu vychýlení planety na oběžné dráze , aby měření dráhu urazí objekt pod vlivem gravitace . S využitím QBASICu , automatizaci výpočtu deformace úhlů a usnadňují řešení sady dat , které by byly příliš těžké práci po ruce . Pokyny dovolená 1

Vytvořte dvě pole pro ukládání X a Y souřadnicových dat pro pohybujícího se objektu pomocí příkazu Declare " DIM x ( n ) , DIM y ( n ) " kde n označuje počet datových bodů potřebných k provedení úplný soubor údajů . Chcete-li prokázat jasný úhel vychýlení ,minimální velikostsoubor by měl být, je 10 datových hodnot .
2

Vstupní souřadnicové údaje do polí pomocí přiřazení ( = ) operátor , ve formě " se , x ( 1 ) = 2,3 , y ( 1 ) = 4,5 , x ( 2 ) = 2,5 ... " pro celý soubor údajů , které mají být použity . Zkontrolujte, zdaúdaje byly vloženy správně používat výraz PRINT . Například , " PRINT y ( 1 ) " by se měl vrátit na hodnotu 4,5 do výstupního zásobníku na obrazovce
3

Inicializace další dvě proměnné - . dX , dY - pro uložení rychlost změny mezi X a Y hodnoty , jako stejně jako proměnné dF , theta uložit gradient křivky a úhel vypočtený ze svahu .
4

Vypočítejte změnu v odlišných hodnot X a Y pomocí proměnných dx a dy držet výsledky . Pro výpočet změny mezi x ( 1 ) a X (2 ) , vytvořit vzorec takto : dX = x ( 2 ) - x ( 1 ) . Vzorec pro dY následuje stejný vzor , kde dy = y ( 2 ) - y ( 1 )
5

Vypočítejte sklon křivky pomocí vzorce dF = dY /dX . . Proměnné dy a dx , musí být převzaty ze stejných datových bodů nebo dF bude nesprávná .
6

Vypočtěte úhel vychýlení tím, že o 180 stupňů minusarcus tangens gradientu . QBASIC syntaxe je ve tvaru " theta = 180 - ATN ( DF) " , kde ATN jefunkce arc tangens a theta vrátí hodnotu ve stupních . Opakujte tento proces tím, že mění rozsah údajů používaných při výpočtu proměnné dx a dy , aby se rozsah deformace úhlů , které mají být použity pro analýzu .