* piecemeal-prm.inc

$IF NOT SET iter $SET iter 004

SET ii /001*100/
PARAMETER scalelas(ii)
/
001   0.25
002   0.50
003   0.75
004   1
005   1.5
006   2
007   2.5
008   3
009   3.5
010   4
011   4.5
012   5
013   5.5
014   6
015   6.5
016   7
017   7.5
018   8
019   8.5
020   9
021   9.5
022   10
023   20
024   21
025   22
026   23
027   24
028   25
029   26
030   27
031   28
032   29
033   30
 
/
;

* alt:
*scalelas(ii) = 0.25*ORD(ii);
DISPLAY scalelas;


* elas centrales

tfpelas(a,invg) = tfpelas(a,invg)/2;

tfpelas(a,invg) = tfpelas(a,invg)*scalelas('%iter%');

*tradelas(c,'sigma_Q') = 1.05;
*tradelas(c,'sigma_Q') = tradelas(c,'sigma_Q')*scalelas('%iter%');

*tradelas(c,'sigma_X') = 1.05;
*tradelas(c,'sigma_X') = tradelas(c,'sigma_X')*scalelas('%iter%');

*scalelas(ii) = 1*ORD(ii);
*prodelas(a)  = prodelas(a)*scalelas('%iter%');


*tradelas(c,'sigmat') = tradelas(c,'sigmat')*scalelas('%iter%');

*unempdata(f,'phillips') = unempdata(f,'phillips')*scalelas('%iter%');

*tradelas(c,'eta')    = tradelas(c,'eta')*mu('eta');

*leselas(c,h)         = leselas(c,h)*mu('leselas');
*frisch(h)            = frisch(h)*mu('frisch');
