全国大学生数学建模2020A题炉温曲线Matlab代码(后两问)

文章目录

      • (三)第三问
        • 1、第三问求解
        • 2、小温区1-5灵敏度分析
        • 3、小温6灵敏度分析
        • 4、小温区7灵敏度分析
        • 5、小温区8~9灵敏度分析
      • (四)第四问
        • 1、第四问第1次遍历
        • 2、第四问第2次遍历
        • 3、第四问第3次遍历
        • 4、灵敏度分析(关于Sk)
        • 5、灵敏度分析(关于积分面积)
        • 6、求解限制条件最大值

(三)第三问

1、第三问求解

clc; clear;  %问题三
global xm L u0
L=50+30.5*11+5*10;
alpha = 7.15e-04;
H1 = 6975.37;
H2 = 97.60;
xm=[alpha;H1;alpha;H1;alpha;H1;alpha;H1;alpha;H2];
x=[]; 

% 粒子群找最优解
[x, fv]=PSO(@area, 60 ,0.8, 2, 2,[185,205,245,265,10/6],[165,185,225,245,65/60],1000,5);

F=[25,x(1),x(2),x(3),x(4),25]; 
v=x(5);
T=L/v;
S=area(x);
t=0:0.5:T;
k=find(u0==max(u0));
figure  
hold on
plot(t,u0, 'blue', 'linewidth', 1.5);
hold on;
plot(t,217*ones(length(t),1), 'red', 'linewidth', 1.5);
xlabel( '时间/s');
ylabel('温度/°C');
title('炉温曲线');
text(T,217,'T=217℃','color','black');
line([t(k),t(k)],[0,280],'color','g', 'linewidth', 1.5);
daspect([1,1.6,1]);



function y=f(x,F)
l=5; L=30.5; s=25;
x1=0; x2=25;
x3=x2+5*L+4*l; x4=x3+l;
x5=x4+L;x6=x5+l;
x7=x6+L;x8=x7+l;
x9=x8+2*L+l;x10=x9+l;
y=(exp(0.2007*x)+24).*(x<=x2)+F(2).*(x>x2).*(x<=x3)+((F(3)-F(2))/l.*(x-x3)+F(2)).*(x>x3).*(x<=x4)+F(3).*(x>x4).*(x<=x5)...
+((F(4)-F(3))/l.*(x-x5)+F(3)).*(x>x5).*(x<=x6)+F(4).*(x>x6).*(x<=x7)...
+((F(5)-F(4))/l.*(x-x7)+F(4)).*(x>x7).*(x<=x8)+F(5).*(x>x8).*(x<=x9)...
+((F(6)-F(5))/l.*(x-x9)+F(5)).*(x>x9).*(x<=x10) + F(6).*(x>x10);
end

function t=heat(u1,u2,u3,u4,v)     
    global xm L
    F=[25,u1,u2,u3,u4,25]; T=L/v;
    L1=25+5*30.5+5*5; 
    L2=L1+30.5+5;
    L3=L2+30.5+5;
    t1=L1/v;t2=L2/v;t3=L3/v;
    dt=0.5; 
    m1=floor(t1/dt)+1;
    m2=floor(t2/dt)+1;
    m3=floor(t3/dt)+1;
   
    l=0.015; 
    x=1e-4; 
    q1=xm(1)^2*dt/(x^2);
    q2=xm(3)^2*dt/(x^2);
    q3=xm(5)^2*dt/(x^2);
    q4=xm(7)^2*dt/(x^2);
    q5=xm(9)^2*dt/(x^2);
    h1=xm(2);
    h2=xm(4);
    h3=xm(6);
    h4=xm(8);
    h5=xm(10);
    n=ceil(l/x)+1; m=floor(T/dt)+1;
    u=zeros(n,m);t=ones(m,1)*25;
    u(:,1)=25;
    u0=f(v*(0:floor(T/dt))*dt,F);
    k=ceil(l/2/x);
    A1=diag([1+h1*x,2*ones(1,n-2)*(1+q1),1+h1*x]);
    A1=A1+diag([-1,-q1*ones(1,n-2)],1);
    A1=A1+diag([-q1*ones(1,n-2),-1],-1);          
    B1=diag([0,2*ones(1,n-2)*(1-q1),0]);
    B1=B1+diag([0,q1*ones(1,n-2)],1);
    B1=B1+diag([q1*ones(1,n-2),0],-1);
    C1=A1\B1;
    c=zeros(n,m); c(1,:)=h1*u0*x; 
    c(n,:)=c(1,:);
    c=A1\c;    
    for j=1:m1-1
       u(:,j+1)=C1*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A2=diag([1+h2*x,2*ones(1,n-2)*(1+q2),1+h2*x]);
    A2=A2+diag([-1,-q2*ones(1,n-2)],1);
    A2=A2+diag([-q2*ones(1,n-2),-1],-1);          
    B2=diag([0,2*ones(1,n-2)*(1-q2),0]);
    B2=B2+diag([0,q2*ones(1,n-2)],1);
    B2=B2+diag([q2*ones(1,n-2),0],-1);
    C2=A2\B2;
    c=zeros(n,m); c(1,:)=h2*u0*x; 
    c(n,:)=c(1,:);
    c=A2\c;    
    for j=m1:m2-1
       u(:,j+1)=C2*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A3=diag([1+h3*x,2*ones(1,n-2)*(1+q3),1+h3*x]);
    A3=A3+diag([-1,-q3*ones(1,n-2)],1);
    A3=A3+diag([-q3*ones(1,n-2),-1],-1);          
    B3=diag([0,2*ones(1,n-2)*(1-q3),0]);
    B3=B3+diag([0,q3*ones(1,n-2)],1);
    B3=B3+diag([q3*ones(1,n-2),0],-1);
    C3=A3\B3;
    c=zeros(n,m); c(1,:)=h3*u0*x; 
    c(n,:)=c(1,:);
    c=A3\c;    
    for j=m2:m3-1
       u(:,j+1)=C3*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
        
    
    A4=diag([1+h4*x,2*ones(1,n-2)*(1+q4),1+h4*x]);
    A4=A4+diag([-1,-q4*ones(1,n-2)],1);
    A4=A4+diag([-q4*ones(1,n-2),-1],-1);          
    B4=diag([0,2*ones(1,n-2)*(1-q4),0]);
    B4=B4+diag([0,q4*ones(1,n-2)],1);
    B4=B4+diag([q4*ones(1,n-2),0],-1);
    C4=A4\B4;
    c4(1,:)=h4*u0*x; 
    c4(n,:)=c4(1,:);
    c4=A4\c4;    
        
    A5=diag([1+h5*x,2*ones(1,n-2)*(1+q5),1+h5*x]);
    A5=A5+diag([-1,-q5*ones(1,n-2)],1);
    A5=A5+diag([-q5*ones(1,n-2),-1],-1);          
    B5=diag([0,2*ones(1,n-2)*(1-q5),0]);
    B5=B5+diag([0,q5*ones(1,n-2)],1);
    B5=B5+diag([q5*ones(1,n-2),0],-1);
    C5=A5\B5;
    c5(1,:)=h5*u0*x; 
    c5(n,:)=c5(1,:);
    c5=A5\c5;    
    for j=m3:m-1
       if t(j)>=t(j-1)
            u(:,j+1)=C4*u(:,j)+c4(:,j+1);            
       else
           u(:,j+1)=C5*u(:,j)+c5(:,j+1); 
       end
       t(j+1)=u(k,j+1);
    end
end

function a=area(x)
global u0
    u0=heat(x(1),x(2),x(3),x(4),x(5));
    u=u0(u0>=30);
    tmp2=u(u>=217)-217;
    t2=length(tmp2)*0.5;
    TMax=max(u);  
    tmp3=abs(u(2:length(u))-u(1:length(u)-1))/0.5;
    KMax=max(tmp3);
    s=u(u(2:length(u))>=u(1:length(u)-1));
    s=s(s>=150);
    s=s(s<=190);
    t1=length(s)*0.5;   
    y=logical((TMax<=250)*(TMax>=240)*(t2>=40)*(t2<=90)*(KMax<=3)*(t1<=120)*(t1>=60));
    if y
        k=find(tmp2==max(tmp2));
        if k>2
            a=(sum(tmp2(1:k))-(tmp2(1)+tmp2(k))/2)*0.5;
        else
            a=(tmp2(1)+tmp2(k))*0.5/2;
        end
    else
        a=inf;
    end
end

2、小温区1-5灵敏度分析

clc; clear;  %问题一
global F v T
F=[25 0 198 225 264 25];
v = 83.00337877/60;
% 165-185
TT = [165 170 175 180];
alpha = 7.15e-04;
H1 = 6975.37;
H2 = 97.60;
xm=[alpha;H1;alpha;H1;alpha;H1;alpha;H1;alpha;H2];
W = 30.5;
Left = 25;
Right = 25;
gap = 5;
L=Left*2+W*11+gap*10;  % 总长度
dt=0.5;             % 时间变化率
T=L/v;              % 总时间
t=0:dt:T;           % 各个时间点
for i=1:4
    F(2) = TT(i);
    if i==1
        u1=heat(xm);
    elseif i==2 
        u2=heat(xm);
    elseif i==3
        u3=heat(xm);
    elseif i==4
        u4=heat(xm);
    end
end

size = 15;
plot(t,u1, 'linewidth', 2);
hold on;
plot(t,u2, 'linewidth', 2);
hold on;
plot(t,u3, 'linewidth', 2);
hold on;
plot(t,u4, 'linewidth', 2);
xlabel( '时间/s','FontSize',size);
ylabel('温度/℃','FontSize',size);
title('小温区1~5温度灵敏度分析','FontSize',size);
daspect([1,1.6,1]);
ylim([0 280]);
legend('T=165/°C', 'T=170/°C', 'T=175/°C', 'T=180/°C','FontSize',size-5);





function y=f(x)
    global F
    l=5; L=30.5; s=25;
    x1=0; x2=25;
    x3=x2+5*L+4*l; x4=x3+l;
    x5=x4+L;x6=x5+l;
    x7=x6+L;x8=x7+l;
    x9=x8+2*L+l;x10=x9+l;
    y=(exp(0.2007*x)+24).*(x<=x2)+F(2).*(x>x2).*(x<=x3)+((F(3)-F(2))/l.*(x-x3)+F(2)).*(x>x3).*(x<=x4)+F(3).*(x>x4).*(x<=x5)...
    +((F(4)-F(3))/l.*(x-x5)+F(3)).*(x>x5).*(x<=x6)+F(4).*(x>x6).*(x<=x7)...
    +((F(5)-F(4))/l.*(x-x7)+F(4)).*(x>x7).*(x<=x8)+F(5).*(x>x8).*(x<=x9)...
    +((F(6)-F(5))/l.*(x-x9)+F(5)).*(x>x9).*(x<=x10) + F(6).*(x>x10);
end

