ເນື້ອໃນ

# ຟັງຊັນ 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.

### ລະຫັດຂໍ້ຜິດພາດ:

5 ການເອີ້ນໃຊ້ໂປຣຊີເຈີບໍ່ຖືກຕ້ອງ

### ຕົວຢ່າງ:

            ' ຕົວຢ່າງຕໍ່ໄປນີ້ແມ່ນການຄຳນວນສຳລັບຮູບສາມແຈສາກ
            ' ຫາມຸມ 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

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຟັງຊັນ Cos

ຟັງຊັນ Sin

ຟັງຊັນ Tan