Совершенствование методов обоснования выборки в аудиторской проверке (1142757), страница 48

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 48)

Автоматизированный расчетный алгоритм по нахождению максимума целевойфункции метода оценки искажений «Модифицированные полиномиальных границы».Применяя модифицированные полиномиальные границы, аудитор кластеризуетобнаруженные искажения, что оптимизирует матрицу исходов ошибок и значительноупрощает ее. Это позволяет работать с большим числом искажений. Для этогонеобходимо внести специальные изменения в функцию, генерирующую матрицуисходов ошибок.

Предположим, в ходе аудиторской проверки обнаружено 6 ошибок(коэффициентов искажений) в размере 10, 15, 16, 20, 30, 40 (в процентах), тогдааудитор может их объединить в три кластера ошибок по 15:15, 20:20, 40:40. Используяранее рассмотренный расчетный алгоритм в программе Wolfram Mathematica, внесем внего необходимые изменения:Clear["Global`*"] searches = 10; cl = 3;(*число кластеров*) Y = 10000000; n = 56; t = Sort[{15, 20, 40}];(*коэффициенты искажений*) r = Reduce[Subscript[p, 0] >= 0 && Subscript[p, 1] >= 0 && Subscript[p, 2] >= 0 && Subscript[p, 3] >= 0 && Subscript[p, 100] >= 0, Append[Table[Subscript[p, x], {x, 0, m ‐ cl}], Subscript[p, 100]]] // Quiet; bb = 1/20; (*уровень риска выборки*) m = Length[t] + cl;(*количество ошибок*) v[sum_] := If[sum >= 6, 1, 0]*t[[1]] + If[sum >= 5, 1, 0] t[[1]] + If[sum >= 4, 1, 0]*t[[2]] + If[sum >= 3, 1, 0] t[[2]] + If[sum >= 2, 1, 0] t[[3]] + If[sum >= 1, 1, 0] t[[3]]; (*логическая функция для удаления строк матрицы исходов ошибок несоответствующим условиям*) h[sum_] := t # & /@ Flatten[Permutations /@ IntegerPartitions[sum, {m ‐ cl}, Range[0, sum]], 1]; g[sum_] := Select[Join[h[sum], List /@ Total[h[sum], {2}], 2], 244 #[[m + 1 ‐ cl]] <= v[sum] &]; f[sum_] := Join[List /@ Table[n ‐ sum, Length[g[sum]]], g[sum], 2] // MatrixForm; (*функции генерации матрицы исходов ошибок*) … matx = Join[Sequence @@ Table[f[x], {x, 0, m}], 2]; list0 = matx[[1, All, 1 ;; 1]]; list199 = Table[1/t[[x]] matx[[1, All, x + 1 ;; x + 1]], {x, m ‐ cl}]; list100 = 0*matx[[1, All, m + 2 ‐ cl ;; m + 2 ‐ cl]]; (*Начало алгоритма множественного случайного поиска*) … (*Конец алгоритма множественного случайного поиска*) d = Total[ Sum[n!/Subscript[z, 100]!*Subscript[p, 100]^Subscript[z, 100]* Product[Subscript[p, x]^Subscript[z, x]/Subscript[z, x]!, {x, 0, m ‐ cl}], {Subscript[z, 0], {list0}}, Evaluate[Sequence @@ Table[{Subscript[z, x], {list199[[x]]}}, {x, m ‐ cl}]], {Subscript[z, 100], {list100}}]]; r = Reduce[ Sequence @@ Table[Subscript[p, x] >= 0, {x, 0, m ‐ cl}] && Subscript[p, 100] >= 0, Append[Table[Subscript[p, x], {x, 0, m ‐ cl}], Subscript[p, 100]]];(*ограничения целевой функции*)q = AbsoluteTiming[iMin[‐Y/100*(Total[Table[t[[x]] Subscript[p, x], {x, m ‐ cl}]] + 100*Subscript[p, 100]), List @@ (Total[Table[Subscript[p, x], {x, 0, m ‐ cl}]] + Subscript[p, 100] == 1 && r && (Sequence @@ d) == bb), Thread[{Append[Table[Subscript[p, x], {x, 0, m ‐ cl}], Subscript[p, 100]], 0, 1}], searches, 0] // N] s = Append[Table[Subscript[p, x] /. Last[q[[2]]], {x, 0, m ‐ cl}], Subscript[p, 100] /. Last[q[[2]]]]; FindMaximum[{Y/ 100*(Total[Table[t[[x]] Subscript[p, x], {x, m ‐ cl}]] + 100*Subscript[p, 100]), Total[Table[Subscript[p, x], {x, 0, m ‐ cl}]] + Subscript[p, 100] == 1 && r && (Sequence @@ d) == bb}, Thread[{Append[Table[Subscript[p, x], {x, 0, m ‐ cl}], Subscript[p, 100]], s}]] Dimensions[matx[[1]]] 5.

