По результатам расчета надежности схемы увязки можно сделать вывод, что при работе в нормальном режиме и правильной эксплуатации она обладает достаточно высокой точностью.
Программа по расчету надежности схемы увязки на ЭВМ.
Расчет надежности с помощью ЭВМ производился по следующей программе, написанной на языке программирования Pascal:
Program Nadeg;V, I, Z: longint;, LL, II:array [1 5] of real;:array [1 200] of real;, S0, T, P: real;:string;:text;(lst, 'result.txt'); rewrite(lst);:=0;[1]:=12; LL[1]:=6.00e-8;[2]:=5; LL[2]:=1.32e-7;[3]:=3; LL[3]:=2.50e-7;[4]:=2; LL[4]:=2.50e-7;[5]:=44; LL[5]:=8.40e-9;('коэффициент нагрузки K='); readln(K);
write ('время наработки V='); readln(V);
str (k, s1); writeln (lst, 'коэффициент нагрузки K='+s1);(V, s1); writeln (lst, 'время наработки V='+s1);(lst, 'I=1-резистор; I=2-конд-р; I=3-транзистор;',
'I=4-индуктивность; I=5-пайка');
writeln (lst, 'введем количество элементов N(I)');(lst, 'введем интенсивность отказов L(I)');
for I:=1 to 5 do begin(lst, 'I=', I, ' N(I)=', NN[I]:5:0, ' L(I)=', LL[I]:10);[I]:=NN[I]*LL[I];:=S0+II[I];;; writeln;(lst, 'время безотказной работы');:=1/(K*S0);(lst, ' T=', T:1:1);
writeln (lst, 'вероятность и время наработки (час)');
for Z:=0 to (V DIV 1000) do begin:=exp (-K*S0*Z*1000);(lst, ' P=', P:1:6, ' Z=', Z*1000);;
close(lst);.
Самое читаемое:
Автоматизированная система управления электроэрозионного станка на базе контроллеров фирмы Siemens
В
современных условиях совершенствования производства необходимо наличие на
современных предприятиях новых технических систем, которые несут в себе
различные свойства улучшения работоспособности и увеличение производительности.
На сегодняшний день перед руководителями технических предприятий стоит вопрос о
поднятии производственног ...