SHARE
TWEET

Untitled

a guest Dec 3rd, 2019 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. n = 1;
  2. Summa = 0;
  3. while Summa <= n
  4.     n = n+0.05;
  5.     Summa = 0;
  6.     for i = 1:n
  7.         Summa = Summa + (2^i-i)/factorial(i);
  8.     end
  9. end
  10.  
  11.  
  12.  
  13.  
  14. function Answer = FirstFunction(x,n)
  15.     ResultSum = 0;
  16.     for i = 1:n
  17.         ResultSum = ResultSum + SecondFunction(x,i);
  18.     end
  19.     Answer = (1/5)*(x^2+x^(1/3))*ResultSum-0.5;
  20.  
  21. end
  22.  
  23.  
  24. function f = SecondFunction(x,k)
  25.     f = (x^(k-1))/(abs(log(k*x^2+0.1))+2/3);    
  26. end
  27.  
  28. a = input('Введите а ');%левая граница
  29. b = input('Введите b '); %правая граница
  30.  
  31. NumberOfDots = input('Введите количество точек ');  % количество точек между границами
  32.  
  33. n = input('Введите n '); % число членов суммы
  34. Step = (b-a)/NumberOfDots; % шаг по оси x
  35. ArrayOfAnswers(1:8) = 0; % массив ответов
  36. j = 0; % счетчик внутренний
  37. NumberPeres = 0; % число пересечений с осью x
  38.  
  39. % вычисляет функцию в каждой точке
  40. for i = a:Step:b
  41.     j = j + 1;
  42.     ArrayOfAnswers(j) = FirstFunction(i,n);
  43. end
  44. % построение графика
  45. figure;plot(a:Step:b,ArrayOfAnswers,'-o');
  46. grid on;
  47.  
  48. % расчет пересечений с осью X
  49. SignArray = sign(ArrayOfAnswers);
  50. for i = 1:length(SignArray)-1
  51.     if SignArray(i+1) ~= SignArray(i) && SignArray(i+1) ~= 0
  52.         NumberPeres = NumberPeres + 1;    
  53.     end
  54. end
  55.  
  56.  
  57.  
  58.  
  59. a = 0
  60. b = 1.5
  61. n1 = 7;
  62. n2 = 3;
  63. Step = 0.01;
  64. j = 0; % счетчик внутренний
  65. % вычисляет функцию в каждой точке
  66. for i = a:Step:b
  67.     j = j + 1;
  68.     ArrayOfAnswers1(j) = FirstFunction(i,n1);
  69. end
  70. j = 0;
  71. for i = a:Step:b
  72.     j = j + 1;
  73.     ArrayOfAnswers2(j) = FirstFunction(i,n2);
  74. end
  75. % построение графика
  76. figure;plot(a:Step:b,ArrayOfAnswers1);
  77. grid on;
  78. hold on;
  79. plot(a:Step:b,ArrayOfAnswers2);
  80. legend('n=7','n=3');
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top