易语言三角函数数学公式算法:sin(求正弦),cos(求余弦),tan(求正切)(返回双精度小数型)

CNWTEPRG

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. .程序集变量 阶乘表, 双精度小数型, , "0"
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. .局部变量 i, 整数型
   
9. .局部变量 j, 双精度小数型
   
10. 
    
11. i ＝ 1
    
12. j ＝ 1
    
13. .判断循环首 (真)
    
14.     .如果真 (是否运算正确 (j) ＝ 假)
    
15.         跳出循环 ()
    
16.     .如果真结束
    
17.     j ＝ j × i
    
18.     i ＝ i ＋ 1
    
19.     加入成员 (阶乘表, j)
    
20. .判断循环尾 ()
    
21. 
    
22. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
23. 返回 (0)  ' 可以根据您的需要返回任意数值
    
24. 
    
25. .子程序 _临时子程序
    
26. .局部变量 小数, 双精度小数型
    
27. 
    
28. 置随机数种子 ()
    
29. 小数 ＝ 取随机数 (0, 32767) ÷ 32767 × #pi
    
30. .如果真 (取随机数 (0, 1) ＝ 1)
    
31.     小数 ＝ 0 － 小数
    
32. .如果真结束
    
33. 调试输出 (_sin (小数), 求正弦 (小数))
    
34. 调试输出 (_cos (小数), 求余弦 (小数))
    
35. 调试输出 (_tan (小数), 求正切 (小数))
    
36. 
    
37. .子程序 _sin, 双精度小数型, 公开
    
38. .参数 x, 双精度小数型
    
39. .局部变量 i, 整数型
    
40. .局部变量 y, 双精度小数型
    
41. .局部变量 j, 双精度小数型
    
42. 
    
43. i ＝ 3
    
44. y ＝ x
    
45. j ＝ 6
    
46. .判断循环首 (真)
    
47.     j ＝ 阶乘表 [i]
    
48.     .如果真 (是否运算正确 (j) ＝ 假)
    
49.         跳出循环 ()
    
50.     .如果真结束
    
51.     y ＝ 0 － (y － 求次方 (x, i) ÷ j)
    
52.     i ＝ i ＋ 2
    
53. .判断循环尾 ()
    
54. 返回 (y)
    
55. 
    
56. 
    
57. .子程序 _cos, 双精度小数型, 公开
    
58. .参数 x, 双精度小数型
    
59. 
    
60. 返回 (_sin (#pi ÷ 2 ＋ x))
    
61. 
    
62. 
    
63. .子程序 _tan, 双精度小数型, 公开
    
64. .参数 x, 双精度小数型
    
65. 
    
66. 返回 (_sin (x) ÷ _cos (x))
    

复制代码