leav.m

本源码是用于ad hoc中一种改进的预约多址协议的仿真

function y=leav(numres,numlea,pro);                           %当前状态为numres个预约，有numlea个离开的概率
s=groups(numres,numlea);
y=s*(pro^numlea)*((1-pro)^(numres-numlea));