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

佛自业障

程序介绍了数学建模中经典问题的两种解法，即席位分配问题！
%适用于所有情况 BY Gu
! D, [( m/ p0 d( }; s4 f, a. Dclear all
clc   %惯例Q值法分配席位，wy为席位数，ps为人数总和，R为分配方案
wy=19;
% y2 }: N4 r2 ~, L/ @+ D- Y: i7 ]P=[103 63 34]
%菜单选项
2 [) B  a( B' Y3 \; {8 i7 bMENUN=menu('选择方法','惯例Q值法','dhondt法','都用');
%惯例Q值法
if (MENUN==1||MENUN==3)==1
% W+ y; q& M1 a- a8 Hn=size(P,2);
8 H0 v' ^  {# L; mps=sum(P);
RS=0;
for i=1:n
/ X0 c3 u: W4 ]5 r7 F    R(i)=fix(P(i)/ps*wy);
* `5 R( ~, e  Z5 F+ r5 z) d    RS=RS+R(i);
% E  Q, A; F8 ^end
2 p+ A# G/ Y  H; I: swy1=wy-RS;
& H1 W- L2 o# K+ n3 D) g+ P4 S4 L$ _for i=1:wy1
    for j=1:n
: h+ G6 p2 ]$ U8 G9 q2 z+ |        Q(j,i)=P(j).^2/(R(j)*(R(j)+1));
    end
' e6 X- O8 F  s/ o    t=Q(1,i);
) C1 ]; Z# M( Z6 L) N    a=1;
    for m=2:n
        if Q(m,i)>t
            t=Q(m,i);
$ s- Y* \8 b# x+ c9 @& U: ?% f/ [            a=m;
        end
    end
    R(a)=R(a)+1;
end
* K& I, Y: r7 S! ?5 T# ^disp('惯例Q值法席位分配为：')
R
end
% K+ V  s# j" m5 H7 j%d'hondt法………………………………………………………………………………$$
if (MENUN==2||MENUN==3)==1
3 M+ N& g7 N7 Y4 E( [5 Lzs=P;
1 K7 v2 p' k' i. w9 R8 t2 K% H. hn=size(zs,2);
, _3 }+ }1 y! X: e$ x7 Afor i=1:n
     for j=1:wy
* G; _8 _& d/ \" [8 _         r(i,j)=zs(i)/j;
     end
end
. A, E: N  P. T9 B2 U0 Pt=r(';
T=sort(t,'descend');
min=T(wy);
R1=zeros(1,n);
for i=1:n
     for j=1:wy
         if r(i,j)>min
             R1(i)=R1(i)+1;
         end      
     end
1 s3 m* y5 i' N2 o9 z' h+ jend
rest=wy-sum(R1);%剩余席位
& `$ d' V) U1 R! x%对剩余席位的分配处理
k=0;
for i=1:n
    if k>=rest%席位分配完毕，结束循环
        break;
, K* Y; W! _' L, |4 p    end
    for j=1:wy
1 ?, R) m: B/ l9 R        if r(i,j)==min
3 i! Y/ s( w1 A           R1(i)=R1(i)+1;
. }& P, }8 _+ j) c7 C           k=k+1;%对剩余席位分配计数
           break;
        end   
    end
end
: k- F3 Q& M) }disp ('dhondt法席位分配：')
2 K7 j2 g- b& }: tR1
end

% B/ V5 j9 Y5 E0 c! N% p1 G. r
3 V5 p/ q0 l7 A2 w- d