secondgunit.~pas

In the process of copper flash smelting, lining temperature of reaction shaft and its inner wall slu

  procedure TPartForm.Button3Click(Sender: TObject);
  begin
   //判断各隶属度的值与权值是否为空
  if (Edit_W311.Text='')or(Edit_B311.Text='')or(Edit_B312.Text='')or(Edit_B313.Text='')or(Edit_B314.Text='')or(Edit_B315.Text='')
   or(Edit_W322.Text='')or(Edit_B321.Text='')or(Edit_B322.Text='')or(Edit_B323.Text='')or(Edit_B324.Text='')or(Edit_B325.Text='')
   or(Edit_W333.Text='')or(Edit_B331.Text='')or(Edit_B332.Text='')or(Edit_B333.Text='')or(Edit_B334.Text='')or(Edit_B335.Text='')
   then
  showmessage('对不起！请您填入完整的权重值或隶属度值！')
  //若不为空，可以计算。
  else
  self.Edit_B31.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W311.Text)*StrToFloat(Edit_B311.Text)+
                        StrToFloat(Edit_W322.Text)*StrToFloat(Edit_B321.Text)+
                        StrToFloat(Edit_W333.Text)*StrToFloat(Edit_B331.Text)
                         )*1000
                       )
                      )/1000
                     );
  self.Edit_B32.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W311.Text)*StrToFloat(Edit_B312.Text)+
                        StrToFloat(Edit_W322.Text)*StrToFloat(Edit_B322.Text)+
                        StrToFloat(Edit_W333.Text)*StrToFloat(Edit_B332.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit_B33.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W311.Text)*StrToFloat(Edit_B313.Text)+
                        StrToFloat(Edit_W322.Text)*StrToFloat(Edit_B323.Text)+
                        StrToFloat(Edit_W333.Text)*StrToFloat(Edit_B333.Text)
                        )*1000
                       )
                      )/1000
                     );
 self.Edit_B34.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W311.Text)*StrToFloat(Edit_B314.Text)+
                        StrToFloat(Edit_W322.Text)*StrToFloat(Edit_B324.Text)+
                        StrToFloat(Edit_W333.Text)*StrToFloat(Edit_B334.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit_B35.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W311.Text)*StrToFloat(Edit_B315.Text)+
                        StrToFloat(Edit_W322.Text)*StrToFloat(Edit_B325.Text)+
                        StrToFloat(Edit_W333.Text)*StrToFloat(Edit_B335.Text)
                        )*1000
                       )
                      )/1000
                     );

  if ((strToFloat(Edit_B31.Text)+strToFloat(Edit_B32.Text)+strToFloat(Edit_B33.Text)+
        strToFloat(Edit_B34.Text)+strToFloat(Edit_B35.Text))<>1)
      then
    ShowMessage('要求权重值相加之和等于1！');
    end;

 //--------------------------------------------------------------------
 procedure TPartForm.Button4Click(Sender: TObject);
  begin
   //判断各隶属度的值与权值是否为空
  if (Edit_W411.Text='')or(Edit_B411.Text='')or(Edit_B412.Text='')or(Edit_B413.Text='')or(Edit_B414.Text='')or(Edit_B415.Text='')
   or(Edit_W422.Text='')or(Edit_B421.Text='')or(Edit_B422.Text='')or(Edit_B423.Text='')or(Edit_B424.Text='')or(Edit_B425.Text='')
   or(Edit_W433.Text='')or(Edit_B431.Text='')or(Edit_B432.Text='')or(Edit_B433.Text='')or(Edit_B434.Text='')or(Edit_B435.Text='')
   or(Edit_W444.Text='')or(Edit_B441.Text='')or(Edit_B442.Text='')or(Edit_B443.Text='')or(Edit_B444.Text='')or(Edit_B445.Text='')
   then
  showmessage('对不起！请您填入完整的权重值或隶属度值！')
  //若不为空，可以计算。
  else
  self.Edit_B41.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W411.Text)*StrToFloat(Edit_B411.Text)+
                        StrToFloat(Edit_W422.Text)*StrToFloat(Edit_B421.Text)+
                        StrToFloat(Edit_W433.Text)*StrToFloat(Edit_B431.Text)+
                        StrToFloat(Edit_W444.Text)*StrToFloat(Edit_B441.Text)
                         )*1000
                       )
                      )/1000
                     );
  self.Edit_B42.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W411.Text)*StrToFloat(Edit_B412.Text)+
                        StrToFloat(Edit_W422.Text)*StrToFloat(Edit_B422.Text)+
                        StrToFloat(Edit_W433.Text)*StrToFloat(Edit_B432.Text)+
                        StrToFloat(Edit_W444.Text)*StrToFloat(Edit_B442.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit_B43.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W411.Text)*StrToFloat(Edit_B413.Text)+
                        StrToFloat(Edit_W422.Text)*StrToFloat(Edit_B423.Text)+
                        StrToFloat(Edit_W433.Text)*StrToFloat(Edit_B433.Text)+
                        StrToFloat(Edit_W444.Text)*StrToFloat(Edit_B443.Text)
                        )*1000
                       )
                      )/1000
                     );
 self.Edit_B44.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W411.Text)*StrToFloat(Edit_B414.Text)+
                        StrToFloat(Edit_W422.Text)*StrToFloat(Edit_B424.Text)+
                        StrToFloat(Edit_W433.Text)*StrToFloat(Edit_B434.Text)+
                        StrToFloat(Edit_W444.Text)*StrToFloat(Edit_B444.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit_B45.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W411.Text)*StrToFloat(Edit_B415.Text)+
                        StrToFloat(Edit_W422.Text)*StrToFloat(Edit_B425.Text)+
                        StrToFloat(Edit_W433.Text)*StrToFloat(Edit_B435.Text)+
                        StrToFloat(Edit_W444.Text)*StrToFloat(Edit_B445.Text)
                        )*1000
                       )
                      )/1000
                     );

  if ((strToFloat(Edit_B41.Text)+strToFloat(Edit_B42.Text)+strToFloat(Edit_B43.Text)+
        strToFloat(Edit_B44.Text)+strToFloat(Edit_B45.Text))<>1)
      then
    ShowMessage('要求权重值相加之和等于1！');
    end;

 //--------------------------------------------------------------------
