查找主流重复最多的数。

------------写一个函数 有几类不同的元素，但是每一类都有你哥是相同的个体 我就是要查处那个类是最多的
----------这个功能可应在 选择面的法线上，实行少数服从多数原则，
 handrn  = #(12,12,30,60,10,12,20,30,50,60,60,12,30,12,30 ,30,30)
 ---- 其实这个函数是为了以后判断主流法线的。
  fn gt_11_1_unmBIJIAO Arrayy=
  (
   temporaryarray= #()
   temporaryarray1 =#()
   for i in Arrayy do
   (
    if findItem temporaryarray i == 0 then
    (
    append temporaryarray i
    )else
    (
   append temporaryarray1 i  
    )
 
   )
   if temporaryarray1.count == 1 then return temporaryarray1[1] else
   (if temporaryarray1.count == 0 then
    (
     messageBox "输入的因素没有重复，或者是最高重复数量一样。" title: "盖天编写"
     return false
    )
   
   
   )
  
   -----把 重复的数组再次输入。
   gt_11_1_unmBIJIAO  temporaryarray1
  
  
  
  )