ຟັງຊັນ Atn

ຟັງຊັນຕີໂກນມິຕິທີ່ສົ່ງຄືນຄ່າ ອາກແທນເຈັນ (arctangent) ຂອງສຳນວນຕົວເລກ. ຄ່າທີ່ສົ່ງຄືນຈະຢູ່ໃນຊ່ວງ -Pi/2 ຫາ +Pi/2.

ອາກແທນເຈັນ ແມ່ນສ່ວນກັບຂອງຟັງຊັນ ແທນເຈັນ (tangent). ຟັງຊັນ Atn ຈະສົ່ງຄືນຄ່າມຸມ "Alpha", ເຊິ່ງສະແດງອອກເປັນ ເຣດຽນ (radians), ໂດຍໃຊ້ຄ່າແທນເຈັນຂອງມຸມນີ້. ຟັງຊັນນີ້ຍັງສາມາດສົ່ງຄືນຄ່າມຸມ "Alpha" ໄດ້ໂດຍການປຽບທຽບອັດຕາສ່ວນຂອງຄວາມຍາວຂອງຂ້າງກົງຂ້າມມຸມ ກັບ ຄວາມຍາວຂອງຂ້າງຕິດມຸມ ໃນຮູບສາມແຈສາກ.

Atn(ຂ້າງກົງຂ້າມມຸມ/ຂ້າງຕິດມຸມ)= Alpha

        Atn (ຕົວເລກ As Double) As Double
    

Double

ຕົວເລກ: ສຳນວນຕົວເລກໃດໜຶ່ງທີ່ສະແດງເຖິງອັດຕາສ່ວນຂອງສອງຂ້າງຂອງຮູບສາມແຈສາກ. ຟັງຊັນ Atn ຈະສົ່ງຄືນຄ່າມຸມທີ່ກົງກັນເປັນເຣດຽນ (ອາກແທນເຈັນ).

ເພື່ອແປງເຣດຽນເປັນອົງສາ, ໃຫ້ຄູນເຣດຽນດ້ວຍ 180/pi.

ອົງສາ=(ເຣດຽນ*180)/pi

ເຣດຽນ=(ອົງສາ*pi)/180

Pi ໃນທີ່ນີ້ແມ່ນຄ່າຄົງທີ່ຂອງວົງມົນທີ່ມີຄ່າປະມານ 3.14159. Pi ແມ່ນ ຄ່າຄົງທີ່ທາງຄະນິດສາດ Basic.

        ' ຕົວຢ່າງຕໍ່ໄປນີ້ແມ່ນການຄຳນວນສຳລັບຮູບສາມແຈສາກ
        ' ຫາມຸມ Alpha ຈາກຄ່າແທນເຈັນຂອງມຸມ Alpha:
        Sub ExampleAtn
        ' ຄ່າປະມານ Pi = 3.14159 ແມ່ນຄ່າຄົງທີ່ທີ່ກຳນົດໄວ້ລ່ວງໜ້າ
        Dim d1 As Double
        Dim d2 As Double
            d1 = InputBox("ປ້ອນຄວາມຍາວຂອງຂ້າງຕິດມຸມ: ","ຂ້າງຕິດມຸມ")
            d2 = InputBox("ປ້ອນຄວາມຍາວຂອງຂ້າງກົງຂ້າມມຸມ: ","ຂ້າງກົງຂ້າມມຸມ")
            Print "ມຸມ Alpha ແມ່ນ"; (atn (d2/d1) * 180 / Pi); " ອົງສາ"
        End Sub