delphi 查找6个数是否超过其平均值的±10%，用于水泥检测计算胶砂强度。

2023-11-15 11:43:23 502 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

InfiniteTalk (Wan2.1) 数字人 A800 落地实战：从依赖地狱到完美运行的保姆级指南摘要：本文详细记录了在A800(80GB)服务器上部署InfiniteTalk开源数字人项目的完整流程。该项目基于阿里Wan2.1视频生成模型，支持无限时长流式生成，但环境配置极其复杂。作者总结了18个关键问题点，包括Python版本冲突、CUDA算子缺失等，并提供了黄金配置方案：使用Python3.10+PyTorch2.5.1环境，精准控制FlashAttention等核心库版本，以及针对A800的显存优化策略。最终实现480P视频30秒/步的生成速度，相比默认配置提升3.7倍性能。阅读详情

procedure Tshuini.btn1Click(Sender: TObject);
var
  i,j,l,m,x,y:Integer;
  KYarray,kyarray1:array of Real;
  kyqz,pjz,pjz1,pjz2,pjz3,A1,A2,A3,A4:Real;
begin
  KYarray:= nil;
  SetLength(KYarray,6);
  KYarray[0]:=StrToFloat(edt25.Text);
  KYarray[1]:=StrToFloat(edt26.Text);
  KYarray[2]:=StrToFloat(edt27.Text);
  KYarray[3]:=StrToFloat(edt28.Text);
  KYarray[4]:=StrToFloat(edt29.Text);
  KYarray[5]:=StrToFloat(edt30.Text);
  pjz:=RoundTo((KYarray[0]+KYarray[1]+KYarray[2]+KYarray[3]+KYarray[4]+KYarray[5])/6 ,-1);
  pjz2:=1.1*pjz ;
  pjz3:=0.9*pjz ;
   L:=0;
  m:=0;
  A1:=0;
  A2:=0;
  A3:=0;
  x:=0;
  y:=0;
   for i:=0 to 5 do
  begin
   A1:=A1+KYarray[i];
   if (KYarray[i] > pjz3) and (KYarray[i] < pjz2) then
    begin
    edt21.Text:=FloatToStr(RoundTo((A1/6),-1));
    end
     else
     If (KYarray[i]> pjz2) or (KYarray[i]< pjz3)  then
    begin
      A2:=A2+KYarray[i];
      m:=m+i;
      L:=L+1;
      case L of
      1:
       begin
         for j:=0 to 6 do
          begin
          if j=i then  Continue
          else
          begin
           A3:=A3+KYarray[j];
           A4:=RoundTo(A3/5 ,-1);
           edt21.Text:=FloatToStr(a4);
           end;
           if(KYarray[i]> A4*0.9) or (KYarray[i]< a4*1.1)   then  edt21.Text:=FloatToStr(a4)
           else
            edt21.Text:='无效值' ;
           end;
           end;
      2: edt21.Text:='作废';
      end;
      end ;
      end;
      end;

...全文