求一个取字符串中间值的自定义函数

zhangstone

各位高手:

    你们好！
    我有一个取字符串中间值的自定义函数的难题，详见附件。
   

LIUZHU

求中间值那个，原始数据难道不要进行排序处理吗，还是就是按照目前给定的数据按奇偶数个数取中间值？
梯度及梯队对应数值，到底是要几个自定义函数，字符串梯度、梯度最大值、最大梯度对应的数值，这是三个自定义函数，具体需要哪个？

sdytsxd991122

zhangstone

LIUZHU：
   您好！非常感谢您的热心回帖！
   1、原始数据都是已经排序好的数值字符串（从左向右：按大小排列）
   2、我想要3个自定义函数：字符串梯度、梯度最大值、最大梯度对应的数值（在一个帖子里要几个自定义函数，没脸说，就混在一起说了）

zhangstone

sdytsxd991122:
您好！
非常感谢您的帮助，正是我所需要的。

sdytsxd991122

nihao123456789

1. Function medianX(STR As String) As String
   
2.     arr = Split(STR, ",")
   
3.     s = UBound(arr) - LBound(arr) + 1
   
4.     If s Mod 2 = 1 Then
   
5.         tex = arr(s / 2)
   
6.     ElseIf s Mod 2 = 0 Then
   
7.         tex = arr(s / 2) & "," & arr(s / 2 + 1)
   
8.     End If
   
9.     medianX = tex
   
10. End Function
    
11. 
    
12. 
    
13. Function maxtidu(STR As String, N As Boolean) As String
    
14.     arr = Split(STR, ",")
    
15.     maxtidu = 0
    
16.     maxtiduIndex = 0
    
17.     For s = LBound(arr) To UBound(arr) - 1
    
18.         tidu = arr(s) - arr(s + 1)
    
19.         If maxtd < tidu Then
    
20.             maxtd = tidu
    
21.             maxtdIndex = s
    
22.         End If
    
23.     Next
    
24.     If N = True Then
    
25.         maxtidu = maxtd
    
26.     ElseIf N = False Then
    
27.         maxtidu = arr(maxtdIndex) & "," & arr(maxtdIndex + 1)
    
28.     End If
    
29. End Function
    

复制代码

LIUZHU

zhangstone 发表于 2024-5-13 10:51
LIUZHU：
   您好！非常感谢您的热心回帖！
   1、原始数据都是已经排序好的数值字符串（从左向右：按大 ...

实际计算中，梯度最大值会得到几个并列的，如“33,30,27,24,21,14,12,11,4,3”，21-14=7,11-4=7，这种情况怎么处理，是只需要21和14呢，还是21,14,11,4都需要?

LIUZHU

先做了几个出来，JSA代码

1. //中间值
   
2. function Get_median(rng){
   
3.         let arr=rng.Value2.split(",");
   
4.         let n=Math.ceil(arr.length/2);
   
5.         return [...new Set([arr[n-1],arr[arr.length-n]])].join(",")
   
6. }
   
7. //字符串梯度
   
8. function Get_step(rng){
   
9.         let arr=rng.Value2.split(",");
   
10.         return arr.slice(1).map((x,i)=>arr[i]-x).join(",");
    
11. }
    
12. //梯度最大值
    
13. function Get_maxstep(rng){
    
14.         let arr=rng.Value2.split(",");
    
15.         return Math.max(...arr.slice(1).map((x,i)=>arr[i]-x));
    
16. }

复制代码

zhangstone

LIUZHU大神:

遇到并列的，都写出来。超级感谢！