Автоматизированный расчетный алгоритм для границ Лесли.Clear["Global`*"] f[m_] := p /. First@NSolve[Sum[PDF[PoissonDistribution[p], i], {i, 0, m}] == a && p > 0, p]; uel[m_] := If[m == 0, f[m], Max[uel[m ‐ 1] + t[[m]], f[m]*Total[t]/m]]; Y = 10000000; n = 60; t = Sort[{0.20, 0.25, 0.10}]; m = Length[t]; a = 0.05; Y/n*uel[m] 6. Автоматизированный расчетный алгоритм для моментных границ (границ пометоду моментов гамма-распределения). Данный метод позволяет включать в оценкукоэффициенты искажений разные по знаку.Clear["Global`*"] Y = 10000000; n = 60; b = 0.05; list = Sort[{0.10, 0.25, 0.25}]; m = Length[list]; z = Quantile[NormalDistribution[0, 1], (1 ‐ b)]; tk = 0.81 (1 ‐ 0.667 Tanh[10*Total[list]/m]) (1 + 0.667 Tanh[m/10]); tn1 = (tk + Total[list])/(m + 1); tn2 = (tk^2 + Total[list^2])/(m + 1); tn3 = (tk^3 + Total[list^3])/(m + 1); rn1 = (m + 1)/(n + 2); rn2 = (m + 2)/(n + 3) rn1; 245 rn3 = (m + 3)/(n + 4) rn2; un1 = rn1*tn1; un2 = (rn1*tn2 + (n ‐ 1) rn2*tn1^2)/n; un3 = (rn1*tn3 + 3 (n ‐ 1) rn2*tn1*tn2 + (n ‐ 1) (n ‐ 2) rn3*tn1^3)/n^2; uc1 = un1; uc2 = un2 ‐ un1^2; uc3 = un3 ‐ 3 un1*un2 + 2 un1^3; a = 4 uc2^3/uc3^2; b = 0.5 uc3/uc2; g = un1 ‐ 2 uc2^2/uc3; w = g + a*b (1 + z/Sqrt[(9 a)] ‐ 1/(9 a))^3; d = Y*w 7.

Оценка среднего на денежную единицу с дисперсионной поправкой Робаха.Clear["Global`*"] z[a_] := Quantile[NormalDistribution[0, 1], (1 ‐ a)]; Y = 10000000; n = 56; t = {0.1, 0.15, 0.16}; a = 0.05; m = Length[t] t1 = ConstantArray[0, n]; t2 = Drop[Join[t, t1], ‐m]; t3 = Table[(1 ‐ t2[[x]])^2, {x, 1, Length[t2]}]; T = Y*Mean[t2]; S = Sqrt[Y*(Y ‐ n)/n*(Total[t3]/n ‐ (2 ‐ 2.7/n)*0.5 (Total[t3]/n ‐ Variance[t2]))]; UB = {T ‐ z[a]*S, T + z[a]*S} Байесовские методы оценки искажений в монетарной выборке8. Автоматизированный расчетный алгоритм для параметрического метода оценкиКокса и Снеля.Clear["Global`*"] Y = 10000000; n = 56; \[Alpha] = 0.05; t = Sort[{0.10, 0.15, 0.16}]; m = If[t[[1]] == 0, 0, Length[t]]; cs10 = {0.1, 0.1, 0.4, 0.2}; set = cs10; p = set[[1]]; \[Sigma]p = set[[2]]; u = set[[3]]; \[Sigma]u = set[[4]]; a = (p/\[Sigma]p)^2; b = (u/\[Sigma]u)^2 + 2; cox = Y*((m*Mean[t] + (b ‐ 1) u)/(a/p + n))*((m + a)/(m + b)) Quantile[FRatioDistribution[2 (m + a), 2 (m + b)], 1 ‐ \[Alpha]] 9.

