分位数：列出第一个数字、最后一个数字和中间的数字

; https://www.autohotkey.com/boards/viewtopic.php?f=6&t=55844
oArray := JEE_Quantiles(0, 100, 4)
MsgBox, % JEE_ObjListSimple(oArray)

MsgBox, % JEE_Quantiles(0, 100, 4, 1)

oArray := JEE_Quantiles(1, 15, 7)
MsgBox, % JEE_ObjListSimple(oArray)
return

JEE_Quantiles(vFirst, vLast, vParts, vNum:="") {
  vDiff := vLast-vFirst
  if !(vNum = "")
    return vFirst + ((vDiff*vNum)/vParts)
  oArray := []
  Loop, % vParts + 1
    oArray.Push(vFirst + ((vDiff*(A_Index-1))/vParts))
  return oArray
}

JEE_ObjListSimple(oArray, vSep:=" ", vSep2:="`r`n") {
  for vKey, vValue in oArray
    vOutput .= vKey vSep vValue vSep2
  return SubStr(vOutput, 1, -StrLen(vSep2))
}

 

声明：站内资源为整理优化好的代码上传分享与学习研究，如果是开源代码基本都会标明出处，方便大家扩展学习路径。请不要恶意搬运，破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点，所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益，请联系我们进行删除下架。