procedure TPartForm.Button5Click(Sender: TObject);
  begin
   //判断各隶属度的值与权值是否为空
  if (Edit_W1111.Text='')or(Edit_B1111.Text='')or(Edit_B1112.Text='')or(Edit_B1113.Text='')or(Edit_B1114.Text='')or(Edit_B1115.Text='')
   or(Edit_W1122.Text='')or(Edit_B1121.Text='')or(Edit_B1122.Text='')or(Edit_B1123.Text='')or(Edit_B1124.Text='')or(Edit_B1125.Text='')
   or(Edit_W1133.Text='')or(Edit_B1131.Text='')or(Edit_B1132.Text='')or(Edit_B1133.Text='')or(Edit_B1134.Text='')or(Edit_B1135.Text='')
   or(Edit_W1144.Text='')or(Edit_B1141.Text='')or(Edit_B1142.Text='')or(Edit_B1143.Text='')or(Edit_B1144.Text='')or(Edit_B1145.Text='')
   or(Edit_W1155.Text='')or(Edit_B1151.Text='')or(Edit_B1152.Text='')or(Edit_B1153.Text='')or(Edit_B1154.Text='')or(Edit_B1155.Text='')
   or(Edit_W1166.Text='')or(Edit_B1161.Text='')or(Edit_B1162.Text='')or(Edit_B1163.Text='')or(Edit_B1164.Text='')or(Edit_B1165.Text='')
   or(Edit_W1177.Text='')or(Edit_B1171.Text='')or(Edit_B1172.Text='')or(Edit_B1173.Text='')or(Edit_B1174.Text='')or(Edit_B1175.Text='')
   then
  showmessage('对不起！请您填入完整的权重值或隶属度值！')
  //若不为空，可以计算。
  else
  self.Edit__B111.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W1111.Text)*StrToFloat(Edit_B1111.Text)+
                        StrToFloat(Edit_W1122.Text)*StrToFloat(Edit_B1121.Text)+
                        StrToFloat(Edit_W1133.Text)*StrToFloat(Edit_B1131.Text)+
                        StrToFloat(Edit_W1144.Text)*StrToFloat(Edit_B1141.Text)+
                        StrToFloat(Edit_W1155.Text)*StrToFloat(Edit_B1151.Text)+
                        StrToFloat(Edit_W1166.Text)*StrToFloat(Edit_B1161.Text)+
                        StrToFloat(Edit_W1177.Text)*StrToFloat(Edit_B1171.Text)
                         )*1000
                       )
                      )/1000
                     );
  self.Edit__B112.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W1111.Text)*StrToFloat(Edit_B1112.Text)+
                        StrToFloat(Edit_W1122.Text)*StrToFloat(Edit_B1122.Text)+
                        StrToFloat(Edit_W1133.Text)*StrToFloat(Edit_B1132.Text)+
                        StrToFloat(Edit_W1144.Text)*StrToFloat(Edit_B1142.Text)+
                        StrToFloat(Edit_W1155.Text)*StrToFloat(Edit_B1152.Text)+
                        StrToFloat(Edit_W1166.Text)*StrToFloat(Edit_B1162.Text)+
                        StrToFloat(Edit_W1177.Text)*StrToFloat(Edit_B1172.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit__B113.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W1111.Text)*StrToFloat(Edit_B1113.Text)+
                        StrToFloat(Edit_W1122.Text)*StrToFloat(Edit_B1123.Text)+
                        StrToFloat(Edit_W1133.Text)*StrToFloat(Edit_B1133.Text)+
                        StrToFloat(Edit_W1144.Text)*StrToFloat(Edit_B1143.Text)+
                        StrToFloat(Edit_W1155.Text)*StrToFloat(Edit_B1153.Text)+
                        StrToFloat(Edit_W1166.Text)*StrToFloat(Edit_B1163.Text)+
                        StrToFloat(Edit_W1177.Text)*StrToFloat(Edit_B1173.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit__B114.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W1111.Text)*StrToFloat(Edit_B1114.Text)+
                        StrToFloat(Edit_W1122.Text)*StrToFloat(Edit_B1124.Text)+
                        StrToFloat(Edit_W1133.Text)*StrToFloat(Edit_B1134.Text)+
                        StrToFloat(Edit_W1144.Text)*StrToFloat(Edit_B1144.Text)+
                        StrToFloat(Edit_W1155.Text)*StrToFloat(Edit_B1154.Text)+
                        StrToFloat(Edit_W1166.Text)*StrToFloat(Edit_B1164.Text)+
                        StrToFloat(Edit_W1177.Text)*StrToFloat(Edit_B1174.Text)
                        )*1000
                       )
                      )/1000
                     );
  self.Edit__B115.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W1111.Text)*StrToFloat(Edit_B1115.Text)+
                        StrToFloat(Edit_W1122.Text)*StrToFloat(Edit_B1125.Text)+
                        StrToFloat(Edit_W1133.Text)*StrToFloat(Edit_B1135.Text)+
                        StrToFloat(Edit_W1144.Text)*StrToFloat(Edit_B1145.Text)+
                        StrToFloat(Edit_W1155.Text)*StrToFloat(Edit_B1155.Text)+
                        StrToFloat(Edit_W1166.Text)*StrToFloat(Edit_B1165.Text)+
                        StrToFloat(Edit_W1177.Text)*StrToFloat(Edit_B1175.Text)
                        )*1000
                       )
                      )/1000
                     );


  if ((strToFloat(Edit__B111.Text)+strToFloat(Edit__B112.Text)+strToFloat(Edit__B113.Text)+
        strToFloat(Edit__B114.Text)+strToFloat(Edit__B115.Text))<>1)
      then
    ShowMessage('要求权重值相加之和等于1！');
    end;


 //--------------------------------------------------------------------
  procedure TPartForm.Button6Click(Sender: TObject);
  begin
   //判断各隶属度的值与权值是否为空
  if (Edit_W1211.Text='')or(Edit_B1211.Text='')or(Edit_B1212.Text='')or(Edit_B1213.Text='')or(Edit_B1214.Text='')or(Edit_B1215.Text='')
   or(Edit_W1222.Text='')or(Edit_B1221.Text='')or(Edit_B1222.Text='')or(Edit_B1223.Text='')or(Edit_B1224.Text='')or(Edit_B1225.Text='')
  then
  showmessage('对不起！请您填入完整的权重值或隶属度值！')
  //若不为空，可以计算。
  else
  self.Edit__B121.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W1211.Text)*StrToFloat(Edit_B1211.Text)+
                        StrToFloat(Edit_W1222.Text)*StrToFloat(Edit_B1221.Text)
                         )*1000
                       )
                      )/1000
                     );
  self.Edit__B122.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W1211.Text)*StrToFloat(Edit_B1212.Text)+
                        StrToFloat(Edit_W1222.Text)*StrToFloat(Edit_B1222.Text)
                        )*1000
                       )
                      )/1000
                     );
   self.Edit__B123.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W1211.Text)*StrToFloat(Edit_B1213.Text)+
                        StrToFloat(Edit_W1222.Text)*StrToFloat(Edit_B1223.Text)
                        )*1000
                       )
                      )/1000
                     );
   self.Edit__B124.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W1211.Text)*StrToFloat(Edit_B1214.Text)+
                        StrToFloat(Edit_W1222.Text)*StrToFloat(Edit_B1224.Text)
                        )*1000
                       )
                      )/1000
                     );
   self.Edit__B125.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W1211.Text)*StrToFloat(Edit_B1215.Text)+
                        StrToFloat(Edit_W1222.Text)*StrToFloat(Edit_B1225.Text)
                        )*1000
                       )
                      )/1000
                     );

  if ((strToFloat(Edit__B121.Text)+strToFloat(Edit__B122.Text)+strToFloat(Edit__B123.Text)+
        strToFloat(Edit__B124.Text)+strToFloat(Edit__B125.Text))<>1)
      then
    ShowMessage('要求权重值相加之和等于1！');
    end;


 //--------------------------------------------------------------------
  procedure TPartForm.Button7Click(Sender: TObject);
  begin
   //判断各隶属度的值与权值是否为空
  if (Edit_W2111.Text='')or(Edit_B2111.Text='')or(Edit_B2112.Text='')or(Edit_B2113.Text='')or(Edit_B2114.Text='')or(Edit_B2115.Text='')
   or(Edit_W2122.Text='')or(Edit_B2121.Text='')or(Edit_B2122.Text='')or(Edit_B2123.Text='')or(Edit_B2124.Text='')or(Edit_B2125.Text='')
   or(Edit_W2133.Text='')or(Edit_B2131.Text='')or(Edit_B2132.Text='')or(Edit_B2133.Text='')or(Edit_B2134.Text='')or(Edit_B2135.Text='')
   or(Edit_W2144.Text='')or(Edit_B2141.Text='')or(Edit_B2142.Text='')or(Edit_B2143.Text='')or(Edit_B2144.Text='')or(Edit_B2145.Text='')
   or(Edit_W2155.Text='')or(Edit_B2151.Text='')or(Edit_B2152.Text='')or(Edit_B2153.Text='')or(Edit_B2154.Text='')or(Edit_B2155.Text='')
  then
  showmessage('对不起！请您填入完整的权重值或隶属度值！')
  //若不为空，可以计算。
  else
  self.Edit__B211.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W2111.Text)*StrToFloat(Edit_B2111.Text)+
                        StrToFloat(Edit_W2122.Text)*StrToFloat(Edit_B2121.Text)+
                        StrToFloat(Edit_W2133.Text)*StrToFloat(Edit_B2131.Text)+
                        StrToFloat(Edit_W2144.Text)*StrToFloat(Edit_B2141.Text)+
                        StrToFloat(Edit_W2155.Text)*StrToFloat(Edit_B2151.Text)
                         )*1000
                       )
                      )/1000
                     );
  self.Edit__B212.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W2111.Text)*StrToFloat(Edit_B2112.Text)+
                        StrToFloat(Edit_W2122.Text)*StrToFloat(Edit_B2122.Text)+
                        StrToFloat(Edit_W2133.Text)*StrToFloat(Edit_B2132.Text)+
                        StrToFloat(Edit_W2144.Text)*StrToFloat(Edit_B2142.Text)+
                        StrToFloat(Edit_W2155.Text)*StrToFloat(Edit_B2152.Text)
                        )*1000
                       )
                      )/1000
                     );
   self.Edit__B213.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W2111.Text)*StrToFloat(Edit_B2113.Text)+
                        StrToFloat(Edit_W2122.Text)*StrToFloat(Edit_B2123.Text)+
                        StrToFloat(Edit_W2133.Text)*StrToFloat(Edit_B2133.Text)+
                        StrToFloat(Edit_W2144.Text)*StrToFloat(Edit_B2143.Text)+
                        StrToFloat(Edit_W2155.Text)*StrToFloat(Edit_B2153.Text)
                        )*1000
                       )
                      )/1000
                     );
   self.Edit__B214.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W2111.Text)*StrToFloat(Edit_B2114.Text)+
                        StrToFloat(Edit_W2122.Text)*StrToFloat(Edit_B2124.Text)+
                        StrToFloat(Edit_W2133.Text)*StrToFloat(Edit_B2134.Text)+
                        StrToFloat(Edit_W2144.Text)*StrToFloat(Edit_B2144.Text)+
                        StrToFloat(Edit_W2155.Text)*StrToFloat(Edit_B2154.Text)
                        )*1000
                       )
                      )/1000
                     );
   self.Edit__B215.Text:=FloatToStr(
                     (Round
                      (
                       (StrToFloat(Edit_W2111.Text)*StrToFloat(Edit_B2115.Text)+
                        StrToFloat(Edit_W2122.Text)*StrToFloat(Edit_B2125.Text)+