请教一个截断切割问题！

xmanking

<>截断切割程序应当如何编写，小弟我的程序运行中途出错，希望大家指教！</P>
<>clear
clc
c=1;r=1;
%a=[6 3 1];%原长方体长分为三部分:左、中、右
%b=[7 2 5.5];%原长方体宽分为三部分:前、中、后
%h=[9 4 6];%原长方体高分为三部分：底、中、顶
%fee1=0;
Fee=[];
%u=[];
v=[1 2 3 4 5 6];
for i1=1:6
    u=[];%置空u,重新开始
    fee1=0;
    a=[6 3 1];
    b=[7 2 5.5];
    h=[9 4 6];
    u=[u,v(i1)];
    v1=v;
    v1(i1)=[];
    for i2=1:5
        u=[u,v1(i2)];
        v2=v1;
        v2(i2)=[];
        a=[6 3 1];
        b=[7 2 5.5];
        h=[9 4 6];
        for i3=1:4
            u=[u,v2(i3)];
            v3=v2;
            v3(i3)=[];
            a=[6 3 1];
            b=[7 2 5.5];
            h=[9 4 6];
            for i4=1:3
                u=[u,v3(i4)];
                v4=v3;
                v4(i4)=[];
                a=[6 3 1];
                b=[7 2 5.5];
                h=[9 4 6];
                for i5=1:2
                    u=[u,v4(i5)];
                    v5=v4;
                    v5(i5)=[];
                    u=[u,v5];
                    a=[6 3 1];
                    b=[7 2 5.5];
                    h=[9 4 6];
                    for i=1:6
                        u(i);
                        
                        switch u(i)
                            case 1
                                fee=c*sum(b)*sum(h);
                                a(1)=[];
                            case 2
                                fee=c*sum(b)*sum(h);
                                a0=length(a)
                                a(a0)=[];
                            case 3
                                fee=c*sum(a)*sum(h);
                                b(1)=[];
                            case 4
                                fee=c*sum(a)*sum(h);
                                b0=length(b)
                                b(b0)=[];
                            case 5
                                fee=r*c*sum(a)*sum(b);
                                h(1)=[];
                            case 6
                                fee=r*c*sum(a)*sum(b);
                                h0=length(h)
                                h(h0)=[];
                         end
                         fee1=fee1+fee;
                    end
                    Fee=[Fee,fee1];
                    u(6)=[];%置空u的第六个元素
                end
                u(5)=[];
            end
            u(4)=[];
        end
        u(3)=[];
    end
    u(2)=[];
end
Feemin=min(Fee)</P>

xmanking

^_^，我自己想出来了，不用大家帮忙了！上面的程序有些问题，大家自己想想吧！

[此贴子已经被作者于2004-9-25 12:02:41编辑过]