function t=heat(xm)     
    global T  v
    L1=25+5*30.5+5*5; 
    L2=L1+30.5+5;
    L3=L2+30.5+5;
    t1=L1/v;
    t2=L2/v;
    t3=L3/v;
    dt=0.5; 
    m1=floor(t1/dt)+1;
    m2=floor(t2/dt)+1;
    m3=floor(t3/dt)+1;
   
    l=0.015; 
    x=1e-4; 
    q1=xm(1)^2*dt/(x^2);
    q2=xm(3)^2*dt/(x^2);
    q3=xm(5)^2*dt/(x^2);
    q4=xm(7)^2*dt/(x^2);
    q5=xm(9)^2*dt/(x^2);
    h1=xm(2);
    h2=xm(4);
    h3=xm(6);
    h4=xm(8);
    h5=xm(10);
    n=ceil(l/x)+1; 
    m=floor(T/dt)+1;
    u=zeros(n,m);
    t=ones(m,1)*25;
    u(:,1)=25;
    u0=f(v*(0:floor(T/dt))*dt);
    k=ceil(l/2/x);
    A1=diag([1+h1*x,2*ones(1,n-2)*(1+q1),1+h1*x]);
    A1=A1+diag([-1,-q1*ones(1,n-2)],1);
    A1=A1+diag([-q1*ones(1,n-2),-1],-1);          
    B1=diag([0,2*ones(1,n-2)*(1-q1),0]);
    B1=B1+diag([0,q1*ones(1,n-2)],1);
    B1=B1+diag([q1*ones(1,n-2),0],-1);
    C1=A1\B1;
    c=zeros(n,m); c(1,:)=h1*u0*x; 
    c(n,:)=c(1,:);
    c=A1\c;    
    for j=1:m1-1
       u(:,j+1)=C1*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A2=diag([1+h2*x,2*ones(1,n-2)*(1+q2),1+h2*x]);
    A2=A2+diag([-1,-q2*ones(1,n-2)],1);
    A2=A2+diag([-q2*ones(1,n-2),-1],-1);          
    B2=diag([0,2*ones(1,n-2)*(1-q2),0]);
    B2=B2+diag([0,q2*ones(1,n-2)],1);
    B2=B2+diag([q2*ones(1,n-2),0],-1);
    C2=A2\B2;
    c=zeros(n,m); c(1,:)=h2*u0*x; 
    c(n,:)=c(1,:);
    c=A2\c;    
    for j=m1:m2-1
       u(:,j+1)=C2*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A3=diag([1+h3*x,2*ones(1,n-2)*(1+q3),1+h3*x]);
    A3=A3+diag([-1,-q3*ones(1,n-2)],1);
    A3=A3+diag([-q3*ones(1,n-2),-1],-1);          
    B3=diag([0,2*ones(1,n-2)*(1-q3),0]);
    B3=B3+diag([0,q3*ones(1,n-2)],1);
    B3=B3+diag([q3*ones(1,n-2),0],-1);
    C3=A3\B3;
    c=zeros(n,m); c(1,:)=h3*u0*x; 
    c(n,:)=c(1,:);
    c=A3\c;    
    for j=m2:m3-1
       u(:,j+1)=C3*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
        
    
    A4=diag([1+h4*x,2*ones(1,n-2)*(1+q4),1+h4*x]);
    A4=A4+diag([-1,-q4*ones(1,n-2)],1);
    A4=A4+diag([-q4*ones(1,n-2),-1],-1);          
    B4=diag([0,2*ones(1,n-2)*(1-q4),0]);
    B4=B4+diag([0,q4*ones(1,n-2)],1);
    B4=B4+diag([q4*ones(1,n-2),0],-1);
    C4=A4\B4;
    c4(1,:)=h4*u0*x; 
    c4(n,:)=c4(1,:);
    c4=A4\c4;    
        
    A5=diag([1+h5*x,2*ones(1,n-2)*(1+q5),1+h5*x]);
    A5=A5+diag([-1,-q5*ones(1,n-2)],1);
    A5=A5+diag([-q5*ones(1,n-2),-1],-1);          
    B5=diag([0,2*ones(1,n-2)*(1-q5),0]);
    B5=B5+diag([0,q5*ones(1,n-2)],1);
    B5=B5+diag([q5*ones(1,n-2),0],-1);
    C5=A5\B5;
    c5(1,:)=h5*u0*x; 
    c5(n,:)=c5(1,:);
    c5=A5\c5;   
    
    for j=m3:m-1
       if t(j)>=t(j-1)
            u(:,j+1)=C4*u(:,j)+c4(:,j+1);            
       else
           u(:,j+1)=C5*u(:,j)+c5(:,j+1); 
       end
       t(j+1)=u(k,j+1);
    end
end

3、小温6灵敏度分析

clc; clear;  %问题一
global F v T
F=[25 178 198 225 264 25];
v = 83.00337877/60;
% 185-205
TT = [185 190 195 200];
alpha = 7.15e-04;
H1 = 6975.37;
H2 = 97.60;
xm=[alpha;H1;alpha;H1;alpha;H1;alpha;H1;alpha;H2];
W = 30.5;
Left = 25;
Right = 25;
gap = 5;
L=Left*2+W*11+gap*10;  % 总长度
dt=0.5;             % 时间变化率
T=L/v;              % 总时间
t=0:dt:T;           % 各个时间点
for i=1:4
    F(3) = TT(i);
    if i==1
        u1=heat(xm);
    elseif i==2 
        u2=heat(xm);
    elseif i==3
        u3=heat(xm);
    elseif i==4
        u4=heat(xm);
    end
end

size = 15;
plot(t,u1, 'linewidth', 2);
hold on;
plot(t,u2, 'linewidth', 2);
hold on;
plot(t,u3, 'linewidth', 2);
hold on;
plot(t,u4, 'linewidth', 2);
xlabel( '时间/s','FontSize',size);
ylabel('温度/℃','FontSize',size);
title('小温区6温度灵敏度分析','FontSize',size);
daspect([1,1.6,1]);
ylim([0 280]);
legend('T=185/°C', 'T=190/°C', 'T=195/°C', 'T=200/°C','FontSize',size-5);





function y=f(x)
    global F
    l=5; L=30.5; s=25;
    x1=0; x2=25;
    x3=x2+5*L+4*l; x4=x3+l;
    x5=x4+L;x6=x5+l;
    x7=x6+L;x8=x7+l;
    x9=x8+2*L+l;x10=x9+l;
    y=(exp(0.2007*x)+24).*(x<=x2)+F(2).*(x>x2).*(x<=x3)+((F(3)-F(2))/l.*(x-x3)+F(2)).*(x>x3).*(x<=x4)+F(3).*(x>x4).*(x<=x5)...
    +((F(4)-F(3))/l.*(x-x5)+F(3)).*(x>x5).*(x<=x6)+F(4).*(x>x6).*(x<=x7)...
    +((F(5)-F(4))/l.*(x-x7)+F(4)).*(x>x7).*(x<=x8)+F(5).*(x>x8).*(x<=x9)...
    +((F(6)-F(5))/l.*(x-x9)+F(5)).*(x>x9).*(x<=x10) + F(6).*(x>x10);
end

function t=heat(xm)     
    global T  v
    L1=25+5*30.5+5*5; 
    L2=L1+30.5+5;
    L3=L2+30.5+5;
    t1=L1/v;
    t2=L2/v;
    t3=L3/v;
    dt=0.5; 
    m1=floor(t1/dt)+1;
    m2=floor(t2/dt)+1;
    m3=floor(t3/dt)+1;
   
    l=0.015; 
    x=1e-4; 
    q1=xm(1)^2*dt/(x^2);
    q2=xm(3)^2*dt/(x^2);
    q3=xm(5)^2*dt/(x^2);
    q4=xm(7)^2*dt/(x^2);
    q5=xm(9)^2*dt/(x^2);
    h1=xm(2);
    h2=xm(4);
    h3=xm(6);
    h4=xm(8);
    h5=xm(10);
    n=ceil(l/x)+1; 
    m=floor(T/dt)+1;
    u=zeros(n,m);
    t=ones(m,1)*25;
    u(:,1)=25;
    u0=f(v*(0:floor(T/dt))*dt);
    k=ceil(l/2/x);
    A1=diag([1+h1*x,2*ones(1,n-2)*(1+q1),1+h1*x]);
    A1=A1+diag([-1,-q1*ones(1,n-2)],1);
    A1=A1+diag([-q1*ones(1,n-2),-1],-1);          
    B1=diag([0,2*ones(1,n-2)*(1-q1),0]);
    B1=B1+diag([0,q1*ones(1,n-2)],1);
    B1=B1+diag([q1*ones(1,n-2),0],-1);
    C1=A1\B1;
    c=zeros(n,m); c(1,:)=h1*u0*x; 
    c(n,:)=c(1,:);
    c=A1\c;    
    for j=1:m1-1
       u(:,j+1)=C1*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A2=diag([1+h2*x,2*ones(1,n-2)*(1+q2),1+h2*x]);
    A2=A2+diag([-1,-q2*ones(1,n-2)],1);
    A2=A2+diag([-q2*ones(1,n-2),-1],-1);          
    B2=diag([0,2*ones(1,n-2)*(1-q2),0]);
    B2=B2+diag([0,q2*ones(1,n-2)],1);
    B2=B2+diag([q2*ones(1,n-2),0],-1);
    C2=A2\B2;
    c=zeros(n,m); c(1,:)=h2*u0*x; 
    c(n,:)=c(1,:);
    c=A2\c;    
    for j=m1:m2-1
       u(:,j+1)=C2*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A3=diag([1+h3*x,2*ones(1,n-2)*(1+q3),1+h3*x]);
    A3=A3+diag([-1,-q3*ones(1,n-2)],1);
    A3=A3+diag([-q3*ones(1,n-2),-1],-1);          
    B3=diag([0,2*ones(1,n-2)*(1-q3),0]);
    B3=B3+diag([0,q3*ones(1,n-2)],1);
    B3=B3+diag([q3*ones(1,n-2),0],-1);
    C3=A3\B3;
    c=zeros(n,m); c(1,:)=h3*u0*x; 
    c(n,:)=c(1,:);
    c=A3\c;    
    for j=m2:m3-1
       u(:,j+1)=C3*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
        
    
    A4=diag([1+h4*x,2*ones(1,n-2)*(1+q4),1+h4*x]);
    A4=A4+diag([-1,-q4*ones(1,n-2)],1);
    A4=A4+diag([-q4*ones(1,n-2),-1],-1);          
    B4=diag([0,2*ones(1,n-2)*(1-q4),0]);
    B4=B4+diag([0,q4*ones(1,n-2)],1);
    B4=B4+diag([q4*ones(1,n-2),0],-1);
    C4=A4\B4;
    c4(1,:)=h4*u0*x; 
    c4(n,:)=c4(1,:);
    c4=A4\c4;    
        
    A5=diag([1+h5*x,2*ones(1,n-2)*(1+q5),1+h5*x]);
    A5=A5+diag([-1,-q5*ones(1,n-2)],1);
    A5=A5+diag([-q5*ones(1,n-2),-1],-1);          
    B5=diag([0,2*ones(1,n-2)*(1-q5),0]);
    B5=B5+diag([0,q5*ones(1,n-2)],1);
    B5=B5+diag([q5*ones(1,n-2),0],-1);
    C5=A5\B5;
    c5(1,:)=h5*u0*x; 
    c5(n,:)=c5(1,:);
    c5=A5\c5;   
    
    for j=m3:m-1
       if t(j)>=t(j-1)
            u(:,j+1)=C4*u(:,j)+c4(:,j+1);            
       else
           u(:,j+1)=C5*u(:,j)+c5(:,j+1); 
       end
       t(j+1)=u(k,j+1);
    end
end

4、小温区7灵敏度分析

clc; clear;  %问题一
global F v T
F=[25 178 198 225 264 25];
v = 83.00337877/60;
% 225-245
TT = [225 230 235 240];
alpha = 7.15e-04;
H1 = 6975.37;
H2 = 97.60;
xm=[alpha;H1;alpha;H1;alpha;H1;alpha;H1;alpha;H2];
W = 30.5;
Left = 25;
Right = 25;
gap = 5;
L=Left*2+W*11+gap*10;  % 总长度
dt=0.5;             % 时间变化率
T=L/v;              % 总时间
t=0:dt:T;           % 各个时间点
for i=1:4
    F(2) = TT(i);
    if i==1
        u1=heat(xm);
    elseif i==2 
        u2=heat(xm);
    elseif i==3
        u3=heat(xm);
    elseif i==4
        u4=heat(xm);
    end
end

size = 15;
plot(t,u1, 'linewidth', 2);
hold on;
plot(t,u2, 'linewidth', 2);
hold on;
plot(t,u3, 'linewidth', 2);
hold on;
plot(t,u4, 'linewidth', 2);
xlabel( '时间/s','FontSize',size);
ylabel('温度/℃','FontSize',size);
title('小温区7温度灵敏度分析','FontSize',size);
daspect([1,1.6,1]);
ylim([0 280]);
legend('T=225/°C', 'T=230/°C', 'T=235/°C', 'T=240/°C','FontSize',size-5);





