93, -0.758876, 2.122195, -0.671525, 0.783732, -0.290884, 0.169452, -0.031227, 0.003612, 0.004705
Середньоквадратична помилка (У%) = 0.0010484%
Сума коефіцієнтів фільтра = 0.9999861
Фільтр N 13, KF = 15, вуст. Веннера, (W-14), Шевнин. KF = 15, KTM = 7, ALFA = 1.14, M = 9. p align="justify"> .0060761, 0.0776724, -0.4517604, 1.2470370, -0.9712197, -1.1451320, 0.4341175, 0.7623470, 0.7153097, 0.0463033, 0.3228741, -0.1333170, 0.1333268, -0.0497029, 0.0181955
Середньоквадратична помилка (У%) = 0.00079071%
Сума коефіцієнтів фільтра = 0.9999747 = 1.14/1.5. На Заході криві ВЕЗ для вуст. Веннера будують в координатах
r К = F (a = AB/3!), а не АВ/2. У нас - AВ/2, звідси коеф. 1.5 в ALFA, без нього - (AB/3 = a), з ним (AB/2).
Фільтр N 14, KF = 20, вуст. ДОЗ, (D-16), Шевнин. KF = 20, KTM = 7, ALFA = 1.135, M = 14. p align="justify"> .0000130, 0.0022634, -0.0213047, 0.1154131, -0.4859322, 1.7711440, -5.4590220, 12.2481200, -15.54753, 6.9440900, 0.3930209, 1.7350750, -0.8505089, 0.3898381,
.2843019, 0.0915451, -0.0438194, 0.0022785, 0.0017841, -0.0021373
Середньоквадратична помилка (У%) = 0.00075535%
Сума коефіцієнтів фільтра = 1.00000800
Фільтр N 15, KF = 25, потенціал - установка AМ, (U-14), Шевнин. KF = 25, KTM = 7, ALFA = 1.75, M = 9. p align="justify"> .021050, - .227701, 0.930814, -1.523978, 1.010370, -1.427002, 2.077722, -1.872570, 2.660787, -2.567381, 3.158133, -3.199600, 3.597916, -3.667092, 3.881488, -3.868526, 3.862603, -3.656208, 3.360556, -2.868746, 2.263495, -1.553329, 0.883808, -0.361660, 0.084523
Середньоквадратична помилка (У%) = 0.00587683%
Сума коефіцієнтів фільтра = 0.99947610
Фільтр N 16, KF = 20, вуст. з лінійними електродами, (L-7), Шевнин. KF = 20, KTM = 7, ALFA = 1.1415, M = 8. p align="justify"> .053496, -0.548818, 2.188049, -3.575252, 1.976495, -1.514297, 2.494498, -1.378438, 1.746731, -1.155709, 1.093076, -0.752920, 0.585868, -0.368543, 0.229502, -0.110088, 0.043526 , -0.007170, -0.001801, 0.001788
Середньоквадратична помилка (У%) = 0.0011447%
Сума коефіцієнтів фільтра = 0.9999945
Лістинг програми
Розрахунок уявного опору від розносу
Dim Rho (4) As DoubleH (3) As DoubleNS As IntegerNR As Integer = TextBox11.Text = TextBox13.TextKF As IntegerKTM As IntegerAlfa As DoubleM As Doubleq As Double = 15rhok (NR - 1, KF - 1) As DoubleG (KF - 1) As Double (0) = -0.015821 (1) = 0.203596 (2) = -1.222006 (3) = 3.856356 (4) = -5.567616 (5) = 2.414293 (6) = - 0.758876 (7) = 2.122195 (8) = -0.671525 (9) = 0.783732 (10) ...