ИСТИНА |
Войти в систему Регистрация |
|
ИПМех РАН |
||
Тема выступления от 17.04.2014 г. «Обобщенный метод RAS» (метод приближенной корректировки коэффициентов прямых затрат МОБа на прогнозный период) является продолжением и углублением темы доклада «Средство спасения великой России — ускоренная, оперативная индустриализация на основе квартальных и годовых мобилизационных планов» (17.04.2013 г.), сделанного автором на 6-й международной конференции «Инновационное развитие экономики России: региональное разнообразие». Автор в своем докладе от 17.04.2013 г. предложил ряд идей и предложений (это касается только темы доклада от 17.04.2014 г.): 1). Разработка квартальных и годовых материальных балансов в количестве порядка 30000*40000 видов, подвидов сырья, материалов, полуфабрикатов, руд, угля, топлива на уровнях страны, отдельных объединенных регионов внутри РФ, РФ-Белоруссии, РФ-Казахстан, промышленно-финансовых групп, больших организаций материально-технического снабжения. 2). Наведение оперативного, должного порядка в бухгалтерии учета (квартальных и годовых) производства, транспортировки и продажи, отдельных видов, подвидов сырья, материалов, полуфабрикатов, руд, угля, топлива, узлов, деталей, изделий, деловых услуг по всем технико-технологическим цепочкам (качественно - как в 1929-1953 гг. в СССР); 3). Разработка раз в 5 (6) лет (в начале каждой 5-летки (6-летки)) МОБ производства продукции размером не менее 110*110 в конечных ценах потребления. Модифицированный метод RAS (метод приближенной корректировки коэффициентов пря-мых затрат МОБ на прогнозный период) на основе эконометрической модели позволяет МОБ с t-го года переводить на (t+1)-й год. Автор доклада разработал обобщенный вариант этого метода и написал программу в пакетах LOTUS 1-2-3 и Quattro.Pro, а также применил его на практике в 1991 г. (впервые в СССР и РФ) на матрице размером 12*12 (множество всевозможных внутренних циклов порядка 800*950). Для применения этого метода для матрицы размером, например, 110*110 необходимо суперскоростные персональные компьютеры с несколькими математическими сопроцессорами, так как множество всевозможных внутренних циклов может быть порядка несколько десятков миллионов, если даже - не несколько десятков миллиардов. Конечная формула: A[i,j,(t+1)]= =R[i,j,(t+1)]*A[i,j,t]*S[i,j,(t+1)] Где A[i,j,(t+1)]-матрица коэффициентов прямых затрат (t+1)-го года в ценах конечного по-требления (эндогенная переменная) (размер n*n); A[i,j,t]-матрица коэффициентов прямых затрат (t)-го года в ценах конечного потребления (экзогенная переменная) (размер n*n); R[i,j,(t+1)]-это диагональная матрица (размер n*n) (эндогенная переменная); S[i,j,(t+1)]-это диагональная матрица (размер n*n) (эндогенная переменная). Экзогенные переменные (независимые, внешние переменные): X[i,(t+1)]-вектор-столбец валовой продукции (i)-х отраслей в тек. ценах; U[j,(t+1)]-вектор-столбец промежуточных затрат (j)-х отраслей в тек. ценах; M[j,(t+1)] = U(j,(t+1))/X(j,(t+1))-вектор-столбец удельных промежуточных затрат; V[i,(t+1)]-вектор промежуточного спроса (i)-х отраслей в тек. ценах; A[i,j,t]-матрица коэффициентов прямых затрат (t)-го года в ценах конечного потребления. В авторской модели для вычисления RAS взяты начальные 4-е внешных варианта: 1). S[1,i,(t+1)]=(0,999 + 0,002*rand); 2). R[1,i,(t+1)]=(0.999 + 0.002*rand); 3). S[3,i,(t+1)]={S[Опт.,1,i,(t+1)]+ +S[Опт.,2,i,(t+1)]}/2; 4). R[3,i,(t+1)]={R[Опт.,1,i,(t+1)]+ +R[Опт.,2,i,(t+1)]}/2. В силу того, что 99% российских экономистов не владеют на практике экономико-математическими методами и основами программирования, автор представил Блок-схему алгоритма вычисления «Обобщенного метода RAS» (метода приближенной корректировки коэффи-циентов прямых затрат МОБа на прогнозный период): 1.1. X[i,(t+1)] --> 1.2. 1.2. V[i,(t+1)] --> 1.3. 1.3. U[j,(t+1)] --> 1.3.1. 1.3.1. M[j,(t+1)]=U[j,(t+1)]/X[i,(t+1)] --> 1.4. 1.3.2. E(i) = {1..1} --> 1.3.3. 1.3.3. BAV ---> {1.1..1.3.2.} --> 1.4. 1.4. A[i,j,t] --> 1.4.1. 1.4.1. A'[i,j,t] --> 1.5. m =: 1 --> (1 <= m <= 4) 1.5. IF m =: 1 S[1_i,(t+1)]=(0.999+0.002*@rand) --> 1.5.2. 1.5.1. IF m =: 3 S[3_i,(t+1)]=:{S[1,i,(t+1)]+ +S[2,i,(t+1)]}/2 --> 1.5.2. 1.5.2. IF m=1 #OR# m=3 BAV --> S[1,i,(t+1)] --> 1.5.3. 1.5.3. S[1(3)_1,i,j,(t+1)] --> 1.6. 1.6. B[1,j,(t+1)]=: =:X[i,(t+1)]*S[1,i,(t+1)]--> 1.7. 1.7. C[1,i,(t+1)]=: =:A[i,j,t]*B[1,j, (t+1)]--> 1.8. 1.8. IF m = 1 #OR# m = 3 R[1(3)_i,j,(t+1)]=:V[i,(t+1)]/C[i,(t+1)] --> 1.8.3. 1.8.1. IF m =: 2 R[2_1,i,(t+1)]=:(0.999+0.002*@rand) --> 1.8.3. 1.8.2. IF m =: 4 R[4_1,i,(t+1)]=: =:{R[1,i,(t+1)]+R[2,i,(t+1)]}/2 --> 1.8.3. 1.8.3. IF 1<= m <= 4 BAV --> R(1,i,(t+1))--> 1.8.4. 1.8.4. R[1,i,j,(t+1)] --> 1.8.5. 1.8.5. Aa[1,i,j,(t+1)]=: =:R[1,i,j,(t+1)]*A[i,j,t] --> 1.8.6. #OR# --> 1.9. IF m =: 1 #OR# m =: 3 1.8.6. A[1(3)_1,i, j,(t+1)]=: =:Aa[1,i,j,(t+1)]*S[1,i,j,(t+1)] --> 1.9. 1.9. IF 1 <= m <= 4 D'[1,i,j,(t+1)]=:A'[i,j,t]*R[1,i,j,(t+1)] --> 1.10. 1.10. D[1,j,(t+1)]=: =:D'[1,i,j,(t+1)]*E[1,i] --> 1.11. 1.11. S[2,j,(t+1)]=: =:U[j,(t+1)]/D[1,j,(t+1)] --> 1.11.1. 1.11.1. BAV --> S[2,i,(t+1)] --> 1.11.2. 1.11.2. S[2,i,j,(t+1)] --> IF m=:2#OR#m=:4 --> 1.12. --> 1.13. 1.12. IF m =:2 #OR# m =: 4 A[1,i,j,(t+1)]=: =:Aa[1,i,j,(t+1)]*S[1,i,j,(t+1)] --> 1.13. 1.13. IF 1<= m <= 4 B[2,j,(t+1)]=:X[i,(t+1)]*S[2,i,(t+1)] --> 1.14. 1.14. C[2,i,(t+1)]=:A[i,j,t]*B[2,j(t+1)] --> 1.15. 1.15. R[2,j,(t+1)]=: =:V[i,(t+1)]/C[2,i,(t+1)] --> 1.15.1. 1.15.1. BAV --> R[2,i,(t+1)] --> 1.15.2. 1.15.2. R[2,i,j,(t+1)] --> 1.15.3. 1.15.3. Aa[2,i,j,(t+1)]=: =:R[2,i,j,(t+1)]*A[i,j,t] --> 1.16. 1.16. IF m=:1 #OR# m=: 3 A[2,i,j,(t+1)]=: =:Aa[2,i,j,(t+1)]*S[2,i,j,(t+1)] --> 1.16.1. 1.16.1. @A[2-1,i,j,(t+1)]=: =:ABS{A[2,i,j,(t+1)]–A[1,i,j,(t+1)]} --> 1.16.2. 1.16.2. BAV --> @A[2-1,i,j,(t+1)] --> 1.16.3. 1.16.3. FT21 =: =:Min{{j}{Min{I}{@A[2-1,i,j,(t+1)]}}} --> 1.16.6. 1.16.4. FU21=:Avg{@A[2-1,i,j,(t+1)]} --> 1.16.5. 1.16.5. FV21=: =:Max{{j}{Max{i}{@A(2-1,i,j,(t+1))}}} --> 1.16.6. 1.16.6. @A[2-1,i,j,(t+1)]/A[1,i,j,(t+1)]=: =:ABS{{A[2,i,j,(t+1)]–A[1,i,j,(t+1)]}/A[1,i,j,(t+1)]}} --> 1.16.7. 1.16.7. BAV --> @A[2-1,i,j,(t+1)]/A[1,i,j,(t+1)] --> 1.16.8. 1.16.8. GF21=: =:Min{{j}{Min{i}{@A[2-1,i,j,(t+1)]/A[1,i,j,(t+1)]}}} --> 1.16.9. 1.16.9. GG21=: =:Avg{{j}{Min{i}{@A[2-1,i,j,(t+1)]/A[1,i,j,(t+1)]}}}--> 1.16.10. 1.16.10. GH21=: =:Max{{j}{Min{i}{@A[2-1,i,j,(t+1)]/A[1,i,j,(t+1)]}}} --> 1.16.11. 1.16.11. BAV --> FT21..FV21 --> 1.16.12. 1.16.12. BAV --> GF21..GH21 --> 1.17. n(1) =: 3 - m =: 1 #OR# m =: 3 --> 1.17. 1.17. m=:1 #OR# m=: 3 IF 1<= m <= 4 D'[2,i,j,(t+1)]=:A'[i,j,t]*R[2,i,j,(t+1)] --> 1.18. 1.18. D[2,j,(t+1)]=: =:D'[2,i,j,(t+1)]*E[1,i] --> 1.19. 1.19. S[3,j,(t+1)]=: =:U[j,(t+1)]/D[2,j,(t+1)] --> 1.19.1. 1.19.1. BAV --> S[3,i,(t+1)] --> 1.19.2. 1.19.2. S[3,i,j,(t+1)] --> 1.20. IF m=:2 #OR# m=:4 A[2,i,j,(t+1)]=: =:Aa[2,i,j,(t+1)]*S[2,i,j,(t+1)] --> 1.9. 1.16.1. @A[2-1,i,j,(t+1)]=: =:ABS{A[2,i,j,(t+1)]–A[1,i,j,(t+1)]} --> 1.16.2. 1.16.2. BAV --> @A[2-1,i,j,(t+1)] --> 1.16.3. 1.16.3. FT21=: =:Min{{j}{Min{i}{@A[2-1,i,j,(t+1)]}}} --> 1.16.6. 1.16.4.FU21=:Avg{@A[2-1,i,j,(t+1)]}--> 1.16.5. 1.16.5. FV21=: =:Max{{j}{Max{i}{@A[2-1,i,j,(t+1)]}}} --> 1.16.6. 1.16.6. @A[2-1,i,j,(t+1)]/A[1,i,j,(t+1)])=: =:ABS{{A[2,i,j,(t+1)]–A[1,i,j,(t+1)]}/A[1,i,j,(t+1)]} --> 1.16.7. 1.16.7. BAV --> @A[2-1,i,j,(t+1)]/A[1,i,j, (t+1)] --> 1.16.8. 1.16.8. GF21=: =:Min{{j}{Min{i}{@A[2-1,i,j,(t+1)]/A[1,i,j, (t+1)]}}} --> 1.16.9. 1.16.9. GG21=: =:Avg{{j}{Min{i}{@A[2-1,i,j,(t+1)]/A[1,i,j, (t+1)]}}} --> 1.16.10. 1.16.10. GH21=: =:Max{{j}{Min{i}{@A[2-1,i,j,(t+1)]/A[1,i,j, (t+1)]}}} --> 1.16.11. 1.16.11. BAV --> FT21..FV21 --> 1.16.12. 1.16.12. BAV --> GF21..GH21 --> 1.17. n(0) =: 3 ---> m=: 2 #OR# m: =4 1.20. m =:2 #OR# m =:4 IF 1 <= m <= 4 B[3,j,(t+1)]=:X[i,(t+1)]*S[3,i,(t+1)] --> 1.21. 1.21. C[3,i,(t+1)]=:A[i,j,t]*B[3,j t+1)] --> 1.22. 1.22. R[3,j,(t+1)]=: =:V[i,(t+1)]/C[3, (t+1)] --> 1.22.1. 1.22.1. BAV --> R[3,i,(t+1)] --> 1.22.2. 1.22.2. R[3,i,j,(t+1)] --> 1.22.3. 1.22.3. Aa[3,i,j,(t+1)]=: =:R[3,i,j,(t+1)]*A[i,j,t] --> 1.23. IF m=: 1 #OR# m=: 3 1.23. A[3,i,j,(t+1)]=: =:Aa[3,i,j,(t+1)]*S[3,i,j,(t+1)] --> 1.23.1. 1.23.1. @A[3-2,i,j,(t+1)]=: =:ABS{A[3,i,j,(t+1)]–A[2,i,j,(t+1)]} --> 1.23.2. 1.23.2. BAV --> @A[3-2,i,j,(t+1)] --> 1.23.3. 1.23.3. AP38=: =:Min{{j}{Min{i}{@A[3-2,i,j,(t+1)]}}} --> 1.23.4. 1.23.4. AQ38=:Avg{@A[3-2,i,j,(t+1)]} --> 1.23.5. 1.23.5. AR38=: =:Max{{j}{Max{i}{@A[3-2,i,j,(t+1)]}}} --> 1.23.6. 1.23.6.@A[3-2,i,j,(t+1)]/A[1,i,j,(t+1)]=: =:ABS{{A[3,i,j,(t+1)]-A[2,i,j,(t+1)]}/A[2,i, j,(t+1)]} --> 1.23.7. 1.23.7. BAV --> @A[3-2,i,j,(t+1)]/A[2,i,j, (t+1)] --> 1.23.8. 1.23.8. BB38=: =:Min{{j}{Min{i}{@A[3-2,i,j,(t+1)]/A[2,i,j, (t+1)]}} --> 1.23.9. 1.23.9. BC38=: =:Avg{{j}{Min{i}{@A[3-2,i,j,(t+1)]/A[2,i,j, (t+1)]}} --> 1.23.10. 1.23.10. BD38=: =:Max{{j}{Min{i}{@A[3-2,i,j,(t+1)]/A[2,i,j, (t+1)]}} --> 1.23.11. 1.23.11. BAV --> AP38..AR38 --> 1.23.12. 1.23.12. BAV --> BB38..BD38 --> 1.24. 1.24.(FU21–AQ38) #and# (GG21-BC38) --> 1.25. 1.25. (FU21>AQ38) --> 1.26.2. 1.25.1. (FU21<AQ38)#or#(GG21<BC38) --> 1.26.1. 1.26.1. --> 1.32. 1.26.2. --> 1.27. 1.27. S[1,j,(t+1)]=:S[2,j,(t+1)] --> 1.27.1. 1.27.1. S[2,j,(t+1)]=:S[3,j,(t+1)] --> 1.27.2. 1.27.2. S[1,i,j,(t+1)]=:S[2,i,j,(t+1)] --> 1.27.3. 1.27.3. S[2,i,j,(t+1)]=:S[3,i,j,(t+1)] --> 1.28. 1.28. R[1,j,(t+1)]=:R[2,j,(t+1)] --> 1.28.1. 1.28.1. R[2,j,(t+1)]=:R[3,j,(t+1)] --> 1.29. 1.28.2. R[1,i,j,(t+1)]=:R[2,i,j,(t+1)] --> 1.28.3. 1.28.3. R[2,i,j,(t+1)]=:R[3,i,j,(t+1)] --> 1.29. 1.29. A[1,i,j,(t+1)]=:A[2,i,j,(t+1)] --> 1.29.1. 1.29.1. A[2,i,j,(t+1)]=:A[3,i,j,(t+1)] --> 1.30. 1.30. FU21=:AQ38 --> 1.30.1. 1.30.1. FT21=:AP38 --> 1.30.2. 1.30.2. FV21=:AR38 --> 1.30.3. 1.30.3. GG21=:BC38 --> 1.30.4. 1.30.4. GF21=:BB38 --> 1.30.5. 1.30.5. GH21=:BD38 --> 1.31. 1.31. n =: (n + 1) --> 1.17. (m =: 1 #OR# m =: 3) 1.32. n ---> --> 1.33. (m=:1 #OR# m=:3) 1.33. A[Опт.,1(3),i,j,(t+1)]=: =:A[2,i,j,(t+1)] --> 1.34. 1.34. R[Опт.,1(3),i,j,(t+1)]=: =:R[2,i,j,(t+1)] --> 1.35. 1.35. S[Опт.,1(3),i,j,(t+1)]=: =:S[2,i,j,(t+1)] --> 1.5. (No 2(4)) m =: (m + 1) IF m =: 2 --> 1.8.1. --> (No 2) IF m =: 3 --> 1.5.1. --> (No 3) IF m =: 4 --> 1.8.2. --> (No 4) If m =: 2 #OR# m =: 4 1.17. D'[3,i,j,(t+1)]=: =:A'[i,j,t]*R[3,i,j,(t+1)] --> 1.18. 1.18. D[3,j,(t+1)]=: =:D'[3,i,j,(t+1)]*E[1,i] --> 1.19. 1.19. S[3,j,(t+1)]=: =:U[j,(t+1)]/D[2,j,(t+1)] --> 1.19.1. 1.19.1. BAV --> S[3,i,(t+1)] --> 1.19.2. 1.19.2. S[3,i,j,(t+1)] --> 1.20. 1.16.1. @A[3-2,i,j,(t+1)]=: =:ABS{A[3,i,j,(t+1)]–A[2,i,j,(t+1)]} --> 1.16.2. 1.16.2. BAV --> @A[3-2,i,j,(t+1)] --> 1.16.3. 1.16.3. AP38=: =:Min{{j}{Min{i}{@A[3-2,i,j,(t+1)]}}} --> 1.16.6. 1.16.4. AQ38=:Avg{@A[3-2,i,j,(t+1)]} --> 1.16.5. 1.16.5. AR38=: =:Max{{j}{Max{i}{@A[3-2,i,j,(t+1)]}}} --> 1.16.6. 1.16.6. @A[3-2,i,j,(t+1)]/A[2,i,j,(t+1)]=: =:ABS{{A[3,i,j,(t+1)]–A[2,i,j,(t+1)]}/A[2,i,j,(t+1)]} --> 1.16.7. 1.16.7. BAV --> @A[3-2,i,j,(t+1)]/A[2,i,j, (t+1)] --> 1.16.8. 1.16.8. BB38=: =:Min{{j}{Min{i}{@A[3-2,i,j,(t+1)]/A[2,i,j, (t+1)]}} --> 1.16.9. 1.16.9. BC38=: =:Avg{{j}{Min{i}{@A[3-2,i,j,(t+1)]/A[2,i,j, (t+1)]}} --> 1.16.10. 1.16.10. BD38=: =:Max{{j}{Min{i}{@A[3-2,i,j,(t+1)]/A[2,i,j,(t+1)]}} --> 1.16.11. 1.16.11. BAV --> AP38..AR38 --> 1.16.12. 1.16.12. BAV --> BB38..BD38 --> 1.17. 1.24. (FU21-AQ38) #and# (GG21-BC38) --> 1.25. 1.25. (FU21>AQ38) --> 1.26.2. 1.25.1. (FU21<AQ38) #or# (GG21<BC38) --> 1.26.1. 1.26.1. --> 1.32. 1.26.2. --> 1.27. 1.27. S[1,j,(t+1)]=:S[2,j,(t+1)] --> 1.27.1. 1.27.1. S[2,j,(t+1)]=:S[3,j,(t+1)] --> 1.27.2. 1.27.2. S[1,i,j,(t+1)]=:S[2,i,j,(t+1)] --> 1.27.3. 1.27.3. S[2,i,j,(t+1)]=:S[3,i,j,(t+1)] --> 1.28. 1.28. R[1,j,(t+1)]=:R[2,j,(t+1)] --> 1.28.1. 1.28.1. R[2,j,(t+1)]=:R[3,j,(t+1)] --> 1.29. 1.28.2. R[1,i,j,(t+1)]=:R[2,i,j,(t+1)] --> 1.28.3. 1.28.3. R[2,i,j,(t+1)]=:R[3,i,j,(t+1)] --> 1.29. 1.29. A[1,i,j,(t+1)]=:A[2,i,j,(t+1)] --> 1.29.1. 1.29.1. A[2,i,j,(t+1)]=:A[3,i,j,(t+1)] --> 1.30. 1.30. FU21=:AQ38 --> 1.30.1. 1.30.1. FT21=:AP38 --> 1.30.2. 1.30.2. FV21=:AR38 --> 1.30.3. 1.30.3. GG21=:BC38 --> 1.30.4. 1.30.4. GF21=:BB38 --> 1.30.5. 1.30.5. GH21=:BD38 --> 1.31. 1.31. n=: (n + 1) --> 1.20. (m =: 2 #OR# m =: 4) 1.32. n --> 1.33. (m=: 1 #OR# m=: 3) 1.33. A[Опт.,2(4),i,j,(t+1)]=: =:A[2,i,j,(t+1)] --> 1.34. 1.34. R[Опт.,2(4),i,j,(t+1)]=: =:R[2,i,j,(t+1)] --> 1.35. 1.35. S[Опт.,2(4),i,j,(t+1)]=: =:S[2,i,j,(t+1)] --> 1.5.(No 3) m =: (m + 1) 1.36. IF m =: 3, --> 1.5.1. --> (No 3) 1.37. IF m =: 4 --> 1.36. -->