set_D.m
上传用户:m_sun_001
上传日期:2014-07-30
资源大小:1115k
文件大小:0k
源码类别:

matlab例程

开发平台:

Matlab

  1. % Program 7-9
  2. %
  3. % set_D.m
  4. %
  5. % Programed by A.Kanazawa
  6. % Checked by H.Harada
  7. %
  8. function D = set_D(x,y,R)
  9. % the function to determine the distance between BSs
  10. i_R = sqrt(3) * R;
  11. j_R = i_R / sqrt(2);
  12. D2 = 0+0j;
  13. for k = 1:x
  14.    D2 =  D2 + i_R;
  15. end
  16. for k = 1:y
  17.    D2 = D2 + j_R + j * j_R;
  18. end
  19. D = abs(D2);
  20. %************ end of file ************