关于ball_wall接触力的获得（有码）

sun二少

def dball
  cp=contact_head                      ;运行函数时必须要有contact存在，否则会出错
  loop while cp # null
    obj=c_ball2(cp)                        ;在接触对里first永远是ball，所以只要检查second
    if pointer_type(obj)=101 then                 ;判断对象是否wall
       bp=c_ball1(cp)
       b_color(bp)=1          ;问题就在这里，如何获得接触力，因为很多个接触，而且之后的力还要算平均，请大侠指教！！！
    endif
    cp=c_next(cp)
  endloop  
end

sun二少

DEF _sumw_xfob
  sumw_xf = 0.0
  cp = contact_head
   loop while cp # null ; loop over all contacts in model
    if c_ball2(cp) = find_wall(8) then       ; ball1 is always a ball, ball2 may be wall
       sumw_xf = w_xfob(wp) +sumw_xf
    end_if
    cp = c_next(cp)                                  ;get next contact in linked-list of contacts
   end_loop
END；现在能得到我想要的结果么？
自己顶一下~

sun二少

补充：这个过程是动态的，我的目的墙体在一个方向做挤压运动，当平均力达到一定临界值的时候停止，删除（记录的）与之（即wall）接触的颗粒。

wuzhide

谢谢！！！！！！！！

wuzhide

haodongxi!