function y=f(x)
    global F
    l=5; L=30.5; s=25;
    x1=0; x2=25;
    x3=x2+5*L+4*l; x4=x3+l;
    x5=x4+L;x6=x5+l;
    x7=x6+L;x8=x7+l;
    x9=x8+2*L+l;x10=x9+l;
    y=(exp(0.2007*x)+24).*(x<=x2)+F(2).*(x>x2).*(x<=x3)+((F(3)-F(2))/l.*(x-x3)+F(2)).*(x>x3).*(x<=x4)+F(3).*(x>x4).*(x<=x5)...
    +((F(4)-F(3))/l.*(x-x5)+F(3)).*(x>x5).*(x<=x6)+F(4).*(x>x6).*(x<=x7)...
    +((F(5)-F(4))/l.*(x-x7)+F(4)).*(x>x7).*(x<=x8)+F(5).*(x>x8).*(x<=x9)...
    +((F(6)-F(5))/l.*(x-x9)+F(5)).*(x>x9).*(x<=x10) + F(6).*(x>x10);
end

function t=heat(xm)     
    global T  v
    L1=25+5*30.5+5*5; 
    L2=L1+30.5+5;
    L3=L2+30.5+5;
    t1=L1/v;
    t2=L2/v;
    t3=L3/v;
    dt=0.5; 
    m1=floor(t1/dt)+1;
    m2=floor(t2/dt)+1;
    m3=floor(t3/dt)+1;
   
    l=0.015; 
    x=1e-4; 
    q1=xm(1)^2*dt/(x^2);
    q2=xm(3)^2*dt/(x^2);
    q3=xm(5)^2*dt/(x^2);
    q4=xm(7)^2*dt/(x^2);
    q5=xm(9)^2*dt/(x^2);
    h1=xm(2);
    h2=xm(4);
    h3=xm(6);
    h4=xm(8);
    h5=xm(10);
    n=ceil(l/x)+1; 
    m=floor(T/dt)+1;
    u=zeros(n,m);
    t=ones(m,1)*25;
    u(:,1)=25;
    u0=f(v*(0:floor(T/dt))*dt);
    k=ceil(l/2/x);
    A1=diag([1+h1*x,2*ones(1,n-2)*(1+q1),1+h1*x]);
    A1=A1+diag([-1,-q1*ones(1,n-2)],1);
    A1=A1+diag([-q1*ones(1,n-2),-1],-1);          
    B1=diag([0,2*ones(1,n-2)*(1-q1),0]);
    B1=B1+diag([0,q1*ones(1,n-2)],1);
    B1=B1+diag([q1*ones(1,n-2),0],-1);
    C1=A1\B1;
    c=zeros(n,m); c(1,:)=h1*u0*x; 
    c(n,:)=c(1,:);
    c=A1\c;    
    for j=1:m1-1
       u(:,j+1)=C1*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A2=diag([1+h2*x,2*ones(1,n-2)*(1+q2),1+h2*x]);
    A2=A2+diag([-1,-q2*ones(1,n-2)],1);
    A2=A2+diag([-q2*ones(1,n-2),-1],-1);          
    B2=diag([0,2*ones(1,n-2)*(1-q2),0]);
    B2=B2+diag([0,q2*ones(1,n-2)],1);
    B2=B2+diag([q2*ones(1,n-2),0],-1);
    C2=A2\B2;
    c=zeros(n,m); c(1,:)=h2*u0*x; 
    c(n,:)=c(1,:);
    c=A2\c;    
    for j=m1:m2-1
       u(:,j+1)=C2*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A3=diag([1+h3*x,2*ones(1,n-2)*(1+q3),1+h3*x]);
    A3=A3+diag([-1,-q3*ones(1,n-2)],1);
    A3=A3+diag([-q3*ones(1,n-2),-1],-1);          
    B3=diag([0,2*ones(1,n-2)*(1-q3),0]);
    B3=B3+diag([0,q3*ones(1,n-2)],1);
    B3=B3+diag([q3*ones(1,n-2),0],-1);
    C3=A3\B3;
    c=zeros(n,m); c(1,:)=h3*u0*x; 
    c(n,:)=c(1,:);
    c=A3\c;    
    for j=m2:m3-1
       u(:,j+1)=C3*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
        
    
    A4=diag([1+h4*x,2*ones(1,n-2)*(1+q4),1+h4*x]);
    A4=A4+diag([-1,-q4*ones(1,n-2)],1);
    A4=A4+diag([-q4*ones(1,n-2),-1],-1);          
    B4=diag([0,2*ones(1,n-2)*(1-q4),0]);
    B4=B4+diag([0,q4*ones(1,n-2)],1);
    B4=B4+diag([q4*ones(1,n-2),0],-1);
    C4=A4\B4;
    c4(1,:)=h4*u0*x; 
    c4(n,:)=c4(1,:);
    c4=A4\c4;    
        
    A5=diag([1+h5*x,2*ones(1,n-2)*(1+q5),1+h5*x]);
    A5=A5+diag([-1,-q5*ones(1,n-2)],1);
    A5=A5+diag([-q5*ones(1,n-2),-1],-1);          
    B5=diag([0,2*ones(1,n-2)*(1-q5),0]);
    B5=B5+diag([0,q5*ones(1,n-2)],1);
    B5=B5+diag([q5*ones(1,n-2),0],-1);
    C5=A5\B5;
    c5(1,:)=h5*u0*x; 
    c5(n,:)=c5(1,:);
    c5=A5\c5;   
    
    for j=m3:m-1
       if t(j)>=t(j-1)
            u(:,j+1)=C4*u(:,j)+c4(:,j+1);            
       else
           u(:,j+1)=C5*u(:,j)+c5(:,j+1); 
       end
       t(j+1)=u(k,j+1);
    end
end

5、小温区8~9灵敏度分析

clc; clear;  %问题一
global F v T
F=[25 178 198 225 264 25];
v = 83.00337877/60;
% 245-265
TT = [245 250 255 260];
alpha = 7.15e-04;
H1 = 6975.37;
H2 = 97.60;
xm=[alpha;H1;alpha;H1;alpha;H1;alpha;H1;alpha;H2];
W = 30.5;
Left = 25;
Right = 25;
gap = 5;
L=Left*2+W*11+gap*10;  % 总长度
dt=0.5;             % 时间变化率
T=L/v;              % 总时间
t=0:dt:T;           % 各个时间点
for i=1:4
    F(2) = TT(i);
    if i==1
        u1=heat(xm);
    elseif i==2 
        u2=heat(xm);
    elseif i==3
        u3=heat(xm);
    elseif i==4
        u4=heat(xm);
    end
end

size = 15;
plot(t,u1, 'linewidth', 2);
hold on;
plot(t,u2, 'linewidth', 2);
hold on;
plot(t,u3, 'linewidth', 2);
hold on;
plot(t,u4, 'linewidth', 2);
xlabel( '时间/s','FontSize',size);
ylabel('温度/℃','FontSize',size);
title('小温区8~9温度灵敏度分析','FontSize',size);
daspect([1,1.6,1]);
ylim([0 280]);
legend('T=245/°C', 'T=250/°C', 'T=255/°C', 'T=260/°C','FontSize',size-5);





function y=f(x)
    global F
    l=5; L=30.5; s=25;
    x1=0; x2=25;
    x3=x2+5*L+4*l; x4=x3+l;
    x5=x4+L;x6=x5+l;
    x7=x6+L;x8=x7+l;
    x9=x8+2*L+l;x10=x9+l;
    y=(exp(0.2007*x)+24).*(x<=x2)+F(2).*(x>x2).*(x<=x3)+((F(3)-F(2))/l.*(x-x3)+F(2)).*(x>x3).*(x<=x4)+F(3).*(x>x4).*(x<=x5)...
    +((F(4)-F(3))/l.*(x-x5)+F(3)).*(x>x5).*(x<=x6)+F(4).*(x>x6).*(x<=x7)...
    +((F(5)-F(4))/l.*(x-x7)+F(4)).*(x>x7).*(x<=x8)+F(5).*(x>x8).*(x<=x9)...
    +((F(6)-F(5))/l.*(x-x9)+F(5)).*(x>x9).*(x<=x10) + F(6).*(x>x10);
end

function t=heat(xm)     
    global T  v
    L1=25+5*30.5+5*5; 
    L2=L1+30.5+5;
    L3=L2+30.5+5;
    t1=L1/v;
    t2=L2/v;
    t3=L3/v;
    dt=0.5; 
    m1=floor(t1/dt)+1;
    m2=floor(t2/dt)+1;
    m3=floor(t3/dt)+1;
   
    l=0.015; 
    x=1e-4; 
    q1=xm(1)^2*dt/(x^2);
    q2=xm(3)^2*dt/(x^2);
    q3=xm(5)^2*dt/(x^2);
    q4=xm(7)^2*dt/(x^2);
    q5=xm(9)^2*dt/(x^2);
    h1=xm(2);
    h2=xm(4);
    h3=xm(6);
    h4=xm(8);
    h5=xm(10);
    n=ceil(l/x)+1; 
    m=floor(T/dt)+1;
    u=zeros(n,m);
    t=ones(m,1)*25;
    u(:,1)=25;
    u0=f(v*(0:floor(T/dt))*dt);
    k=ceil(l/2/x);
    A1=diag([1+h1*x,2*ones(1,n-2)*(1+q1),1+h1*x]);
    A1=A1+diag([-1,-q1*ones(1,n-2)],1);
    A1=A1+diag([-q1*ones(1,n-2),-1],-1);          
    B1=diag([0,2*ones(1,n-2)*(1-q1),0]);
    B1=B1+diag([0,q1*ones(1,n-2)],1);
    B1=B1+diag([q1*ones(1,n-2),0],-1);
    C1=A1\B1;
    c=zeros(n,m); c(1,:)=h1*u0*x; 
    c(n,:)=c(1,:);
    c=A1\c;    
    for j=1:m1-1
       u(:,j+1)=C1*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A2=diag([1+h2*x,2*ones(1,n-2)*(1+q2),1+h2*x]);
    A2=A2+diag([-1,-q2*ones(1,n-2)],1);
    A2=A2+diag([-q2*ones(1,n-2),-1],-1);          
    B2=diag([0,2*ones(1,n-2)*(1-q2),0]);
    B2=B2+diag([0,q2*ones(1,n-2)],1);
    B2=B2+diag([q2*ones(1,n-2),0],-1);
    C2=A2\B2;
    c=zeros(n,m); c(1,:)=h2*u0*x; 
    c(n,:)=c(1,:);
    c=A2\c;    
    for j=m1:m2-1
       u(:,j+1)=C2*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A3=diag([1+h3*x,2*ones(1,n-2)*(1+q3),1+h3*x]);
    A3=A3+diag([-1,-q3*ones(1,n-2)],1);
    A3=A3+diag([-q3*ones(1,n-2),-1],-1);          
    B3=diag([0,2*ones(1,n-2)*(1-q3),0]);
    B3=B3+diag([0,q3*ones(1,n-2)],1);
    B3=B3+diag([q3*ones(1,n-2),0],-1);
    C3=A3\B3;
    c=zeros(n,m); c(1,:)=h3*u0*x; 
    c(n,:)=c(1,:);
    c=A3\c;    
    for j=m2:m3-1
       u(:,j+1)=C3*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
        
    
    A4=diag([1+h4*x,2*ones(1,n-2)*(1+q4),1+h4*x]);
    A4=A4+diag([-1,-q4*ones(1,n-2)],1);
    A4=A4+diag([-q4*ones(1,n-2),-1],-1);          
    B4=diag([0,2*ones(1,n-2)*(1-q4),0]);
    B4=B4+diag([0,q4*ones(1,n-2)],1);
    B4=B4+diag([q4*ones(1,n-2),0],-1);
    C4=A4\B4;
    c4(1,:)=h4*u0*x; 
    c4(n,:)=c4(1,:);
    c4=A4\c4;    
        
    A5=diag([1+h5*x,2*ones(1,n-2)*(1+q5),1+h5*x]);
    A5=A5+diag([-1,-q5*ones(1,n-2)],1);
    A5=A5+diag([-q5*ones(1,n-2),-1],-1);          
    B5=diag([0,2*ones(1,n-2)*(1-q5),0]);
    B5=B5+diag([0,q5*ones(1,n-2)],1);
    B5=B5+diag([q5*ones(1,n-2),0],-1);
    C5=A5\B5;
    c5(1,:)=h5*u0*x; 
    c5(n,:)=c5(1,:);
    c5=A5\c5;   
    
    for j=m3:m-1
       if t(j)>=t(j-1)
            u(:,j+1)=C4*u(:,j)+c4(:,j+1);            
       else
           u(:,j+1)=C5*u(:,j)+c5(:,j+1); 
       end
       t(j+1)=u(k,j+1);
    end
