ustify"> U1:=U1 + random;
end;
U1:=U1-6;
U1:=U1 * 0.0016 + 0.25;
if ((U1 lt; 0.245) or (U1 gt; 0.255)) then
goto 1
else begin strngrd1.Cells [3, i]:=floattostrf (U1, ffFixed, 5,5) end;
: R2:=0;
for b:=1 to 12 do begin:=R2 + random;
end;
R2:=R2-6;
R2:=R2 * 180 + 5600;
if ((R2 lt; 5040) or (R2 gt; 6160)) then
goto 2
else begin strngrd1.Cells [2, i]:=floattostrf (R2, ffFixed, 5,1) end;
: U2:=0;
for b:=1 to 12 do begin
U2:=U2 + random;
end;
U2:=U2-6;
U2:=U2 * 0.0005 + 0.15;
if ((U2 lt; 0.1485) or (U2 gt; 0.1515)) then
goto 3
else begin strngrd1.Cells [4, i]:=floattostrf (U2, ffFixed, 5,5) end;
Uv:=(U1-U2) * (1+ (R2/R1));
strngrd1.Cells [5, i]:=FloatToStrf (Uv, ffFixed, 5,5);
m0:=m0 + Uv;
end;
m0:=m0/N1;
sko:=0;
for i:=1 to N1 do
begin
sko:=sko + power ((StrToFloat (strngrd1.Cells [5, i]) - m0), 2);
end;
sko:=Sqrt (sko/(N1-1));
delta:=((5/100) * m0) * 0.03;
N:=Round ((4 * power (sko, 2))/power (delta, 2));
dop:=(sko * 3/m0) * 100; .Lines.Add ( Математичне сподівання= + floattostrf (m0, ffFixed, 5,4));
mmo1.Lines.Add ( СКО= + floattostrf (sko, ffFixed, 5,4));
mmo1.Lines.Add ( N= + floattostr (N));
mmo1.Lines.Add ( Допуск=+ - + floattostrf (dop, fffixed, 5,4) + % ) ;; TForm1.btn2Click (Sender: TObject) ; .Clear; .Clear;
end;.
Протокол виконання програми
Протокол виконання програми представлений на рисунку А.1.
Рисунок А.1 - Протокол виконання програми на ЕОМ
СХЕМА
Рисунок А.2 - Схема каскаду
Математична модель вихідного параметра y:
