Atn Function
рддреНрд░рд┐рдХреЛрдгрдорд┐рддрд┐рдп рдкреНрд░рдХрд╛рд░реНрдп рдЬрд╕рд▓реЗ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдХреЛ рдЪрд╛рдБрдк рд╕реНрдкрд░реНрд╢ рд░реЗрдЦрд╛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдпреЛ рдлрд░реНрдХрд┐рдПрдХреЛ рдорд╛рди -Pi/2 рджреЗрдЦрд┐ +Pi/2 рд╕рдореНрдордХреЛ рджрд╛рдпрд░рд╛рдорд╛ рд╣реБрдиреНрдЫ ред
рдЖрд░реНрдХрдЯреНрдпрд╛рдиреНрдЬреЗрдиреНрдЯ рдЯреНрдпрд╛рдиреНрдЬреЗрдиреНрдЯ рдкреНрд░рдХрд╛рд░реНрдпрдХреЛ рдЙрд▓реНрдЯреЛ рд╣реЛ ред Atn рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдХреЛрдг "рдЕрд▓реНрдлрд╛" рдлрд░реНрдХрд╛рдЙрдБрдЫ, рдпреЛ рдХреЛрдгрдХреЛ рдЯреНрдпрд╛рдиреНрдЬреЗрдиреНрдЯ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рд░реЗрдбрд┐рдпрдирдорд╛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рджрд┐рдПрдХреЛ рдЫ ред рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗрдХреЛ рддреБрд▓рдирд╛рддреНрдордХ рдЕрдиреБрдкрд╛рддрджреНрд╡рд╛рд░рд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдХреЛрдг "рдЕрд▓реНрдлрд╛" рдкрдирд┐ рдлрд░реНрдХрд╛рдЙрди рд╕рдХреНрдЫ рддреНрдпреЛ рдХреЛрдгрдХреЛ рд╡рд┐рдкрд░рд┐рдд рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗрдорд╛ рд╣реБрдиреНрдЫ рдЬреБрди рд╕рдордХреЛрдгрд┐ рддреНрд░рд┐рднреБрдЬрдорд╛ рдХреЛрдгрдХреЛ рдЖрд╕рдиреНрди рд╣реБрдиреНрдЫ ред
Atn(рдХреЛрдгрдХреЛ рд╡рд┐рдкрд░рд┐рдд рднреБрдЬрд╛/рдХреЛрдгрдХреЛ рдЖрд╕рдиреНрди рднреБрдЬрд╛)=рдЕрд▓реНрдлрд╛
Atn (рдирдореНрдмрд░)
рдбрдмрд▓
рдирдореНрдмрд░:рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рддреНрдпрд╕рд▓реЗ рд╕рдордХреЛрдгрд┐ рддреНрд░рд┐рднреБрдЬрдХреЛрджреБрдИрдЯрд╡рд╛ рднреБрдЬрд╛рдХреЛ рдЕрдиреБрдкрд╛рддрдХреЛ рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрджрдЫ ред Atn рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕рдВрдЧрддреА рдХреЛрдгрд▓рд╛рдИ рд░реЗрдбрд┐рдпрди (рдЖрд░реНрдХрд╕реНрдЯреНрдпрд╛рдиреНрдЬреЗрдиреНрдЯ) рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рд░реЗрдбрд┐рдпрдирд▓рд╛рдИ рдбрд┐рдЧреНрд░реАрд╣рд░реВрдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрдирд▓рд╛рдИ рд░реЗрдбрд┐рдпрдирд▓рд╛рдИ резреореж/рдкрд╛рдИ рд▓реЗ рдЧреБрдгрди рдЧрд░реНрдиреБрд╣реЛрд╕реН ред
рдбрд┐рдЧреНрд░реА=(рд░реЗрдбрд┐рдпрди*резреореж)/pi
рд░реЗрдбрд┐рдпрди=(рдбрд┐рдЧреНрд░реА*pi)/резреореж
Pi is here the fixed circle constant with the rounded value 3.14159. Pi is a Basic mathematical constant.
' рд▓реЗ рд╕рдордХреЛрдгрд┐ рддреНрд░рд┐рднреБрдЬрдХреЛ рдЧрдгрдирд╛ рдЧрд░реНрдирдХрд╛ рд▓рд╛рдЧрд┐ рджрд┐рдПрдХрд╛ рдЙрджрд╛рд╣рд░рдг
' рдХреЛрдг рдЕрд▓реНрдлрд╛рдХреЛ рдЯреНрдпрд╛рдиреНрдЬреЗрдиреНрдЯ рдХреЛрдг рдЕрд▓реНрдлрд╛:
Sub ExampleAtn
' rounded Pi = 3.14159 рдкреВрд░реНрд╡рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЕрдЪрд▓ рд╣реЛ
Dim d1 As Double
Dim d2 As Double
dрез = рдЖрдЧрдд рдмрд╛рдХрд╕$ ("рдХреЛрдгрд▓рд╛рдИ рдЖрд╕рдиреНрди рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН: ","рдЖрд╕рдиреНрди")
dреи = рдЖрдЧрдд рдмрд╛рдХрд╕$("рдХреЛрдгрдХреЛ рд╡рд┐рдкрд░рд┐рдд рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗ рдШреБрд╕рд╛рдЙрдиреБрд╣реЛрд╕реН:","рд╡рд┐рдкрд░рд┐рдд")
"рдХреЛрдг рдЕрд▓реНрдлрд╛ "; (atn (dреи/dрез) * резреореж / рдкрд╛рдИ); " рдбрд┐рдЧреНрд░реА" рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН
End Sub