end

(四)第四问

1、第四问第1次遍历

clc; clear;  % 第四问

L=50+30.5*11+5*10;
alpha = 7.15e-04;
H1 = 6975.37;
H2 = 97.60;
xm=[alpha;H1;alpha;H1;alpha;H1;alpha;H1;alpha;H2];


Temp15 = 165:5:185;
Temp6 = 185:5:205;
Temp7 = 225:5:245;
Temp89 = 245:5:265;
V = 65:5:100;

Z_SArr = [];
n = 0;
Z_Sk = [];

T1 = [];
T2 = [];
T3 = [];
T4 = [];
T5 = [];
T6 = [];
T7 = [];
T8 = [];

Z_Result = zeros(1, 5);
i1 = 1;
for i1=1:length(Temp15)
    i1
    for i2=1:length(Temp6)
        for i3=1:length(Temp7)
            for i4=1:length(Temp89)
                for i5=1:length(V)
                    x = [Temp15(i1) Temp6(i2) Temp7(i3) Temp89(i4) V(i5)/60];
                    
    
                    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));

                    
                    v=x(5);
                    F=[25,x(1),x(2),x(3),x(4),25];

                    T=L/v;
                    t=0:0.5:T;
                    S = -1;
                    tt = area1(x, u0);
                    if tt < 999
                        S = tt;
                        
                        n = n+1;
                        
                        Z_SArr(n) = S;
                        
                        % 所有大于217的温度
                        AllTemp = u0(u0>217);
                        
                        %plot(1:1:length(AllTemp), AllTemp);
                        hold on;

                        Xbar = sum(AllTemp)/length(AllTemp);    % 均值
                        M0 = max(AllTemp);                      % 众数,最大值
                        Sigma2 = 0;                             % 方差
                        for i=1:length(AllTemp)
                            Sigma2 = Sigma2 + (AllTemp(i) - Xbar)^2/length(AllTemp);
                        end
                        Sigma = Sigma2^(1/2);
                        Sk = abs(Xbar-M0)/Sigma;
                        Z_Sk(n) = Sk;
                        Z_Result(n, :) = x;
                    end
                end
            end
        end
    end

end


scatter(1:1:n, Z_Sk, 8, 'b');
xlabel('序号');
ylabel('SK');
title('')



% 外部温度分布(斜线的那个图)
function y=f(x,F)
    gap=5; W=30.5; Left=25;
    x1=0; x2=25;
    x3=x2+5*W+4*gap; x4=x3+gap;
    x5=x4+W;x6=x5+gap;
    x7=x6+W;x8=x7+gap;
    x9=x8+2*W+gap;x10=x9+gap;
    y=(exp(0.2007*x)+24).*(x<=x2)+F(2).*(x>x2).*(x<=x3)+((F(3)-F(2))/gap.*(x-x3)+F(2)).*(x>x3).*(x<=x4)+F(3).*(x>x4).*(x<=x5)...
    +((F(4)-F(3))/gap.*(x-x5)+F(3)).*(x>x5).*(x<=x6)+F(4).*(x>x6).*(x<=x7)...
    +((F(5)-F(4))/gap.*(x-x7)+F(4)).*(x>x7).*(x<=x8)+F(5).*(x>x8).*(x<=x9)...
    +((F(6)-F(5))/gap.*(x-x9)+F(5)).*(x>x9).*(x<=x10) + F(6).*(x>x10);
end

% 求温度分布
function t=GetTemp(u1,u2,u3,u4,v)     
    global xm L
    F=[25,u1,u2,u3,u4,25]; T=L/v;
    L1=25+5*30.5+5*5; 
    L2=L1+30.5+5;
    L3=L2+30.5+5;
    t1=L1/v;t2=L2/v;t3=L3/v;
    dt=0.5; 
    m1=floor(t1/dt)+1;
    m2=floor(t2/dt)+1;
    m3=floor(t3/dt)+1;
   
    l=0.015; 
    x=1e-4; 
    r1=xm(1)^2*dt/(x^2);
    r2=xm(3)^2*dt/(x^2);
    r3=xm(5)^2*dt/(x^2);
    r4=xm(7)^2*dt/(x^2);
    r5=xm(9)^2*dt/(x^2);
    h1=xm(2);h2=xm(4);h3=xm(6);h4=xm(8);h5=xm(10);
    n=ceil(l/x)+1; m=floor(T/dt)+1;
    u=zeros(n,m);t=ones(m,1)*25;
    u(:,1)=25;
    u0=f(v*(0:floor(T/dt))*dt,F);
    k=ceil(l/2/x);
    A1=diag([1+h1*x,2*ones(1,n-2)*(1+r1),1+h1*x]);
    A1=A1+diag([-1,-r1*ones(1,n-2)],1);
    A1=A1+diag([-r1*ones(1,n-2),-1],-1);          
    B1=diag([0,2*ones(1,n-2)*(1-r1),0]);
    B1=B1+diag([0,r1*ones(1,n-2)],1);
    B1=B1+diag([r1*ones(1,n-2),0],-1);
    C1=A1\B1;
    c=zeros(n,m); c(1,:)=h1*u0*x; 
    c(n,:)=c(1,:);
    c=A1\c;    
    for j=1:m1-1
       u(:,j+1)=C1*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A2=diag([1+h2*x,2*ones(1,n-2)*(1+r2),1+h2*x]);
    A2=A2+diag([-1,-r2*ones(1,n-2)],1);
    A2=A2+diag([-r2*ones(1,n-2),-1],-1);          
    B2=diag([0,2*ones(1,n-2)*(1-r2),0]);
    B2=B2+diag([0,r2*ones(1,n-2)],1);
    B2=B2+diag([r2*ones(1,n-2),0],-1);
    C2=A2\B2;
    c=zeros(n,m); c(1,:)=h2*u0*x; 
    c(n,:)=c(1,:);
    c=A2\c;    
    for j=m1:m2-1
       u(:,j+1)=C2*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A3=diag([1+h3*x,2*ones(1,n-2)*(1+r3),1+h3*x]);
    A3=A3+diag([-1,-r3*ones(1,n-2)],1);
    A3=A3+diag([-r3*ones(1,n-2),-1],-1);          
    B3=diag([0,2*ones(1,n-2)*(1-r3),0]);
    B3=B3+diag([0,r3*ones(1,n-2)],1);
    B3=B3+diag([r3*ones(1,n-2),0],-1);
    C3=A3\B3;
    c=zeros(n,m); c(1,:)=h3*u0*x; 
    c(n,:)=c(1,:);
    c=A3\c;    
    for j=m2:m3-1
       u(:,j+1)=C3*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
        
    
    A4=diag([1+h4*x,2*ones(1,n-2)*(1+r4),1+h4*x]);
    A4=A4+diag([-1,-r4*ones(1,n-2)],1);
    A4=A4+diag([-r4*ones(1,n-2),-1],-1);          
    B4=diag([0,2*ones(1,n-2)*(1-r4),0]);
    B4=B4+diag([0,r4*ones(1,n-2)],1);
    B4=B4+diag([r4*ones(1,n-2),0],-1);
    C4=A4\B4;
    c4(1,:)=h4*u0*x; 
    c4(n,:)=c4(1,:);
    c4=A4\c4;    
        
    A5=diag([1+h5*x,2*ones(1,n-2)*(1+r5),1+h5*x]);
    A5=A5+diag([-1,-r5*ones(1,n-2)],1);
    A5=A5+diag([-r5*ones(1,n-2),-1],-1);          
    B5=diag([0,2*ones(1,n-2)*(1-r5),0]);
    B5=B5+diag([0,r5*ones(1,n-2)],1);
    B5=B5+diag([r5*ones(1,n-2),0],-1);
    C5=A5\B5;
    c5(1,:)=h5*u0*x; 
    c5(n,:)=c5(1,:);
    c5=A5\c5;    
    for j=m3:m-1
       if t(j)>=t(j-1)
            u(:,j+1)=C4*u(:,j)+c4(:,j+1);            
       else
           u(:,j+1)=C5*u(:,j)+c5(:,j+1); 
       end
       t(j+1)=u(k,j+1);
    end
end

% a:积分面积
function [a]=area1(x, u0)
    
    S=0;
    
    u=u0(u0>=30);
    % 温度大于 217 的部分
    tmp2=u(u>=217)-217;
    Temp_217 = tmp2;
    t2=length(tmp2)*0.5;
    umax=max(u);  
    tmp3=abs(u(2:length(u))-u(1:length(u)-1))/0.5;
    kmax=max(tmp3);
    s=u(u(2:length(u))>=u(1:length(u)-1));
    s=s(s>=150);
    s=s(s<=190);
    t1=length(s)*0.5;   
    y=logical((umax<=250)*(umax>=240)*(t2>=40)*(t2<=90)*(kmax<=3)*(t1<=120)*(t1>=60));
    % 如果满足第三问的条件
    if y
        k=find(tmp2==max(tmp2));
        if k>2
            a=(sum(tmp2(1:k))-(tmp2(1)+tmp2(k))/2)*0.5;
        else
            a=(tmp2(1)+tmp2(k))*0.5/2;
        end
        if a > 406.1637111*1.05
            a=10000; 
        end

    else
        a=10000; 
    end
    %if a < 406.1637111 * 1.05
       
end



2、第四问第2次遍历

clc; clear;  % 第四问

L=50+30.5*11+5*10;
alpha = 7.15e-04;
H1 = 6975.37;
H2 = 97.60;
xm=[alpha;H1;alpha;H1;alpha;H1;alpha;H1;alpha;H2];


Temp15 = 170:1:180;
Temp6 = 185:1:195;
Temp7 = 225:1:235;
Temp89 = 260:1:265;
V = 85:1:95;

Z_SArr = [];
n = 0;
Z_Sk = [];

T1 = [];
T2 = [];
T3 = [];
T4 = [];
T5 = [];
T6 = [];
T7 = [];
T8 = [];

Z_Result = zeros(1, 5);

for i1=1:length(Temp15)
    for i2=1:length(Temp6)
        for i3=1:length(Temp7)
            for i4=1:length(Temp89)
                for i5=1:length(V)
                    x = [Temp15(i1) Temp6(i2) Temp7(i3) Temp89(i4) V(i5)/60];
    
    
                    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));

                    
                    v=x(5);
                    F=[25,x(1),x(2),x(3),x(4),25];

                    T=L/v;
                    t=0:0.5:T;
                    S = -1;
                    tt = area1(x, u0);
                    if tt < 999
                        S = tt;
                        
                        n = n+1;
                        
                        Z_SArr(n) = S;
                        
                        % 所有大于217的温度
                        AllTemp = u0(u0>217);
                        
                        %plot(1:1:length(AllTemp), AllTemp);
                        hold on;

                        Xbar = sum(AllTemp)/length(AllTemp);    % 均值
                        M0 = max(AllTemp);                      % 众数,最大值
                        Sigma2 = 0;                             % 方差
                        for i=1:length(AllTemp)
                            Sigma2 = Sigma2 + (AllTemp(i) - Xbar)^2/length(AllTemp);
                        end
                        Sigma = Sigma2^(1/2);
                        Sk = abs(Xbar-M0)/Sigma;
                        Z_Sk(n) = Sk;
                        Z_Result(n, :) = x;
                        if n==1
                            T1 = u0;
                        elseif n==2
                            T2= u0;
                        elseif n==3
                            T3= u0;
                        elseif n==4
                            T4= u0;
                        elseif n==5
                            T5= u0;
                        elseif n==6
                            T6= u0;
                        elseif n==7
                            T7= u0;
                        end
                    end
                end
            end
        end
    end