Автоматизированный расчетный алгоритм для параметрического метода«Дирихле-полиномиальные границы».Clear["Global`*"] Y = 10000000; n = 56; \[Alpha] = 0.05; t = Sort[{10, 15, 16}, Greater]; (*коэффициенты искажений*) z = {1, 1, 1}; z0 = 100 ‐ Total[z]; (*количество одинаковых коэффициентов искажений*) v = Length[t]; k = 5; p0 = 0.8; p100 = 0.101; pi = 0.001; k' = k + n; p0' = (k*p0 + z0)/k'; p199' = Table[(k*pi + z[[x]])/k', {x, v}]; 246 pi' = (k*pi)/k'; p100' = k*p100/k'; x1 = ReplacePart[Table[j, {j, 100}], {100 ‐> 100*p100'/pi'}]; x2 = ReplacePart[Table[j, {j, 100}], {100 ‐> 100*Sqrt[p100'/pi']}]; o1 = ReplacePart[Table[j, {j, 100}], {Sequence @@ Table[t[[x]] ‐> t[[x]]*p199'[[x]]/pi', {x, v}], 100 ‐> 100*p100'/pi'}]; o2 = ReplacePart[Table[j, {j, 100}], {Sequence @@ Table[t[[x]] ‐> t[[x]]*Sqrt[p199'[[x]]/pi'], {x, v}], 100 ‐> 100*Sqrt[p100'/pi']}]; h1 = If[t[[1]] == 0, x1, o1]; h2 = If[t[[1]] == 0, x2, o2]; (*x1,x2 и o1,o2 выбор функции расчета как для случая необнаружения искажений, так и когда искажения обнаружены*) eu = Total[Sum[i*pi'/100, {i, {h1}}]]; vd = (Total[Sum[(i/100)^2*pi', {i, {h2}}]] ‐ eu^2)/(k' + 1); a = eu (eu (1 ‐ eu)/vd ‐ 1); b = (1 ‐ eu) (eu (1 ‐ eu)/vd ‐ 1); d = Y*Quantile[BetaDistribution[a, b], 1 ‐ \[Alpha]] 10.

Расчетный алгоритм для квазибайесовского метода МакКрейя. Данный методпозволяет включать в оценку коэффициенты искажений разные по знаку.Clear["Global`*"] n = 56; Y = 10000000; st = 10000; o1 = ‐50; o2 = 60; d1 = {10, 15, 16}; z1 = {1, 1, 1}; d2 = {5, 10, 0}; z2 = {1, 2, 0}; q = Table[NMaximize[{n!/((n ‐ Total[z1] ‐ Total[z2])!*z1[[1]]!* z1[[2]]! z1[[3]]! z2[[1]]!*z2[[2]]!*z2[[3]]!)* p0^(n ‐ Total[z1] ‐ Total[z2])*ap1^z2[[1]] ap2^z2[[2]]* p1^z1[[1]]*p2^z1[[2]]*p3^z1[[3]], Reduce[{p0 + p1 + p2 + p3 + p100 + ap1 + ap2 + ap100 == 1 && (1/100)*Y*(‐100 ap100 ‐ d2[[2]]*ap2 ‐ d2[[1]]*ap1 + d1[[1]]*p1 + d1[[2]]*p2 + d1[[3]]*p3 + 100*p100) == st*o}, {p0, p1, p2, p3, p100, ap1, ap2, ap100}, Reals, Backsubstitution ‐> True] && p0 >= 0 && p1 >= 0 && p2 >= 0 && p3 >= 0 && p100 >= 0 && ap1 >= 0 && ap2 >= 0 && ap100 >= 0 && 1 >= n!/((n ‐ Total[z1] ‐ Total[z2])!*z1[[1]]!* z1[[2]]! z1[[3]]! z2[[1]]!*z2[[2]]!*z2[[3]]!)* p0^(n ‐ Total[z1] ‐ Total[z2])*ap1^z2[[1]] ap2^z2[[2]]* p1^z1[[1]]*p2^z1[[2]]*p3^z1[[3]] >= 1/10^6}, {p0, p1, p2, p3, p100, ap1, ap2, ap100}, Method ‐> {"DifferentialEvolution", "ScalingFactor" ‐> 0.5}], {o, o1, o2}]; to = Total[q[[All, 1]]] m = Transpose[ Join[{Table[st*o, {o, o1, o2}], q[[All, 1]], q[[All, 1]]/to, Accumulate[q[[All, 1]]/to]}, 1]] // MatrixForm ListPlot[Transpose[ Join[{Accumulate[q[[All, 1]]/to], Table[st*o, {o, o1, o2}]}, 1]], PlotStyle ‐> RGBColor[0.02`, 0.48`, 0.06`], Filling ‐> None, ImageSize ‐> 500, PlotTheme ‐> "Detailed", FrameLabel ‐> {p, D}, RotateLabel ‐> {True, False}, Joined ‐> True, InterpolationOrder ‐> 10, LabelStyle ‐> {FontFamily ‐> "Times New Roman", 14, GrayLevel[0], 247 Italic}] Export["mfile3.xls", m, "XLS"] Когдавсовокупностиприсутствуюттолькоположительныеилиотрицательные коэффициенты искажений, аудитору необходимо добавить функциюcon[o_]:=If[o==0,0,1];валгоритммаксимизации целевой функции какиизменитьдополнительноеограничение1 >= n!/((n ‐ Total[z1])!*z1[[1]]!*z1[[2]]! z1[[3]]!*p0^(n ‐ Total[z1])* p1^z1[[1]] *p2^z1[[2]] *p3^z1[[3]] >=1/10^6*con[o].Даннаякорректировка необходима по причине того, что функция правдоподобия не можетиметь значение отличное от нуля, когда в совокупности обнаружены толькоположительные или только отрицательные коэффициенты искажений и параметрсостояния общего искажения равен нулю.

Точное значение по оценке верхнего инижнего предела искажений находится благодаря линейной интерполяции двухближайших значений параметра и значений кумулятивных вероятностей, впрограмме Wolfram Mathematica она может быть выполнена с помощью функцииRescale, например, как:Rescale[0.95, {0.948125, 0.952115}, {370000, 380000}] // AccountingForm При необходимости аудитор может внести изменения в расчетные алгоритмы сцелью их оптимизации.248 Приложение В(информационное)Автоматизированный расчетный алгоритм для вычисления нижней предельнойошибки, при использовании метода «Полиномиальные границы»Clear["Global`*"] searches = 20; Y = 1000000; n = 101; t = Sort[{25, 75}]; bb = 1/20; m = Length[t]; v[sum_] := If[sum == 0 && 1 && 2, 0, 1] (sum ‐ m) t[[1]] + Total[Table[t[[x]], {x, m}]]; h[sum_] := t # & /@Flatten[Permutations /@ IntegerPartitions[sum, {m}, Range[0, sum]], 1]; g[sum_] := Select[Join[h[sum], List /@ Total[h[sum], {2}], 2], #[[m+1]] >= v[sum] &]; f[sum_] := Join[List /@ Table[n ‐ sum, Length[g[sum]]], g[sum], 2] // MatrixForm; Needs["IPOPTLink`"]; ipconsrl = { ( a_ == b_ ) ‐> LessEqual[0, a ‐ b, 0], ( a_ <= b_ ) ‐> LessEqual[‐\[Infinity], a ‐ b, 0], (a_ >= b_ ) ‐> LessEqual[0, a ‐ b, \[Infinity]] }; iminsetup[cons_List, vlus_List] := Block[{vars, lbubs, cfuns, clbubs, lb, ub}, {vars, lbubs} = Transpose[vlus /. {v_, lb_?NumericQ, ub_?NumericQ} :> {v, {lb, ub}}]; {cfuns, clbubs} = Transpose[cons /. ipconsrl /. LessEqual[lb_, v_, ub_] ‐> {v, {lb, ub}} ]; {vars, lbubs, cfuns, clbubs} ]; statusrl = {0 ‐> "Solve_Succeeded", 1 ‐> "Solved_To_Acceptable_Level", 2 ‐> "Infeasible_Problem_Detected", 3 ‐> "Search_Direction_Becomes_Too_Small", 4 ‐> "Diverging_Iterates", 5 ‐> "User_Requested_Stop", 6 ‐> "Feasible_Point_Found", ‐1 ‐> "Maximum_Iterations_Exceeded", ‐2 ‐> "Restoration_Failed", ‐3 ‐> "Error_In_Step_Computation", ‐4 ‐> "Maximum_CpuTime_Exceeded", ‐10 ‐> "Not_Enough_Degrees_Of_Freedom", ‐11 ‐> "Invalid_Problem_Definition", ‐12 ‐> "Invalid_Option", ‐13 ‐> "Invalid_Number_Detected", ‐100 ‐> "Unrecoverable_Exception", ‐101 ‐> "NonIpopt_Exception_Thrown", ‐102 ‐> "Insufficient_Memory", ‐199 ‐> "Internal_Error"}; createParam[obj_, cons_List, vlus_List, opts___] := Block[{vars, lbubs, cfuns, clbubs, params, param}, {vars, lbubs, cfuns, clbubs} = iminsetup[cons, vlus]; params = Table[param[i], {i, Length[vlus]}]; {ParametricIPOPTMinimize[obj, vars, params, lbubs, cfuns, clbubs, params, "RuntimeOptions" ‐> {"WarningMessages" ‐> False}, "IPOPTOptions" ‐> {"max_iter" ‐> 10^5, "tol" ‐> 10^‐10}, opts], lbubs} ]; iMin[param_, starts_List] := Block[{pres, status, listres, goodres, ord, bestres}, 249 pres = param @@@ starts; listres = {IPOPTMinValue[#], IPOPTArgMin[#], IPOPTReturnCode[#]} & /@ pres; IPOPTDataDelete /@ pres; status = listres[[All, 3]]; Print[Tally[status] /. {s_, n_Integer} :> { s /. statusrl, n}]; goodres = Select[listres, #[[3]] == 0 &]; ord = Ordering[goodres[[All, 1]]]; goodres[[First @ ord]] ]; iMin[obj_, cons_List, vwb_List, starts_List] := iMin[ createParam[obj, cons, vwb][[1]], starts]; genRands[lbubs_List, nrands_Integer, seed_Integer] := Block[{}, SeedRandom[seed]; Transpose[RandomReal[#, nrands] & /@ lbubs]]; iMin[paramlbs_, nrands_Integer, seed_Integer] := iMin[paramlbs[[1]], genRands[paramlbs[[2]], nrands, seed]]; iMin[obj_, cons_List, vwb_List, nrands_Integer, seed_Integer] := Block[{paramlbs = createParam[obj, cons, vwb], res}, res = iMin[paramlbs, nrands, seed]; {res[[1]], Thread[vwb[[All, 1]] ‐> res[[2]]]} ]; matx = Join[Sequence @@ Table[f[x], {x, m, n}], 2]; list0 = matx[[1, All, 1 ;; 1]]; list199 = Table[1/t[[x]] matx[[1, All, x + 1 ;; x + 1]], {x, m}]; list100 = 0*matx[[1, All, m + 2 ;; m + 2]]; d = Total[Sum[n!/Subscript[z, 100]!*Subscript[p, 100]^Subscript[z, 100]* Product[Subscript[p, x]^Subscript[z, x]/Subscript[z, x]!, {x, 0, m}], {Subscript[z, 0], {list0}}, Evaluate[Sequence @@Table[{Subscript[z, x], {list199[[x]]}}, {x, m}]], {Subscript[ z, 100], {list100}}]]; r = Reduce[Sequence @@ Table[Subscript[p, x] >= 0, {x, 0, m}] && Subscript[p, 100] >= 0, Append[Table[Subscript[p, x], {x, 0, m}], Subscript[p, 100]]]; q = AbsoluteTiming[ iMin[Y/100*(Total[Table[t[[x]] Subscript[p, x], {x, m}]] + 100*Subscript[p, 100]), List @@ (Total[Table[Subscript[p, x], {x, 0, m}]] + Subscript[p, 100] == 1 && r && (Sequence @@ d) == bb), Thread[{Append[Table[Subscript[p, x], {x, 0, m}], Subscript[p, 100]], 0, 1}], searches, 0] // N] s = Append[Table[Subscript[p, x] /. Last[q[[2]]], {x, 0, m}] , Subscript[p, 100] /. Last[q[[2]]]]; FindMinimum[{Y/ 100*(Total[Table[t[[x]] Subscript[p, x], {x, m}]] + 100*Subscript[p, 100]), Total[Table[Subscript[p, x], {x, 0, m}]] + Subscript[p, 100] == 1 && r && (Sequence @@ d) == bb}, Thread[{Append[Table[Subscript[p, x], {x, 0, m}], Subscript[p, 100]], s}]] // AccountingForm Dimensions[matx[[1]]] 250 Приложение Г(информационное)Дебиторская задолженность расчетов с покупателями для проведениясимуляционных испытаний методов отбора аудиторской выборкиТаблица Г.1 – Совокупность элементов по 62 счету «Расчеты с покупателями»Наименование счета бухгалтерского учета идебитора62 счет "Расчеты с Покупателями"Номерпокупателя123456789101112НомерсчетаНаименование ПокупателяRUAGRIWELL s.r.o.ALTERA LIMITEDAUCHAN SNC OIABERTEC PROPERTIES L.P.BLAZE TRADE LTDBranch of Sakhalin Energy investmentCompany Ltd.Cetracore Energy GmbHCJSC Kumtor Gold CompanyCOFCO RESOURCES SASDan-Bunkering Ltd.DOW EUROPE GMBH HORGENDVIG ZAOСуммаВалютаЗадолженностьв валютеинвойсаВ рублях6262626262EUREUREUREUREUR735,131 222,34733,742 077,745 984,5450 024,1383 781,8750 895,30142 919,63410 795,9362626262626262EUREUREUREUREUREUREUR45 186,8510 044,281 890,006 312,56354,002 195,9812,002 903 408,16693 666,31130 158,25436 163,8124 498,22150 697,47760,436262626262626262RUBRUBRUBRUBRUBRUBRUBRUB450 188,7911 013,3462 304,003 993 879,69267 626,8532 922,009 625,656 005 558,08450 188,7911 013,3462 304,003 993 879,69267 626,8532 922,009 625,656 005 558,0862USD360,0020 857,506262626262USDUSDUSDUSDUSD15 235,8414 330,6414 823,901 333,513 018,20897 673,92873 776,54873 671,0461 198,24176 744,00…695696697698699670671672106910701071107210731074ООО "Югинфлот"ООО "Югнефтехимтранзит"ООО "Югра Комплект"ООО "ЮжКузбассГРУ"ООО "Южный Центр Агрогрупп"ООО "Юнилевер Русь"ООО "Юнифиш"ООО "Ягуар Ленд Ровер"…F650401 ARYA-SGS QUALITYSERVICESF660101 SGS INSPECTION SERVICES(SAUDI ARABIA) LTDF671501 SGS GULF UAEF671503 SGS GULF LIMITED - IBCF671505 SGS GULF-CASPIANF690101 SGS KOREA CO LTDИсточник: составлено автором.251 Таблица Г.2 – Полная генеральная совокупность по 62 счету «Расчеты с покупателями» встоимостном выражении в рублевом эквиваленте, состоящий из 1074 операций50025837825089614292041079629034096936671301594361642449915069876176666626282729805014516722090133598113209534115861629686277601424695173800155036407963769937280756195502210869115141371512244945860541232070363888407931362412375524977678188504323537209578454725110623691054717576079895171772159476354273016940001896285212406513604587252280343799604685143596221600600259925252572656168107689341853786916265135024230302775713278506271459596047186552034238229197424801496939188159790421365032468414595732163768134588146137154958523364006075673532352089588140538936918469431529501797196296776914056993567922025849122036908128602423750022420014179230669216705178141812063522119921513901197779799121947011543601300004961318738628309105913522478637650233770708045252215521923600201778503727364615333625150043190218513209007116330217122362550130422656425036347058034442585943171263780354002649009524445331458441585991236644729532407025964497649174260516210842253925310205764261016135346415939336929188719106149159813984788212514584056283592782810624366088681847272589314697943959899165446953100016424516918451462304029966430517585423801161225063803787234526828919155279472765348644230034107381386351386351311521081059240650185595807005110266213441965743030434126384726451036757561098971294218540775731234303277712282258111454738461499890152708932734434783580027618244067316654457343516177853364484068440424803228586385827016202418172160454724003105088183686340603641947741340732116144743617359713952972629925371390824372881310012553387569142633225345699872926065515660425540562829225022390812004111698176177447876379490174764290842573460201648462650021830235935091084335411558444154585952098693109798837822302118318221802802671426724711610367732161026864892204848012084441817149270311523867242763222850308952113417578314377933540017449117462791555121721853167842427554419318882236794377015340865756711745784050897292633912386617187454541357232011872442311023325060416300567250033893461157634473316792856133132666211352593292299841851168827666611703192754881463444521204571842337517688051377356723645944708598102070027612266278897764177000660428812230103213820199155809589412572876549041064379382286062312082575351701425151764818820762269716708856865109032725700310738409291545369030724325961095527021061155461388003066926630631810872651819120661107029271110120129921107911453200149860182233139509462601283583210631554447205855917179236152625615167411921204861738020869142646436031768232964243464732158933327251775459950349541621044750029323110263486969489423441382715008524242506131120314301991365854165200035243772957101981157791830139260737574034567012341293347012508002965349454852000172305281050664580645018911014623043993880267627329229626143239015430162461878623834331852601593001680772437991527168109121443592784101187100629383160601146894747348860088114030852466665628156274662146871951705065289121345930178186997659036517100018414119294216181383108283179542124431036974278769719003294966121060291661474581535416231922115577865123475494209177540105914517308557858497716229993130011178819279313119768304551286213241843266651577014601321356659623545131760713867412938425745478101843887019933866590257932524972416969012146475286488125426329252119511526272819986508987189479266636150732273437401114621533572606334970127316983355146613975097191027828574788185865064453976333909754138957065914097219741314347544620597633140840822569712516227708468943130177195535518149155929559766592531471159638525035290293173614440321373961816573211663127191139943016867292681348516851845618679014769689736457119791301652661429327235578158869896732887240926016191517455002282591999022715182270575180715155221609491542352937511085244474949624123021367521681109208544293409433709965124658776969282171327402611021611722618599342896636013511363608100512924437222628554427552822615444676417513469561497064878616862234135949220739754719496810175928212403866948832959113523673472102112581326646563845803592560675923651184231568552804271981452434160395487217907297927820467298332315635777864493625557646561790356567824461874366751015274486952296138110774321859283835509959288432784614364281481711707437231475913151555124222747904514117493351778666417191738258501460099201128446337224103477515339307588149481980953844792962875231077167663114014955616167986289126733825227220858897674873777252 Продолжениетаблицы Г.2 1417742101558488667096320741392481554102209757113814119286516402011505112100334306125470426744816815019738801652029441618827133940335607210472034283410195230669137034461376691782108732318642340882604289176894176019532444186055790528697138493219854246368297184421408991332012700020486991093398401538385573363048152430883099387719939316146131506029520405920071846631482461812969210710322852110466228313107381405354923449447019169504161387644227420113929685527311766339337052861205520341121055227320755144213436439120874452644556263652944539968306691491587424682267521051292198316811068513077951874349393171336860934785402074382Источник: составлено автором.197373708001747512990641772635579476559660717028498798218304388922336459036104161180030135019538743426364379011236171155044752150634104832389400242743433479779427021011464183601163694720025121210393233798800068675325743170593429227687104861633010514152606582221664064902268710075125960720285001916605425371718784306005559118000349311323111710620090861482913322185260390893134217411907018611541886919317998412849601760623723044752701817272633310836681233708295885210164696269553306703572295126290169296306214427291157252333251951817399573259117710773987715309842540424494588555053464734583222892310768721457018842892420123863579580206138634406748780247765576343954439990646553525285378074630902681991896157854523866067178921544471305712223626148217039852337147056532543222170937332628803846147169272437630534687037001829612112810061611848047819092955085133587586264813119356855917636036393626927011848644034176353936144304333923563902781274931039301291885787367261199176744-.

Характеристики

Список файлов диссертации