IBM Lotus Symphony
|
Määrittää kulman tangentin. Kulma määritetään radiaaneina.
Alpha-kulman avulla Tan-funktio laskee kulman vastaisen sivun pituuden suhteessa kulman viereisen sivun pituuteen suorakulmaisessa kolmiossa.
Tan(Alpha) = kulman vastainen sivu / kulman viereinen sivu
Tan (Number)
Pitkä liukuluku
Number: Mikä tahansa numeerinen lauseke, jonka tangentin haluat laskea (radiaaneina).
Voit muuntaa asteet radiaaneiksi kertomalla asteet arvolla pii/180. Voit muuntaa radiaanit asteiksi kertomalla radiaanit arvolla 180/pii.
aste=(radiaani*180)/pii
radiaani=(aste*pii)/180
Pii on noin 3,141593.
REM Tässä esimerkissä seuraava merkintä on mahdollinen suorakulmaisessa kolmiossa:
REM Voit laskea kulman viereisen sivun pituuden kulman vastaisen sivun ja kulman avulla (asteissa):
Sub ExampleTangens
REM Pii = 3,1415926
Dim d1 as Double
Dim dAlpha as Double
d1 = InputBox$ ("Enter the length of the side opposite the angle: ","opposite")
dAlpha = InputBox$ ("Enter the Alpha angle (in degrees): ","Alpha")
Print "the length of the side adjacent the angle is"; (d1 / tan (dAlpha * Pi / 180))
End Sub