end


scatter(1:1:n, Z_Sk, 8, 'b');
xlabel('序号');
ylabel('SK');
title('')



% 外部温度分布(斜线的那个图)
function y=f(x,F)
    gap=5; W=30.5; Left=25;
    x1=0; x2=25;
    x3=x2+5*W+4*gap; x4=x3+gap;
    x5=x4+W;x6=x5+gap;
    x7=x6+W;x8=x7+gap;
    x9=x8+2*W+gap;x10=x9+gap;
    y=(exp(0.2007*x)+24).*(x<=x2)+F(2).*(x>x2).*(x<=x3)+((F(3)-F(2))/gap.*(x-x3)+F(2)).*(x>x3).*(x<=x4)+F(3).*(x>x4).*(x<=x5)...
    +((F(4)-F(3))/gap.*(x-x5)+F(3)).*(x>x5).*(x<=x6)+F(4).*(x>x6).*(x<=x7)...
    +((F(5)-F(4))/gap.*(x-x7)+F(4)).*(x>x7).*(x<=x8)+F(5).*(x>x8).*(x<=x9)...
    +((F(6)-F(5))/gap.*(x-x9)+F(5)).*(x>x9).*(x<=x10) + F(6).*(x>x10);
end

% 求温度分布
function t=GetTemp(u1,u2,u3,u4,v)     
    global xm L
    F=[25,u1,u2,u3,u4,25]; T=L/v;
    L1=25+5*30.5+5*5; 
    L2=L1+30.5+5;
    L3=L2+30.5+5;
    t1=L1/v;t2=L2/v;t3=L3/v;
    dt=0.5; 
    m1=floor(t1/dt)+1;
    m2=floor(t2/dt)+1;
    m3=floor(t3/dt)+1;
   
    l=0.015; 
    x=1e-4; 
    r1=xm(1)^2*dt/(x^2);
    r2=xm(3)^2*dt/(x^2);
    r3=xm(5)^2*dt/(x^2);
    r4=xm(7)^2*dt/(x^2);
    r5=xm(9)^2*dt/(x^2);
    h1=xm(2);h2=xm(4);h3=xm(6);h4=xm(8);h5=xm(10);
    n=ceil(l/x)+1; m=floor(T/dt)+1;
    u=zeros(n,m);t=ones(m,1)*25;
    u(:,1)=25;
    u0=f(v*(0:floor(T/dt))*dt,F);
    k=ceil(l/2/x);
    A1=diag([1+h1*x,2*ones(1,n-2)*(1+r1),1+h1*x]);
    A1=A1+diag([-1,-r1*ones(1,n-2)],1);
    A1=A1+diag([-r1*ones(1,n-2),-1],-1);          
    B1=diag([0,2*ones(1,n-2)*(1-r1),0]);
    B1=B1+diag([0,r1*ones(1,n-2)],1);
    B1=B1+diag([r1*ones(1,n-2),0],-1);
    C1=A1\B1;
    c=zeros(n,m); c(1,:)=h1*u0*x; 
    c(n,:)=c(1,:);
    c=A1\c;    
    for j=1:m1-1
       u(:,j+1)=C1*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A2=diag([1+h2*x,2*ones(1,n-2)*(1+r2),1+h2*x]);
    A2=A2+diag([-1,-r2*ones(1,n-2)],1);
    A2=A2+diag([-r2*ones(1,n-2),-1],-1);          
    B2=diag([0,2*ones(1,n-2)*(1-r2),0]);
    B2=B2+diag([0,r2*ones(1,n-2)],1);
    B2=B2+diag([r2*ones(1,n-2),0],-1);
    C2=A2\B2;
    c=zeros(n,m); c(1,:)=h2*u0*x; 
    c(n,:)=c(1,:);
    c=A2\c;    
    for j=m1:m2-1
       u(:,j+1)=C2*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A3=diag([1+h3*x,2*ones(1,n-2)*(1+r3),1+h3*x]);
    A3=A3+diag([-1,-r3*ones(1,n-2)],1);
    A3=A3+diag([-r3*ones(1,n-2),-1],-1);          
    B3=diag([0,2*ones(1,n-2)*(1-r3),0]);
    B3=B3+diag([0,r3*ones(1,n-2)],1);
    B3=B3+diag([r3*ones(1,n-2),0],-1);
    C3=A3\B3;
    c=zeros(n,m); c(1,:)=h3*u0*x; 
    c(n,:)=c(1,:);
    c=A3\c;    
    for j=m2:m3-1
       u(:,j+1)=C3*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
        
    
    A4=diag([1+h4*x,2*ones(1,n-2)*(1+r4),1+h4*x]);
    A4=A4+diag([-1,-r4*ones(1,n-2)],1);
    A4=A4+diag([-r4*ones(1,n-2),-1],-1);          
    B4=diag([0,2*ones(1,n-2)*(1-r4),0]);
    B4=B4+diag([0,r4*ones(1,n-2)],1);
    B4=B4+diag([r4*ones(1,n-2),0],-1);
    C4=A4\B4;
    c4(1,:)=h4*u0*x; 
    c4(n,:)=c4(1,:);
    c4=A4\c4;    
        
    A5=diag([1+h5*x,2*ones(1,n-2)*(1+r5),1+h5*x]);
    A5=A5+diag([-1,-r5*ones(1,n-2)],1);
    A5=A5+diag([-r5*ones(1,n-2),-1],-1);          
    B5=diag([0,2*ones(1,n-2)*(1-r5),0]);
    B5=B5+diag([0,r5*ones(1,n-2)],1);
    B5=B5+diag([r5*ones(1,n-2),0],-1);
    C5=A5\B5;
    c5(1,:)=h5*u0*x; 
    c5(n,:)=c5(1,:);
    c5=A5\c5;    
    for j=m3:m-1
       if t(j)>=t(j-1)
            u(:,j+1)=C4*u(:,j)+c4(:,j+1);            
       else
           u(:,j+1)=C5*u(:,j)+c5(:,j+1); 
       end
       t(j+1)=u(k,j+1);
    end
end

% a:积分面积
function [a]=area1(x, u0)
    
    S=0;
    
    u=u0(u0>=30);
    % 温度大于 217 的部分
    tmp2=u(u>=217)-217;
    Temp_217 = tmp2;
    t2=length(tmp2)*0.5;
    umax=max(u);  
    tmp3=abs(u(2:length(u))-u(1:length(u)-1))/0.5;
    kmax=max(tmp3);
    s=u(u(2:length(u))>=u(1:length(u)-1));
    s=s(s>=150);
    s=s(s<=190);
    t1=length(s)*0.5;   
    y=logical((umax<=250)*(umax>=240)*(t2>=40)*(t2<=90)*(kmax<=3)*(t1<=120)*(t1>=60));
    % 如果满足第三问的条件
    if y
        k=find(tmp2==max(tmp2));
        if k>2
            a=(sum(tmp2(1:k))-(tmp2(1)+tmp2(k))/2)*0.5;
        else
            a=(tmp2(1)+tmp2(k))*0.5/2;
        end
        if a > 406.1637111*1.05
            a=10000; 
        end

    else
        a=10000; 
    end
    %if a < 406.1637111 * 1.05
       
end



3、第四问第3次遍历

clc; clear;  % 第四问

L=50+30.5*11+5*10;
alpha = 7.15e-04;
H1 = 6975.37;
H2 = 97.60;
xm=[alpha;H1;alpha;H1;alpha;H1;alpha;H1;alpha;H2];


Temp15 = 174.6:0.1:174.8;
Temp6 = 185.4:0.1:186.6;
Temp7 = 230.2:0.1:230.4;
Temp89 = 264.2:0.1:264.4;
V = 87.5:0.1:88.5;

Z_SArr = [];
n = 0;
Z_Sk = [];

T1 = [];
T2 = [];
T3 = [];
T4 = [];
T5 = [];
T6 = [];
T7 = [];
T8 = [];

Z_Result = zeros(1, 5);


for i1=1:length(Temp15)
    i1
    for i2=1:length(Temp6)
        for i3=1:length(Temp7)
            for i4=1:length(Temp89)
                for i5=1:length(V)
                    x = [Temp15(i1) Temp6(i2) Temp7(i3) Temp89(i4) V(i5)/60];
    
    
                    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));

                    
                    v=x(5);
                    F=[25,x(1),x(2),x(3),x(4),25];

                    T=L/v;
                    t=0:0.5:T;
                    S = -1;
                    tt = area1(x, u0);
                    if tt < 999
                        S = tt;
                        
                        
                        
                        
                        
                        % 所有大于217的温度
                        AllTemp = u0(u0>217);
                        
                        %plot(1:1:length(AllTemp), AllTemp);
                        hold on;

                        Xbar = sum(AllTemp)/length(AllTemp);    % 均值
                        M0 = max(AllTemp);                      % 众数,最大值
                        Sigma2 = 0;                             % 方差
                        for i=1:length(AllTemp)
                            Sigma2 = Sigma2 + (AllTemp(i) - Xbar)^2/length(AllTemp);
                        end
                        Sigma = Sigma2^(1/2);
                        Sk = abs(Xbar-M0)/Sigma;
                        if(Sk < 1.315)
                            n = n+1;
                            Z_SArr(n) = S;
                            Z_Sk(n) = Sk;
                            Z_Result(n, :) = x;
                        end
                    end
                end
            end
        end
    end

end


scatter(1:1:n, Z_Sk, 8, 'b');
xlabel('序号');
ylabel('SK');
title('')



% 外部温度分布(斜线的那个图)
function y=f(x,F)
    gap=5; W=30.5; Left=25;
    x1=0; x2=25;
    x3=x2+5*W+4*gap; x4=x3+gap;
    x5=x4+W;x6=x5+gap;
    x7=x6+W;x8=x7+gap;
    x9=x8+2*W+gap;x10=x9+gap;
    y=(exp(0.2007*x)+24).*(x<=x2)+F(2).*(x>x2).*(x<=x3)+((F(3)-F(2))/gap.*(x-x3)+F(2)).*(x>x3).*(x<=x4)+F(3).*(x>x4).*(x<=x5)...
    +((F(4)-F(3))/gap.*(x-x5)+F(3)).*(x>x5).*(x<=x6)+F(4).*(x>x6).*(x<=x7)...
    +((F(5)-F(4))/gap.*(x-x7)+F(4)).*(x>x7).*(x<=x8)+F(5).*(x>x8).*(x<=x9)...
    +((F(6)-F(5))/gap.*(x-x9)+F(5)).*(x>x9).*(x<=x10) + F(6).*(x>x10);
end

