Tan Function
ཟུར་ཚད་ཅིག་གི་དྲང་ཕྲད་ཐང་རྩིས་རྒྱག་པ། ཟུར་ཚད་ཀྱི་སྡེ་ཚན་ནི་གཞུ་ཚད་ཡིན།
ཟུར་ Alpha དཔེར་མཚོན་ན་ དྲང་ཟུར་ཟུར་གསུམ་དབྱིབས་ནང་ Tan རྟེན་གྲངས་ཀྱིས་ Alpha ཡི་གཏད་ཟུར་དང་མཚེས་མཐའི་རིང་ཚད་ཀྱི་སྡུར་བ་རྩིས་རྒྱག་པ།
Tan(Alpha) = གཏད་ཟུར་/མཚེས་མཐའ་
བརྡ་འཕྲོད་
Tan (Number)
ཕྱིར་ལོག་ཐང་
ཆ་ལྡན་དག་ཚད་
ཁུགས་གྲངས་
Number ལྡོག་པའི་དྲང་ཕྲད་ཐང་གི་རྩིས་རྒྱག་པའི་གྲངས་གང་རུང་གི་མཚོན་ཚུལ་ (འཇལ་བྱེད་ནི་གཞུ་ཚད་ཡིན་)
ཏུའུ་ནི་གཞུ་ཚད་ལ་བརྗེ་སྒྱུར་བྱེད་ན་ཏུའུ་ལ་ pi/180ཡིས་བསྒྱུར་དགོས། གཞི་ཚད་ནི་ཏུའུ་ལ་བརྗེ་སྒྱུར་བྱེད་ན་གཞུ་ཚད་ལ་ 180/piཡིས་བསྒྱུར་དགོས།
ཏུའུ་=(གཞུ་ཚད་*180)/pi
གཞུ་ཚད་=(ཏུའུ་*pi)/180
Pi ཡི་ཉེ་མཚུངས་ཐང་ནི་ 3.141593ཡིན།
དཔེ་གཞི་
ཚོན་དཔེ་REM འདིའི་ནང་ནང་གཤམ་གྱི་རྣམ་གྲངས་ཚང་མ་ཐད་ཟུར་ཟུར་གསུམ་ལ་དམིགས་པ་ཡིན་
REM ཟུར་གྱི་གཏད་མཐའ་དང་ཟུར་ཚད་ (འཇལ་བྱེད་ནི་ཏུའུ་ཡིན་)མ་ཟད་དེ་དག་གཞིར་བཟུང་ནས་ཟུར་གྱི་མཚམས་མཐའི་རིང་ཚད་རྩིས་རྒྱག་པ།
Sub ExampleTangens
REM Pi = 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