席位分配问题——惯例Q值法和d'hondt法的MATLAB程序

佛自业障

程序介绍了数学建模中经典问题的两种解法，即席位分配问题！
- x( n3 l7 n- m  a%适用于所有情况 BY Gu
2 }! ^% g5 R5 p* X6 v; u" U3 \clear all
, Q2 t" S1 w& E$ Lclc   %惯例Q值法分配席位，wy为席位数，ps为人数总和，R为分配方案
wy=19;
P=[103 63 34]
%菜单选项
MENUN=menu('选择方法','惯例Q值法','dhondt法','都用');
%惯例Q值法
if (MENUN==1||MENUN==3)==1
; i4 s. l; Z* u' A) @+ t+ ~9 \n=size(P,2);
ps=sum(P);
' Q' Z( V  V% H4 ]( W# ^! _RS=0;
for i=1:n
    R(i)=fix(P(i)/ps*wy);
1 {/ i6 S! Q" W    RS=RS+R(i);
end
( u8 Y9 U7 ?$ iwy1=wy-RS;
/ L/ C3 R8 y, \1 W% ^% Gfor i=1:wy1
: y; v4 Y% L+ A2 {    for j=1:n
' P6 q7 x3 V  x& ]/ n) `% u        Q(j,i)=P(j).^2/(R(j)*(R(j)+1));
$ o0 l- Z; f5 {5 s    end
    t=Q(1,i);
+ F3 I' d# u  A& T; g/ G- a    a=1;
* i4 r/ y5 ^2 u9 ?% Q" ]    for m=2:n
        if Q(m,i)>t
) I, R( Z! E) R            t=Q(m,i);
            a=m;
+ t1 X; ^6 x) {2 _# r7 r: ^' z( z2 q        end
  s4 h' P7 ~7 k' G    end
2 r% R: g$ W  z, n0 m" p! r    R(a)=R(a)+1;
end
% w7 \) {2 g% \  B& \5 T, `disp('惯例Q值法席位分配为：')
; D$ y& N. Q, q' o8 `R
( O6 L6 N# ~" }) n+ mend
%d'hondt法………………………………………………………………………………$$
' B1 R8 @) E' R- Oif (MENUN==2||MENUN==3)==1
. J& h$ N# Q" o, E2 r* A3 }1 ?zs=P;
6 P5 W: \" |6 u* a* @# \* }- s% On=size(zs,2);
9 i3 U' L' a9 n3 p  h; T. N; bfor i=1:n
     for j=1:wy
- B0 b2 K0 k. x5 s2 K( P0 K) d# h         r(i,j)=zs(i)/j;
     end
end
. J% q; ]9 X  R7 {! Et=r(';
8 D* V% a5 d5 N! ZT=sort(t,'descend');
min=T(wy);
R1=zeros(1,n);
3 b; |( l. B6 E4 R/ dfor i=1:n
     for j=1:wy
         if r(i,j)>min
             R1(i)=R1(i)+1;
4 O; Y4 r, W- L" x: ]9 I         end      
     end
) O  f0 V% J' x: r! C6 r- hend
rest=wy-sum(R1);%剩余席位
9 f3 ~) U0 S9 s) N' p9 `. h; o/ v7 \%对剩余席位的分配处理
k=0;
/ X9 N) g: I. t# P; l+ N; ]for i=1:n
. Z6 _! \6 U0 P    if k>=rest%席位分配完毕，结束循环
        break;
    end
    for j=1:wy
. S# l) i6 q1 }        if r(i,j)==min
% t3 {, j9 A2 W. k, S7 r8 P0 L) H. }           R1(i)=R1(i)+1;
           k=k+1;%对剩余席位分配计数
           break;
        end   
    end
end
( A3 [9 t/ H' Ddisp ('dhondt法席位分配：')
3 n$ f1 @% M  AR1
# R# b: ~" e% yend

/ T; V9 v: A4 b, ]- z: ^# ^7 [  f% h

* f9 K9 l& }1 u5 |. Z