| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| RSI指标 | 文本型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| c | 双精度小数型 | n | 整数型 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| sum | 双精度小数型 | |||||
| 计次 | 整数型 | |||||
| lc | 双精度小数型 | |||||
| close | 双精度小数型 | |||||
| sum1 | 双精度小数型 | |||||
| 当日上涨平均数 | 双精度小数型 | |||||
| 前日上涨平均数 | 双精度小数型 | |||||
| 当日下跌平均数 | 双精度小数型 | |||||
| 前日下跌平均数 | 双精度小数型 | |||||
| RS | 双精度小数型 | |||||
| rsi值 | 双精度小数型 | |||||
| rsi2 | 文本型 | |||||
| 数据成员数 | 整数型 | |||||
如果 (数据成员数 ＞ n) ' 也就是N+1以上
计次循环首 (数据成员数, 计次) ' ' 至少传入N+1个收盘价 数据顺序没有错 日期最近的放在最后，远的日期放前面判断 (计次 ＞ 1) ' 计次从第二个数据开始lc ＝ c [计次 － 1]close ＝ c [计次]sum ＝ max (close, lc) ' 当日涨幅如果 (sum ＞ 0)
sum1 ＝ 0 ' 当日上涨所以当日跌幅为0
sum1 ＝ 取绝对值 (close － lc) ' 当日跌幅
' 输出调试文本 (sum, sum1) ' 加入成员 (r1, sum) ' 较大值 较前一天的涨 ' 加入成员 (r2, sum1) ' 差值绝对值 较前一天的跌当日上涨平均数 ＝ 前日上涨平均数 �� (n － 1) ÷ n ＋ sum ÷ n ' 当日上涨平均数 = 前一日涨幅平均数*5/6 + 当日涨幅/6 （若某日下跌时，则当日涨幅记为0）当日下跌平均数 ＝ 前日下跌平均数 �� (n － 1) ÷ n ＋ sum1 ÷ n ' 当日下跌平均数 = 前一日跌幅平均数*5/6 + 当日跌幅/6 （若某日上涨时，则当日跌幅记为0）上市第一天无RSI取值。前日上涨平均数 ＝ 当日上涨平均数 ' 为下一次循环赋值前日下跌平均数 ＝ 当日下跌平均数 ' 为下一次循环赋值如果 (当日下跌平均数 ＝ 0) ' 特殊处理 0不能被除 这个时候rsi无穷大处理为100RS ＝ 1 ' RS ÷ (1 ＋ RS)RS ＝ 当日上涨平均数 ÷ 当日下跌平均数
RS ＝ RS ÷ (1 ＋ RS)rsi值 ＝ RS × 100 ' 然后保留2位小时 ' 数据必须循环够多的次数，只测试6,7个收盘价会不准 100个左右和各种软件网页能完全匹配
计次循环尾 ()rsi2 ＝ 数值到格式文本 (rsi值, 2, 假)调试输出 (rsi2)返回 (rsi2)调试输出 (“异常”)返回 (“异常”) ' “异常处理 数据不足' 软件中对涨跌进行了平滑处理， 以6日举例
' 当日上涨平均数 = 前一日涨幅平均数*5/6 + 当日涨幅/6 （若某日下跌时，则当日涨幅记为0）
' 当日下跌平均数 = 前一日跌幅平均数*5/6 + 当日跌幅/6 （若某日上涨时，则当日跌幅记为0）上市第一天无RSI取值。
' 作者：知乎用户7VMW67
' 链接：[url=https://www.zhihu.com/question/52823554/answer/152571404]https://www.zhihu.com/question/52823554/answer/152571404[/url]
' 来源：知乎
' 著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| max | 双精度小数型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| a | 双精度小数型 | b | 双精度小数型 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| c | 双精度小数型 | |||||
判断 (a ＞ b)返回 (c)返回 (0)| i支持库列表 | 支持库注释 |
| spec | 特殊功能支持库 |
