درخواست کمک فوری درمورد دستورatn در بسکام

[saeedfirooz]

سلام دوستان من با این دستورvar=atn(x) مشکل دارم
وقتی x بینهایت میشه تابع باید 45 رو بده ولی صفر میده
اینم کد

$crystal = 8000000
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 1
 Dim X As Single , Y As Single , Teta As Integer , Xr As Single , Yr As Single , Z As Single
 Dim Xp As Integer , Yp As Integer , Pwm_1 As Word , Pwm_2 As Word , Pwm_3 As Word
 Dim Z1 As Single , Z2 As Single , Z3 As Single
 X = 0
 Y = 50
 Teta = 0
Z = Y / X
 Print Z
 Z = Atn(z)

 Print Rad2deg(z)

ممنون میشم اگه زود راهنماییم کنید خیلی فوریه