% 求温度分布
function t=GetTemp(u1,u2,u3,u4,v)     
    global xm L
    F=[25,u1,u2,u3,u4,25]; T=L/v;
    L1=25+5*30.5+5*5; 
    L2=L1+30.5+5;
    L3=L2+30.5+5;
    t1=L1/v;t2=L2/v;t3=L3/v;
    dt=0.5; 
    m1=floor(t1/dt)+1;
    m2=floor(t2/dt)+1;
    m3=floor(t3/dt)+1;
   
    l=0.015; 
    x=1e-4; 
    r1=xm(1)^2*dt/(x^2);
    r2=xm(3)^2*dt/(x^2);
    r3=xm(5)^2*dt/(x^2);
    r4=xm(7)^2*dt/(x^2);
    r5=xm(9)^2*dt/(x^2);
    h1=xm(2);h2=xm(4);h3=xm(6);h4=xm(8);h5=xm(10);
    n=ceil(l/x)+1; m=floor(T/dt)+1;
    u=zeros(n,m);t=ones(m,1)*25;
    u(:,1)=25;
    u0=f(v*(0:floor(T/dt))*dt,F);
    k=ceil(l/2/x);
    A1=diag([1+h1*x,2*ones(1,n-2)*(1+r1),1+h1*x]);
    A1=A1+diag([-1,-r1*ones(1,n-2)],1);
    A1=A1+diag([-r1*ones(1,n-2),-1],-1);          
    B1=diag([0,2*ones(1,n-2)*(1-r1),0]);
    B1=B1+diag([0,r1*ones(1,n-2)],1);
    B1=B1+diag([r1*ones(1,n-2),0],-1);
    C1=A1\B1;
    c=zeros(n,m); c(1,:)=h1*u0*x; 
    c(n,:)=c(1,:);
    c=A1\c;    
    for j=1:m1-1
       u(:,j+1)=C1*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A2=diag([1+h2*x,2*ones(1,n-2)*(1+r2),1+h2*x]);
    A2=A2+diag([-1,-r2*ones(1,n-2)],1);
    A2=A2+diag([-r2*ones(1,n-2),-1],-1);          
    B2=diag([0,2*ones(1,n-2)*(1-r2),0]);
    B2=B2+diag([0,r2*ones(1,n-2)],1);
    B2=B2+diag([r2*ones(1,n-2),0],-1);
    C2=A2\B2;
    c=zeros(n,m); c(1,:)=h2*u0*x; 
    c(n,:)=c(1,:);
    c=A2\c;    
    for j=m1:m2-1
       u(:,j+1)=C2*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A3=diag([1+h3*x,2*ones(1,n-2)*(1+r3),1+h3*x]);
    A3=A3+diag([-1,-r3*ones(1,n-2)],1);
    A3=A3+diag([-r3*ones(1,n-2),-1],-1);          
    B3=diag([0,2*ones(1,n-2)*(1-r3),0]);
    B3=B3+diag([0,r3*ones(1,n-2)],1);
    B3=B3+diag([r3*ones(1,n-2),0],-1);
    C3=A3\B3;
    c=zeros(n,m); c(1,:)=h3*u0*x; 
    c(n,:)=c(1,:);
    c=A3\c;    
    for j=m2:m3-1
       u(:,j+1)=C3*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
        
    
    A4=diag([1+h4*x,2*ones(1,n-2)*(1+r4),1+h4*x]);
    A4=A4+diag([-1,-r4*ones(1,n-2)],1);
    A4=A4+diag([-r4*ones(1,n-2),-1],-1);          
    B4=diag([0,2*ones(1,n-2)*(1-r4),0]);
    B4=B4+diag([0,r4*ones(1,n-2)],1);
    B4=B4+diag([r4*ones(1,n-2),0],-1);
    C4=A4\B4;
    c4(1,:)=h4*u0*x; 
    c4(n,:)=c4(1,:);
    c4=A4\c4;    
        
    A5=diag([1+h5*x,2*ones(1,n-2)*(1+r5),1+h5*x]);
    A5=A5+diag([-1,-r5*ones(1,n-2)],1);
    A5=A5+diag([-r5*ones(1,n-2),-1],-1);          
    B5=diag([0,2*ones(1,n-2)*(1-r5),0]);
    B5=B5+diag([0,r5*ones(1,n-2)],1);
    B5=B5+diag([r5*ones(1,n-2),0],-1);
    C5=A5\B5;
    c5(1,:)=h5*u0*x; 
    c5(n,:)=c5(1,:);
    c5=A5\c5;    
    for j=m3:m-1
       if t(j)>=t(j-1)
            u(:,j+1)=C4*u(:,j)+c4(:,j+1);            
       else
           u(:,j+1)=C5*u(:,j)+c5(:,j+1); 
       end
       t(j+1)=u(k,j+1);
    end
end

% a:积分面积
function [a]=area1(x, u0)
    
    S=0;
    
    u=u0(u0>=30);
    % 温度大于 217 的部分
    tmp2=u(u>=217)-217;
    Temp_217 = tmp2;
    t2=length(tmp2)*0.5;
    umax=max(u);  
    tmp3=abs(u(2:length(u))-u(1:length(u)-1))/0.5;
    kmax=max(tmp3);
    s=u(u(2:length(u))>=u(1:length(u)-1));
    s=s(s>=150);
    s=s(s<=190);
    t1=length(s)*0.5;   
    y=logical((umax<=250)*(umax>=240)*(t2>=40)*(t2<=90)*(kmax<=3)*(t1<=120)*(t1>=60));
    % 如果满足第三问的条件
    if y
        k=find(tmp2==max(tmp2));
        if k>2
            a=(sum(tmp2(1:k))-(tmp2(1)+tmp2(k))/2)*0.5;
        else
            a=(tmp2(1)+tmp2(k))*0.5/2;
        end
        if a > 406.1637111*1.05
            a=10000; 
        end

    else
        a=10000; 
    end
       
end



4、灵敏度分析(关于Sk)

clc; clear;  % 第四问

L=50+30.5*11+5*10;
alpha = 7.15e-04;
H1 = 6975.37;
H2 = 97.60;
xm=[alpha;H1;alpha;H1;alpha;H1;alpha;H1;alpha;H2];



Z_SArr = [];
n = 0;
Z_Sk = [];


ratio = 0.01;
NN = [175 195 235 255 80/60];
T15 = [NN(1)-2*ratio*NN(1) NN(1)-ratio*NN(1) NN(1) NN(1)+ratio*NN(1) NN(1)+2*ratio*NN(1)];
T6 =  [NN(2)-2*ratio*NN(2) NN(2)-ratio*NN(2) NN(2) NN(2)+ratio*NN(2) NN(2)+2*ratio*NN(2)];
T7 =  [NN(3)-2*ratio*NN(3) NN(3)-ratio*NN(3) NN(3) NN(3)+ratio*NN(3) NN(3)+2*ratio*NN(3)];
T89 = [NN(4)-2*ratio*NN(4) NN(4)-ratio*NN(4) NN(4) NN(4)+ratio*NN(4) NN(4)+2*ratio*NN(4)];
T_V = [NN(5)-2*ratio*NN(5) NN(5)-ratio*NN(5) NN(5) NN(5)+ratio*NN(5) NN(5)+2*ratio*NN(5)];

SK_Arr = zeros(5, 5);

for i=1:length(T15)
    x = [T15(i) 195 235 255 80/60];
    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));
    
    AllTemp = u0(u0>217);

    Xbar = sum(AllTemp)/length(AllTemp);    % 均值
    M0 = max(AllTemp);                      % 众数,最大值
    Sigma2 = 0;                             % 方差
    for j=1:length(AllTemp)
        Sigma2 = Sigma2 + (AllTemp(j) - Xbar)^2/length(AllTemp);
    end
    Sigma = Sigma2^(1/2);
    SK_Arr(1, i) = abs(Xbar-M0)/Sigma;
    
end
for i=1:length(T6)
    x = [175 T6(i) 235 255 80/60];
    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));
    AllTemp = u0(u0>217);

    Xbar = sum(AllTemp)/length(AllTemp);    % 均值
    M0 = max(AllTemp);                      % 众数,最大值
    Sigma2 = 0;                             % 方差
    for j=1:length(AllTemp)
        Sigma2 = Sigma2 + (AllTemp(j) - Xbar)^2/length(AllTemp);
    end
    Sigma = Sigma2^(1/2);
    SK_Arr(2, i) = abs(Xbar-M0)/Sigma;
end
for i=1:length(T7)
    x = [175 195 T7(i) 255 80/60];
    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));
    AllTemp = u0(u0>217);

    Xbar = sum(AllTemp)/length(AllTemp);    % 均值
    M0 = max(AllTemp);                      % 众数,最大值
    Sigma2 = 0;                             % 方差
    for j=1:length(AllTemp)
        Sigma2 = Sigma2 + (AllTemp(j) - Xbar)^2/length(AllTemp);
    end
    Sigma = Sigma2^(1/2);
    SK_Arr(3, i) = abs(Xbar-M0)/Sigma;
end
for i=1:length(T89)
    x = [175 195 235 T89(i) 80/60];
    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));
    AllTemp = u0(u0>217);

    Xbar = sum(AllTemp)/length(AllTemp);    % 均值
    M0 = max(AllTemp);                      % 众数,最大值
    Sigma2 = 0;                             % 方差
    for j=1:length(AllTemp)
        Sigma2 = Sigma2 + (AllTemp(j) - Xbar)^2/length(AllTemp);
    end
    Sigma = Sigma2^(1/2);
    SK_Arr(4, i) = abs(Xbar-M0)/Sigma;
end
for i=1:length(T_V)
    x = [175 195 235 255 T_V(i)];
    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));
    AllTemp = u0(u0>217);

    Xbar = sum(AllTemp)/length(AllTemp);    % 均值
    M0 = max(AllTemp);                      % 众数,最大值
    Sigma2 = 0;                             % 方差
    for j=1:length(AllTemp)
        Sigma2 = Sigma2 + (AllTemp(j) - Xbar)^2/length(AllTemp);
    end
    Sigma = Sigma2^(1/2);
    SK_Arr(5, i) = abs(Xbar-M0)/Sigma;
end

SK_Arr
fz = 15;
lw = 1.5;
plot(1:5, SK_Arr(1,:),'-o', 'linewidth', lw); %线性,颜色,标记
hold on;
plot(1:5, SK_Arr(2,:),'-o', 'linewidth', lw); %线性,颜色,标记
hold on;
plot(1:5, SK_Arr(3,:),'-o', 'linewidth', lw); %线性,颜色,标记
hold on;
plot(1:5, SK_Arr(4,:),'-o', 'linewidth', lw); %线性,颜色,标记
hold on;
plot(1:5, SK_Arr(5,:),'-o', 'linewidth', lw); %线性,颜色,标记
legend('小温区1~5温度','小温区6温度','小温区7温度','小温区8~9温度','传送速度', 'FontSize',fz-3);
xlim([0.5, 5.5]);
ylim([1.3845, 1.391]);

set(gca, 'xTick', [1:1:5]);
set(gca,'XTickLabel',{'-2%' '-1%' '0%' '1%' '2%'});
ylabel('Sk', 'FontSize',fz);
xlabel('指标波动大小', 'FontSize',fz);

set(gca, 'FontSize', fz-3);

% 外部温度分布(斜线的那个图)
function y=f(x,F)
    gap=5; W=30.5; Left=25;
    x1=0; x2=25;
    x3=x2+5*W+4*gap; x4=x3+gap;
    x5=x4+W;x6=x5+gap;
    x7=x6+W;x8=x7+gap;
    x9=x8+2*W+gap;x10=x9+gap;
    y=(exp(0.2007*x)+24).*(x<=x2)+F(2).*(x>x2).*(x<=x3)+((F(3)-F(2))/gap.*(x-x3)+F(2)).*(x>x3).*(x<=x4)+F(3).*(x>x4).*(x<=x5)...
    +((F(4)-F(3))/gap.*(x-x5)+F(3)).*(x>x5).*(x<=x6)+F(4).*(x>x6).*(x<=x7)...
    +((F(5)-F(4))/gap.*(x-x7)+F(4)).*(x>x7).*(x<=x8)+F(5).*(x>x8).*(x<=x9)...
    +((F(6)-F(5))/gap.*(x-x9)+F(5)).*(x>x9).*(x<=x10) + F(6).*(x>x10);
end

