21 lines
319 B
Text
21 lines
319 B
Text
r = pi / 4
|
|
d = 45
|
|
#
|
|
func r2d r .
|
|
return r / pi * 180
|
|
.
|
|
func d2r d .
|
|
return d * pi / 180
|
|
.
|
|
#
|
|
numfmt 4 0
|
|
print sin d & " " & sin r2d r
|
|
print cos d & " " & cos r2d r
|
|
print tan d & " " & tan r2d r
|
|
print ""
|
|
h = asin sin d
|
|
print h & " " & d2r h
|
|
h = acos cos d
|
|
print h & " " & d2r h
|
|
h = atan tan d
|
|
print h & " " & d2r h
|