unit TajkaPM;
interface
uses
Classes, SysUtils, Dialogs;
const
MaxObs = 12; { RCHAJKA Havaintojen maksimimäärä }
MaxVar = 100; { Muuttujien maksimimäärä }
MaxCpa = 30; { Muuttujien maksimimäärä }
type
ObsRmT = array[1..MaxObs,1..MaxVar] of real;
VarRaT = array[1..MaxVar] of real;
VarBaT = array[1..MaxVar] of byte;
CpaRaT = array[1..MaxCpa] of real;
procedure AJKAP(i : integer; Path : VarBaT;
X,Y : ObsRmT; ZL1 : VarRaT;
var Z : ObsRmT; C: CpaRaT);
procedure AJKAC(i : integer; Path : VarBaT;
X,Y : ObsRmT; ZL1 : VarRaT;
var Z : ObsRmT; C: CpaRaT);
function pct(X,Y : real): real;
// var
// xx1,xx2,xx3,xx4,xx5,x6,xx7,xx8,xx8: real;
implementation
function pct(X,Y : real): real;
begin
Result := 999.0;
if (Abs(Y)>1.0E-14) then Result := (X/Y-1.0)*100.0;
end; { pct }
procedure AJKAP(i : integer; Path : VarBaT;
X,Y : ObsRmT; ZL1 : VarRaT;
var Z : ObsRmT; C: CpaRaT);
begin
// I96 := 39-NNA; { = 5 syksyllä 6 keväällä }
// I97 := 40-NNA; { = 5 syksyllä 6 keväällä }
{ TajkaDo Asko Korpela 20050128-0156 }
{ 1: CEAC=CEPP*CEAF }
Z[i,10] := { CEAC% Kulutusmenot mrd e 485393 }
ZL1[15] * { CEPP% Hintaindeksi: yks kulutusmenot 2000=1 486637 }
ZL1[11] ; { CEAF% Kulutusmenot mrd 00 e 485395 }
{ 2: CEAF=CEPF+CEGF @ }
Z[i,11] := { CEAF% Kulutusmenot mrd 00 e 485395 }
ZL1[ 5] + { CEPF% Yksityiset kulutusmenot mrd 00 e 486547 }
ZL1[ 7] ; { CEGF% Julkiset kulutusmenot mrd 00 e 486548 }
if C[1]<>0.0 then Z[I,11] := Z[I-1,11]*(1.0+C[1]/100.0);
{ 3: CEGC=CEGF*CEGP }
Z[i,12] := { CEGC% Julkiset kulutusmenot mrd e 486518 }
ZL1[ 7] * { CEGF% Julkiset kulutusmenot mrd 00 e 486548 }
ZL1[13] ; { CEGP% Hintaindeksi: julk kulutusmenot 2000=1 486638 }
{ 4: CEGF=CGPF+CGGF @ }
Z[i, 7] := { CEGF% Julkiset kulutusmenot mrd 00 e 486548 }
X[i, 2] + { CGPF% Yksilölliset julk kulutusmenot mrd 00 e 486549 }
X[i, 1] ; { CGGF% Kollektiiviset julk kulutusmenot mrd 00 e 486550 }
if C[2]<>0.0 then Z[I,7] := Z[I-1,7]*(1.0+C[2]/100.0);
{ 5: CEPC=CEAC-CEGC }
Z[i,14] := { CEPC% Yksityiset kulutusmenot mrd e 486517 }
Z[i,10] - { CEAC% Kulutusmenot mrd e 485393 }
Z[i,12] ; { CEGC% Julkiset kulutusmenot mrd e 486518 }
{ 6: CGPC=CEGC-CGGC }
Z[i,16] := { CGPC% Yksilölliset kulutusmenot mrd e 486519 }
Z[i,12] - { CEGC% Julkiset kulutusmenot mrd e 486518 }
X[i,14] ; { CGGC% Kollektiiviset julk kulutusmenot mrd e 486520 }
{ 7: DEDF=DEDC/CEPP @ }
Z[i,17] := { DEDF% Talletuspankkien ottolainaus mrd e =DEDC/CEPP }
X[i,11] / { DEDC% Talletuspankkien ottolainaus mrd e BF3.2.3 }
ZL1[15] ; { CEPP% Hintaindeksi: yks kulutusmenot 2000=1 486637 }
if C[3]<>0.0 then Z[I,17] := Z[I-1,17]*(1.0+C[3]/100.0);
{ 8: QGDF=DSAF+CEAF+IFAF+INVF+FBAF @ }
Z[i, 1] := { QGDF% Bruttokansantuote markkinahintaan mrd 00 e 486536 }
X[i,17] + { DSAF$ Tilastollinen ero mrd 00 e 486556 }
Z[i,11] + { CEAF% Kulutusmenot mrd 00 e 485395 }
ZL1[26] + { IFAF% Kiinteän pääoman bruttomuodostus mrd 00 e 485396 }
X[i,12] + { INVF$ Varastojen muutokset mrd 00 e 486553 }
ZL1[23] ; { FBAF$ Tavaroiden ja palvelujen nettovienti mrd 00 e 486529 }
if C[4]<>0.0 then Z[I,1] := Z[I-1,1]*(1.0+C[4]/100.0);
{ 9: DSBC=QGDC-CEAC-IFAC-INVC-FBAC @ }
Z[i,19] := { DSBC$ Tilastollinen ero mrd e 486526 }
ZL1[32] - { QGDC% Bruttokansantuote markkinahintaan mrd e 486506 }
Z[i,10] - { CEAC% Kulutusmenot mrd e 485393 }
ZL1[25] - { IFAC% Kiinteän pääoman bruttomuodostus mrd e 485394 }
X[i,22] - { INVC$ Varastojen muutokset mrd e 486523 }
ZL1[22] ; { FBAC$ Tavaroiden ja palvelujen nettovienti mrd e 486528 }
if C[5]<>0.0 then Z[I,19] := Z[I-1,19]*(1.0+C[5]/100.0);
{ 10: EMPH=EMPT-EMPS @ }
Z[i,20] := { EMPH% Työlliset: palkansaajat 1000 hnk 4176 }
ZL1[21] - { EMPT% Työlliset 1000 hnk 4162 }
X[i,19] ; { EMPS% Työlliset: yrittäjät+av perheenj 1000 hnk 4175 }
if C[6]<>0.0 then Z[I,20] := Z[I-1,20]*(1.0+C[6]/100.0);
{ 11: FBAC=XGSC-MGSC }
Z[i,22] := { FBAC$ Tavaroiden ja palvelujen nettovienti mrd e 486528 }
ZL1[47] - { XGSC% Tavaroiden ja palvelujen vienti mrd e 486524 }
ZL1[30] ; { MGSC% Tavaroiden ja palvelujen tuonti mrd e 486525 }
{ 12: FBAF=XGSF-MGSF }
Z[i,23] := { FBAF$ Tavaroiden ja palvelujen nettovienti mrd 00 e 486529 }
ZL1[ 8] - { XGSF% Tavaroiden ja palvelujen vienti mrd 00 e 486554 }
ZL1[ 9] ; { MGSF% Tavaroiden ja palvelujen tuonti mrd 00 e 486555 }
{ 13: IFPC=IFAC-IFGC }
Z[i,24] := { IFPC% Yksityinen bruttopääomanmuodostus mrd e 486521 }
ZL1[25] - { IFAC% Kiinteän pääoman bruttomuodostus mrd e 485394 }
X[i,21] ; { IFGC% Julkinen bruttopääomanmuodostus mrd e 486522 }
{ 14: IFAC=IFAP*IFAF }
Z[i,25] := { IFAC% Kiinteän pääoman bruttomuodostus mrd e 485394 }
ZL1[27] * { IFAP% Hintaindeksi: bruttopääomanmuodostus 2000=1 485404 }
ZL1[26] ; { IFAF% Kiinteän pääoman bruttomuodostus mrd 00 e 485396 }
{ 15: IFPF=IFAF-IFGF @ }
Z[i, 6] := { IFPF% Yksityinen kiint pääoman bmuodost mrd 00 e 486551 }
ZL1[26] - { IFAF% Kiinteän pääoman bruttomuodostus mrd 00 e 485396 }
X[i, 3] ; { IFGF% Julkinen bruttopääomanmuodostus mrd 00 e 486552 }
if C[7]<>0.0 then Z[I,6] := Z[I-1,6]*(1.0+C[7]/100.0);
{ 16: LPFR=QVAF/EMPT*1000 }
Z[i,29] := { LPFR% Työn tuottavuus tuh 00 mk =QVAF/EMPT }
ZL1[38] / { QVAF% Arvonlisäys: brutto perushintaan mrd 00 e 486533 }
ZL1[21] * { EMPT% Työlliset 1000 hnk 4162 }
1000; { }
{ 17: MGSC=MGSF*MGSP }
Z[i,30] := { MGSC% Tavaroiden ja palvelujen tuonti mrd e 486525 }
ZL1[ 9] * { MGSF% Tavaroiden ja palvelujen tuonti mrd 00 e 486555 }
X[i, 5] ; { MGSP% Hintaindeksi: tav ja palv tuonti 2000=1 486645 }
{ 18: QGDC=QGDP*QGDF }
Z[i,32] := { QGDC% Bruttokansantuote markkinahintaan mrd e 486506 }
ZL1[ 2] * { QGDP% Hintaindeksi: mh bruttokansantuote 2000=1 486647 }
Z[i, 1] ; { QGDF% Bruttokansantuote markkinahintaan mrd 00 e 486536 }
{ 19: TQMC=QGDC-SOAC-OSAC-WAAC+RGAC-DFAC-DSAC @ }
Z[i,33] := { TQMC% Tuotannon ja tuonnin verot mrd e 486511 }
Z[i,32] - { QGDC% Bruttokansantuote markkinahintaan mrd e 486506 }
X[i,28] - { SOAC% Työnantajien sosiaaliturvamaksut mrd e 486509 }
ZL1[31] - { OSAC% Toimintaylijäämä/sekatulo mrd e 486510 }
ZL1[43] + { WAAC% Palkat ja palkkiot mrd e 486508 }
X[i,13] - { RGAC% Tukipalkkiot mrd e 486512 }
ZL1[18] - { DFAC% Kiinteän pääoman kuluminen mrd e 486513 }
X[i,16] ; { DSAC$ Tilastollinen ero mrd e 486514R }
if C[8]<>0.0 then Z[I,33] := Z[I-1,33]*(1.0+C[8]/100.0);
{ 20: QGFC=QVAC+QFFC }
Z[i,34] := { QGFC% Tuotos perushintaan mrd e 486501 }
ZL1[37] + { QVAC% Arvonlisäys: brutto perushintaan mrd e 486503 }
X[i,23] ; { QFFC% Välituotekäyttö ostajahintaan mrd e 486502 }
{ 21: QGFF=QGFC/QGFP }
Z[i,35] := { QGFF% Tuotos perushintaan mrd 00 e 486531 }
Z[i,34] / { QGFC% Tuotos perushintaan mrd e 486501 }
ZL1[36] ; { QGFP% Hintaindeksi: th bruttokansantuotos 2000 = 1 =QGFC/QGFF }
{ 22: QVAC=QGDC-TINC+RGBC }
Z[i,37] := { QVAC% Arvonlisäys: brutto perushintaan mrd e 486503 }
Z[i,32] - { QGDC% Bruttokansantuote markkinahintaan mrd e 486506 }
ZL1[40] + { TINC% Tuotannon ja tuonnin verot mrd e 472562 }
X[i,25] ; { RGBC% Tuotetukipalkkiot mrd e 486505 }
{ 23: QVAF=QGFF-QFFF }
Z[i,38] := { QVAF% Arvonlisäys: brutto perushintaan mrd 00 e 486533 }
Z[i,35] - { QGFF% Tuotos perushintaan mrd 00 e 486531 }
X[i,24] ; { QFFF% Välituotekäyttö ostajahintaan mrd 00 e 486532 }
{ 24: TDPC=TDPR*YNNC/100 }
Z[i,39] := { TDPC% Tulo-, varall ym. välittömät verot mrd e 472561 }
X[i, 9] * { TDPR$ Välittömien verojen veroaste prosenttia =TDPC/YNNC }
ZL1[59] / { YNNC% Nettokansantulo mrd e 486695 }
100 ; { }
{ 25: TINC=TINR*QGDC/100 }
Z[i,40] := { TINC% Tuotannon ja tuonnin verot mrd e 472562 }
X[i,10] * { TINR$ Välillisten verojen veroaste prosenttia =TINC/QGDC }
Z[i,32] / { QGDC% Bruttokansantuote markkinahintaan mrd e 486506 }
100 ; { }
{ 26: YGAC=GCIC+CEGC+IFGC }
Z[i,55] := { YGAC% Julkisen sektorin tulot yhteensä mrd e 472569 }
X[i,20] + { GCIC% Julkisen sektorin muut menot mrd e Residual }
Z[i,12] + { CEGC% Julkiset kulutusmenot mrd e 486518 }
X[i,21] ; { IFGC% Julkinen bruttopääomanmuodostus mrd e 486522 }
{ 27: YGOC=YGAC-TDPC-TINC-SOBC }
Z[i,56] := { YGOC% Julkisen sektorin muut tulot mrd e Residual }
Z[i,55] - { YGAC% Julkisen sektorin tulot yhteensä mrd e 472569 }
Z[i,39] - { TDPC% Tulo-, varall ym. välittömät verot mrd e 472561 }
Z[i,40] - { TINC% Tuotannon ja tuonnin verot mrd e 472562 }
X[i,29] ; { SOBC% Pakolliset sosiaaliturvamaksut mrd e 472566 }
{ 28: ULCC=WSAC/QGFF }
Z[i,41] := { ULCC% Yksikkötyökustannus WSAC/QGFF =WSAC/QGFF }
ZL1[46] / { WSAC% Palkkatulot mrd e =WAAC+SOAC }
Z[i,35] ; { QGFF% Tuotos perushintaan mrd 00 e 486531 }
{ 29: UNMT=EMPK-EMPT }
Z[i,42] := { UNMT$ Työttömät 1000 hnk 4163 }
X[i,18] - { EMPK% Työvoima 1000 hnk 4161 }
ZL1[21] ; { EMPT% Työlliset 1000 hnk 4162 }
{ 30: UNMR=UNMT/EMPK*100 }
Z[i, 3] := { UNMR$ Työttömyysaste prosenttia 4164 }
Z[i,42] / { UNMT$ Työttömät 1000 hnk 4163 }
X[i,18] * { EMPK% Työvoima 1000 hnk 4161 }
100 ; { }
{ 31: WAAC=WARC*EMPH/1000 }
Z[i,43] := { WAAC% Palkat ja palkkiot mrd e 486508 }
ZL1[44] * { WARC% Vuosipalkka 1000 e =WAAC/EMPH }
Z[i,20] / { EMPH% Työlliset: palkansaajat 1000 hnk 4176 }
1000; { }
{ 32: WDRR=WARC%-WRNI% @ }
Z[i,45] := { WDRR$ Palkkaliukuma prosMuutos =WARC%-WRNI% }
pct(Z[i,44],Y[i-1,44]) {WARC% Vuosipalkka 1000 e=WAAC/EMPH}
- pct(X[i, 8],X[i-1, 8]); { WRNI% Sopimuspalkkaindeksi 1975 = 1ETLA+T}
if C[9]<>0.0 then Z[I,45] := Z[I-1,45]*(1.0+C[9]/100.0);
{ 33: WSAC=WAAC+SOAC }
Z[i,46] := { WSAC% Palkkatulot mrd e =WAAC+SOAC }
Z[i,43] + { WAAC% Palkat ja palkkiot mrd e 486508 }
X[i,28] ; { SOAC% Työnantajien sosiaaliturvamaksut mrd e 486509 }
{ 34: YDGC=DFAC+YDNC }
Z[i,49] := { YDGC% Käytettävissä oleva tulo, brutto mrd e 486698 }
ZL1[18] + { DFAC% Kiinteän pääoman kuluminen mrd e 486513 }
ZL1[51] ; { YDNC% Käytettävissä oleva tulo, netto mrd e 486697 }
{ 35: YDGF=DFAF+YDNF }
Z[i,50] := { YDGF% Käytettävissä oleva tulo, brutto mrd 00 e 486718 }
X[i,15] + { DFAF% Kiinteän pääoman kuluminen mrd 00 e 486714 }
ZL1[52] ; { YDNF% Käytettävissä oleva tulo, netto mrd 00 e 486717 }
{ 36: YDNC=SAAC+CEAC }
Z[i,51] := { YDNC% Käytettävissä oleva tulo, netto mrd e 486697 }
X[i,27] + { SAAC% Säästö mrd e 486699 }
Z[i,10] ; { CEAC% Kulutusmenot mrd e 485393 }
{ 37: YDNF=YDNC/CEPP @ }
Z[i,52] := { YDNF% Käytettävissä oleva tulo, netto mrd 00 e 486717 }
Z[i,51] / { YDNC% Käytettävissä oleva tulo, netto mrd e 486697 }
ZL1[15] ; { CEPP% Hintaindeksi: yks kulutusmenot 2000=1 486637 }
if C[10]<>0.0 then Z[I,52] := Z[I-1,52]*(1.0+C[10]/100.0);
{ 38: YDPC=YDNC-TDPC }
Z[i,53] := { YDPC% Kuluttajien käytettävissä oleva tulo mrd e YDNC-TDPC }
Z[i,51] - { YDNC% Käytettävissä oleva tulo, netto mrd e 486697 }
Z[i,39] ; { TDPC% Tulo-, varall ym. välittömät verot mrd e 472561 }
{ 39: YDPF=YDPC/CEPP }
Z[i,54] := { YDPF% Kuluttajien käytettävissä oleva tulo mrd 00 e YDPC/CEPP }
Z[i,53] / { YDPC% Kuluttajien käytettävissä oleva tulo mrd e YDNC-TDPC }
ZL1[15] ; { CEPP% Hintaindeksi: yks kulutusmenot 2000=1 486637 }
{ 40: YGWC=QGDC+YWYC }
Z[i,57] := { YGWC% Bruttokansantulo mrd e 486693 }
Z[i,32] + { QGDC% Bruttokansantuote markkinahintaan mrd e 486506 }
X[i,33] ; { YWYC% Ensitulo ulkomailta, netto mrd e 486691 }
{ 41: YGWF=QGDF+YWYF }
Z[i,58] := { YGWF% Bruttokansantulo mrd 00 e 486713 }
Z[i, 1] + { QGDF% Bruttokansantuote markkinahintaan mrd 00 e 486536 }
X[i,34] ; { YWYF% Ensitulo ulkomailta, netto mrd 00 e 486711 }
{ 42: YNNC=YDNC-YWFC }
Z[i,59] := { YNNC% Nettokansantulo mrd e 486695 }
Z[i,51] - { YDNC% Käytettävissä oleva tulo, netto mrd e 486697 }
X[i,31] ; { YWFC$ Tulonsiirrot ulkomailta, netto mrd e 486696 }
{ 43: YNNF=YGWF-DFAF }
Z[i,60] := { YNNF% Nettokansantulo mrd 00 e 486715 }
Z[i,58] - { YGWF% Bruttokansantulo mrd 00 e 486713 }
X[i,15] ; { DFAF% Kiinteän pääoman kuluminen mrd 00 e 486714 }
{ 44: XGSC=XGSP*XGSF }
Z[i,47] := { XGSC% Tavaroiden ja palvelujen vienti mrd e 486524 }
X[i, 6] * { XGSP% Hintaindeksi: tav ja palv vienti 2000=1 486644 }
ZL1[ 8] ; { XGSF% Tavaroiden ja palvelujen vienti mrd 00 e 486554 }
{ 45: XPUR=XGSP/ULCC }
Z[i,48] := { XPUR% Vientihinnat/yksikkötyökustannus XGSP/ULCC =XGSP/ULCC }
X[i, 6] / { XGSP% Hintaindeksi: tav ja palv vienti 2000=1 486644 }
Z[i,41] ; { ULCC% Yksikkötyökustannus WSAC/QGFF =WSAC/QGFF }
{ 46: FBAR=FBAC/QGDC*100 }
Z[i, 4] := { FBAR$ Vaihtotasevajeen bkt-aste prosenttia =FBAC/QGDC }
Z[i,22] / { FBAC$ Tavaroiden ja palvelujen nettovienti mrd e 486528 }
Z[i,32] * { QGDC% Bruttokansantuote markkinahintaan mrd e 486506 }
100 ; { }
{ 47: DFAC CNST DFAC1 }
Z[i,18] := { DFAC% Kiinteän pääoman kuluminen mrd e 486513 }
+ 8.339 { 4.2 CNST vakiotermi }
+ 0.9916 * Y[i-1,18]; {70.7 DFAC% Kiinteän pääoman kuluminen mrd e 486513 }
{ F 5003 (3,27) RR 0.995 DW 0.8 SD 4.4 Ro 0.62 (20050128) }
case Path[8] of
{ 48: XGSF# CNST QGEF# XPUR# : }
1: Z[i, 8] := Exp( { XGSF% Tavaroiden ja palvelujen vienti mrd 00 e 486554 }
- 7.897 { 9.6 CNST vakiotermi }
+ 2.366 * Ln(X[i, 4]) {19.8 QGEF% OECD-maiden bruttokansantuotos 100 md 90d VM-TalKats}
+ 1.060 * Ln(Z[i,48])); { 4.5 XPUR% Vientihinnat/yksikkötyökustannus XGSP/ULCC =XGSP/ULCC}
{ F 217 (4,27) RR 0.943 DW 0.2 SD 0.1 Ro 0.97 (20050128) }
{ 49: XGSF CNST XGSF1 UNMR XPUR }
2: Z[i, 8] := { XGSF% Tavaroiden ja palvelujen vienti mrd 00 e 486554 }
- 89.71 { 2.2 CNST vakiotermi }
+ 1.057 * Y[i-1, 8] {36.8 XGSF% Tavaroiden ja palvelujen vienti mrd 00 e 486554 }
+ 1.960 * Z[i, 3] { 2.1 UNMR$ Työttömyysaste prosenttia 4164 }
+ 19.43 * Z[i,48]; { 2.0 XPUR% Vientihinnat/yksikkötyökustannus XGSP/ULCC =XGSP/ULCC}
{ F 584 (5,27) RR 0.985 DW 2.5 SD 17.5 Ro-0.29 (20050128) }
{ 50: XGSF# CNST XGSF#1 QGEF# XPUR# ;@ }
3: Z[i, 8] := Exp( { XGSF% Tavaroiden ja palvelujen vienti mrd 00 e 486554 }
- 2.539 { 4.4 CNST vakiotermi }
+ 0.7723 * Ln(Y[i-1, 8]) {11.4 XGSF% Tavaroiden ja palvelujen vienti mrd 00 e 486554 }
+ 0.6208 * Ln(X[i, 4]) { 3.9 QGEF% OECD-maiden bruttokansantuotos 100 md 90d VM-TalKats}
+ 0.5122 * Ln(Z[i,48])); { 4.8 XPUR% Vientihinnat/yksikkötyökustannus XGSP/ULCC =XGSP/ULCC}
{ F 963 (5,27) RR 0.991 DW 1.5 SD 0.0 Ro 0.09 (20050128) }
end; { case Path[8] }
if C[11]<>0.0 then Z[I,8] := Z[I-1,8]*(1.0+C[11]/100.0);
case Path[44] of
{ 51: WARC# CNST QGDP# UNMT# LPFR# WRNI# : }
1: Z[i,44] := Exp( { WARC% Vuosipalkka 1000 e =WAAC/EMPH }
+ 5.159 { 7.1 CNST vakiotermi }
+ 1.140 * Ln(ZL1[ 2]) { 6.8 QGDP% Hintaindeksi: mh bruttokansantuote 2000=1 486647 }
- 0.01878 * Ln(Z[i,42]) { 1.2 UNMT$ Työttömät 1000 hnk 4163 }
+ 0.03302 * Ln(Z[i,29]) { 0.2 LPFR% Työn tuottavuus tuh 00 mk =QVAF/EMPT}
+ 0.1916 * Ln(X[i, 8])); { 1.0 WRNI% Sopimuspalkkaindeksi 1975 = 1 ETLA+T }
{ F 1556 (6,27) RR 0.996 DW 0.8 SD 0.0 Ro 0.61 (20050128) }
{ 52: WARC# CNST QGDP# UNMT# LPFR# }
2: Z[i,44] := Exp( { WARC% Vuosipalkka 1000 e =WAAC/EMPH }
+ 4.959 { 7.1 CNST vakiotermi }
+ 1.295 * Ln(ZL1[ 2]) {21.4 QGDP% Hintaindeksi: mh bruttokansantuote 2000=1 486647 }
- 0.01576 * Ln(Z[i,42]) { 1.0 UNMT$ Työttömät 1000 hnk 4163 }
+ 0.1055 * Ln(Z[i,29])); { 0.9 LPFR% Työn tuottavuus tuh 00 mk =QVAF/EMPT}
{ F 2076 (5,27) RR 0.996 DW 0.9 SD 0.0 Ro 0.56 (20050128) }
{ 53: WARC# CNST QGDP# WRNI# LPFR# ; }
3: Z[i,44] := Exp( { WARC% Vuosipalkka 1000 e =WAAC/EMPH }
+ 5.319 { 7.3 CNST vakiotermi }
+ 1.192 * Ln(ZL1[ 2]) { 7.3 QGDP% Hintaindeksi: mh bruttokansantuote 2000=1 486647 }
+ 0.1460 * Ln(X[i, 8]) { 0.8 WRNI% Sopimuspalkkaindeksi 1975 = 1 ETLA+T }
+ 0.00046 * Ln(Z[i,29])); { 0.0 LPFR% Työn tuottavuus tuh 00 mk =QVAF/EMPT}
{ F 2033 (5,27) RR 0.996 DW 0.7 SD 0.0 Ro 0.66 (20050128) }
end; { case Path[44] }
case Path[26] of
{ 54: IFAF CNST QGFF KFAF1 KFAF2 RBAS1 : }
1: Z[i,26] := { IFAF% Kiinteän pääoman bruttomuodostus mrd 00 e 485396 }
+ 55.04 { 2.9 CNST vakiotermi }
+ 0.1322 * Z[i,35] { 8.6 QGFF% Tuotos perushintaan mrd 00 e 486531 }
+ 5.543 * Y[i-1,28] { 8.2 KFAF% Kiinteä pääoma yhteensä mrd 00 e 400400 }
- 5.855 * Y[i-2,28] { 9.1 KFAF% Kiinteä pääoma yhteensä mrd 00 e 400400 }
+ 3.247 * X[i-1, 7]; { 3.9 RBAS$ Suomen Pankin peruskorko (pväpain) prosenttia Suomen Pankki}
{ F 58.6 (6,27) RR 0.899 DW 1.2 SD 11.5 Ro 0.39 (20050128) }
{ 55: IFAF CNST QGFF KFAF1 KFAF2 }
2: Z[i,26] := { IFAF% Kiinteän pääoman bruttomuodostus mrd 00 e 485396 }
+ 49.86 { 2.0 CNST vakiotermi }
+ 0.1140 * Z[i,35] { 6.1 QGFF% Tuotos perushintaan mrd 00 e 486531 }
+ 6.293 * Y[i-1,28] { 7.7 KFAF% Kiinteä pääoma yhteensä mrd 00 e 400400 }
- 6.504 * Y[i-2,28]; { 8.2 KFAF% Kiinteä pääoma yhteensä mrd 00 e 400400 }
{ F 45.1 (5,27) RR 0.836 DW 0.8 SD 14.6 Ro 0.61 (20050128) }
{ 56: IFAF CNST QGFF1 KFAF2 RBAS1 }
3: Z[i,26] := { IFAF% Kiinteän pääoman bruttomuodostus mrd 00 e 485396 }
+ 183.1 { 8.6 CNST vakiotermi }
+ 0.1921 * Y[i-1,35] { 6.9 QGFF% Tuotos perushintaan mrd 00 e 486531 }
- 0.6466 * Y[i-2,28] { 5.9 KFAF% Kiinteä pääoma yhteensä mrd 00 e 400400 }
+ 5.376 * X[i-1, 7]; { 3.7 RBAS$ Suomen Pankin peruskorko (pväpain) prosenttia Suomen Pankki}
{ F 18.5 (5,27) RR 0.668 DW 0.7 SD 20.8 Ro 0.66 (20050128) }
{ 57: IFAF CNST QGFF1 KFAF2 ;@ }
4: Z[i,26] := { IFAF% Kiinteän pääoman bruttomuodostus mrd 00 e 485396 }
+ 204.2 { 8.1 CNST vakiotermi }
+ 0.1670 * Y[i-1,35] { 5.0 QGFF% Tuotos perushintaan mrd 00 e 486531 }
- 0.5273 * Y[i-2,28]; { 4.0 KFAF% Kiinteä pääoma yhteensä mrd 00 e 400400 }
{ F 13.5 (4,27) RR 0.491 DW 0.3 SD 25.8 Ro 0.83 (20050128) }
end; { case Path[26] }
if C[12]<>0.0 then Z[I,26] := Z[I-1,26]*(1.0+C[12]/100.0);
{ 58: KFAF KFAF1 IFAF }
Z[i,28] := { KFAF% Kiinteä pääoma yhteensä mrd 00 e 400400 }
+ 0.9730 * Y[i-1,28] {531.7 KFAF% Kiinteä pääoma yhteensä mrd 00 e 400400 }
+ 0.1157 * Z[i,26]; {27.4 IFAF% Kiinteän pääoman bruttomuodostus mrd 00 e 485396 }
{ F 229347 (3,27) RR 0.999 DW 0.1 SD 1.1 Ro 0.98 (20050128) }
{ 59: EMPT# CNST EMPT#1 QGFF# KFAF# @ }
Z[i,21] := Exp( { EMPT% Työlliset 1000 hnk 4162 }
+ 2.214 { 3.5 CNST vakiotermi }
+ 0.7029 * Ln(Y[i-1,21]) { 8.8 EMPT% Työlliset 1000 hnk 4162 }
+ 0.3282 * Ln(Z[i,35]) { 5.1 QGFF% Tuotos perushintaan mrd 00 e 486531 }
- 0.3785 * Ln(Z[i,28])); { 5.1 KFAF% Kiinteä pääoma yhteensä mrd 00 e 400400 }
{ F 52.3 (5,27) RR 0.855 DW 1.1 SD 0.0 Ro 0.37 (20050128) }
if C[13]<>0.0 then Z[I,21] := Z[I-1,21]*(1.0+C[13]/100.0);
case Path[2] of
{ 60: QGDP# CNST WARC# MGSP# LPFR# : }
1: Z[i, 2] := Exp( { QGDP% Hintaindeksi: mh bruttokansantuote 2000=1 486647 }
- 4.082 {17.1 CNST vakiotermi }
+ 0.6053 * Ln(Z[i,44]) {18.0 WARC% Vuosipalkka 1000 e =WAAC/EMPH}
+ 0.1962 * Ln(X[i, 5]) { 5.1 MGSP% Hintaindeksi: tav ja palv tuonti 2000=1 486645 }
+ 0.1213 * Ln(Z[i,29])); { 2.0 LPFR% Työn tuottavuus tuh 00 mk =QVAF/EMPT}
{ F 4191 (5,27) RR 0.998 DW 1.4 SD 0.0 Ro 0.24 (20050128) }
{ 61: QGDP% CNST QGDP1% WARC% MGSP% LPFR% ; }
2: Z[i, 2] := ( { QGDP% Hintaindeksi: mh bruttokansantuote 2000=1 486647 }
+ 0.9911 { 1.0 CNST vakiotermi }
+ 0.1689 * pct(Y[i-1, 2],Y[i-2, 2]) { 1.1 QGDP% Hintaindeksi: mh bruttokansantuote 2000=1 486647 }
+ 0.4267 * pct(Z[i,44],Y[i-1,44]) { 3.0 WARC% Vuosipalkka 1000 e =WAAC/EMPH}
+ 0.1870 * pct(X[i, 5],X[i-1, 5]) { 2.3 MGSP% Hintaindeksi: tav ja palv tuonti 2000=1 486645 }
- 0.2194 * pct(Z[i,29],Y[i-1,29]) { 0.8 LPFR% Työn tuottavuus tuh 00 mk =QVAF/EMPT}
) * Y[i-1, 2] / 100.0 + Y[i-1, 2];
{ F 13.4 (6,27) RR 0.656 DW 2.2 SD 2.1 Ro-0.16 (20050128) }
end; { case Path[2] }
{ 62: QGFP# CNST WARC# MGSP# LPFR# }
Z[i,36] := Exp( { QGFP% Hintaindeksi: th bruttokansantuotos 2000 = 1 =QGFC/QGFF }
- 2.981 {12.4 CNST vakiotermi }
+ 0.4394 * Ln(Z[i,44]) {13.0 WARC% Vuosipalkka 1000 e =WAAC/EMPH}
+ 0.3458 * Ln(X[i, 5]) { 8.9 MGSP% Hintaindeksi: tav ja palv tuonti 2000=1 486645 }
+ 0.08915 * Ln(Z[i,29])); { 1.5 LPFR% Työn tuottavuus tuh 00 mk =QVAF/EMPT}
{ F 3038 (5,27) RR 0.997 DW 0.8 SD 0.0 Ro 0.58 (20050128) }
{ 63: CEPP# CNST WARC# MGSP# LPFR# }
Z[i,15] := Exp( { CEPP% Hintaindeksi: yks kulutusmenot 2000=1 486637 }
- 4.503 {23.4 CNST vakiotermi }
+ 0.4394 * Ln(Z[i,44]) {16.2 WARC% Vuosipalkka 1000 e =WAAC/EMPH}
+ 0.3331 * Ln(X[i, 5]) {10.7 MGSP% Hintaindeksi: tav ja palv tuonti 2000=1 486645 }
+ 0.3393 * Ln(Z[i,29])); { 7.0 LPFR% Työn tuottavuus tuh 00 mk =QVAF/EMPT}
{ F 6174 (5,27) RR 0.999 DW 1.6 SD 0.0 Ro 0.18 (20050128) }
{ 64: CEGP# CNST WARC# LPFR# }
Z[i,13] := Exp( { CEGP% Hintaindeksi: julk kulutusmenot 2000=1 486638 }
- 5.947 {22.5 CNST vakiotermi }
+ 0.8322 * Ln(Z[i,44]) {32.0 WARC% Vuosipalkka 1000 e =WAAC/EMPH}
+ 0.2207 * Ln(Z[i,29])); { 3.4 LPFR% Työn tuottavuus tuh 00 mk =QVAF/EMPT}
{ F 7594 (4,27) RR 0.998 DW 0.6 SD 0.0 Ro 0.68 (20050128) }
{ 65: IFAP# CNST IFAP#1 WARC# MGSP# }
Z[i,27] := Exp( { IFAP% Hintaindeksi: bruttopääomanmuodostus 2000=1 485404 }
- 0.8539 { 0.7 CNST vakiotermi }
+ 0.6621 * Ln(Y[i-1,27]) { 2.4 IFAP% Hintaindeksi: bruttopääomanmuodostus 2000=1 485404 }
+ 0.1561 * Ln(Z[i,44]) { 0.7 WARC% Vuosipalkka 1000 e =WAAC/EMPH}
+ 0.1071 * Ln(X[i, 5])); { 1.6 MGSP% Hintaindeksi: tav ja palv tuonti 2000=1 486645 }
{ F 1393 (5,27) RR 0.994 DW 1.0 SD 0.0 Ro 0.48 (20050128) }
{ 66: OSAC% CNST WARC% QGFF% QGFP% @ }
Z[i,31] := ( { OSAC% Toimintaylijäämä/sekatulo mrd e 486510 }
+ 8.645 { 2.3 CNST vakiotermi }
- 2.349 * pct(Z[i,44],Y[i-1,44]) { 3.3 WARC% Vuosipalkka 1000 e =WAAC/EMPH}
+ 1.741 * pct(Z[i,35],Y[i-1,35]) { 2.8 QGFF% Tuotos perushintaan mrd 00 e 486531 }
+ 2.380 * pct(Z[i,36],Y[i-1,36]) { 2.8 QGFP% Hintaindeksi: th bruttokansantuotos 2000 = 1 =QGFC/QGFF}
) * Y[i-1,31] / 100.0 + Y[i-1,31];
{ F 9.01 (5,27) RR 0.480 DW 1.8 SD 9.4 Ro 0.06 (20050128) }
if C[14]<>0.0 then Z[I,31] := Z[I-1,31]*(1.0+C[14]/100.0);
case Path[5] of
{ 67: CEPF CNST CEPF1 YDPF DEDF : }
1: Z[i, 5] := { CEPF% Yksityiset kulutusmenot mrd 00 e 486547 }
+ 13.32 { 1.4 CNST vakiotermi }
+ 0.6067 * Y[i-1, 5] {12.2 CEPF% Yksityiset kulutusmenot mrd 00 e 486547 }
+ 0.2870 * Z[i,54] { 9.5 YDPF% Kuluttajien käytettävissä oleva tulo mrd 00 e YDPC/CEPP}
+ 0.3549 * Z[i,17]; { 1.9 DEDF% Talletuspankkien ottolainaus mrd e =DEDC/CEPP}
{ F 1489 (5,27) RR 0.994 DW 1.3 SD 6.9 Ro 0.34 (20050128) }
{ 68: CEPF CNST CEPF1 YDPF }
2: Z[i, 5] := { CEPF% Yksityiset kulutusmenot mrd 00 e 486547 }
+ 3.290 { 0.4 CNST vakiotermi }
+ 0.6654 * Y[i-1, 5] {16.1 CEPF% Yksityiset kulutusmenot mrd 00 e 486547 }
+ 0.2829 * Z[i,54]; { 8.9 YDPF% Kuluttajien käytettävissä oleva tulo mrd 00 e YDPC/CEPP}
{ F 2007 (4,27) RR 0.994 DW 1.3 SD 7.3 Ro 0.34 (20050128) }
{ 69: CEPF CNST CEPF1 YDPF UNMR }
3: Z[i, 5] := { CEPF% Yksityiset kulutusmenot mrd 00 e 486547 }
+ 0.7300 { 0.1 CNST vakiotermi }
+ 0.5803 * Y[i-1, 5] {12.5 CEPF% Yksityiset kulutusmenot mrd 00 e 486547 }
+ 0.3409 * Z[i,54] {10.0 YDPF% Kuluttajien käytettävissä oleva tulo mrd 00 e YDPC/CEPP}
+ 1.209 * Z[i, 3]; { 2.9 UNMR$ Työttömyysaste prosenttia 4164 }
{ F 1759 (5,27) RR 0.995 DW 1.8 SD 6.3 Ro 0.09 (20050128) }
{ 70: CEPF CNST YDPF }
4: Z[i, 5] := { CEPF% Yksityiset kulutusmenot mrd 00 e 486547 }
+ 45.14 { 1.7 CNST vakiotermi }
+ 0.7533 * Z[i,54]; {18.3 YDPF% Kuluttajien käytettävissä oleva tulo mrd 00 e YDPC/CEPP}
{ F 333 (3,27) RR 0.927 DW 0.4 SD 24.4 Ro 0.79 (20050128) }
{ 71: CEPF CNST YDPF UNMR ; }
5: Z[i, 5] := { CEPF% Yksityiset kulutusmenot mrd 00 e 486547 }
+ 15.94 { 0.8 CNST vakiotermi }
+ 0.7452 * Z[i,54] {25.4 YDPF% Kuluttajien käytettävissä oleva tulo mrd 00 e YDPC/CEPP}
+ 4.462 * Z[i, 3]; { 5.1 UNMR$ Työttömyysaste prosenttia 4164 }
{ F 344 (4,27) RR 0.963 DW 0.8 SD 17.3 Ro 0.62 (20050128) }
end; { case Path[5] }
case Path[9] of
{ 72: MGSF CNST MGSF1 QGDF : }
1: Z[i, 9] := { MGSF% Tavaroiden ja palvelujen tuonti mrd 00 e 486555 }
- 91.43 { 2.7 CNST vakiotermi }
+ 0.6762 * Y[i-1, 9] { 5.2 MGSF% Tavaroiden ja palvelujen tuonti mrd 00 e 486555 }
+ 0.1820 * Z[i, 1]; { 2.9 QGDF% Bruttokansantuote markkinahintaan mrd 00 e 486536 }
{ F 518 (4,27) RR 0.975 DW 1.3 SD 15.4 Ro 0.33 (20050128) }
{ 73: MGSF CNST QGDF MGSP ; }
2: Z[i, 9] := { MGSF% Tavaroiden ja palvelujen tuonti mrd 00 e 486555 }
- 242.2 {10.3 CNST vakiotermi }
+ 0.5389 * Z[i, 1] {13.5 QGDF% Bruttokansantuote markkinahintaan mrd 00 e 486536 }
- 49.92 * X[i, 5]; { 1.1 MGSP% Hintaindeksi: tav ja palv tuonti 2000=1 486645 }
{ F 248 (4,27) RR 0.950 DW 0.3 SD 21.9 Ro 0.83 (20050128) }
end; { case Path[9] }
end; { AJKAP }
procedure AJKAC(i : integer; Path : VarBaT;
X,Y : ObsRmT; ZL1 : VarRaT;
var Z : ObsRmT; C: CpaRaT);
begin
{ Tähän lisätään tasokorjaus-osa }
end; { AJKC }
begin
end.
|