Отказы технических систем из-за дефектов изготовления и нарушений режимов эксплуатации; многие современные потенциально опасные производства спроектированы так, что вероятность крупной аварии на них весьма высока и оценивается величиной риска 10-4 и более; ошибочные действия операторов технических систем; статистические данные показывают, что более 60% аварий произошло в результате ошибок обслуживающего персонала; концентрация различных производств в промышленных зонах без должного изучения их взаимного влияния; высокий энергетический уровень технических систем; внешние негативные воздействия на объекты энергетики, транспорта и др.
Using System; namespace Test{ class Program { static double F(double x) { return Math.Sin(x); } static double NewtonCotesOpen4(double a, double b) { const int n = 4; double[] c = {2.0, -1.0, 2.0 }; const double K = 3.0; double h = (b - a) / n; double res = 0; double x; for(int i = 1; i <= n - 1; i++) { x = a + i * h; res += c[i - 1] * F(x); } return res * (b - a) / K; } static double SumSubIntervals(double a, double b, int n) { double res = 0; double h = (b - a) / n; for(int i = 1; i <= n; i++) { res += NewtonCotesOpen4(a + (i - 1) * h, a + i * h); } return res; } static void Main(string[] args) { double a = 0; double b = Math.PI; double EPS = 0.00001; int n = 1; double lcur = SumSubIntervals(a, b, n); double lpre; do { lpre = lcur; n *= 2; lcur = SumSubIntervals(a, b, n); Console.WriteLine("l={0} при n={1} e={2}", Math.Round(lcur, 8), n, Math.Round(Math.Abs(lcur - lpre), 8)); } while (Math.Abs(lcur - lpre) < EPS); Console.WriteLine(""); Console.WriteLine("l={0} при n={1} e={2}", Math.Round(lcur, 8), n, Math.Round(Math.Abs(lcur - lpre), 8)); } }}
