惯例Q值法和D‘hondt法席位分配问题matlab程序

clear all
clc   %惯例Q值法分配席位，wy为席位数，ps为人数总和，R为分配方案
wy=19;
P=[103 63 34]
%菜单选项
MENUN=menu（‘选择方法‘‘惯例Q值法‘‘dhondt法‘‘都用‘）;
%惯例Q值法
if （MENUN==1||MENUN==3）==1
n=size（P2）;
ps=sum（P）;
RS=0;
for i=1:n
    R（i）=fix（P（i）/ps*wy）;
    RS=RS+R（i）;
end
wy1=wy-RS;
for i=1:wy1
    for j=1:n
        Q（ji）=P（j）.^2/（R（j）*（R（j）+1））;
    end
    t=Q（1i）;
    a=1;
    for m=2:n
        if Q（mi）>t
            t=Q（mi）;