Курсовая работа: Оценка параметрической надежности РЭС с использованием моделирования на ЭВМ постепенных отказов
a2=-0.3565638;
a3=1.781478;
a4=-1.821256;
a5=1.330274;
p=0.2316419;
BEGIN
IF F>=0 THEN
BEGIN
w: =1-exp (-sqr (F) /2) * (1/sqrt (2*3.14)) * (
a1* (1/ (1+p*F)) +
a2* (1/ (1+p*F)) * (1/ (1+p*F)) +
a3* (1/ (1+p*F)) * (1/ (1+p*F)) * (1/ (1+p*F)) +
a4* (1/ (1+p*F)) * (1/ (1+p*F)) * (1/ (1+p*F)) * (1/ (1+p*F)) +
a5* (1/ (1+p*F)) * (1/ (1+p*F)) * (1/ (1+p*F)) * (1/ (1+p*F)) * (1/ (1+p*F)));
Fx: =w;
END
ELSE
BEGIN
F: =-F;
w: =1-exp (-sqr (F) /2) * (1/sqrt (2*3.14)) * (
a1* (1/ (1+p*F)) +
a2* (1/ (1+p*F)) * (1/ (1+p*F)) +
a3* (1/ (1+p*F)) * (1/ (1+p*F)) * (1/ (1+p*F)) +
a4* (1/ (1+p*F)) * (1/ (1+p*F)) * (1/ (1+p*F)) * (1/ (1+p*F)) +
a5* (1/ (1+p*F)) * (1/ (1+p*F)) * (1/ (1+p*F)) * (1/ (1+p*F)) * (1/ (1+p*F)));
Fx: =1-w;
END ;
END ;
Определение величины смещения параметров m = M (z) и s = s (z) с учётом коэффициента парной корреляции в соответствии с формулами (2.2) и (2.3) в программе реализовано следующим образом: