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

佛自业障

程序介绍了数学建模中经典问题的两种解法，即席位分配问题！
%适用于所有情况 BY Gu
& C$ Y6 C' p: P: uclear all
# M7 u6 |5 m6 \clc   %惯例Q值法分配席位，wy为席位数，ps为人数总和，R为分配方案
wy=19;
+ v2 K6 M8 L+ Y9 A/ T2 rP=[103 63 34]
%菜单选项
MENUN=menu('选择方法','惯例Q值法','dhondt法','都用');
%惯例Q值法
/ S( \0 Q$ L8 F3 x# Q2 @" Wif (MENUN==1||MENUN==3)==1
n=size(P,2);
ps=sum(P);
) P) C. Y1 t" g  Z# \RS=0;
for i=1:n
    R(i)=fix(P(i)/ps*wy);
/ u  Q# b+ Q) K8 C- Z, O4 Y" Y    RS=RS+R(i);
end
# f  ], ?9 ?, ~1 g/ K: y& N: B$ r2 Gwy1=wy-RS;
for i=1:wy1
    for j=1:n
        Q(j,i)=P(j).^2/(R(j)*(R(j)+1));
, }2 I4 J6 m4 m0 N$ Z8 v$ O    end
8 b7 q+ A  H" L+ ?# U! D    t=Q(1,i);
* T7 {( \9 M$ [6 c0 _/ I- Y    a=1;
    for m=2:n
. C: B, N  p: i% q9 H        if Q(m,i)>t
& F3 \8 g% L/ D+ u. K            t=Q(m,i);
3 c6 C/ V  W, H. w$ _            a=m;
% d5 L% U  X) ]* i/ a3 e5 D2 P1 l) p        end
1 v( ~0 d  S( j- W/ Z# C    end
    R(a)=R(a)+1;
7 ~! X7 P% z/ S# G" `end
; ^+ [* s0 s0 z2 B& R& R+ ldisp('惯例Q值法席位分配为：')
! ^0 f8 C/ u0 O0 D/ QR
end
. \- u% G2 y6 k( x3 U: y%d'hondt法………………………………………………………………………………$$
6 Y( x+ K- P, ~5 R$ _) P5 tif (MENUN==2||MENUN==3)==1
zs=P;
n=size(zs,2);
for i=1:n
1 H2 l7 _, F6 J" ?     for j=1:wy
         r(i,j)=zs(i)/j;
6 I+ a9 I8 R( w5 H" G     end
end
t=r(';
! w+ b; f9 m' pT=sort(t,'descend');
min=T(wy);
R1=zeros(1,n);
) Q+ O) b% m2 ^! ^- p3 q% f  J- vfor i=1:n
     for j=1:wy
5 L0 G" Q9 r: G8 x3 l         if r(i,j)>min
: R3 l* E% D; b7 F, I6 B             R1(i)=R1(i)+1;
         end      
  W; B: i5 W1 n) K( R+ `5 Z; a     end
end
rest=wy-sum(R1);%剩余席位
# G2 S) ^0 I6 }* q+ E. G%对剩余席位的分配处理
+ v0 s/ p2 J6 Z. `) \" m% ~k=0;
for i=1:n
    if k>=rest%席位分配完毕，结束循环
) X: w! n5 J  ~) w9 G) C        break;
    end
/ K1 o/ V2 j7 p2 c* t: l; E1 {/ W6 @    for j=1:wy
        if r(i,j)==min
           R1(i)=R1(i)+1;
' F) ~# F( k6 |4 G           k=k+1;%对剩余席位分配计数
           break;
( A7 s( z; G2 y# `- U        end   
    end
+ W/ p4 n' L, G5 \2 y0 {: Kend
6 Y& Y" ~8 N+ Z  e% sdisp ('dhondt法席位分配：')
R1
* m3 t. W/ b0 ?1 d( Eend
: v3 \" Z: }6 p# Z2 L/ }# m, ?- R
4 B: }" H7 A' F7 \6 C" b