抛砖引玉
.版本 2
.支持库 spec
.子程序 rsi, 双精度小数型
.参数 c, 双精度小数型, 数组
.参数 n, 整数型, 可空
.局部变量 ref, 双精度小数型
.局部变量 sum, 双精度小数型
.局部变量 计次, 整数型
.局部变量 lc, 双精度小数型
.局部变量 close, 双精度小数型
.局部变量 sum1, 双精度小数型
.局部变量 r1, 双精度小数型, , "0"
.局部变量 r2, 双精度小数型, , "0"
.局部变量 rsi1, 双精度小数型
.计次循环首 (取数组成员数 (c), 计次)
.判断开始 (计次 > 1)
lc = c [计次 - 1]
close = c [计次]
sum = max (close, lc)
sum1 = 取绝对值 (close - lc)
加入成员 (r1, sum)
加入成员 (r2, sum1)
.判断开始 (取数组成员数 (r1) > 13)
rsi1 = 求总数 (r1) ÷ 求总数 (r2) × 100
删除成员 (r1, 1, )
删除成员 (r2, 1, )
.默认
.判断结束
.默认
.判断结束
.计次循环尾 ()
调试输出 (rsi1)
返回 (rsi1)
.版本 2
.子程序 max, 双精度小数型
.参数 a, 双精度小数型
.参数 b, 双精度小数型
.局部变量 c, 双精度小数型
c = a - b
.判断开始 (a > b)
返回 (c)
.默认
返回 (0)
|