纳秒级高精度的子程序指针执行频率时间耗时测量算法

QAQ

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. 
    
14. 输出频率时间 (, 子程序执行频率测试 (&测频子程序, 10000))
    
15. 
    
16. 
    
17. .子程序 测频子程序, , , 此处添加要循环执行的子程序，严禁任何参数以及返回值
    
18. 
    
19. 处理事件 ()
    
20. 
    
21. 
    
22. .子程序 输出频率时间
    
23. .参数 子程序名, 文本型, 可空
    
24. .参数 频率, 双精度小数型
    
25. 
    
26. 输出调试文本 (子程序名 ＋ “ 频率:” ＋ 频率转换 (频率) ＋ “ 时间:” ＋ 时间转换 (1000000000 ÷ 频率))
    
27. 
    
28. 
    
29. .子程序 Rdtsc, 长整数型
    
30. 
    
31. 置入代码 ({ 15, 49, 201, 195 })
    
32. ' rdtsc
    
33. ' leave
    
34. ' ret
    
35. 
    
36. 返回 (0)
    
37. 
    
38. .子程序 取CPU主频, 长整数型
    
39. .局部变量 周期, 长整数型
    
40. 
    
41. 周期 ＝ Rdtsc ()
    
42. 延时 (1000)
    
43. 周期 ＝ Rdtsc () － 周期
    
44. 返回 (周期)
    
45. 
    
46. .子程序 子程序执行频率测试, 双精度小数型
    
47. .参数 子程序指针, 子程序指针
    
48. .参数 执行次数, 整数型
    
49. .局部变量 周期, 长整数型
    
50. .局部变量 耗时, 双精度小数型
    
51. .局部变量 CPU主频, 长整数型
    
52. .局部变量 执行频率, 双精度小数型
    
53. 
    
54. 
    
55. CPU主频 ＝ 取CPU主频 ()
    
56. 周期 ＝ Rdtsc ()
    
57. 
    
58. 计次循环_调用子程序 (子程序指针, 执行次数)
    
59. 周期 ＝ Rdtsc () － 周期
    
60. 耗时 ＝ 周期 ÷ 执行次数
    
61. 执行频率 ＝ CPU主频 ÷ 耗时
    
62. 返回 (执行频率)
    
63. 
    
64. .子程序 计次循环_调用子程序, , , 调用并循环几次指定的子程序指针。
    
65. .参数 指针地址, 子程序指针, , 指针的返回值将会被舍弃，严禁有任何参数。
    
66. .参数 循环次数, 整数型, , 不能小于1否则不会被执行。
    
67. 
    
68. 置入代码 ({ 139, 69, 8, 139, 93, 12, 129, 251, 255, 255, 255, 127, 118, 2, 235, 22, 185, 0, 0, 0, 0, 235, 11, 80, 83, 81, 82, 255, 208, 90, 89, 91, 88, 65, 59, 203, 114, 241, 201, 194, 8, 0 })
    
69. 
    
70. .子程序 频率转换, 文本型
    
71. .参数 频率, 双精度小数型
    
72. 
    
73. .判断开始 (频率 ≥ 1000000000000)
    
74.     返回 (到文本 (频率 ÷ 1000000000000) ＋ “Thz”)
    
75. .判断 (频率 ≥ 1000000000)
    
76.     返回 (到文本 (频率 ÷ 1000000000) ＋ “Ghz”)
    
77. .判断 (频率 ≥ 1000000)
    
78.     返回 (到文本 (频率 ÷ 1000000) ＋ “Mhz”)
    
79. .判断 (频率 ≥ 1000)
    
80.     返回 (到文本 (频率 ÷ 1000) ＋ “Khz”)
    
81. .默认
    
82. 
    
83. .判断结束
    
84. 返回 (到文本 (频率) ＋ “Hz”)
    
85. 
    
86. 
    
87. .子程序 时间转换, 文本型
    
88. .参数 时间, 双精度小数型
    
89. 
    
90. .判断开始 (时间 ≥ 1000000000)
    
91.     返回 (到文本 (时间 ÷ 1000000000) ＋ “S”)
    
92. .判断 (时间 ≥ 1000000)
    
93.     返回 (到文本 (时间 ÷ 1000000) ＋ “mS”)
    
94. .判断 (时间 ≥ 1000)
    
95.     返回 (到文本 (时间 ÷ 1000) ＋ “uS”)
    
96. .默认
    
97. 
    
98. .判断结束
    
99. 返回 (到文本 (时间) ＋ “nS”)
    

复制代码

GPIO

大大666，1天拿5个勋章...

520

这也可以?楼猪V5

4面8方

啥方法了

电脑高手

不可能吧这精度

小槑槑

不知道，路过看看