% 求温度分布
function t=GetTemp(u1,u2,u3,u4,v)     
    global xm L
    F=[25,u1,u2,u3,u4,25]; T=L/v;
    L1=25+5*30.5+5*5; 
    L2=L1+30.5+5;
    L3=L2+30.5+5;
    t1=L1/v;t2=L2/v;t3=L3/v;
    dt=0.5; 
    m1=floor(t1/dt)+1;
    m2=floor(t2/dt)+1;
    m3=floor(t3/dt)+1;
   
    l=0.015; 
    x=1e-4; 
    r1=xm(1)^2*dt/(x^2);
    r2=xm(3)^2*dt/(x^2);
    r3=xm(5)^2*dt/(x^2);
    r4=xm(7)^2*dt/(x^2);
    r5=xm(9)^2*dt/(x^2);
    h1=xm(2);h2=xm(4);h3=xm(6);h4=xm(8);h5=xm(10);
    n=ceil(l/x)+1; m=floor(T/dt)+1;
    u=zeros(n,m);t=ones(m,1)*25;
    u(:,1)=25;
    u0=f(v*(0:floor(T/dt))*dt,F);
    k=ceil(l/2/x);
    A1=diag([1+h1*x,2*ones(1,n-2)*(1+r1),1+h1*x]);
    A1=A1+diag([-1,-r1*ones(1,n-2)],1);
    A1=A1+diag([-r1*ones(1,n-2),-1],-1);          
    B1=diag([0,2*ones(1,n-2)*(1-r1),0]);
    B1=B1+diag([0,r1*ones(1,n-2)],1);
    B1=B1+diag([r1*ones(1,n-2),0],-1);
    C1=A1\B1;
    c=zeros(n,m); c(1,:)=h1*u0*x; 
    c(n,:)=c(1,:);
    c=A1\c;    
    for j=1:m1-1
       u(:,j+1)=C1*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A2=diag([1+h2*x,2*ones(1,n-2)*(1+r2),1+h2*x]);
    A2=A2+diag([-1,-r2*ones(1,n-2)],1);
    A2=A2+diag([-r2*ones(1,n-2),-1],-1);          
    B2=diag([0,2*ones(1,n-2)*(1-r2),0]);
    B2=B2+diag([0,r2*ones(1,n-2)],1);
    B2=B2+diag([r2*ones(1,n-2),0],-1);
    C2=A2\B2;
    c=zeros(n,m); c(1,:)=h2*u0*x; 
    c(n,:)=c(1,:);
    c=A2\c;    
    for j=m1:m2-1
       u(:,j+1)=C2*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A3=diag([1+h3*x,2*ones(1,n-2)*(1+r3),1+h3*x]);
    A3=A3+diag([-1,-r3*ones(1,n-2)],1);
    A3=A3+diag([-r3*ones(1,n-2),-1],-1);          
    B3=diag([0,2*ones(1,n-2)*(1-r3),0]);
    B3=B3+diag([0,r3*ones(1,n-2)],1);
    B3=B3+diag([r3*ones(1,n-2),0],-1);
    C3=A3\B3;
    c=zeros(n,m); c(1,:)=h3*u0*x; 
    c(n,:)=c(1,:);
    c=A3\c;    
    for j=m2:m3-1
       u(:,j+1)=C3*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
        
    
    A4=diag([1+h4*x,2*ones(1,n-2)*(1+r4),1+h4*x]);
    A4=A4+diag([-1,-r4*ones(1,n-2)],1);
    A4=A4+diag([-r4*ones(1,n-2),-1],-1);          
    B4=diag([0,2*ones(1,n-2)*(1-r4),0]);
    B4=B4+diag([0,r4*ones(1,n-2)],1);
    B4=B4+diag([r4*ones(1,n-2),0],-1);
    C4=A4\B4;
    c4(1,:)=h4*u0*x; 
    c4(n,:)=c4(1,:);
    c4=A4\c4;    
        
    A5=diag([1+h5*x,2*ones(1,n-2)*(1+r5),1+h5*x]);
    A5=A5+diag([-1,-r5*ones(1,n-2)],1);
    A5=A5+diag([-r5*ones(1,n-2),-1],-1);          
    B5=diag([0,2*ones(1,n-2)*(1-r5),0]);
    B5=B5+diag([0,r5*ones(1,n-2)],1);
    B5=B5+diag([r5*ones(1,n-2),0],-1);
    C5=A5\B5;
    c5(1,:)=h5*u0*x; 
    c5(n,:)=c5(1,:);
    c5=A5\c5;    
    for j=m3:m-1
       if t(j)>=t(j-1)
            u(:,j+1)=C4*u(:,j)+c4(:,j+1);            
       else
           u(:,j+1)=C5*u(:,j)+c5(:,j+1); 
       end
       t(j+1)=u(k,j+1);
    end
end

% a:积分面积
function [a]=area1(x, u0)
    
    S=0;
    
    u=u0(u0>=30);
    % 温度大于 217 的部分
    tmp2=u(u>=217)-217;
    Temp_217 = tmp2;
    t2=length(tmp2)*0.5;
    umax=max(u);  
    tmp3=abs(u(2:length(u))-u(1:length(u)-1))/0.5;
    kmax=max(tmp3);
    s=u(u(2:length(u))>=u(1:length(u)-1));
    s=s(s>=150);
    s=s(s<=190);
    t1=length(s)*0.5;   
    
    k=find(tmp2==max(tmp2));
    if k>2
        a=(sum(tmp2(1:k))-(tmp2(1)+tmp2(k))/2)*0.5;
    else
        a=(tmp2(1)+tmp2(k))*0.5/2;
    end
       
end





5、灵敏度分析(关于积分面积)

clc; clear;  % 第四问

L=50+30.5*11+5*10;
alpha = 7.15e-04;
H1 = 6975.37;
H2 = 97.60;
xm=[alpha;H1;alpha;H1;alpha;H1;alpha;H1;alpha;H2];



Z_SArr = [];
n = 0;
Z_Sk = [];


ratio = 0.01;
NN = [175 195 235 255 80/60];
T15 = [NN(1)-2*ratio*NN(1) NN(1)-ratio*NN(1) NN(1) NN(1)+ratio*NN(1) NN(1)+2*ratio*NN(1)];
T6 =  [NN(2)-2*ratio*NN(2) NN(2)-ratio*NN(2) NN(2) NN(2)+ratio*NN(2) NN(2)+2*ratio*NN(2)];
T7 =  [NN(3)-2*ratio*NN(3) NN(3)-ratio*NN(3) NN(3) NN(3)+ratio*NN(3) NN(3)+2*ratio*NN(3)];
T89 = [NN(4)-2*ratio*NN(4) NN(4)-ratio*NN(4) NN(4) NN(4)+ratio*NN(4) NN(4)+2*ratio*NN(4)];
T_V = [NN(5)-2*ratio*NN(5) NN(5)-ratio*NN(5) NN(5) NN(5)+ratio*NN(5) NN(5)+2*ratio*NN(5)];

S_Arr = zeros(5, 5);

for i=1:length(T15)
    x = [T15(i) 195 235 255 80/60];
    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));
    v=x(5);
    F=[25,x(1),x(2),x(3),x(4),25];
    T=L/v;
    t=0:0.5:T;
    S_Arr(1, i) = area1(x, u0);
end
for i=1:length(T6)
    x = [175 T6(i) 235 255 80/60];
    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));
    v=x(5);
    F=[25,x(1),x(2),x(3),x(4),25];
    T=L/v;
    t=0:0.5:T;
    S_Arr(2, i) = area1(x, u0);
end
for i=1:length(T7)
    x = [175 195 T7(i) 255 80/60];
    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));
    v=x(5);
    F=[25,x(1),x(2),x(3),x(4),25];
    T=L/v;
    t=0:0.5:T;
    S_Arr(3, i) = area1(x, u0);
end
for i=1:length(T89)
    x = [175 195 235 T89(i) 80/60];
    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));
    v=x(5);
    F=[25,x(1),x(2),x(3),x(4),25];
    T=L/v;
    t=0:0.5:T;
    S_Arr(4, i) = area1(x, u0);
end
for i=1:length(T_V)
    x = [175 195 235 255 T_V(i)];
    u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));
    v=x(5);
    F=[25,x(1),x(2),x(3),x(4),25];
    T=L/v;
    t=0:0.5:T;
    S_Arr(5, i) = area1(x, u0);
end

S_Arr
fz = 15;
lw = 1.5;
plot(1:5, S_Arr(1,:),'-o', 'linewidth', lw); %线性,颜色,标记
hold on;
plot(1:5, S_Arr(2,:),'-o', 'linewidth', lw); %线性,颜色,标记
hold on;
plot(1:5, S_Arr(3,:),'-o', 'linewidth', lw); %线性,颜色,标记
hold on;
plot(1:5, S_Arr(4,:),'-o', 'linewidth', lw); %线性,颜色,标记
hold on;
plot(1:5, S_Arr(5,:),'-o', 'linewidth', lw); %线性,颜色,标记
legend('小温区1~5温度','小温区6温度','小温区7温度','小温区8~9温度','传送速度', 'FontSize',fz-3);
xlim([0.5, 5.5]);
ylim([260, 460]);

set(gca, 'xTick', [1:1:5]);
set(gca,'XTickLabel',{'-2%' '-1%' '0%' '1%' '2%'});
ylabel('积分面积', 'FontSize',fz);
xlabel('指标波动大小', 'FontSize',fz);


set(gca, 'FontSize', fz-3);

% 外部温度分布(斜线的那个图)
function y=f(x,F)
    gap=5; W=30.5; Left=25;
    x1=0; x2=25;
    x3=x2+5*W+4*gap; x4=x3+gap;
    x5=x4+W;x6=x5+gap;
    x7=x6+W;x8=x7+gap;
    x9=x8+2*W+gap;x10=x9+gap;
    y=(exp(0.2007*x)+24).*(x<=x2)+F(2).*(x>x2).*(x<=x3)+((F(3)-F(2))/gap.*(x-x3)+F(2)).*(x>x3).*(x<=x4)+F(3).*(x>x4).*(x<=x5)...
    +((F(4)-F(3))/gap.*(x-x5)+F(3)).*(x>x5).*(x<=x6)+F(4).*(x>x6).*(x<=x7)...
    +((F(5)-F(4))/gap.*(x-x7)+F(4)).*(x>x7).*(x<=x8)+F(5).*(x>x8).*(x<=x9)...
    +((F(6)-F(5))/gap.*(x-x9)+F(5)).*(x>x9).*(x<=x10) + F(6).*(x>x10);
end

