Tajka malli

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.

Asko Korpela 20050330 (20050330) o AJK homepage o Webmaster