% 求温度分布
function t=GetTemp(u1,u2,u3,u4,v)     
    global xm L
    F=[25,u1,u2,u3,u4,25]; T=L/v;
    L1=25+5*30.5+5*5; 
    L2=L1+30.5+5;
    L3=L2+30.5+5;
    t1=L1/v;t2=L2/v;t3=L3/v;
    dt=0.5; 
    m1=floor(t1/dt)+1;
    m2=floor(t2/dt)+1;
    m3=floor(t3/dt)+1;
   
    l=0.015; 
    x=1e-4; 
    r1=xm(1)^2*dt/(x^2);
    r2=xm(3)^2*dt/(x^2);
    r3=xm(5)^2*dt/(x^2);
    r4=xm(7)^2*dt/(x^2);
    r5=xm(9)^2*dt/(x^2);
    h1=xm(2);h2=xm(4);h3=xm(6);h4=xm(8);h5=xm(10);
    n=ceil(l/x)+1; m=floor(T/dt)+1;
    u=zeros(n,m);t=ones(m,1)*25;
    u(:,1)=25;
    u0=f(v*(0:floor(T/dt))*dt,F);
    k=ceil(l/2/x);
    A1=diag([1+h1*x,2*ones(1,n-2)*(1+r1),1+h1*x]);
    A1=A1+diag([-1,-r1*ones(1,n-2)],1);
    A1=A1+diag([-r1*ones(1,n-2),-1],-1);          
    B1=diag([0,2*ones(1,n-2)*(1-r1),0]);
    B1=B1+diag([0,r1*ones(1,n-2)],1);
    B1=B1+diag([r1*ones(1,n-2),0],-1);
    C1=A1\B1;
    c=zeros(n,m); c(1,:)=h1*u0*x; 
    c(n,:)=c(1,:);
    c=A1\c;    
    for j=1:m1-1
       u(:,j+1)=C1*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A2=diag([1+h2*x,2*ones(1,n-2)*(1+r2),1+h2*x]);
    A2=A2+diag([-1,-r2*ones(1,n-2)],1);
    A2=A2+diag([-r2*ones(1,n-2),-1],-1);          
    B2=diag([0,2*ones(1,n-2)*(1-r2),0]);
    B2=B2+diag([0,r2*ones(1,n-2)],1);
    B2=B2+diag([r2*ones(1,n-2),0],-1);
    C2=A2\B2;
    c=zeros(n,m); c(1,:)=h2*u0*x; 
    c(n,:)=c(1,:);
    c=A2\c;    
    for j=m1:m2-1
       u(:,j+1)=C2*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A3=diag([1+h3*x,2*ones(1,n-2)*(1+r3),1+h3*x]);
    A3=A3+diag([-1,-r3*ones(1,n-2)],1);
    A3=A3+diag([-r3*ones(1,n-2),-1],-1);          
    B3=diag([0,2*ones(1,n-2)*(1-r3),0]);
    B3=B3+diag([0,r3*ones(1,n-2)],1);
    B3=B3+diag([r3*ones(1,n-2),0],-1);
    C3=A3\B3;
    c=zeros(n,m); c(1,:)=h3*u0*x; 
    c(n,:)=c(1,:);
    c=A3\c;    
    for j=m2:m3-1
       u(:,j+1)=C3*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
        
    
    A4=diag([1+h4*x,2*ones(1,n-2)*(1+r4),1+h4*x]);
    A4=A4+diag([-1,-r4*ones(1,n-2)],1);
    A4=A4+diag([-r4*ones(1,n-2),-1],-1);          
    B4=diag([0,2*ones(1,n-2)*(1-r4),0]);
    B4=B4+diag([0,r4*ones(1,n-2)],1);
    B4=B4+diag([r4*ones(1,n-2),0],-1);
    C4=A4\B4;
    c4(1,:)=h4*u0*x; 
    c4(n,:)=c4(1,:);
    c4=A4\c4;    
        
    A5=diag([1+h5*x,2*ones(1,n-2)*(1+r5),1+h5*x]);
    A5=A5+diag([-1,-r5*ones(1,n-2)],1);
    A5=A5+diag([-r5*ones(1,n-2),-1],-1);          
    B5=diag([0,2*ones(1,n-2)*(1-r5),0]);
    B5=B5+diag([0,r5*ones(1,n-2)],1);
    B5=B5+diag([r5*ones(1,n-2),0],-1);
    C5=A5\B5;
    c5(1,:)=h5*u0*x; 
    c5(n,:)=c5(1,:);
    c5=A5\c5;    
    for j=m3:m-1
       if t(j)>=t(j-1)
            u(:,j+1)=C4*u(:,j)+c4(:,j+1);            
       else
           u(:,j+1)=C5*u(:,j)+c5(:,j+1); 
       end
       t(j+1)=u(k,j+1);
    end
end

% a:积分面积
function [a]=area1(x, u0)
    
    S=0;
    
    u=u0(u0>=30);
    % 温度大于 217 的部分
    tmp2=u(u>=217)-217;
    Temp_217 = tmp2;
    t2=length(tmp2)*0.5;
    umax=max(u);  
    tmp3=abs(u(2:length(u))-u(1:length(u)-1))/0.5;
    kmax=max(tmp3);
    s=u(u(2:length(u))>=u(1:length(u)-1));
    s=s(s>=150);
    s=s(s<=190);
    t1=length(s)*0.5;   
    
    k=find(tmp2==max(tmp2));
    if k>2
        a=(sum(tmp2(1:k))-(tmp2(1)+tmp2(k))/2)*0.5;
    else
        a=(tmp2(1)+tmp2(k))*0.5/2;
    end
       
end





6、求解限制条件最大值

clc; clear;  % 第四问

L=50+30.5*11+5*10;
alpha = 7.15e-04;
H1 = 6975.37;
H2 = 97.60;
xm=[alpha;H1;alpha;H1;alpha;H1;alpha;H1;alpha;H2];



Z_SArr = [];
n = 0;
Z_Sk = [];

Z_Result = zeros(1, 5);



x = [174.7 185.5 230.3 264.3 1.333333];


u0 = GetTemp(x(1),x(2),x(3),x(4), x(5));


v=x(5);
F=[25,x(1),x(2),x(3),x(4),25];

T=L/v;
t=0:0.5:T;
S = -1;
tt = area1(x, u0);
if tt < 999
    S = tt;
    % 所有大于217的温度
    AllTemp = u0(u0>217);

    %plot(1:1:length(AllTemp), AllTemp);
    hold on;

    Xbar = sum(AllTemp)/length(AllTemp);    % 均值
    M0 = max(AllTemp);                      % 众数,最大值
    Sigma2 = 0;                             % 方差
    for i=1:length(AllTemp)
        Sigma2 = Sigma2 + (AllTemp(i) - Xbar)^2/length(AllTemp);
    end
    Sigma = Sigma2^(1/2);
    Sk = abs(Xbar-M0)/Sigma;
    if(Sk < 1.315)
        n = n+1;
        Z_SArr(n) = S;
        Z_Sk(n) = Sk;
        Z_Result(n, :) = x;
    end
end



scatter(1:1:n, Z_Sk, 8, 'b');
xlabel('序号');
ylabel('SK');
title('')



% 外部温度分布(斜线的那个图)
function y=f(x,F)
    gap=5; W=30.5; Left=25;
    x1=0; x2=25;
    x3=x2+5*W+4*gap; x4=x3+gap;
    x5=x4+W;x6=x5+gap;
    x7=x6+W;x8=x7+gap;
    x9=x8+2*W+gap;x10=x9+gap;
    y=(exp(0.2007*x)+24).*(x<=x2)+F(2).*(x>x2).*(x<=x3)+((F(3)-F(2))/gap.*(x-x3)+F(2)).*(x>x3).*(x<=x4)+F(3).*(x>x4).*(x<=x5)...
    +((F(4)-F(3))/gap.*(x-x5)+F(3)).*(x>x5).*(x<=x6)+F(4).*(x>x6).*(x<=x7)...
    +((F(5)-F(4))/gap.*(x-x7)+F(4)).*(x>x7).*(x<=x8)+F(5).*(x>x8).*(x<=x9)...
    +((F(6)-F(5))/gap.*(x-x9)+F(5)).*(x>x9).*(x<=x10) + F(6).*(x>x10);
end

% 求温度分布
function t=GetTemp(u1,u2,u3,u4,v)     
    global xm L
    F=[25,u1,u2,u3,u4,25]; T=L/v;
    L1=25+5*30.5+5*5; 
    L2=L1+30.5+5;
    L3=L2+30.5+5;
    t1=L1/v;t2=L2/v;t3=L3/v;
    dt=0.5; 
    m1=floor(t1/dt)+1;
    m2=floor(t2/dt)+1;
    m3=floor(t3/dt)+1;
   
    l=0.015; 
    x=1e-4; 
    r1=xm(1)^2*dt/(x^2);
    r2=xm(3)^2*dt/(x^2);
    r3=xm(5)^2*dt/(x^2);
    r4=xm(7)^2*dt/(x^2);
    r5=xm(9)^2*dt/(x^2);
    h1=xm(2);h2=xm(4);h3=xm(6);h4=xm(8);h5=xm(10);
    n=ceil(l/x)+1; m=floor(T/dt)+1;
    u=zeros(n,m);t=ones(m,1)*25;
    u(:,1)=25;
    u0=f(v*(0:floor(T/dt))*dt,F);
    k=ceil(l/2/x);
    A1=diag([1+h1*x,2*ones(1,n-2)*(1+r1),1+h1*x]);
    A1=A1+diag([-1,-r1*ones(1,n-2)],1);
    A1=A1+diag([-r1*ones(1,n-2),-1],-1);          
    B1=diag([0,2*ones(1,n-2)*(1-r1),0]);
    B1=B1+diag([0,r1*ones(1,n-2)],1);
    B1=B1+diag([r1*ones(1,n-2),0],-1);
    C1=A1\B1;
    c=zeros(n,m); c(1,:)=h1*u0*x; 
    c(n,:)=c(1,:);
    c=A1\c;    
    for j=1:m1-1
       u(:,j+1)=C1*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A2=diag([1+h2*x,2*ones(1,n-2)*(1+r2),1+h2*x]);
    A2=A2+diag([-1,-r2*ones(1,n-2)],1);
    A2=A2+diag([-r2*ones(1,n-2),-1],-1);          
    B2=diag([0,2*ones(1,n-2)*(1-r2),0]);
    B2=B2+diag([0,r2*ones(1,n-2)],1);
    B2=B2+diag([r2*ones(1,n-2),0],-1);
    C2=A2\B2;
    c=zeros(n,m); c(1,:)=h2*u0*x; 
    c(n,:)=c(1,:);
    c=A2\c;    
    for j=m1:m2-1
       u(:,j+1)=C2*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
    
    A3=diag([1+h3*x,2*ones(1,n-2)*(1+r3),1+h3*x]);
    A3=A3+diag([-1,-r3*ones(1,n-2)],1);
    A3=A3+diag([-r3*ones(1,n-2),-1],-1);          
    B3=diag([0,2*ones(1,n-2)*(1-r3),0]);
    B3=B3+diag([0,r3*ones(1,n-2)],1);
    B3=B3+diag([r3*ones(1,n-2),0],-1);
    C3=A3\B3;
    c=zeros(n,m); c(1,:)=h3*u0*x; 
    c(n,:)=c(1,:);
    c=A3\c;    
    for j=m2:m3-1
       u(:,j+1)=C3*u(:,j)+c(:,j+1);
       t(j+1)=u(k,j+1);
    end
        
    
    A4=diag([1+h4*x,2*ones(1,n-2)*(1+r4),1+h4*x]);
    A4=A4+diag([-1,-r4*ones(1,n-2)],1);
    A4=A4+diag([-r4*ones(1,n-2),-1],-1);          
    B4=diag([0,2*ones(1,n-2)*(1-r4),0]);
    B4=B4+diag([0,r4*ones(1,n-2)],1);
    B4=B4+diag([r4*ones(1,n-2),0],-1);
    C4=A4\B4;
    c4(1,:)=h4*u0*x; 
    c4(n,:)=c4(1,:);
    c4=A4\c4;    
        
    A5=diag([1+h5*x,2*ones(1,n-2)*(1+r5),1+h5*x]);
    A5=A5+diag([-1,-r5*ones(1,n-2)],1);
    A5=A5+diag([-r5*ones(1,n-2),-1],-1);          
    B5=diag([0,2*ones(1,n-2)*(1-r5),0]);
    B5=B5+diag([0,r5*ones(1,n-2)],1);
    B5=B5+diag([r5*ones(1,n-2),0],-1);
    C5=A5\B5;
    c5(1,:)=h5*u0*x; 
    c5(n,:)=c5(1,:);
    c5=A5\c5;    
    for j=m3:m-1
       if t(j)>=t(j-1)
            u(:,j+1)=C4*u(:,j)+c4(:,j+1);            
       else
           u(:,j+1)=C5*u(:,j)+c5(:,j+1); 
       end
       t(j+1)=u(k,j+1);
    end
end

% a:积分面积
function [a]=area1(x, u0)
    
    S=0;
    
    u=u0(u0>=30);
    % 温度大于 217 的部分
    tmp2=u(u>=217)-217;
    Temp_217 = tmp2;
    time_217=length(tmp2)*0.5
    umax=max(u)
    tmp3=abs(u(2:length(u))-u(1:length(u)-1))/0.5;
    kmax=max(tmp3)
    s=u(u(2:length(u))>=u(1:length(u)-1));
    s=s(s>=150);
    s=s(s<=190);
    t_150_190=length(s)*0.5  
    
    a = 1;
       
end



你可能感兴趣的:(数学建模,matlab,开发语言)