() ADAM Jul 2005 - Foreløbig version 06.12.05 () () ### FORBRUG.F05 ### () () () PRIVAT FORBRUG () () FRML _DJ_ Tiphp = Timp + Tipphpb + Tidsp+Sdrsp + Tiddmp+Sdrdmp + Tidld+Sdrld $ FRML _DJ_ Tppun = Typshl - Tbhsl + Typshk - Tbhsk + Tphhlu - Tphhli + Tphhku - Tphhki + Tpatpu - Tpatpi + Tpspu - Tpspi + Tpdmpu - Tpdmpi + Tpldu - Tpldi $ FRML _DJ_ Ydpl1 = Ydp - Tiphp + Sdr + Tppun - Yfh - (Iv-Ivo1) $ FRML _DJ_ Ydpsk2 = Ydp - (Ydph1+Tbhsp-Typshp) - (Yfh-kyrp2*0.82*Yfh) $ FRML _DJ_ Ydphk2 = (Ydph1+Tbhsp-Typshp) - Tiphp + Sdr + Tppun - kyrp2*0.82*Yfh $ FRML _I pcp4xhv1 = ( pcbs*fCbs(-1)+pce*fCe(-1)+pcf*fCf(-1)+pcg*fCg(-1) +pci*fCi(-1)+pck*fCk(-1)+pcn*fCn(-1)+pcs*fCs(-1) +pcv*fCv(-1)+pct*fCt(-1)-pet*fEt(-1) ) /(fCp(-1)-fCb(-1)+fCbs(-1)-fCh(-1)) $ FRML _GJRD fCh = fCh(-1)*fKbh(-1)/fKbh(-2) $ FRML _GJRD fChl = fChl(-1)*fKbhl(-1)/fKbhl(-2) $ FRML _D fChe = (fKbhe(-1)/fKbh(-1))*(fVeh+fVmh+(1-ahch)*fCh) + 0.03712751*fKbhe(-1) $ FRML _D Che = (fKbhe(-1)/fKbh(-1))*(Vh+(pch-ahch*pxh)*fCh) + phk*fKnbhe(-1) *((1-tsuih)*iwbz + bfinvbh - 0.50*rpibhe) + tsuih*Yrphs + Siqejh*fKnbhe(-2)/fKnbh(-2) + Ssyej $ FRML _D pche = Che/fChe $ FRML _GJ_D pchl = pchl(-1)*pch/pch(-1) $ FRML _D pch1 = (pchl*fChl(-1)+pche*fChe(-1)) /(fChl(-1)+fChe(-1)) $ FRML _D pcp4v2 = ( pcp4xhv1*(fCp(-1)-fCb(-1)+fCbs(-1)-fCh(-1)) +pchl*fChl(-1)+pche*fChe(-1) ) /(fCp(-1)-fCb(-1)-fCh(-1)+fCbs(-1)+fChe(-1)+fChl(-1)) $ FRML _DJRDF Log(Cp4xhw) = 0.870514*Log(Ydpl1/pcp4v2) + (1-0.870514)*Log(Wcp3(-1)/pcp4v2) -0.564660*Log(pcp4xhv1/pcp4v2) - 0.269245 + kcp4xhw + Log(pcp4xhv1) $ FRML _S___F Cp4xh1 = (1-Dfcp) *( Exp ( 0.383026*Dlog(Ydphk2) +0.111182*Dlog(Wcp3(-1)) -0.560498*Dlog(pcp4xhv1)+0.080145*Dlog(pch1) -0.295230*Log(Cp4xh1(-1)/Cp4xhw(-1)) +Log(Cp4xh1(-1)/pcp4xhv1(-1))+Log(pcp4xhv1) +JRcp4xh1 ) +Jcp4xh1) + Dfcp*(Zfcp*pcp-fCb*pcb+fCbs*pcbs-fCh*pch) $ FRML _I pcgbk1 = (pcg*fCg(-1)+pcbs*fCbs(-1)+pck*fCk(-1)) /(fCg(-1)+fCbs(-1)+fCk(-1)) $ FRML _D fCfm = 2.87408 + .70418*(fCf(-1)-.25*Et(-1)/pcf(-1))/U(-1) $ FRML _D fCnm = 0.49769 + .85206*(fCn(-1)-.14*Et(-1)/pcn(-1))/U(-1) $ FRML _D fCim = 0.61461 + .76586*(fCi(-1)-.05*Et(-1)/pci(-1))/U(-1) $ FRML _D fCem = 0.14276 + .78184*fCe(-1)/U(-1)+.0030754*fros $ FRML _D fCgbk1m = 0.06869 + .93954*(fCgbk1(-1)-.13*Et(-1)/pcgbk1(-1))/U(-1) $ FRML _D fCvm = 0.15947 + .78620*(fCv(-1)-.05*Et(-1)/pcv(-1))/U(-1) $ FRML _D fCsm = -0.11938 + .93462*(fCs(-1)-.38*Et(-1)/pcs(-1))/U(-1) + .32561*D82inf $ FRML _D fCtm = - 0.13718 + 0.84970*fCt(-1)/U(-1) $ FRML _D Czm = pcf*( (1-Dfcf)*fCfm+(1-Dfcf)*JfCf/U +Dfcf*(Zfcf/U-0.25*Et/(pcf*U)) ) +pcn*( (1-Dfcn)*fCnm+(1-Dfcn)*JfCn/U +Dfcn*(Zfcn/U-0.14*Et/(pcn*U)) ) +pci*( (1-Dfci)*fCim+(1-Dfci)*JfCi/U +Dfci*(Zfci/U-0.05*Et/(pci*U)) ) +pce*( (1-Dfce)*fCem+(1-Dfce)*JfCe/U +Dfce*Zfce/U ) +pcgbk1*( (1-Dfcgbk1)*fCgbk1m+(1-Dfcgbk1)*Jfcgbk1/U +Dfcgbk1*(Zfcgbk1/U-0.13*Et/(pcgbk1*U)) ) +pcv*( (1-Dfcv)*fCvm+(1-Dfcv)*JfCv/U +Dfcv*(Zfcv/U-0.05*Et/(pcv*U)) ) +pcs*( (1-Dfcs)*fCsm+(1-Dfcs)*JfCs/U +Dfcs*(Zfcs/U-0.38*Et/(pcs*U)) ) +pct*( (1-Dfct)*fCtm+(1-Dfct)*JfCt/U +Dfct*Zfct/U ) $ FRML _SJ_D fCf = ( fCfm +( 0.06716 /( 1-Dfcn*0.05517 -Dfci*0.25530 -Dfce*0.08303 -Dfcgbk1*0.10066 -Dfcv*0.18685 -Dfcs*0.16436 -Dfct*0.08747 ) ) *(Cp4xh1/U-Czm)/pcf ) *U + 0.25*Et/pcf $ FRML _SJ_D fCn = ( fCnm +( 0.05517 /( 1-Dfcf*0.06716 -Dfci*0.25530 -Dfce*0.08303 -Dfcgbk1*0.10066 -Dfcv*0.18685 -Dfcs*0.16436 -Dfct*0.08747 ) ) *(Cp4xh1/U-Czm)/pcn ) *U + 0.14*Et/pcn $ FRML _SJ_D fCi = ( fCim +( 0.25530 /( 1-Dfcf*0.06716 -Dfcn*0.05517 -Dfce*0.08303 -Dfcgbk1*0.10066 -Dfcv*0.18685 -Dfcs*0.16436 -Dfct*0.08747 ) ) *(Cp4xh1/U-Czm)/pci ) *U + 0.05*Et/pci $ FRML _SJ_D fCe = ( fCem +( 0.08303 /( 1-Dfcf*0.06716 -Dfcn*0.05517 -Dfci*0.25530 -Dfcgbk1*0.10066 -Dfcv*0.18685 -Dfcs*0.16436 -Dfct*0.08747 ) ) *(Cp4xh1/U-Czm)/pce ) *U $ FRML _SJ_D fCgbk1 = ( fCgbk1m +(0.10066 /( 1-Dfcf*0.06716 -Dfcn*0.05517 -Dfci*0.25530 -Dfce*0.08303 -Dfcv*0.18685 -Dfcs*0.16436 -Dfct*0.08747 ) ) *(Cp4xh1/U-Czm)/pcgbk1 ) *U + 0.13*Et/pcgbk1 $ FRML _SJ_D fCv = ( fCvm +(0.18685 /( 1-Dfcf*0.06716 -Dfcn*0.05517 -Dfci*0.25530 -Dfce*0.08303 -Dfcgbk1*0.10066 -Dfcs*0.16436 -Dfct*0.08747 ) ) *(Cp4xh1/U-Czm)/pcv ) *U + 0.05*Et/pcv $ FRML _SJ_D fCs = ( fCsm +(0.16436 /( 1-Dfcf*0.06716 -Dfcn*0.05517 -Dfci*0.25530 -Dfce*0.08303 -Dfcgbk1*0.10066 -Dfcv*0.18685 -Dfct*0.08747 ) ) *(Cp4xh1/U-Czm)/pcs ) *U + 0.38*Et/pcs $ FRML _SJ_D fCt = ( fCtm +(0.08747 /( 1-Dfcf*0.06716 -Dfcn*0.05517 -Dfci*0.25530 -Dfce*0.08303 -Dfcgbk1*0.10066 -Dfcv*0.18685 -Dfcs*0.16436 ) ) *(Cp4xh1/U-Czm)/pct ) *U $ FRML _D Cgk = fCgbk1*pcgbk1 - pcbs*fCbs $ FRML _D__D pcgk = ( ((0.382311)**0.604368)*(pcg/dtfcg)**(1-0.604368) +((1-0.382311)**0.604368)*(pck/dtfck)**(1-0.604368) ) **(1/(1-0.604368)) $ FRML _SJRD Log(fCgw) = Log(Cgk/pcgk) - 0.604368*Log(pcg/pcgk) - (1-0.604368)*Log(dtfcg) + 0.604368*Log(0.382311) $ FRML _SJRD Dlog(fCg) = Dlog(Cgk/pcgk) - 0.256071*Dlog(pcg/pcgk) + 0.330319*(1-0.604368)*Dlog(dtfcg) + .8*Dlog(Kcb) + 0.330319*(-Log(fCg(-1)) + Log(fCgw(-1))) $ FRML _I fCk = (Cgk-fCg*pcg)/pck $ FRML _DJR rpcbe = .4*(pm7b/pm7b(-1)-1)+(1-.4)*rpcbe(-1) $ FRML _DJR ucb1 = pcb*(fKncb(-1)/fKcb(-1)) *((iku*(1-tsuih))+bfinvcb-0.5*rpcbe)+(Sdv/fKcb(-1)) $ FRML _DJ_ Ycb = (Ydpl1**0.87)*(Wcp3(-1)**0.13) $ FRML _DJRD Log(fKcbw) = - 2.78610+1.03616*Log(Ycb/pcp4v2) + 0.436028/(1+(Log(Ycb/pcp4v2)/12.87)**(-110)) - 0.599014*Log(ucb1/pcp4v2)-0.015834*D94 + kfkcbw $ FRML _SJRD Dlog(fKcb) = 0.245982*Dlog(Ycb/pcp4v2) - 0.05*Dlog(ucb1/pcp4v2) - 0.015834*(D94-D94(-1)) - 0.178346*(Log(fKcb(-1))-Log(fKcbw(-1))) + 0.4*Dlog(fKcb(-1)) $ FRML _D Cbs = ucb1*fKcb(-1) $ FRML _D fCbs = 0.106671*fKcb(-1) $ FRML _D pcbs = Cbs / fCbs $ FRML _SJRD Dlog(Kcb) = 0.83196*Dlog(fKcb)-0.00021*(tid-1957) $ FRML _I fCb = fKcb - (1-bfivcb)*fKcb(-1) $ FRML _I Dif(fKncb) = fCb - bfinvcb*fKncb(-1) $ FRML _I fCp = fCh + fCf + fCn + fCi + fCe + fCg + fCb + fCk + fCv + fCs + fCt - fEt $ FRML _I Cp = fCf*pcf + fCn*pcn + fCi*pci + fCe*pce + fCg*pcg + fCb*pcb + fCv*pcv + fCh*pch + fCk*pck + fCs*pcs + fCt*pct - fEt*pet $ FRML _I pcp = Cp/fCp $ FRML _D kwbr = iwbn*(1-(1+iwbz)**(-nwbr)) /(iwbz*(1-(1+iwbn)**(-nwbr))) $ FRML _D kwpb = iwbn*(1-(1+iwbz)**(-nwpb)) /(iwbz*(1-(1+iwbn)**(-nwpb))) $ FRML _D Wpbkz = Wpbkz(-1)*kwpb/kwpb(-1) + Dif(Wpbz) $ FRML _D Wabk = Wabk(-1) *kwpb/kwpb(-1) + Dif(Wabz) + Dif(Wobz) + Dif(Wsbz) + Dif(Wrbz) $ FRML _D Wzbkr = Wzbkr(-1)*kwbr/kwbr(-1) + Dif(Wzbr) $ FRML _D Wpqkpc1 = Wpqp - Wbqb - Wtlf + Wflt + Wpbkz - Wpbz - Wzbkr + Wzbr + Wabk - Wabz - Wobz - Wsbz - Wrbz $ FRML _D Wp = Wp(-1)*(kwpb/kwpb(-1)+(1-tss0-tss1)*iwpp) + (1+iwppd)**12/((1+(1-tss0-tss1)*iwpp)**12) *(Tbhsk+Tphhki+Tbhsl+Tphhli+Saqw+Tpatpi+Tpspi) - (Typshk+Tphhku+Typshl+Tphhlu+Tpatpu+Tpspu) $ FRML _D Wps1 = Wps1(-1)*(kwpb/kwpb(-1)+(1-tss0-tss1)*iwpp) + tsdp*(1+iwppd)**12/((1+(1-tss0-tss1)* iwpp)**12) *(Tbhsk+Tphhki)-tsdp*(Typshk+Tphhku) $ FRML _D Wps2 = Wps2(-1)*(kwpb/kwpb(-1)+(1-tss0-tss1)*iwpp) + (tss0+tss1)*(1+iwppd)**12/((1+(1-tss0-tss1)*iwpp)**12) *(Tbhsl+Tphhli+Saqw+Tpatpi+Tpspi) - (tss0+tss1)*(Typshl+Tphhlu+Tpatpu+Tpspu) $ FRML _D Wps = Wps1 + Wps2 $ FRML _D fKnmp = fKnma + fKnme + fKnmb + fKnmh + fKnmng + fKnmne + fKnmnf + fKnmnn + fKnmnb + fKnmnm + fKnmnt + fKnmnk + fKnmnq + fKnmqh+ fKnmqs + fKnmqt + fKnmqf + fKnmqq $ FRML _D fKnbp = fKnba + fKnbe + fKnbb + fKnbng + fKnbne + fKnbnf + fKnbnn + fKnbnb + fKnbnm + fKnbnt + fKnbnk + fKnbnq + fKnbqh + fKnbqs + fKnbqt + fKnbqf + fKnbqq $ FRML _DJ__F Wcp3 = pibh*fKnbhl + phk*fKnbhe + pcb*fKncb + Wpqkpc1 + pimp11*fKnmp + pibp11*fKnbp - Wps $ () ### BOLIG.F05 ### () () () BOLIGINVESTERINGER () () FRML _GJ_ phv = (0.5*phk+0.5*phk(-1))*kphv $ FRML _DJ_D rpibhe = 0.75*rpibhe(-1) + 0.25*(pibh/pibh(-1)-1) $ FRML _DJRD bfknbh = fKnbh/fKbh $ FRML _DJRD fKbhw = U*Exp( 1.00825*Log(Cp4xh1/(U*pcp4xhv1)) +0.344785/(1+(Cp4xh1/(U*pcp4xhv1)/Exp(4.08))**(-20)) -0.564660*Log(pche/pcp4xhv1) + 1.40682 + Log(kfkbhw) ) $ FRML _SJRD Dlog(phk) = 1.15436*Dlog(Cp4xh1/(U*pcp4xhv1)) -0.407913*Dlog((pche/phk)/pcp4xhv1) -0.576546*Log(fKbh(-1)/fKbhw(-1)) $ FRML _GJ_D phgk = phk/kphkg $ FRML _SJRD Dlog(fKbh) = 0.3*.030808*Dlog(phk/(.8*pibh+.2*phgk)) + 0.030808*Log(phk(-1)/(.8*pibh(-1)+.2*phgk(-1))) + 1.17295*nbs/fKbh(-1) + 0.021836*Log(fKbhw(-1)/fKbh(-1)) + 0.00744007+kfkbh - 0.6*( 0.3*0.030808*Dlog(phk(-1)/ (.8*pibh(-1)+.2*phgk(-1))) +0.030808*Log(phk(-2)/(.8*pibh(-2)+.2*phgk(-2))) +1.17295*nbs(-1)/fKbh(-2) +0.021836*Log(fKbhw(-2)/fKbh(-2)) +0.00744007+kfkbh - Dlog(fKbh(-1)) ) $ FRML _DJ_ fIbh = Dif(fKbh) + bfivbh*fKbh(-1) $ FRML _GJ_D fInvbh = bfinvbh*fKnbh(-1) $ FRML _I Dif(fKnbh) = fIbh - fInvbh - 2025*D99 $ FRML _GJ_D fIbhl = 1.6*nbs*(1+JRfibhl) $ FRML _I Dif(fKbhl) = fIbhl - bfivbh*fKbhl(-1) $ FRML _I fKbhe = fKbh - fKbhl $ FRML _I Dif(fKnbhl) = fIbhl - bfinvbh*fKnbhl(-1) - (1-fKbhe/fKbh)*2025*D99 $ FRML _I fKnbhe = fKnbh - fKnbhl $ () ### INVEST.F05 ### () () () FASTE INVESTERINGER I ØVRIGT () () FRML _GJ_D tsdsu1 = bsds*(1/2)*tsds1 +(1-(1/2)*bsds)*ktsds*tsds1 $ FRML _GJRD iwbzsu = ((1-tsdsu1)*iwbz -D8291*(ptty1/ptty1(-1)-1))/ (1+D8291*(ptty1/ptty1(-1)-1)) $ FRML _DJ_ bivmu = bivmp0 +bivmp*(1 -bivmp1)/(bivmp+iwbzsu) $ FRML _DJ_ bivbu = bivbp0 +bivbp*(bivbpw-bivbp1)/(bivbp+iwbzsu) $ FRML _I fImp = fIma + fIme + fImb + fImh + fImng + fImne + fImnf + fImnn + fImnb + fImnm + fImnt + fImnk + fImnq + fImqh + fImqs + fImqt + fImqf + fImqq $ FRML _I fInvmp = bfinvma*fKnma(-1) + bfinvme*fKnme(-1) + bfinvmb*fKnmb(-1) + bfinvmh*fKnmh(-1) + bfinvmng*fKnmng(-1)+ bfinvmne*fKnmne(-1) + bfinvmnf*fKnmnf(-1)+ bfinvmnn*fKnmnn(-1) + bfinvmnb*fKnmnb(-1)+ bfinvmnm*fKnmnm(-1) + bfinvmnt*fKnmnt(-1)+ bfinvmnk*fKnmnk(-1) + bfinvmnq*fKnmnq(-1)+ bfinvmqh*fKnmqh(-1) + bfinvmqs*fKnmqs(-1)+ bfinvmqt*fKnmqt(-1) + bfinvmqf*fKnmqf(-1)+ bfinvmqq*fKnmqq(-1) $ FRML _I fIvmp = bfivma*fKma(-1) + bfivme*fKme(-1) + bfivmb*fKmb(-1) + bfivmh*fKmh(-1) + bfivmng*fKmng(-1)+ bfivmne*fKmne(-1) + bfivmnf*fKmnf(-1)+ bfivmnn*fKmnn(-1) + bfivmnb*fKmnb(-1)+ bfivmnm*fKmnm(-1) + bfivmnt*fKmnt(-1)+ bfivmnk*fKmnk(-1) + bfivmnq*fKmnq(-1)+ bfivmqh*fKmqh(-1) + bfivmqs*fKmqs(-1)+ bfivmqt*fKmqt(-1) + bfivmqf*fKmqf(-1)+ bfivmqq*fKmqq(-1) $ FRML _I fIbp = fIba + fIbe + fIbb + fIbng + fIbne + fIbnf + fIbnn + fIbnb + fIbnm + fIbnt + fIbnk + fIbnq + fIbqh + fIbqs + fIbqt + fIbqf + fIbqq $ FRML _I fInvbp = bfinvba*fKnba(-1) + bfinvbe*fKnbe(-1) + bfinvbb*fKnbb(-1) + bfinvbng*fKnbng(-1) + bfinvbne*fKnbne(-1)+ bfinvbnf*fKnbnf(-1) + bfinvbnn*fKnbnn(-1)+ bfinvbnb*fKnbnb(-1) + bfinvbnm*fKnbnm(-1)+ bfinvbnt*fKnbnt(-1) + bfinvbnk*fKnbnk(-1)+ bfinvbnq*fKnbnq(-1) + bfinvbqh*fKnbqh(-1)+ bfinvbqs*fKnbqs(-1) + bfinvbqt*fKnbqt(-1)+ bfinvbqf*fKnbqf(-1) + bfinvbqq*fKnbqq(-1) $ FRML _I fIvbp = bfivba*fKba(-1) + bfivbe*fKbe(-1) + bfivbb*fKbb(-1) + bfivbng*fKbng(-1) + bfivbne*fKbne(-1)+ bfivbnf*fKbnf(-1) + bfivbnn*fKbnn(-1)+ bfivbnb*fKbnb(-1) + bfivbnm*fKbnm(-1)+ bfivbnt*fKbnt(-1) + bfivbnk*fKbnk(-1)+ bfivbnq*fKbnq(-1) + bfivbqh*fKbqh(-1)+ bfivbqs*fKbqs(-1) + bfivbqt*fKbqt(-1)+ bfivbqf*fKbqf(-1) + bfivbqq*fKbqq(-1) $ FRML _I fIbo11 = fIbo*kfibo11 $ FRML _I Ibo11 = fIbo11*pibo11 $ FRML _I fImo11 = fImo*kfimo11 $ FRML _I Imo11 = fImo11*pimo11 $ FRML _G Io11 = Imo11 + Ibo11 $ FRML _G fIo1 = kfio1*(fImo11+fIbo11) $ FRML _G fIbo1 = kfibo1*fIbo11 $ FRML _G pibo1 = kpibo2*pibo11 $ FRML _G Ivo1 = (fInvmo*pimo + fInvbo*pibo)*kivo1 $ FRML _G Iph = kiph1 *(bqsa1*(pima*fIma+piba*fIba) +bqse1*(pime*fIme+pibe*fIbe) +bqsng1*(pimng*fImng+pibng*fIbng) +bqsnn1*(pimnn*fImnn+pibnn*fIbnn) +bqsnb1*(pimnb*fImnb+pibnb*fIbnb) +bqsnm1*(pimnm*fImnm+pibnm*fIbnm) +bqsnt1*(pimnt*fImnt+pibnt*fIbnt) +bqsnk1*(pimnk*fImnk+pibnk*fIbnk) +bqsnq1*(pimnq*fImnq+pibnq*fIbnq) +bqsb1*(pimb*fImb+pibb*fIbb) +bqsqh1* (pimqh*fImqh+pibqh*fIbqh) +bqsqs1*(pimqs*fImqs+pibqs*fIbqs) +bqsqt1*(pimqt*fImqt+pibqt*fIbqt) +bqsqq1*(pimqq*fImqq+pibqq*fIbqq) +0.82*(pimh*fImh+pibh*fIbh) ) $ FRML _G fImk = fImp*kfimk $ FRML _I fIm = fImp + fImo + fImk $ FRML _I fIb = fIbp + fIbo + fIbh $ FRML _I fImp11 = fIm - fImo11 $ FRML _I fIbp11 = fIb - fIbo11 - fIbh $ FRML _I I = fImp11*pimp11 + fImo11*pimo11 + fIbp11*pibp11 + fIbo11*pibo11 + fIbh*pibh + fIt*pit + fIl*pil $ FRML _G Iv = (fInvbo*pibo+fInvmo*pimo + fInvbh*pibh+fInvbp*pibp+fInvmp*pimp)*kiv $ () ### LAGER.F05 ### () () () Lagerinvesteringer () () FRML _S fIla = (1-Dfil) *( 0.07049*(Dif(fXa(-1))-Dif(fIla(-1))) +0.66667*(hostkor-0.5*hostkor(-1)-0.5*hostkor(-2)) +JfIla ) + Dfil*Zfila $ FRML _S fIle = (1-Dfil) *( 0.07962*(0.50*(Dif(fXe)-Dif(fIle)) +(1-0.50)*(Dif(fXe(-1))-Dif(fIle(-1)))) +JfIle ) + Dfil*Zfile $ FRML _G fIlng = (1-Dfil) *( bngil*(Dif(fXng)-Dif(fIlng)) +JfIlng ) + Dfil*Zfilng $ FRML _S fIlne = (1-Dfil) *( 0.30909*0.01815*(0.00*(Dif(fXne)-Dif(fIlne)) +(1-0.00)*(Dif(fXne(-1))-Dif(fIlne(-1)))) +(1-0.30909)*fIlne(-1) +JfIlne ) + Dfil*Zfilne $ FRML _S fIlnf = (1-Dfil) *( 0.01983*(Dif(fXnf)-Dif(fIlnf)) +JfIlnf ) + Dfil*Zfilnf $ FRML _S fIlnn = (1-Dfil) *( 0.64838*0.30265*(Dif(fXnn)-Dif(fIlnn)) +(1-0.64838)*fIlnn(-1) +JfIlnn ) + Dfil*Zfilnn $ FRML _S fIlnb = (1-Dfil) *( 0.19919*(0.75*(Dif(fXnb)-Dif(fIlnb)) +(1-0.75)*(Dif(fXnb(-1))-Dif(fIlnb(-1)))) +JfIlnb ) + Dfil*Zfilnb $ FRML _S fIlnm = (1-Dfil) *( 0.19618*(0.50*(Dif(fXnm)-Dif(fIlnm)) +(1-0.50)*(Dif(fXnm(-1))-Dif(fIlnm(-1)))) +JfIlnm ) + Dfil*Zfilnm $ FRML _S fIlnt = (1-Dfil) *( 0.01049*(0.00*(Dif(fXnt)-Dif(fIlnt)) +(1-0.00)*(Dif(fXnt(-1))-Dif(fIlnt(-1)))) +JfIlnt ) + Dfil*Zfilnt $ FRML _S fIlnk = (1-Dfil) *( 0.11555*(0.75*(Dif(fXnk)-Dif(fIlnk)) +(1-0.75)*(Dif(fXnk(-1))-Dif(fIlnk(-1)))) +JfIlnk ) + Dfil*Zfilnk $ FRML _S fIlnq = (1-Dfil) *( 0.17113*(0.75*(Dif(fXnq)-Dif(fIlnq)) +(1-0.75)*(Dif(fXnq(-1))-Dif(fIlnq(-1)))) +JfIlnq ) + Dfil*Zfilnq $ FRML _S fIlqh = (1-Dfil) *( 0.01790*(Dif(fXqh)-Dif(fIlqh)) +JfIlqh ) + Dfil*Zfilqh $ FRML _G fIlqq = (1-Dfil) *( bqqil*(Dif(fXqq)-Dif(fIlqq)) +JfIlqq ) + Dfil*Zfilqq $ FRML _G fIlm0 = (1-Dfil) *( bm0il*(Dif(fM0)-Dif(fIlm0)) +JfIlm0 ) + Dfil*Zfilm0 $ FRML _S fIlm1 = (1-Dfil) *( 0.02550*(0.00*(Dif(fM1)-Dif(fIlm1)) +(1-0.00)*(Dif(fM1(-1))-Dif(fIlm1(-1)))) +JfIlm1 ) + Dfil*Zfilm1 $ FRML _S fIlm2 = (1-Dfil) *( 0.42477*0.28267*(0.00*(Dif(fM2)-Dif(fIlm2)) +(1-0.00)*(Dif(fM2(-1))-Dif(fIlm2(-1)))) +(1-0.42477)*fIlm2(-1) +JfIlm2 ) + Dfil*Zfilm2 $ FRML _S fIlm3k = (1-Dfil) *( 0.41680*(0.00*(Dif(fM3k)-Dif(fIlm3k)) +(1-0.00)*(Dif(fM3k(-1))-Dif(fIlm3k(-1)))) +JfIlm3k ) + Dfil*Zfilm3k $ FRML _S fIlm3r = (1-Dfil) *( 0.06153*(0.50*(Dif(fM3r)-Dif(fIlm3r)) +(1-0.50)*(Dif(fM3r(-1))-Dif(fIlm3r(-1)))) +JfIlm3r ) + Dfil*Zfilm3r $ FRML _S fIlm3q = (1-Dfil) *( 0.53129*0.16938*(0.00*(Dif(fM3q)-Dif(fIlm3q)) +(1-0.00)*(Dif(fM3q(-1))-Dif(fIlm3q(-1)))) +(1-0.53129)*fIlm3q(-1) +JfIlm3q ) + Dfil*Zfilm3q $ FRML _S fIlm5 = (1-Dfil) *( 0.19085*(0.50*(Dif(fM5)-Dif(fIlm5)) +(1-0.50)*(Dif(fM5(-1))-Dif(fIlm5(-1)))) +JfIlm5 ) + Dfil*Zfilm5 $ FRML _S fIlm6m = (1-Dfil) *( 0.17929*(0.75*(Dif(fM6m)-Dif(fIlm6m)) +(1-0.75)*(Dif(fM6m(-1))-Dif(fIlm6m(-1)))) +JfIlm6m ) + Dfil*Zfilm6m $ FRML _S fIlm6q = (1-Dfil) *( 0.18089*(0.75*(Dif(fM6q)-Dif(fIlm6q)) +(1-0.75)*(Dif(fM6q(-1))-Dif(fIlm6q(-1)))) +JfIlm6q ) + Dfil*Zfilm6q $ FRML _S fIlm7b = (1-Dfil) *( 0.25703*(0.50*(Dif(fM7b)-Dif(fIlm7b)) +(1-0.50)*(Dif(fM7b(-1))-Dif(fIlm7b(-1)))) +4706.03*D86 +JfIlm7b ) + Dfil*Zfilm7b $ FRML _G fIlm7y = (1-Dfil) *( bm7yil*(Dif(fM7y)-Dif(fIlm7y)) +JfIlm7y ) + Dfil*Zfilm7y $ FRML _S fIlm7q = (1-Dfil) *( 0.71279*0.16172*(Dif(fM7q)-Dif(fIlm7q)) +(1-0.71279)*fIlm7q(-1) +JfIlm7q ) + Dfil*Zfilm7q $ FRML _S fIlm8 = (1-Dfil) *( 0.10935*(0.75*(Dif(fM8)-Dif(fIlm8)) +(1-0.75)*(Dif(fM8(-1))-Dif(fIlm8(-1)))) +JfIlm8 ) + Dfil*Zfilm8 $ FRML _I fIl = fIla + fIle + fIlne + fIlng + fIlnf + fIlnn + fIlnb + fIlnm + fIlnt + fIlnk + fIlnq + fIlqh + fIlqq + fIlm0 + fIlm1 + fIlm2 + fIlm3r + fIlm3k + fIlm3q + fIlm5 + fIlm6m + fIlm6q + fIlm7b + fIlm7q + fIlm7y + fIlm8 + fIlsi $ () ### EKSPORT.F05 ### () () () EKSPORT I FASTE PRISER () () Elasticiteter: Efterspørgsel Pris Fejlkorrektionsparameter () Varegruppe langsigt kort sigt langsigt kort sigt tilpasningshastighed () fE2 1 ekyfe2 0.3190 elpfe2 -1.2767 ekpfe2 -0.1915 tfe2 0.1500 () fE5 1 ekyfe5 0.8900 elpfe5 -3.5211 ekpfe5 -0.6947 tef5 0.1500 () fE6 1 ekyfe6 0.8283 elpfe6 -3.7574 ekpfe6 -0.6767 tfe6 0.1500 () fE7q 1 ekyfe7q 0.8379 elpfe7q -1.0000 ekpfe7q -0.5425 tfe7q 0.1500 () fE8 1 ekyfe8 0.6283 elpfe8 -3.0602 ekpfe8 -0.3940 tfe8 0.1500 () fEt 1 ekyfet 1 elpfet -2.3290 ekpfet -0.6103 tfet 0.1907 () fEsq 1 ekyfesq 1 elpfesq -1.5000 ekpfesq -0.2250 tfesq 0.1500 FRML _D faE0 = fXa -( aaa*fXa+aane*fXne+aanf*fXnf+aann*fXnn+aanb*fXnb+aab*fXb+aao*fXo +aacf*fCf+aaci*fCi+aaco*fCo+aait*fIt+fIla+aae2*fE2 ) $ FRML _D fnfe0 = fXnf-( anfa*fXa+anfnf*fXnf+anfnk*fXnk+anfqq*fXqq+anfo*fXo+anfcf*fCf +anfcn*fCn +fIlnf+anfe2*fE2+anfe5*fE5) $ FRML _GJRD fE0 = fE0(-1)*((faE0+fnfe0)/(faE0(-1)+fnfe0(-1))) $ FRML _GJRD fE0k = fE0 -.33333*(hostkor+hostkor(-1)+hostkor(-2)) $ FRML _GJRD Dlog(fE1) = Dlog(fE0k) $ FRML _DJRD Log(fE2w) = 9.219+Log(fEe2 )*(1-.0000*ddeu)+elpfe2 *Log(pe2 /pee2 ) +Log(kfe2w ) $ FRML _DJRD Log(fE5w) = 10.270+Log(fEe5 )*(1-.5299*ddeu)+elpfe5 *Log(pe5 /pee5 ) +Log(kfe5w ) $ FRML _DJRD Log(fE6w) = 10.230+Log(fEe6 )*(1-.4549*ddeu)+elpfe6 *Log(pe6 /pee6 ) +Log(kfe6w ) $ FRML _DJRD Log(fE7qw) = 11.062+Log(fEe7q)*(1-.0000*ddeu)+elpfe7q*Log(pe7q/pee7q) +Log(kfe7qw) $ FRML _DJRD Log(fE8w) = 10.639+Log(fEe8 )*(1-.4978*ddeu)+elpfe8 *Log(pe8 /pee8 ) +Log(kfe8w ) $ FRML _DJRD Log(fEtw) = 9.907+Log(fEet )*(1-.0000*ddeu)+elpfet *Log(pet /peet ) +Log(kfetw )+dtfetw $ FRML _GJ_D Log(fEsqw) = Log(fEesq) +elpfesq*Log(pesq/peesq) $ FRML _SJRD Dlog(fE2) = ekyfe2 *Dlog(fEe2) +ekpfe2 *Dlog(pe2/pee2) -tfe2 *Log((fE2(-1)*(1-am2e2(-1)))/fE2w(-1))-Dlog(1-am2e2) $ FRML _SJRD Dlog(fE5) = ekyfe5 *Dlog(fEe5) +ekpfe5 *Dlog(pe5/pee5) -.1125*(ddeu-ddeu(-1))-tfe5 *Log(fE5(-1)/fE5w(-1)) $ FRML _SJRD Dlog(fE6) = ekyfe6 *Dlog(fEe6) +ekpfe6 *Dlog(pe6/pee6) -.0554*(ddeu-ddeu(-1))-tfe6 *Log(fE6(-1)/fE6w(-1)) $ FRML _SJRD Dlog(fE7q) = ekyfe7q*Dlog(fEe7q)+ekpfe7q*Dlog(pe7q/pee7q)-.0000*(ddeu-ddeu(-1))-tfe7q*Log(fE7q(-1)/fE7qw(-1)) $ FRML _SJRD Dlog(fE8) = ekyfe8 *Dlog(fEe8) +ekpfe8 *Dlog(pe8/pee8) -.1340*(ddeu-ddeu(-1))-tfe8 *Log(fE8(-1)/fE8w(-1)) $ FRML _SJRD Dlog(fEt) = ekyfet *Dlog(fEet) +ekpfet *Dlog(pet/peet) -tfet *Log(fEt(-1)/fEtw(-1)) $ FRML _GJRD Dlog(fEsq) = ekyfesq*Dlog(fEesq)+ekpfesq*Dlog(pesq/peesq) -tfesq*Log(fEsq(-1)/fEsqw(-1)) $ FRML _GJ_D fE7y = 0.1*fE7q $ FRML _I fEv = fE0+fE1+fE2+fE3+fE5+fE6+fE7y+fE7q+fE8 $ FRML _I fEs = fEss + fEsq $ FRML _I fE = fEv+fEs+fEt $ () ### IMPORT.F05 ### () () () EFTERSPØRGSELSUDTRYK, FASTE PRISER, INDEKS () () FRML _D fAm0 = ( am0a(-1)*fXa(-1)*fVma/fVma(-1) +am0nf(-1)*fXnf(-1)*fVmnf/fVmnf(-1) +am0qq(-1)*fXqq(-1)*fVmqq/fVmqq(-1) +am0cf(-1)*fCf +am0cn(-1)*fCn +am0ci(-1)*fCi ) *fAm0(-1)/fMz0(-1)$ FRML _D fAm1 = ( am1nn(-1)*fXnn(-1)*fVmnn/fVmnn(-1) +am1qq(-1)*fXqq(-1)*fVmqq/fVmqq(-1) +am1cn(-1)*fCn +am1ci(-1)*fCi ) *fAm1(-1)/fMz1(-1)$ FRML _D fAm2 = ( am2a(-1)*fXa(-1)*fVma/fVma(-1) +am2nf(-1)*fXnf(-1)*fVmnf/fVmnf(-1) +am2nb(-1)*fXnb(-1)*fVmnb/fVmnb(-1) +am2nk(-1)*fXnk(-1)*fVmnk/fVmnk(-1) +am2nq(-1)*fXnq(-1)*fVmnq/fVmnq(-1) +am2b(-1)*fXb(-1)*fVmb/fVmb(-1) +am2ci(-1)*fCi ) *fAm2(-1)/fMz2(-1)$ FRML _D fAm3q = ( am3qa(-1)*fXa(-1)*fVea/fVea(-1) +am3qnf(-1)*fXnf(-1)*fVenf/fVenf(-1) +am3qnn(-1)*fXnn(-1)*fVenn/fVenn(-1) +am3qnb(-1)*fXnb(-1)*fVenb/fVenb(-1) +am3qnm(-1)*fXnm(-1)*fVenm/fVenm(-1) +am3qnt(-1)*fXnt(-1)*fVent/fVent(-1) +am3qnk(-1)*fXnk(-1)*fVenk/fVenk(-1) +am3qnq(-1)*fXnq(-1)*fVenq/fVenq(-1) +am3qb(-1)*fXb(-1)*fVeb/fVeb(-1) +am3qqh(-1)*fXqh(-1)*fVeqh/fVeqh(-1) +am3qqs(-1)*fXqs(-1)*fVeqs/fVeqs(-1) +am3qqt(-1)*fXqt(-1)*fVeqt/fVeqt(-1) +am3qqf(-1)*fXqf(-1)*fVeqf/fVeqf(-1) +am3qqq(-1)*fXqq(-1)*fVeqq/fVeqq(-1) +am3qh(-1)*fXh(-1)*fVeh/fVeh(-1) +am3qci(-1)*fCi +am3qce(-1)*fCe +am3qcg(-1)*fCg ) *fAm3q(-1)/fMz3q(-1)$ FRML _D fAm5 = ( am5a(-1)*fXa(-1)*fVma/fVma(-1) +am5ng(-1)*fXng(-1)*fVmng/fVmng(-1) +am5nf(-1)*fXnf(-1)*fVmnf/fVmnf(-1) +am5nb(-1)*fXnb(-1)*fVmnb/fVmnb(-1) +am5nm(-1)*fXnm(-1)*fVmnm/fVmnm(-1) +am5nk(-1)*fXnk(-1)*fVmnk/fVmnk(-1) +am5nq(-1)*fXnq(-1)*fVmnq/fVmnq(-1) +am5b(-1)*fXb(-1)*fVmb/fVmb(-1) +am5qh(-1)*fXqh(-1)*fVmqh/fVmqh(-1) +am5qq(-1)*fXqq(-1)*fVmqq/fVmqq(-1) +am5ci(-1)*fCi ) *fAm5(-1)/fMz5(-1)$ FRML _D fAm6m = ( am6mnf(-1)*fXnf(-1)*fVmnf/fVmnf(-1) +am6mnb(-1)*fXnb(-1)*fVmnb/fVmnb(-1) +am6mnm(-1)*fXnm(-1)*fVmnm/fVmnm(-1) +am6mnt(-1)*fXnt(-1)*fVmnt/fVmnt(-1) +am6mnk(-1)*fXnk(-1)*fVmnk/fVmnk(-1) +am6mnq(-1)*fXnq(-1)*fVmnq/fVmnq(-1) +am6mb(-1)*fXb(-1)*fVmb/fVmb(-1) +am6mcv(-1)*fCv +am6mim(-1)*fIm ) *fAm6m(-1)/fMz6m(-1)$ FRML _D fAm6q = ( am6qnf(-1)*fXnf(-1)*fVmnf/fVmnf(-1) +am6qnn(-1)*fXnn(-1)*fVmnn/fVmnn(-1) +am6qnb(-1)*fXnb(-1)*fVmnb/fVmnb(-1) +am6qnm(-1)*fXnm(-1)*fVmnm/fVmnm(-1) +am6qnt(-1)*fXnt(-1)*fVmnt/fVmnt(-1) +am6qnk(-1)*fXnk(-1)*fVmnk/fVmnk(-1) +am6qnq(-1)*fXnq(-1)*fVmnq/fVmnq(-1) +am6qb(-1)*fXb(-1)*fVmb/fVmb(-1) +am6qqh(-1)*fXqh(-1)*fVmqh/fVmqh(-1) +am6qqq(-1)*fXqq(-1)*fVmqq/fVmqq(-1) +am6qci(-1)*fCi +am6qcv(-1)*fCv +am6qim(-1)*fIm ) *fAm6q(-1)/fMz6q(-1)$ FRML _D fAm7q = ( am7qne(-1)*fXne(-1)*fVmne/fVmne(-1) +am7qnm(-1)*fXnm(-1)*fVmnm/fVmnm(-1) +am7qnt(-1)*fXnt(-1)*fVmnt/fVmnt(-1) +am7qb(-1)*fXb(-1)*fVmb/fVmb(-1) +am7qqt(-1)*fXqt(-1)*fVmqt/fVmqt(-1) +am7qqq(-1)*fXqq(-1)*fVmqq/fVmqq(-1) +am7qcb(-1)*fCb +am7qcv(-1)*fCv +am7qim(-1)*fIm ) *fAm7q(-1)/fMz7q(-1)$ FRML _D fAm8 = ( am8nm(-1)*fXnm(-1)*fVmnm/fVmnm(-1) +am8nk(-1)*fXnk(-1)*fVmnk/fVmnk(-1) +am8nq(-1)*fXnq(-1)*fVmnq/fVmnq(-1) +am8b(-1)*fXb(-1)*fVmb/fVmb(-1) +am8qh(-1)*fXqh(-1)*fVmqh/fVmqh(-1) +am8qq(-1)*fXqq(-1)*fVmqq/fVmqq(-1) +am8h(-1)*fXh(-1)*fVmh/fVmh(-1) +am8ci(-1)*fCi +am8cv(-1)*fCv +am8im(-1)*fIm) *fAm8(-1)/fMz8(-1)$ () () () UDTRYK FOR RELATIV PRIS () () FRML _D pxm0 = (pm0+tm0)/pxnf $ FRML _D pxm1 = (pm1+tm1)/pxnn $ FRML _D pxm2 = (pm2+tm2)/(0.30*pxa+0.20*pxnf+0.50*pxnb) $ FRML _D pxm5 = (pm5+tm5)/pxnk $ FRML _D pxm6q = (pm6q+tm6q)/(0.15*pxnb+0.10*pxnk+0.75*pxnq) $ FRML _D pxm7q = (pm7q+tm7q)/(0.90*pxnm+0.10*pxnt) $ FRML _D pxm8 = (pm8+tm8)/(0.25*pxnm+0.20*pxnk+0.55*pxnq) $ () () () IMPORT I FASTE PRISER () () FRML _DJRD Log(fMz0w) = 10.6078+Log(fAm0)-.21917*Log(pxm0) -1.57355/(1+(1+.09314)**(tid-1990.05+1))+Log(kfmz0w) $ FRML _SJRD Dlog(fMz0) = 1.83309*Dlog(fAm0)-.61881*Log(fMz0(-1)/fMz0w(-1)) $ FRML _D fMu0 = am0o*fXo + am0it*fIt + fIlm0 + am0e0*fE0 $ FRML _I fM0 = fMz0 + fMu0 $ FRML _DJRD Log(fMz1w) = 7.95343+Log(fAm1)-1.01875*Log(pxm1)+ Log(kfmz1w) $ FRML _SJRD Dlog(fMz1) = 0.47689*Dlog(fAm1)-1.01875*Dlog(pxm1) -.50329*Log(fMz1(-1)/fMz1w(-1)) $ FRML _D fMu1 = am1o*fXo + fIlm1 + am1e1*fE1 $ FRML _I fM1 = fMz1 + fMu1 $ FRML _DJRD Log(fMz2w) = 9.53763+Log(fAm2)-0.68688*Log(pxm2) -.42676/(1+(1-0.27817)**(tid-1970.28+1))+Log(kfmz2w) $ FRML _SJRD Dlog(fMz2) = 1.28387*Dlog(fAm2)-.26406*Dlog(pxm2) -.44346*Log(fMz2(-1)/fMz2w(-1)) $ FRML _D fMu2 = am2o*fXo + fIlm2 + am2e2*fE2 $ FRML _I fM2 = fMz2 + fMu2 $ FRML _D fM3k = am3ka*fXa+am3kne*fXne+am3knf*fXnf+am3knn*fXnn+am3knb*fXnb +am3knq*fXnq+am3ko*fXo+am3kce*fCe+fIlm3k+am3ke3*fE3 $ FRML _I fM3r = am3rng*fXng + am3ro*fXo + fIlm3r + am3re3*fE3 $ FRML _SJRD fMz3q = fMz3q(-1)*fAm3q/fAm3q(-1) $ FRML _D fMu3q = am3qe*fXe+am3qng*fXng+am3qne*fXne+am3qo*fXo +fIlm3q+am3qe3*fE3 $ FRML _I fM3q = fMz3q + fMu3q $ FRML _DJRD Log(fMz5w) = 8.60922+Log(fAm5)-.35074*Log(pxm5) +1.46386/(1+(1-0.1453)**(tid-1960+1))+Log(kfmz5w) $ FRML _SJRD Dlog(fMz5) = 1.07125*Dlog(fAm5)-.072008*Dlog(pxm5) -.496145*Log(fMz5(-1)/fMz5w(-1)) $ FRML _D fMu5 = am5o*fXo + fIlm5 + am5e5*fE5 $ FRML _I fM5 = fMz5 + fMu5 $ FRML _SJRD fMz6m = fMz6m(-1)*fAm6m/fAm6m(-1) $ FRML _D fMu6m = am6mo*fXo + fIlm6m + am6me6*fE6 $ FRML _I fM6m = fMz6m + fMu6m $ FRML _DJRD Log(fMz6qw) = 10.3776+Log(fAm6q)-1.39495*Log(pxm6q) -.48162/(1+(1-0.28095)**(tid-1986.67+1))+Log(kfmz6qw) $ FRML _SJRD Dlog(fMz6q) = 1.53211*Dlog(fAm6q)-.5012*Dlog(pxm6q) -.34792*Log(fMz6q(-1)/fMz6qw(-1)) $ FRML _D fMu6q = am6qo*fXo + fIlm6q + am6qe6*fE6 $ FRML _I fM6q = fMz6q + fMu6q $ FRML _I fM7b = am7bnt*fXnt+am7bo*fXo+am7bcb*fCb+am7bim*fIm+fIlm7b+am7be7q*fE7q $ FRML _GJ_D fM7yim = kfm7yim*fImqs $ FRML _I fM7y = am7ynt*fXnt+am7yqt*fXqt+am7ycv*fCv+am7yo*fXo+am7yim*fIm +fIlm7y+am7ye7y*fE7y $ FRML _DJRD Log(fMz7qw) = 10.5598+Log(fAm7q)-0.996517*Log(pxm7q) +0.314261/(1+(1-0.620462)**(tid-1966.31-1))+ Log(kfmz7qw) $ FRML _SJRD Dlog(fMz7q) = 1.06186*Dlog(fAm7q)-1.02361*Dlog(pxm7q) -.531346*Log(fMz7q(-1)/fMz7qw(-1)) $ FRML _D fMu7q = am7qe*fXe + am7qo*fXo + fIlm7q + am7qe7q*fE7q $ FRML _I fM7q = fMz7q+fMu7q $ FRML _DJRD Log(fMz8w) = 8.37125+Log(fAm8)-1.19923*Log(pxm8) +1.80793/(1+(1-.16277)**(tid-1960+1))+Log(kfmz8w) $ FRML _SJRD Dlog(fMz8) = 1.28903*Dlog(fAm8)-1.19923*Dlog(pxm8) -.56349*Log(fMz8(-1)/fMz8w(-1)) $ FRML _D fMu8 = am8o*fXo + fIlm8 + am8e8*fE8 $ FRML _I fM8 = fMz8 + fMu8 $ FRML _I fMv = fM0+fM1+fM2+fM3r+fM3k+fM3q+fM5 +fM6m+fM6q+fM7b+fM7y+fM7q+fM8 $ FRML _I fMs = amse*fXe+amsnm*fXnm+amsb*fXb+amsqh*fXqh+amsqs*fXqs +amsqt*fXqt+amsqf*fXqf+amsqq*fXqq+amso*fXo+amsck*fCk +amscs*fCs+amsim*fIm $ FRML _I fMt = fCt $ FRML _I fM = fMv+fMs+fMt $ () () () KORREKTIONSFAKTORER TIL I-O SYSTEMET () () FRML _D kfmz0 = (fMz0/fAm0)/(fMz0(-1)/fAm0(-1)) $ FRML _D kfmz1 = (fMz1/fAm1)/(fMz1(-1)/fAm1(-1)) $ FRML _D kfmz2 = (fMz2/fAm2)/(fMz2(-1)/fAm2(-1)) $ FRML _D kfmz3q = (fMz3q/fAm3q)/(fMz3q(-1)/fAm3q(-1)) $ FRML _D kfmz6m = (fMz6m/fAm6m)/(fMz6m(-1)/fAm6m(-1)) $ FRML _D kfmz5 = (fMz5/fAm5)/(fMz5(-1)/fAm5(-1)) $ FRML _D kfmz6q = (fMz6q/fAm6q)/(fMz6q(-1)/fAm6q(-1)) $ FRML _D kfmz7b = (1-Dfm7bim) + (Dfm7bim*Zfm7bim)/((am7bim(-1)+JDam7bim)*fIm) $ FRML _D kfmz7q = (fMz7q/fAm7q)/(fMz7q(-1)/fAm7q(-1)) $ FRML _D kfmz8 = (fMz8/fAm8)/(fMz8(-1)/fAm8(-1)) $ FRML _D kfmzs = (1-Dfmsqs) + (Dfmsqs*Zfmsqs)/((amsqs(-1)+JDamsqs)*kvmqs*fXqs) $ () ### I-0.F05 ### () () () KORREKTIONSFAKTORER FOR ÆNDREDE ENERGI- OG MATERIALEKVOTER I ERHVERV () () FRML _D kvea = (fVea/fXa) /( (anga(-1)+JDanga) +(anea(-1)+JDanea) +(am3ka(-1)+JDam3ka) +(am3qa(-1)+JDam3qa) ) $ FRML _D kvee = (fVee/fXe) /( (ange(-1)+JDange) +(am3qe(-1)+JDam3qe) ) $ FRML _D kveng = (fVeng/fXng-Dfm3rng*am3rng-aeng) /( (angng(-1)+JDangng) +(aneng(-1)+JDaneng) +(am3rng(-1)+JDam3rng)*(1-Dfm3rng) +(am3qng(-1)+JDam3qng) ) $ FRML _D kvene = (fVene/fXne-Dfm3kne*am3kne-aane-aene) /( (angne(-1)+JDangne) +(anene(-1)+JDanene) +(am3kne(-1)+JDam3kne)*(1-Dfm3kne) +(am3qne(-1)+JDam3qne) ) $ FRML _D kvenf = (fVenf/fXnf) /( (angnf(-1)+JDangnf) +(anenf(-1)+JDanenf) +(am3knf(-1)+JDam3knf) +(am3qnf(-1)+JDam3qnf) ) $ FRML _D kvenn = (fVenn/fXnn) /( (angnn(-1)+JDangnn) +(anenn(-1)+JDanenn) +(am3knn(-1)+JDam3knn) +(am3qnn(-1)+JDam3qnn) ) $ FRML _D kvenb = (fVenb/fXnb) /( (angnb(-1)+JDangnb) +(anenb(-1)+JDanenb) +(am3knb(-1)+JDam3knb) +(am3qnb(-1)+JDam3qnb) ) $ FRML _D kvenm = (fVenm/fXnm) /( (angnm(-1)+JDangnm) +(anenm(-1)+JDanenm) +(am3qnm(-1)+JDam3qnm) ) $ FRML _D kvent = (fVent/fXnt) /( (angnt(-1)+JDangnt) +(anent(-1)+JDanent) +(am3qnt(-1)+JDam3qnt) ) $ FRML _D kvenk = (fVenk/fXnk) /( (angnk(-1)+JDangnk) +(anenk(-1)+JDanenk) +(am3qnk(-1)+JDam3qnk) ) $ FRML _D kvenq = (fVenq/fXnq) /( (angnq(-1)+JDangnq) +(anenq(-1)+JDanenq) +(am3knq(-1)+JDam3knq) +(am3qnq(-1)+JDam3qnq) ) $ FRML _D kveb = (fVeb/fXb) /( (angb(-1)+JDangb) +(aneb(-1)+JDaneb) +(am3qb(-1)+JDam3qb) ) $ FRML _D kveqh = (fVeqh/fXqh) /( (angqh(-1)+JDangqh) +(aneqh(-1)+JDaneqh) +(am3qqh(-1)+JDam3qqh) ) $ FRML _D kveqs = (fVeqs/fXqs) /( (angqs(-1)+JDangqs) +(aneqs(-1)+JDaneqs) +(am3qqs(-1)+JDam3qqs) ) $ FRML _D kveqt = (fVeqt/fXqt) /( (angqt(-1)+JDangqt) +(aneqt(-1)+JDaneqt) +(am3qqt(-1)+JDam3qqt) ) $ FRML _D kveqf = (fVeqf/fXqf) /( (angqf(-1)+JDangqf) +(aneqf(-1)+JDaneqf) +(am3qqf(-1)+JDam3qqf) ) $ FRML _D kveqq = (fVeqq/fXqq) /( (angqq(-1)+JDangqq) +(aneqq(-1)+JDaneqq) +(am3qqq(-1)+JDam3qqq) ) $ FRML _D kveh = (fVeh/fXh) /( (angh(-1)+JDangh) +(aneh(-1)+JDaneh) +(am3qh(-1)+JDam3qh) ) $ FRML _D kveo = (fVeo/fXo) /( (aeo(-1)+JDaeo) +(ango(-1)+JDango) +(aneo(-1)+JDaneo) +(am3ko(-1)+JDam3ko) +(am3ro(-1)+JDam3ro) +(am3qo(-1)+JDam3qo) ) $ FRML _D kvma = (fVma/fXa) /( (aaa(-1)+JDaaa) +(anfa(-1)+JDanfa) +(anma(-1)+JDanma) +(anta(-1)+JDanta) +(anka(-1)+JDanka) +(aba(-1)+JDaba) +(aqha(-1)+JDaqha) +(aqta(-1)+JDaqta) +(aqqa(-1)+JDaqqa) +(am0a(-1)+JDam0a) +(am2a(-1)+JDam2a) +(am5a(-1)+JDam5a) +(asia(-1)+JDasia) ) $ FRML _D kvme = (fVme/fXe) /( (anme(-1)+JDanme) +(ante(-1)+JDante) +(aqte(-1)+JDaqte) +(aqqe(-1)+JDaqqe) +(am7qe(-1)+JDam7qe) +(amse(-1)+JDamse) +(asie(-1)+JDasie) ) $ FRML _D kvmng = (fVmng/fXng) /( (anmng(-1)+JDanmng) +(aqtng(-1)+JDaqtng) +(am5ng(-1)+JDam5ng) +(asing(-1)+JDasing) ) $ FRML _D kvmne = (fVmne/fXne) /( (abne(-1)+JDabne) +(aqqne(-1)+JDaqqne) +(am7qne(-1)+JDam7qne) +(asine(-1)+JDasine) ) $ FRML _D kvmnf = (fVmnf/fXnf) /( (aanf(-1)+JDaanf) +(anfnf(-1)+JDanfnf) +(anmnf(-1)+JDanmnf) +(anknf(-1)+JDanknf) +(anqnf(-1)+JDanqnf) +(aqhnf(-1)+JDaqhnf) +(aqtnf(-1)+JDaqtnf) +(aqqnf(-1)+JDaqqnf) +(am0nf(-1)+JDam0nf) +(am2nf(-1)+JDam2nf) +(am5nf(-1)+JDam5nf) +(am6mnf(-1)+JDam6mnf) +(am6qnf(-1)+JDam6qnf) +(asinf(-1)+JDasinf) ) $ FRML _D kvmnn = (fVmnn/fXnn) /( (aann(-1)+JDaann) +(annnn(-1)+JDannnn) +(anmnn(-1)+JDanmnn) +(anqnn(-1)+JDanqnn) +(aqtnn(-1)+JDaqtnn) +(aqqnn(-1)+JDaqqnn) +(am1nn(-1)+JDam1nn) +(am6qnn(-1)+JDam6qnn) +(asinn(-1)+JDasinn) ) $ FRML _D kvmnb = (fVmnb/fXnb) /( (aanb(-1)+JDaanb) +(anbnb(-1)+JDanbnb) +(anmnb(-1)+JDanmnb) +(aqhnb(-1)+JDaqhnb) +(aqtnb(-1)+JDaqtnb) +(aqqnb(-1)+JDaqqnb) +(am2nb(-1)+JDam2nb) +(am5nb(-1)+JDam5nb) +(am6mnb(-1)+JDam6mnb) +(am6qnb(-1)+JDam6qnb) +(asinb(-1)+JDasinb) ) $ FRML _D kvmnm = (fVmnm/fXnm) /( (anmnm(-1)+JDanmnm) +(anknm(-1)+JDanknm) +(anqnm(-1)+JDanqnm) +(aqhnm(-1)+JDaqhnm) +(aqtnm(-1)+JDaqtnm) +(aqqnm(-1)+JDaqqnm) +(am5nm(-1)+JDam5nm) +(am6mnm(-1)+JDam6mnm) +(am6qnm(-1)+JDam6qnm) +(am7qnm(-1)+JDam7qnm) +(am8nm(-1)+JDam8nm) +(amsnm(-1)+JDamsnm) +(asinm(-1)+JDasinm) ) $ FRML _D kvmnt = (fVmnt/fXnt) /( (anmnt(-1)+JDanmnt) +(antnt(-1)+JDantnt) +(aqhnt(-1)+JDaqhnt) +(aqqnt(-1)+JDaqqnt) +(am6mnt(-1)+JDam6mnt) +(am6qnt(-1)+JDam6qnt) +(am7bnt(-1)+JDam7bnt) +(am7ynt(-1)+JDam7ynt) +(am7qnt(-1)+JDam7qnt) +(asint(-1)+JDasint) ) $ FRML _D kvmnk = (fVmnk/fXnk) /( (anfnk(-1)+JDanfnk) +(anmnk(-1)+JDanmnk) +(anknk(-1)+JDanknk) +(anqnk(-1)+JDanqnk) +(aqhnk(-1)+JDaqhnk) +(aqtnk(-1)+JDaqtnk) +(aqqnk(-1)+JDaqqnk) +(am2nk(-1)+JDam2nk) +(am5nk(-1)+JDam5nk) +(am6mnk(-1)+JDam6mnk) +(am6qnk(-1)+JDam6qnk) +(am8nk(-1)+JDam8nk) +(asink(-1)+JDasink) ) $ FRML _D kvmnq = (fVmnq/fXnq) /( (anbnq(-1)+JDanbnq) +(anmnq(-1)+JDanmnq) +(anknq(-1)+JDanknq) +(anqnq(-1)+JDanqnq) +(aqhnq(-1)+JDaqhnq) +(aqtnq(-1)+JDaqtnq) +(aqqnq(-1)+JDaqqnq) +(am2nq(-1)+JDam2nq) +(am5nq(-1)+JDam5nq) +(am6mnq(-1)+JDam6mnq) +(am6qnq(-1)+JDam6qnq) +(am8nq(-1)+JDam8nq) +(asinq(-1)+JDasinq) ) $ FRML _D kvmb = (fVmb/fXb) /( (aab(-1)+JDaab) +(anbb(-1)+JDanbb) +(anmb(-1)+JDanmb) +(ankb(-1)+JDankb) +(anqb(-1)+JDanqb) +(abb(-1)+JDabb) +(aqhb(-1)+JDaqhb) +(aqtb(-1)+JDaqtb) +(aqfb(-1)+JDaqfb) +(aqqb(-1)+JDaqqb) +(aob(-1)+JDaob) +(am2b(-1)+JDam2b) +(am5b(-1)+JDam5b) +(am6mb(-1)+JDam6mb) +(am6qb(-1)+JDam6qb) +(am7qb(-1)+JDam7qb) +(am8b(-1)+JDam8b) +(amsb(-1)+JDamsb) +(asib(-1)+JDasib) ) $ FRML _D kvmqh = (fVmqh/fXqh) /( (anmqh(-1)+JDanmqh) +(ankqh(-1)+JDankqh) +(anqqh(-1)+JDanqqh) +(abqh(-1)+JDabqh) +(aqhqh(-1)+JDaqhqh) +(aqsqh(-1)+JDaqsqh) +(aqtqh(-1)+JDaqtqh) +(aqfqh(-1)+JDaqfqh) +(aqqqh(-1)+JDaqqqh) +(aoqh(-1)+JDaoqh) +(am5qh(-1)+JDam5qh) +(am6qqh(-1)+JDam6qqh) +(am8qh(-1)+JDam8qh) +(amsqh(-1)+JDamsqh) +(asiqh(-1)+JDasiqh) ) $ FRML _D kvmqs = (fVmqs/fXqs) /( (antqs(-1)+JDantqs) +(aqsqs(-1)+JDaqsqs) +(aqtqs(-1)+JDaqtqs) +(aqqqs(-1)+JDaqqqs) +(amsqs(-1)+JDamsqs) +(asiqs(-1)+JDasiqs) ) $ FRML _D kvmqt = (fVmqt/fXqt) /( (anqqt(-1)+JDanqqt) +(abqt(-1)+JDabqt) +(aqhqt(-1)+JDaqhqt) +(aqsqt(-1)+JDaqsqt) +(aqtqt(-1)+JDaqtqt) +(aqfqt(-1)+JDaqfqt) +(aqqqt(-1)+JDaqqqt) +(aoqt(-1)+JDaoqt) +(am7yqt(-1)+JDam7yqt) +(am7qqt(-1)+JDam7qqt) +(amsqt(-1)+JDamsqt) +(asiqt(-1)+JDasiqt) ) $ FRML _D kvmqf = (fVmqf/fXqf) /( (anqqf(-1)+JDanqqf) +(abqf(-1)+JDabqf) +(aqtqf(-1)+JDaqtqf) +(aqfqf(-1)+JDaqfqf) +(aqqqf(-1)+JDaqqqf) +(aoqf(-1)+JDaoqf) +(amsqf(-1)+JDamsqf) +(asiqf(-1)+JDasiqf) ) $ FRML _D kvmqq = (fVmqq/fXqq) /( (anfqq(-1)+JDanfqq) +(annqq(-1)+JDannqq) +(anmqq(-1)+JDanmqq) +(antqq(-1)+JDantqq) +(ankqq(-1)+JDankqq) +(anqqq(-1)+JDanqqq) +(abqq(-1)+JDabqq) +(aqhqq(-1)+JDaqhqq) +(aqtqq(-1)+JDaqtqq) +(aqfqq(-1)+JDaqfqq) +(aqqqq(-1)+JDaqqqq) +(aoqq(-1)+JDaoqq) +(am0qq(-1)+JDam0qq) +(am1qq(-1)+JDam1qq) +(am5qq(-1)+JDam5qq) +(am6qqq(-1)+JDam6qqq) +(am7qqq(-1)+JDam7qqq) +(am8qq(-1)+JDam8qq) +(amsqq(-1)+JDamsqq) +(asiqq(-1)+JDasiqq) ) $ FRML _D kvmh = (fVmh/fXh) /( (abh(-1)+JDabh) +(aqqh(-1)+JDaqqh) +(am8h(-1)+JDam8h) +(asih(-1)+JDasih) ) $ FRML _D kvmo = (fVmo/fXo) /( (aao(-1)+JDaao) +(anfo(-1)+JDanfo) +(anno(-1)+JDanno) +(anbo(-1)+JDanbo) +(anmo(-1)+JDanmo) +(anto(-1)+JDanto) +(anko(-1)+JDanko) +(anqo(-1)+JDanqo) +(abo(-1)+JDabo) +(aqho(-1)+JDaqho) +(aqso(-1)+JDaqso) +(aqto(-1)+JDaqto) +(aqfo(-1)+JDaqfo) +(aqqo(-1)+JDaqqo) +(aho(-1)+JDaho) +(aoo(-1)+JDaoo) +(am0o(-1)+JDam0o) +(am1o(-1)+JDam1o) +(am2o(-1)+JDam2o) +(am5o(-1)+JDam5o) +(am6mo(-1)+JDam6mo) +(am6qo(-1)+JDam6qo) +(am7bo(-1)+JDam7bo) +(am7yo(-1)+JDam7yo) +(am7qo(-1)+JDam7qo) +(am8o(-1)+JDam8o) +(amso(-1)+JDamso) +(asio(-1)+JDasio) ) $ FRML _D kaim = (1 - antim - am7yim) /( aeim(-1) + JDaeim + anbim(-1) + JDanbim + anmim(-1) + JDanmim + ankim(-1) + JDankim + anqim(-1) + JDanqim + aqhim(-1) + JDaqhim + aqqim(-1) + JDaqqim + am6mim(-1) + JDam6mim + am6qim(-1) + JDam6qim + am7bim(-1) + JDam7bim + am7qim(-1) + JDam7qim + am8im(-1) + JDam8im + amsim(-1) + JDamsim + asiim(-1) + JDasiim ) $ () () () INPUTKOEFFICIENTER FOR ERHVERV () () FRML _G am0a = (am0a(-1)+JDam0a)*kvma*kfmz0 $ FRML _G am2a = (am2a(-1)+JDam2a)*kvma*kfmz2 $ FRML _G am3ka = (am3ka(-1)+JDam3ka)*kvea $ FRML _G am3qa = (am3qa(-1)+JDam3qa)*kvea*kfmz3q $ FRML _G am5a = (am5a(-1)+JDam5a)*kvma*kfmz5 $ FRML _G aaa = (aaa(-1)+JDaaa)*kvma $ FRML _G anga = (anga(-1)+JDanga)*kvea + ((am3qa(-1)+JDam3qa)*kvea-am3qa) $ FRML _G anea = (anea(-1)+JDanea)*kvea $ FRML _G anfa = (anfa(-1)+JDanfa)*kvma + ((am0a(-1)+JDam0a)*kvma-am0a) + ((am2a(-1)+JDam2a)*kvma-am2a) $ FRML _G anma = (anma(-1)+JDanma)*kvma $ FRML _G anta = (anta(-1)+JDanta)*kvma $ FRML _G anka = (anka(-1)+JDanka)*kvma + ((am5a(-1)+JDam5a)*kvma-am5a) $ FRML _G aba = (aba(-1)+JDaba)*kvma $ FRML _G aqha = (aqha(-1)+JDaqha)*kvma $ FRML _G aqta = (aqta(-1)+JDaqta)*kvma $ FRML _G aqqa = (aqqa(-1)+JDaqqa)*kvma $ FRML _G asia = (asia(-1)+JDasia)*kvma $ FRML _G am3qe = (am3qe(-1)+JDam3qe)*kvee $ FRML _G am7qe = (am7qe(-1)+JDam7qe)*kvme $ FRML _G amse = (amse(-1)+JDamse)*kvme $ FRML _G ange = (ange(-1)+JDange)*kvee $ FRML _G anme = (anme(-1)+JDanme)*kvme $ FRML _G ante = (ante(-1)+JDante)*kvme $ FRML _G aqte = (aqte(-1)+JDaqte)*kvme $ FRML _G aqqe = (aqqe(-1)+JDaqqe)*kvme $ FRML _G asie = (asie(-1)+JDasie)*kvme $ FRML _G am3qng = (am3qng(-1)+JDam3qng)*kveng $ FRML _G am5ng = (am5ng(-1)+JDam5ng)*kvmng*kfmz5 $ FRML _G angng = (angng(-1)+JDangng)*kveng $ FRML _G aneng = (aneng(-1)+JDaneng)*kveng $ FRML _G anmng = (anmng(-1)+JDanmng)*kvmng + ((am5ng(-1)+JDam5ng)*kvmng-am5ng) $ FRML _G aqtng = (aqtng(-1)+JDaqtng)*kvmng $ FRML _G asing = (asing(-1)+JDasing)*kvmng $ FRML _G am7qne = (am7qne(-1)+JDam7qne)*kvmne*kfmz7q $ FRML _G angne = (angne(-1)+JDangne)*kvene $ FRML _G anene = (anene(-1)+JDanene)*kvene $ FRML _G abne = (abne(-1)+JDabne)*kvmne + ((am7qne(-1)+JDam7qne)*kvmne-am7qne) $ FRML _G aqqne = (aqqne(-1)+JDaqqne)*kvmne $ FRML _G asine = (asine(-1)+JDasine)*kvmne $ FRML _G am0nf = (am0nf(-1)+JDam0nf)*kvmnf*kfmz0 $ FRML _G am2nf = (am2nf(-1)+JDam2nf)*kvmnf*kfmz2 $ FRML _G am3knf = (am3knf(-1)+JDam3knf)*kvenf $ FRML _G am3qnf = (am3qnf(-1)+JDam3qnf)*kvenf*kfmz3q $ FRML _G am5nf = (am5nf(-1)+JDam5nf)*kvmnf*kfmz5 $ FRML _G am6mnf = (am6mnf(-1)+JDam6mnf)*kvmnf*kfmz6m $ FRML _G am6qnf = (am6qnf(-1)+JDam6qnf)*kvmnf*kfmz6q $ FRML _G aanf = (aanf(-1)+JDaanf)*kvmnf + ((am0nf(-1)+JDam0nf)*kvmnf-am0nf)* 0.60 + ((am2nf(-1)+JDam2nf)*kvmnf-am2nf)* 0.60 $ FRML _G angnf = (angnf(-1)+JDangnf)*kvenf + ((am3qnf(-1)+JDam3qnf)*kvenf-am3qnf) $ FRML _G anenf = (anenf(-1)+JDanenf)*kvenf $ FRML _G anfnf = (anfnf(-1)+JDanfnf)*kvmnf + ((am0nf(-1)+JDam0nf)*kvmnf-am0nf)* 0.40 + ((am2nf(-1)+JDam2nf)*kvmnf-am2nf)* 0.40 $ FRML _G anmnf = (anmnf(-1)+JDanmnf)*kvmnf + ((am6mnf(-1)+JDam6mnf)*kvmnf-am6mnf) $ FRML _G anknf = (anknf(-1)+JDanknf)*kvmnf + ((am5nf(-1)+JDam5nf)*kvmnf-am5nf) $ FRML _G anqnf = (anqnf(-1)+JDanqnf)*kvmnf + ((am6qnf(-1)+JDam6qnf)*kvmnf-am6qnf) $ FRML _G aqhnf = (aqhnf(-1)+JDaqhnf)*kvmnf $ FRML _G aqtnf = (aqtnf(-1)+JDaqtnf)*kvmnf $ FRML _G aqqnf = (aqqnf(-1)+JDaqqnf)*kvmnf $ FRML _G asinf = (asinf(-1)+JDasinf)*kvmnf $ FRML _G am1nn = (am1nn(-1)+JDam1nn)*kvmnn*kfmz1 $ FRML _G am3knn = (am3knn(-1)+JDam3knn)*kvenn $ FRML _G am3qnn = (am3qnn(-1)+JDam3qnn)*kvenn*kfmz3q $ FRML _G am6qnn = (am6qnn(-1)+JDam6qnn)*kvmnn*kfmz6q $ FRML _G aann = (aann(-1)+JDaann)*kvmnn $ FRML _G angnn = (angnn(-1)+JDangnn)*kvenn + ((am3qnn(-1)+JDam3qnn)*kvenn-am3qnn) $ FRML _G anenn = (anenn(-1)+JDanenn)*kvenn $ FRML _G annnn = (annnn(-1)+JDannnn)*kvmnn + ((am1nn(-1)+JDam1nn)*kvmnn-am1nn) $ FRML _G anmnn = (anmnn(-1)+JDanmnn)*kvmnn $ FRML _G anqnn = (anqnn(-1)+JDanqnn)*kvmnn + ((am6qnn(-1)+JDam6qnn)*kvmnn-am6qnn) $ FRML _G aqtnn = (aqtnn(-1)+JDaqtnn)*kvmnn $ FRML _G aqqnn = (aqqnn(-1)+JDaqqnn)*kvmnn $ FRML _G asinn = (asinn(-1)+JDasinn)*kvmnn $ FRML _G am2nb = (am2nb(-1)+JDam2nb)*kvmnb*kfmz2 $ FRML _G am3knb = (am3knb(-1)+JDam3knb)*kvenb $ FRML _G am3qnb = (am3qnb(-1)+JDam3qnb)*kvenb*kfmz3q $ FRML _G am5nb = (am5nb(-1)+JDam5nb)*kvmnb*kfmz5 $ FRML _G am6mnb = (am6mnb(-1)+JDam6mnb)*kvmnb*kfmz6m $ FRML _G am6qnb = (am6qnb(-1)+JDam6qnb)*kvmnb*kfmz6q $ FRML _G aanb = (aanb(-1)+JDaanb)*kvmnb $ FRML _G angnb = (angnb(-1)+JDangnb)*kvenb + ((am3qnb(-1)+JDam3qnb)*kvenb-am3qnb) $ FRML _G anenb = (anenb(-1)+JDanenb)*kvenb $ FRML _G anbnb = (anbnb(-1)+JDanbnb)*kvmnb + ((am2nb(-1)+JDam2nb)*kvmnb-am2nb) + ((am5nb(-1)+JDam5nb)*kvmnb-am5nb) + ((am6mnb(-1)+JDam6mnb)*kvmnb-am6mnb) + ((am6qnb(-1)+JDam6qnb)*kvmnb-am6qnb) $ FRML _G anmnb = (anmnb(-1)+JDanmnb)*kvmnb $ FRML _G aqhnb = (aqhnb(-1)+JDaqhnb)*kvmnb $ FRML _G aqtnb = (aqtnb(-1)+JDaqtnb)*kvmnb $ FRML _G aqqnb = (aqqnb(-1)+JDaqqnb)*kvmnb $ FRML _G asinb = (asinb(-1)+JDasinb)*kvmnb $ FRML _G am3qnm = (am3qnm(-1)+JDam3qnm)*kvenm*kfmz3q $ FRML _G am5nm = (am5nm(-1)+JDam5nm)*kvmnm*kfmz5 $ FRML _G am6mnm = (am6mnm(-1)+JDam6mnm)*kvmnm*kfmz6m $ FRML _G am6qnm = (am6qnm(-1)+JDam6qnm)*kvmnm*kfmz6q $ FRML _G am7qnm = (am7qnm(-1)+JDam7qnm)*kvmnm*kfmz7q $ FRML _G am8nm = (am8nm(-1)+JDam8nm)*kvmnm*kfmz8 $ FRML _G amsnm = (amsnm(-1)+JDamsnm)*kvmnm $ FRML _G angnm = (angnm(-1)+JDangnm)*kvenm + ((am3qnm(-1)+JDam3qnm)*kvenm-am3qnm) $ FRML _G anenm = (anenm(-1)+JDanenm)*kvenm $ FRML _G anmnm = (anmnm(-1)+JDanmnm)*kvmnm + ((am6mnm(-1)+JDam6mnm)*kvmnm-am6mnm) + ((am7qnm(-1)+JDam7qnm)*kvmnm-am7qnm) + ((am8nm(-1)+JDam8nm)*kvmnm-am8nm) $ FRML _G anknm = (anknm(-1)+JDanknm)*kvmnm + ((am5nm(-1)+JDam5nm)*kvmnm-am5nm) + ((am6qnm(-1)+JDam6qnm)*kvmnm-am6qnm) $ FRML _G anqnm = (anqnm(-1)+JDanqnm)*kvmnm $ FRML _G aqhnm = (aqhnm(-1)+JDaqhnm)*kvmnm $ FRML _G aqtnm = (aqtnm(-1)+JDaqtnm)*kvmnm $ FRML _G aqqnm = (aqqnm(-1)+JDaqqnm)*kvmnm $ FRML _G asinm = (asinm(-1)+JDasinm)*kvmnm $ FRML _G am3qnt = (am3qnt(-1)+JDam3qnt)*kvent*kfmz3q $ FRML _G am6mnt = (am6mnt(-1)+JDam6mnt)*kvmnt*kfmz6m $ FRML _G am6qnt = (am6qnt(-1)+JDam6qnt)*kvmnt*kfmz6q $ FRML _G am7bnt = (am7bnt(-1)+JDam7bnt)*kvmnt $ FRML _G am7ynt = (am7ynt(-1)+JDam7ynt)*kvmnt $ FRML _G am7qnt = (am7qnt(-1)+JDam7qnt)*kvmnt*kfmz7q $ FRML _G angnt = (angnt(-1)+JDangnt)*kvent + ((am3qnt(-1)+JDam3qnt)*kvent-am3qnt) $ FRML _G anent = (anent(-1)+JDanent)*kvent $ FRML _G anmnt = (anmnt(-1)+JDanmnt)*kvmnt + ((am6mnt(-1)+JDam6mnt)*kvmnt-am6mnt) + ((am7qnt(-1)+JDam7qnt)*kvmnt-am7qnt)* 0.60 $ FRML _G antnt = (antnt(-1)+JDantnt)*kvmnt + ((am6qnt(-1)+JDam6qnt)*kvmnt-am6qnt) + ((am7qnt(-1)+JDam7qnt)*kvmnt-am7qnt)* 0.40 $ FRML _G aqhnt = (aqhnt(-1)+JDaqhnt)*kvmnt $ FRML _G aqqnt = (aqqnt(-1)+JDaqqnt)*kvmnt $ FRML _G asint = (asint(-1)+JDasint)*kvmnt $ FRML _G am2nk = (am2nk(-1)+JDam2nk)*kvmnk*kfmz2 $ FRML _G am3qnk = (am3qnk(-1)+JDam3qnk)*kvenk*kfmz3q $ FRML _G am5nk = (am5nk(-1)+JDam5nk)*kvmnk*kfmz5 $ FRML _G am6mnk = (am6mnk(-1)+JDam6mnk)*kvmnk*kfmz6m $ FRML _G am6qnk = (am6qnk(-1)+JDam6qnk)*kvmnk*kfmz6q $ FRML _G am8nk = (am8nk(-1)+JDam8nk)*kvmnk*kfmz8 $ FRML _G angnk = (angnk(-1)+JDangnk)*kvenk + ((am3qnk(-1)+JDam3qnk)*kvenk-am3qnk) $ FRML _G anenk = (anenk(-1)+JDanenk)*kvenk $ FRML _G anfnk = (anfnk(-1)+JDanfnk)*kvmnk $ FRML _G anmnk = (anmnk(-1)+JDanmnk)*kvmnk + ((am6mnk(-1)+JDam6mnk)*kvmnk-am6mnk) $ FRML _G anknk = (anknk(-1)+JDanknk)*kvmnk + ((am2nk(-1)+JDam2nk)*kvmnk-am2nk) + ((am5nk(-1)+JDam5nk)*kvmnk-am5nk) $ FRML _G anqnk = (anqnk(-1)+JDanqnk)*kvmnk + ((am6qnk(-1)+JDam6qnk)*kvmnk-am6qnk) + ((am8nk(-1)+JDam8nk)*kvmnk-am8nk) $ FRML _G aqhnk = (aqhnk(-1)+JDaqhnk)*kvmnk $ FRML _G aqtnk = (aqtnk(-1)+JDaqtnk)*kvmnk $ FRML _G aqqnk = (aqqnk(-1)+JDaqqnk)*kvmnk $ FRML _G asink = (asink(-1)+JDasink)*kvmnk $ FRML _G am2nq = (am2nq(-1)+JDam2nq)*kvmnq*kfmz2 $ FRML _G am3knq = (am3knq(-1)+JDam3knq)*kvenq $ FRML _G am3qnq = (am3qnq(-1)+JDam3qnq)*kvenq*kfmz3q $ FRML _G am5nq = (am5nq(-1)+JDam5nq)*kvmnq*kfmz5 $ FRML _G am6mnq = (am6mnq(-1)+JDam6mnq)*kvmnq*kfmz6m $ FRML _G am6qnq = (am6qnq(-1)+JDam6qnq)*kvmnq*kfmz6q $ FRML _G am8nq = (am8nq(-1)+JDam8nq)*kvmnq*kfmz8 $ FRML _G angnq = (angnq(-1)+JDangnq)*kvenq + ((am3qnq(-1)+JDam3qnq)*kvenq-am3qnq) $ FRML _G anenq = (anenq(-1)+JDanenq)*kvenq $ FRML _G anbnq = (anbnq(-1)+JDanbnq)*kvmnq $ FRML _G anmnq = (anmnq(-1)+JDanmnq)*kvmnq + ((am6mnq(-1)+JDam6mnq)*kvmnq-am6mnq) $ FRML _G anknq = (anknq(-1)+JDanknq)*kvmnq $ FRML _G anqnq = (anqnq(-1)+JDanqnq)*kvmnq + ((am2nq(-1)+JDam2nq)*kvmnq-am2nq) + ((am5nq(-1)+JDam5nq)*kvmnq-am5nq) + ((am6qnq(-1)+JDam6qnq)*kvmnq-am6qnq) + ((am8nq(-1)+JDam8nq)*kvmnq-am8nq) $ FRML _G aqhnq = (aqhnq(-1)+JDaqhnq)*kvmnq $ FRML _G aqtnq = (aqtnq(-1)+JDaqtnq)*kvmnq $ FRML _G aqqnq = (aqqnq(-1)+JDaqqnq)*kvmnq $ FRML _G asinq = (asinq(-1)+JDasinq)*kvmnq $ FRML _G am2b = (am2b(-1)+JDam2b)*kvmb*kfmz2 $ FRML _G am3qb = (am3qb(-1)+JDam3qb)*kveb*kfmz3q $ FRML _G am5b = (am5b(-1)+JDam5b)*kvmb*kfmz5 $ FRML _G am6mb = (am6mb(-1)+JDam6mb)*kvmb*kfmz6m $ FRML _G am6qb = (am6qb(-1)+JDam6qb)*kvmb*kfmz6q $ FRML _G am7qb = (am7qb(-1)+JDam7qb)*kvmb*kfmz7q $ FRML _G am8b = (am8b(-1)+JDam8b)*kvmb*kfmz8 $ FRML _G amsb = (amsb(-1)+JDamsb)*kvmb $ FRML _G aab = (aab(-1)+JDaab)*kvmb $ FRML _G angb = (angb(-1)+JDangb)*kveb + ((am3qb(-1)+JDam3qb)*kveb-am3qb) $ FRML _G aneb = (aneb(-1)+JDaneb)*kveb $ FRML _G anbb = (anbb(-1)+JDanbb)*kvmb + ((am2b(-1)+JDam2b)*kvmb-am2b) + ((am6qb(-1)+JDam6qb)*kvmb-am6qb) $ FRML _G anmb = (anmb(-1)+JDanmb)*kvmb + ((am6mb(-1)+JDam6mb)*kvmb-am6mb) + ((am7qb(-1)+JDam7qb)*kvmb-am7qb) + ((am8b(-1)+JDam8b)*kvmb-am8b)* 0.60 $ FRML _G ankb = (ankb(-1)+JDankb)*kvmb + ((am5b(-1)+JDam5b)*kvmb-am5b) + ((am8b(-1)+JDam8b)*kvmb-am8b)* 0.40 $ FRML _G anqb = (anqb(-1)+JDanqb)*kvmb $ FRML _G abb = (abb(-1)+JDabb)*kvmb $ FRML _G aqhb = (aqhb(-1)+JDaqhb)*kvmb $ FRML _G aqtb = (aqtb(-1)+JDaqtb)*kvmb $ FRML _G aqfb = (aqfb(-1)+JDaqfb)*kvmb $ FRML _G aqqb = (aqqb(-1)+JDaqqb)*kvmb $ FRML _G aob = (aob(-1)+JDaob)*kvmb $ FRML _G asib = (asib(-1)+JDasib)*kvmb $ FRML _G am3qqh = (am3qqh(-1)+JDam3qqh)*kveqh*kfmz3q $ FRML _G am5qh = (am5qh(-1)+JDam5qh)*kvmqh*kfmz5 $ FRML _G am6qqh = (am6qqh(-1)+JDam6qqh)*kvmqh*kfmz6q $ FRML _G am8qh = (am8qh(-1)+JDam8qh)*kvmqh*kfmz8 $ FRML _G amsqh = (amsqh(-1)+JDamsqh)*kvmqh $ FRML _G angqh = (angqh(-1)+JDangqh)*kveqh + ((am3qqh(-1)+JDam3qqh)*kveqh-am3qqh) $ FRML _G aneqh = (aneqh(-1)+JDaneqh)*kveqh $ FRML _G anmqh = (anmqh(-1)+JDanmqh)*kvmqh $ FRML _G ankqh = (ankqh(-1)+JDankqh)*kvmqh + ((am5qh(-1)+JDam5qh)*kvmqh-am5qh) $ FRML _G anqqh = (anqqh(-1)+JDanqqh)*kvmqh + ((am6qqh(-1)+JDam6qqh)*kvmqh-am6qqh) + ((am8qh(-1)+JDam8qh)*kvmqh-am8qh) $ FRML _G abqh = (abqh(-1)+JDabqh)*kvmqh $ FRML _G aqhqh = (aqhqh(-1)+JDaqhqh)*kvmqh $ FRML _G aqsqh = (aqsqh(-1)+JDaqsqh)*kvmqh $ FRML _G aqtqh = (aqtqh(-1)+JDaqtqh)*kvmqh $ FRML _G aqfqh = (aqfqh(-1)+JDaqfqh)*kvmqh $ FRML _G aqqqh = (aqqqh(-1)+JDaqqqh)*kvmqh $ FRML _G aoqh = (aoqh(-1)+JDaoqh)*kvmqh $ FRML _G asiqh = (asiqh(-1)+JDasiqh)*kvmqh $ FRML _G am3qqs = (am3qqs(-1)+JDam3qqs)*kveqs*kfmz3q $ FRML _G amsqs = (amsqs(-1)+JDamsqs)*kvmqs*kfmzs $ FRML _G angqs = (angqs(-1)+JDangqs)*kveqs + ((am3qqs(-1)+JDam3qqs)*kveqs-am3qqs) $ FRML _G aneqs = (aneqs(-1)+JDaneqs)*kveqs $ FRML _G antqs = (antqs(-1)+JDantqs)*kvmqs + ((amsqs(-1)+JDamsqs)*kvmqs-amsqs) $ FRML _G aqsqs = (aqsqs(-1)+JDaqsqs)*kvmqs $ FRML _G aqtqs = (aqtqs(-1)+JDaqtqs)*kvmqs $ FRML _G aqqqs = (aqqqs(-1)+JDaqqqs)*kvmqs $ FRML _G asiqs = (asiqs(-1)+JDasiqs)*kvmqs $ FRML _G am3qqt = (am3qqt(-1)+JDam3qqt)*kveqt*kfmz3q $ FRML _G am7yqt = (am7yqt(-1)+JDam7yqt)*kvmqt $ FRML _G am7qqt = (am7qqt(-1)+JDam7qqt)*kvmqt*kfmz7q $ FRML _G amsqt = (amsqt(-1)+JDamsqt)*kvmqt $ FRML _G angqt = (angqt(-1)+JDangqt)*kveqt + ((am3qqt(-1)+JDam3qqt)*kveqt-am3qqt) $ FRML _G aneqt = (aneqt(-1)+JDaneqt)*kveqt $ FRML _G anqqt = (anqqt(-1)+JDanqqt)*kvmqt $ FRML _G abqt = (abqt(-1)+JDabqt)*kvmqt $ FRML _G aqhqt = (aqhqt(-1)+JDaqhqt)*kvmqt $ FRML _G aqsqt = (aqsqt(-1)+JDaqsqt)*kvmqt $ FRML _G aqtqt = (aqtqt(-1)+JDaqtqt)*kvmqt + ((am7qqt(-1)+JDam7qqt)*kvmqt-am7qqt) $ FRML _G aqfqt = (aqfqt(-1)+JDaqfqt)*kvmqt $ FRML _G aqqqt = (aqqqt(-1)+JDaqqqt)*kvmqt $ FRML _G aoqt = (aoqt(-1)+JDaoqt)*kvmqt $ FRML _G asiqt = (asiqt(-1)+JDasiqt)*kvmqt $ FRML _G am3qqf = (am3qqf(-1)+JDam3qqf)*kveqf*kfmz3q $ FRML _G amsqf = (amsqf(-1)+JDamsqf)*kvmqf $ FRML _G angqf = (angqf(-1)+JDangqf)*kveqf + ((am3qqf(-1)+JDam3qqf)*kveqf-am3qqf) $ FRML _G aneqf = (aneqf(-1)+JDaneqf)*kveqf $ FRML _G anqqf = (anqqf(-1)+JDanqqf)*kvmqf $ FRML _G abqf = (abqf(-1)+JDabqf)*kvmqf $ FRML _G aqtqf = (aqtqf(-1)+JDaqtqf)*kvmqf $ FRML _G aqfqf = (aqfqf(-1)+JDaqfqf)*kvmqf $ FRML _G aqqqf = (aqqqf(-1)+JDaqqqf)*kvmqf $ FRML _G asiqf = (asiqf(-1)+JDasiqf)*kvmqf $ FRML _G aoqf = (aoqf(-1)+JDaoqf)*kvmqf $ FRML _G am0qq = (am0qq(-1)+JDam0qq)*kvmqq*kfmz0 $ FRML _G am1qq = (am1qq(-1)+JDam1qq)*kvmqq*kfmz1 $ FRML _G am3qqq = (am3qqq(-1)+JDam3qqq)*kveqq*kfmz3q $ FRML _G am5qq = (am5qq(-1)+JDam5qq)*kvmqq*kfmz5 $ FRML _G am6qqq = (am6qqq(-1)+JDam6qqq)*kvmqq*kfmz6q $ FRML _G am7qqq = (am7qqq(-1)+JDam7qqq)*kvmqq*kfmz7q $ FRML _G am8qq = (am8qq(-1)+JDam8qq)*kvmqq*kfmz8 $ FRML _G amsqq = (amsqq(-1)+JDamsqq)*kvmqq $ FRML _G angqq = (angqq(-1)+JDangqq)*kveqq + ((am3qqq(-1)+JDam3qqq)*kveqq-am3qqq) $ FRML _G aneqq = (aneqq(-1)+JDaneqq)*kveqq $ FRML _G anfqq = (anfqq(-1)+JDanfqq)*kvmqq + ((am0qq(-1)+JDam0qq)*kvmqq-am0qq) $ FRML _G annqq = (annqq(-1)+JDannqq)*kvmqq + ((am1qq(-1)+JDam1qq)*kvmqq-am1qq) $ FRML _G anmqq = (anmqq(-1)+JDanmqq)*kvmqq $ FRML _G antqq = (antqq(-1)+JDantqq)*kvmqq $ FRML _G ankqq = (ankqq(-1)+JDankqq)*kvmqq + ((am5qq(-1)+JDam5qq)*kvmqq-am5qq) $ FRML _G anqqq = (anqqq(-1)+JDanqqq)*kvmqq + ((am6qqq(-1)+JDam6qqq)*kvmqq-am6qqq) + ((am7qqq(-1)+JDam7qqq)*kvmqq-am7qqq) + ((am8qq(-1)+JDam8qq)*kvmqq-am8qq) $ FRML _G abqq = (abqq(-1)+JDabqq)*kvmqq $ FRML _G aqhqq = (aqhqq(-1)+JDaqhqq)*kvmqq $ FRML _G aqtqq = (aqtqq(-1)+JDaqtqq)*kvmqq $ FRML _G aqfqq = (aqfqq(-1)+JDaqfqq)*kvmqq $ FRML _G aqqqq = (aqqqq(-1)+JDaqqqq)*kvmqq $ FRML _G aoqq = (aoqq(-1)+JDaoqq)*kvmqq $ FRML _G asiqq = (asiqq(-1)+JDasiqq)*kvmqq $ FRML _G am3qh = (am3qh(-1)+JDam3qh)*kveh*kfmz3q $ FRML _G am8h = (am8h(-1)+JDam8h)*kvmh*kfmz8 $ FRML _G angh = (angh(-1)+JDangh)*kveh + ((am3qh(-1)+JDam3qh)*kveh-am3qh) $ FRML _G aneh = (aneh(-1)+JDaneh)*kveh $ FRML _G abh = (abh(-1)+JDabh)*kvmh + ((am8h(-1)+JDam8h)*kvmh-am8h) $ FRML _G aqqh = (aqqh(-1)+JDaqqh)*kvmh $ FRML _G asih = (asih(-1)+JDasih)*kvmh $ FRML _G am0o = (am0o(-1)+JDam0o)*kvmo $ FRML _G am1o = (am1o(-1)+JDam1o)*kvmo $ FRML _G am2o = (am2o(-1)+JDam2o)*kvmo $ FRML _G am3ko = (am3ko(-1)+JDam3ko)*kveo $ FRML _G am3ro = (am3ro(-1)+JDam3ro)*kveo $ FRML _G am3qo = (am3qo(-1)+JDam3qo)*kveo $ FRML _G am5o = (am5o(-1)+JDam5o)*kvmo $ FRML _G am6mo = (am6mo(-1)+JDam6mo)*kvmo $ FRML _G am6qo = (am6qo(-1)+JDam6qo)*kvmo $ FRML _G am7bo = (am7bo(-1)+JDam7bo)*kvmo $ FRML _G am7yo = (am7yo(-1)+JDam7yo)*kvmo $ FRML _G am7qo = (am7qo(-1)+JDam7qo)*kvmo $ FRML _G am8o = (am8o(-1)+JDam8o)*kvmo $ FRML _G amso = (amso(-1)+JDamso)*kvmo $ FRML _G aao = (aao(-1)+JDaao)*kvmo $ FRML _G aeo = (aeo(-1)+JDaeo)*kveo $ FRML _G ango = (ango(-1)+JDango)*kveo $ FRML _G aneo = (aneo(-1)+JDaneo)*kveo $ FRML _G anfo = (anfo(-1)+JDanfo)*kvmo $ FRML _G anno = (anno(-1)+JDanno)*kvmo $ FRML _G anbo = (anbo(-1)+JDanbo)*kvmo $ FRML _G anmo = (anmo(-1)+JDanmo)*kvmo $ FRML _G anto = (anto(-1)+JDanto)*kvmo $ FRML _G anko = (anko(-1)+JDanko)*kvmo $ FRML _G anqo = (anqo(-1)+JDanqo)*kvmo $ FRML _G abo = (abo(-1)+JDabo)*kvmo $ FRML _G aqho = (aqho(-1)+JDaqho)*kvmo $ FRML _G aqso = (aqso(-1)+JDaqso)*kvmo $ FRML _G aqto = (aqto(-1)+JDaqto)*kvmo $ FRML _G aqfo = (aqfo(-1)+JDaqfo)*kvmo $ FRML _G aqqo = (aqqo(-1)+JDaqqo)*kvmo $ FRML _G aho = (aho(-1)+JDaho)*kvmo $ FRML _G aoo = (aoo(-1)+JDaoo)*kvmo $ FRML _G asio = (asio(-1)+JDasio)*kvmo $ () () () KOEFFICIENTER FOR ENDELIG ANVENDELSE () () FRML _G am0cf = (am0cf(-1)+JDam0cf)*kfmz0 $ FRML _G aacf = (aacf(-1)+JDaacf) + ((am0cf(-1)+JDam0cf)-am0cf)*0.25 $ FRML _G anfcf = (anfcf(-1)+JDanfcf) + ((am0cf(-1)+JDam0cf)-am0cf)*0.75 $ FRML _G am0cn = (am0cn(-1)+JDam0cn)*kfmz0 $ FRML _G am1cn = (am1cn(-1)+JDam1cn)*kfmz1 $ FRML _G anfcn = (anfcn(-1)+JDanfcn) + ((am0cn(-1)+JDam0cn)-am0cn) $ FRML _G anncn = (anncn(-1)+JDanncn) + ((am1cn(-1)+JDam1cn)-am1cn) $ FRML _G am0ci = (am0ci(-1)+JDam0ci)*kfmz0 $ FRML _G am1ci = (am1ci(-1)+JDam1ci)*kfmz1 $ FRML _G am2ci = (am2ci(-1)+JDam2ci)*kfmz2 $ FRML _G am3qci = (am3qci(-1)+JDam3qci)*kfmz3q $ FRML _G am5ci = (am5ci(-1)+JDam5ci)*kfmz5 $ FRML _G am6qci = (am6qci(-1)+JDam6qci)*kfmz6q $ FRML _G am8ci = (am8ci(-1)+JDam8ci)*kfmz8 $ FRML _G aaci = (aaci(-1)+JDaaci) + ((am0ci(-1)+JDam0ci)-am0ci) + ((am1ci(-1)+JDam1ci)-am1ci) + ((am2ci(-1)+JDam2ci)-am2ci) $ FRML _G ankci = (ankci(-1)+JDankci) + ((am3qci(-1)+JDam3qci)-am3qci) + ((am5ci(-1)+JDam5ci)-am5ci) + ((am8ci(-1)+JDam8ci)-am8ci)*0.15 $ FRML _G anqci = (anqci(-1)+JDanqci) + ((am6qci(-1)+JDam6qci)-am6qci) + ((am8ci(-1)+JDam8ci)-am8ci)*0.85 $ FRML _G am3qce = (am3qce(-1)+JDam3qce)*kfmz3q $ FRML _G angce = (angce(-1)+JDangce) + ((am3qce(-1)+JDam3qce)-am3qce) $ FRML _G am3qcg = (am3qcg(-1)+JDam3qcg)*kfmz3q $ FRML _G angcg = (angcg(-1)+JDangcg) + ((am3qcg(-1)+JDam3qcg)-am3qcg) $ FRML _G am7qcb = (am7qcb(-1)+JDam7qcb)*kfmz7q $ FRML _G antcb = (antcb(-1)+JDantcb) + ((am7qcb(-1)+JDam7qcb)-am7qcb) $ FRML _G am6mcv = (am6mcv(-1)+JDam6mcv)*kfmz6m $ FRML _G am6qcv = (am6qcv(-1)+JDam6qcv)*kfmz6q $ FRML _G am7qcv = (am7qcv(-1)+JDam7qcv)*kfmz7q $ FRML _G am8cv = (am8cv(-1)+JDam8cv)*kfmz8 $ FRML _G anmcv = (anmcv(-1)+JDanmcv) + ((am6mcv(-1)+JDam6mcv)-am6mcv) + ((am7qcv(-1)+JDam7qcv)-am7qcv) + ((am8cv(-1)+JDam8cv)-am8cv)*0.30 $ FRML _G ankcv = (ankcv(-1)+JDankcv) + ((am8cv(-1)+JDam8cv)-am8cv)*0.20 $ FRML _G anqcv = (anqcv(-1)+JDanqcv) + ((am6qcv(-1)+JDam6qcv)-am6qcv) + ((am8cv(-1)+JDam8cv)-am8cv)*0.50 $ FRML _G am6qcs = (am6qcs(-1)+JDam6qcs)*kfmz6q $ FRML _G anqcs = (anqcs(-1)+JDanqcs) + ((am6qcs(-1)+JDam6qcs)-am6qcs) $ FRML _G am6mim = (am6mim(-1)+JDam6mim)*kfmz6m*kaim $ FRML _G am6qim = (am6qim(-1)+JDam6qim)*kfmz6q*kaim $ () am7yim er S‘rbehandlet FRML _G am7bim = (am7bim(-1)+JDam7bim)*kfmz7b*kaim $ FRML _G am7qim = (am7qim(-1)+JDam7qim)*kfmz7q*kaim $ FRML _G am8im = (am8im(-1)+JDam8im)*kfmz8*kaim $ FRML _G amsim = (amsim(-1)+JDamsim)*kaim $ FRML _G aeim = (aeim(-1)+JDaeim)*kaim $ FRML _G anbim = (anbim(-1)+JDanbim)*kaim $ FRML _G anmim = (anmim(-1)+JDanmim)*kaim + ((am6mim(-1)+JDam6mim)*kaim-am6mim) + ((am7qim(-1)+JDam7qim)*kaim-am7qim) + ((am8im(-1)+JDam8im)*kaim-am8im)*0.75 $ () antim er S‘rbehandlet FRML _G ankim = (ankim(-1)+JDankim)*kaim $ FRML _G anqim = (anqim(-1)+JDanqim)*kaim + ((am6qim(-1)+JDam6qim)*kaim-am6qim) + ((am8im(-1)+JDam8im)*kaim-am8im)*0.25 $ FRML _G aqhim = (aqhim(-1)+JDaqhim)*kaim $ FRML _G aqqim = (aqqim(-1)+JDaqqim)*kaim $ FRML _G asiim = (asiim(-1)+JDasiim)*kaim $ () () () SÆRBEHANDLEDE SAMMENBINDINGSKOEFFICIENTER () () FRML _G aeng = (beng*fXe)/fXng $ FRML _G aane = fane/fXne $ FRML _G aene = (bene*fXe)/fXne $ FRML _G aee3 = ((1-beng-bene)*fXe-aeo*fXo-aece*fCe-aeim*fIm-fIle)/ fE3 $ FRML _G ange3 = 1-aee3-anee3-aqhe3-am3re3-am3ke3 -am3qe3-asie3 $ FRML _G am3rng = Dfm3rng*Zfm3rng/fXng + (1-Dfm3rng)*(am3rng(-1)+JDam3rng)*kveng $ FRML _G am3kne = Dfm3kne*Zfm3kne/fXne + (1-Dfm3kne)*(am3kne(-1)+JDam3kne)*kvene $ FRML _G am3qne = (am3qne(-1)+JDam3qne)*kvene $ FRML _GJD aocs = aocs(-1)*(fCs(-1)/fCs)*(fYfo/fYfo(-1)) $ FRML _G aqqcs = 1-anmcs-anqcs-aqhcs-aqtcs-aqfcs-aocs -amscs-asics $ FRML _G am7yim = fM7yim/fIm $ FRML _G antim = (fImqs-fM7yim)/fIm + antim(-1) - (fImqs(-1)-fM7yim(-1))/fIm(-1) + JDantim$ FRML _I aaco = faco /fCo $ FRML _I abco = fbco /fCo $ FRML _I aqhco = fqhco /fCo $ FRML _I aqtco = fqtco /fCo $ FRML _I aqqco = fqqco /fCo $ FRML _I asico = fsico /fCo $ FRML _I aoco = foco /fCo $ () ### PRODV.F05 ### () () () PRODUKTIONSVÆRDIER I FASTE PRISER () () Elasticiteter: Efterspørgsel Pris Fejlkorrektionsparameter () langsigt kort sigt langsigt kort sigt tilpasningshastighed () fXa 1 1 elpfxa -1.2767 ekpfxa -0.1915 Tfxa 0.2000 FRML _GJRD Log(fXaw) = Log(fXae) + elpfxa*Log((pne0/pwaw1)*kfxa) $ FRML _GJRD Dlog(fXa) = Dlog(fXae) + ekpfxa*Dlog((pne0/pwaw1)*kfxa) - Tfxa*Log(fXa(-1)/fXaw(-1)) $ FRML _GJRD Dlog(fXnf) = Dlog(fXa-hostkor) $ FRML _I fXng = anga*fXa + ange*fXe + angng*fXng + angne*fXne + angnf*fXnf + angnn*fXnn + angnb*fXnb + angnm*fXnm + angnt*fXnt + angnk*fXnk + angnq*fXnq + angb*fXb + angqh*fXqh + angqs*fXqs + angqt*fXqt + angqf*fXqf + angqq*fXqq + angh*fXh + ango*fXo + angce*fCe + angcg*fCg + fIlng + ange3*fE3$ FRML _I fXne = anea*fXa + aneng*fXng + anene*fXne + anenf*fXnf + anenn*fXnn + anenb*fXnb + anenm*fXnm + anent*fXnt + anenk*fXnk + anenq*fXnq + aneb*fXb + aneqh*fXqh + aneqs*fXqs + aneqt*fXqt + aneqf*fXqf + aneqq*fXqq + aneh*fXh + aneo*fXo + anece*fCe + fIlne + anee3*fE3$ FRML _I fXnn = annnn*fXnn + annqq*fXqq + anno*fXo + anncn*fCn + fIlnn + anne0*fE0 + anne1*fE1$ FRML _I fXnb = anbnb*fXnb + anbnq*fXnq + anbb*fXb + anbo*fXo + anbcv*fCv + anbim*fIm + fIlnb + anbe2*fE2 + anbe6*fE6$ FRML _I fXnm = anma*fXa + anme*fXe + anmng*fXng + anmnf*fXnf + anmnn*fXnn + anmnb*fXnb + anmnm*fXnm + anmnt*fXnt + anmnk*fXnk + anmnq*fXnq + anmb*fXb + anmqh*fXqh + anmqq*fXqq + anmo*fXo + anmcv*fCv + anmcs*fCs + anmim*fIm + fIlnm + anme2*fE2 + anme6*fE6 + anme7q*fE7q + anme8*fE8$ FRML _I fXnt = anta*fXa + ante*fXe + antnt*fXnt + antqs*fXqs + antqq*fXqq + anto*fXo + antcb*fCb + antcv*fCv + antim*fIm + fIlnt + ante7y*fE7y + ante7q*fE7q $ FRML _I fXnk = anka*fXa + anknf*fXnf + anknm*fXnm + anknk*fXnk + anknq*fXnq + ankb*fXb + ankqh*fXqh + ankqq*fXqq + anko*fXo + ankci*fCi + ankcv*fCv + ankim*fIm + fIlnk + anke2*fE2 + anke5*fE5 + anke6*fE6 + anke8*fE8$ FRML _I fXnq = anqnf*fXnf + anqnn*fXnn + anqnm*fXnm + anqnk*fXnk + anqnq*fXnq + anqb*fXb + anqqh*fXqh + anqqt*fXqt + anqqf*fXqf + anqqq*fXqq + anqo*fXo + anqci*fCi + anqcv*fCv + anqcs*fCs + anqim*fIm + fIlnq + anqe6*fE6 + anqe8*fE8$ FRML _I fXb = aba*fXa + abne*fXne + abb*fXb + abqh*fXqh + abqt*fXqt + abqf*fXqf + abqq*fXqq + abh*fXh + abo*fXo + abch*fCh + abco*fCo + abib*fIb $ FRML _I fXqh = aqha*fXa + aqhnf*fXnf + aqhnb*fXnb + aqhnm*fXnm + aqhnt*fXnt + aqhnk*fXnk + aqhnq*fXnq + aqhb*fXb + aqhqh*fXqh + aqhqt*fXqt + aqhqq*fXqq + aqho*fXo + aqhcf*fCf + aqhcn*fCn + aqhci*fCi + aqhce*fCe + aqhcg*fCg + aqhcb*fCb + aqhcv*fCv + aqhcs*fCs + aqhco*fCo + aqhim*fIm + fIlqh + aqhe0*fE0 + aqhe1*fE1 + aqhe2*fE2 + aqhe3*fE3 + aqhe5*fE5 + aqhe6*fE6 + aqhe7q*fE7q + aqhe8*fE8 + aqhesq*fEsq $ FRML _I fXqs = aqsqh*fXqh + aqsqs*fXqs + aqsqt*fXqt + aqso*fXo + aqsck*fCk + fEss $ FRML _I fXqt = aqta*fXa + aqte*fXe + aqtng*fXng + aqtnf*fXnf + aqtnn*fXnn + aqtnb*fXnb + aqtnm*fXnm + aqtnk*fXnk + aqtnq*fXnq + aqtb*fXb + aqtqh*fXqh + aqtqs*fXqs + aqtqt*fXqt + aqtqf*fXqf + aqtqq*fXqq + aqto*fXo + aqtck*fCk + aqtcs*fCs + aqtco*fCo + aqtesq*fEsq $ FRML _I fXqf = aqfb*fXb + aqfqh*fXqh + aqfqt*fXqt + aqfqf*fXqf + aqfqq*fXqq + aqfo*fXo + aqfcs*fCs + aqfesq*fEsq $ FRML _I fXqq = aqqa*fXa + aqqe*fXe + aqqne*fXne + aqqnf*fXnf + aqqnn*fXnn + aqqnb*fXnb + aqqnm*fXnm + aqqnt*fXnt + aqqnk*fXnk + aqqnq*fXnq + aqqb*fXb + aqqqh*fXqh + aqqqs*fXqs + aqqqt*fXqt + aqqqf*fXqf + aqqqq*fXqq + aqqh*fXh + aqqo*fXo + aqqch*fCh + aqqcs*fCs + aqqco*fCo + aqqim*fIm + aqqib*fIb + fIlqq + aqqe8*fE8 + aqqesq*fEsq$ $ FRML _I fXh = aho*fXo + ahch*fCh $ FRML _I fXn = fXng + fXne + fXnf + fXnn + fXnb + fXnm + fXnt + fXnk + fXnq $ () ### ENERGI.F05 ### () () Prisdeflator til energirelationerne () FRML _DJ_D pklea1 = 1 * ((la1/dthqa1)/(113.8935/0.8057)) **(0.5*((113.8935*254.3448)/(0 + 113.8935* 254.3448 + 0.0906*111924.000 + 1.4437* 1802.7762) + (la1*Hqa1)/(0+la1*Hqa1+uima*fKma+pvea*fVea))) * ((uima/dtfkma1)/(0.0906/0.7731)) **(0.5*((0.0906*111924.000)/(0 + 113.8935* 254.3448 + 0.0906*111924.000 + 1.4437* 1802.7762) + (uima*fKma)/(0+la1*Hqa1+uima*fKma+pvea*fVea))) * ((pvea/dtfvea1)/(1.4437/1.0000)) **(0.5*((1.4437*1802.7762)/(0 + 113.8935*254.3448 + 0.0906*111924.000 + 1.4437*1802.7762) + (pvea*fVea)/(0+la1*Hqa1+uima*fKma+pvea*fVea))) $ FRML _DJ_D pkleb1 = 1 * ((lb1/dthqb1)/(153.4036/1.0937)) **(0.5*((153.4036*260.6424)/(0 + 153.4036*260.6424 + 0.1294*39866.0000 + 2.1404* 701.6273) + (lb1*Hqb1)/(0+lb1*Hqb1+uimb*fKmb+pveb*fVeb))) * ((uimb/dtfkmb1)/(0.1294/1.1742)) **(0.5*(( 0.1294*39866.0000)/(0 + 153.4036* 260.6424 + 0.1294*39866.0000 + 2.1404* 701.6273) + (uimb*fKmb)/(0+lb1*Hqb1+uimb*fKmb+pveb*fVeb))) * ((pveb/dtfveb1)/(2.1404/1.0000)) **(0.5*(( 2.1404* 701.6273)/(0 + 153.4036* 260.6424 + 0.1294*39866.0000 + 2.1404* 701.6273) + (pveb*fVeb)/(0+lb1*Hqb1+uimb*fKmb+pveb*fVeb))) $ FRML _DJ_D pklenb1 = 1 * ((lnb1/dthqnb1)/(134.6366/0.9634)) **(0.5*((134.6366*55.7549)/(0 + 134.6366* 55.7549 + 0.0928*23086.3750 + 1.1919* 900.1561) + (lnb1*Hqnb1)/(0+lnb1*Hqnb1+uimnb*fKmnb+pvenb*fVenb))) * ((uimnb/dtfkmnb1)/(0.0928/0.9094)) **(0.5*((0.0928*23086.3750)/(0 + 134.6366* 55.7549 + 0.0928*23086.3750 + 1.1919*900.1561) + (uimnb*fKmnb)/(0+lnb1*Hqnb1+uimnb*fKmnb+pvenb*fVenb))) * ((pvenb/dtfvenb1)/(1.1919/1.0000)) **(0.5*(( 1.1919* 900.1561)/(0 + 134.6366* 55.7549 + 0.0928*23086.3750 + 1.1919* 900.1561) + (pvenb*fVenb)/(0+lnb1*Hqnb1+uimnb*fKmnb+pvenb*fVenb))) $ FRML _DJ_D pklenf1 = 1 * ((lnf1/dthqnf1)/(145.9794/0.6775)) **(0.5*((145.9794*114.0998)/(0 + 145.9794* 114.0998 + 0.0997*46551.3947 + 1.1511* 1398.3126) + (lnf1*Hqnf1)/(0+lnf1*Hqnf1+uimnf*fKmnf+pvenf*fVenf))) * ((uimnf/dtfkmnf1)/(0.0997/2.0736)) **(0.5*((0.0997*46551.3947)/(0 + 145.9794*114.0998 + 0.0997*46551.3947 + 1.1511* 1398.3126) + (uimnf*fKmnf)/(0+lnf1*Hqnf1+uimnf*fKmnf+pvenf*fVenf))) * ((pvenf/dtfvenf1)/(1.1511/1.0000)) **(0.5*((1.1511*1398.3126)/(0 + 145.9794*114.0998 + 0.0997*46551.3947 + 1.1511* 1398.3126) + (pvenf*fVenf)/(0+lnf1*Hqnf1+uimnf*fKmnf+pvenf*fVenf))) $ FRML _DJ_D pklenk1 = 1 * ((lnk1/dthqnk1)/(162.5028/0.7712)) **(0.5*((162.5028*90.2823)/(0 + 162.5028*90.2823 + 0.0906*51414.1889 + 1.1862* 958.0330) + (lnk1*Hqnk1)/(0+lnk1*Hqnk1+uimnk*fKmnk+pvenk*fVenk))) * ((uimnk/dtfkmnk1)/(0.0906/0.9393)) **(0.5*((0.0906*51414.1889)/(0 + 162.5028*90.2823 + 0.0906*51414.1889 + 1.1862* 958.0330) + (uimnk*fKmnk)/(0+lnk1*Hqnk1+uimnk*fKmnk+pvenk*fVenk))) * ((pvenk/dtfvenk1)/( 1.1862/ 1.0000)) **(0.5*((1.1862*958.0330)/(0 + 162.5028*90.2823 + 0.0906*51414.1889 + 1.1862* 958.0330) + (pvenk*fVenk)/(0+lnk1*Hqnk1+uimnk*fKmnk+pvenk*fVenk))) $ FRML _DJ_D pklenm1 = 1 * ((lnm1/dthqnm1)/(143.7719/0.7878)) **(0.5*((143.7719*293.2020)/(0 + 143.7719* 293.2020 + 0.1067*70994.0000 + 1.2082* 1306.2947) + (lnm1*Hqnm1)/(0+lnm1*Hqnm1+uimnm*fKmnm+pvenm*fVenm))) * ((uimnm/dtfkmnm1)/(0.1067/1.1201)) **(0.5*((0.1067*70994.0000)/(0 + 143.7719* 293.2020 + 0.1067*70994.0000 + 1.2082* 1306.2947) + (uimnm*fKmnm)/(0+lnm1*Hqnm1+uimnm*fKmnm+pvenm*fVenm))) * ((pvenm/dtfvenm1)/(1.2082/1.0000)) **(0.5*((1.2082*1306.2947)/(0 + 143.7719*293.2020 + 0.1067*70994.0000 + 1.2082* 1306.2947) + (pvenm*fVenm)/(0+lnm1*Hqnm1+uimnm*fKmnm+pvenm*fVenm))) $ FRML _DJ_D pklenn1 = 1 * ((lnn1/dthqnn1)/(194.5386/0.8717)) **(0.5*((194.5386*11.3522)/(0 + 194.5386*11.3522 + 0.0997* 5373.6053 + 1.2815* 155.2817) + (lnn1*Hqnn1)/(0+lnn1*Hqnn1+uimnn*fKmnn+pvenn*fVenn))) * ((uimnn/dtfkmnn1)/(0.0997/1.1647)) **(0.5*((0.0997*5373.6053)/(0 + 194.5386*11.3522 + 0.0997* 5373.6053 + 1.2815* 155.2817) + (uimnn*fKmnn)/(0+lnn1*Hqnn1+uimnn*fKmnn+pvenn*fVenn))) * ((pvenn/dtfvenn1)/(1.2815/1.0000)) **(0.5*((1.2815*155.2817)/(0 + 194.5386*11.3522 + 0.0997*5373.6053 + 1.2815*155.2817) + (pvenn*fVenn)/(0+lnn1*Hqnn1+uimnn*fKmnn+pvenn*fVenn))) $ FRML _DJ_D pklenq1 = 1 * ((lnq1/dthqnq1)/(146.5828/0.8897)) **(0.5*((146.5828*165.1600)/(0 + 146.5828*165.1600 + 0.1046*52691.2119 + 1.1752*839.9384) + (lnq1*Hqnq1)/(0+lnq1*Hqnq1+uimnq*fKmnq+pvenq*fVenq))) * ((uimnq/dtfkmnq1)/(0.1046/1.1548)) **(0.5*((0.1046*52691.2119)/(0 + 146.5828*165.1600 + 0.1046*52691.2119 + 1.1752* 839.9384) + (uimnq*fKmnq)/(0+lnq1*Hqnq1+uimnq*fKmnq+pvenq*fVenq))) * ((pvenq/dtfvenq1)/(1.1752/1.0000)) **(0.5*((1.1752*839.9384)/(0 + 146.5828*165.1600 + 0.1046*52691.2119 + 1.1752*839.9384) + (pvenq*fVenq)/(0+lnq1*Hqnq1+uimnq*fKmnq+pvenq*fVenq))) $ FRML _DJ_D pklent1 = 1 * ((lnt1/dthqnt1)/(142.4449/0.8532)) **(0.5*((142.4449*38.9825)/(0 + 142.4449*38.9825 + 0.1326*4849.0000 + 1.1929*157.1092) + (lnt1*Hqnt1)/(0+lnt1*Hqnt1+uimnt*fKmnt+pvent*fVent))) * ((uimnt/dtfkmnt1)/(0.1326/1.6523)) **(0.5*((0.1326*4849.0000)/(0 + 142.4449*38.9825 + 0.1326*4849.0000 + 1.1929*157.1092) + (uimnt*fKmnt)/(0+lnt1*Hqnt1+uimnt*fKmnt+pvent*fVent))) * ((pvent/dtfvent1)/(1.1929/1.0000)) **(0.5*((1.1929*157.1092)/(0 + 142.4449*38.9825 + 0.1326*4849.0000 + 1.1929*157.1092) + (pvent*fVent)/(0+lnt1*Hqnt1+uimnt*fKmnt+pvent*fVent))) $ FRML _DJ_D pkleo1 = 1 * ((lo1/dthqo1)/(168.8046/1.0000)) **(0.5*((168.8046*1001.4627)/(0 + 168.8046*1001.4627 + 0.1271*70450.0000 + 1.8578*2345.5413) + (lo1*Hqo2)/(0+lo1*Hqo2+uimo*fKmo+pveo*fVeo))) * ((uimo/dtfkmo1)/(0.1271/1.0000)) **(0.5*((0.1271*70450.0000)/(0 + 168.8046*1001.4627 + 0.1271*70450.0000 + 1.8578* 2345.5413) + (uimo*fKmo)/(0+lo1*Hqo2+uimo*fKmo+pveo*fVeo))) * ((pveo/dtfveo1)/(1.8578/1.0000)) **(0.5*((1.8578*2345.5413)/(0 + 168.8046*1001.4627 + 0.1271*70450.0000 + 1.8578*2345.5413) + (pveo*fVeo)/(0+lo1*Hqo2+uimo*fKmo+pveo*fVeo))) $ FRML _DJ_D pkleqf1 = 1 * ((lqf1/dthqqf1)/(257.3405/0.8183)) **(0.5*((257.3405*101.0862)/(0 + 257.3405*101.0862 + 0.1425*33337.0000 + 1.7306*211.9093) + (lqf1*Hqqf1)/(0+lqf1*Hqqf1+uimqf*fKmqf+pveqf*fVeqf))) * ((uimqf/dtfkmqf1)/(0.1425/1.2618)) **(0.5*((0.1425*33337.0000)/(0 + 257.3405*101.0862 + 0.1425*33337.0000 + 1.7306*211.9093) + (uimqf*fKmqf)/(0+lqf1*Hqqf1+uimqf*fKmqf+pveqf*fVeqf))) * ((pveqf/dtfveqf1)/(1.7306/1.0000)) **(0.5*((1.7306*211.9093)/(0 + 257.3405*101.0862 + 0.1425*33337.0000 + 1.7306*211.9093) + (pveqf*fVeqf)/(0+lqf1*Hqqf1+uimqf*fKmqf+pveqf*fVeqf))) $ FRML _DJ_D pkleqh1 = 1 * ((lqh1/dthqqh1)/(151.4012/0.8885)) **(0.5*((151.4012*556.6840)/(0 + 151.4012*556.6840 + 0.1159*140579.341 + 1.4945*2402.2704) + (lqh1*Hqqh1)/(0+lqh1*Hqqh1+uimqh*fKmqh+pveqh*fVeqh))) * ((uimqh/dtfkmqh1)/(0.1159/0.9384)) **(0.5*((0.1159*140579.341)/(0 + 151.4012*556.6840 + 0.1159*140579.341 + 1.4945*2402.2704) + (uimqh*fKmqh)/(0+lqh1*Hqqh1+uimqh*fKmqh+pveqh*fVeqh))) * ((pveqh/dtfveqh1)/(1.4945/1.0000)) **(0.5*((1.4945* 2402.2704)/(0 + 151.4012*556.6840 + 0.1159*140579.341 + 1.4945*2402.2704) + (pveqh*fVeqh)/(0+lqh1*Hqqh1+uimqh*fKmqh+pveqh*fVeqh))) $ FRML _DJ_D pkleqq1 = 1* ((lqq1/dthqqq1)/(153.3746/0.9669)) **(0.5*((153.3746*657.1651)/(0 + 153.3746*657.1651 + 0.1512*158691.589 + 1.4177* 2439.8306) + (lqq1*Hqqq1)/(0+lqq1*Hqqq1+uimqq*fKmqq+pveqq*fVeqq))) * ((uimqq/dtfkmqq1)/(0.1512/1.3102)) **(0.5*((0.1512*158691.589)/(0 + 153.3746* 657.1651 + 0.1512*158691.589 + 1.4177* 2439.8306) + (uimqq*fKmqq)/(0+lqq1*Hqqq1+uimqq*fKmqq+pveqq*fVeqq))) * ((pveqq/dtfveqq1)/(1.4177/1.0000)) **(0.5*((1.4177* 2439.8306)/(0 + 153.3746* 657.1651 + 0.1512*158691.589 + 1.4177* 2439.8306) + (pveqq*fVeqq)/(0+lqq1*Hqqq1+uimqq*fKmqq+pveqq*fVeqq))) $ FRML _DJ_D pkleqt1 = 1* ((lqt1/dthqqt1)/( 160.3047/ 0.8778)) **(0.5*(( 160.3047* 242.6477)/(0 + 160.3047* 242.6477 + 0.1164*114613.000 + 2.2629* 2230.6596) + (lqt1*Hqqt1)/(0 +lqt1*Hqqt1+uimqt*fKmqt+pveqt*fVeqt))) * ((uimqt/dtfkmqt1)/(0.1164/1.2496)) **(0.5*((0.1164*114613.000)/(0 + 160.3047* 242.6477 + 0.1164*114613.000 + 2.2629* 2230.6596) + (uimqt*fKmqt)/(0+lqt1*Hqqt1+uimqt*fKmqt+pveqt*fVeqt))) * ((pveqt/dtfveqt1)/(2.2629/1.0000)) **(0.5*((2.2629* 2230.6596)/(0 + 160.3047*242.6477 + 0.1164*114613.000 + 2.2629* 2230.6596) + (pveqt*fVeqt)/(0+lqt1*Hqqt1+uimqt*fKmqt+pveqt*fVeqt))) $ () () ENERGIFORBRUG I FASTE PRISER () FRML _GJRDF Dlog(fVeng) = Dlog(fXng) - Dlog(dtfveng) $ FRML _GJRDF Dlog(fVeh) = Dlog(fXh) - Dlog(dtfveh) $ FRML _GJRDF Dlog(fVeqs) = Dlog(fXqs) - Dlog(dtfveqs) $ FRML _DJRD Log(fVeaw1) = Log(fXa-hostkor) -0.24400*Log(pvea/pklea1) -(1-0.24400)*Log(dtfvea1)-3.51590 +0.00000*fros +Log(kfveaw1)$ FRML _SJRD Log(fVea) = Log(fVeaw1) $ FRML _DJRD Log(fVenfw1) = Log(fXnf) -0.24836*Log(pvenf/pklenf1) -(1-0.24836)*Log(dtfvenf1) -4.21968 +0.00000*fros+Log(kfvenfw1) $ FRML _SJRD Dlog(fVenf) = 0.10000*Dlog(fXnf) +0.90000*(-0.24836)*Dlog(pvenf/pklenf1) +0.00000*Dif(fros) -0.50613*(1-0.24836)*Dlog(dtfvenf1) -0.50613*(Log(fVenf(-1)/fVenfw1(-1))) $ FRML _DJRD Log(fVennw1) = Log(fXnn) -0.21936*Log(pvenn/pklenn1) -(1-0.21936)*Log(dtfvenn1)-4.14032 +0.00000*fros+0.10928*D7092+Log(kfvennw1) $ FRML _SJRD Log(fVenn) = Log(fVennw1) $ FRML _DJRD Log(fVenbw1) = Log(fXnb) -0.20000*Log(pvenb/pklenb1) -(1-0.20000)*Log(dtfvenb1)-3.32590 +0.00098170*fros +Log(kfvenbw1)$ FRML _SJRD Dlog(fVenb) = 0.50899*Dlog(fXnb) +0.10000*(-0.20000)*Dlog(pvenb/pklenb1) +0.00098170*Dif(fros) -0.43410*(1-0.20000)*Dlog(dtfvenb1) -0.43410*(Log(fVenb(-1)/fVenbw1(-1))) $ FRML _DJRD Log(fVenmw1) = Log(fXnm) -0.011921*Log(pvenm/pklenm1) -(1-0.011921)*Log(dtfvenm1)-4.69081 +0.0011934*fros+Log(kfvenmw1) $ FRML _SJRD Dlog(fVenm) = 0.66266*Dlog(fXnm) +0.10000*(-0.011921)*Dlog(pvenm/pklenm1) +0.0011934*Dif(fros) -0.52366*(1-0.011921)*Dlog(dtfvenm1) -0.52366*(Log(fVenm(-1)/fVenmw1(-1))) $ FRML _DJRD Log(fVentw1) = Log(fXnt) -0.24940*Log(pvent/pklent1) -(1-0.24940)*Log(dtfvent1)-4.83929 +0.0021806*fros+0.025886*D7092 +Log(kfventw1)$ FRML _SJRD Log(fVent) = Log(fVentw1) $ FRML _DJRD Log(fVenkw1) = Log(fXnk) -0.17842*Log(pvenk/pklenk1) -(1-0.17842)*Log(dtfvenk1)-3.99850 +0.00000*fros + 0.30992*D7377+Log(kfvenkw1) $ FRML _SJRD Log(fVenk) = Log(fVenkw1) $ FRML _DJRD Log(fVenqw1) = Log(fXnq) -0.18812*Log(pvenq/pklenq1) -(1-0.18812)*Log(dtfvenq1)-4.55421 +0.0017238*fros +Log(kfvenqw1)$ FRML _SJRD Dlog(fVenq) = 0.70046*Dlog(fXnq) +0.90000*(-0.18812)*Dlog(pvenq/pklenq1) +0.0017238*Dif(fros) -0.79324*(1-0.18812)*Dlog(dtfvenq1) -0.79324*(Log(fVenq(-1)/fVenqw1(-1))) $ FRML _DJRD Log(fVebw1) = Log(fXb) -0.068114*Log(pveb/pkleb1) -(1-0.068114)*Log(dtfveb1)-5.21738 +0.0010110*fros+0.52094*D7092 +Log(kfvebw1) $ FRML _SJRD Dlog(fVeb) = 0.68044*Dlog(fXb) +0.90000*(-0.068114)*Dlog(pveb/pkleb1) +0.0010110*Dif(fros) +0.52094*Dif(D7092) -0.73794*(1-0.068114)*Dlog(dtfveb1) -0.73794*(Log(fVeb(-1)/fVebw1(-1))) $ FRML _DJRD Log(fVeow1) = Log(fXo) -0.17928*Log(pveo/pkleo1) -(1-0.17928)*Log(dtfveo1)-4.70261 +0.00071935*fros + 0.41898*D7092 +Log(kfveow1) $ FRML _SJRD Dlog(fVeo) = 0.90000*Dlog(fXo) +0.56506*(-0.17928)*Dlog(pveo/pkleo1) +0.00071935*Dif(fros) +0.41898*Dif(D7092) -0.88443*(1-0.17928)*Dlog(dtfveo1) -0.88443*(Log(fVeo(-1)/fVeow1(-1))) $ FRML _DJRD Log(fVeqhw1) = Log(fXqh) -0.10000*Log(pveqh/pkleqh1) -(1-0.10000)*Log(dtfveqh1)-4.46289 +0.0014237*fros+0.23444*D7092 +Log(kfveqhw1)$ FRML _SJRD Dlog(fVeqh) = 0.17126*Dlog(fXqh) +0.10000*(-0.10000)*Dlog(pveqh/pkleqh1) +0.0014237*Dif(fros) +0.23444*Dif(D7092) -0.30346*(1-0.10000)*Dlog(dtfveqh1) -0.30346*(Log(fVeqh(-1)/fVeqhw1(-1))) $ FRML _DJRD Log(fVeqtw1) = Log(fXqt) -0.10945*Log(pveqt/pkleqt1) -(1-0.10945)*Log(dtfveqt1)-3.87822 +0.0010192*fros+0.077764*D7092 +Log(kfveqtw1) $ FRML _SJRD Log(fVeqt) = Log(fVeqtw1) $ FRML _DJRD Log(fVeqfw1) = Log(fXqf) -0.10000*Log(pveqf/pkleqf1) -(1-0.10000)*Log(dtfveqf1)-5.51491 +0.00000*fros +Log(kfveqfw1)$ FRML _SJRD Dlog(fVeqf) = 0.25659*Dlog(fXqf) +0.10000*(-0.10000)*Dlog(pveqf/pkleqf1) +0.00000*Dif(fros) -0.45720*(1-0.10000)*Dlog(dtfveqf1) -0.45720*(Log(fVeqf(-1)/fVeqfw1(-1)) ) $ FRML _DJRD Log(fVeqqw1) = Log(fXqq) -0.22138*Log(pveqq/pkleqq1) -(1-0.22138)*Log(dtfveqq1)-4.78653 +0.0014236*fros+0.23196*D7092 +Log(kfveqqw1) $ FRML _SJRD Log(fVeqq) = Log(fVeqqw1) $ () ### MATERIAL.F05 ### () () () MATERIALEFORBRUG I FASTE PRISER () () FRML _GJRDF Dlog(fVma) = Dlog(fXa-hostkor) $ FRML _GJRDF Dlog(fVme) = Dlog(fXe) $ FRML _GJRDF Dlog(fVmng) = Dlog(fXng) $ FRML _GJRDF Dlog(fVmnf) = Dlog(fXnf) $ FRML _GJRDF Dlog(fVmnn) = Dlog(fXnn) $ FRML _GJRDF Dlog(fVmnb) = Dlog(fXnb) $ FRML _GJRDF Dlog(fVmnm) = Dlog(fXnm) $ FRML _GJRDF Dlog(fVmnt) = Dlog(fXnt) $ FRML _GJRDF Dlog(fVmnk) = Dlog(fXnk) $ FRML _GJRDF Dlog(fVmnq) = Dlog(fXnq) $ FRML _GJRDF Dlog(fVmb) = Dlog(fXb) $ FRML _GJRDF Dlog(fVmqh) = Dlog(fXqh) $ FRML _GJRDF Dlog(fVmqs) = Dlog(fXqs) $ FRML _GJRDF Dlog(fVmqt) = Dlog(fXqt) $ FRML _GJRDF Dlog(fVmqf) = Dlog(fXqf) $ FRML _GJRDF Dlog(fVmqq) = Dlog(fXqq) $ FRML _GJRDF Dlog(fVmh) = Dlog(fXh) $ FRML _GJRDF fVmo = fVmo(-1)*fYfo/fYfo(-1)+fVmox+JDfVmo $ () () () PRISER PÅ MATERIALFORBRUG () () FRML _I pvma = (Va -pvea *fVea )/fVma $ FRML _I pvme = (Ve -pvee *fVee )/fVme $ FRML _I pvmng = (Vng-pveng*fVeng)/fVmng $ FRML _I pvmne = (Vne-pvene*fVene)/fVmne $ FRML _I pvmnf = (Vnf-pvenf*fVenf)/fVmnf $ FRML _I pvmnn = (Vnn-pvenn*fVenn)/fVmnn $ FRML _I pvmnb = (Vnb-pvenb*fVenb)/fVmnb $ FRML _I pvmnm = (Vnm-pvenm*fVenm)/fVmnm $ FRML _I pvmnt = (Vnt-pvent*fVent)/fVmnt $ FRML _I pvmnk = (Vnk-pvenk*fVenk)/fVmnk $ FRML _I pvmnq = (Vnq-pvenq*fVenq)/fVmnq $ FRML _I pvmb = (Vb -pveb*fVeb )/fVmb $ FRML _I pvmqh = (Vqh-pveqh*fVeqh)/fVmqh $ FRML _I pvmqs = (Vqs-pveqs*fVeqs)/fVmqs $ FRML _I pvmqt = (Vqt-pveqt*fVeqt)/fVmqt $ FRML _I pvmqf = (Vqf-pveqf*fVeqf)/fVmqf $ FRML _I pvmqq = (Vqq-pveqq*fVeqq)/fVmqq $ FRML _I pvmh = (Vh -pveh*fVeh )/fVmh $ FRML _I pvmo = (fVo*pvo-pveo*fVeo)/fVmo $ () ### VAREINPU.F05 ### () () () BRUTTOFAKTORINDKOMST I FASTE PRISER () () FRML _I fYfa = fXa - fVea - fVma $ FRML _I fYfe = fXe - fVee - fVme $ FRML _I fYfng = fXng - fVeng - fVmng $ FRML _I fYfne = fXne - fVene - fVmne $ FRML _I fYfnf = fXnf - fVenf - fVmnf $ FRML _I fYfnn = fXnn - fVenn - fVmnn $ FRML _I fYfnb = fXnb - fVenb - fVmnb $ FRML _I fYfnm = fXnm - fVenm - fVmnm $ FRML _I fYfnt = fXnt - fVent - fVmnt $ FRML _I fYfnk = fXnk - fVenk - fVmnk $ FRML _I fYfnq = fXnq - fVenq - fVmnq $ FRML _I fYfb = fXb - fVeb - fVmb $ FRML _I fYfqh = fXqh - fVeqh - fVmqh $ FRML _I fYfqs = fXqs - fVeqs - fVmqs $ FRML _I fYfqt = fXqt - fVeqt - fVmqt $ FRML _I fYfqf = fXqf - fVeqf - fVmqf $ FRML _I fYfqq = fXqq - fVeqq - fVmqq $ FRML _I fYfh = fXh - fVeh - fVmh $ FRML _I fYfn = fYfng + fYfne + fYfnf + fYfnn + fYfnb + fYfnm + fYfnt + fYfnk + fYfnq $ FRML _I fYf = fYfa + fYfe + fYfng + fYfne + fYfnf + fYfnn + fYfnb + fYfnm + fYfnt + fYfnk + fYfnq + fYfb + fYfqh + fYfqs + fYfqt + fYfqf + fYfqq + fYfh + fYfo $ () ### FAKTOR.F05 ### () ----------------------------------------------------- () a-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimae = 0.25*rpimae(-1) + 0.75*(pima/pima(-1)-1) $ FRML _DJ_D bfknma = fKnma /fKma $ FRML _DJRD uima = bfknma*pima*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvma-0.50*rpimae) $ FRML _DJRD fKmaw1 = (1/dtfkma1)*0.32508**(0.51000/(1-0.51000)) *(((fXa-hostkor)/68582.50650)/1.08766) *( ( ((la1*154.70525)/(uima*117704.00000)) *(dtfkma1/dthqa1) ) **(1-0.51000) *((1-0.32508)/0.32508)**0.51000+1 ) **(0.51000/(1-0.51000))*117704.00000 $ FRML _SJRDF Dlog(fKma) = 0.14000*Dlog(fKmaw1) + 0.12908*(Log(fKmaw1(-1))-Log(fKma(-1))) + rofkma1 *( Dlog(fKma(-1)) -0.14000*Dlog(fKmaw1(-1)) -0.12908*(Log(fKmaw1(-2))-Log(fKma(-2))) ) $ FRML _DJRD fKmak = fKma $ FRML _DJRD fIma = Dif(fKma) + bfivma*fKma(-1) $ FRML _DJRD fKnma = fIma + (1-bfinvma)*fKnma(-1) $ FRML _DJRD Hqan1 = (1/dthqa1) *( (1/(1-0.32508)) *(((fXa-hostkor)/68582.50650)/1.08766) **(-(1/0.51000-1)) -(0.32508/(1-0.32508)) *(dtfkma1*fKmak/117704.00000)**(-(1/0.51000-1)) ) **(-(1/(1/0.51000-1)))*154.70525 $ FRML _SJRDF Log(Hqa1) = 0.42724*(Log(Hqan1)-Log(Hga))+Log(Hga) + (1-0.42724+(-0.35940)) *(Log(Hqan1(-1))-Log(Hga(-1))) - (-0.35940)*(Log(Hqan1(-2))-Log(Hga(-2))) + rohqa1 *( Log(Hqa1(-1)) -( 0.42724*(Log(Hqan1(-1))-Log(Hga(-1))) +(1-0.42724+(-0.35940)) *(Log(Hqan1(-2))-Log(Hga(-2)))-(-0.35940) *(Log(Hqan1(-3))-Log(Hga(-3)))+Log(Hga(-1)) ) ) $ FRML _DJ_D Qa1 = Hqa1/(bqsa1*Hgsa+(1-bqsa1)*Hgwa)*1000 $ FRML _D Qsa1 = bqsa1*Qa1 $ FRML _I Qwa1 = Qa1-Qsa1 $ FRML _D Ywa1 = lnakk1*Hgwa*Qwa1*0.001*kla1 $ FRML _DJ_ la1 = (Ywa1+Siqal)/(Qwa1*Hgwa)*1000 $ FRML _DJRD Hqaw1 = (1/dthqa1)*(1-0.32508)**(0.51000/(1-0.51000)) *(((fXa-hostkor)/68582.50650)/1.08766) *( ( ((uima*117704.00000)/(la1*154.70525)) *(dthqa1/dtfkma1) ) **(1-0.51000) *(0.32508/(1-0.32508))**0.51000+1 ) **(0.51000/(1-0.51000))*154.70525 $ () ----------------------------------------------------- () ng-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimnge = 0.25*rpimnge(-1) + 0.75*(pimng/pimng(-1)-1) $ FRML _DJ_D bfknmng = fKnmng/fKmng $ FRML _DJRD uimng = bfknmng*pimng*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmng-0.50*rpimnge) $ FRML _DJRD fKmngw1 = (1/dtfkmng1)*0.40306**(0.16223/(1-0.16223)) *((fXng/19023.00781)/0.86982) *( ( ((lng1*1.04303)/(uimng*13515.00000)) *(dtfkmng1/dthqng1) ) **(1-0.16223) *((1-0.40306)/0.40306)**0.16223+1 ) **(0.16223/(1-0.16223))*13515.00000 $ FRML _SJRDF Dlog(fKmng) = 0.20*Dlog(fKmngw1) + 0.20*Dlog(fKmngw1(-1)) + 0.20*Dlog(fKmngw1(-2)) + 0.20*Dlog(fKmngw1(-3)) + 0.20*Dlog(fKmngw1(-4)) $ FRML _DJRD fImng = Dif(fKmng) + bfivmng*fKmng(-1) $ FRML _DJRD fKnmng = fImng + (1-bfinvmng)*fKnmng(-1) $ FRML _DJRD Hqngw1 = (1/dthqng1)*(1-0.40306)**(0.16223/(1-0.16223)) *((fXng/19023.00781)/0.86982) *( ( ((uimng*13515.00000)/(lng1*1.04303)) *(dthqng1/dtfkmng1) ) **(1-0.16223) *(0.40306/(1-0.40306))**0.16223+1 ) **(0.16223/(1-0.16223))*1.04303 $ FRML _SJRDF Dlog(Hqng1) = 0.65*(Dlog(Hqngw1)-Dlog(Hgng)) + Dlog(Hgng) + 0.20*(Dlog(Hqngw1(-1))-Dlog(Hgng(-1))) + 0.15*(Dlog(Hqngw1(-2))-Dlog(Hgng(-2))) $ FRML _DJ_D Qng1 = Hqng1/(bqsng1*Hgsng+(1-bqsng1)*Hgwng)*1000 $ FRML _D Qsng1 = bqsng1*Qng1 $ FRML _I Qwng1 = Qng1-Qsng1 $ FRML _D Ywng1 = lnakk1*Hgwng*Qwng1*0.001*klng1 $ FRML _DJ_ lng1 = (Ywng1+Siqngl)/(Qwng1*Hgwng)*1000 $ () ----------------------------------------------------- () nf-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimnfe = 0.25*rpimnfe(-1) + 0.75*(pimnf/pimnf(-1)-1) $ FRML _DJ_D bfknmnf = fKnmnf /fKmnf $ FRML _DJRD uimnf = bfknmnf*pimnf*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmnf-0.50*rpimnfe) $ FRML _DJRD fKmnfw1 = (1/dtfkmnf1)*0.42813**(0.63378/(1-0.63378)) *((fXnf/104170.21094)/0.99981) *( ( ((lnf1*108.41088)/(uimnf*54095.89063)) *(dtfkmnf1/dthqnf1) ) **(1-0.63378) *((1-0.42813)/0.42813)**0.63378+1 ) **(0.63378/(1-0.63378))*54095.89063 $ FRML _SJRDF Dlog(fKmnf) = 0.094150*Dlog(fKmnfw1) + 0.10218*(Log(fKmnfw1(-1))-Log(fKmnf(-1))) + rofkmnf1 *( Dlog(fKmnf(-1)) -0.094150*Dlog(fKmnfw1(-1)) -0.10218*(Log(fKmnfw1(-2))-Log(fKmnf(-2))) ) $ FRML _DJRD fKmnfk = fKmnf $ FRML _DJRD fImnf = Dif(fKmnf) + bfivmnf*fKmnf(-1) $ FRML _DJRD fKnmnf = fImnf + (1-bfinvmnf)*fKnmnf(-1) $ FRML _DJRD Hqnfn1 = (1/dthqnf1) *( (1/(1-0.42813)) *((fXnf/104170.21094)/0.99981) **(-(1/0.63378-1)) -(0.42813/(1-0.42813)) *(dtfkmnf1*fKmnfk/54095.89063)**(-(1/0.63378-1)) ) **(-(1/(1/0.63378-1)))*108.41088 $ FRML _SJRDF Log(Hqnf1) = 0.61979*(Log(Hqnfn1)-Log(Hgnf))+Log(Hgnf) + (1-0.61979+(-0.32979)) *(Log(Hqnfn1(-1))-Log(Hgnf(-1))) - (-0.32979)*(Log(Hqnfn1(-2))-Log(Hgnf(-2))) + rohqnf1 *( Log(Hqnf1(-1)) -( 0.61979*(Log(Hqnfn1(-1))-Log(Hgnf(-1))) +(1-0.61979+(-0.32979)) *(Log(Hqnfn1(-2))-Log(Hgnf(-2)))-(-0.32979) *(Log(Hqnfn1(-3))-Log(Hgnf(-3)))+Log(Hgnf(-1)) ) ) $ FRML _DJ_D Qnf1 = Hqnf1/(bqsnf1*Hgsnf+(1-bqsnf1)*Hgwnf)*1000 $ FRML _D Qsnf1 = bqsnf1*Qnf1 $ FRML _I Qwnf1 = Qnf1-Qsnf1 $ FRML _D Ywnf1 = lnakk1*Hgwnf*Qwnf1*0.001*klnf1 $ FRML _DJ_ lnf1 = (Ywnf1+Siqnfl)/(Qwnf1*Hgwnf)*1000 $ FRML _DJRD Hqnfw1 = (1/dthqnf1)*(1-0.42813)**(0.63378/(1-0.63378)) *((fXnf/104170.21094)/0.99981) *( ( ((uimnf*54095.89063)/(lnf1*108.41088)) *(dthqnf1/dtfkmnf1) ) **(1-0.63378) *(0.42813/(1-0.42813))**0.63378+1 ) **(0.63378/(1-0.63378))*108.41088 $ () ----------------------------------------------------- () nn-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimnne = 0.25*rpimnne(-1) + 0.75*(pimnn/pimnn(-1)-1) $ FRML _DJ_D bfknmnn = fKnmnn /fKmnn $ FRML _DJRD uimnn = bfknmnn*pimnn*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmnn-0.50*rpimnne) $ FRML _DJRD fKmnnw1 = (1/dtfkmnn1)*0.31290**(0.27999/(1-0.27999)) *((fXnn/12518.91797)/1.11803) *( ( ((lnn1*12.18008)/(uimnn*6501.11035)) *(dtfkmnn1/dthqnn1) ) **(1-0.27999) *((1-0.31290)/0.31290)**0.27999+1 ) **(0.27999/(1-0.27999))*6501.11035 $ FRML _SJRDF Dlog(fKmnn) = 0.10000*Dlog(fKmnnw1) + 0.15958*(Log(fKmnnw1(-1))-Log(fKmnn(-1))) + rofkmnn1 *( Dlog(fKmnn(-1)) -0.10000*Dlog(fKmnnw1(-1)) -0.15958*(Log(fKmnnw1(-2))-Log(fKmnn(-2))) ) $ FRML _DJRD fKmnnk = fKmnn $ FRML _DJRD fImnn = Dif(fKmnn) + bfivmnn*fKmnn(-1) $ FRML _DJRD fKnmnn = fImnn + (1-bfinvmnn)*fKnmnn(-1) $ FRML _DJRD Hqnnn1 = (1/dthqnn1) *( (1/(1-0.31290)) *((fXnn/12518.91797)/1.11803) **(-(1/0.27999-1)) -(0.31290/(1-0.31290)) *(dtfkmnn1*fKmnnk/6501.11035)**(-(1/0.27999-1)) ) **(-(1/(1/0.27999-1)))*12.18008 $ FRML _SJRDF Log(Hqnn1) = 0.36175*(Log(Hqnnn1)-Log(Hgnn))+Log(Hgnn) + (1-0.36175+(-0.21321)) *(Log(Hqnnn1(-1))-Log(Hgnn(-1))) - (-0.21321)*(Log(Hqnnn1(-2))-Log(Hgnn(-2))) + rohqnn1 *( Log(Hqnn1(-1)) -( 0.36175*(Log(Hqnnn1(-1))-Log(Hgnn(-1))) +(1-0.36175+(-0.21321)) *(Log(Hqnnn1(-2))-Log(Hgnn(-2)))-(-0.21321) *(Log(Hqnnn1(-3))-Log(Hgnn(-3)))+Log(Hgnn(-1)) ) ) $ FRML _DJ_D Qnn1 = Hqnn1/(bqsnn1*Hgsnn+(1-bqsnn1)*Hgwnn)*1000 $ FRML _D Qsnn1 = bqsnn1*Qnn1 $ FRML _I Qwnn1 = Qnn1-Qsnn1 $ FRML _D Ywnn1 = lnakk1*Hgwnn*Qwnn1*0.001*klnn1 $ FRML _DJ_ lnn1 = (Ywnn1+Siqnnl)/(Qwnn1*Hgwnn)*1000 $ FRML _DJRD Hqnnw1 = (1/dthqnn1)*(1-0.31290)**(0.27999/(1-0.27999)) *((fXnn/12518.91797)/1.11803) *( ( ((uimnn*6501.11035)/(lnn1*12.18008)) *(dthqnn1/dtfkmnn1) ) **(1-0.27999) *(0.31290/(1-0.31290))**0.27999+1 ) **(0.27999/(1-0.27999))*12.18008 $ () ----------------------------------------------------- () nb-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimnbe = 0.25*rpimnbe(-1) + 0.75*(pimnb/pimnb(-1)-1) $ FRML _DJ_D bfknmnb = fKnmnb /fKmnb $ FRML _DJRD uimnb = bfknmnb*pimnb*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmnb-0.50*rpimnbe) $ FRML _DJRD fKmnbw1 = (1/dtfkmnb1)*0.21855**(0.42664/(1-0.42664)) *((fXnb/31584.44922)/0.97769) *( ( ((lnb1*53.66097)/(uimnb*27168.54297)) *(dtfkmnb1/dthqnb1) ) **(1-0.42664) *((1-0.21855)/0.21855)**0.42664+1 ) **(0.42664/(1-0.42664))*27168.54297 $ FRML _SJRDF Dlog(fKmnb) = 0.089767*Dlog(fKmnbw1) + 0.21478*(Log(fKmnbw1(-1))-Log(fKmnb(-1))) + rofkmnb1 *( Dlog(fKmnb(-1)) -0.089767*Dlog(fKmnbw1(-1)) -0.21478*(Log(fKmnbw1(-2))-Log(fKmnb(-2))) ) $ FRML _DJRD fKmnbk = fKmnb $ FRML _DJRD fImnb = Dif(fKmnb) + bfivmnb*fKmnb(-1) $ FRML _DJRD fKnmnb = fImnb + (1-bfinvmnb)*fKnmnb(-1) $ FRML _DJRD Hqnbn1 = (1/dthqnb1) *( (1/(1-0.21855)) *((fXnb/31584.44922)/0.97769) **(-(1/0.42664-1)) -(0.21855/(1-0.21855)) *(dtfkmnb1*fKmnbk/27168.54297)**(-(1/0.42664-1)) ) **(-(1/(1/0.42664-1)))*53.66097 $ FRML _SJRDF Log(Hqnb1) = 0.51045*(Log(Hqnbn1)-Log(Hgnb))+Log(Hgnb) + (1-0.51045+(-0.19242)) *(Log(Hqnbn1(-1))-Log(Hgnb(-1))) - (-0.19242)*(Log(Hqnbn1(-2))-Log(Hgnb(-2))) + rohqnb1 *( Log(Hqnb1(-1)) -( 0.51045*(Log(Hqnbn1(-1))-Log(Hgnb(-1))) +(1-0.51045+(-0.19242)) *(Log(Hqnbn1(-2))-Log(Hgnb(-2)))-(-0.19242) *(Log(Hqnbn1(-3))-Log(Hgnb(-3)))+Log(Hgnb(-1)) ) ) $ FRML _DJ_D Qnb1 = Hqnb1/(bqsnb1*Hgsnb+(1-bqsnb1)*Hgwnb)*1000 $ FRML _D Qsnb1 = bqsnb1*Qnb1 $ FRML _I Qwnb1 = Qnb1-Qsnb1 $ FRML _D Ywnb1 = lnakk1*Hgwnb*Qwnb1*0.001*klnb1 $ FRML _DJ_ lnb1 = (Ywnb1+Siqnbl)/(Qwnb1*Hgwnb)*1000 $ FRML _DJRD Hqnbw1 = (1/dthqnb1)*(1-0.21855)**(0.42664/(1-0.42664)) *((fXnb/31584.44922)/0.97769) *( ( ((uimnb*27168.54297)/(lnb1*53.66097)) *(dthqnb1/dtfkmnb1) ) **(1-0.42664) *(0.21855/(1-0.21855))**0.42664+1 ) **(0.42664/(1-0.42664))*53.66097 $ () ----------------------------------------------------- () nm-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimnme = 0.25*rpimnme(-1) + 0.75*(pimnm/pimnm(-1)-1) $ FRML _DJ_D bfknmnm = fKnmnm /fKmnm $ FRML _DJRD uimnm = bfknmnm*pimnm*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmnm-0.50*rpimnme) $ FRML _DJRD fKmnmw1 = (1/dtfkmnm1)*0.24573**(0.45493/(1-0.45493)) *((fXnm/170086.51563)/1.01126) *( ( ((lnm1*285.85120)/(uimnm*89212.00000)) *(dtfkmnm1/dthqnm1) ) **(1-0.45493) *((1-0.24573)/0.24573)**0.45493+1 ) **(0.45493/(1-0.45493))*89212.00000 $ FRML _SJRDF Dlog(fKmnm) = 0.13855*Dlog(fKmnmw1) + 0.21703*(Log(fKmnmw1(-1))-Log(fKmnm(-1))) + rofkmnm1 *( Dlog(fKmnm(-1)) -0.13855*Dlog(fKmnmw1(-1)) -0.21703*(Log(fKmnmw1(-2))-Log(fKmnm(-2))) ) $ FRML _DJRD fKmnmk = fKmnm $ FRML _DJRD fImnm = Dif(fKmnm) + bfivmnm*fKmnm(-1) $ FRML _DJRD fKnmnm = fImnm + (1-bfinvmnm)*fKnmnm(-1) $ FRML _DJRD Hqnmn1 = (1/dthqnm1) *( (1/(1-0.24573)) *((fXnm/170086.51563)/1.01126) **(-(1/0.45493-1)) -(0.24573/(1-0.24573)) *(dtfkmnm1*fKmnmk/89212.00000)**(-(1/0.45493-1)) ) **(-(1/(1/0.45493-1)))*285.85120 $ FRML _SJRDF Log(Hqnm1) = 0.60060*(Log(Hqnmn1)-Log(Hgnm))+Log(Hgnm) + (1-0.60060+(-0.15193)) *(Log(Hqnmn1(-1))-Log(Hgnm(-1))) - (-0.15193)*(Log(Hqnmn1(-2))-Log(Hgnm(-2))) + rohqnm1 *( Log(Hqnm1(-1)) -( 0.60060*(Log(Hqnmn1(-1))-Log(Hgnm(-1))) +(1-0.60060+(-0.15193)) *(Log(Hqnmn1(-2))-Log(Hgnm(-2)))-(-0.15193) *(Log(Hqnmn1(-3))-Log(Hgnm(-3)))+Log(Hgnm(-1)) ) ) $ FRML _DJ_D Qnm1 = Hqnm1/(bqsnm1*Hgsnm+(1-bqsnm1)*Hgwnm)*1000 $ FRML _D Qsnm1 = bqsnm1*Qnm1 $ FRML _I Qwnm1 = Qnm1-Qsnm1 $ FRML _D Ywnm1 = lnakk1*Hgwnm*Qwnm1*0.001*klnm1 $ FRML _DJ_ lnm1 = (Ywnm1+Siqnml)/(Qwnm1*Hgwnm)*1000 $ FRML _DJRD Hqnmw1 = (1/dthqnm1)*(1-0.24573)**(0.45493/(1-0.45493)) *((fXnm/170086.51563)/1.01126) *( ( ((uimnm*89212.00000)/(lnm1*285.85120)) *(dthqnm1/dtfkmnm1) ) **(1-0.45493) *(0.24573/(1-0.24573))**0.45493+1 ) **(0.45493/(1-0.45493))*285.85120 $ () ----------------------------------------------------- () nt-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimnte = 0.25*rpimnte(-1) + 0.75*(pimnt/pimnt(-1)-1) $ FRML _DJ_D bfknmnt = fKnmnt /fKmnt $ FRML _DJRD uimnt = bfknmnt*pimnt*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmnt-0.50*rpimnte) $ FRML _DJRD fKmntw1 = (1/dtfkmnt1)*0.29982**(0.30748/(1-0.30748)) *((fXnt/17357.20313)/0.98378) *( ( ((lnt1*27.73316)/(uimnt*6478.00000)) *(dtfkmnt1/dthqnt1) ) **(1-0.30748) *((1-0.29982)/0.29982)**0.30748+1 ) **(0.30748/(1-0.30748))*6478.00000 $ FRML _SJRDF Dlog(fKmnt) = 0.11293*Dlog(fKmntw1) + 0.23129*(Log(fKmntw1(-1))-Log(fKmnt(-1))) + rofkmnt1 *( Dlog(fKmnt(-1)) -0.11293*Dlog(fKmntw1(-1)) -0.23129*(Log(fKmntw1(-2))-Log(fKmnt(-2))) ) $ FRML _DJRD fKmntk = fKmnt $ FRML _DJRD fImnt = Dif(fKmnt) + bfivmnt*fKmnt(-1) $ FRML _DJRD fKnmnt = fImnt + (1-bfinvmnt)*fKnmnt(-1) $ FRML _DJRD Hqntn1 = (1/dthqnt1) *( (1/(1-0.29982)) *((fXnt/17357.20313)/0.98378) **(-(1/0.30748-1)) -(0.29982/(1-0.29982)) *(dtfkmnt1*fKmntk/6478.00000)**(-(1/0.30748-1)) ) **(-(1/(1/0.30748-1)))*27.73316 $ FRML _SJRDF Log(Hqnt1) = 0.44847*(Log(Hqntn1)-Log(Hgnt))+Log(Hgnt) + (1-0.44847+(-0.099382)) *(Log(Hqntn1(-1))-Log(Hgnt(-1))) - (-0.099382)*(Log(Hqntn1(-2))-Log(Hgnt(-2))) + rohqnt1 *( Log(Hqnt1(-1)) -( 0.44847*(Log(Hqntn1(-1))-Log(Hgnt(-1))) +(1-0.44847+(-0.099382)) *(Log(Hqntn1(-2))-Log(Hgnt(-2)))-(-0.099382) *(Log(Hqntn1(-3))-Log(Hgnt(-3)))+Log(Hgnt(-1)) ) ) $ FRML _DJ_D Qnt1 = Hqnt1/(bqsnt1*Hgsnt + (1-bqsnt1)*Hgwnt)*1000 $ FRML _D Qsnt1 = bqsnt1*Qnt1 $ FRML _I Qwnt1 = Qnt1-Qsnt1 $ FRML _D Ywnt1 = lnakk1*Hgwnt*Qwnt1*0.001*klnt1 $ FRML _DJ_ lnt1 = (Ywnt1+Siqntl)/(Qwnt1*Hgwnt)*1000 $ FRML _DJRD Hqntw1 = (1/dthqnt1)*(1-0.29982)**(0.30748/(1-0.30748)) *((fXnt/17357.20313)/0.98378) *( ( ((uimnt*6478.00000)/(lnt1*27.73316)) *(dthqnt1/dtfkmnt1) ) **(1-0.30748) *(0.29982/(1-0.29982))**0.30748+1 ) **(0.30748/(1-0.30748))*27.73316 $ () ----------------------------------------------------- () nk-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimnke = 0.25*rpimnke(-1) + 0.75*(pimnk/pimnk(-1)-1) $ FRML _DJ_D bfknmnk = fKnmnk /fKmnk $ FRML _DJRD uimnk = bfknmnk*pimnk*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmnk-0.50*rpimnke) $ FRML _DJRD fKmnkw1 = (1/dtfkmnk1)*0.31563**(0.38028/(1-0.38028)) *((fXnk/75159.84375)/0.98183) *( ( ((lnk1*90.40722)/(uimnk*60579.64453)) *(dtfkmnk1/dthqnk1) ) **(1-0.38028) *((1-0.31563)/0.31563)**0.38028+1 ) **(0.38028/(1-0.38028))*60579.64453 $ FRML _SJRDF Dlog(fKmnk) = 0.10000*Dlog(fKmnkw1) + 0.21843*(Log(fKmnkw1(-1))-Log(fKmnk(-1))) + rofkmnk1 *( Dlog(fKmnk(-1)) -0.10000*Dlog(fKmnkw1(-1)) -0.21843*(Log(fKmnkw1(-2))-Log(fKmnk(-2))) ) $ FRML _DJRD fKmnkk = fKmnk $ FRML _DJRD fImnk = Dif(fKmnk) + bfivmnk*fKmnk(-1) $ FRML _DJRD fKnmnk = fImnk + (1-bfinvmnk)*fKnmnk(-1) $ FRML _DJRD Hqnkn1 = (1/dthqnk1) *( (1/(1-0.31563)) *((fXnk/75159.84375)/0.98183) **(-(1/0.38028-1)) -(0.31563/(1-0.31563)) *(dtfkmnk1*fKmnkk/60579.64453)**(-(1/0.38028-1)) ) **(-(1/(1/0.38028-1)))*90.40722 $ FRML _SJRDF Log(Hqnk1) = 0.51225*(Log(Hqnkn1)-Log(Hgnk))+Log(Hgnk) + (1-0.51225+(-0.21074)) *(Log(Hqnkn1(-1))-Log(Hgnk(-1))) - (-0.21074)*(Log(Hqnkn1(-2))-Log(Hgnk(-2))) + rohqnk1 *( Log(Hqnk1(-1)) -( 0.51225*(Log(Hqnkn1(-1))-Log(Hgnk(-1))) +(1-0.51225+(-0.21074)) *(Log(Hqnkn1(-2))-Log(Hgnk(-2)))-(-0.21074) *(Log(Hqnkn1(-3))-Log(Hgnk(-3)))+Log(Hgnk(-1)) ) ) $ FRML _DJ_D Qnk1 = Hqnk1/(bqsnk1*Hgsnk+(1-bqsnk1)*Hgwnk)*1000 $ FRML _D Qsnk1 = bqsnk1*Qnk1 $ FRML _I Qwnk1 = Qnk1-Qsnk1 $ FRML _D Ywnk1 = lnakk1*Hgwnk*Qwnk1*0.001*klnk1 $ FRML _DJ_ lnk1 = (Ywnk1+Siqnkl)/(Qwnk1*Hgwnk)*1000 $ FRML _DJRD Hqnkw1 = (1/dthqnk1)*(1-0.31563)**(0.38028/(1-0.38028)) *((fXnk/75159.84375)/0.98183) *( ( ((uimnk*60579.64453)/(lnk1*90.40722)) *(dthqnk1/dtfkmnk1) ) **(1-0.38028) *(0.31563/(1-0.31563))**0.38028+1 ) **(0.38028/(1-0.38028))*90.40722 $ () ----------------------------------------------------- () nq-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimnqe = 0.25*rpimnqe(-1) + 0.75*(pimnq/pimnq(-1)-1) $ FRML _DJ_D bfknmnq = fKnmnq /fKmnq $ FRML _DJRD uimnq = bfknmnq*pimnq*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmnq-0.50*rpimnqe) $ FRML _DJRD fKmnqw1 = (1/dtfkmnq1)*0.32875**(0.23758/(1-0.23758)) *((fXnq/86920.15625)/1.00020) *( ( ((lnq1*153.12466)/(uimnq*60812.62500)) *(dtfkmnq1/dthqnq1) ) **(1-0.23758) *((1-0.32875)/0.32875)**0.23758+1 ) **(0.23758/(1-0.23758))*60812.62500 $ FRML _SJRDF Dlog(fKmnq) = 0.10737*Dlog(fKmnqw1) + 0.23789*(Log(fKmnqw1(-1))-Log(fKmnq(-1))) + rofkmnq1 *( Dlog(fKmnq(-1)) -0.10737*Dlog(fKmnqw1(-1)) -0.23789*(Log(fKmnqw1(-2))-Log(fKmnq(-2))) ) $ FRML _DJRD fKmnqk = fKmnq $ FRML _DJRD fImnq = Dif(fKmnq) + bfivmnq*fKmnq(-1) $ FRML _DJRD fKnmnq = fImnq + (1-bfinvmnq)*fKnmnq(-1) $ FRML _DJRD Hqnqn1 = (1/dthqnq1) *( (1/(1-0.32875)) *((fXnq/86920.15625)/1.00020) **(-(1/0.23758-1)) -(0.32875/(1-0.32875)) *(dtfkmnq1*fKmnqk/60812.62500)**(-(1/0.23758-1)) ) **(-(1/(1/0.23758-1)))*153.12466 $ FRML _SJRDF Log(Hqnq1) = 0.63106*(Log(Hqnqn1)-Log(Hgnq))+Log(Hgnq) + (1-0.63106+(-0.10518)) *(Log(Hqnqn1(-1))-Log(Hgnq(-1))) - (-0.10518)*(Log(Hqnqn1(-2))-Log(Hgnq(-2))) + rohqnq1 *( Log(Hqnq1(-1)) -( 0.63106*(Log(Hqnqn1(-1))-Log(Hgnq(-1))) +(1-0.63106+(-0.10518)) *(Log(Hqnqn1(-2))-Log(Hgnq(-2)))-(-0.10518) *(Log(Hqnqn1(-3))-Log(Hgnq(-3)))+Log(Hgnq(-1)) ) ) $ FRML _DJ_D Qnq1 = Hqnq1/(bqsnq1*Hgsnq + (1-bqsnq1)*Hgwnq)*1000 $ FRML _D Qsnq1 = bqsnq1*Qnq1 $ FRML _I Qwnq1 = Qnq1-Qsnq1 $ FRML _D Ywnq1 = lnakk1*Hgwnq*Qwnq1*0.001*klnq1 $ FRML _DJ_ lnq1 = (Ywnq1+Siqnql)/(Qwnq1*Hgwnq)*1000 $ FRML _DJRD Hqnqw1 = (1/dthqnq1)*(1-0.32875)**(0.23758/(1-0.23758)) *((fXnq/86920.15625)/1.00020) *( ( ((uimnq*60812.62500)/(lnq1*153.12466)) *(dthqnq1/dtfkmnq1) ) **(1-0.23758) *(0.32875/(1-0.32875))**0.23758+1 ) **(0.23758/(1-0.23758))*153.12466 $ () ----------------------------------------------------- () b-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimbe = 0.25*rpimbe(-1) + 0.75*(pimb/pimb(-1)-1) $ FRML _DJ_D bfknmb = fKnmb /fKmb $ FRML _DJRD uimb = bfknmb*pimb*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmb-0.50*rpimbe) $ FRML _DJRD fKmbw1 = (1/dtfkmb1)*0.31879**(0.16941/(1-0.16941)) *((fXb/153174.67188)/0.97761) *( ( ((lb1*290.70169)/(uimb*50580.00000)) *(dtfkmb1/dthqb1) ) **(1-0.16941) *((1-0.31879)/0.31879)**0.16941+1 ) **(0.16941/(1-0.16941))*50580.00000 $ FRML _SJRDF Dlog(fKmb) = 0.35531*Dlog(fKmbw1) + 0.17427*(Log(fKmbw1(-1))-Log(fKmb(-1))) + rofkmb1 *( Dlog(fKmb(-1)) -0.35531*Dlog(fKmbw1(-1)) -0.17427*(Log(fKmbw1(-2))-Log(fKmb(-2))) ) $ FRML _DJRD fKmbk = fKmb $ FRML _DJRD fImb = Dif(fKmb) + bfivmb*fKmb(-1) $ FRML _DJRD fKnmb = fImb + (1-bfinvmb)*fKnmb(-1) $ FRML _DJRD Hqbn1 = (1/dthqb1) *( (1/(1-0.31879)) *((fXb/153174.67188)/0.97761) **(-(1/0.16941-1)) -(0.31879/(1-0.31879)) *(dtfkmb1*fKmbk/50580.00000)**(-(1/0.16941-1)) ) **(-(1/(1/0.16941-1)))*290.70169 $ FRML _SJRDF Log(Hqb1) = 0.74128*(Log(Hqbn1)-Log(Hgb))+Log(Hgb) + (1-0.74128+(-0.17626)) *(Log(Hqbn1(-1))-Log(Hgb(-1))) - (-0.17626)*(Log(Hqbn1(-2))-Log(Hgb(-2))) + rohqb1 *( Log(Hqb1(-1)) -( 0.74128*(Log(Hqbn1(-1))-Log(Hgb(-1))) +(1-0.74128+(-0.17626)) *(Log(Hqbn1(-2))-Log(Hgb(-2)))-(-0.17626) *(Log(Hqbn1(-3))-Log(Hgb(-3)))+Log(Hgb(-1)) ) ) $ FRML _DJ_D Qb1 = Hqb1/(bqsb1*Hgsb+(1-bqsb1)*Hgwb)*1000 $ FRML _D Qsb1 = bqsb1*Qb1 $ FRML _I Qwb1 = Qb1-Qsb1 $ FRML _D Ywb1 = lnakk1*Hgwb*Qwb1*0.001*klb1 $ FRML _DJ_ lb1 = (Ywb1+Siqbl)/(Qwb1*Hgwb)*1000 $ FRML _DJRD Hqbw1 = (1/dthqb1)*(1-0.31879)**(0.16941/(1-0.16941)) *((fXb/153174.67188)/0.97761) *( ( ((uimb*50580.00000)/(lb1*290.70169)) *(dthqb1/dtfkmb1) ) **(1-0.16941) *(0.31879/(1-0.31879))**0.16941+1 ) **(0.16941/(1-0.16941))*290.70169 $ () ----------------------------------------------------- () Qh-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimqhe = 0.25*rpimqhe(-1) + 0.75*(pimqh/pimqh(-1)-1) $ FRML _DJ_D bfknmqh = fKnmqh /fKmqh $ FRML _DJRD uimqh = bfknmqh*pimqh*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmqh-0.50*rpimqhe) $ FRML _DJRD fKmqhw1 = (1/dtfkmqh1)*0.21097**(0.14296/(1-0.14296)) *((fXqh/228529.53125)/1.03661) *( ( ((lqh1*614.19849)/(uimqh*159591.21875)) *(dtfkmqh1/dthqqh1) ) **(1-0.14296) *((1-0.21097)/0.21097)**0.14296+1 ) **(0.14296/(1-0.14296))*159591.21875 $ FRML _SJRDF Dlog(fKmqh) = 0.30042*Dlog(fKmqhw1) + 0.43545*(Log(fKmqhw1(-1))-Log(fKmqh(-1))) + rofkmqh1 *( Dlog(fKmqh(-1)) -0.30042*Dlog(fKmqhw1(-1)) -0.43545*(Log(fKmqhw1(-2))-Log(fKmqh(-2))) ) $ FRML _DJRD fKmqhk = fKmqh $ FRML _DJRD fImqh = Dif(fKmqh) + bfivmqh*fKmqh(-1) $ FRML _DJRD fKnmqh = fImqh + (1-bfinvmqh)*fKnmqh(-1) $ FRML _DJRD Hqqhn1 = (1/dthqqh1) *( (1/(1-0.21097)) *((fXqh/228529.53125)/1.03661) **(-(1/0.14296-1)) -(0.21097/(1-0.21097)) *(dtfkmqh1*fKmqhk/159591.21875)**(-(1/0.14296-1)) ) **(-(1/(1/0.14296-1)))*614.19849 $ FRML _SJRDF Log(Hqqh1) = 0.52458*(Log(Hqqhn1)-Log(Hgqh))+Log(Hgqh) + (1-0.52458+(-0.30085)) *(Log(Hqqhn1(-1))-Log(Hgqh(-1))) - (-0.30085)*(Log(Hqqhn1(-2))-Log(Hgqh(-2))) + rohqqh1 *( Log(Hqqh1(-1)) -( 0.52458*(Log(Hqqhn1(-1))-Log(Hgqh(-1))) +(1-0.52458+(-0.30085)) *(Log(Hqqhn1(-2))-Log(Hgqh(-2)))-(-0.30085) *(Log(Hqqhn1(-3))-Log(Hgqh(-3)))+Log(Hgqh(-1)) ) ) $ FRML _DJ_D Qqh1 = Hqqh1/(bqsqh1*Hgsqh+(1-bqsqh1)*Hgwqh)*1000 $ FRML _D Qsqh1 = bqsqh1*Qqh1 $ FRML _I Qwqh1 = Qqh1-Qsqh1 $ FRML _D Ywqh1 = lnakk1*Hgwqh*Qwqh1*0.001*klqh1 $ FRML _DJ_ lqh1 = (Ywqh1+Siqqhl)/(Qwqh1*Hgwqh)*1000 $ FRML _DJRD Hqqhw1 = (1/dthqqh1)*(1-0.21097)**(0.14296/(1-0.14296)) *((fXqh/228529.53125)/1.03661) *( ( ((uimqh*159591.21875)/(lqh1*614.19849)) *(dthqqh1/dtfkmqh1) ) **(1-0.14296) *(0.21097/(1-0.21097))**0.14296+1 ) **(0.14296/(1-0.14296))*614.19849 $ () ----------------------------------------------------- () Qs-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimqse = 0.25*rpimqse(-1) + 0.75*(pimqs/pimqs(-1)-1) $ FRML _DJ_D bfknmqs = fKnmqs/fKmqs $ FRML _DJRD uimqs = bfknmqs*pimqs*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmqs-0.50*rpimqse) $ FRML _DJRD fKmqsw1 = (1/dtfkmqs1)*0.71344**(0.12389/(1-0.12389)) *((fXqs/93402.72656)/0.93657) *( ( ((lqs1*34.72518)/(uimqs*139726.00000)) *(dtfkmqs1/dthqqs1) ) **(1-0.12389) *((1-0.71344)/0.71344)**0.12389+1 ) **(0.12389/(1-0.12389))*139726.00000 $ FRML _SJRDF Dlog(fKmqs) = 0.20*Dlog(fKmqsw1) + 0.20*Dlog(fKmqsw1(-1)) + 0.20*Dlog(fKmqsw1(-2)) + 0.20*Dlog(fKmqsw1(-3)) + 0.20*Dlog(fKmqsw1(-4)) $ FRML _DJRD fImqs = Dif(fKmqs) + bfivmqs*fKmqs(-1) $ FRML _DJRD fKnmqs = fImqs + (1-bfinvmqs)*fKnmqs(-1) $ FRML _DJRD Hqqsw1 = (1/dthqqs1)*(1-0.71344)**(0.12389/(1-0.12389)) *((fXqs/93402.72656)/0.93657) *( ( ((uimqs*139726.00000)/(lqs1*34.72518)) *(dthqqs1/dtfkmqs1) ) **(1-0.12389) *(0.71344/(1-0.71344))**0.12389+1 ) **(0.12389/(1-0.12389))*34.72518 $ FRML _SJRDF Dlog(Hqqs1) = 0.65*(Dlog(Hqqsw1)-Dlog(Hgqs)) + Dlog(Hgqs) + 0.20*(Dlog(Hqqsw1(-1))-Dlog(Hgqs(-1))) + 0.15*(Dlog(Hqqsw1(-2))-Dlog(Hgqs(-2))) $ FRML _DJ_D Qqs1 = Hqqs1/(bqsqs1*Hgsqs + (1-bqsqs1)*Hgwqs)*1000 $ FRML _D Qsqs1 = bqsqs1*Qqs1 $ FRML _I Qwqs1 = Qqs1-Qsqs1 $ FRML _D Ywqs1 = lnakk1*Hgwqs*Qwqs1*0.001*klqs1 $ FRML _DJ_ lqs1 = (Ywqs1+Siqqsl)/(Qwqs1*Hgwqs)*1000 $ () ----------------------------------------------------- () qt-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimqte = 0.25*rpimqte(-1) + 0.75*(pimqt/pimqt(-1)-1) $ FRML _DJ_D bfknmqt = fKnmqt /fKmqt $ FRML _DJRD uimqt = bfknmqt*pimqt*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmqt-0.50*rpimqte) $ FRML _DJRD fKmqtw1 = (1/dtfkmqt1)*0.15426**(0.10000/(1-0.10000)) *((fXqt/155452.76563)/0.97906) *( ( ((lqt1*291.95685)/(uimqt*165186.00000)) *(dtfkmqt1/dthqqt1) ) **(1-0.10000) *((1-0.15426)/0.15426)**0.10000+1 ) **(0.10000/(1-0.10000))*165186.00000 $ FRML _SJRDF Dlog(fKmqt) = 0.15925*Dlog(fKmqtw1) + 0.20810*(Log(fKmqtw1(-1))-Log(fKmqt(-1))) + rofkmqt1 *( Dlog(fKmqt(-1)) -0.15925*Dlog(fKmqtw1(-1)) -0.20810*(Log(fKmqtw1(-2))-Log(fKmqt(-2))) ) $ FRML _DJRD fKmqtk = fKmqt $ FRML _DJRD fImqt = Dif(fKmqt) + bfivmqt*fKmqt(-1) $ FRML _DJRD fKnmqt = fImqt + (1-bfinvmqt)*fKnmqt(-1) $ FRML _DJRD Hqqtn1 = (1/dthqqt1) *( (1/(1-0.15426)) *((fXqt/155452.76563)/0.97906) **(-(1/0.10000-1)) -(0.15426/(1-0.15426)) *(dtfkmqt1*fKmqtk/165186.00000)**(-(1/0.10000-1)) ) **(-(1/(1/0.10000-1)))*291.95685 $ FRML _SJRDF Log(Hqqt1) = 0.46920*(Log(Hqqtn1)-Log(Hgqt))+Log(Hgqt) + (1-0.46920+(-0.29697)) *(Log(Hqqtn1(-1))-Log(Hgqt(-1))) - (-0.29697)*(Log(Hqqtn1(-2))-Log(Hgqt(-2))) + rohqqt1 *( Log(Hqqt1(-1)) -( 0.46920*(Log(Hqqtn1(-1))-Log(Hgqt(-1))) +(1-0.46920+(-0.29697)) *(Log(Hqqtn1(-2))-Log(Hgqt(-2)))-(-0.29697) *(Log(Hqqtn1(-3))-Log(Hgqt(-3)))+Log(Hgqt(-1)) ) ) $ FRML _DJ_D Qqt1 = Hqqt1/(bqsqt1*Hgsqt+ (1-bqsqt1)*Hgwqt)*1000 $ FRML _D Qsqt1 = bqsqt1*Qqt1 $ FRML _I Qwqt1 = Qqt1-Qsqt1 $ FRML _D Ywqt1 = lnakk1*Hgwqt*Qwqt1*0.001*klqt1 $ FRML _DJ_ lqt1 = (Ywqt1+Siqqtl)/(Qwqt1*Hgwqt)*1000 $ FRML _DJRD Hqqtw1 = (1/dthqqt1)*(1-0.15426)**(0.10000/(1-0.10000)) *((fXqt/155452.76563)/0.97906) *( ( ((uimqt*165186.00000)/(lqt1*291.95685)) *(dthqqt1/dtfkmqt1) ) **(1-0.10000) *(0.15426/(1-0.15426))**0.10000+1 ) **(0.10000/(1-0.10000))*291.95685 $ () ----------------------------------------------------- () qf-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimqfe = 0.25*rpimqfe(-1) + 0.75*(pimqf/pimqf(-1)-1) $ FRML _DJ_D bfknmqf = fKnmqf/fKmqf $ FRML _DJRD uimqf = bfknmqf*pimqf*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmqf-0.50*rpimqfe) $ FRML _DJRD fKmqfw1 = (1/dtfkmqf1)*0.50985**(0.10000/(1-0.10000)) *((fXqf/89356.09375)/0.91432) *( ( ((lqf1*118.43480)/(uimqf*37506.00000)) *(dtfkmqf1/dthqqf1) ) **(1-0.10000) *((1-0.50985)/0.50985)**0.10000+1 ) **(0.10000/(1-0.10000))*37506.00000 $ FRML _SJRDF Dlog(fKmqf) = 0.20*Dlog(fKmqfw1) + 0.20*Dlog(fKmqfw1(-1)) + 0.20*Dlog(fKmqfw1(-2)) + 0.20*Dlog(fKmqfw1(-3)) + 0.20*Dlog(fKmqfw1(-4)) $ FRML _DJRD fImqf = Dif(fKmqf) + bfivmqf*fKmqf(-1) $ FRML _DJRD fKnmqf = fImqf + (1-bfinvmqf)*fKnmqf(-1) $ FRML _DJRD Hqqfw1 = (1/dthqqf1)*(1-0.50985)**(0.10000/(1-0.10000)) *((fXqf/89356.09375)/0.91432) *( ( ((uimqf*37506.00000)/(lqf1*118.43480)) *(dthqqf1/dtfkmqf1) ) **(1-0.10000) *(0.50985/(1-0.50985))**0.10000+1 ) **(0.10000/(1-0.10000))*118.43480 $ FRML _SJRDF Dlog(Hqqf1) = 0.65*(Dlog(Hqqfw1)-Dlog(Hgqf)) + Dlog(Hgqf) + 0.20*(Dlog(Hqqfw1(-1))-Dlog(Hgqf(-1))) + 0.15*(Dlog(Hqqfw1(-2))-Dlog(Hgqf(-2))) $ FRML _DJ_D Qqf1 = Hqqf1/(bqsqf1*Hgsqf+(1-bqsqf1)*Hgwqf)*1000 $ FRML _D Qsqf1 = bqsqf1*Qqf1 $ FRML _I Qwqf1 = Qqf1-Qsqf1 $ FRML _D Ywqf1 = lnakk1*Hgwqf*Qwqf1*0.001*klqf1 $ FRML _DJ_ lqf1 = (Ywqf1+Siqqfl)/(Qwqf1*Hgwqf)*1000 $ () ----------------------------------------------------- () Qq-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimqqe = 0.25*rpimqqe(-1) + 0.75*(pimqq/pimqq(-1)-1) $ FRML _DJ_D bfknmqq = fKnmqq /fKmqq $ FRML _DJRD uimqq = bfknmqq*pimqq*(1-tsdsu1*bivmu)/(1-tsdsu1)*((1-tsdsu1)*iwlo+bfinvmqq-0.50*rpimqqe) $ FRML _DJRD fKmqqw1 = (1/dtfkmqq1)*0.42455**(0.40000/(1-0.40000)) *((fXqq/352529.93750)/0.96642) *( ( ((lqq1*841.76941)/(uimqq*210693.23438)) *(dtfkmqq1/dthqqq1) ) **(1-0.40000) *((1-0.42455)/0.42455)**0.40000+1 ) **(0.40000/(1-0.40000))*210693.23438 $ FRML _SJRDF Dlog(fKmqq) = 0.11258*Dlog(fKmqqw1) + 0.37084*(Log(fKmqqw1(-1))-Log(fKmqq(-1))) + rofkmqq1 *( Dlog(fKmqq(-1)) -0.11258*Dlog(fKmqqw1(-1)) -0.37084*(Log(fKmqqw1(-2))-Log(fKmqq(-2))) ) $ FRML _DJRD fKmqqk = fKmqq $ FRML _DJRD fImqq = Dif(fKmqq) + bfivmqq*fKmqq(-1) $ FRML _DJRD fKnmqq = fImqq + (1-bfinvmqq)*fKnmqq(-1) $ FRML _DJRD Hqqqn1 = (1/dthqqq1) *( (1/(1-0.42455)) *((fXqq/352529.93750)/0.96642) **(-(1/0.40000-1)) -(0.42455/(1-0.42455)) *(dtfkmqq1*fKmqqk/210693.23438)**(-(1/0.40000-1)) ) **(-(1/(1/0.40000-1)))*841.76941 $ FRML _SJRDF Log(Hqqq1) = 0.35763*(Log(Hqqqn1)-Log(Hgqq))+Log(Hgqq) + (1-0.35763+(-0.30549)) *(Log(Hqqqn1(-1))-Log(Hgqq(-1))) - (-0.30549)*(Log(Hqqqn1(-2))-Log(Hgqq(-2))) + rohqqq1 *( Log(Hqqq1(-1)) -( 0.35763*(Log(Hqqqn1(-1))-Log(Hgqq(-1))) +(1-0.35763+(-0.30549)) *(Log(Hqqqn1(-2))-Log(Hgqq(-2)))-(-0.30549) *(Log(Hqqqn1(-3))-Log(Hgqq(-3)))+Log(Hgqq(-1)) ) ) $ FRML _DJ_D Qqq1 = Hqqq1/(bqsqq1*Hgsqq+(1-bqsqq1)*Hgwqq)*1000 $ FRML _D Qsqq1 = bqsqq1*Qqq1 $ FRML _I Qwqq1 = Qqq1-Qsqq1 $ FRML _D Ywqq1 = lnakk1*Hgwqq*Qwqq1*0.001*klqq1 $ FRML _DJ_ lqq1 = (Ywqq1+Siqqql)/(Qwqq1*Hgwqq)*1000 $ FRML _DJRD Hqqqw1 = (1/dthqqq1)*(1-0.42455)**(0.40000/(1-0.40000)) *((fXqq/352529.93750)/0.96642) *( ( ((uimqq*210693.23438)/(lqq1*841.76941)) *(dthqqq1/dtfkmqq1) ) **(1-0.40000) *(0.42455/(1-0.42455))**0.40000+1 ) **(0.40000/(1-0.40000))*841.76941 $ () ### EOH.F05 ### () () EL, GAS OG FJERNVARME (NE) () () Usercost FRML _DJ_D bfknbne = fKnbne/fKbne $ FRML _DJRD uibne = bfknbne*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbne-0.50*rpibpe) $ FRML _DJ_D rpimnee = 0.25*rpimnee(-1) + 0.75*(pimne/pimne(-1)-1) $ FRML _DJ_D bfknmne = fKnmne/fKmne $ FRML _DJRD uimne = bfknmne*pimne*(1-tsdsu1*bivmu)/(1-tsdsu1) *((1-tsdsu1)*iwlo+bfinvmne-0.50*rpimnee) $ () KAPACITET (PK, K*, K) FRML _D__D pkzne1 = pkzne1(-1) *(pvmne/pvmne(-1)) **(0.5*( (pvmne*bfvmne1) /(pvmne*bfvmne1+lne1*bhqne1+uimne*bfkmne1+uibne*bfkbne1) +(pvmne(-1)*bfvmne1(-1)) /(pvmne(-1)*bfvmne1(-1)+lne1(-1)*bhqne1(-1) +uimne(-1)*bfkmne1(-1)+uibne(-1)*bfkbne1(-1)) )) *(lne1/lne1(-1)) **(0.5*( (lne1*bhqne1) /(pvmne*bfvmne1+lne1*bhqne1+uimne*bfkmne1+uibne*bfkbne1) +(lne1(-1)*bhqne1(-1)) /(pvmne(-1)*bfvmne1(-1)+lne1(-1)*bhqne1(-1) +uimne(-1)*bfkmne1(-1)+uibne(-1)*bfkbne1(-1)) )) *(uimne/uimne(-1)) **(0.5*( (uimne*bfkmne1) /(pvmne*bfvmne1+lne1*bhqne1+uimne*bfkmne1+uibne*bfkbne1) +(uimne(-1)*bfkmne1(-1)) /(pvmne(-1)*bfvmne1(-1)+lne1(-1)*bhqne1(-1) +uimne(-1)*bfkmne1(-1)+uibne(-1)*bfkbne1(-1)) )) *(uibne/uibne(-1)) **(0.5*( (uibne*bfkbne1) /(pvmne*bfvmne1+lne1*bhqne1+uimne*bfkmne1+uibne*bfkbne1) +(uibne(-1)*bfkbne1(-1)) /(pvmne(-1)*bfvmne1(-1)+lne1(-1)*bhqne1(-1) +uimne(-1)*bfkmne1(-1)+uibne(-1)*bfkbne1(-1)) )) $ FRML _D__D Log(pwne2) = (1/(1-0.16961)) *Log(0.15259**0.16961 * (pkzne1/dtfkzne1)**(1-0.16961) +0.00022212**0.16961 * (pvene/dtfvene1)**(1-0.16961) ) $ FRML _D Log(dtfkzne1) = 0.20*Log(dthqne1) + 0.12*Log(dtfkmne1) + 0.52*Log(dtfkbne1) + 0.16*Log(dtfvmne1) $ FRML _DJRD Log(fKznew1) = Log(fXne/1.00000) - 0.16961*Log(pkzne1/pwne2) - (1-0.16961)*Log(dtfkzne1) + 0.094681*D81 + 0.16961*Log(0.15259) $ FRML _SJRD Dlog(fKzne1) = 0.26455*Dlog(fXne) +0.26455*(-0.16961)*Dlog(pkzne1/pwne2) -0.30000*(1-0.16961)*Dlog(dtfkzne1) +0.094681*Dif(D81) -0.30000*(Log(fKzne1(-1))-Log(fKznew1(-1))) $ () ENERGI (E*, E) FRML _DJRD Log(fVenew1) = Log(fXne/1.00000)-0.16961*Log(pvene/pwne2) -(1-0.16961)*Log(dtfvene1) -0.32940*D81+0.16961*Log(0.00022212) $ FRML _SJRDF Dlog(fVene) = 1.17333*Dlog(fXne)-1.17333*0.16961*Dlog(pvene/pwne2) -0.72235*(1-0.16961)*Dlog(dtfvene1)-0.32940*Dif(D81) -0.72235*(Log(fVene(-1))-Log(fVenew1(-1))) $ () Udsplitning af Kapacitet på underliggende faktorer () Bygningskapital FRML _DJRD fKbnew1 = bfkbne1*fKznew1*(dtfkzne1/dtfkbne1) $ FRML _GJRDF Dlog(fKbne) = Dlog(bfkbne1)+0.26455*Dlog(fXne) +0.26455*(-0.16961)*Dlog(pkzne1/pwne2) -0.30000*(1-0.16961)*Dlog(dtfkzne1)+0.094681*Dif(D81) -0.30000*Log(fKbne(-1)/fKbnew1(-1)) $ FRML _DJRD fIbne = Dif(fKbne)+bfivbne*fKbne(-1) $ FRML _DJRD fKnbne = fIbne+(1-bfinvbne)*fKnbne(-1)-45*D99 $ () Maskinkapital FRML _DJRD fKmnew1 = bfkmne1*fKznew1*(dtfkzne1/dtfkmne1) $ FRML _GJRDF Dlog(fKmne) = Dlog(bfkmne1)+0.26455*Dlog(fXne) +0.26455*(-0.16961)*Dlog(pkzne1/pwne2) -0.30000*(1-0.16961)*Dlog(dtfkzne1)+0.094681*Dif(D81) -0.30000*Log(fKmne(-1)/fKmnew1(-1)) $ FRML _DJRD fImne = Dif(fKmne)+bfivmne*fKmne(-1) $ FRML _DJRD fKnmne = fImne+(1-bfinvmne)*fKnmne(-1) $ () Arbejdskraft FRML _DJRD Hqnew1 = bhqne1*fKznew1*(dtfkzne1/dthqne1) $ FRML _GJRDF Dlog(Hqne1) = Dlog(bhqne1)+0.26455*Dlog(fXne) +0.26455*(-0.16961)*Dlog(pkzne1/pwne2) -0.30000*(1-0.16961)*Dlog(dtfkzne1)+0.094681*Dif(D81) -0.30000*Log(Hqne1(-1)/Hqnew1(-1)) $ FRML _DJRD Qne1 = Hqne1/(bqsne1*Hgsne+(1-bqsne1)*Hgwne)*1000 $ FRML _D Qsne1 = bqsne1*Qne1 $ FRML _I Qwne1 = Qne1-Qsne1 $ FRML _D Ywne1 = lnakk1*Hgwne*Qwne1*0.001*klne1 $ FRML _DJRD lne1 = (Ywne1+Siqnel)/(Qwne1*Hgwne)*1000 $ () Materialer FRML _DJRD fVmnew1 = bfvmne1*fKznew1*(dtfkzne1/dtfvmne1) $ FRML _GJRDF Dlog(fVmne) = Dlog(bfvmne1)+0.26455*Dlog(fXne) +0.26455*(-0.16961)*Dlog(pkzne1/pwne2) -0.30000*(1-0.16961)*Dlog(dtfkzne1)+0.094681*Dif(D81) -0.30000*Log(fVmne(-1)/fVmnew1(-1)) $ () SEKTORPRIS FRML _D pwnew1 = (pvene*fVenew1+pkzne1*fKznew1 +Siqne-Siqnel-.006*Siqej)/fXne $ FRML _D pwneve = pvene*fVene/fXne $ FRML _DJRD Log(pxnew1) = Log(pwnew1)+Log(kpxnew1) $ FRML _I bywne1 = (Ywne1/(Yrne1+Ywne1))*(1-Dbyw)+Dbyw*Zbywne1 $ FRML _S pxne = (1-Dbyw)*((1-Dpxne)*((Exp(Log(pxne(-1)) +0.93719*Dlog(pwneve)*(pwneve(-1)/pxne(-1)) + 0.06281*Dlog(pwneve(-1))*(pwneve(-1)/pxne(-1)) - 0.50000*(Log(pxne(-1))-Log(pxnew1(-1))))) * (1+JRpxne)) + Dpxne*Zpxne) + Dbyw*(((Ywne1/bywne1)+ Siqne + Vne)/fXne) $ () () BRUNKUL, RÅOLIE OG NATURGAS () FRML _GJRD fIme = kfime*(1/dtfkme)*(dtfkme(-1)*fIme(-1)) *(fXe/fXe(-3))**(1/3) $ FRML _DJRD Dif(fKme) = fIme-bfivme*fKme(-1) $ FRML _DJRD Dif(fKnme) = fIme-bfinvme*fKnme(-1) $ FRML _DJ_D rpimee = 0.25*rpimee(-1)+0.75*(pime/pime(-1)-1) $ FRML _DJ_D bfknme = fKnme/fKme $ FRML _DJRD uime = bfknme*pime*(1-tsdsu1*bivmu)/(1-tsdsu1) *((1-tsdsu1)*iwlo+bfinvme-0.50*rpimee) $ FRML _DJ_D bfknbe = (fKnbe+D6680)/(fKbe+D6680) $ FRML _DJRD uibe = bfknbe*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbe-0.50*rpibpe) $ FRML _D fKbe = (fIbe+(1-bfivbe)*fKbe(-1))*(1+JRfkbe)*(1-Dfkbe) +Dfkbe*Zfkbe $ FRML _D fKnbe = (fIbe+(1-bfinvbe)*fKnbe(-1))*(1+JRfknbe)*(1-Dfknbe) +Dfknbe*Zfknbe $ FRML _GJRD Hqe1 = 1/dthqe*(dthqe(-1)*Hqe1(-1))*(fXe/fXe(-1)) $ FRML _DJRD Qe1 = Hqe1/(bqse1*Hgse+(1-bqse1)*Hgwe)*1000 $ FRML _D Qse1 = bqse1*Qe1 $ FRML _I Qwe1 = Qe1-Qse1 $ FRML _G Ywe1 = lnakk1*Hgwe*Qwe1*0.001*kle1 $ FRML _DJRD le1 = (Ywe1+Siqel)/(Qwe1*Hgwe)*1000 $ () () BOLIGBENYTTELSE () FRML _GJRD fImh = 1/dtfkmh*(dtfkmh(-1)*fImh(-1))*(fXh/fXh(-3))**(1/3) $ FRML _DJRD Dif(fKmh) = fImh-bfivmh*fKmh(-1) $ FRML _DJRD Dif(fKnmh) = fImh-bfinvmh*fKnmh(-1) $ FRML _DJ_D rpimhe = 0.25*rpimhe(-1) + 0.75*(pimh/pimh(-1)-1) $ FRML _DJ_D bfknmh = fKnmh/fKmh $ FRML _DJRD uimh = bfknmh*pimh*(1-tsdsu1*bivmu)/(1-tsdsu1) *((1-tsdsu1)*iwlo+bfinvmh-0.50*rpimhe) $ FRML _GJRD Hqh1 = 1/dthqh*(dthqh(-1)*Hqh1(-1))*(fXh/fXh(-1)) $ FRML _DJRD Qh1 = Hqh1/(bqsh1*Hgsh+(1-bqsh1)*Hgwh)*1000 $ FRML _D Qsh1 = bqsh1*Qh1 $ FRML _I Qwh1 = Qh1-Qsh1 $ FRML _G Ywh1 = lnakk1*Hgwh*Qwh1*0.001*klh1 $ FRML _DJRD lh1 = (Ywh1+Siqhl)/(Qwh1*Hgwh)*1000 $ () () OFFENTLIGE TJENESTER () FRML _DJRD Dif(fKmo) = fImo-bfivmo*fKmo(-1) $ FRML _DJRD Dif(fKnmo) = fImo-bfinvmo*fKnmo(-1) $ FRML _I fInvmo = bfinvmo*fKnmo(-1) $ FRML _DJ_D bfknmo = fKnmo/fKmo $ FRML _DJ_D rpimoe = 0.25*rpimoe(-1) + 0.75*(pimo/pimo(-1)-1) $ FRML _DJRD uimo = bfknmo*pimo*(1-tsdsu1*bivmu)/(1-tsdsu1) *((1-tsdsu1)*iwlo+bfinvmo-0.50*rpimoe) $ FRML _DJRD Dif(fKbo) = fIbo-bfivbo*fKbo(-1) $ FRML _DJRD Dif(fKnbo) = fIbo-bfinvbo*fKnbo(-1)-266*D99 $ FRML _I fInvbo = bfinvbo*fKnbo(-1) $ FRML _DJ_D bfknbo = fKnbo/fKbo $ FRML _DJRD uibo = bfknbo*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbo-0.50*rpibpe) $ FRML _D Qso2 = bqso2/(1-bqso2)*Qwo2 $ FRML _I Qo2 = Qwo2+Qso2 $ FRML _DJRD Hqo2 = (Qo2*((bqso2*Hgso+(1-bqso2)*Hgwo)))/1000 $ FRML _GJRD Ywo2 = lohkk1*Qwo2*(1-bqo/2)*0.001 $ FRML _DJRD lo1 = (Ywo2+Siqol)/(Qwo2*Hgwo)*1000 $ FRML _D fYfo = klohh1*Ha*Qwo2*(1-bqo/2)+fInvmo+fInvbo $ FRML _I fVo = fVeo+fVmo $ FRML _I fXo = fYfo+fVo $ FRML _I Yfo = Ywo2+(fInvmo*pimo+fInvbo*pibo)*kivo2+Siqo $ FRML _I Xo = Yfo + pveo*fVeo + pvmo*fVmo $ FRML _I pvo = Vo/fVo $ FRML _I pxo = Xo/fXo $ FRML _GJRDF faco = faco(-1)*fXo/fXo(-1)+JDfaco $ FRML _GJRDF fbco = fbco(-1)*fXo/fXo(-1)+JDfbco $ FRML _GJRDF fqhco = fqhco(-1)*fXo/fXo(-1)+JDfqhco $ FRML _GJRDF fqtco = fqtco(-1)*fXo/fXo(-1)+JDfqtco $ FRML _GJRDF fqqco = fqqco(-1)*fXo/fXo(-1)+JDfqqco $ FRML _GJRDF fsico = fsico(-1)*fXo/fXo(-1)+JDfsico $ FRML _I foco = fXo-(aob*fXb+aoqh*fXqh+aoqt*fXqt+aoqf*fXqf +aoqq*fXqq+aoo*fXo+aocs*fCs+aoesq*fEsq) $ FRML _I fCo = foco+faco+fbco+fqhco+fqtco+fqqco+fsico $ FRML _G Co = (foco*pxo +faco*pxa+fbco*pxb+fqhco*pxqh+fqtco*pxqt+fqqco*pxqq )*kpnco*(1+btgo*tg) $ FRML _I pco = Co/fCo $ FRML _GJ_D fVmox = (Tfon-kfvmo)*kfvmo0 + (Tfon(-1)-kfvmo)*kfvmo1 + (Tfon(-2)-kfvmo)*kfvmo2 + (Tfon(-3)-kfvmo)*kfvmo3 $ () MEMOPOSTER FRML _G Xo11 = Co+(Xo-pxo*foco)*kxo1 $ FRML _G Vo11 = Vo*kvo1 $ FRML _I Yfo11 = Xo11-Vo11 $ FRML _G Ywo11 = Yfo11-Ivo1-Siqo*ksiqo1 $ FRML _I fIo11 = fImo11+fIbo11 $ FRML _G Qo11 = Qo2*kqo2 $ FRML _I Qp11 = Q1-Qo11 $ FRML _GJRD Coii = Coii(-1)*Xo11/Xo11(-1) $ FRML _GJRD Coim = Coim(-1)*Xo11/Xo11(-1) $ () ### BYGNING.F05 ### () () () FAKTOREFTERSPØRGSEL (BYGNINGSKAPITAL) () () INFLATIONSFORVENTNINGER FRML _DJ_D rpibpe = 0.75*rpibpe(-1) + 0.25*(pibp/pibp(-1)-1) $ () () LANDBRUG Mv. () FRML _DJ_D bfknba = fKnba/fKba $ FRML _DJRD uiba = bfknba*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvba-0.50*rpibpe) $ FRML _DJRDF Log(fKbaw) = 1.3187+Log(fXa-hostkor)-0.0822*Log(uiba/pxa) -Log(dtfkba) + Log(kfkbaw) $ FRML _SJRDF Dlog(fKba) = 0.0429*Dlog(fXa-hostkor) -0.1*(Log(fKba(-1))-Log(fKbaw(-1))) +rofkba*(Dlog(fKba(-1))-0.0429*Dlog(fXa(-1)-hostkor(-1)) +0.1*(Log(fKba(-2))-Log(fKbaw(-2)))) $ FRML _DJRD fIba = Dif(fKba)+bfivba*fKba(-1) $ FRML _DJRD fKnba = fIba+(1-bfinvba)*fKnba(-1)-2796*D99 $ () () OLIERAFFINADERIER () FRML _DJ_D bfknbng = fKnbng/fKbng $ FRML _DJRD uibng = bfknbng*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbng-0.50*rpibpe) $ FRML _DJRDF Log(fKbngw) = -0.4614+Log(fXng)-0.0822*Log(uibng/pxng) -Log(dtfkbng) + Log(kfkbngw) $ FRML _SJRDF Dlog(fKbng) = 0.0429*Dlog(fXng) -0.1*(Log(fKbng(-1))-Log(fKbngw(-1))) +rofkbng*(Dlog(fKbng(-1))-0.0429*Dlog(fXng(-1)) +0.1*(Log(fKbng(-2))-Log(fKbngw(-2)))) $ FRML _DJRD fIbng = Dif(fKbng)+bfivbng*fKbng(-1) $ FRML _DJRD fKnbng = fIbng+(1-bfinvbng)*fKnbng(-1)-5*D99 $ () () NÆRINGSMIDDELINDUSTRI () FRML _DJ_D bfknbnf = fKnbnf/fKbnf $ FRML _DJRD uibnf = bfknbnf*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbnf-0.50*rpibpe) $ FRML _DJRDF Log(fKbnfw) = -1.0287+Log(fXnf)-0.0822*Log(uibnf/pxnf) -Log(dtfkbnf) + Log(kfkbnfw) $ FRML _SJRDF Dlog(fKbnf) = 0.0429*Dlog(fXnf) -0.1*(Log(fKbnf(-1))-Log(fKbnfw(-1))) + rofkbnf*(Dlog(fKbnf(-1))-0.0429*Dlog(fXnf(-1)) +0.1*(Log(fKbnf(-2))-Log(fKbnfw(-2)))) $ FRML _DJRD fIbnf = Dif(fKbnf)+bfivbnf*fKbnf(-1) $ FRML _DJRD fKnbnf = fIbnf+(1-bfinvbnf)*fKnbnf(-1)-57*D99 $ () () NYDELSESMIDDELINDUSTRI () FRML _DJ_D bfknbnn = fKnbnn/fKbnn $ FRML _DJRD uibnn = bfknbnn*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbnn-0.50*rpibpe) $ FRML _DJRDF Log(fKbnnw) = -1.3747+Log(fXnn)-0.0822*Log(uibnn/pxnn) -Log(dtfkbnn) + Log(kfkbnnw) $ FRML _SJRDF Dlog(fKbnn) = 0.0429*Dlog(fXnn) -0.1*(Log(fKbnn(-1))-Log(fKbnnw(-1))) +rofkbnn*(Dlog(fKbnn(-1))-0.0429*Dlog(fXnn(-1)) +0.1*(Log(fKbnn(-2))-Log(fKbnnw(-2)))) $ FRML _DJRD fIbnn = Dif(fKbnn)+bfivbnn*fKbnn(-1) $ FRML _DJRD fKnbnn = fIbnn+(1-bfinvbnn)*fKnbnn(-1)-6*D99 $ () () LEVERANDØRER TIL BYGGERI () FRML _DJ_D bfknbnb = fKnbnb/fKbnb $ FRML _DJRD uibnb = bfknbnb*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbnb-0.50*rpibpe) $ FRML _DJRDF Log(fKbnbw) = -0.8097+Log(fXnb)-0.0822*Log(uibnb/pxnb) -Log(dtfkbnb) + Log(kfkbnbw)$ FRML _SJRDF Dlog(fKbnb) = 0.0429*Dlog(fXnb) -0.1*(Log(fKbnb(-1))-Log(fKbnbw(-1))) +rofkbnb*(Dlog(fKbnb(-1))-0.0429*Dlog(fXnb(-1)) +0.1*(Log(fKbnb(-2))-Log(fKbnbw(-2)))) $ FRML _DJRD fIbnb = Dif(fKbnb)+bfivbnb*fKbnb(-1) $ FRML _DJRD fKnbnb = fIbnb+(1-bfinvbnb)*fKnbnb(-1)-19*D99 $ () () JERN- OG METALINDUSTRI () FRML _DJ_D bfknbnm = fKnbnm/fKbnm $ FRML _DJRD uibnm = bfknbnm*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbnm-0.50*rpibpe) $ FRML _DJRDF Log(fKbnmw) = -0.9427+Log(fXnm)-0.0822*Log(uibnm/pxnm) -Log(dtfkbnm) + Log(kfkbnmw) $ FRML _SJRDF Dlog(fKbnm) = 0.0429*Dlog(fXnm) -0.1*(Log(fKbnm(-1))-Log(fKbnmw(-1))) +rofkbnm*(Dlog(fKbnm(-1))-0.0429*Dlog(fXnm(-1)) +0.1*(Log(fKbnm(-2))-Log(fKbnmw(-2)))) $ FRML _DJRD fIbnm = Dif(fKbnm)+bfivbnm*fKbnm(-1) $ FRML _DJRD fKnbnm = fIbnm+(1-bfinvbnm)*fKnbnm(-1)-53*D99 $ () () TRANSPORTMIDDELINDUSTRI () FRML _DJ_D bfknbnt = fKnbnt/fKbnt $ FRML _DJRD uibnt = bfknbnt*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbnt-0.50*rpibpe) $ FRML _DJRDF Log(fKbntw) = -1.1628+Log(fXnt)-0.0822*Log(uibnt/pxnt) -Log(dtfkbnt) + Log(kfkbntw) $ FRML _SJRDF Dlog(fKbnt) = 0.0429*Dlog(fXnt) -0.1*(Log(fKbnt(-1))-Log(fKbntw(-1))) +rofkbnt*(Dlog(fKbnt(-1))-0.0429*Dlog(fXnt(-1)) +0.1*(Log(fKbnt(-2))-Log(fKbntw(-2)))) $ FRML _DJRD fIbnt = Dif(fKbnt)+bfivbnt*fKbnt(-1) $ FRML _DJRD fKnbnt = fIbnt+(1-bfinvbnt)*fKnbnt(-1)-7*D99 $ () () KEMISK INDUSTRI Mv. () FRML _DJ_D bfknbnk = fKnbnk/fKbnk $ FRML _DJRD uibnk = bfknbnk*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbnk-0.50*rpibpe) $ FRML _DJRDF Log(fKbnkw) = -0.4572+Log(fXnk)-0.0822*Log(uibnk/pxnk) -Log(dtfkbnk) + Log(kfkbnkw) $ FRML _SJRDF Dlog(fKbnk) = 0.0429*Dlog(fXnk) -0.1*(Log(fKbnk(-1))-Log(fKbnkw(-1))) +rofkbnk*(Dlog(fKbnk(-1))-0.0429*Dlog(fXnk(-1)) +0.1*(Log(fKbnk(-2))-Log(fKbnkw(-2)))) $ FRML _DJRD fIbnk = Dif(fKbnk)+bfivbnk*fKbnk(-1) $ FRML _DJRD fKnbnk = fIbnk+(1-bfinvbnk)*fKnbnk(-1)-48*D99 $ () () ANDEN FREMSTILLINGSVIRKSOMHED () FRML _DJ_D bfknbnq = fKnbnq/fKbnq $ FRML _DJRD uibnq = bfknbnq*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbnq-0.50*rpibpe) $ FRML _DJRDF Log(fKbnqw) = -0.9834+Log(fXnq)-0.0822*Log(uibnq/pxnq) -Log(dtfkbnq) + Log(kfkbnqw) $ FRML _SJRDF Dlog(fKbnq) = 0.0429*Dlog(fXnq) -0.1*(Log(fKbnq(-1))-Log(fKbnqw(-1))) +rofkbnq*(Dlog(fKbnq(-1))-0.0429*Dlog(fXnq(-1)) +0.1*(Log(fKbnq(-2))-Log(fKbnqw(-2)))) $ FRML _DJRD fIbnq = Dif(fKbnq)+bfivbnq*fKbnq(-1) $ FRML _DJRD fKnbnq = fIbnq+(1-bfinvbnq)*fKnbnq(-1)-44*D99 $ () () BYGGE- OG ANLÆGSVIRKSOMHED () FRML _DJ_D bfknbb = fKnbb/fKbb $ FRML _DJRD uibb = bfknbb*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbb-0.50*rpibpe) $ FRML _DJRDF Log(fKbbw) = -1.5953+Log(fXb) -Log(dtfkbb) + Log(kfkbbw) $ FRML _SJRDF Dlog(fKbb) = 0.0429*Dlog(fXb) -0.1*(Log(fKbb(-1))-Log(fKbbw(-1))) +rofkbb*(Dlog(fKbb(-1))-0.0429*Dlog(fXb(-1)) +0.1*(Log(fKbb(-2))-Log(fKbbw(-2)))) $ FRML _DJRD fIbb = Dif(fKbb)+bfivbb*fKbb(-1) $ FRML _DJRD fKnbb = fIbb+(1-bfinvbb)*fKnbb(-1)-23*D99 $ () () HANDEL () FRML _DJ_D bfknbqh = fKnbqh/fKbqh $ FRML _DJRD uibqh = bfknbqh*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbqh-0.50*rpibpe) $ FRML _DJRDF Log(fKbqhw) = 0.0743+Log(fXqh) -Log(dtfkbqh) + Log(kfkbqhw) $ FRML _SJRDF Dlog(fKbqh) = 0.0429*Dlog(fXqh) -0.1*(Log(fKbqh(-1))-Log(fKbqhw(-1))) +rofkbqh*(Dlog(fKbqh(-1))-0.0429*Dlog(fXqh(-1)) +0.1*(Log(fKbqh(-2))-Log(fKbqhw(-2)))) $ FRML _DJRD fIbqh = Dif(fKbqh)+bfivbqh*fKbqh(-1) $ FRML _DJRD fKnbqh = fIbqh+(1-bfinvbqh)*fKnbqh(-1)-113*D99 $ () () SØTRANSPORT () FRML _DJ_D bfknbqs = fKnbqs/fKbqs $ FRML _DJRD uibqs = bfknbqs*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbqs-0.50*rpibpe) $ FRML _DJRDF Log(fKbqsw) = -0.6881+Log(fXqs)-0.0822*Log(uibqs/pxqs) -Log(dtfkbqs) + Log(kfkbqsw) $ FRML _SJRDF Dlog(fKbqs) = 0.0429*Dlog(fXqs) -0.1*(Log(fKbqs(-1))-Log(fKbqsw(-1)))+0.1534 * D9696 +rofkbqs*(Dlog(fKbqs(-1))-0.0429*Dlog(fXqs(-1)) +0.1*(Log(fKbqs(-2))-Log(fKbqsw(-2)))) $ FRML _DJRD fIbqs = Dif(fKbqs)+bfivbqs*fKbqs(-1) $ FRML _DJRD fKnbqs = fIbqs+(1-bfinvbqs)*fKnbqs(-1)-4*D99 $ () () ANDEN TRANSPORT Mv. () FRML _DJ_D bfknbqt = fKnbqt/fKbqt $ FRML _DJRD uibqt = bfknbqt*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbqt-0.50*rpibpe) $ FRML _DJRDF Log(fKbqtw) = 0.2273+Log(fXqt) -Log(dtfkbqt) + Log(kfkbqtw) $ FRML _SJRDF Dlog(fKbqt) = 0.0429*Dlog(fXqt) -0.1*(Log(fKbqt(-1))-Log(fKbqtw(-1))) +rofkbqt*(Dlog(fKbqt(-1))-0.0429*Dlog(fXqt(-1)) +0.1*(Log(fKbqt(-2))-Log(fKbqtw(-2)))) $ FRML _DJRD fIbqt = Dif(fKbqt)+bfivbqt*fKbqt(-1) $ FRML _DJRD fKnbqt = fIbqt+(1-bfinvbqt)*fKnbqt(-1)-85*D99 $ () () FINANSIEL VIRKSOMHED () FRML _DJ_D bfknbqf = fKnbqf/fKbqf $ FRML _DJRD uibqf = bfknbqf*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbqf-0.50*rpibpe) $ FRML _DJRDF Log(fKbqfw) = 0.7108+Log(fXqf) -Log(dtfkbqf) + Log(kfkbqfw) $ FRML _SJRDF Dlog(fKbqf) = 0.0429*Dlog(fXqf) -0.1*(Log(fKbqf(-1))-Log(fKbqfw(-1))) +rofkbqf*(Dlog(fKbqf(-1))-0.0429*Dlog(fXqf(-1)) +0.1*(Log(fKbqf(-2))-Log(fKbqfw(-2)))) $ FRML _DJRD fIbqf = Dif(fKbqf)+bfivbqf*fKbqf(-1) $ FRML _DJRD fKnbqf = fIbqf+(1-bfinvbqf)*fKnbqf(-1)-77*D99 $ () () ANDRE TJENESTEYDENDE ERHVERV () FRML _DJ_D bfknbqq = fKnbqq/fKbqq $ FRML _DJRD uibqq = bfknbqq*pibp*(1-tsdsu1*bivbu)/(1-tsdsu1) *((1-tsdsu1)*iwbz+0.2*tqej+bfinvbqq-0.50*rpibpe) $ FRML _DJRDF Log(fKbqqw) = 0.5793+Log(fXqq)-0.0822*Log(uibqq/pxqq) -Log(dtfkbqq) + Log(kfkbqqw) $ FRML _SJRDF Dlog(fKbqq) = 0.0429*Dlog(fXqq) -0.1*(Log(fKbqq(-1))-Log(fKbqqw(-1))) +rofkbqq*(Dlog(fKbqq(-1))-0.0429*Dlog(fXqq(-1)) +0.1*(Log(fKbqq(-2))-Log(fKbqqw(-2)))) $ FRML _DJRD fIbqq = Dif(fKbqq)+bfivbqq*fKbqq(-1) $ FRML _DJRD fKnbqq = fIbqq+(1-bfinvbqq)*fKnbqq(-1)-786*D99 $ () ### ARBMARK.F05 ### () ARBEJDSMARKED () () () ARBEJDSLØSHED () () FRML _I Uaw = Ua1 - (Q1-Qw1) $ FRML _GJ_D Ulf = bulf*Ul $ FRML _GJ_D Ulfd = bulfd*Ulf $ FRML _GJ_D Ulfu = bulfu*(Ulf-Ulfd) $ FRML _I Ulu = Ulfu + Ul - Ulf $ FRML _D Ulfhk = Ulf - 0.5*Ulfd - Ulfu $ FRML _D Ulfdp = Ul - Ulu $ () forsikrede dagpengeberettigede FRML _D Ul = Ua1 - Q1 $ FRML _D bul1 = Ul/Uaw $ () ARBEJDSUDBUD FRML _GJ_D Qfp = kqfp*Ufpx $ () Folkepensionister I beskæftigelse FRML _GJ_D Ufpu = kufpu*(Ufpx+Qfp) $ () Folkepensionister I udland FRML _D Up = Upt+Ufpx+Qfp+Ufpu $ () Ufpx folkepensionister uden for arb.styr., Upt tjenestemænd FRML _GJ_D Qfo = kqfo*Ufox $ () Førtidspensionister I beskæftigelse FRML _GJ_D Ufou = kufou*(Qfo+Ufox) $ () Førtidpensionister I udland FRML _D Ufo = Ufox+Qfo+Ufou $ () Ufox førtidspensionister uden for arb.styr. FRML _GJ_D Qss = kqss*Qw1 $ () Sygedagpenge fra beskæftigelse FRML _D Uw = U-Ub-Ufpx-Upt $ () Arbejdsduelige FRML _I Uwxa = ( Uuxa+Uakx+Urev+Uly+Usxa+Usb+Umf+Uef+Uov+Ufox+Ukxa +Ur-(Ur1+Ur2))*(1-Duwxa) + Duwxa*Zuwxa $ () Udenfor arbejdsudbud FRML _D Ua1 = (Uw-Uwxa)*(1-D7184) + Ua1e*D7184 $ () Arbejdsudbud () AKTIVERING () Støttet beskæftigelse FRML _G__D Qak = (D7194(-1)+(bqak *(Ul/Ul(-1)-1)+1)*Qak(-1)) *(1+JRqak) -D7194(-1) $ () Aktiverede kontanthjælpsmodatgere FRML _G__D Qltj = (D7194(-1)+(bqltj*(Ul/Ul(-1)-1)+1)*Qltj(-1))*(1+JRqltj)-D7194(-1) $ () løntilskud, Jobtræning FRML _G__D Qltf = (D4799(-1)+(bqltf*(Ul/Ul(-1)-1)+1)*Qltf(-1))*(1+JRqltf)-D4799(-1) $ () løntilskud, Flexjob FRML _G__D Qlts = (D4799(-1)+(bqlts*(Ul/Ul(-1)-1)+1)*Qlts(-1))*(1+JRqlts)-D4799(-1) $ () løntilskud, Skånejob FRML _G__D Qltr = (D7194(-1)+(bqltr*(Ul/Ul(-1)-1)+1)*Qltr(-1))*(1+JRqltr)-D7194(-1) $ () løntilskud, Øvrige FRML _D Qlt = Qltj+Qltf+Qlts+Qltr $ FRML _D Qmf = Qak + Qlt $ () Støttet beskæftigelse I alt () AF aktivering uden for arbejdsstyrke FRML _G__D Uakx = (D7193(-1)+(buakx*(Ul/Ul(-1)-1)+1)*Uakx(-1)) *(1+JRuakx)-D7193(-1) $ () EFTERLØN FRML _G___ Uefw = (Exp( Log(Uefe*(1-D4778)+D4778) +euefyl*Log(((Yduef+D99(-1))*(1-D4799)+D4799) /((Ydua+D99(-1))*(1-D4799)+D4799) *((Yduae+D99(-1))*(1-D4799)+D4799) /((Yduefe+D99(-1))*(1-D4799)+D4799))) -D4778)*(1+JRuefw)*(1-Duef) +Duef*Zuef $ FRML _G__ Uef = (Exp(Dlog((Uefe)*(1-D4778)+D4778) +euefys*Dlog(((Yduef+D99(-1))*(1-D4799)+D4799) /((Ydua+D99(-1))*(1-D4799)+D4799) *((Yduae+D99(-1))*(1-D4799)+D4799) /((Yduefe+D99(-1))*(1-D4799)+D4799)) +0.25*Log(((Uefw(-1))*(1-D4778(-1))+D4778(-1)) /((Uef(-1))*(1-D4778(-1))+D4778(-1))) +Log((Uef(-1))*(1-D4778(-1))+D4778(-1))) -D4778)*(1+JRuef)*(1-Duef) +Duef*Zuef $ () UDDANNELSE FRML _S__D Uuxa = (-0.37229*Dif(Q1/U1564) + Uuxa(-1)/U1529(-1))*U1529 *(1-D7184) + JDuuxa $ () INDIVIDUEL ARBEJDSTID FRML _GJ_D Log(Hak) = Log((Ha+Hdag)*(1-bq1/2)) $ FRML _G Log(Haw) = Log(dthaw) + Log(hawe) $ FRML _GJ__ Log(Ha) = (Log(Ha(-1)) + 0.15*Dlog(dthaw) + 0.15*(Log(Haw(-1))-Log(Ha(-1))) + kha)*(1-Ddthaw) + Ddthaw*Log(Zha) $ () ARBEJDStid FRML _GJRD Hgwa = Hgwa(-1) *Hak/Hak(-1) $ FRML _GJRD Hgwe = Hgwe(-1) *Hak/Hak(-1) $ FRML _GJRD Hgwng = Hgwng(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwne = Hgwne(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwnf = Hgwnf(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwnn = Hgwnn(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwnb = Hgwnb(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwnm = Hgwnm(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwnt = Hgwnt(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwnk = Hgwnk(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwnq = Hgwnq(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwb = Hgwb(-1) *Hak/Hak(-1) $ FRML _GJRD Hgwqh = Hgwqh(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwqs = Hgwqs(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwqt = Hgwqt(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwqf = Hgwqf(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwqq = Hgwqq(-1)*Hak/Hak(-1) $ FRML _GJRD Hgwh = Hgwh(-1) *Hak/Hak(-1) $ FRML _GJRD Hgwo = Hgwo(-1) *Hak/Hak(-1) $ FRML _D Hgwn = (Hgwng*Qwng1 + Hgwne*Qwne1 + Hgwnf*Qwnf1 + Hgwnn*Qwnn1+ Hgwnb*Qwnb1 + Hgwnm*Qwnm1 + Hgwnt*Qwnt1 + Hgwnk*Qwnk1+ Hgwnq*Qwnq1) /(Qwng1 + Qwne1 + Qwnf1 + Qwnn1 + Qwnb1 + Qwnm1 + Qwnt1 + Qwnk1 + Qwnq1) $ FRML _GJRD Hgsa = Hgsa(-1) *Hak/Hak(-1) $ FRML _GJRD Hgsnf = Hgsnf(-1)*Hak/Hak(-1) $ FRML _GJRD Hgsnn = Hgsnn(-1)*Hak/Hak(-1) $ FRML _GJRD Hgsnb = Hgsnb(-1)*Hak/Hak(-1) $ FRML _GJRD Hgsnm = Hgsnm(-1)*Hak/Hak(-1) $ FRML _GJRD Hgsnt = Hgsnt(-1)*Hak/Hak(-1) $ FRML _GJRD Hgsnk = Hgsnk(-1)*Hak/Hak(-1) $ FRML _GJRD Hgsnq = Hgsnq(-1)*Hak/Hak(-1) $ FRML _GJRD Hgsb = Hgsb(-1) *Hak/Hak(-1) $ FRML _GJRD Hgsqh = Hgsqh(-1)*Hak/Hak(-1) $ FRML _GJRD Hgsqs = Hgsqs(-1)*Hak/Hak(-1) $ FRML _GJRD Hgsqt = Hgsqt(-1)*Hak/Hak(-1) $ FRML _GJRD Hgsqq = Hgsqq(-1)*Hak/Hak(-1) $ FRML _GJRD Hgsh = Hgsh(-1) *Hak/Hak(-1) $ FRML _GJRD Hgso = Hgso(-1) *Hak/Hak(-1) $ FRML _D Hga = bqsa1 *Hgsa +(1-bqsa1) *Hgwa $ FRML _D Hge = bqse1 *Hgse +(1-bqse1) *Hgwe $ FRML _D Hgng = bqsng1*Hgsng+(1-bqsng1)*Hgwng $ FRML _D Hgne = bqsne1*Hgsne+(1-bqsne1)*Hgwne $ FRML _D Hgnf = bqsnf1*Hgsnf+(1-bqsnf1)*Hgwnf $ FRML _D Hgnn = bqsnn1*Hgsnn+(1-bqsnn1)*Hgwnn $ FRML _D Hgnb = bqsnb1*Hgsnb+(1-bqsnb1)*Hgwnb $ FRML _D Hgnm = bqsnm1*Hgsnm+(1-bqsnm1)*Hgwnm $ FRML _D Hgnt = bqsnt1*Hgsnt+(1-bqsnt1)*Hgwnt $ FRML _D Hgnk = bqsnk1*Hgsnk+(1-bqsnk1)*Hgwnk $ FRML _D Hgnq = bqsnq1*Hgsnq+(1-bqsnq1)*Hgwnq $ FRML _D Hgb = bqsb1 *Hgsb +(1-bqsb1) *Hgwb $ FRML _D Hgqh = bqsqh1*Hgsqh+(1-bqsqh1)*Hgwqh $ FRML _D Hgqs = bqsqs1*Hgsqs+(1-bqsqs1)*Hgwqs $ FRML _D Hgqt = bqsqt1*Hgsqt+(1-bqsqt1)*Hgwqt $ FRML _D Hgqf = bqsqf1*Hgsqf+(1-bqsqf1)*Hgwqf $ FRML _D Hgqq = bqsqq1*Hgsqq+(1-bqsqq1)*Hgwqq $ FRML _D Hgh = bqsh1 *Hgsh +(1-bqsh1) *Hgwh $ FRML _D Hgo = bqso2 *Hgso +(1-bqso2) *Hgwo $ () HJÆLPESYSTEM TIL ENDOGENISERING AF SKATTER MM. I lØN OG ARBEJDSTID () () TRENDÆNDRING () FRML _G dtlnap = (1 + ehgwl*Log(Haw/hawe) +ebtyddl*Log(((btydd+D99(-1))*(1-D4799)+D4799) /((btydde+D99(-1))*(1-D4799)+D4799)) +bwb * etss0wl * Log((1-tss0wb)/(1-tss0wbe)) +bwm * etss0wl * Log((1-tss0wm)/(1-tss0wme)) +bwt * etss0wl * Log((1-tss0wt)/(1-tss0wte)) +bwb * etssmwl * Log((1-tssmwb)/(1-tssmwbe)) +bwm * etssmwl * Log((1-tssmwm)/(1-tssmwme)) +bwt * etssmwl * Log((1-tssmwt)/(1-tssmwte)) +epcpl * Log((1-tsda)/(1-tsdae)) +epcpl*Log(pcp/pcpe))*(1-Ddtlnap) +Ddtlnap*Zdtlnap $ FRML _G dthaw = (1 + bwb * etss0wh * Log((1-tss0wb)/(1-tss0wbe)) +bwm * etss0wh * Log((1-tss0wm)/(1-tss0wme)) +bwt * etss0wh * Log((1-tss0wt)/(1-tss0wte)) +bwb * etssmwh * Log((1-tssmwb)/(1-tssmwbe)) +bwm * etssmwh * Log((1-tssmwm)/(1-tssmwme)) +bwt * etssmwh * Log((1-tssmwt)/(1-tssmwte)) + epcph * Log((1-tsda)/(1-tsdae)) +epcph*Log((pcp/lnap)*(lnape/pcpe)))*(1-Ddthaw) +Ddthaw*Zdthaw $ () Disponible gennemsnitsindkomster FRML _GJ_D Ydna = (lnap*Hgwn*(1-(tsda+taqwy1))-tsaqw1)*(1-tss0w)*(1-D4799) $ FRML _GJRD ttyd = ttyd(-1)*(1+Dlog(lih*Ha)) $ FRML _GJ_D Ydl = ttyd*(1-taqwy1)*(1-tss0l)*(1-D4799) $ FRML _G__D btydd = (Ydl*(1-D4799)+D4799)/(Ydna*(1-D4799)+D4799)-D4799 $ FRML _GJ_D Ydua = bul1*Ydl+(1-bul1)*Ydna $ FRML _GJ_D Yduef = ttysae1*ptty1*(1-tss0ef)*(1-D4799) $ () SAMLEt BESKÆFTIGELSE FRML _I Q1 = Qa1+Qe1+Qb1+Qh1+Qo2 +Qng1+Qne1+Qnf1+Qnn1+Qnb1+Qnm1+Qnt1+Qnk1+Qnq1 +Qqh1+Qqs1+Qqt1+Qqf1+Qqq1+Qres1 $ FRML _I Qw1 = Q1-Qsa1-Qse1-Qsb1-Qsh1-Qso2 -Qsng1-Qsne1-Qsnf1-Qsnn1-Qsnb1-Qsnm1-Qsnt1-Qsnk1-Qsnq1 -Qsqh1-Qsqs1-Qsqt1-Qsqf1-Qsqq1 $ FRML _I Qs1 = Q1-Qw1 $ FRML _I Qwp1 = Qw1-Qwo2 $ FRML _I Qsp1 = Qs1-Qso2 $ () ### PRISER.F05 ### () () IMPORTPRISER () FRML _I pee3r = (boil/28.37000)*(ewus/8.09029)*kpee3r $ FRML _SJRDF Dlog(pm3r) = 0.78183*Dlog(pee3r)+0.21817*Dlog(pee3r(-1)) $ FRML _SJRDF Dlog(pm3k) = 0.35404*Dlog(pee3r) -0.87310*Log(pm3k(-1)) +0.55811*Log(pee3r(-1)) +0.28789 $ FRML _SJRDF Dlog(pm3q) = 0.67497*Dlog(pee3r)+0.20503*Dlog(pee3r(-1)) +0.05*Dlog(pm6m)+0.07*Dlog(pm8) $ () () () PRISER PÅ ERHVERVENES PRODUKTIONSVÆRDIER (SEKTORPRISER) () () LANDBRUG Mv. () FRML _DJRD pwaw1 = ( uima*fKmaw1+uiba*fKbaw+la1*Hqaw1+pvea*fVeaw1 +pvma*fVma+Siqa-.094*Siqej-Siqal)/fXa $ FRML _SJRD Dlog(pxa) = 0.89219*Dlog(pne0)+0.10781*Dlog(pne0(-1)) $ () () BRUNKUL, RÅOLIE OG NATURGAS () FRML _GJR pxe = pxe(-1)*((pm3r+tm3r)/(pm3r(-1)+tm3r(-1))) $ () () OLIERAFFINADERIER () FRML _GJR pxng = pxng(-1)*((pm3q+tm3q)/(pm3q(-1)+tm3q(-1))) $ () () BOLIGBENYTTELSE () FRML _GJ_D pxh = kpxh*(pnch - ( abch*pxb + aqqch*pxqq))/ahch $ () () NÆRINGSMIDDELINDUSTRI () FRML _D pwnfw1 = ( uimnf*fKmnfw1+uibnf*fKbnfw+lnf1*Hqnfw1+pvenf*fVenfw1 +pvmnf*fVmnf+Siqnf-.008*Siqej-Siqnfl)/fXnf $ FRML _D pwnfvv = Vnf/fXnf $ FRML _D pwnfvl1 = (lnf1*Hqnfn1)/fXnf $ FRML _DJRD Log(pxnfw1) = Log(pwnfw1) $ () Retvending af landbruget FRML _SJRD Dlog(pxnf) = 0.83994*Dlog(pne0)+0.16006*Dlog(pne0(-1)) $ () () NYDELSESMIDDELINDUSTRI () FRML _I bywnn1 = (Ywnn1/(Yrnn1+Ywnn1))*(1-Dbyw)+Dbyw*Zbywnn1 $ FRML _D pwnnw1 = ( uimnn*fKmnnw1+uibnn*fKbnnw+lnn1*Hqnnw1 +pvenn*fVennw1+pvmnn*fVmnn+Siqnn-0.0030000*Siqej-Siqnnl)/fXnn $ FRML _D pwnnvv = Vnn/fXnn $ FRML _D pwnnvl1 = (lnn1*Hqnnn1)/fXnn $ FRML _DJRD Log(pxnnw1) = Log(pwnnw1) + 0.027192/0.20000 + Log(kpxnnw1) $ FRML _S pxnn = (1-Dbyw)*(((Exp(Log(pxnn(-1)) +1.00000*Dlog(pwnnvl1)*pwnnvl1(-1)/pxnn(-1) +0.70768*Dlog(pwnnvv)*pwnnvv(-1)/pxnn(-1) +0.00000*Dlog(pwnnvl1(-1))*pwnnvl1(-1)/pxnn(-1) +0.29232*Dlog(pwnnvv(-1))*pwnnvv(-1)/pxnn(-1) -0.20000*Log(pxnn(-1)/pxnnw1(-1))))*(1.0+JRpxnn)) *(1.0-Dpxnn)+Dpxnn*Zpxnn) +Dbyw*(((Ywnn1/bywnn1)+ Siqnn + Vnn)/fXnn) $ () () LEVERANDØRER TIL BYGGERI () FRML _I bywnb1 = (Ywnb1/(Yrnb1+Ywnb1))*(1-Dbyw)+Dbyw*Zbywnb1 $ FRML _D pwnbw1 = ( uimnb*fKmnbw1+uibnb*fKbnbw+lnb1*Hqnbw1 +pvenb*fVenbw1+pvmnb*fVmnb+Siqnb-0.0060000*Siqej-Siqnbl)/fXnb $ FRML _D pwnbvv = Vnb/fXnb $ FRML _D pwnbvl1 = (lnb1*Hqnbn1)/fXnb $ FRML _DJRD Log(pxnbw1) = Log(pwnbw1) + 0.00000 + Log(kpxnbw1) $ FRML _S pxnb = (1-Dbyw)*(((Exp(Log(pxnb(-1)) +0.45557*Dlog(pwnbvl1)*pwnbvl1(-1)/pxnb(-1) +0.92789*Dlog(pwnbvv)*pwnbvv(-1)/pxnb(-1) +0.54443*Dlog(pwnbvl1(-1))*pwnbvl1(-1)/pxnb(-1) +0.24308*Dlog(pwnbvv(-1))*pwnbvv(-1)/pxnb(-1) -0.20000*Log(pxnb(-1)/pxnbw1(-1))))*(1.0+JRpxnb)) *(1.0-Dpxnb)+Dpxnb*Zpxnb) +Dbyw*(((Ywnb1/bywnb1)+ Siqnb + Vnb)/fXnb) $ () () JERN- OG METALINDUSTRI () FRML _I bywnm1 = (Ywnm1/(Yrnm1+Ywnm1))*(1-Dbyw)+Dbyw*Zbywnm1 $ FRML _D pwnmw1 = ( uimnm*fKmnmw1+uibnm*fKbnmw+lnm1*Hqnmw1 +pvenm*fVenmw1+pvmnm*fVmnm+Siqnm-0.018000*Siqej-Siqnml)/fXnm $ FRML _D pwnmvv = Vnm/fXnm $ FRML _D pwnmvl1 = (lnm1*Hqnmn1)/fXnm $ FRML _DJRD Log(pxnmw1) = Log(pwnmw1) + 0.00000 + Log(kpxnmw1) $ FRML _S pxnm = (1-Dbyw)*(((Exp(Log(pxnm(-1)) +0.44094*Dlog(pwnmvl1)*pwnmvl1(-1)/pxnm(-1) +0.75098*Dlog(pwnmvv)*pwnmvv(-1)/pxnm(-1) +0.55906*Dlog(pwnmvl1(-1))*pwnmvl1(-1)/pxnm(-1) +0.24902*Dlog(pwnmvv(-1))*pwnmvv(-1)/pxnm(-1) -0.20000*Log(pxnm(-1)/pxnmw1(-1))))*(1.0+JRpxnm)) *(1.0-Dpxnm)+Dpxnm*Zpxnm) +Dbyw*(((Ywnm1/bywnm1)+ Siqnm + Vnm)/fXnm) $ () () TRANSPORTMIDDELINDUSTRI () FRML _I bywnt1 = (Ywnt1/(Yrnt1+Ywnt1))*(1-Dbyw)+Dbyw*Zbywnt1 $ FRML _D pwntw1 = ( uimnt*fKmntw1+uibnt*fKbntw+lnt1*Hqntw1 +pvent*fVentw1+pvmnt*fVmnt+Siqnt-0.0030000*Siqej-Siqntl)/fXnt $ FRML _D pwntvv = Vnt/fXnt $ FRML _D pwntvl1 = (lnt1*Hqntn1)/fXnt $ FRML _DJRD Log(pxntw1) = Log(pwntw1) + 0.00000 + Log(kpxntw1) $ FRML _S pxnt = (1-Dbyw)*(((Exp(Log(pxnt(-1)) +0.28897*Dlog(pwntvl1)*pwntvl1(-1)/pxnt(-1) +0.78165*Dlog(pwntvv)*pwntvv(-1)/pxnt(-1) +0.71103*Dlog(pwntvl1(-1))*pwntvl1(-1)/pxnt(-1) +0.21835*Dlog(pwntvv(-1))*pwntvv(-1)/pxnt(-1) -0.21722*Log(pxnt(-1)/pxntw1(-1))))*(1.0+JRpxnt)) *(1.0-Dpxnt)+Dpxnt*Zpxnt) +Dbyw*(((Ywnt1/bywnt1) + Siqnt + Vnt)/fXnt) $ () () KEMISK INDUSTRI Mv. () FRML _I bywnk1 = (Ywnk1/(Yrnk1+Ywnk1))*(1-Dbyw)+Dbyw*Zbywnk1 $ FRML _D pwnkw1 = ( uimnk*fKmnkw1+uibnk*fKbnkw+lnk1*Hqnkw1 +pvenk*fVenkw1+pvmnk*fVmnk+Siqnk-0.0090000*Siqej-Siqnkl)/fXnk $ FRML _D pwnkvv = Vnk/fXnk $ FRML _D pwnkvl1 = (lnk1*Hqnkn1)/fXnk $ FRML _DJRD Log(pxnkw1) = Log(pwnkw1) + (0.0067994/0.20000) + Log(kpxnkw1) $ FRML _S pxnk = (1-Dbyw)*(((Exp(Log(pxnk(-1)) +0.35095*Dlog(pwnkvl1)*pwnkvl1(-1)/pxnk(-1) +0.88254*Dlog(pwnkvv)*pwnkvv(-1)/pxnk(-1) +0.64905*Dlog(pwnkvl1(-1))*pwnkvl1(-1)/pxnk(-1) +0.13079*Dlog(pwnkvv(-1))*pwnkvv(-1)/pxnk(-1) -0.20000*Log(pxnk(-1)/pxnkw1(-1))))*(1.0+JRpxnk)) *(1.0-Dpxnk)+Dpxnk*Zpxnk) +Dbyw*(((Ywnk1/bywnk1)+ Siqnk + Vnk)/fXnk) $ () () ANDEN FREMSTILLINGSVIRKSOMHED () FRML _I bywnq1 = (Ywnq1/(Yrnq1+Ywnq1))*(1-Dbyw)+Dbyw*Zbywnq1 $ FRML _D pwnqw1 = ( uimnq*fKmnqw1+uibnq*fKbnqw+lnq1*Hqnqw1 +pvenq*fVenqw1+pvmnq*fVmnq+Siqnq-0.011000*Siqej-Siqnql)/fXnq $ FRML _D pwnqvv = Vnq/fXnq $ FRML _D pwnqvl1 = (lnq1*Hqnqn1)/fXnq $ FRML _DJRD Log(pxnqw1) = Log(pwnqw1) + 0.00000 +Log(kpxnqw1) $ FRML _S pxnq = (1-Dbyw)*(((Exp(Log(pxnq(-1)) +0.62317*Dlog(pwnqvl1)*pwnqvl1(-1)/pxnq(-1) +0.81566*Dlog(pwnqvv)*pwnqvv(-1)/pxnq(-1) +0.37683*Dlog(pwnqvl1(-1))*pwnqvl1(-1)/pxnq(-1) +0.18434*Dlog(pwnqvv(-1))*pwnqvv(-1)/pxnq(-1) -0.20000*Log(pxnq(-1)/pxnqw1(-1))))*(1.0+JRpxnq)) *(1.0-Dpxnq)+Dpxnq*Zpxnq) +Dbyw*(((Ywnq1/bywnq1)+ Siqnq + Vnq)/fXnq) $ () () BYGGE- OG ANL’GSVIRKSOMHED () FRML _I bywb1 = (Ywb1/(Yrb1+Ywb1))*(1-Dbyw)+Dbyw*Zbywb1 $ FRML _D pwbw1 = ( uimb*fKmbw1+uibb*fKbbw+lb1*Hqbw1 +pveb*fVebw1+pvmb*fVmb+Siqb-0.0060000*Siqej-Siqbl)/fXb $ FRML _D pwbvv = Vb/fXb $ FRML _D pwbvl1 = (lb1*Hqbn1)/fXb $ FRML _DJRD Log(pxbw1) = Log(pwbw1) + 0.00000 +Log(kpxbw1) $ FRML _S pxb = (1-Dbyw)*(((Exp(Log(pxb(-1)) +0.48961*Dlog(pwbvl1)*pwbvl1(-1)/pxb(-1) +0.77284*Dlog(pwbvv)*pwbvv(-1)/pxb(-1) +0.51039*Dlog(pwbvl1(-1))*pwbvl1(-1)/pxb(-1) +0.22716*Dlog(pwbvv(-1))*pwbvv(-1)/pxb(-1) -0.20000*Log(pxb(-1)/pxbw1(-1))))*(1.0+JRpxb)) *(1.0-Dpxb)+Dpxb*Zpxb) +Dbyw*(((Ywb1/bywb1)+ Siqb + Vb)/fXb) $ () () HANDEL () FRML _I bywqh1 = (Ywqh1/(Yrqh1+Ywqh1))*(1-Dbyw)+Dbyw*Zbywqh1 $ FRML _D pwqhw1 = ( uimqh*fKmqhw1+uibqh*fKbqhw+lqh1*Hqqhw1 +pveqh*fVeqhw1+pvmqh*fVmqh+Siqqh-0.056000*Siqej-Siqqhl)/fXqh $ FRML _D pwqhvv = Vqh/fXqh $ FRML _D pwqhvl1 = (lqh1*Hqqhn1)/fXqh $ FRML _DJRD Log(pxqhw1) = Log(pwqhw1) + 0.00000 + Log(kpxqhw1) $ FRML _S pxqh = (1-Dbyw)*(((Exp(Log(pxqh(-1)) +0.65064*Dlog(pwqhvl1)*pwqhvl1(-1)/pxqh(-1) +1.16278*Dlog(pwqhvv)*pwqhvv(-1)/pxqh(-1) +0.50491*Dlog(pwqhvl1(-1))*pwqhvl1(-1)/pxqh(-1) +0.00000*Dlog(pwqhvv(-1))*pwqhvv(-1)/pxqh(-1) -0.21501*Log(pxqh(-1)/pxqhw1(-1))))*(1.0+JRpxqh)) *(1.0-Dpxqh)+Dpxqh*Zpxqh) +Dbyw*(((Ywqh1/bywqh1)+ Siqqh + Vqh)/fXqh) $ () () ANDEN TRANSPORT Mv. () FRML _I bywqt1 = (Ywqt1/(Yrqt1+Ywqt1))*(1-Dbyw)+Dbyw*Zbywqt1 $ FRML _D pwqtw1 = ( uimqt*fKmqtw1+uibqt*fKbqtw+lqt1*Hqqtw1 +pveqt*fVeqtw1+pvmqt*fVmqt+Siqqt-0.016000*Siqej-Siqqtl)/fXqt $ FRML _D pwqtvv = Vqt/fXqt $ FRML _D pwqtvl1 = (lqt1*Hqqtn1)/fXqt $ FRML _DJRD Log(pxqtw1) = Log(pwqtw1) + 0.00000 + Log(kpxqtw1) $ FRML _S pxqt = (1-Dbyw)*(((Exp(Log(pxqt(-1)) +0.83282*Dlog(pwqtvl1)*pwqtvl1(-1)/pxqt(-1) +0.85000*Dlog(pwqtvv)*pwqtvv(-1)/pxqt(-1) +0.00000*Dlog(pwqtvl1(-1))*pwqtvl1(-1)/pxqt(-1) +0.00000*Dlog(pwqtvv(-1))*pwqtvv(-1)/pxqt(-1) -0.20000*Log(pxqt(-1)/pxqtw1(-1))))*(1.0+JRpxqt)) *(1.0-Dpxqt)+Dpxqt*Zpxqt) +Dbyw*(((Ywqt1/bywqt1)+ Siqqt + Vqt)/fXqt) $ () () ANDRE TJENESTEYDENDE ERHVERV () FRML _I bywqq1 = (Ywqq1/(Yrqq1+Ywqq1))*(1-Dbyw)+Dbyw*Zbywqq1 $ FRML _D pwqqw1 = ( uimqq*fKmqqw1+uibqq*fKbqqw+lqq1*Hqqqw1 +pveqq*fVeqqw1+pvmqq*fVmqq+Siqqq-0.13600*Siqej-Siqqql)/fXqq $ FRML _D pwqqvv = Vqq/fXqq $ FRML _D pwqqvl1 = (lqq1*Hqqqn1)/fXqq $ FRML _DJRD Log(pxqqw1) = Log(pwqqw1) + 0.00000 + Log(kpxqqw1) $ FRML _S pxqq = (1-Dbyw)*(((Exp(Log(pxqq(-1)) +0.98986*Dlog(pwqqvl1)*pwqqvl1(-1)/pxqq(-1) +0.72573*Dlog(pwqqvv)*pwqqvv(-1)/pxqq(-1) +0.010140*Dlog(pwqqvl1(-1))*pwqqvl1(-1)/pxqq(-1) +0.27427*Dlog(pwqqvv(-1))*pwqqvv(-1)/pxqq(-1) -0.20000*Log(pxqq(-1)/pxqqw1(-1))))*(1.0+JRpxqq)) *(1.0-Dpxqq)+Dpxqq*Zpxqq) +Dbyw*(((Ywqq1/bywqq1)+ Siqqq + Vqq)/fXqq) $ () () FINANSIEL VIRKSOMHED () FRML _I bywqf1 = (Ywqf1/(Yrqf1+Ywqf1))*(1-Dbyw)+Dbyw*Zbywqf1 $ FRML _D pwqfw1 = ( uimqf*fKmqfw1+uibqf*fKbqfw+lqf1*Hqqfw1 +pveqf*fVeqfw1+pvmqf*fVmqf +Siqqf-0.016000*Siqej-Siqqfl)/fXqf $ FRML _D pwqfwv1 = (lqf1*Hqqfw1+pveqf*fVeqfw1+pvmqf*fVmqf)/fXqf $ FRML _S pxqf = (1-Dbyw)*((1-Dpxqf)*(Exp(Log(pxqf(-1)) +0.31563*(Dlog(pwqfwv1)-Dlog(pwqfwv1(-1))) -0.22304*(Dlog(pxqf(-1))-Dlog(pwqfw1(-1))) +Dlog(pxqf(-1)) + (Log(1.+JRpxqf) -Log(1.+JRpxqf(-1)))))+Dpxqf*Zpxqf) +Dbyw*(((Ywqf1/bywqf1)+ Siqqf + Vqf)/fXqf) $ FRML _I pxn = (pxne*fXne+pxng*fXng+pxnf*fXnf+pxnn*fXnn+pxnb*fXnb +pxnk*fXnk+pxnq*fXnq+pxnm*fXnm+pxnt*fXnt ) /(fXne+fXng+fXnf+fXnn+fXnb+fXnk+fXnq+fXnm+fXnt) $ FRML _I pxq = (pxqf*fXqf+pxqh*fXqh+pxqt*fXqt+pxqs*fXqs+pxqq*fXqq) /(fXqf+fXqh+fXqt+fXqs+fXqq) $ () ### PRISSAM.F05 ### () () () Erhvervenes køb af varer og tjenester I løbende priser () () FRML _GJ_D Va = ( aaa*pxa + anga*pxng + anea*pxne + anfa*pxnf + anma*pxnm + anta*pxnt + anka*pxnk + aba*pxb + aqha*pxqh + aqta*pxqt + aqqa*pxqq + am0a*(pm0+tm0) + am2a*(pm2+tm2) + am3ka*(pm3k+tm3k) + am3qa*(pm3q+tm3q) + am5a*(pm5+tm5) ) *kpnva*fXa + Sipxa + Sigxa $ FRML _GJ_D Ve = ( ange*pxng + anme*pxnm + ante*pxnt + aqte*pxqt + aqqe*pxqq + am3qe*(pm3q+tm3q) + am7qe*(pm7q+tm7q) + amse*pms ) *kpnve*fXe + Sipxe + Sigxe $ FRML _GJ_D Vng = ( aeng*pxe + angng*pxng + aneng*pxne + anmng*pxnm + aqtng*pxqt + am3rng*(pm3r+tm3r) + am3qng*(pm3q+tm3q) + am5ng*(pm5+tm5) ) *kpnvng*fXng + Sipxng + Sigxng $ FRML _GJ_D Vne = ( aane*pxa + aene*pxe + angne*pxng + anene*pxne + abne*pxb + aqqne*pxqq + am3kne*(pm3k+tm3k) + am3qne*(pm3q+tm3q) + am7qne*(pm7q+tm7q) ) *kpnvne*fXne + Sipxne + Sigxne $ FRML _GJ_D Vnf = ( aanf*pxa + angnf*pxng + anenf*pxne + anfnf*pxnf + anmnf*pxnm + anknf*pxnk + anqnf*pxnq + aqhnf*pxqh + aqtnf*pxqt + aqqnf*pxqq + am0nf*(pm0+tm0) + am2nf*(pm2+tm2) + am3knf*(pm3k+tm3k) + am3qnf*(pm3q+tm3q) + am5nf*(pm5+tm5) + am6mnf*(pm6m+tm6m) + am6qnf*(pm6q+tm6q) ) *kpnvnf*fXnf + Sipxnf + Sigxnf $ FRML _GJ_D Vnn = ( aann*pxa + angnn*pxng + anenn*pxne + annnn*pxnn + anmnn*pxnm + anqnn*pxnq + aqtnn*pxqt + aqqnn*pxqq + am1nn*(pm1+tm1) + am3knn*(pm3k+tm3k) + am3qnn*(pm3q+tm3q) + am6qnn*(pm6q+tm6q) ) *kpnvnn*fXnn + Sipxnn + Sigxnn $ FRML _GJ_D Vnb = ( aanb*pxa + angnb*pxng + anenb*pxne + anbnb*pxnb + anmnb*pxnm + aqhnb*pxqh + aqtnb*pxqt + aqqnb*pxqq + am2nb*(pm2+tm2) + am3knb*(pm3k+tm3k) + am3qnb*(pm3q+tm3q) + am5nb*(pm5+tm5) + am6mnb*(pm6m+tm6m) + am6qnb*(pm6q+tm6q) ) *kpnvnb*fXnb + Sipxnb + Sigxnb $ FRML _GJ_D Vnm = ( angnm*pxng + anenm*pxne + anmnm*pxnm + anknm*pxnk + anqnm*pxnq + aqhnm*pxqh + aqtnm*pxqt + aqqnm*pxqq + am3qnm*(pm3q+tm3q) + am5nm*(pm5+tm5) + am6mnm*(pm6m+tm6m) + am6qnm*(pm6q+tm6q) + am7qnm*(pm7q+tm7q) + am8nm*(pm8+tm8) + amsnm*pms ) *kpnvnm*fXnm + Sipxnm + Sigxnm $ FRML _GJ_D Vnt = ( angnt*pxng + anent*pxne + anmnt*pxnm + antnt*pxnt + aqhnt*pxqh + aqqnt*pxqq + am3qnt*(pm3q+tm3q) + am6mnt*(pm6m+tm6m) + am6qnt*(pm6q+tm6q) + am7bnt*(pm7b+tm7b) + am7ynt*(pm7y+tm7y) + am7qnt*(pm7q+tm7q) ) *kpnvnt*fXnt + Sipxnt + Sigxnt $ FRML _GJ_D Vnk = ( angnk*pxng + anenk*pxne + anfnk*pxnf + anmnk*pxnm + anknk*pxnk + anqnk*pxnq + aqhnk*pxqh + aqtnk*pxqt + aqqnk*pxqq + am2nk*(pm2+tm2) + am3qnk*(pm3q+tm3q) + am5nk*(pm5+tm5) + am6mnk*(pm6m+tm6m) + am6qnk*(pm6q+tm6q) + am8nk*(pm8+tm8) ) *kpnvnk*fXnk + Sipxnk + Sigxnk $ FRML _GJ_D Vnq = ( angnq*pxng + anenq*pxne + anbnq*pxnb + anmnq*pxnm + anknq*pxnk + anqnq*pxnq + aqhnq*pxqh + aqtnq*pxqt + aqqnq*pxqq + am2nq*(pm2+tm2) + am3knq*(pm3k+tm3k) + am3qnq*(pm3q+tm3q) + am5nq*(pm5+tm5) + am6mnq*(pm6m+tm6m) + am6qnq*(pm6q+tm6q) + am8nq*(pm8+tm8) ) *kpnvnq*fXnq + Sipxnq + Sigxnq $ FRML _GJ_D Vb = ( aab*pxa + angb*pxng + aneb*pxne + anbb*pxnb + anmb*pxnm + ankb*pxnk + anqb*pxnq + abb*pxb + aqhb*pxqh + aqtb*pxqt + aqfb*pxqf + aqqb*pxqq + aob*pxo + am2b*(pm2+tm2) + am3qb*(pm3q+tm3q) + am5b*(pm5+tm5) + am6mb*(pm6m+tm6m) + am6qb*(pm6q+tm6q) + am7qb*(pm7q+tm7q) + am8b*(pm8+tm8) + amsb*pms ) *kpnvb*fXb + Sipxb + Sigxb $ FRML _GJ_D Vqh = ( angqh*pxng + aneqh*pxne + anmqh*pxnm + ankqh*pxnk + anqqh*pxnq + abqh*pxb + aqhqh*pxqh + aqsqh*pxqs + aqtqh*pxqt + aqfqh*pxqf + aqqqh*pxqq + aoqh*pxo + am3qqh*(pm3q+tm3q) + am5qh*(pm5+tm5) + am6qqh*(pm6q+tm6q) + am8qh*(pm8+tm8) + amsqh*pms ) *kpnvqh*fXqh + Sipxqh + Sigxqh $ FRML _GJ_D Vqs = ( angqs*pxng + aneqs*pxne + antqs*pxnt + aqsqs*pxqs + aqtqs*pxqt + aqqqs*pxqq + am3qqs*(pm3q+tm3q) + amsqs*pms ) *kpnvqs*fXqs + Sipxqs + Sigxqs $ FRML _GJ_D Vqt = ( angqt*pxng + aneqt*pxne + anqqt*pxnq + abqt*pxb + aqhqt*pxqh + aqsqt*pxqs + aqtqt*pxqt + aqfqt*pxqf + aqqqt*pxqq + aoqt*pxo + am3qqt*(pm3q+tm3q) + am7yqt*(pm7y+tm7y) + am7qqt*(pm7q+tm7q) + amsqt*pms ) *kpnvqt*fXqt + Sipxqt + Sigxqt $ FRML _GJ_D Vqf = ( angqf*pxng + aneqf*pxne + anqqf*pxnq + abqf*pxb + aqtqf*pxqt + aqfqf*pxqf + aqqqf*pxqq + aoqf*pxo + am3qqf*(pm3q+tm3q) + amsqf*pms ) *kpnvqf*fXqf + Sipxqf + Sigxqf $ FRML _GJ_D Vqq = ( angqq*pxng + aneqq*pxne + anfqq*pxnf + annqq*pxnn + anmqq*pxnm + antqq*pxnt + ankqq*pxnk + anqqq*pxnq + abqq*pxb + aqhqq*pxqh + aqtqq*pxqt + aqfqq*pxqf + aqqqq*pxqq + aoqq*pxo + am0qq*(pm0+tm0) + am1qq*(pm1+tm1) + am3qqq*(pm3q+tm3q) + am5qq*(pm5+tm5) + am6qqq*(pm6q+tm6q) + am7qqq*(pm7q+tm7q) + am8qq*(pm8+tm8) + amsqq*pms ) *kpnvqq*fXqq + Sipxqq + Sigxqq $ FRML _GJ_D Vh = ( angh*pxng + aneh*pxne + abh*pxb + aqqh*pxqq + am3qh*(pm3q+tm3q) + am8h*(pm8+tm8) ) *kpnvh*fXh + Sipxh + Sigxh $ FRML _GJ_D Vo = ( aao*pxa + aeo*pxe + ango*pxng + aneo*pxne + anfo*pxnf + anno*pxnn + anbo*pxnb + anmo*pxnm + anto*pxnt + anko*pxnk + anqo*pxnq + abo*pxb + aqho*pxqh + aqso*pxqs + aqto*pxqt + aqfo*pxqf + aqqo*pxqq + aho*pxh + aoo*pxo + am0o*(pm0+tm0) + am1o*(pm1+tm1) + am2o*(pm2+tm2) + am3ko*(pm3k+tm3k) + am3ro*(pm3r+tm3r) + am3qo*(pm3q+tm3q) + am5o*(pm5+tm5) + am6mo*(pm6m+tm6m) + am6qo*(pm6q+tm6q) + am7bo*(pm7b+tm7b) + am7yo*(pm7y+tm7y) + am7qo*(pm7q+tm7q) + am8o*(pm8+tm8) + amso*pms ) *kpnvo*fXo + Sipxo + Sigxo $ FRML _GJ_D pncf = ( aacf*pxa + anfcf*pxnf + aqhcf*pxqh + am0cf*(pm0+tm0) )*kpncf*kkp $ FRML _GJ_D pncn = ( anfcn*pxnf + anncn*pxnn + aqhcn*pxqh + am0cn*(pm0+tm0) + am1cn*(pm1+tm1) )*kpncn*kkp $ FRML _GJ_D pnci = ( aaci*pxa + ankci*pxnk + anqci*pxnq + aqhci*pxqh + am0ci*(pm0+tm0) + am1ci*(pm1+tm1) + am2ci*(pm2+tm2) + am3qci*(pm3q+tm3q) + am5ci*(pm5+tm5) + am6qci*(pm6q+tm6q) + am8ci*(pm8+tm8) )*kpnci*kkp $ FRML _GJ_D pnce = ( aece*pxe + angce*pxng + anece*pxne + aqhce*pxqh + am3kce*(pm3k+tm3k) + am3qce*(pm3q+tm3q) )*kpnce*kkp $ FRML _GJ_D pncg = ( angcg*pxng + aqhcg*pxqh + am3qcg*(pm3q+tm3q) )*kpncg*kkp $ FRML _GJ_D pncb = ( antcb*pxnt + aqhcb*pxqh + am7bcb*(pm7b+tm7b) + am7qcb*(pm7q+tm7q) )*kpncb*kkp $ FRML _GJ_D pncv = ( anbcv*pxnb + anmcv*pxnm + antcv*pxnt + ankcv*pxnk + anqcv*pxnq + aqhcv*pxqh + am6mcv*(pm6m+tm6m) + am6qcv*(pm6q+tm6q) + am7ycv*(pm7y+tm7y) + am7qcv*(pm7q+tm7q) + am8cv*(pm8+tm8) )*kpncv*kkp $ FRML _GJRD Dlog(pnch) = 0.1488*Dlog(pibh) + 0.06808*Log( pibh(-1)*fKnbh(-2)* (iwbz(-1)-0.5*rpibhe(-1)+bfinvbh(-1)) /(Yrh1(-1)-fKbhe(-1)/fKbhl(-1)*(Ywh1+Siqh-Siqejh)) )$ FRML _GJ_D pnck = ( aqsck*pxqs + aqtck*pxqt + amsck*pms )*kpnck*kkp $ FRML _GJ_D pncs = ( anmcs*pxnm + anqcs*pxnq + aqhcs*pxqh + aqtcs*pxqt + aqfcs*pxqf + aqqcs*pxqq + aocs*pxo + amscs*pms )*kpncs*kkp $ FRML _I pct = pmt $ FRML _GJ_D pnim = ( aeim*pxe + anbim*pxnb + anmim*pxnm + antim*pxnt + ankim*pxnk + anqim*pxnq + aqhim*pxqh + aqqim*pxqq + am6mim*(pm6m+tm6m) + am6qim*(pm6q+tm6q) + am7bim*(pm7b+tm7b) + am7yim*(pm7y+tm7y) + am7qim*(pm7q+tm7q) + am8im*(pm8+tm8) + amsim*pms )*kpnim*kkp $ FRML _GJ_ pnimp11 = pnim*kpnimp1 $ FRML _GJ_ pnimo11 = pnim*kpnimo1 $ FRML _GJ_D pnib = ( abib*pxb + aqqib*pxqq + am5ib*(pm5+tm5) + am6qib*(pm6q+tm6q) )*kpnib*kkp $ FRML _GJ_ pnibp11 = pnib*kpnibp1 $ FRML _GJ_ pnibo11 = pnib*kpnibo1 $ FRML _GJ_ pnibh = pnib*kpnibh $ FRML _GJ_ pit = aait*pxa + am0it*(pm0+tm0) $ FRML _GJ_D pnil = ( ( fIla*pxa+fIle*pxe+fIlng*pxng +fIlne*pxne+fIlnf*pxnf+fIlnn*pxnn+fIlnb*pxnb +fIlnm*pxnm+fIlnt*pxnt+fIlnk*pxnk+fIlnq*pxnq +fIlqh*pxqh+fIlqq*pxqq +fIlm0*(pm0+tm0)+fIlm1*(pm1+tm1)+fIlm2*(pm2+tm2) +fIlm3k*(pm3k+tm3k)+fIlm3r*(pm3r+tm3r) +fIlm3q*(pm3q+tm3q)+fIlm5*(pm5+tm5) +fIlm6m*(pm6m+tm6m)+fIlm6q*(pm6q+tm6q) +fIlm7b*(pm7b+tm7b)+fIlm7q*(pm7q+tm7q) +fIlm8*(pm8 +tm8)+ fIlm7y*(pm7y+tm7y) ) /fIl ) $ () () () INVESTERINGSPRISER () () FRML _I piba = kpiba*pibp $ FRML _I pibe = kpibe*pibp $ FRML _I pibng = kpibng*pibp $ FRML _I pibne = kpibne*pibp $ FRML _I pibnf = kpibnf*pibp $ FRML _I pibnn = kpibnn*pibp $ FRML _I pibnb = kpibnb*pibp $ FRML _I pibnm = kpibnm*pibp $ FRML _I pibnt = kpibnt*pibp $ FRML _I pibnk = kpibnk*pibp $ FRML _I pibnq = kpibnq*pibp $ FRML _I pibb = kpibb*pibp $ FRML _I pibqh = kpibqh*pibp $ FRML _I pibqs = kpibqs*pibp $ FRML _I pibqt = kpibqt*pibp $ FRML _I pibqf = kpibqf*pibp $ FRML _I pibqq = kpibqq*pibp $ FRML _I pibo = kpibo1*pibo11 $ FRML _I pima = kpima*pimp $ FRML _I pime = kpime*pimp $ FRML _I pimng = kpimng*pimp $ FRML _I pimne = kpimne*pimp $ FRML _I pimnf = kpimnf*pimp $ FRML _I pimnn = kpimnn*pimp $ FRML _I pimnb = kpimnb*pimp $ FRML _I pimnm = kpimnm*pimp $ FRML _I pimnt = kpimnt*pimp $ FRML _I pimnk = kpimnk*pimp $ FRML _I pimnq = kpimnq*pimp $ FRML _I pimb = kpimb*pimp $ FRML _I pimqh = kpimqh*pimp $ FRML _I pimqs = kpimqs*pimp $ FRML _I pimqt = kpimqt*pimp $ FRML _I pimqf = kpimqf*pimp $ FRML _I pimqq = kpimqq*pimp $ FRML _I pimh = kpimh*pimp $ FRML _I pimo = kpimo1*pimo11 $ FRML _GJRD pne0 = pe0 - Sipe0/fE0 $ FRML _GJ_D pe1 = ( anne1*pxnn + aqhe1*pxqh + am1e1*(pm1+tm1) )*kpe1 $ FRML _GJ_D pe2 = ( aae2*pxa + anfe2*pxnf + anbe2*pxnb + anme2*pxnm + anke2*pxnk + aqhe2*pxqh + am2e2*(pm2+tm2) )*kpe2 $ FRML _GJ_D pe3 = ( aee3*pxe + ange3*pxng + anee3*pxne + aqhe3*pxqh + am3ke3*(pm3k+tm3k) + am3re3*(pm3r+tm3r) + am3qe3*(pm3q+tm3q) )*kpe3 $ FRML _GJ_D pe5 = ( anfe5*pxnf + anke5*pxnk + aqhe5*pxqh + am5e5*(pm5+tm5) )*kpe5 $ FRML _GJ_D pe6 = ( anbe6*pxnb + anme6*pxnm + anke6*pxnk + anqe6*pxnq + aqhe6*pxqh + am6me6*(pm6m+tm6m) + am6qe6*(pm6q+tm6q) )*kpe6 $ FRML _GJ_D pne7y = ( ante7y*pxnt + am7ye7y*(pm7y+tm7y) )*kpne7y $ FRML _GJ_D pe7q = ( anme7q*pxnm + ante7q*pxnt + aqhe7q*pxqh + am7be7q*(pm7b+tm7b) + am7qe7q*(pm7q+tm7q) )*kpe7q $ FRML _GJ_D pe8 = ( anme8*pxnm + anke8*pxnk + anqe8*pxnq + aqhe8*pxqh + aqqe8*pxqq + am8e8*(pm8+tm8) )*kpe8 $ FRML _GJ_D pesq = ( aqhesq*pxqh +aqtesq*pxqt +aqfesq*pxqf +aqqesq*pxqq +aoesq*pxo)*kpesq $ FRML _GJ_D pess = pxqs*kpess $ FRML _GJ_D pes = (fEsq/fEs)*pesq+(fEss/fEs)*pess $ FRML _GJ_D pet = ( 0.25*pcf+0.14*pcn+0.05*pci+0.06*pcg +0.05*pcv+0.07*pck+0.38*pcs ) *kpet $ () () () Overgang fra nettopriser til priser () () FRML _G pcf = (1+btgf*tg)*(pncf+tpf) $ FRML _G pcn = (1+btgn*tg)*(pncn+tpn) $ FRML _G pci = (1+btgi*tg)*(pnci+tpi) $ FRML _G pce = (1+btge*tg)*(pnce+tpe) $ FRML _G pcg = (1+btgg*tg)*(pncg+tpg) $ FRML _G pcb = (1+btgb*tg)*(pncb+tpb)*(1+trb) $ FRML _G pcv = (1+btgv*tg)*(pncv+tpv) $ FRML _G pch = (1+btgh*tg)*(pnch+tph) $ FRML _G pck = (1+btgk*tg)*(pnck+tpk) $ FRML _G pcs = (1+btgs*tg)*(pncs+tps) $ FRML _G pimp11 = (1+btgimp1*tg)*(pnimp11+tpimp1)*(1+trimp1) $ FRML _G pimo11 = (1+btgimo1*tg)*(pnimo11+tpimo1) $ FRML _G pibp11 = (1+btgibp1*tg)*(pnibp11+tpibp1) $ FRML _G pibo11 = (1+btgibo1*tg)*(pnibo11+tpibo1) $ FRML _G pibh = (1+btgibh*tg)*(pnibh+tpibh) $ FRML _I pibp = pibp11*kpibp1 $ FRML _I pimp = pimp11*kpimp1 $ FRML _G pil = (1+btgil*tg)*(pnil+tpil) $ FRML _G pe7y = pne7y + Sipe7y/fE7y $ () () () PRISER PÅ ERHVERVENES ENERGIFORBRUG () () FRML _G pvea = (1+btgxa*tg)*(tvea+bhvea*pxqh + (anga*pxng + anea*pxne + am3ka*(pm3k+tm3k) + am3qa*(pm3q+tm3q) ) *kpvea*fXa/fVea) $ FRML _G pvee = (1+btgxe*tg)*(tvee+bhvee*pxqh + (ange*pxng + am3qe*(pm3q+tm3q) ) *kpvee*fXe/fVee) $ FRML _G pveng = (1+btgxng*tg)*(tveng+bhveng*pxqh + (aeng*pxe + angng*pxng + aneng*pxne + am3rng*(pm3r+tm3r) + am3qng*(pm3q+tm3q) ) *kpveng*fXng/fVeng) $ FRML _G pvene = (1+btgxne*tg)*(tvene+bhvene*pxqh + (aane*pxa + aene*pxe + angne*pxng + anene*pxne + am3kne*(pm3k+tm3k) + am3qne*(pm3q+tm3q) ) *kpvene*fXne/fVene) $ FRML _G pvenf = (1+btgxnf*tg)*(tvenf+bhvenf*pxqh + (angnf*pxng + anenf*pxne + am3knf*(pm3k+tm3k) + am3qnf*(pm3q+tm3q) ) *kpvenf*fXnf/fVenf) $ FRML _G pvenn = (1+btgxnn*tg)*(tvenn+bhvenn*pxqh + (angnn*pxng + anenn*pxne + am3knn*(pm3k+tm3k) + am3qnn*(pm3q+tm3q) ) *kpvenn*fXnn/fVenn) $ FRML _G pvenb = (1+btgxnb*tg)*(tvenb+bhvenb*pxqh + (angnb*pxng + anenb*pxne + am3knb*(pm3k+tm3k) + am3qnb*(pm3q+tm3q) ) *kpvenb*fXnb/fVenb) $ FRML _G pvenm = (1+btgxnm*tg)*(tvenm+bhvenm*pxqh + (angnm*pxng + anenm*pxne + am3qnm*(pm3q+tm3q) ) *kpvenm*fXnm/fVenm) $ FRML _G pvent = (1+btgxnt*tg)*(tvent+bhvent*pxqh + (angnt*pxng + anent*pxne + am3qnt*(pm3q+tm3q) ) *kpvent*fXnt/fVent) $ FRML _G pvenk = (1+btgxnk*tg)*(tvenk+bhvenk*pxqh + (angnk*pxng + anenk*pxne + am3qnk*(pm3q+tm3q) ) *kpvenk*fXnk/fVenk) $ FRML _G pvenq = (1+btgxnq*tg)*(tvenq+bhvenq*pxqh + (angnq*pxng + anenq*pxne + am3knq*(pm3k+tm3k) + am3qnq*(pm3q+tm3q) ) *kpvenq*fXnq/fVenq) $ FRML _G pveb = (1+btgxb*tg)*(tveb+bhveb*pxqh + (angb*pxng + aneb*pxne + am3qb*(pm3q+tm3q) ) *kpveb*fXb/fVeb) $ FRML _G pveqh = (1+btgxqh*tg)*(tveqh+bhveqh*pxqh + (angqh*pxng + aneqh*pxne + am3qqh*(pm3q+tm3q) ) *kpveqh*fXqh/fVeqh) $ FRML _G pveqs = (1+btgxqs*tg)*(tveqs+bhveqs*pxqh + (angqs*pxng + aneqs*pxne + am3qqs*(pm3q+tm3q) ) *kpveqs*fXqs/fVeqs) $ FRML _G pveqt = (1+btgxqt*tg)*(tveqt+bhveqt*pxqh + (angqt*pxng + aneqt*pxne + am3qqt*(pm3q+tm3q) ) *kpveqt*fXqt/fVeqt) $ FRML _G pveqf = (1+btgxqf*tg)*(tveqf+bhveqf*pxqh + (angqf*pxng + aneqf*pxne + am3qqf*(pm3q+tm3q) ) *kpveqf*fXqf/fVeqf) $ FRML _G pveqq = (1+btgxqq*tg)*(tveqq+bhveqq*pxqh + (angqq*pxng + aneqq*pxne + am3qqq*(pm3q+tm3q) ) *kpveqq*fXqq/fVeqq) $ FRML _G pveh = (1+btgxh*tg)*(tveh+bhveh*pxqh + (angh*pxng + aneh*pxne + am3qh*(pm3q+tm3q) )* kpveh*fXh/fVeh) $ FRML _G pveo = (1+btgxo*tg)*(tveo+bhveo*pxqh + (aeo*pxe + ango*pxng + aneo*pxne + am3ko*(pm3k+tm3k) + am3ro*(pm3r+tm3r) + am3qo*(pm3q+tm3q) ) *kpveo*fXo/fVeo) $ () ### LOEN.F05 ### () () () lØN () () FRML _D btyd1 = (Tyd/Ulfhk)/(lah1*(1-tsda)*0.001) $ FRML _D kqyfnl1 = (fYfnf+fYfnn+fYfnb+fYfnk+fYfnm+fYfnq+fYfnt)/ (Hqnf1+Hqnn1+Hqnb1+Hqnk1+Hqnm1+Hqnq1+Hqnt1) $ FRML _D pyfnl = (Yfnf+Yfnn+Yfnb+Yfnk+Yfnm+Yfnq+Yfnt)/ (fYfnf+fYfnn+fYfnb+fYfnk+fYfnm+fYfnq+fYfnt) $ FRML _DJ_D tss0u = tsda + (1-tsda)*(tss0 + tssp0) $ FRML _D tatp = Tpatpi/(Qw1*Hgwn*0.001) $ FRML _D lnap = lna1 + tatp $ FRML _SJRDF Dlog(lna1) = 0.6436*0.5*(Log(pxn)-Log(pxn(-2))) - Dlog((lna1+btatp*tatp)/lna1) + 0.2575*0.5*(Log(pcp/pxn)-Log(pcp(-2)/pxn(-2))) - 0.2575*0.5*(Log(1-tss0u)-Log(1-tss0u(-2))) - 1.1558*((1/3)*Dif(bul1)+(2/3)*Dif(bul1(-1))) + 0.1429*(Log(kqyfnl1)-Log(kqyfnl1(-1))) + 0.2126*(1-Ddtlnap)*(Log(dtlnap)-Log(dtlnap(-2))) - 0.2126*((Log(lnak1(-2)/(pyfnl(-2)*kqyfnl1(-2))) + 4.7150*bul1(-2) - 0.5809*btyd1(-2)*Ddtlnap - (1-Ddtlnap)*0.5809*btyd1e(-2) - (1-Ddtlnap)*Log(dtlnap(-2)))) +0.00003*D4795 + 0.00556 $ FRML _GJ_ lnakk1 = lna1 + tatp + (taqp1+tadf)*(1-bqn1/2)/Hgwn $ FRML _GJ_ lnak1 = lnakk1 + (tqu1+tiqab1)*(1-bqn1/2)/Hgwn $ FRML _GJ_ lah1 = lna1*Ha $ FRML _GJ_ lnahk1 = lnak1*Hgwn/(1-bqn1/2) $ FRML _GJDD loh1 = loh1(-1)*((lah1/lah1(-1))*(1+JRloh)) $ FRML _GJ_ lohkk1 = loh1 + (Tpatpi/(Qw1*.001)) $ FRML _GJ_ lohk1 = lohkk1 + 2/3*tqu1 + tiqab1 $ FRML _GJRD lih = lih(-1)*(lnap/lnap(-1)) $ FRML _I tiqab1 = Siqab/Qw1*1000 $ FRML _I Yw1 = Ywa1 +Ywe1+Ywng1+Ywne1+Ywnf1+Ywnn1+Ywnb1+Ywnm1 +Ywnt1+Ywnk1+Ywnq1+Ywb1+Ywqh1+Ywqs1+Ywqt1 +Ywqf1+Ywqq1+Ywh1+Ywo2 $ () ### TRANSF.F05 ### () INDKOMSTOVERFØRSLER Mv. () () Reguleringsindexks FRML _GJ_D Rlisa = ((lih(-2)*Ha(-2))/(lih(-3)*Ha(-3))-1)*(1-Dlisa) + Dlisa*(pcpn(-2)/pcpn(-3)-1) $ FRML _GJRD btb2 = (Tbhsl+Tbhsk+Tpatpi)/Ysda3 $ FRML _GJRD ptty1 = ptty1(-1)*(1+0.5*(Rlisa+Rlisa(-1)))*Dsr2 + ptty1(-1)*(1+Rlisa)*((1-tsda)/(1-tsda(-1))) *(1-btb2(-2))/(1-btb2(-3))*(1-Dsr2) $ () Dagpenge (Tyd) FRML _GJ_D Tyd = .001* ttyd1*ptty1*Ulfhk $ () Ledige på dagpenge () Uddannelse og aktiviering Mv (Tyu) FRML _GJ_D Tyuly = .001*ttyuly*ptty1*Uly $ () Ledighedsydelse FRML _GJ_D Tyuak = .001*ttyuak*ptty1*Uakx $ () Aktiverede udenfor arbejdsstyrken FRML _GJ_D Tyurev = .001*ttyurev*ptty1*Urev $ () Revalideringsydelsen FRML _GJ_D Tyusu = .001*ttyusu*ptty1*Usu $ () SU FRML _I Tyu = Tyuly + Tyuak + Tyurev + Tyusu $ () Midlertidig fraværende fra arbejdsstyrken (Tym) FRML _D Uss = Usxa + Qss $ FRML _GJ_D Tyms = .001*ttyms*ptty1*Uss $ () Sygedagpenge FRML _GJ_D Tymb = .001*ttymb*ptty1*Usb $ () Barselsdagpenge FRML _GJ_D Tymf = .001*ttymf*ptty1*Umf $ () Arbejdsmarkedsorlov FRML _I Tym = Tyms + Tymb + Tymf $ () Tilbagetrækning (Typ) FRML _GJ_D Typfp = .001*ttypfp*ptty1*(Ufpx+Qfp) $ () Folkepension FRML _GJ_D Typfo = .001*ttypfo*ptty1*(Ufox+Qfo) $ () Førtidspension FRML _GJ_D Typef = .001*ttypef*ptty1*Uef $ () Efterløn FRML _GJ_D Typov = .001*ttypov*ptty1*Uov $ () Overgangsydelse FRML _GJ_D Typt = Typtd*ptty1 $ () Tjenestemandspension FRML _GJ_D Typpt = Typptd*ptty1 $ () Personlige tillæg FRML _GJ_D Typdp = Typdpd*ptty1 $ () Delpension FRML _GJ_D Typi = Typid*ptty1 $ () Indekstillæg FRML _I Typr = Typt + Typpt + Typdp + Typi $ FRML _GJ_D Typri = Typt/ktypt $ () Imp. bidrag til tjenestemandspension FRML _I Typ = Typfp + Typfo + Typef + Typov + Typr $ () Øvrige (Tyr) FRML _D Usk = Ukxa + Ulu $ FRML _GJ_D Tyrks = .001*ttyrks*ptty1*Usk*(1-Dsr2) $ () Kontanthjælp skattepligtig FRML _GJ_D Tyrkr = Tyrkrd*ptty1*(1-Dsr2) + (.001*ttyk1*ptty1*Usk)*Dsr2 $ () Kontanthjælp ikke skattepligtig FRML _I Tyrk = Tyrks+Tyrkr $ FRML _GJ_D Tyrbf = 0.001*ptty1*ttyrbf*Ub $ () Børnefamilieydelse FRML _GJ_D Tyrhs = Tyrhsd*ptty1 $ () Boligsikring FRML _GJ_D Tyrhy = 0.001*ttyrhy*ptty1 *(Ufpx+Ufox+Qfp+Qfo) $ () Boligydelse FRML _I Tyrh = Tyrhs+Tyrhy $ FRML _GJ_D Tyrrs = Tyrrsd*ptty1 $ () Øvrige overførsler skattepligtig FRML _GJ_D Tyrrr = Tyrrrd*ptty1 $ () Øvrige overførsler ikke skattepligtig FRML _I Tyrr = Tyrrs +Tyrrr $ FRML _I Tyr = Tyrk + Tyrbf + Tyrh + Tyrr $ () Samleposter FRML _I Ty = Tyu+Tyd+Tym+Typ+Tyr $ () Indkomstoverførsler I alt FRML _I Tys = Ty-(Tyrkr+Tyrbf+Tyrh+Tyrrr) $ () heraf skattepligtig () ### SKAT.F05 ### () () () DIREKTE SKATTER Mv. () () FRML _GJDD pcrs1 = pcrs1(-1)*(1+Rlisa)*(1-btb2(-2))/(1-btb2(-3))*(1-tsda)/(1-tsda(-1)) $ FRML _GJ_D Yas = ( Yw1+Twen+Tys+Typshl+Tphhlu+Tpdmpu+Tpspu+Tpatpu -Sdu-Tpatpi/(1-tsda)-Saqp-Saqo-(Tbhsl+Tbhsk)/(1-tsda)-Typri)*kyas3 $ () Fordeling af A-indkomst på løn, dagpenge, efterløn, folkepension og øvrig a-indkomst FRML _GJ_D Yasw = kyas3*(Yw1+Twen-Typri) $ FRML _GJ_D Yasd = kyas3*Tyd $ FRML _GJ_D Yase = kyas3*(Typef+Typov)$ FRML _GJ_D Yasp = kyas3*Typfp $ FRML _D Yasr = Yas-(Yasw+Yasd+Yase+Yasp) $ () Indkomster og fradrag FRML _GJ_D Yspps = (Tpdmpi+Saqwy+Tpspi)*kyspps $ FRML _DJ_D Ivmps1 = bivmp0*pimp11*fImp11 + (1+D8291*(ptty1/ptty1(-1)-1)) *( (bivmp(-1)*(1-bivmp1(-1)) -(1-bivmp(-1))*bivmp0(-1) )*pimp11(-1)*fImp11(-1) +(1-(bivmp+bivmp(-1))/2)*Ivmps1(-1)*bivmp/bivmp(-1)) $ FRML _DJ_D Ivbps1 = bivbp0*pibp11*fIbp11 + (1+D8291*(ptty1/ptty1(-1)-1)) *( (bivbp(-1)*(bivbpw(-1)-bivbp0(-1)) -(1-bivbp(-1))*bivbp0(-1) )*pibp11(-1)*fIbp11(-1) +(1-(bivbp+bivbp(-1))/2)*Ivbps1(-1)*bivbp/bivbp(-1) ) $ FRML _D Ivps1 = Ivmps1 + Ivbps1 $ FRML _D Yrr2 = Yrp - 0.85*Yrh1 - (Iph/(I-Io11))*Ivps1 $ FRML _GJ_D Yrpss1 = (0.5*Yrr2+0.5*Yrr2(-1))*kyrpss3 $ FRML _GJ_D Yrphs = phv*fKnbhe(-1)*tsdl*kyrphs $ FRML _GJ_D Tippps1 = Tippp*ktippps1 $ FRML _DJ_D Ysp = Yas+Yrpss1-ktops1*(Tphhli+Tphhki)-ksdas1*(Sda-tsda*(Tbhsk+Tbhsl))-Yspps+ kysprs2*(Yw1+Yrr2) $ FRML _DJ_D Ys = Ysp + Yrphs + Tippps1 - (Safm + kylws1*Yw1) - kyl3s2*(Yw1+Yrr2) + kysrs3*(Yw1+Yrr2) $ () Selvstændige (S) () """""""""""""""" FRML _GJ_D Ussy = kussy*(Q1-Qw1) $ FRML _GJ_D Ysps = kkysp*kysps*(.017*Yasw+.000*Yasd+.000*Yase+.000*Yasp+.036*Yasr +.852*Yrpss1-.260*ktops1*(Tphhli+Tphhki) -.032*ksdas1*(Sda-tsda*(Tbhsk+Tbhsl)) -.032*Yspps+.034*kysprs2*(Yw1+Yrr2) ) $ FRML _GJ_D Yss = kkys*kyss*(Ysps +.033*(Yrphs+Tippps1)-.017*(Safm + kylws1*Yw1) -.034*kyl3s2*(Yw1+Yrr2)+.034*kysrs3*(Yw1+Yrr2) ) $ FRML _D kbysps = ((Ysps*Ussye+(1-Dsk2))*pcrs1e-(Yspse*Ussy+(1-Dsk2))*pcrs1)/((Yspse*Ussy+(1-Dsk2))*pcrs1) $ FRML _D kbyss = ((Yss*Ussye+(1-Dsk2))*pcrs1e-(Ysse*Ussy+(1-Dsk2))*pcrs1)/((Ysse*Ussy+(1-Dsk2))*pcrs1) $ FRML _G Ysps1 = (bysp10s+100*bysp11s*kbysps)*Ysps $ FRML _G Ysps2 = (bysp20s+100*bysp21s*kbysps)*Ysps $ FRML _G Ysps3 = (bysp30s+100*bysp31s*kbysps)*Ysps $ FRML _G Ysps4 = (bysp40s+100*bysp41s*kbysps)*Ysps $ FRML _G Ysps5 = (bysp50s+100*bysp51s*kbysps)*Ysps $ FRML _G Yss1 = (bys10s+100*bys11s*kbyss)*Yss $ FRML _G Yss2 = (bys20s+100*bys21s*kbyss)*Yss $ FRML _G Yss3 = (bys30s+100*bys31s*kbyss)*Yss $ FRML _G Yss4 = (bys40s+100*bys41s*kbyss)*Yss $ FRML _G Yss5 = (bys50s+100*bys51s*kbyss)*Yss $ FRML _G Ssysps1 = tsysp1*Ysps1 $ FRML _G Ssysps2 = tsysp2*Ysps2 $ FRML _G Ssysps3 = tsysp3*Ysps3 $ FRML _G Ssysps4 = tsysp4*Ysps4 $ FRML _G Ssysps5 = tsysp5*Ysps5 $ FRML _D Ssysps = Ssysps1+Ssysps2+Ssysps3+Ssysps4+Ssysps5 $ FRML _G Ssyss1 = tsys1*Yss1 $ FRML _G Ssyss2 = tsys2*Yss2 $ FRML _G Ssyss3 = tsys3*Yss3 $ FRML _G Ssyss4 = tsys4*Yss4 $ FRML _G Ssyss5 = tsys5*Yss5 $ FRML _D Ssyss = Ssyss1+Ssyss2+Ssyss3+Ssyss4+Ssyss5 $ () lønmodtagere (w) () """""""""""""""" FRML _GJ_D Uwsy = kuwsy*Qw1 $ FRML _GJ_D Yspw = kkysp*kyspw*(.969*Yasw+.421*Yasd+.000*Yase+.000*Yasp+.192*Yasr +.127*Yrpss1-.581*ktops1*(Tphhli+Tphhki) -.953*ksdas1*(Sda-tsda*(Tbhsk+Tbhsl)) -.953*Yspps+.951*kysprs2*(Yw1+Yrr2) ) $ FRML _GJ_D Ysw = kkys*kysw*(Yspw +1.003*(Yrphs+Tippps1)-.969*(Safm + kylws1*Yw1) -.951*kyl3s2*(Yw1+Yrr2)+.951*kysrs3*(Yw1+Yrr2) ) $ FRML _D kbyspw = ((Yspw*Uwsye+(1-Dsk2))*pcrs1e-(Yspwe*Uwsy+(1-Dsk2))*pcrs1)/((Yspwe*Uwsy+(1-Dsk2))*pcrs1) $ FRML _D kbysw = ((Ysw*Uwsye+(1-Dsk2))*pcrs1e-(Yswe*Uwsy+(1-Dsk2))*pcrs1)/((Yswe*Uwsy+(1-Dsk2))*pcrs1) $ FRML _G Yspw1 = (bysp10w+100*bysp11w*kbyspw)*Yspw $ FRML _G Yspw2 = (bysp20w+100*bysp21w*kbyspw)*Yspw $ FRML _G Yspw3 = (bysp30w+100*bysp31w*kbyspw)*Yspw $ FRML _G Yspw4 = (bysp40w+100*bysp41w*kbyspw)*Yspw $ FRML _G Yspw5 = (bysp50w+100*bysp51w*kbyspw)*Yspw $ FRML _G Ysw1 = (bys10w+100*bys11w*kbysw)*Ysw $ FRML _G Ysw2 = (bys20w+100*bys21w*kbysw)*Ysw $ FRML _G Ysw3 = (bys30w+100*bys31w*kbysw)*Ysw $ FRML _G Ysw4 = (bys40w+100*bys41w*kbysw)*Ysw $ FRML _G Ysw5 = (bys50w+100*bys51w*kbysw)*Ysw $ FRML _G Ssyspw1 = tsysp1*Yspw1 $ FRML _G Ssyspw2 = tsysp2*Yspw2 $ FRML _G Ssyspw3 = tsysp3*Yspw3 $ FRML _G Ssyspw4 = tsysp4*Yspw4 $ FRML _G Ssyspw5 = tsysp5*Yspw5 $ FRML _D Ssyspw = Ssyspw1+Ssyspw2+Ssyspw3+Ssyspw4+Ssyspw5 $ FRML _G Ssysw1 = tsys1*Ysw1 $ FRML _G Ssysw2 = tsys2*Ysw2 $ FRML _G Ssysw3 = tsys3*Ysw3 $ FRML _G Ssysw4 = tsys4*Ysw4 $ FRML _G Ssysw5 = tsys5*Ysw5 $ FRML _D Ssysw = Ssysw1+Ssysw2+Ssysw3+Ssysw4+Ssysw5 $ () Dagpengemodtagere (l) () """"""""""""""""""""" FRML _GJ_D Ulsy = kulsy*Ul $ FRML _GJ_D Yspl = kkysp*kyspl*(.005*Yasw+.579*Yasd+.000*Yase+.000*Yasp+.013*Yasr +.000*Yrpss1-.086*ktops1*(Tphhli+Tphhki) -.006*ksdas1*(Sda-tsda*(Tbhsk+Tbhsl)) -.006*Yspps+.006*kysprs2*(Yw1+Yrr2) ) $ FRML _GJ_D Ysl = kkys*kysl*(Yspl +.021*(Yrphs+Tippps1)-.005*(Safm + kylws1*Yw1) -.006*kyl3s2*(Yw1+Yrr2)+.006*kysrs3*(Yw1+Yrr2) ) $ FRML _D kbyspl = ((Yspl*Ulsye+(1-Dsk2))*pcrs1e-(Ysple*Ulsy+(1-Dsk2))*pcrs1)/((Ysple*Ulsy+(1-Dsk2))*pcrs1) $ FRML _D kbysl = ((Ysl*Ulsye+(1-Dsk2))*pcrs1e-(Ysle*Ulsy+(1-Dsk2))*pcrs1)/((Ysle*Ulsy+(1-Dsk2))*pcrs1) $ FRML _G Yspl1 = (bysp10l+100*bysp11l*kbyspl)*Yspl $ FRML _G Yspl2 = (bysp20l+100*bysp21l*kbyspl)*Yspl $ FRML _G Yspl3 = (bysp30l+100*bysp31l*kbyspl)*Yspl $ FRML _G Yspl4 = (bysp40l+100*bysp41l*kbyspl)*Yspl $ FRML _G Yspl5 = (bysp50l+100*bysp51l*kbyspl)*Yspl $ FRML _G Ysl1 = (bys10l+100*bys11l*kbysl)*Ysl $ FRML _G Ysl2 = (bys20l+100*bys21l*kbysl)*Ysl $ FRML _G Ysl3 = (bys30l+100*bys31l*kbysl)*Ysl $ FRML _G Ysl4 = (bys40l+100*bys41l*kbysl)*Ysl $ FRML _G Ysl5 = (bys50l+100*bys51l*kbysl)*Ysl $ FRML _G Ssyspl1 = tsysp1*Yspl1 $ FRML _G Ssyspl2 = tsysp2*Yspl2 $ FRML _G Ssyspl3 = tsysp3*Yspl3 $ FRML _G Ssyspl4 = tsysp4*Yspl4 $ FRML _G Ssyspl5 = tsysp5*Yspl5 $ FRML _D Ssyspl = Ssyspl1+Ssyspl2+Ssyspl3+Ssyspl4+Ssyspl5 $ FRML _G Ssysl1 = tsys1*Ysl1 $ FRML _G Ssysl2 = tsys2*Ysl2 $ FRML _G Ssysl3 = tsys3*Ysl3 $ FRML _G Ssysl4 = tsys4*Ysl4 $ FRML _G Ssysl5 = tsys5*Ysl5 $ FRML _D Ssysl = Ssysl1+Ssysl2+Ssysl3+Ssysl4+Ssysl5 $ () Efterlønnere (ef) () """"""""""""""""" FRML _GJ_D Uefsy = kuefsy*(Uef+Uov) $ FRML _GJ_D Yspef = kkysp*kyspef*(.001*Yasw+.000*Yasd+1.00*Yase+.000*Yasp+.057*Yasr +.000*Yrpss1-.000*ktops1*(Tphhli+Tphhki) -.001*ksdas1*(Sda-tsda*(Tbhsk+Tbhsl)) -.001*Yspps+.001*kysprs2*(Yw1+Yrr2) ) $ FRML _GJ_D Ysef = kkys*kysef*(Yspef +.010*(Yrphs+Tippps1)-.001*(Safm + kylws1*Yw1) -.001*kyl3s2*(Yw1+Yrr2)+.001*kysrs3*(Yw1+Yrr2) ) $ FRML _D kbyspef = ((Yspef*Uefsye+(1-Dsk2))*pcrs1e-(Yspefe*Uefsy+(1-Dsk2))*pcrs1)/((Yspefe*Uefsy+(1-Dsk2))*pcrs1) $ FRML _D kbysef = ((Ysef*Uefsye+(1-Dsk2))*pcrs1e-(Ysefe*Uefsy+(1-Dsk2))*pcrs1)/((Ysefe*Uefsy+(1-Dsk2))*pcrs1) $ FRML _G Yspef1 = (bysp10ef+100*bysp11ef*kbyspef)*Yspef $ FRML _G Yspef2 = (bysp20ef+100*bysp21ef*kbyspef)*Yspef $ FRML _G Yspef3 = (bysp30ef+100*bysp31ef*kbyspef)*Yspef $ FRML _G Yspef4 = (bysp40ef+100*bysp41ef*kbyspef)*Yspef $ FRML _G Yspef5 = (bysp50ef+100*bysp51ef*kbyspef)*Yspef $ FRML _G Ysef1 = (bys10ef+100*bys11ef*kbysef)*Ysef $ FRML _G Ysef2 = (bys20ef+100*bys21ef*kbysef)*Ysef $ FRML _G Ysef3 = (bys30ef+100*bys31ef*kbysef)*Ysef $ FRML _G Ysef4 = (bys40ef+100*bys41ef*kbysef)*Ysef $ FRML _G Ysef5 = (bys50ef+100*bys51ef*kbysef)*Ysef $ FRML _G Ssyspef1 = tsysp1*Yspef1 $ FRML _G Ssyspef2 = tsysp2*Yspef2 $ FRML _G Ssyspef3 = tsysp3*Yspef3 $ FRML _G Ssyspef4 = tsysp4*Yspef4 $ FRML _G Ssyspef5 = tsysp5*Yspef5 $ FRML _D Ssyspef = Ssyspef1+Ssyspef2+Ssyspef3+Ssyspef4+Ssyspef5 $ FRML _G Ssysef1 = tsys1*Ysef1 $ FRML _G Ssysef2 = tsys2*Ysef2 $ FRML _G Ssysef3 = tsys3*Ysef3 $ FRML _G Ssysef4 = tsys4*Ysef4 $ FRML _G Ssysef5 = tsys5*Ysef5 $ FRML _D Ssysef = Ssysef1+Ssysef2+Ssysef3+Ssysef4+Ssysef5 $ () Pensionister (fp) () """"""""""""""""" FRML _GJ_D Ufpsy = kufpsy*Ufpx $ FRML _GJ_D Yspfp = kkysp*kyspfp*(.001*Yasw+.000*Yasd+.000*Yase+1.00*Yasp+.045*Yasr +.021*Yrpss1-.000*ktops1*(Tphhli+Tphhki) -.001*ksdas1*(Sda-tsda*(Tbhsk+Tbhsl)) -.001*Yspps+.001*kysprs2*(Yw1+Yrr2) ) $ FRML _GJ_D Ysfp = kkys*kysfp*(Yspfp -.108*(Yrphs+Tippps1)-.001*(Safm + kylws1*Yw1) -.001*kyl3s2*(Yw1+Yrr2)+.001*kysrs3*(Yw1+Yrr2) ) $ FRML _D kbyspfp = ((Yspfp*Ufpsye+(1-Dsk2))*pcrs1e-(Yspfpe*Ufpsy+(1-Dsk2))*pcrs1)/((Yspfpe*Ufpsy+(1-Dsk2))*pcrs1) $ FRML _D kbysfp = ((Ysfp*Ufpsye+(1-Dsk2))*pcrs1e-(Ysfpe*Ufpsy+(1-Dsk2))*pcrs1)/((Ysfpe*Ufpsy+(1-Dsk2))*pcrs1) $ FRML _G Yspfp1 = (bysp10fp+100*bysp11fp*kbyspfp)*Yspfp $ FRML _G Yspfp2 = (bysp20fp+100*bysp21fp*kbyspfp)*Yspfp $ FRML _G Yspfp3 = (bysp30fp+100*bysp31fp*kbyspfp)*Yspfp $ FRML _G Yspfp4 = (bysp40fp+100*bysp41fp*kbyspfp)*Yspfp $ FRML _G Yspfp5 = (bysp50fp+100*bysp51fp*kbyspfp)*Yspfp $ FRML _G Ysfp1 = (bys10fp+100*bys11fp*kbysfp)*Ysfp $ FRML _G Ysfp2 = (bys20fp+100*bys21fp*kbysfp)*Ysfp $ FRML _G Ysfp3 = (bys30fp+100*bys31fp*kbysfp)*Ysfp $ FRML _G Ysfp4 = (bys40fp+100*bys41fp*kbysfp)*Ysfp $ FRML _G Ysfp5 = (bys50fp+100*bys51fp*kbysfp)*Ysfp $ FRML _G Ssyspfp1 = tsysp1*Yspfp1 $ FRML _G Ssyspfp2 = tsysp2*Yspfp2 $ FRML _G Ssyspfp3 = tsysp3*Yspfp3 $ FRML _G Ssyspfp4 = tsysp4*Yspfp4 $ FRML _G Ssyspfp5 = tsysp5*Yspfp5 $ FRML _D Ssyspfp = Ssyspfp1+Ssyspfp2+Ssyspfp3+Ssyspfp4+Ssyspfp5 $ FRML _G Ssysfp1 = tsys1*Ysfp1 $ FRML _G Ssysfp2 = tsys2*Ysfp2 $ FRML _G Ssysfp3 = tsys3*Ysfp3 $ FRML _G Ssysfp4 = tsys4*Ysfp4 $ FRML _G Ssysfp5 = tsys5*Ysfp5 $ FRML _D Ssysfp = Ssysfp1+Ssysfp2+Ssysfp3+Ssysfp4+Ssysfp5 $ () Øvrige (Q) () """""""""" FRML _GJ_D Uqsy = kuqsy*(Uwxa-Uef-Uov) $ FRML _GJ_D Yspq = kkysp*kyspq*(.007*Yasw+.000*Yasd+.000*Yase+.000*Yasp+.647*Yasr +.000*Yrpss1-.073*ktops1*(Tphhli+Tphhki) -.007*ksdas1*(Sda-tsda*(Tbhsk+Tbhsl)) -.007*Yspps+.007*kysprs2*(Yw1+Yrr2) ) $ FRML _GJ_D Ysq = kkys*kysq*(Yspq +.041*(Yrphs+Tippps1)-.007*(Safm + kylws1*Yw1) -.007*kyl3s2*(Yw1+Yrr2)+.007*kysrs3*(Yw1+Yrr2) ) $ FRML _D kbyspq = ((Yspq*Uqsye+(1-Dsk2))*pcrs1e-(Yspqe*Uqsy+(1-Dsk2))*pcrs1)/((Yspqe*Uqsy+(1-Dsk2))*pcrs1) $ FRML _D kbysq = ((Ysq*Uqsye+(1-Dsk2))*pcrs1e-(Ysqe*Uqsy+(1-Dsk2))*pcrs1)/((Ysqe*Uqsy+(1-Dsk2))*pcrs1) $ FRML _G Yspq1 = (bysp10q+100*bysp11q*kbyspq)*Yspq $ FRML _G Yspq2 = (bysp20q+100*bysp21q*kbyspq)*Yspq $ FRML _G Yspq3 = (bysp30q+100*bysp31q*kbyspq)*Yspq $ FRML _G Yspq4 = (bysp40q+100*bysp41q*kbyspq)*Yspq $ FRML _G Yspq5 = (bysp50q+100*bysp51q*kbyspq)*Yspq $ FRML _G Ysq1 = (bys10q+100*bys11q*kbysq)*Ysq $ FRML _G Ysq2 = (bys20q+100*bys21q*kbysq)*Ysq $ FRML _G Ysq3 = (bys30q+100*bys31q*kbysq)*Ysq $ FRML _G Ysq4 = (bys40q+100*bys41q*kbysq)*Ysq $ FRML _G Ysq5 = (bys50q+100*bys51q*kbysq)*Ysq $ FRML _G Ssyspq1 = tsysp1*Yspq1 $ FRML _G Ssyspq2 = tsysp2*Yspq2 $ FRML _G Ssyspq3 = tsysp3*Yspq3 $ FRML _G Ssyspq4 = tsysp4*Yspq4 $ FRML _G Ssyspq5 = tsysp5*Yspq5 $ FRML _D Ssyspq = Ssyspq1+Ssyspq2+Ssyspq3+Ssyspq4+Ssyspq5 $ FRML _G Ssysq1 = tsys1*Ysq1 $ FRML _G Ssysq2 = tsys2*Ysq2 $ FRML _G Ssysq3 = tsys3*Ysq3 $ FRML _G Ssysq4 = tsys4*Ysq4 $ FRML _G Ssysq5 = tsys5*Ysq5 $ FRML _D Ssysq = Ssysq1+Ssysq2+Ssysq3+Ssysq4+Ssysq5 $ FRML _D____Z kkysp = kkysp*(1-D4799) + 1 - ((Ysps+Yspw+Yspl+Yspef+Yspfp+Yspq)/Ysp)*(1-D4799) $ FRML _D____Z kkys = kkys*(1-D4799) + 1 - ((Yss+Ysw+Ysl+Ysef+Ysfp+Ysq)/Ys)*(1-D4799) $ () Alle () Uw+Ufp burde Være Uw+Ufpxa (? udenfor dk) FRML _G Usy = (1-Dusy)*((1-Dsk2)*((Uw+Ufpx)*kusy2*(1-Dsk1)+Dsk1*(Ua1+Ufpx+Ufox+Uef+Uov+Umf)*kusy1) +Dsk2*(Ussy+Uwsy+Ulsy+Uefsy+Ufpsy+Uqsy)+Jusy) +Dusy*Zusy$ FRML _G bysp10 = Dsk2*((bysp10s*Ysps+bysp10w*Yspw+bysp10l*Yspl+bysp10ef*Yspef+bysp10fp*Yspfp+bysp10q*Yspq)/Ysp) +(1-Dsk2)*bysp10e $ FRML _G bysp20 = Dsk2*((bysp20s*Ysps+bysp20w*Yspw+bysp20l*Yspl+bysp20ef*Yspef+bysp20fp*Yspfp+bysp20q*Yspq)/Ysp) +(1-Dsk2)*bysp20e $ FRML _G bysp30 = Dsk2*((bysp30s*Ysps+bysp30w*Yspw+bysp30l*Yspl+bysp30ef*Yspef+bysp30fp*Yspfp+bysp30q*Yspq)/Ysp) +(1-Dsk2)*bysp30e $ FRML _G bysp40 = Dsk2*((bysp40s*Ysps+bysp40w*Yspw+bysp40l*Yspl+bysp40ef*Yspef+bysp40fp*Yspfp+bysp40q*Yspq)/Ysp) +(1-Dsk2)*bysp40e $ FRML _G bysp50 = Dsk2*((bysp50s*Ysps+bysp50w*Yspw+bysp50l*Yspl+bysp50ef*Yspef+bysp50fp*Yspfp+bysp50q*Yspq)/Ysp) +(1-Dsk2)*bysp50e $ FRML _G bysp11 = Dsk2*((bysp11s*Ysps+bysp11w*Yspw+bysp11l*Yspl+bysp11ef*Yspef+bysp11fp*Yspfp+bysp11q*Yspq)/Ysp+Jbysp11) +(1-Dsk2)*bysp11e $ FRML _G bysp21 = Dsk2*((bysp21s*Ysps+bysp21w*Yspw+bysp21l*Yspl+bysp21ef*Yspef+bysp21fp*Yspfp+bysp21q*Yspq)/Ysp+Jbysp21) +(1-Dsk2)*bysp21e $ FRML _G bysp31 = Dsk2*((bysp31s*Ysps+bysp31w*Yspw+bysp31l*Yspl+bysp31ef*Yspef+bysp31fp*Yspfp+bysp31q*Yspq)/Ysp+Jbysp31) +(1-Dsk2)*bysp31e $ FRML _G bysp41 = Dsk2*((bysp41s*Ysps+bysp41w*Yspw+bysp41l*Yspl+bysp41ef*Yspef+bysp41fp*Yspfp+bysp41q*Yspq)/Ysp+Jbysp41) +(1-Dsk2)*bysp41e $ FRML _G bysp51 = Dsk2*((bysp51s*Ysps+bysp51w*Yspw+bysp51l*Yspl+bysp51ef*Yspef+bysp51fp*Yspfp+bysp51q*Yspq)/Ysp+Jbysp51) +(1-Dsk2)*bysp51e $ FRML _G bys10 = Dsk2*((bys10s*Yss+bys10w*Ysw+bys10l*Ysl+bys10ef*Ysef+bys10fp*Ysfp+bys10q*Ysq)/Ys) +(1-Dsk2)*bys10e $ FRML _G bys20 = Dsk2*((bys20s*Yss+bys20w*Ysw+bys20l*Ysl+bys20ef*Ysef+bys20fp*Ysfp+bys20q*Ysq)/Ys) +(1-Dsk2)*bys20e $ FRML _G bys30 = Dsk2*((bys30s*Yss+bys30w*Ysw+bys30l*Ysl+bys30ef*Ysef+bys30fp*Ysfp+bys30q*Ysq)/Ys) +(1-Dsk2)*bys30e $ FRML _G bys40 = Dsk2*((bys40s*Yss+bys40w*Ysw+bys40l*Ysl+bys40ef*Ysef+bys40fp*Ysfp+bys40q*Ysq)/Ys) +(1-Dsk2)*bys40e $ FRML _G bys50 = Dsk2*((bys50s*Yss+bys50w*Ysw+bys50l*Ysl+bys50ef*Ysef+bys50fp*Ysfp+bys50q*Ysq)/Ys) +(1-Dsk2)*bys50e $ FRML _G bys11 = Dsk2*((bys11s*Yss+bys11w*Ysw+bys11l*Ysl+bys11ef*Ysef+bys11fp*Ysfp+bys11q*Ysq)/Ys+Jbys11) +(1-Dsk2)*bys11e $ FRML _G bys21 = Dsk2*((bys21s*Yss+bys21w*Ysw+bys21l*Ysl+bys21ef*Ysef+bys21fp*Ysfp+bys21q*Ysq)/Ys+Jbys21) +(1-Dsk2)*bys21e $ FRML _G bys31 = Dsk2*((bys31s*Yss+bys31w*Ysw+bys31l*Ysl+bys31ef*Ysef+bys31fp*Ysfp+bys31q*Ysq)/Ys+Jbys31) +(1-Dsk2)*bys31e $ FRML _G bys41 = Dsk2*((bys41s*Yss+bys41w*Ysw+bys41l*Ysl+bys41ef*Ysef+bys41fp*Ysfp+bys41q*Ysq)/Ys+Jbys41) +(1-Dsk2)*bys41e $ FRML _G bys51 = Dsk2*((bys51s*Yss+bys51w*Ysw+bys51l*Ysl+bys51ef*Ysef+bys51fp*Ysfp+bys51q*Ysq)/Ys+Jbys51) +(1-Dsk2)*bys51e $ () Udskrivningsgrundlag () Personlig indkomst FRML _D kbysp1 = (1-Dsk2)*(((Ysp+D93)*Usye*pcrs1e-(Yspe+D93)*Usy*pcrs1)/((Yspe+D93)*Usy*pcrs1)+Jkbysp1) +Dsk2*(((Ysp1/Ysp)-bysp10)/(100*bysp11+10**(-15))) $ FRML _D kbysp2 = (1-Dsk2)*(((Ysp+D93)*Usye*pcrs1e-(Yspe+D93)*Usy*pcrs1)/((Yspe+D93)*Usy*pcrs1)+Jkbysp2) +Dsk2*(((Ysp2/Ysp)-bysp20)/(100*bysp21+10**(-15))) $ FRML _D kbysp3 = (1-Dsk2)*(((Ysp+D93)*Usye*pcrs1e-(Yspe+D93)*Usy*pcrs1)/((Yspe+D93)*Usy*pcrs1)+Jkbysp3) +Dsk2*(((Ysp3/Ysp)-bysp30)/(100*bysp31+10**(-15))) $ FRML _D kbysp4 = (1-Dsk2)*(((Ysp+D93)*Usye*pcrs1e-(Yspe+D93)*Usy*pcrs1)/((Yspe+D93)*Usy*pcrs1)+Jkbysp4) +Dsk2*(((Ysp4/Ysp)-bysp40)/(100*bysp41+10**(-15))) $ FRML _D kbysp5 = (1-Dsk2)*(((Ysp+D93)*Usye*pcrs1e-(Yspe+D93)*Usy*pcrs1)/((Yspe+D93)*Usy*pcrs1)+Jkbysp5) +Dsk2*(((Ysp5/Ysp)-bysp50)/(100*bysp51+10**(-15))) $ FRML _GJ_D Ysp1 = (1-Dsk2)*(bysp10+100*bysp11*kbysp1)*Ysp + Dsk2*(Ysps1+Yspw1+Yspl1+Yspef1+Yspfp1+Yspq1) $ FRML _GJ_D Ysp2 = (1-Dsk2)*(bysp20+100*bysp21*kbysp2)*Ysp + Dsk2*(Ysps2+Yspw2+Yspl2+Yspef2+Yspfp2+Yspq2) $ FRML _GJ_D Ysp3 = (1-Dsk2)*(bysp30+100*bysp31*kbysp3)*Ysp + Dsk2*(Ysps3+Yspw3+Yspl3+Yspef3+Yspfp3+Yspq3) $ FRML _GJ_D Ysp4 = (1-Dsk2)*(bysp40+100*bysp41*kbysp4)*Ysp + Dsk2*(Ysps4+Yspw4+Yspl4+Yspef4+Yspfp4+Yspq4) $ FRML _GJ_D Ysp5 = (1-Dsk2)*(bysp50+100*bysp51*kbysp5)*Ysp + Dsk2*(Ysps5+Yspw5+Yspl5+Yspef5+Yspfp5+Yspq5) $ () Skattepligtig indkomst FRML _D kbys1 = (1-Dsk2)*((Ys*Usye*pcrs1e-Yse*Usy*pcrs1)/(Yse*Usy*pcrs1)+Jkbys1) +Dsk2*(((Ys1/Ys)-bys10)/(100*bys11+10**(-15))) $ FRML _D kbys2 = (1-Dsk2)*((Ys*Usye*pcrs1e-Yse*Usy*pcrs1)/(Yse*Usy*pcrs1)+Jkbys2) +Dsk2*(((Ys2/Ys)-bys20)/(100*bys21+10**(-15))) $ FRML _D kbys3 = (1-Dsk2)*((Ys*Usye*pcrs1e-Yse*Usy*pcrs1)/(Yse*Usy*pcrs1)+Jkbys3) +Dsk2*(((Ys3/Ys)-bys30)/(100*bys31+10**(-15))) $ FRML _D kbys4 = (1-Dsk2)*((Ys*Usye*pcrs1e-Yse*Usy*pcrs1)/(Yse*Usy*pcrs1)+Jkbys4) +Dsk2*(((Ys4/Ys)-bys40)/(100*bys41+10**(-15))) $ FRML _D kbys5 = (1-Dsk2)*((Ys*Usye*pcrs1e-Yse*Usy*pcrs1)/(Yse*Usy*pcrs1)+Jkbys5) +Dsk2*(((Ys5/Ys)-bys50)/(100*bys51+10**(-15))) $ FRML _GJ_D Ys1 = (1-Dsk2)*(bys10+100*bys11*kbys1)*Ys + Dsk2*(Yss1+Ysw1+Ysl1+Ysef1+Ysfp1+Ysq1) $ FRML _GJ_D Ys2 = (1-Dsk2)*(bys20+100*bys21*kbys2)*Ys + Dsk2*(Yss2+Ysw2+Ysl2+Ysef2+Ysfp2+Ysq2) $ FRML _GJ_D Ys3 = (1-Dsk2)*(bys30+100*bys31*kbys3)*Ys + Dsk2*(Yss3+Ysw3+Ysl3+Ysef3+Ysfp3+Ysq3) $ FRML _GJ_D Ys4 = (1-Dsk2)*(bys40+100*bys41*kbys4)*Ys + Dsk2*(Yss4+Ysw4+Ysl4+Ysef4+Ysfp4+Ysq4) $ FRML _GJ_D Ys5 = (1-Dsk2)*(bys50+100*bys51*kbys5)*Ys + Dsk2*(Yss5+Ysw5+Ysl5+Ysef5+Ysfp5+Ysq5) $ () Slutskatter, personlig indkomst FRML _GJ_D Ssysp1 = (1-Dsk2)*tsysp1*Ysp1*(1+JRssysp1) +Dsk2*(Ssysps1+Ssyspw1+Ssyspl1+Ssyspef1+Ssyspfp1+Ssyspq1) $ FRML _GJ_D Ssysp2 = (1-Dsk2)*tsysp2*Ysp2*(1+JRssysp2) +Dsk2*(Ssysps2+Ssyspw2+Ssyspl2+Ssyspef2+Ssyspfp2+Ssyspq2) $ FRML _GJ_D Ssysp3 = (1-Dsk2)*tsysp3*Ysp3*(1+JRssysp3) +Dsk2*(Ssysps3+Ssyspw3+Ssyspl3+Ssyspef3+Ssyspfp3+Ssyspq3) $ FRML _GJ_D Ssysp4 = (1-Dsk2)*tsysp4*Ysp4*(1+JRssysp3) +Dsk2*(Ssysps4+Ssyspw4+Ssyspl4+Ssyspef4+Ssyspfp4+Ssyspq4) $ FRML _GJ_D Ssysp5 = (1-Dsk2)*tsysp5*Ysp5*(1+JRssysp3) +Dsk2*(Ssysps5+Ssyspw5+Ssyspl5+Ssyspef5+Ssyspfp5+Ssyspq5) $ () Slutskatter, skattepligtig indkomst FRML _GJ_D Ssys1 = (1-Dsk2)*tsys1*Ys1*(1+JRssys1) +Dsk2*(Ssyss1+Ssysw1+Ssysl1+Ssysef1+Ssysfp1+Ssysq1) $ FRML _GJ_D Ssys2 = (1-Dsk2)*tsys2*Ys2*(1+JRssys2) +Dsk2*(Ssyss2+Ssysw2+Ssysl2+Ssysef2+Ssysfp2+Ssysq2) $ FRML _GJ_D Ssys3 = (1-Dsk2)*tsys3*Ys3*(1+JRssys3) +Dsk2*(Ssyss3+Ssysw3+Ssysl3+Ssysef3+Ssysfp3+Ssysq3) $ FRML _GJ_D Ssys4 = (1-Dsk2)*tsys4*Ys4*(1+JRssys4) +Dsk2*(Ssyss4+Ssysw4+Ssysl4+Ssysef4+Ssysfp4+Ssysq4) $ FRML _GJ_D Ssys5 = (1-Dsk2)*tsys5*Ys5*(1+JRssys5) +Dsk2*(Ssyss5+Ssysw5+Ssysl5+Ssysef5+Ssysfp5+Ssysq5) $ () Makrosatser FRML _G tssp0 = (1-Dsk1)*(tsysp1*bysp10+tsysp2*bysp20+tsysp3*bysp30+tsysp4*bysp40+tsysp5*bysp50) +Dsk1*tssp0e $ FRML _G tssp1 = (1-Dsk1)*100*(tsysp1*bysp11+tsysp2*bysp21+tsysp3*bysp31+tsysp4*bysp41+tsysp5*bysp51) +Dsk1*tssp1e $ FRML _G tss0 = (1-Dsk1)*(tsys1*bys10+tsys2*bys20+tsys3*bys30+tsys4*bys40+tsys5*bys50) +Dsk1*tss0e $ FRML _G tss1 = (1-Dsk1)*100*(tsys1*bys11+tsys2*bys21+tsys3*bys31+tsys4*bys41+tsys5*bys51) +Dsk1*tss1e $ () Slutskattet, komponenter FRML _GJ_D Ssya = ((pimp11*fKnmp+pibp11*fKnbp)*iwbz)*kssya1 $ FRML _GJ_D Ssyej = fKnbhe(-1)*phv*tqkej*kssyej*(1+JRsssyej) $ FRML _GJ_D Ssyv = tsds1*Ysds*kssyv1 $ FRML _D kbysp = Dsk1*(((Ysp+D93)*Usye*pcrs1e-(Yspe+D93)*Usy*pcrs1)/((Yspe+D93)*Usy*pcrs1) + Jkbysp ) +(1-Dsk1)*(((Ssysp/(kssysp*Ysp))-tssp0)/(tssp1+10**(-15))) $ FRML _GJ_D Ssysp = Dsk1*(tssp0+tssp1*kbysp)*Ysp*kssysp + (1-Dsk1)*(Ssysp1+Ssysp2+Ssysp3+Ssysp4+Ssysp5) $ FRML _D kbys = Dsk1*((Ys*Usye*pcrs1e-Yse*Usy*pcrs1)/(Yse*Usy*pcrs1) + Jkbys) +(1-Dsk1)*(((Ssys/(kssys*Ys))-tss0)/tss1) $ FRML _GJ_D Ssys = Dsk1*(tss0+tss1*kbys)*Ys*kssys + (1-Dsk1)*(Ssys1+Ssys2+Ssys3+Ssys4+Ssys5) $ FRML _G Ssy2 = Ssys + Ssysp + Ssyej + Ssya + Ssyv + Ssyd $ FRML _G Sdk1 = Ssy2+ Sksi1(-1) + Ssf + Ssso $ FRML _G Sdu = tdu1*Qw1*(1-bq1/2)*0.001 $ FRML _DJ_D Ysda3 = Yw1 - Typri + 0.75*(0.5*Yrr2+0.5*Yrr2(-1)) $ FRML _DJ_D Tarn = Tyd+Typef+Typov+Tym+Tyuak-Safm-Saqp $ FRML _G tsda = tsdae + ((Tarn(-2)-Tarne(-2))/(Ysda3(-2)*3))*(1-Dtsda) $ FRML _GJ_D Sda = (tsda*Ysda3)*ksda3 $ FRML _GJ_D Sdv = tsdv1*fKcb(-1) $ FRML _DJRD Ysds = Yrs1+Tipps+Yrqf1+Tibn -( (1-(Iph/(I-Io11)))*Ivps1+(1-(Iph(-1)/(I(-1)-Io11(-1))))*Ivps1(-1) )/2 $ FRML _GJRD Sds = ksdsr2*tsds1*(bsds+ktsds*(1-bsds))*(Ysds+Ysds(-1))/2 $ FRML _GJRD iwbr = 0.9*((Tifpn(-1)+Tifpn(-2))/(2*Wabz(-2))) + 0.1*iwbz - 0.0003 $ FRML _D pcpn = ( (pncb*fCb/0.467752)+(pnce*fCe/0.715931)+(pncf*fCf/0.833212)+(pncg*fCg/0.470535) +(pnch*fCh/0.998333)+(pnci*fCi/0.835350)+(pnck*fCk/0.922677)+(pncn*fCn/0.372328) +(pncs*fCs/0.871860)+(pct*fCt/1)+(pncv*fCv/0.821248) )/(fCp+fEt) $ FRML _GJ_D tsdr = 0.99 *( ( ( iwbr-0.035 -( 1.035*(1/2+(1/2*D84)) *( ((pcpn(-1)/pcpn(-2))-1)+(1-D84) *((pcpn(-2)/pcpn(-3))-1) ) ) ) )/iwbr )$ FRML _GJ_D Sdrld = ksdrld*(tsdr*Tidld/(1-tsdr)+tsdra*Old) $ FRML _GJ_D Sdrdmp = ksdrdmp*(tsdr*Tiddmp/(1-tsdr) + tsdra*Odmp) $ FRML _GJ_D Sdrsp = ksdrsp*(tsdr*Tidsp/(1-tsdr) + tsdra*Osp) $ FRML _GJ_D Sdratp = ksdratp*(tsdr*Tidatp/(1-tsdr) + tsdra*Oatp) $ FRML _GJ_D Sdrp = ksdrp1*(tsdr*bsdr*(Tipphpp+Tipphpb) + tsdra*(Ospl+Ospk+Ohpl+Ohpk)) $ FRML _GJ_D Sdrpp = ksdrpp*(tsdr*bsdr*Tipphpp + tsdra*Olp) $ FRML _I Sdrph = Sdrp-Sdrpp $ FRML _I Sdr = Sdrp+Sdrld+Sdrdmp+Sdrsp+Sdratp $ FRML _GJ_D Sdp1 = ksdp*tsdp*(Typshk+Tphhku+Tpldu) + Sdpr $ FRML _I Sd = Sdk1 + Sda + Sdu + Sdp1 + Sdv + Sds + Sdr $ FRML _G Saqw1 = tsaqw1*Qw1 $ FRML _G Saqwy = taqwy1*(ksda3*Ysda3 - (Tbhsk+Tbhsl) + (Tyd+Tyms+Tymb+Tyrks+Tyuly+Tyuak+Tyurev)) $ FRML _I Saqw = Saqw1+Saqwy $ () Nu kun LG FRML _G Saqo = taqo1*Qwo2*(1-bqo/2)*0.001 $ FRML _G Saqp = taqp1*Qwp1*(1-bqp1/2)*0.001 $ FRML _G Safma = tafma1*ptty1*(Qw1*(1-bq1/2)+Ulfhk+Umf+Uef+Qs1)*0.001 $ FRML _G Safme = Tafme*ptty1*bsafme1*(Qw1*(1-bq1/2)+Ulfhk+Umf+Qs1)*0.001 $ FRML _I Safm = Safma+Safme $ FRML _I Saso = Saqw + Saqo + Saqp + Safm + Sasr $ FRML _I Sa = Sak + Saso $ FRML _I S = Sd + Siaf + Sa $ () ### INDSKAT.F05 ### () lØNMODTAGERE () ALLE FRML _G tss0w = tsys1 *(bys10w + 100*bys11w *kbysw ) + tsys2 *(bys20w + 100*bys21w *kbysw ) + tsys3 *(bys30w + 100*bys31w *kbysw ) + tsys4 *(bys40w + 100*bys41w *kbysw ) + tsys5 *(bys50w + 100*bys51w *kbysw ) + tsysp1*(bysp10w + 100*bysp11w *kbyspw) + tsysp2*(bysp20w + 100*bysp21w *kbyspw) + tsysp3*(bysp30w + 100*bysp31w *kbyspw) + tsysp4*(bysp40w + 100*bysp41w *kbyspw) + tsysp5*(bysp50w + 100*bysp51w *kbyspw) $ () BUNDSKAT () gennemsnit FRML _G tss0wb = tsys1 *(bys10wb + 100*bys11wb *kbysw ) + tsys2 *(bys20wb + 100*bys21wb *kbysw ) + tsys3 *(bys30wb + 100*bys31wb *kbysw ) + tsys4 *(bys40wb + 100*bys41wb *kbysw ) + tsys5 *(bys50wb + 100*bys51wb *kbysw ) + tsysp1*(bysp10wb + 100*bysp11wb*kbyspw) + tsysp2*(bysp20wb + 100*bysp21wb*kbyspw) + tsysp3*(bysp30wb + 100*bysp31wb*kbyspw) + tsysp4*(bysp40wb + 100*bysp41wb*kbyspw) + tsysp5*(bysp50wb + 100*bysp51wb*kbyspw) $ () marginal FRML _G tssmwb = tsys1 *D1wb + tsys2 *D2wb + tsys3 *D3wb + tsys4 *D4wb + tsys5 *D5wb + tsysp1*dp1wb + tsysp2*dp2wb + tsysp3*dp3wb + tsysp4*dp4wb + tsysp5*dp5wb $ () MELLEMSKAT () gennemsnit FRML _G tss0wm = tsys1 *(bys10wm + 100*bys11wm *kbysw ) + tsys2 *(bys20wm + 100*bys21wm *kbysw ) + tsys3 *(bys30wm + 100*bys31wm *kbysw ) + tsys4 *(bys40wm + 100*bys41wm *kbysw ) + tsys5 *(bys50wm + 100*bys51wm *kbysw ) + tsysp1*(bysp10wm + 100*bysp11wm*kbyspw) + tsysp2*(bysp20wm + 100*bysp21wm*kbyspw) + tsysp3*(bysp30wm + 100*bysp31wm*kbyspw) + tsysp4*(bysp40wm + 100*bysp41wm*kbyspw) + tsysp5*(bysp50wm + 100*bysp51wm*kbyspw) $ () marginal FRML _G tssmwm = tsys1 *D1wm + tsys2 *D2wm + tsys3 *D3wm + tsys4 *D4wm + tsys5 *D5wm + tsysp1*dp1wm + tsysp2*dp2wm + tsysp3*dp3wm + tsysp4*dp4wm + tsysp5*dp5wm $ () TOPSKAT () gennemsnit FRML _G tss0wt = tsys1 *(bys10wt + 100*bys11wt *kbysw ) + tsys2 *(bys20wt + 100*bys21wt *kbysw ) + tsys3 *(bys30wt + 100*bys31wt *kbysw ) + tsys4 *(bys40wt + 100*bys41wt *kbysw ) + tsys5 *(bys50wt + 100*bys51wt *kbysw ) + tsysp1*(bysp10wt + 100*bysp11wt*kbyspw) + tsysp2*(bysp20wt + 100*bysp21wt*kbyspw) + tsysp3*(bysp30wt + 100*bysp31wt*kbyspw) + tsysp4*(bysp40wt + 100*bysp41wt*kbyspw) + tsysp5*(bysp50wt + 100*bysp51wt*kbyspw) $ () marginal FRML _G tssmwt = tsys1 *D1wt + tsys2 *D2wt + tsys3 *D3wt + tsys4 *D4wt + tsys5 *D5wt + tsysp1*dp1wt + tsysp2*dp2wt + tsysp3*dp3wt + tsysp4*dp4wt + tsysp5*dp5wt $ () EFTERLØNNERE FRML _G tss0ef = tsys1 *(bys10ef + 100*bys11ef *kbysef ) + tsys2 *(bys20ef + 100*bys21ef *kbysef ) + tsys3 *(bys30ef + 100*bys31ef *kbysef ) + tsys4 *(bys40ef + 100*bys41ef *kbysef ) + tsys5 *(bys50ef + 100*bys51ef *kbysef ) + tsysp1*(bysp10ef + 100*bysp11ef *kbyspef) + tsysp2*(bysp20ef + 100*bysp21ef *kbyspef) + tsysp3*(bysp30ef + 100*bysp31ef *kbyspef) + tsysp4*(bysp40ef + 100*bysp41ef *kbyspef) + tsysp5*(bysp50ef + 100*bysp51ef *kbyspef) $ () LEDIGE FRML _G tss0l = tsys1 *(bys10l + 100*bys11l *kbysl ) + tsys2 *(bys20l + 100*bys21l *kbysl ) + tsys3 *(bys30l + 100*bys31l *kbysl ) + tsys4 *(bys40l + 100*bys41l *kbysl ) + tsys5 *(bys50l + 100*bys51l *kbysl ) + tsysp1*(bysp10l + 100*bysp11l *kbyspl) + tsysp2*(bysp20l + 100*bysp21l *kbyspl) + tsysp3*(bysp30l + 100*bysp31l *kbyspl) + tsysp4*(bysp40l + 100*bysp41l *kbyspl) + tsysp5*(bysp50l + 100*bysp51l *kbyspl) $ () ### TP.F05 ### () Stykafgifter () Forbrug FRML _G tpf = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpf(-1) + JDtpf) + Dtp*Ztpf $ FRML _G tpn = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpn(-1) + JDtpn) + Dtp*Ztpn $ FRML _G tpi = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpi(-1) + JDtpi) + Dtp*Ztpi $ FRML _G tpb = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpb(-1) + JDtpb) + Dtp*Ztpb $ FRML _G tph = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tph(-1) + JDtph) + Dtp*Ztph $ FRML _G tpe = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpe(-1) + JDtpe) + Dtp*Ztpe $ FRML _G tpg = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpg(-1) + JDtpg) + Dtp*Ztpg $ FRML _G tpv = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpv(-1) + JDtpv) + Dtp*Ztpv $ FRML _G tps = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tps(-1) + JDtps) + Dtp*Ztps $ FRML _G tpkr = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpkr(-1) + JDtpkr) + Dtp*Ztpkr $ () Investeringer FRML _G tpimo1 = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpimo1(-1) + JDtpimo1) + Dtp*Ztpimo1 $ FRML _G tpimp1 = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpimp1(-1) + JDtpimp1) + Dtp*Ztpimp1 $ FRML _G tpibh = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpibh(-1) + JDtpibh) + Dtp*Ztpibh $ FRML _G tpibp1 = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpibp1(-1) + JDtpibp1) + Dtp*Ztpibp1 $ FRML _G tpibo1 = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpibo1(-1) + JDtpibo1) + Dtp*Ztpibo1 $ FRML _G tpil = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpil(-1) + JDtpil) + Dtp*Ztpil $ () Eksport FRML _G tpe0 = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tpe0(-1) + JDtpe0) + Dtp*Ztpe0 $ () Materialer FRML _G tvma = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvma(-1) + JDtvma) + Dtp*Ztvma $ FRML _G tvme = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvme(-1) + JDtvme) + Dtp*Ztvme $ FRML _G tvmng = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmng(-1) + JDtvmng) + Dtp*Ztvmng $ FRML _G tvmne = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmne(-1) + JDtvmne) + Dtp*Ztvmne $ FRML _G tvmnf = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmnf(-1) + JDtvmnf) + Dtp*Ztvmnf $ FRML _G tvmnn = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmnn(-1) + JDtvmnn) + Dtp*Ztvmnn $ FRML _G tvmnb = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmnb(-1) + JDtvmnb) + Dtp*Ztvmnb $ FRML _G tvmnm = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmnm(-1) + JDtvmnm) + Dtp*Ztvmnm $ FRML _G tvmnt = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmnt(-1) + JDtvmnt) + Dtp*Ztvmnt $ FRML _G tvmnk = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmnk(-1) + JDtvmnk) + Dtp*Ztvmnk $ FRML _G tvmnq = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmnq(-1) + JDtvmnq) + Dtp*Ztvmnq $ FRML _G tvmb = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmb(-1) + JDtvmb) + Dtp*Ztvmb $ FRML _G tvmqh = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmqh(-1) + JDtvmqh) + Dtp*Ztvmqh $ FRML _G tvmqs = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmqs(-1) + JDtvmqs) + Dtp*Ztvmqs $ FRML _G tvmqt = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmqt(-1) + JDtvmqt) + Dtp*Ztvmqt $ FRML _G tvmqf = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmqf(-1) + JDtvmqf) + Dtp*Ztvmqf $ FRML _G tvmqq = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmqq(-1) + JDtvmqq) + Dtp*Ztvmqq $ FRML _G tvmh = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmh(-1) + JDtvmh) + Dtp*Ztvmh $ FRML _G tvmo = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvmo(-1) + JDtvmo) + Dtp*Ztvmo $ () Energi FRML _G tvea = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvea(-1) + JDtvea) + Dtp*Ztvea $ FRML _G tvee = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvee(-1) + JDtvee) + Dtp*Ztvee $ FRML _G tveng = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tveng(-1) + JDtveng) + Dtp*Ztveng $ FRML _G tvene = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvene(-1) + JDtvene) + Dtp*Ztvene $ FRML _G tvenf = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvenf(-1) + JDtvenf) + Dtp*Ztvenf $ FRML _G tvenn = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvenn(-1) + JDtvenn) + Dtp*Ztvenn $ FRML _G tvenb = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvenb(-1) + JDtvenb) + Dtp*Ztvenb $ FRML _G tvenm = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvenm(-1) + JDtvenm) + Dtp*Ztvenm $ FRML _G tvent = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvent(-1) + JDtvent) + Dtp*Ztvent $ FRML _G tvenk = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvenk(-1) + JDtvenk) + Dtp*Ztvenk $ FRML _G tvenq = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tvenq(-1) + JDtvenq) + Dtp*Ztvenq $ FRML _G tveb = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tveb(-1) + JDtveb) + Dtp*Ztveb $ FRML _G tveqh = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tveqh(-1) + JDtveqh) + Dtp*Ztveqh $ FRML _G tveqs = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tveqs(-1) + JDtveqs) + Dtp*Ztveqs $ FRML _G tveqt = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tveqt(-1) + JDtveqt) + Dtp*Ztveqt $ FRML _G tveqf = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tveqf(-1) + JDtveqf) + Dtp*Ztveqf $ FRML _G tveqq = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tveqq(-1) + JDtveqq) + Dtp*Ztveqq $ FRML _G tveh = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tveh(-1) + JDtveh) + Dtp*Ztveh $ FRML _G tveo = (1-Dtp)*((pcpn(-1)/pcpn(-2))*tveo(-1) + JDtveo) + Dtp*Ztveo $ () ### AFGIFT.F05 ### () () () INDIREKTE SKATTER () () FRML _G Sim = fM0*tm0+fM1*tm1+fM2*tm2+fM3k*tm3k+fM3r*tm3r+fM3q*tm3q+fM5*tm5 +fM6m*tm6m+fM6q*tm6q+fM7b*tm7b+fM7y*tm7y+fM7q*tm7q+fM8*tm8 $ FRML _G Sipe0 = Sipee + Sipeq $ FRML _G Sipxa = tvea*fVea + tvma*fVma $ FRML _G Sipxe = tvee*fVee + tvme*fVme $ FRML _G Sipxng = tveng*fVeng + tvmng*fVmng $ FRML _G Sipxne = tvene*fVene + tvmne*fVmne $ FRML _G Sipxnf = tvenf*fVenf + tvmnf*fVmnf $ FRML _G Sipxnn = tvenn*fVenn + tvmnn*fVmnn $ FRML _G Sipxnb = tvenb*fVenb + tvmnb*fVmnb $ FRML _G Sipxnm = tvenm*fVenm + tvmnm*fVmnm $ FRML _G Sipxnt = tvent*fVent + tvmnt*fVmnt $ FRML _G Sipxnk = tvenk*fVenk + tvmnk*fVmnk $ FRML _G Sipxnq = tvenq*fVenq + tvmnq*fVmnq $ FRML _G Sipxb = tveb*fVeb + tvmb*fVmb $ FRML _G Sipxqh = tveqh*fVeqh + tvmqh*fVmqh $ FRML _G Sipxqs = tveqs*fVeqs + tvmqs*fVmqs $ FRML _G Sipxqt = tveqt*fVeqt + tvmqt*fVmqt $ FRML _G Sipxqf = tveqf*fVeqf + tvmqf*fVmqf $ FRML _G Sipxqq = tveqq*fVeqq + tvmqq*fVmqq $ FRML _G Sipxh = tveh*fVeh + tvmh*fVmh $ FRML _G Sipxo = tveo*fVeo + tvmo*fVmo $ FRML _I Sipx = Sipxa+Sipxe+Sipxng+Sipxne+Sipxnf+Sipxnn+Sipxnb+Sipxnm+Sipxnt+Sipxnk +Sipxnq+Sipxb+Sipxqh+Sipxqs+Sipxqt+Sipxqf+Sipxqq+Sipxh+Sipxo $ FRML _G tpk = tpkr + Sipkto/fCk $ FRML _G Sipc = tpf*fCf+tpn*fCn+tpi*fCi+tpe*fCe+tpg*fCg+tpb*fCb+tpv*fCv+tph*fCh+tpk*fCk+tps*fCs +tpibp1*fIbp11+tpimp1*fImp11+tpimo1*fImo11+tpibo1*fIbo11+tpibh*fIbh+tpil*fIl +Sipe0+Sipe7y $ FRML _I Sip = Sipx + Sipc $ FRML _G Sigxa = btgxa*tg*Va/(1+btgxa*tg) $ FRML _G Sigxe = btgxe*tg*Ve/(1+btgxe*tg) $ FRML _G Sigxng = btgxng*tg*Vng/(1+btgxng*tg) $ FRML _G Sigxne = btgxne*tg*Vne/(1+btgxne*tg) $ FRML _G Sigxnf = btgxnf*tg*Vnf/(1+btgxnf*tg) $ FRML _G Sigxnn = btgxnn*tg*Vnn/(1+btgxnn*tg) $ FRML _G Sigxnb = btgxnb*tg*Vnb/(1+btgxnb*tg) $ FRML _G Sigxnm = btgxnm*tg*Vnm/(1+btgxnm*tg) $ FRML _G Sigxnt = btgxnt*tg*Vnt/(1+btgxnt*tg) $ FRML _G Sigxnk = btgxnk*tg*Vnk/(1+btgxnk*tg) $ FRML _G Sigxnq = btgxnq*tg*Vnq/(1+btgxnq*tg) $ FRML _G Sigxb = btgxb*tg*Vb/(1+btgxb*tg) $ FRML _G Sigxqh = btgxqh*tg*Vqh/(1+btgxqh*tg) $ FRML _G Sigxqs = btgxqs*tg*Vqs/(1+btgxqs*tg) $ FRML _G Sigxqt = btgxqt*tg*Vqt/(1+btgxqt*tg) $ FRML _G Sigxqf = btgxqf*tg*Vqf/(1+btgxqf*tg) $ FRML _G Sigxqq = btgxqq*tg*Vqq/(1+btgxqq*tg) $ FRML _G Sigxh = btgxh*tg*Vh/(1+btgxh*tg) $ FRML _G Sigxo = btgxo*tg*pvo*fVo/(1+btgxo*tg) $ FRML _I Sigx = Sigxa+Sigxe+Sigxng+Sigxne+Sigxnf+Sigxnn+Sigxnb+Sigxnm+Sigxnt+Sigxnk +Sigxnq+Sigxb+Sigxqh+Sigxqs+Sigxqt+Sigxqf+Sigxqq+Sigxh+Sigxo $ FRML _G Sigc = btgf*tg*pcf*fCf/(1+btgf*tg)+btgn*tg*pcn*fCn/(1+btgn*tg) + btgi*tg*pci*fCi/(1+btgi*tg)+btge*tg*pce*fCe/(1+btge*tg) + btgg*tg*pcg*fCg/(1+btgg*tg)+btgv*tg*pcv*fCv/(1+btgv*tg) + btgh*tg*pch*fCh/(1+btgh*tg)+btgk*tg*pck*fCk/(1+btgk*tg) + btgs*tg*pcs*fCs/(1+btgs*tg)+btgo*tg*pco*fCo/(1+btgo*tg) + btgb*tg*pcb*fCb/((1+trb)*(1+btgb*tg)) $ FRML _G Sigi1 = btgibh*tg*pibh*fIbh/(1+btgibh*tg) + btgimp1*tg*pimp11*fImp11/((1+trimp1)*(1+btgimp1*tg)) + btgimo1*tg*pimo11*fImo11/(1+btgimo1*tg) + btgibo1*tg*pibo11*fIbo11/(1+btgibo1*tg) + btgibp1*tg*pibp11*fIbp11/(1+btgibp1*tg) + btgil*tg*pil*fIl/(1+btgil*tg) $ FRML _I Sig = Sigx + Sigc + Sigi1 $ FRML _G Sir = trb*fCb*pcb/(1+trb) + trimp1*fImp11*pimp11/(1+trimp1) $ FRML _G Siqu = tqu1*Qw1*(1-bq1/2)*0.001 $ FRML _G tqab = tqabe + ((Tarn(-2)-Tarne(-2))/((Yw1(-2)-Typri(-2))*3))*(1-Dtsda) $ FRML _GJ_D Siqab = tqab*(Yw1-Typri)*ksiqab1 $ FRML _GJRD Siqej = 0.21044*(fKnbp(-2)+fKnbh(-2))*(phgk(-1)+phgk(-2))/2*tqej $ FRML _GJ_ Siqejh = 0.8*Siqej*fKnbh(-2)/(fKnbp(-2)+fKnbh(-2)) $ FRML _GJ_D Siqam = 1.9*(tsiqamf*Ywqf1+tsiqam*(0.07*Ywqq1+Ywh1))*(1+JRsiqam) $ FRML _G Siqlt = .001*tsiqlt*ptty1*Qlt $ () løntilskud FRML _G Siqak = .001*tsiqak*ptty1*Qak $ () Kommunalt aktiverede I beskæftigelsen FRML _G Siqs = Siqsqr + Siqeur + Siqlt + Siqak + Siqaa + Siqsh $ FRML _I Siq = Siqu + Siqab + Siqej + Siqv + Siqam + Siqr + Siqs $ FRML _G Siqsq = Siqsqr + Siqeur $ FRML _I Siqeu = Siqaa + Siqeur $ FRML _I Si = Sim + Sip + Sig + Sir + Siq $ FRML _GJ_D Sipur1 = -ksipur1*( 0.006007*fCs+ 0.031287*(fVeqq+fVmqq) + 0.00445*(fVea+fVma)+ 0.002297*(fVeqq+fVmqq) ) $ FRML _GJ_D Sipee = Sipeem + tpe0*fE0*pne0 $ FRML _I Sipsue = Sipee + Sipaa + Sipsuer $ FRML _G Sipsu = Sipur1 + Sipkto + Sipsue + Sipe7y + Sipeq $ FRML _I Sipaf = Sip - Sipsu $ FRML _I Sisu = Siqs + Sipsu $ FRML _I Sisue = Sipsue + Siqeu $ FRML _I Sisuo = Sisu - Sisue $ FRML _I Siaf = Si - Sisu $ FRML _I Siafe = deusim*Sim + Sipeu $ FRML _I Siafo = Siaf - Siafe $ () ### BALANCER.F05 ### () () EKSPORT I ÅRETS PRISER () FRML _I Ev = fE0*pe0 + fE1*pe1 + fE2*pe2 + fE3*pe3 + fE5*pe5 +fE6*pe6 + fE7y*pe7y + fE7q*pe7q + fE8*pe8 $ FRML _I Es = fEs*pes $ FRML _I Et = fEt*pet $ FRML _I E = Ev + Es + Et $ () () IMPORT I ÅRETS PRISER () FRML _I Mv = fM0*pm0 + fM1*pm1 + fM2*pm2 + fM3k*pm3k + fM3r*pm3r + fM3q*pm3q + fM5*pm5 + fM6m*pm6m + fM6q*pm6q + fM7b*pm7b + fM7y*pm7y + fM7q*pm7q + fM8*pm8 $ FRML _I Ms = fMs*pms $ FRML _I Mt = fMt*pmt $ FRML _I M = Mv + Ms + Mt $ () () BETALINGSBALANCE () FRML _I Envt = E - M $ FRML _GJ_D Teuby = tteuby*(Yi) $ FRML _GJ_D Teubg = tteubg*(Sig/tg) $ FRML _GJ_D Teub = Teuby + Teubg + Teubr + deusim*Sim + Sipeu $ FRML _I Teun = (-Sipsue - Siqeu) + Teur - Teub $ FRML _GJ_D iwbu = kwfgud*iwbud + kwfgdm*iwbdm $ FRML _GJDD Dif(Tien) = Dif(Tisiu-Tisuu) + Dif( 0.5 *( Ken +Wflkg -Wglkf +Wfbz +Ken(-1)+Wflkg(-1)-Wglkf(-1)+Wfbz(-1) ) *iwbu ) - 0.5*(Dif(Wfbz)*iwbz+Dif(Wfbz(-1))*iwbz(-1)) + 0.20*( 0.5 *( Ken(-1)+Wflkg(-1)-Wglkf(-1)+Wfbz(-1) +Ken(-2)+Wflkg(-2)-Wglkf(-2)+Wfbz(-2) ) *iwbu(-1) -0.5*(Wfbz(-1)+Wfbz(-2))*iwbz -Tien(-1)+Tisiu(-1)-Tisuu(-1) ) $ FRML _GJDD Taoerfp = .001*ptty1*ttyoefp*Ufpu*(1+JRTaoerfp) $ () Folkepensioner til udland FRML _GJDD Taoerfo = .001*ptty1*ttyoefo*Ufou*(1+JRTaoerfo) $ () Førtidspension til udland FRML _GJ_D Taoerr = ktaoerr*0.5*(Y(-1)+Tien(-1)+Twen(-1)+Y(-2)+Tien(-2)+Twen(-2)) $ FRML _I Taoer = Taoerfp + Taoerfo + Taoerr $ FRML _I Taoe = Taoefo + Taoegr + Taoer $ FRML _I Tfen = E - M + Twen - Siafe - Sisue + Tien + Sden + Saen + Tyen + Teur + Taeo + Taep - Tape - (Teuby + Teubr + Teubg + Taoe) + Tkeo + Tkepsn - Tkphe - Tkoe $ FRML _I Tken = Tkeo-Tkoe+Tkepsn-Tkphe $ FRML _I Enl = Tfen - Tken + Enlres $ FRML _GJDD Dif(Ken) = Enl $ () () OFFENTLIGE OG PRIVATE SEKTORBALANCER () FRML _GJDD Dif(Tiki) = Dif(0.5*(Wldb+Wldb(-1))*iwde) +0.5*(Dif(Wlbz)*iwbz+Dif(Wlbz(-1))*iwbz(-1)) +0.06*( 0.5*(Wlbz(-1)+Wlbz(-2))*iwbz +0.5*(Wldb(-1)+Wldb(-2))*iwde(-1) -Tiki(-1) ) $ FRML _GJDD Dif(Tiku) = Dif(0.5*(Wgll+Wgll(-1))*iwbz) + Dif(0.5*(Wbll+Wbll(-1))*iwlo) + Dif(0.5*(Wfll+Wfll(-1))*iwbu) + Dif(0.5*(Whll+Whll(-1))*iwlo) + 0.5*(Dif(Wall)*iwbz+Dif(Wall(-1))*iwbz(-1)) + 0.5*(Dif(Wzbl)*iwbz+Dif(Wzbl(-1))*iwbz(-1)) + 0.06*( 0.5*(Wall(-1)+Wall(-2))*iwbz +0.5*(Wgll(-1)+Wgll(-2))*iwbz(-1) +0.5*(Wbll(-1)+Wbll(-2))*iwlo(-1) +0.5*(Wfll(-1)+Wfll(-2))*iwbu(-1) +0.5*(Whll(-1)+Whll(-2))*iwlo(-1) +0.5*(Wzbl(-1)+Wzbl(-2))*iwbz -Tiku(-1) ) $ FRML _GJDD Dif(Tisii) = Dif(0.5*(Wgll+Wgll(-1))*iwbz) + Dif(0.5*(Wglp+Wglp(-1))*iwbz) + Dif(0.5*(Wgln+Wgln(-1))*(iwdi-.02)) + 0.5*(Dif(Wgbz)*iwbz+Dif(Wgbz(-1))*iwbz(-1)) + 0.06*( 0.5*(Wgbz(-1)+Wgbz(-2))*iwbz +0.5*(Wgln(-1)+Wgln(-2))*(iwdi(-1)-.02) +0.5*(Wglp(-1)+Wglp(-2))*iwbz(-1) +0.5*(Wgll(-1)+Wgll(-2))*iwbz(-1)-Tisii(-1) ) $ FRML _GJDD Dif(Tisiu) = 0.5*(Dif(Wglkf)*iwbu*0.25+Dif(Wglkf(-1))*iwbu(-1)*0.25) + 0.06*((Wglkf(-1)+Wglkf(-2))*0.5*iwbu*0.25-Tisiu(-1)) $ FRML _GJDD Dif(Tisui) = Dif(0.5*(Wilg+Wilg(-1))*iwlo) + 0.5*(Dif(Wzbg)*iwbz+Dif(Wzbg(-1))*iwbz(-1)) + 0.20*( (Wzbg(-1)+Wzbg(-2))*0.5*iwbz +(Wilg(-1)+Wilg(-2))*0.5*iwlo(-1) -Tisui(-1) ) $ FRML _GJDD Dif(Tisuu) = Dif(0.5*(Wfgv+Wfgv(-1))*iwbu) + 0.5*( Dif(Wflkg-Wfgv)*iwbu +Dif(Wflkg(-1)-Wfgv(-1))*iwbu(-1) ) + kwfga*( 0.5*(Wflkg(-1)-Wfgv(-1)+Wflkg(-2)-Wfgv(-2))*iwbu +0.5*(Wfgv(-1)+Wfgv(-2))*iwbu(-1)-Tisuu(-1) ) $ FRML _GJDD_Z Tibn = Tibn(-1) + 0.5*( (Wblp+Wblp(-1))*iwlo -(Wblp(-1)+Wblp(-2))*iwlo(-1) ) + 0.5*( (Wbll+Wbll(-1))*iwlo -(Wbll(-1)+Wbll(-2))*iwlo(-1) ) - 0.5*( (Wpdb+Wpdb(-1))*iwde -(Wpdb(-1)+Wpdb(-2))*iwde(-1) ) - 0.5*( (Wldb+Wldb(-1))*iwde -(Wldb(-1)+Wldb(-2))*iwde(-1) ) - 0.5*( (Wnlb+Wnlb(-1))*iwnz -(Wnlb(-1)+Wnlb(-2))*iwnz(-1) ) + 0.5*( (Wilg+Wilg(-1))*iwlo -(Wilg(-1)+Wilg(-2))*iwlo(-1) ) + 0.5*( (Wbdn+Wbdn(-1))*iwnz -(Wbdn(-1)+Wbdn(-2))*iwnz(-1) ) + 0.5*( (Wbvf+Wbvf(-1))*iwbu -(Wbvf(-1)+Wbvf(-2))*iwbu(-1) ) + 0.5*( (Wbqf+Wbqf(-1))*iwbu -(Wbqf(-1)+Wbqf(-2))*iwbu(-1) ) - 0.5*( (Wflb+Wflb(-1))*iwbu -(Wflb(-1)+Wflb(-2))*iwbu(-1) ) - 0.5*( (Wplb+Wplb(-1))*iwde -(Wplb(-1)+Wplb(-2))*iwde(-1) ) + 0.5*( (Wbdsn+Wbdsn(-1))*iwnz -(Wbdsn(-1)+Wbdsn(-2))*iwnz(-1) ) + 0.5*( (Wbbz-Wbbz(-1))*iwbz +(Wbbz(-1)-Wbbz(-2))*iwbz(-1) ) + 0.5*( (Wibz-Wibz(-1))*iwbz +(Wibz(-1)-Wibz(-2))*iwbz(-1) ) + 0.20*( 0.5*(Wbbz(-1)+Wbbz(-2))*iwbz +0.5*(Wibz(-1)+Wibz(-2))*iwbz +0.5*(Wblp(-1)+Wblp(-2))*iwlo(-1) +0.5*(Wbll(-1)+Wbll(-2))*iwlo(-1) +0.5*(Wbvf(-1)+Wbvf(-2))*iwbu(-1) +0.5*(Wbqf(-1)+Wbqf(-2))*iwbu(-1) -0.5*(Wflb(-1)+Wflb(-2))*iwbu(-1) -0.5*(Wplb(-1)+Wplb(-2))*iwde(-1) -0.5*(Wpdb(-1)+Wpdb(-2))*iwde(-1) -0.5*(Wldb(-1)+Wldb(-2))*iwde(-1) -0.5*(Wnlb(-1)+Wnlb(-2))*iwnz(-1) +0.5*(Wilg(-1)+Wilg(-2))*iwlo(-1) +0.5*(Wbdn(-1)+Wbdn(-2))*iwnz(-1) +0.5*(Wbdsn(-1)+Wbdsn(-2))*iwnz(-1) -Tibn(-1) ) $ FRML _GJDD Dif(Tinn) = Dif(0.5*(Wnvf+Wnvf(-1))*iwbu) + Dif(0.5*(Wnlb+Wnlb(-1))*iwnz) - Dif(0.5*(Wbdn+Wbdn(-1))*iwnz) - Dif(0.5*(Wbdsn+Wbdsn(-1))*iwnz) - Dif(0.5*(Wgln+Wgln(-1))*(iwdi-.02)) + 0.5*(Dif(Wnbz)*iwbz+Dif(Wnbz(-1))*iwbz(-1)) + 0.06*( 0.5*(Wnbz(-1)+Wnbz(-2))*iwbz +0.5*(Wnvf(-1)+Wnvf(-2))*iwbu(-1) +0.5*(Wnlb(-1)+Wnlb(-2))*iwnz(-1) -0.5*(Wbdn(-1)+Wbdn(-2))*iwnz(-1) -0.5*(Wbdsn(-1)+Wbdsn(-2))*iwnz(-1) -0.5*(Wgln(-1)+Wgln(-2))*(iwdi(-1)-0.02) -Tinn(-1) ) $ FRML _I Tioii = Tisii + Tisiu + Tiki + Tifoi $ FRML _I Tioi = Tiov + Tioii + Tior $ FRML _I Tiou = Tisui + Tisuu + Tiku + Tifou $ FRML _I Tion = Tiov + Tioii + Tior - Tiou $ FRML _I Tipn = Tien - Tion $ FRML _GJ_D Tifpn = Tii/ktii $ FRML _D Tipp2 = Tipn - (Tinn-Tono(-1)) - Tii - Tibn $ FRML _G Tippp = ktippp * Tipp2 $ FRML _D Tipps = Tipp2 - Tippp $ FRML _G Timp = ktimp*(Tipphpp+Tidatp+Sdratp) $ FRML _D Tipph = Timp + Tippp $ FRML _GJD Dif(Taphn) = Dif(Taop - Tapo +.5*(Taep-Tape)) $ FRML _G Taphu = (1-D4787)*(Tapo + 0.5*Tape + Taphr) $ FRML _GJDD Dif(Tii) = 0.5*(Dif(Wall)*iwbz+Dif(Wall(-1))*iwbz(-1)) + 0.5*(Dif(Walp)*iwbz+Dif(Walp(-1))*iwbz(-1)) + 0.5*(Dif(Wsbz)*iwbz+Dif(Wsbz(-1))*iwbz(-1)) + 0.5*(Dif(Wabz)*iwbz+Dif(Wabz(-1))*iwbz(-1)) + btii*( 0.5*(Wall(-1)+Wall(-2))*iwbz +0.5*(Walp(-1)+Walp(-2))*iwbz +0.5*(Wsbz(-1)+Wsbz(-2))*iwbz +0.5*(Wabz(-1)+Wabz(-2))*iwbz -Tii(-1) ) $ FRML _G Tffpi = Tbhsp - Tihsp - Tpatpi + Sdrpp + Sdratp + ktphi*(Tphhli + Tphhki) $ FRML _G Tffpu = Typshp-Tpatpu + ktphu*(Tphhlu + Tphhku) $ FRML _G Tffpn = Tffpi - Tffpu + Tipphpp - Sdrpp + Tffpnr $ FRML _I Tfoi = Ivo1 + Tioi + Siafo + Sd + Saso + Typri + Tbpho + Teur + Taeo + Tapo + Sak + Tkeo + Tkpo $ FRML _I Tfoiny = Tfoi - Ivo1 + (Xo11-Co+Coim) $ FRML _I Tfou = Co + Io11+Ilo1 + Tkojr - Sisuo + Ty + Tiou + Teuby + Teubr + Teubg + Taoe + Taop + Tkoe + Tkops + Tkoph $ FRML _I Tfouny = Tfou + Ywo11 + Vo11 + Siqo*ksiqo1 - Co + Coim $ FRML _I Ydo = Ivo1 + Siafo + Sisuo + Tion + Sd + Saso + Typri + Tbpho - Ty + Teur + Taeo + Tapo - (Teuby + Teubr + Teubg + Taoe + Taop) $ FRML _I Tfon = Ydo - Co + Sak + Tkeo + Tkpo - (Tkoe + Tkops + Tkoph) - Io11 - Ilo1 - Tkojr $ FRML _I Ydp = Yr1 - Ivo1 + Yw1 + Twen + Tipn -(Sd-Sden) - Saso- Typri- Tbpho + Saen + Ty + Tyen + Taop + Taep - Tapo - Tape $ FRML _I Ydph1 = Yrp + Yw1+ Twen + Tipph - (Sd - Sds - Sden) - (Typri + Saso + Tbpho + Tbhsp - Saen) + (Ty + Typshp + Tyen) + Taphn $ FRML _I Tfphn1 = Ydph1-Cp-(Typshp-Tbhsp)+(Tkoph-Sak-Tkphe) -(Iph+Ilph+Tkphjr) $ FRML _I Ydps1 = Ydp - Ydph1 $ () () SEKTORBALANCE FOR STAT, KOMMUNER OG OFFENTLIGE FONDE () FRML _I Ydoo = (1-D4787)*(Ivoo1+Sisuoo+Tifoi-Tifou+Tioov+(Saso-Sasr) -Tyo+Tapoo+Tasoon) $ FRML _I Tffon = (1-D4787)*(Ydoo-Coo+Tkpoon-Ioo1-Tkooubi) +D4787*(Saqw+Saqo+Tifoi+Tffonr1-Tifou) $ FRML _I Ydk = (1-D4787)*(Ivok1+Siafok+Sisuokk+Tiki-Tiku+Tikov +Tiokr+Sdkk+Typrik-Tykk+Taeok+Tapok -Taokp+Taosk-Takos) $ () EN SWITCH DUMMY KONSTRUKTION, DER KAN EKSOGENISERE Tfkn FRML _GJD Sakk = Sakk(-1) $ FRML _G Tfkn = (1-dtfkn)*(Ydk-Cok+Sakk+Tkpok-Tkopsk-Tkophk -Tkoek-Tkkosn-Iok1-Tkokubi-Tkokjr) +dtfkn*Tfknx $ FRML _G Taosk = (1-D4787)* ( dtfkn*(Tfkn-(Ivok1+Siafok+Sisuokk+Tiki-Tiku +Tikov+Tiokr+Sdkk+Typrik-Tykk+Taeok +Tapok-Taokp-Takos -Cok+Tkpok-Tkopsk-Tkophk-Tkoek-Tkkosn -Iok1-Tkokubi-Tkokjr)) +(1-dtfkn)*Taoskx ) $ FRML _I Tyo = (1-D4787)*(Tyd+Typef+Typov+Typlg) $ FRML _I Tasoon = (1-D4787)*((Tyd+Typef+Typov+Typlg)*ktasoo -0.8*(Safma+Safme)*ktaoos) $ FRML _GJ_D Siafok = ksiafok*Siqej $ FRML _GJ_D Sisuokk = ksisuokk*(Siqak+0.17*(Siqs-Siqak-Siqaa-Siqeur) +0.18*(Sipsu-Sipsue)) $ () Siqak aktiverede kontanthjælp er nok en kommunal udgift FRML _GJ_D Sdkk = ksdkk*(0.69*Sdk1+0.33*(Sdp1-Sdpr)+0.25*Sdpr+0.11*Sds) $ FRML _GJ_D Tykk = ktykk*(Typfp+Typfo+0.24*Typr+Tyms+0.04*Tymf +0.99*Tyrk+0.55*(Tyrh+Tyrr)) $ () Nye variabler indkomstoverførslerne FRML _GJ_D Ivok1 = kivok1*Ivo1 $ FRML _GJ_D Cok = kcok*Co $ FRML _GJ_D Iok1 = kiok11*Io11 $ FRML _I Ydss = (1-D4787)*(Ydo-Ydoo-Ydk) $ FRML _I Tfsn = Tfon-Tffon-Tfkn $ () ØMU-GÆLD OG OFFENTLIG NETTOGÆLD FRML _GJDD Wzzomu = (1-D4794)*(Wzzomu(-1) - Tfsn - Tfkn - Dif(kwobz*Wobz) + Dif((1-kwosfp)*Wspbz) + kwomu) $ FRML _GJDD Dif(Won) = (1-D4794)*( (D4794(-1)-D4794)*246882 - Tfon) $ () ### BNPBFI.F05 ### () () () BRUTTONATIONALPRODUKT, BRUTTOVÆRDITILVÆKST OG BRUTTONATIONALINDKOMST () () FRML _I fY = fCp + fCo + fIm + fIb + fIt + fIl - fM + fE $ FRML _I Y = Cp + Co + I + E - M $ FRML _I Yf = Y - Si + Siq $ FRML _DJ_ Yi = Y + (Twen+Tien) + (-Sisue-Siafe) $ () () () SAMLET INDENLANDSK EFTERSPØRGSEL () () FRML _I fYtr = fY + fM - fE $ FRML _I Ytr = Y + M - E $ FRML _I pytr = Ytr/fYtr $ () ### SIQJ.F05 ### () () () IKKE-VAREFORDELTE INDIREKTE SKATTER () () () ### Nøgler for Siqak og Siqlt Siqo11 og Siqp11 fra Michael Osterwald () Antagelse Siqo = siqo11, siqp efter antal lønmodtagere I 2000 () Siql vedr. arbejdskraft FRML _GJ_ Siqal = .017*Siqu+.014*Siqab+.000*Siqam+.008*Siqak+.013*Siqlt $ FRML _GJ_ Siqel = .000*Siqu+.001*Siqab+.000*Siqam+.000*Siqak+.000*Siqlt $ FRML _GJ_ Siqngl = .000*Siqu+.001*Siqab+.000*Siqam+.000*Siqak+.000*Siqlt $ FRML _GJ_ Siqnel = .006*Siqu+.008*Siqab+.000*Siqam+.002*Siqak+.004*Siqlt $ FRML _GJ_ Siqnfl = .030*Siqu+.031*Siqab+.000*Siqam+.011*Siqak+.020*Siqlt $ FRML _GJ_ Siqnnl = .003*Siqu+.004*Siqab+.000*Siqam+.001*Siqak+.002*Siqlt $ FRML _GJ_ Siqnbl = .008*Siqu+.013*Siqab+.000*Siqam+.005*Siqak+.009*Siqlt $ FRML _GJ_ Siqnml = .069*Siqu+.072*Siqab+.000*Siqam+.027*Siqak+.047*Siqlt $ FRML _GJ_ Siqntl = .010*Siqu+.010*Siqab+.000*Siqam+.003*Siqak+.005*Siqlt $ FRML _GJ_ Siqnkl = .022*Siqu+.027*Siqab+.000*Siqam+.009*Siqak+.015*Siqlt $ FRML _GJ_ Siqnql = .041*Siqu+.043*Siqab+.000*Siqam+.015*Siqak+.026*Siqlt $ FRML _GJ_ Siqbl = .053*Siqu+.061*Siqab+.000*Siqam+.024*Siqak+.041*Siqlt $ FRML _GJ_ Siqqhl = .090*Siqu+.132*Siqab+.000*Siqam+.062*Siqak+.107*Siqlt $ FRML _GJ_ Siqqsl = .006*Siqu+.009*Siqab+.000*Siqam+.002*Siqak+.004*Siqlt $ FRML _GJ_ Siqqtl = .056*Siqu+.067*Siqab+.000*Siqam+.026*Siqak+.045*Siqlt $ FRML _GJ_ Siqqfl = .040*Siqu+.047*Siqab+.823*Siqam+.013*Siqak+.022*Siqlt $ FRML _GJ_ Siqhl = .004*Siqu+.006*Siqab+.034*Siqam+.003*Siqak+.005*Siqlt $ FRML _GJ_ Siqol = .433*Siqu+.299*Siqab+.000*Siqam+.713*Siqak+.502*Siqlt $ FRML _G Siqqql = .112*Siqu+.155*Siqab+.143*Siqam+.076*Siqak+.133*Siqlt -Jsiqal-Jsiqel-Jsiqngl-Jsiqnel-Jsiqnfl -Jsiqnnl-Jsiqnbl-Jsiqnml-Jsiqntl-Jsiqnkl -Jsiqnql-Jsiqbl-Jsiqqhl-Jsiqqsl-Jsiqqtl -Jsiqqfl-Jsiqhl-Jsiqol $ () Mangler genberegning af nøgler /TMK FRML _GJ_ Siqa = Siqal +(.094/(1-.565))*(Siqej-Siqejh)+.070*Siqv+.020*Siqr+(.113/(1-.262))*Siqsq+Siqaa $ FRML _GJ_ Siqe = Siqel +(.000/(1-.565))*(Siqej-Siqejh)+.000*Siqv+.006*Siqr+(.000/(1-.262))*Siqsq $ FRML _GJ_ Siqng = Siqngl+(.000/(1-.565))*(Siqej-Siqejh)+.000*Siqv+.015*Siqr+(.003/(1-.262))*Siqsq $ FRML _GJ_ Siqne = Siqnel+(.006/(1-.565))*(Siqej-Siqejh)+.003*Siqv+.018*Siqr+(.004/(1-.262))*Siqsq $ FRML _GJ_ Siqnf = Siqnfl+(.008/(1-.565))*(Siqej-Siqejh)+.032*Siqv+.058*Siqr+(.042/(1-.262))*Siqsq $ FRML _GJ_ Siqnn = Siqnnl+(.003/(1-.565))*(Siqej-Siqejh)+.005*Siqv+.008*Siqr+(.004/(1-.262))*Siqsq $ FRML _GJ_ Siqnb = Siqnbl+(.006/(1-.565))*(Siqej-Siqejh)+.004*Siqv+.009*Siqr+(.009/(1-.262))*Siqsq $ FRML _GJ_ Siqnm = Siqnml+(.018/(1-.565))*(Siqej-Siqejh)+.020*Siqv+.058*Siqr+(.050/(1-.262))*Siqsq $ FRML _GJ_ Siqnt = Siqntl+(.003/(1-.565))*(Siqej-Siqejh)+.001*Siqv+.011*Siqr+(.008/(1-.262))*Siqsq $ FRML _GJ_ Siqnk = Siqnkl+(.009/(1-.565))*(Siqej-Siqejh)+.007*Siqv+.046*Siqr+(.017/(1-.262))*Siqsq $ FRML _GJ_ Siqnq = Siqnql+(.011/(1-.565))*(Siqej-Siqejh)+.013*Siqv+.041*Siqr+(.034/(1-.262))*Siqsq $ FRML _GJ_ Siqb = Siqbl +(.006/(1-.565))*(Siqej-Siqejh)+.149*Siqv+.022*Siqr+(.041/(1-.262))*Siqsq $ FRML _GJ_ Siqqh = Siqqhl+(.056/(1-.565))*(Siqej-Siqejh)+.208*Siqv+.508*Siqr+(.112/(1-.262))*Siqsq $ FRML _GJ_ Siqqs = Siqqsl+(.006/(1-.565))*(Siqej-Siqejh)+.002*Siqv+.023*Siqr+(.009/(1-.262))*Siqsq $ FRML _GJ_ Siqqt = Siqqtl+(.017/(1-.565))*(Siqej-Siqejh)+.392*Siqv+.027*Siqr+(.124/(1-.262))*Siqsq $ FRML _GJ_ Siqqf = Siqqfl+(.016/(1-.565))*(Siqej-Siqejh)+.002*Siqv+.006*Siqr+(.018/(1-.262))*Siqsq $ FRML _GJ_ Siqh = Siqhl + Siqejh +.001*Siqv+.007*Siqr+Siqsh $ FRML _GJ_ Siqo = Siqol +(.040/(1-.565))*(Siqej-Siqejh)+.018*Siqv+.000*Siqr+(.002/(1-.262))*Siqsq $ FRML _G Siqqq = Siqqql+(.136/(1-.565))*(Siqej-Siqejh)+.073*Siqv+.117*Siqr+(.148/(1-.262))*Siqsq -Jsiqa-Jsiqe-Jsiqng-Jsiqne-Jsiqnf-Jsiqnn-Jsiqnb -Jsiqnm-Jsiqnt-Jsiqnk-Jsiqnq-Jsiqb-Jsiqqh-Jsiqqs -Jsiqqt-Jsiqqf-Jsiqh-Jsiqo $ () ### YWYRYRP.F05 ### () () () BRUTTOVÆRDITILVÆKST I ÅRETS PRISER () () FRML _I Yfa = fXa*pxa - Va $ FRML _I Yfe = fXe*pxe - Ve $ FRML _I Yfng = fXng*pxng - Vng $ FRML _I Yfne = fXne*pxne - Vne $ FRML _I Yfnf = fXnf*pxnf - Vnf $ FRML _I Yfnn = fXnn*pxnn - Vnn $ FRML _I Yfnb = fXnb*pxnb - Vnb $ FRML _I Yfnm = fXnm*pxnm - Vnm $ FRML _I Yfnt = fXnt*pxnt - Vnt $ FRML _I Yfnk = fXnk*pxnk - Vnk $ FRML _I Yfnq = fXnq*pxnq - Vnq $ FRML _I Yfb = fXb*pxb - Vb $ FRML _I Yfqh = fXqh*pxqh - Vqh $ FRML _I Yfqs = fXqs*pxqs - Vqs $ FRML _I Yfqt = fXqt*pxqt - Vqt $ FRML _I Yfqf = fXqf*pxqf - Vqf $ FRML _I Yfqq = fXqq*pxqq - Vqq $ FRML _I Yfh = fXh*pxh - Vh $ () () () PRISER PÅ BRUTTOVÆRDITILVÆKST () () FRML _I pyfa = Yfa/fYfa $ FRML _I pyfe = Yfe/fYfe $ FRML _I pyfng = Yfng/fYfng $ FRML _I pyfne = Yfne/fYfne $ FRML _I pyfnf = Yfnf/fYfnf $ FRML _I pyfnn = Yfnn/fYfnn $ FRML _I pyfnb = Yfnb/fYfnb $ FRML _I pyfnm = Yfnm/fYfnm $ FRML _I pyfnt = Yfnt/fYfnt $ FRML _I pyfnk = Yfnk/fYfnk $ FRML _I pyfnq = Yfnq/fYfnq $ FRML _I pyfb = Yfb/fYfb $ FRML _I pyfqh = Yfqh/fYfqh $ FRML _I pyfqs = Yfqs/fYfqs $ FRML _I pyfqt = Yfqt/fYfqt $ FRML _I pyfqf = Yfqf/fYfqf $ FRML _I pyfqq = Yfqq/fYfqq $ FRML _I pyfo = Yfo/fYfo $ () () () BRUTTORESTINDKOMST () () FRML _I Yr1 = Yf - Siq - Yw1 $ FRML _I Yra1 = Yfa - Siqa - Ywa1 $ FRML _I Yre1 = Yfe - Siqe - Ywe1 $ FRML _I Yrng1 = Yfng - Siqng - Ywng1 $ FRML _I Yrne1 = Yfne - Siqne - Ywne1 $ FRML _I Yrnf1 = Yfnf - Siqnf - Ywnf1 $ FRML _I Yrnn1 = Yfnn - Siqnn - Ywnn1 $ FRML _I Yrnb1 = Yfnb - Siqnb - Ywnb1 $ FRML _I Yrnm1 = Yfnm - Siqnm - Ywnm1 $ FRML _I Yrnt1 = Yfnt - Siqnt - Ywnt1 $ FRML _I Yrnk1 = Yfnk - Siqnk - Ywnk1 $ FRML _I Yrnq1 = Yfnq - Siqnq - Ywnq1 $ FRML _I Yrb1 = Yfb - Siqb - Ywb1 $ FRML _I Yrqh1 = Yfqh - Siqqh - Ywqh1 $ FRML _I Yrqs1 = Yfqs - Siqqs - Ywqs1 $ FRML _I Yrqt1 = Yfqt - Siqqt - Ywqt1 $ FRML _I Yrqf1 = Yfqf - Siqqf - Ywqf1 $ FRML _I Yrqq1 = Yfqq - Siqqq - Ywqq1 $ FRML _I Yrh1 = Yfh - Siqh - Ywh1 $ FRML _I Yro1 = Yfo - Siqo - Ywo2 $ FRML _G Yrp = kyrp2 *( bqsa1*Yfa+bqse1*Yfe+bqsng1*Yfng+bqsnf1*Yfnf +bqsnn1*Yfnn+bqsnb1*Yfnb+bqsnm1*Yfnm+bqsnt1*Yfnt +bqsnk1*Yfnk+bqsnq1*Yfnq+bqsb1*Yfb+bqsqh1*Yfqh +bqsqs1*Yfqs+bqsqt1*Yfqt+bqsqq1*Yfqq+0.82*Yfh ) $ FRML _D Yrs1 = Yr1 - Yrqf1 - Ivo1 - Yrp $ () () () KORREKTIONSFAKTOR TIL PRISSAMMENBINDINGSRELATIONER () () FRML _D____Z kkp = kkp + 1 - Yf /( Yfa+Yfe+Yfng+Yfne+Yfnf+Yfnn+Yfnb+Yfnm+Yfnt+Yfnk +Yfnq+Yfb+Yfqh+Yfqs+Yfqt+Yfqf+Yfqq+Yfh+Yfo ) $ () ### FINDAN.F05 ### () () () ---------------------------- () FINANSIEL DELMODEL () ---------------------------- () () () PRIVAT IKKE-FINANSIEL SEKTOR () () FRML _GJ_D Ytr1 = 0.95321*Ytr $ FRML _GJ_D pytr1 = (1/0.46044)*pytr $ FRML _GJ_DF Wpm = ( 104.377+(505.1278+255.31*dw84)*iwde -494.498*iwlo-10.6298*iwdme -255.31*dw84*iwdme) *pytr1*1000+.355285*Wwe +0.0296153*Ytr1-1*Vkihw-(1-kwpmwpb)*Wpbnz $ FRML _GJ_DF Wpcz = 3879.62*pytr1+.037039*Ytr1-69.0964*pytr1*(tid-1974) $ FRML _GJ_DF Wpbnz = (-18.4369+121.206*(iwbz-iwde))*pytr1*1000*3.23546 +0.444346*Wpqe +0.546906*(Wpbnz(-1)-0.444346*Wpqe(-1)) $ FRML _I Wpbz = Wpbnz + Wzbr $ FRML _GJ_DF Wzbr = -( (-4.96506+140.781*(iwbz-iwde))*pytr1*1000*3.18663 +0.271615*Wpqe-0.023947*Ytr1*3.18663-0.963523*Vkihw -0.522006*(Wzbr(-1)-0.963523*Vkihw(-1) +0.271615*Wpqe(-1)) ) $ FRML _GJ_DF Wblp = ( 101.262+494.498*iwde-497.54062*iwlo +3.04262*iwdme ) *pytr1*1000 -0.210929*Wwe+0.0296153*Ytr1+0.398668*Vkipw +kwblpwpb*Wpbnz $ FRML _G___F Wflp = -(Wwe-Vkihw-Vkipw) + Wpm + Wpbnz - Wblp $ FRML _G Tffonw = Tffon + Tffonwr + Jtffonw $ FRML _G Tffpnw = Tffpn + Jtffpnw $ FRML _G Tfenw = Tfen + Jtfenw $ FRML _G Tfsnw = Tfsn + Jtfsnw $ FRML _G Tfknw = Tfkn + Jtfknw $ FRML _G Tfpinw = Tfenw - Tfsnw - Tfknw $ FRML _G Dif(Wpqp) = Tfpinw - Dif(Wnqn) $ FRML _G Dif(Wpqnp) = Tfpinw - Dif(Wnqn) - (Tffonw-Tffonwr+Tpatpi-Tpatpu+Tidatp) - Tffpnw - Dif(Wbqb) $ FRML _D Wpqx = Wplb + Whll + Wsbz + Whbz + Wrbz + Wtlf + Wzbf + Wpdsb - (Wglp+Welp+Wflt+Wflh+Wfqp+Walp) $ FRML _D Wpqe = Wpqnp - Wpqx $ FRML _D Wwe = Wpqe + Vkipw + Vkihw $ FRML _D Dif(Vkipw) = (I - Io11 - Io1res + Tkoubi) - fIbh*pibh + Vkipwres $ FRML _D Dif(Vkihw) = fIbh*pibh + Vkihwres $ () () () PENGEINSTITUTTER () () FRML _GJ_DF Wbcz = 1755.93*pytr1+0.006053*(Wpdb+Wldb) -108.621*pytr1*(tid-1974) $ FRML _GJ_DF Wbbz = (-16.1411+574.670*(iwbz-iwnz+4*(iwbz-iwbze))) *pytr1*1000 +0.879402*Wlik-0.718608*(Wblp+Wbll) $ FRML _G Wbdsn = krea0 *( Wpdb+Wldb-Wpdsb -(1+krea1)*(Wpdb(-1)+Wldb(-1)-Wpdsb(-1)) ) + Jwbdsn $ FRML _D Wpdb = Wpm - Wpcz + Wpdsb $ FRML _D Wlik = Wflb + Wplb + Wldb + Wpdb + Wbqb - Wbcz - Wbdsn - Wbqf - Wbvf $ () () () NATIONALBANK () () FRML _G Wnlb = Wbbz - (Wlik-Wbll-Wblp) + Wbdn $ FRML _G Wnbz = (1-Diwbz) *( krea2*(Wfqf-Wfqfx) -krea3 *( Wflp+Wfll+Wflt+Wflb+Wflh+Wfle+Wfbz+Wfqp -Wflpx-Wfllx-Wfltx-Wflbx-Wflhx-Wflex-Zwfbz -Wfqpx-Wzbf-Wbqf-Welf-Wtlf+Wzbfx+Wbqfx +Welfx+Wtlfx ) +Wnbzx ) + Diwbz *( Wzbl+Wzbg-Wobz-Wabz-Wlbz-Wibz -Wfbz-Wgbz-Wrbz-Wsbz-Whbz-Wbbz-Wpbnz ) $ FRML _G Wnvf = Wnvf(-1) + Tfenw + Wflg + Wflp + Wfqg + Wfll + Wflt + Wflb + Wflh + Wfle +Wfbz + Wfqp - (Wzbf+Wbqf+Welf+Wglf+Wtlf+Wbvf) - ( Wflg(-1)+Wflp(-1)+Wfqg(-1)+Wfll(-1) +Wflt(-1)+Wflb(-1)+Wflh(-1)+Wfle(-1) +Wfbz(-1)+Wfqp(-1)-Wzbf(-1)-Wbqf(-1)-Wbvf(-1) -Welf(-1)-Wglf(-1)-Wtlf(-1) ) $ FRML _G Wgln = Wgln(-1) + Tfsnw - Wgll - Wglp - Wgbz - Wglf + Wfqg + Wzbg + Wflg + Wilg + ( Wgll(-1)+Wglp(-1)+Wgbz(-1)+Wglf(-1) -Wfqg(-1)-Wzbg(-1)-Wflg(-1)-Wilg(-1) ) $ FRML _G iwnz = iwnzx + krea4*(iwbz-iwbzx) $ FRML _G iwmm = iwmmx + krea4*(iwbz-iwbzx) $ () () () STAT, KOMMUNER OG FONDE () () FRML _G Wzbg = Wzbgx - krea5*(Tfsnw-Tfsnxw) + (Wzbg(-1)-Wzbgx(-1)) $ FRML _G Wflg = Wflgx - krea6*(Wnvf-Wnvfx) $ FRML _G Wldb = Wldb(-1) + Wgll + Wfll + Whll + Wall + Wbll + Wzbl - Wlbz - ( Wgll(-1)+Wfll(-1)+Whll(-1) +Wall(-1)+Wbll(-1)+Wzbl(-1)-Wlbz(-1) ) + Tfknw $ FRML _G Wlql = Wlql(-1) + Tfknw $ FRML _D Wzzl = Wgll + Wfll + Whll + Wall + Wbll + Wzbl + Wlql $ FRML _G Wobz = Tffonw-Tffonwr + Tpatpi - Tpatpu + Tidatp + Wobz(-1) $ FRML _G Wabz = Tffpnw*kwabz + Wabz(-1) $ FRML _G Wazz = Wazz(-1) + Tffpnw $ FRML _D Walp = Wazz - Wabz - Wall $ () () () UDLAND () () FRML _G Wfqf = Wfqf(-1) - Tfenw $ FRML _GJ_DFZ Wfbz = pytr1 *( (Wfbz(-1)/pytr1(-1)) +21.9636*dtwfbz*(iwbz-iwbzv) ) $ FRML _G Wflkg = Wflkg(-1) + (Wflg-Wflg(-1)) + (ewdm/ewdm(-1)-1)*kwflkg*Wflkg(-1) $ FRML _G Wglkf = Wglf + Jwglkf $ () () () RENTER OG KURSER () () FRML _G___F iwbz = (1-Diwbz) *( ( Wzbl+Wzbg-Wobz-Wabz-Wlbz-Wnbz-Wibz -Wgbz-Wrbz-Wsbz-Whbz-Wfbz +(16.1411+574.670*(4*iwbze+iwnz)) *pytr1*1000-0.879402*Wlik+0.718608*(Wblp+Wbll) -Jwbbz +(18.4369+121.206*iwde)*3.23546*pytr1*1000 -0.444346*Wpqe -0.546906*(Wpbnz(-1)-0.444346*Wpqe(-1)) -Jwpbnz ) /(pytr1*1000*(574.670*5+121.206*3.23546)) ) + Diwbz*Ziwbz $ FRML _GJRD Dlog(lna) = Dlog(lna1) $ FRML _DJ_DF iwbzv = iwbdm - (1/3)*(iwbz(-1)-iwbdm(-1)) + 0.20464 *( ( 10*Dlog(lna/lnat)+16*Dlog(lna(-1)/lnat(-1)) +6*Dlog(lna(-2)/lnat(-2)) ) /8 ) -0.20934*((Enl/Y)+Enl(-1)/Y(-1))+0.02204 $ FRML _GJ_DF iwde = 1.16169 *( 0.257815*Dwrad*iwbz+.686266*Dwrad*iwdi +0.408538*(1-Dwrad)*iwlo+0.0895399*(1-Dwrad)*iwmm -0.0338057*Dwrad+0.0003984 ) $ FRML _GJ_DF iwlo = 1.237028 *( 0.152856*(1-Dwral)*iwbz +0.854339*Dwral*iwdi+0.521494*(1-Dwral-dw86)*iwdi +0.0733236*(1-Dwral)*iwmm+0.328907*dw86*iwmm -0.00637343*drml+0.057674 ) $ FRML _G iwdme = iwdm + ((ewdme/ewdm)-1) $ FRML _G iwbze = kiw*(iwbz-iwbzx) + iwbzex $ FRML _G iku = kiku*iwlo $ FRML _G iwbdm = kiwbdm*iwdm $ () ### PENSION.F05 ### () () PENSIONSMODEL () FRML _GJRD iwpp = kiwpp*Tii/((Wazz(-1)+Wsbz(-1))*1.5) $ FRML _G Tipphp = ktipphp*iwpp*Wpp(-1) $ FRML _G Tipphpp = ktipphpp*Tipphp $ FRML _D Tipphpb = Tipphp-Tipphpp $ FRML _G Tipphlp = iwpp*Wp_z_iq(-1) $ FRML _DJRD iwppd = (Tipphlp-Sdrpp)/Wp_z_iq(-1) $ FRML _DJ_D bsdr = 1-(108024/(Wall+Walp+Wabz))$ () skal genovervejes. () portefølje I lp-sektor, kollektive ordninger () FRML _D Tflpn = Tffpi-Tffpu+Tipphlp-Sdrpp $ FRML _G Olp = ( (pws_lse/pws_lse(-1)-1)*Wsep_z_iq(-1) + (pws_kax/pws_kax(-1)-1)*Wsdkp_z_iq(-1) + (pwb/pwb(-1)-1) *Wbp_z_iq(-1) )*(1+JRolp)*(1-Dolp) + Dolp*Zolp $ FRML _G__D Dif(Wsep_z_iq) = Tflpn*Wsep_z_iq(-1)/Wp_z_iq(-1) + (pws_lse/pws_lse(-1)-1)*Wsep_z_iq(-1)*(1+JRolp) + JDwsep_z_iq $ FRML _G__D Dif(Wsdkp_z_iq) = Tflpn*Wsdkp_z_iq(-1)/Wp_z_iq(-1) + (pws_kax/pws_kax(-1)-1)*Wsdkp_z_iq(-1)*(1+JRolp) + JDWsdkp_z_iq $ FRML _G__D Dif(Wbp_z_iq) = Tflpn*Wbp_z_iq(-1)/Wp_z_iq(-1) + (pwb/pwb(-1)-1)*Wbp_z_iq(-1)*(1+JRolp) - JDwsep_z_iq - JDWsdkp_z_iq $ FRML _D Wp_z_iq = Wsep_z_iq + Wsdkp_z_iq + Wbp_z_iq $ FRML _D pwz = pwz(-1)*(Olp+Wp_z_iq(-1))/Wp_z_iq(-1) $ () Arbejdsgiveradministrerede løbende ordninger FRML _GJ_D Tbhsl = ktbhsl2*(1+JRktbhsl)*Ysda3*(1-tsda) $ FRML _GJ_D Typshl = kbw*Wpspl(-1)*(iwppd/(1-(1+iwppd)**(-nhl))) $ FRML _GJ_D Tishl = iwppd*Wpspl(-1)*(1+JRtishl) $ FRML _GJ_D Ospl = Wpspl(-1)*(pwz/pwz(-1)-1) $ FRML _DJ_D Wpspl = Wpspl(-1)+Tbhsl-Typshl+Tishl+Ospl $ () Arbejdsgiveradministrerede engangsydelser FRML _GJ_D Tbhsk = ktbhsk2*(1+JRktbhsk)*Ysda3*(1-tsda) $ FRML _GJ_D Typshk = kbyk*Wpspk(-1) $ FRML _GJ_D Tishk = iwppd*Wpspk(-1)*(1+JRtishk) $ FRML _GJ_D Ospk = Wpspk(-1)*(pwz/pwz(-1)-1) $ FRML _DJ_D Wpspk = Wpspk(-1)+Tbhsk-Typshk+Tishk+Ospk $ () Privattegnede løbende ordninger FRML _GJ_D Tphhli = kbhl2*(1+JRtphhli)*Ydph1 $ FRML _GJ_D Tphhlu = kbwp*Wphpl(-1)*(iwppd/(1-(1+iwppd)**(-nhl))) $ FRML _GJ_D Tihhl = iwppd*Wphpl(-1)*(1+JRtihhl) $ FRML _GJ_D Ohpl = Wphpl(-1)*(pwz/pwz(-1)-1) $ FRML _DJ_D Wphpl = Wphpl(-1)+Tphhli-Tphhlu+Tihhl+Ohpl $ () Privattegnede ordninger med engangsudbetalinger FRML _GJ_D Tphhki = kbhk2*(1+JRtphhki)*Ydph1 $ FRML _GJ_D Tphhku = kbpk*Wphpk(-1) $ FRML _GJ_D Tihsk = iwppd*Wphpk(-1)*(1+JRtihsk) $ FRML _GJ_D Ohpk = Wphpk(-1)*(pwz/pwz(-1)-1) $ FRML _DJ_D Wphpk = Wphpk(-1)+Tphhki-Tphhku+Tihsk+Ohpk $ () Ordinær atp FRML _GJ_D Tpatpi = kbatpi*(1-tsda)*(Qw1*(1-bq1/2)+kkbatpiul*(Ulfhk+Ulu))*.001 $ FRML _GJ_D Tpatpu = kbatpu*Watp(-1)*(1+JRtpatpu) $ FRML _GJ_D Tidatp = Watp(-1)*iwpp*(1+JRtidatp)-Sdratp $ FRML _G Oatp = ( Wseatp(-1)*(pws_lse/pws_lse(-1)-1) + Wsdkatp(-1)*(pws_kax/pws_kax(-1)-1) + Wbatp(-1)*(pwb/pwb(-1)-1) )*(1+JRoatp)*(1-Doatp) + Doatp*Zoatp $ FRML _G__D Dif(Wseatp) = (Tpatpi-Tpatpu+Tidatp)*Wseatp(-1)/Watp(-1) + (pws_lse/pws_lse(-1)-1)*Wseatp(-1)*(1+JRoatp) + JDwseatp $ FRML _G__D Dif(Wsdkatp) = (Tpatpi-Tpatpu+Tidatp)*Wsdkatp(-1)/Watp(-1) + (pws_kax/pws_kax(-1)-1)*Wsdkatp(-1)*(1+JRoatp) + JDwsdkatp $ FRML _G__D Dif(Wbatp) = (Tpatpi-Tpatpu+Tidatp)*Wbatp(-1)/Watp(-1) + (pwb/pwb(-1)-1)*Wbatp(-1)*(1+JRoatp) + JDwbatp $ FRML _G__D Dif(Wqatp) = (Tpatpi-Tpatpu+Tidatp)*Wqatp(-1)/Watp(-1) - JDwseatp - JDwsdkatp - JDwbatp $ FRML _D pwatp = pwatp(-1)*(Oatp+Watp(-1))/Watp(-1) $ FRML _I Wsatp = Wsdkatp + Wseatp $ FRML _I Watp = Wseatp + Wsdkatp + Wbatp + Wqatp $ () Den midlertidige pensionordning (DMP) - midlertidig ATP FRML _GJ_D Tpdmpu = kbdmpu*Wdmp(-1)*(1+JRtpdmpu) $ FRML _GJ_D Tiddmp = Wdmp(-1)*iwpp*(1+JRtiddmp)-Sdrdmp $ FRML _GJ_D Odmp = Wdmp(-1)*(pwatp/pwatp(-1)) $ FRML _DJ_D Wdmp = Wdmp(-1)+Tpdmpi-Tpdmpu+Tiddmp+Odmp $ () Den Særlige pensionsordning (SP)- Særlig ATP - evt fra 2002 FRML _GJ_D Tpspi = kbspi*(ksda3*Ysda3-(Tbhsk+Tbhsl)+Tyd+Tyms+Tymb +Tyrks+Tyuly+Tyuak+Tyurev)*(1+JRtpspi) $ FRML _GJ_D Tpspu = kbspu*Wsp(-1)*(1+JRtpspu) $ FRML _GJ_D Tidsp = Wsp(-1)*iwpp*(1+JRtidsp)-Sdrsp $ FRML _GJ_D Osp = Wsp(-1)*(pwatp/pwatp(-1)-1) $ FRML _DJ_D Wsp = Wsp(-1)+Tpspi-Tpspu+Tidsp+Osp $ () lønmodtagernes dyrtidsfond (LD) FRML _GJ_D Tpldu = kbld*Wld(-1)*(1+JRtpldu) $ FRML _GJ_D Tidld = Wld(-1)*iwpp*(1+JRtidld)-Sdrld $ FRML _GJ_D Old = Wld(-1)*(pwatp/pwatp(-1)-1) $ FRML _DJ_D Wld = Wld(-1)+Tpldi-Tpldu+Tidld+Old $ FRML _D Wpp = Wphpk+Wphpl+Wpspl+Wpspk $ FRML _GJ_D Tihsp = ktihsp*(Tishl+Tishk) + Sdrpp + Tidatp + Sdratp $ FRML _GJ_D Tbhsp = ktbhsp*(Tbhsl+Tbhsk) + Tihsp + Tpatpi - Sdratp - Sdrpp $ FRML _GJ_D Typshp = ktypshp*(Typshl+Typshk)+Tpatpu $ AFTER $ () -------------------------------------------------------------------------- () --------------------- EFTERMODEL-VARIABLER ------------------------------- () -------------------------------------------------------------------------- () ### FORBRUG.T05 ### () () PRIVAT FORBRUG () () FRML IYDWT Ydwt = Yw1+Twen-Typri-Saso+Ty+Tyen-(Sd-Sden) $ FRML ISDKOR Sdkor = Sd - Sden $ FRML IYRPS1 YRPS1 = Yr1 - Ivo1 $ FRML IYDD Ydd = Ydpl1/pcp4v2 $ FRML IYDDxH Yddxh = (Ydpl1/pcp4v2) - fCh $ FRML IWCPLD Wcpld = Wcp3(-1)/pcp4v2 $ FRML IFCPDK fCpdk = fCf+fCn+fCi+fCe+fCg+fCb+fCv+fCh+fCk+fCs $ FRML IFCP42 fCp42 = fCp - fCb + fCbs $ FRML IFCP4XH1 fCp4xh1 = fCp42 - fCh $ FRML ICh1 Ch1 = fChl*pchl+fChe*pche $ FRML IFCh1 fCh1 = Ch1/pch1 $ FRML IFCP411 fCp411 = fCp4xh1 + fCh1 $ FRML ICB Cb = pcb*fCb $ FRML ICp42 Cp42 = Cp - Cb + Cbs $ FRML ICp411 CP411 = Cp4xh1+Ch1 $ FRML ICPDK Cpdk = fCf*pcf+fCn*pcn+fCi*pci+fCe*pce+fCg*pcg+fCb*pcb +fCv*pcv+fCh*pch+fCk*pck+fCs*pcs $ FRML ICPXH Cpxh = Cp-(pch*fCh) $ FRML ICF Cf = pcf*fCf $ FRML ICN Cn = pcn*fCn $ FRML ICI Ci = pci*fCi $ FRML ICE Ce = pce*fCe $ FRML ICG Cg = pcg*fCg $ FRML ICV Cv = pcv*fCv $ FRML ICH Ch = pch*fCh $ FRML ICK Ck = pck*fCk $ FRML ICS Cs = pcs*fCs $ FRML ICT Ct = pct*fCt $ FRML ICGBK1 Cgbk1 = pcgbk1*fCgbk1 $ FRML IfCgk fCgk = Cgk/pcgk $ FRML IYDY Ydy = 100*Ydp/Y $ FRML IBCP4XH1 bcp4xh1 = (Cp42-(pch*fCh))/(Ydpl1) $ FRML IBCPXH bcpxh = (Cp-(pch*fCh))/(Ydpl1-(pch*fCh)) $ FRML IBCP42 bcp42 = Cp42/Ydpl1 $ FRML IBCP411 bcp411 = CP411/Ydpl1 $ FRML IBCP bcp = Cp/Ydp $ FRML IBCPYSM bcpysm = Cp/(Yf + Ty) $ FRML IBCPY bcpy = Cp/Y $ FRML IBCPYF bcpyf = Cp/Yf $ FRML IBWCP3 bwcp3 = Wcp3(-1) / Ydp $ FRML IBfCgk bfcgk = fCg/fCk $ FRML IECP4XH1 Ecp4xh1 = Cp4xh1 - Exp( 0.383026*Dlog(Ydphk2) +0.111182*Dlog(Wcp3(-1)) -0.560498*Dlog(pcp4xhv1)+0.080145*Dlog(pch1) -0.295230*(Log(Cp4xh1(-1)/pcp4xhv1(-1)) -(0.870514*Log(Ydpl1(-1)/pcp4v2(-1)) +(1-0.870514)*Log(Wcp3(-2)/pcp4v2(-1)) -0.564660*Log(pcp4xhv1(-1)/pcp4v2(-1)) -0.269245 + kcp4xhw )) +Log(Cp4xh1(-1)/pcp4xhv1(-1))+Log(pcp4xhv1)) $ FRML IEFCP4XH Efcp4xh1 = Ecp4xh1*fCp4xh1/Cp4xh1 $ () ### INVEST.T05 ### () () INVESTERINGER () FRML IFIF fIf = fIm + fIb + fIt $ FRML IIF If = I - fIl*pil $ FRML IFI fI = fIf + fIl $ FRML IFIP fIp = fImp + fImk + fIbp + fIbh + fIt + fIl $ FRML IFIP11 fIp11 = fIbp11 + fImp11 + fIt + fIbh + fIl $ FRML IIP11 Ip11 = I - Io11 $ FRML IFIFP fIfp = fImp + fImk + fIbp + fIbh + fIt $ FRML IFIFPXH fIfpxh = fImp + fImk + fIbp + fIt $ FRML IFIFP1Xh fIfp1xh1 = fIbp11 + fImp11 + fIt $ FRML IFIFO fIfo = fImo + fIbo $ FRML IFIO fIo = fImo + fIbo $ FRML IFIMO1 fImo1 = fIo1-fIbo1 $ FRML IIO1 Io1 = Io11 - Tkoubi $ FRML Ipio1 pio1 = Io1/fIo1 $ FRML IIbo1 Ibo1 = fIbo1*pibo1 $ FRML IImo1 Imo1 = Io1-Ibo1 $ FRML Ipimo1 pimo1 = Imo1/fImo1 $ FRML IIT It = pit*fIt $ FRML IIBB Ib = pibp11*fIbp11 + pibo11*fIbo11 + pibh*fIbh $ FRML IIBM Im = pimp11*fImp11 + pimo11*fImo11 $ FRML IFIBP1 fIbp1 = fIb-fIbh-fIbo1 $ FRML IFIMP1 fImp1 = fIm-fImo1 $ FRML IIPB11 Ibp11 = pibp11*fIbp11 $ FRML IIPM11 Imp11 = pimp11*fImp11 $ FRML IFIP1 fIp1 = fI-fIo1 $ FRML IIP1 Ip1 = I-Io1 $ FRML IIBP1 Ibp1 = Ib-fIbh*pibh-Ibo1 $ FRML IIMP1 Imp1 = Ip1-Ibp1-fIbh*pibh-fIt*pit-fIl*pil $ FRML IPIBP1 pibp1 = Ibp1/fIbp1 $ FRML IPIMP1 pimp1 = Imp1/fImp1 $ FRML IfIbhe fIbhe = fIbh-fIbhl $ FRML IInbvh Invbh = fInvbh*pibh $ FRML IIWBZH iwbzh = iwbz*(1-tsuih) $ FRML IPIBHG pibhg = .8*pibh+.2*phgk $ FRML IPHKHG phkhg = phk/pibhg $ FRML IBUIBH1 buibh1 = Che/(fChe*phk) $ FRML IUIBH uibh = buibh1*phk/fKbhe(-1) $ () Dekomponering af boligusercost () U (egtl usercost) () S (skatter) l (lejeværdi) () Q (ejendomsskat) () Y (ej.Værdiskat) () n (brutto/nettokapital) FRML IUIBHu uibheu = (1-tsuih)*iwbz + bfinvbh - 0.50*rpibhe $ FRML IUIBHs uibhs = (tsuih*Yrphs + fKnbhe(-2)/( fKnbp(-2)+fKnbh(-2)) *Siqej + Ssyej )/fChe $ FRML IUIBHsl uibhsl = tsuih*Yrphs/fChe $ FRML IUIBHsq uibhsq = (fKnbhe(-2)/(fKnbp(-2)+fKnbh(-2))*Siqej)/fChe $ FRML IUIBHsy uibhsy = Ssyej/fChe $ FRML IUIBHn uibhn = fKnbhe(-1)/fKbhe(-1) $ () () LAGERINVESTERINGER () FRML IIL Il = pil*fIl $ () ### IMPEKSP.T05 ### () () () EKSPORT I FASTE PRISER () () FRML IFE59 fE59 = fE5+fE6+fE7y+fE7q+fE8 $ FRML IFE59X7Y fE59x7y = fE59-fE7y $ FRML IFEVX3 fEvx3 = fEv-fE3 $ FRML IFEST fEst = fEs+fEt $ () () () EKSPORT I ÅRETS PRISER () () FRML IE0 E0 = fE0*pe0 $ FRML IEN0 En0 = fE0*pne0 $ FRML IE1 E1 = fE1*pe1 $ FRML IE2 E2 = fE2*pe2 $ FRML IE3 E3 = fE3*pe3 $ FRML IE5 E5 = fE5*pe5 $ FRML IE6 E6 = fE6*pe6 $ FRML IE7Y E7y = fE7y*pe7y $ FRML IEN7Y En7y = fE7y*pne7y $ FRML IE7Q E7q = fE7q*pe7q $ FRML IE8 E8 = fE8*pe8 $ FRML IESQ Esq = fEsq*pesq $ FRML IESS Ess = fEss*pess $ FRML IE59 E59 = E5+E6+E7y+E7q+E8 $ FRML IE59x7y E59x7y = E59-E7y $ FRML IEVX3 Evx3 = Ev-E3 $ FRML IEST Est = Es+Et $ () () () UDENLANDSK EFTERSPØRGSEL OG KONKURRENTPRIS INDUSTRIVARER () Eksklusiv skibe, fly mm (fE7y/pe7y) () FRML IFEE59 fEe59 = fEe59(-1)*( (fE5(-1)/(fE59(-1)-fE7y(-1)))*fEe5/fEe5(-1) + (fE6(-1)/(fE59(-1)-fE7y(-1)))*fEe6/fEe6(-1) + (fE7q(-1)/(fE59(-1)-fE7y(-1)))*fEe7q/fEe7q(-1) + (fE8(-1)/(fE59(-1)-fE7y(-1)))*fEe8/fEe8(-1) ) $ FRML IPEE59 pee59 = pee59(-1)*( (fE5(-1)/(fE59(-1)-fE7y(-1)))*pee5/pee5(-1) + (fE6(-1)/(fE59(-1)-fE7y(-1)))*pee6/pee6(-1) + (fE7q(-1)/(fE59(-1)-fE7y(-1)))*pee7q/pee7q(-1) + (fE8(-1)/(fE59(-1)-fE7y(-1)))*pee8/pee8(-1) ) $ () () () IMPORT I FASTE PRISER (INDEHOLDER OGSÅ NOGET RE-IMPORT) () () FRML IFM7 fM7 = fM7b + fM7y + fM7q $ FRML IFM6 fM6 = fM6m + fM6q $ FRML IFM3 fM3 = fM3k + fM3r + fM3q $ FRML IFM59 fM59 = fM5+fM6+fM7+fM8 $ FRML IFM59x7y fM59x7y = fM59-fM7y $ FRML IfMvx3 fMvx3 = fMv-fM3 $ FRML IFMST fMst = fMs+fMt $ () () () IMPORT I ÅRETS PRISER () () FRML IM0 M0 = pm0*fM0 $ FRML Im1 M1 = pm1*fM1 $ FRML Im2 M2 = pm2*fM2 $ FRML IM3R M3r = pm3r*fM3r $ FRML IM3Q M3q = pm3q*fM3q $ FRML IM3K M3k = pm3k*fM3k $ FRML Im3 M3 = M3k + M3r + M3q $ FRML IPM3 pm3 = M3/fM3 $ FRML IM5 M5 = pm5*fM5 $ FRML IM6M M6m = pm6m*fM6m $ FRML IM6Q M6q = pm6q*fM6q $ FRML IM6 M6 = M6m + M6q $ FRML IM7B M7b = pm7b*fM7b $ FRML IM7Y M7y = pm7y*fM7y $ FRML IM7Q M7q = pm7q*fM7q $ FRML IM7 M7 = M7b + M7y + M7q $ FRML IM8 M8 = pm8*fM8 $ FRML IM59 M59 = M5+M6+M7+M8 $ FRML IM59x7y M59x7y = M59-M7y $ FRML IMvx3 Mvx3 = Mv-M3 $ FRML IMST Mst = Ms+Mt $ () () () IMPORTKVOTER () () FRML IBFM bfm = fM/(fM+fY) $ FRML IBM bm = (M)/(M+Y) $ () () FRML YZfM7bim Zfm7bim = am7bim*fIm $ FRML YZfMsqs Zfmsqs = amsqs*fXqs $ () ### I-O.T05 ### () () () KOEFFICIENTER FOR INDENLANDSKE LEVERANCER () () FRML IAYFA ayfa = fYfa/fXa $ FRML IAYFNG ayfng = fYfng/fXng $ FRML IAYFNE ayfne = fYfne/fXne $ FRML IAYFNF ayfnf = fYfnf/fXnf $ FRML IAYFNN ayfnn = fYfnn/fXnn $ FRML IAYFNB ayfnb = fYfnb/fXnb $ FRML IAYFNM ayfnm = fYfnm/fXnm $ FRML IAYFNT ayfnt = fYfnt/fXnt $ FRML IAYFNK ayfnk = fYfnk/fXnk $ FRML IAYFNQ ayfnq = fYfnq/fXnq $ FRML IAYFB ayfb = fYfb/fXb $ FRML IAYFQH ayfqh = fYfqh/fXqh $ FRML IAYFQS ayfqs = fYfqs/fXqs $ FRML IAYFQT ayfqt = fYfqt/fXqt $ FRML IAYFQF ayfqf = fYfqf/fXqf $ FRML IAYFQQ ayfqq = fYfqq/fXqq $ FRML IAYFH ayfh = fYfh/fXh $ FRML IAYFO ayfo = fYfo/fXo $ () () () PRODUKTION () () FRML IFX fX = fXa+fXe+fXn+fXb+fXqh+fXqs+fXqt+fXqf+fXqq+fXh+fXo $ FRML IFXQ fXq = fXqh+fXqs+fXqt+fXqf+fXqq $ FRML IXA Xa = fXa*pxa $ FRML IXE Xe = fXe*pxe $ FRML IXNG Xng = fXng*pxng $ FRML IXNE Xne = fXne*pxne $ FRML IXNF Xnf = fXnf*pxnf $ FRML IXNN Xnn = fXnn*pxnn $ FRML IXNB Xnb = fXnb*pxnb $ FRML IXNM Xnm = fXnm*pxnm $ FRML IXNT Xnt = fXnt*pxnt $ FRML IXNK Xnk = fXnk*pxnk $ FRML IXNQ Xnq = fXnq*pxnq $ FRML IXB Xb = fXb*pxb $ FRML IXQH Xqh = fXqh*pxqh $ FRML IXQS Xqs = fXqs*pxqs $ FRML IXQT Xqt = fXqt*pxqt $ FRML IXQF Xqf = fXqf*pxqf $ FRML IXQQ Xqq = fXqq*pxqq $ FRML IXH Xh = fXh*pxh $ FRML IX X = Xa+Xe+Xng+Xne+Xnf+Xnn+Xnb+Xnm+Xnt+Xnk+Xnq+Xb+Xqh +Xqs+Xqt+Xqf+Xqq+Xh+Xo $ () () () OFFENTLIGE SEKTOR () () FRML IfXoxc fXoxc = aob*fXb + aoqh*fXqh + aoqt*fXqt + aoqf*fXqf +aoqq*fXqq + aoo*fXo + aocs*fCs + aoesq*fEsq $ FRML IXoxc Xoxc = Xo - foco*pxo*kpnco $ FRML ICOI Coi = Coii+Coim $ () ### BESKAEF.T05 ### () () () PRODUKTIVITET () () FRML Ikhn1 khn1 = 1000*fXn/(Hqng1+Hqne1+Hqnf1+Hqnn1+Hqnb1+Hqnm1+Hqnt1 +Hqnk1+Hqnq1) $ FRML IQXa1 Qxa1 = fXa/Qa1 $ FRML IQXe1 Qxe1 = fXe/Qe1 $ FRML IQXng1 Qxng1 = fXng/Qng1 $ FRML IQXne1 Qxne1 = fXne/Qne1 $ FRML IQXnf1 Qxnf1 = fXnf/Qnf1 $ FRML IQXnn1 Qxnn1 = fXnn/Qnn1 $ FRML IQXnb1 Qxnb1 = fXnb/Qnb1 $ FRML IQXnm1 Qxnm1 = fXnm/Qnm1 $ FRML IQXnt1 Qxnt1 = fXnt/Qnt1 $ FRML IQXnk1 Qxnk1 = fXnk/Qnk1 $ FRML IQXnq1 Qxnq1 = fXnq/Qnq1 $ FRML IQXb1 Qxb1 = fXb/Qb1 $ FRML IQXqh1 Qxqh1 = fXqh/Qqh1 $ FRML IQXqs1 Qxqs1 = fXqs/Qqs1 $ FRML IQXqt1 Qxqt1 = fXqt/Qqt1 $ FRML IQXqf1 Qxqf1 = fXqf/Qqf1 $ FRML IQXqq1 Qxqq1 = fXqq/Qqq1 $ FRML IQXh1 Qxh1 = fXh/Qh1 $ FRML IQXo1 Qxo1 = fXo/Qo2 $ FRML IQxn1 Qxn1 = (fXng+fXne+fXnf+fXnn+fXnb+fXnm+fXnt+fXnk+fXnq)/ (Qng1+Qne1+Qnf1+Qnn1+Qnb1+Qnm1+Qnt1+Qnk1+Qnq1) $ FRML IQxq1 Qxq1 = (fXqh+fXqs+fXqt+fXqf+fXqq)/ (Qqh1+Qqs1+Qqt1+Qqf1+Qqq1) $ FRML IkQYfa1 kqyfa1 = fYfa/Hqa1 $ FRML IkQYfe1 kqyfe1 = fYfe/Hqe1 $ FRML IkQYfng1 kqyfng1 = fYfng/Hqng1 $ FRML IkQYfne1 kqyfne1 = fYfne/Hqne1 $ FRML IkQYfnf1 kqyfnf1 = fYfnf/Hqnf1 $ FRML IkQYfnn1 kqyfnn1 = fYfnn/Hqnn1 $ FRML IkQYfnb1 kqyfnb1 = fYfnb/Hqnb1 $ FRML IkQYfnm1 kqyfnm1 = fYfnm/Hqnm1 $ FRML IkQYfnt1 kqyfnt1 = fYfnt/Hqnt1 $ FRML IkQYfnk1 kqyfnk1 = fYfnk/Hqnk1 $ FRML IkQYfnq1 kqyfnq1 = fYfnq/Hqnq1 $ FRML IkQYfb1 kqyfb1 = fYfb/Hqb1 $ FRML IkQYfqh1 kqyfqh1 = fYfqh/Hqqh1 $ FRML IkQYfqs1 kqyfqs1 = fYfqs/Hqqs1 $ FRML IkQYfqt1 kqyfqt1 = fYfqt/Hqqt1 $ FRML IkQYfqf1 kqyfqf1 = fYfqf/Hqqf1 $ FRML IkQYfqq1 kqyfqq1 = fYfqq/Hqqq1 $ FRML IkQYfh1 kqyfh1 = fYfh/Hqh1 $ FRML IkQYfo1 kqyfo1 = fYfo/Hqo2 $ FRML IkQYfq1 kqyfq1 = (fYfqh+fYfqs+fYfqt+fYfqf+fYfqq)/ (Hqqh1 +Hqqs1 +Hqqt1 +Hqqf1 +Hqqq1) $ FRML IqfY1 QFY1 = fY/Q1 $ FRML IqfYf1 QFYF1 = fYf/Q1 $ () () BESKÆFTIGELSE () FRML IQU1 Qu1 = Q1-Qe1-Qa1 $ FRML IQn1 Qn1 = Qng1+Qne1+Qnf1+Qnn1+Qnb1+Qnm1+Qnt1+Qnk1+Qnq1 $ FRML IQn1 Qwn1 = Qwng1+Qwne1+Qwnf1+Qwnn1+Qwnb1+Qwnm1+Qwnt1 +Qwnk1+Qwnq1 $ FRML IQn1 QSN1 = Qsng1+Qsne1+Qsnf1+Qsnn1+Qsnb1+Qsnm1+Qsnt1 +Qsnk1+Qsnq1 $ FRML IQq1 Qq1 = Qqh1+Qqs1+Qqt1+Qqf1+Qqq1 $ FRML IQwq1 QWQ1 = Qwqs1+Qwqh1+Qwqq1+Qwqt1+Qwqf1 $ FRML IQSq1 QSQ1 = Qq1-QWQ1$ FRML IQSU1 Qsu1 = Q1-Qw1-Qsa1 $ () ### LOEN.T05 ### () () () lØNSUMMER OG lØNKVOTER () () FRML IYwn1 YWN1 = Ywng1+Ywne1+Ywnf1+Ywnn1+Ywnb1+Ywnm1+Ywnt1+Ywnk1+Ywnq1 $ FRML IYwq1 YWQ1 = Ywqh1+Ywqs1+Ywqt1+Ywqf1+Ywqq1 $ FRML Ibyw1 byw1 = Yw1/Yf $ FRML Ibywn1 bywn1 = (Ywng1+Ywne1+Ywnf1+Ywnn1+Ywnb1+Ywnm1+Ywnt1+Ywnk1+Ywnq1) /(Yfng+Yfne+Yfnf+Yfnn+Yfnb+Yfnm+Yfnt+Yfnk+Yfnq) $ FRML Ibywq1 bywq1 = (Ywqh1+Ywqs1+Ywqt1+Ywqf1+Ywqq1) /(Yfqh+Yfqs+Yfqt+Yfqf+Yfqq) $ FRML Ibywa1 bywa1 = Ywa1/Yfa $ FRML Ibywe1 bywe1 = Ywe1/Yfe $ FRML Ibywng1 bywng1 = Ywng1/Yfng $ FRML Ibywnf1 bywnf1 = Ywnf1/Yfnf $ FRML Ibywqs1 bywqs1 = Ywqs1/Yfqs $ FRML Ibywh1 bywh1 = Ywh1/Yfh $ FRML Ibywo2 bywo2 = Ywo2/Yfo $ FRML Ipyfn pyfn = (Yfng+Yfne+Yfnf+Yfnn+Yfnb+Yfnm+Yfnt+Yfnk+Yfnq)/fYfn $ FRML Ikqyfn1 kqyfn1 = fYfn/(Hqng1+Hqne1+Hqnf1+Hqnn1+Hqnb1+Hqnm1+Hqnt1+Hqnk1+Hqnq1) $ () ### SKATTRAN.T05 ### () () () TRANSFERERINGER () FRML ITono1 Tono1 = Tono(-1) $ FRML ItTYdl ttydl = Tyd/(Ulfhk*.001) $ FRML ItYdY tydy = 100*Tyd/Y $ () () () SKATTER () () FRML ISigcp Sigcp = Sigc - btgo*tg*pco*fCo/(1+btgo*tg) $ FRML ISigf Sigf = btgf*tg*pcf*fCf/(1+btgf*tg) $ FRML ISign Sign = btgn*tg*pcn*fCn/(1+btgn*tg) $ FRML ISigi Sigi = btgi*tg*pci*fCi/(1+btgi*tg) $ FRML ISige Sige = btge*tg*pce*fCe/(1+btge*tg) $ FRML ISigg Sigg = btgg*tg*pcg*fCg/(1+btgg*tg) $ FRML ISigv Sigv = btgv*tg*pcv*fCv/(1+btgv*tg) $ FRML ISigh Sigh = btgh*tg*pch*fCh/(1+btgh*tg) $ FRML ISigk Sigk = btgk*tg*pck*fCk/(1+btgk*tg) $ FRML ISigs Sigs = btgs*tg*pcs*fCs/(1+btgs*tg) $ FRML ISigO Sigo = btgo*tg*pco*fCo/(1+btgo*tg) $ FRML ISigb Sigb = btgb*tg*pcb*fCb/((1+trb)*(1+btgb*tg)) $ FRML ISix Six = Sigx + Sipx + Siq $ FRML ISigip Sigip = btgimp1*tg*pimp11*fImp11/((1+trimp1)*(1+btgimp1*tg)) +btgibp1*tg*pibp11*fIbp11/(1+btgibp1*tg) $ FRML ISigPB Sigibp = btgibp1*tg*pibp11*fIbp11/(1+btgibp1*tg) $ FRML ISigpm Sigimp = btgimp1*tg*pimp11*fImp11/((1+trimp1)*(1+btgimp1*tg)) $ FRML ISigOB Sigibo = btgibo1*tg*pibo11*fIbo11/(1+btgibo1*tg) $ FRML ISigOM Sigimo = btgimo1*tg*pimo11*fImo11/(1+btgimo1*tg) $ FRML ISigibh Sigibh = btgibh*tg*pibh*fIbh/(1+btgibh*tg) $ FRML ISigL Sigil = btgil*tg*pil*fIl/(1+btgil*tg) $ FRML ISicp Sicp = tpf*fCf+tpn*fCn+tpi*fCi+tpe*fCe+tpg*fCg+tpb*fCb+tpv*fCv+tph*fCh+tpk*fCk+tps*fCs +trb*fCb*pcb/(1+trb)+Sigcp $ FRML ISipf Sipf = tpf*fCf $ FRML ISipn Sipn = tpn*fCn $ FRML ISipi Sipi = tpi*fCi $ FRML ISipe Sipe = tpe*fCe $ FRML ISipg Sipg = tpg*fCg $ FRML ISipb Sipb = tpb*fCb $ FRML ISipv Sipv = tpv*fCv $ FRML ISiph Siph = tph*fCh $ FRML ISipk Sipk = tpk*fCk $ FRML ISips Sips = tps*fCs $ FRML ISirb Sirb = trb*fCb*pcb/(1+trb) $ FRML ISipip Sipip = tpibp1*fIbp11 + tpimp1*fImp11 $ FRML ISipibp Sipibp = tpibp1*fIbp11 $ FRML ISipimp Sipimp = tpimp1*fImp11 $ FRML ISipio Sipio = tpibo1*fIbo11 + tpimo1*fImo11 $ FRML ISipOB Sipibo = tpibo1*fIbo11 $ FRML ISipOM Sipimo = tpimo1*fImo11 $ FRML ISipibh Sipibh = tpibh*fIbh $ FRML ISipL Sipil = tpil*fIl $ FRML ISirpm Sirimp = trimp1*fImp11*pimp11/(1+trimp1) $ FRML ISixie Sixie = Sipx+tpibo1*fIbo11+tpimo1*fImo11+tpibh*fIbh+tpibp1*fIbp11 +tpimp1*fImp11+tpil*fIl+trimp1*fImp11*pimp11/(1+trimp1) +Sigx+Sigi1+Siq+Sipe0+Sipe7y $ FRML ISipVea Sipvea = tvea*fVea $ FRML ISipVee Sipvee = tvee*fVee $ FRML ISipVeng Sipveng = tveng*fVeng $ FRML ISipVene Sipvene = tvene*fVene $ FRML ISipVenf Sipvenf = tvenf*fVenf $ FRML ISipVenn Sipvenn = tvenn*fVenn $ FRML ISipVenb Sipvenb = tvenb*fVenb $ FRML ISipVenm Sipvenm = tvenm*fVenm $ FRML ISipVent Sipvent = tvent*fVent $ FRML ISipVenk Sipvenk = tvenk*fVenk $ FRML ISipVenq Sipvenq = tvenq*fVenq $ FRML ISipVeb Sipveb = tveb*fVeb $ FRML ISipVeqh Sipveqh = tveqh*fVeqh $ FRML ISipVeqs Sipveqs = tveqs*fVeqs $ FRML ISipVeqt Sipveqt = tveqt*fVeqt $ FRML ISipVeqf Sipveqf = tveqf*fVeqf $ FRML ISipVeqq Sipveqq = tveqq*fVeqq $ FRML ISipVeh Sipveh = tveh*fVeh $ FRML ISipVeo Sipveo = tveo*fVeo $ FRML ISipVma Sipvma = tvma*fVma $ FRML ISipVme Sipvme = tvme*fVme $ FRML ISipVmng Sipvmng = tvmng*fVmng $ FRML ISipVmne Sipvmne = tvmne*fVmne $ FRML ISipVmnf Sipvmnf = tvmnf*fVmnf $ FRML ISipVmnn Sipvmnn = tvmnn*fVmnn $ FRML ISipVmnb Sipvmnb = tvmnb*fVmnb $ FRML ISipVmnm Sipvmnm = tvmnm*fVmnm $ FRML ISipVmnt Sipvmnt = tvmnt*fVmnt $ FRML ISipVmnk Sipvmnk = tvmnk*fVmnk $ FRML ISipVmnq Sipvmnq = tvmnq*fVmnq $ FRML ISipVmb Sipvmb = tvmb*fVmb $ FRML ISipVmqh Sipvmqh = tvmqh*fVmqh $ FRML ISipVmqs Sipvmqs = tvmqs*fVmqs $ FRML ISipVmqt Sipvmqt = tvmqt*fVmqt $ FRML ISipVmqf Sipvmqf = tvmqf*fVmqf $ FRML ISipVmqq Sipvmqq = tvmqq*fVmqq $ FRML ISipVmh Sipvmh = tvmh*fVmh $ FRML ISipVmo Sipvmo = tvmo*fVmo $ FRML IbSia bsia = Si/(Yf+Ty) $ FRML IbSd bsd = Sd/(Yf+Ty) $ FRML IbSdI bsdi = (Sd+Si)/(Yf+Ty) $ FRML IbS bs = (S)/(Yf+Ty) $ FRML IbSdY bsdy = Sd/Y $ FRML IbSiY bsiy = Si/Y $ FRML IbSdIY bsdiy = (Sd+Si)/Y $ FRML IbSY bsy = (S)/Y $ FRML IbSdf bsdf = Sd/Yf $ FRML IbSif bsif = Si/Yf $ FRML IbSdIf bsdif = (Sd+Si)/Yf $ FRML IbSf bsf = (S)/Yf $ FRML IbSitr bsitr = (Si-Sipe0-Sipe7y)/(Y+M-E) $ FRML IbSicp bsicp = (tpf*fCf+tpn*fCn+tpi*fCi+tpe*fCe+tpg*fCg+tpb*fCb+tpv*fCv+tph*fCh+tpk*fCk+tps*fCs +trb*fCb*pcb/(1+trb)+Sigcp)/Cp $ FRML IkbSd kbsd = Sd/(S) $ FRML ISisUY Sisuy = 100*Sisu/Y $ FRML ISiafY Siafy = 100*Siaf/Y $ FRML ISdY Sdy = 100*Sd/Y $ FRML IYsy Ysy = 100*Ys/Y $ FRML IYspYd Yspy = 100*Ysp/Y $ FRML ItOPS1 Tops1 = ktops1*(Tphhli+Tphhki) $ FRML ISdaS Sdas = ksdas1*(Sda-tsda*(Tbhsk+Tbhsl)) $ FRML IYspRS Ysprs = kysprs2*(Yw1+Yrr2) $ FRML IYLWS Ylws = (Safm + kylws1*Yw1) $ FRML IYLWS Yl3s = kyl3s2*(Yw1+Yrr2) $ FRML IYLWS Ysrs1 = kysrs3*(Yw1+Yrr2) $ () Slutskatter FRML ISsy Ssy = Ssy2 + Ssf + Ssso $ () Friholdt indkomst FRML IYsp1r Ysp1r = Ysp-Ysp1 $ FRML IYsp2r Ysp2r = Ysp-Ysp2 $ FRML IYsp3r Ysp3r = Ysp-Ysp3 $ FRML IYsp4r YSP4R = Ysp-Ysp4 $ FRML IYsp5r YSP5R = Ysp-Ysp5 $ FRML IYs1r Ys1r = Ys-Ys1 $ FRML IYs2r Ys2r = Ys-Ys2 $ FRML IYs3r Ys3r = Ys-Ys3 $ FRML IYs4r YS4R = Ys-Ys4 $ FRML IYs5r YS5R = Ys-Ys5 $ () ### BNPBFI.T05 ### () () BRUTTONATIONALPRODUKT, BRUTTOVÆRDITILVÆKST () OG ANDRE INDKOMSTBEGREBER M.V. () FRML IFYST fYst = fY + fM $ FRML IYST Yst = (Y) + (M) $ FRML IYRT1 YRT1 = Yf-Yw1+Tipn $ FRML IYAB1 YAB1 = Yw1+Ty $ FRML IYSAM Ysam = Yf + Ty $ FRML IYSAM1 Ysam1 = Yf+Ty+Tipn $ FRML IYSMPC Ysmpc = (Yf+Ty+Tipn)/pcp $ FRML IPY py = (Y)/fY $ FRML IPYST pyst = Yst/fYst $ FRML IENV Env = Ev - Mv $ FRML IENST Enst = Es + Et - Ms - Mt $ FRML IENVY Envy = 100*Env/Y $ FRML IENSTY Ensty = 100*Enst/Y $ FRML IENLY Enly = 100*Enl/Y $ FRML IYWY Ywy = 100*Yw1/Y $ FRML IYRY Yry = 100*Yr1/Y $ () () BIDRAG TIL BNP-VÆKST () FRML IRFY RfY = (fY - fY(-1))/fY(-1) $ FRML IAFM afm = (fM(-1) - fM)/fY(-1) $ FRML IAFE afe = (fE - fE(-1))/fY(-1) $ FRML IAFCP afcp = (fCp - fCp(-1))/fY(-1) $ FRML IAFCO afco = (fCo - fCo(-1))/fY(-1) $ FRML IAFIP11 afip11 = (fIp11 - fIp11(-1))/fY(-1) $ FRML IAfIp1xh afifp1xh = (fIfp1xh1 - fIfp1xh1(-1))/fY(-1) $ FRML IAFIO11 afio11 = (fIo11 - fIo11(-1))/fY(-1) $ FRML IAFIBH afibh = (fIbh - fIbh(-1))/fY(-1) $ FRML IAFIL afil = (fIl - fIl(-1))/fY(-1) $ () () ERHVERVSFORDELT BRUTTOVÆRDITILVÆKST I FASTE PRISER () FRML IFYFQ fYfq = fYfqh+fYfqs+fYfqt+fYfqf+fYfqq $ () () ERHVERVSFORDELT BRUTTOV’RDITILV’KST I ÅRETS PRISER () FRML IYFN Yfn = Yfng+Yfne+Yfnf+Yfnn+Yfnb+Yfnm+Yfnt+Yfnk+Yfnq $ FRML IYFQ Yfq = Yfqh+Yfqs+Yfqt+Yfqf+Yfqq $ () ### BALANCER.T05 ### () () Sektorbalancer, samleposter () FRML ITaoi Taoi = Teur+Taeo+Tapo $ FRML ITaou Taou = Teuby+Teubr+Teubg+Taoe+Taop $ FRML ITkoi Tkoi = Sak+Tkeo+Tkpo $ FRML ITkou Tkou = Tkoe+Tkops+Tkoph $ FRML ITfkud Tfkud = Cok+Tiku-Sisuokk+Tykk+Takos+Taokp $ FRML ITfkid Tfkid = Ivok1+Tiki+Tikov+Tiokr+Siafok+Sdkk+Typrik +Taeok+Tapok+Taosk $ FRML ITfoud Taoos = 0.8*(Safma+Safme)*ktaoos $ FRML ITfoid Tasoo = (Tyd+Typef+Typov+Typlg)*ktasoo $ FRML ITfoud Tfoud = Coo+Tifou-Sisuoo+Tyo+Taoos $ FRML ITfoid Tfoid = Ivoo1+Tifoi+Tioov+Saso-Sasr+Tasoo+Tapoo $ FRML ITaous Taous = Tasoo+Taosk+(Ty-Tykk-Tyo) +(Taop-Taokp)+(Taou-Taop) $ FRML ITfsud Tfsud = (Co-Cok-Coo)+Tisui+Tisuu+Sisuokk+Sisuoo-Sisuo+Taous $ FRML ITfsuk1 Tfsuk1 = (Io11-Tkoubi)-Iok1-Ioo1+Tkoubi-Tkokubi-Tkooubi+Ilo1+Tkojr -Tkokjr $ FRML ITksu Tksu = Tkops-Tkopsk-Tkkosn+Tkoph-Tkophk+Tkpoon+Tkoe-Tkoek $ FRML ITfsuk Tfsuk = Tfsuk1+Tksu $ FRML ITaois Taois = Taoos+Takos+Tapo-Tapoo- Tapok+Teur+Taeo-Taeok $ FRML ITfsid Tfsid = Ivo1-Ivok1-Ivoo1+Tiov-Tikov-Tioov+Tisii+Tisiu+Tior -Tiokr+Siafo-Siafok+Sd-Sdkk+Sasr+Tbpho+Typri-Typrik +Taois $ FRML ITFPN Tfpn = Tfen-Tfon $ FRML ITPPSN Tfpsn1 = Tfpn-Tfphn1 $ FRML ITFFN Tffn = Tffpn+Tffon $ FRML ITFP1 Tfp1n = Tfpn-Tffpn $ FRML ICOY Coy = 100*Co/Y $ FRML IFOUY Tfouy = 100*Tfou/Y $ FRML IFOIY Tfoiy = 100*Tfoi/Y $ FRML ITIONY Tiony = 100*Tion/Y $ FRML ITIENY Tieny = 100*Tien/Y $ FRML ITFONY Tfony = 100*Tfon/Y $ FRML ITFSNY Tfsny = 100*Tfsn/Y $ FRML ITFKNY Tfkny = 100*Tfkn/Y $ FRML ITFFONY Tffony = 100*Tffon/Y $ FRML ITFENY Tfeny = 100*Tfen/Y $ FRML ITFPNY Tfpny = 100*Tfpn/Y $ FRML ITFPHNY1 TFPHNY1 = 100*Tfphn1/Y $ FRML ITFPSNY1 Tfpsny1 = 100*Tfpsn1/Y $ () ### FINDAN.T05 ### () () () FINANSIELLE VARIABLER () () FRML IWNLNB Wnlnb = Wnlb-Wbdn-Wbdsn $ FRML IWFLPY Wflpy = 100*Wflp/Y $ FRML IWFBZY Wfbzy = 100*Wfbz/Y $ FRML IWNVFY Wnvfy = 100*Wnvf/Y $ FRML IWPMY Wpmy = 100*Wpm/Y $ FRML IWPNBZY Wpbnzy = 100*Wpbnz/Y $ FRML IBBZY Wbbzy = 100*Wbbz/Y $ FRML IWNLNBY Wnlnby = 100*Wnlnb/Y $ FRML IWZBGY Wzbgy = 100*Wzbg/Y $ FRML IIWNBZY Wnbzy = 100*Wnbz/Y $ () ### FAKTOR.T05 ### () --------------------------------------------------------------------------------- () () AFLEDTE VARIABLER FRA FAKTORBLOKKEN () FRML IFKMaM1 fKmam1 = .32534**(.51000/(1-.51000))*(1/dtfkma1) *((fXa-hostkor)/68551.44125/1.08797)*117704.00000 $ FRML IFKMnfM1 fKmnfm1 = .42813**(.63378/(1-.63378))*(1/dtfkmnf1)*(fXnf/104170.21094/0.99981)*54095.89063 $ FRML IFKMnnM1 fKmnnm1 = .31290**(.27999/(1-.27999))*(1/dtfkmnn1)*(fXnn/12518.91797 /1.11803)*6501.11035 $ FRML IFKMnbM1 fKmnbm1 = .21855**(.42664/(1-.42664))*(1/dtfkmnb1)*(fXnb/31584.44922 /0.97769)*27168.54297 $ FRML IFKMnmM1 fKmnmm1 = .24573**(.45493/(1-.45493))*(1/dtfkmnm1)*(fXnm/170086.51563/1.01126)*89212.00000 $ FRML IFKMntM1 fKmntm1 = .29982**(.30748/(1-.30748))*(1/dtfkmnt1)*(fXnt/17357.20313 /0.98378)*6478.00000 $ FRML IFKMnkM1 fKmnkm1 = .31563**(.38028/(1-.38028))*(1/dtfkmnk1)*(fXnk/75159.84375 /0.98183)*60579.64453 $ FRML IFKMnqM1 FKmnqm1 = .32875**(.23758/(1-.23758))*(1/dtfkmnq1)*(fXnq/86920.15625 /1.00020)*60812.62500 $ FRML IFKMbM1 fKmbm1 = .31879**(.16941/(1-.16941))*(1/dtfkmb1) *(fXb /153174.67188/0.97761)*50580.00000 $ FRML IFKMqhM1 fKmqhm1 = .21097**(.14296/(1-.14296))*(1/dtfkmqh1)*(fXqh/228529.53125/1.03661)*159591.21875 $ FRML IFKMqtM1 fKmqtm1 = .15426**(.10000/(1-.10000))*(1/dtfkmqt1)*(fXqt/155452.76563/0.97906)*165186.00000 $ FRML IFKMqqM1 fKmqqm1 = .42455**(.40000/(1-.40000))*(1/dtfkmqq1)*(fXqq/352529.93750/0.96642)*210693.23438 $ () () INVESTERINGER MASKINER, lØBENDE PRISER () FRML IIma Ima = fIma*pima $ FRML IIme Ime = fIme*pime $ FRML IImng Imng = fImng*pimng $ FRML IImne Imne = fImne*pimne $ FRML IImnf Imnf = fImnf*pimnf $ FRML IImnn Imnn = fImnn*pimnn $ FRML IImnb Imnb = fImnb*pimnb $ FRML IImnm Imnm = fImnm*pimnm $ FRML IImnt Imnt = fImnt*pimnt $ FRML IImnk Imnk = fImnk*pimnk $ FRML IImnq Imnq = fImnq*pimnq $ FRML IImb Imb = fImb*pimb $ FRML IImqh Imqh = fImqh*pimqh $ FRML IImqs Imqs = fImqs*pimqs $ FRML IImqt Imqt = fImqt*pimqt $ FRML IImqf Imqf = fImqf*pimqf $ FRML IImqq Imqq = fImqq*pimqq $ FRML IImh Imh = fImh*pimh $ FRML IImo Imo = fImo*pimo $ () () INVESTERINGER BYGNINGER, lØBENDE PRISER () FRML IIba Iba = fIba*piba $ FRML IIbe Ibe = fIbe*pibe $ FRML IIbng Ibng = fIbng*pibng $ FRML IIbne Ibne = fIbne*pibne $ FRML IIbnf Ibnf = fIbnf*pibnf $ FRML IIbnn Ibnn = fIbnn*pibnn $ FRML IIbnb Ibnb = fIbnb*pibnb $ FRML IIbnm Ibnm = fIbnm*pibnm $ FRML IIbnt Ibnt = fIbnt*pibnt $ FRML IIbnk Ibnk = fIbnk*pibnk $ FRML IIbnq Ibnq = fIbnq*pibnq $ FRML IIbb Ibb = fIbb*pibb $ FRML IIbqh Ibqh = fIbqh*pibqh $ FRML IIbqs Ibqs = fIbqs*pibqs $ FRML IIbqt Ibqt = fIbqt*pibqt $ FRML IIbqf Ibqf = fIbqf*pibqf $ FRML IIbqq Ibqq = fIbqq*pibqq $ FRML IIbh Ibh = fIbh*pibh $ FRML IIbo Ibo = fIbo*pibo $ () () MATERIALEFORBRUG, lØBENDE PRISER () FRML IVma Vma = fVma*pvma $ FRML IVme Vme = fVme*pvme $ FRML IVmng Vmng = fVmng*pvmng $ FRML IVmne Vmne = fVmne*pvmne $ FRML IVmnf Vmnf = fVmnf*pvmnf $ FRML IVmnn Vmnn = fVmnn*pvmnn $ FRML IVmnb Vmnb = fVmnb*pvmnb $ FRML IVmnm Vmnm = fVmnm*pvmnm $ FRML IVmnt Vmnt = fVmnt*pvmnt $ FRML IVmnk Vmnk = fVmnk*pvmnk $ FRML IVmnq Vmnq = fVmnq*pvmnq $ FRML IVmb Vmb = fVmb*pvmb $ FRML IVmqh Vmqh = fVmqh*pvmqh $ FRML IVmqs Vmqs = fVmqs*pvmqs $ FRML IVmqt Vmqt = fVmqt*pvmqt $ FRML IVmqf Vmqf = fVmqf*pvmqf $ FRML IVmqq Vmqq = fVmqq*pvmqq $ FRML IVmh Vmh = fVmh*pvmh $ FRML IVmo Vmo = fVmo*pvmo $ () () ENERGIFORBRUG, lØBENDE PRISER () FRML IVea Vea = fVea*pvea $ FRML IVee Vee = fVee*pvee $ FRML IVeng Veng = fVeng*pveng $ FRML IVene Vene = fVene*pvene $ FRML IVenf Venf = fVenf*pvenf $ FRML IVenn Venn = fVenn*pvenn $ FRML IVenb Venb = fVenb*pvenb $ FRML IVenm Venm = fVenm*pvenm $ FRML IVent Vent = fVent*pvent $ FRML IVenk Venk = fVenk*pvenk $ FRML IVenq Venq = fVenq*pvenq $ FRML IVeb Veb = fVeb*pveb $ FRML IVeqh Veqh = fVeqh*pveqh $ FRML IVeqs Veqs = fVeqs*pveqs $ FRML IVeqt Veqt = fVeqt*pveqt $ FRML IVeqf Veqf = fVeqf*pveqf $ FRML IVeqq Veqq = fVeqq*pveqq $ FRML IVeh Veh = fVeh*pveh $ FRML IVeo Veo = fVeo*pveo $ () () SÆRLIGE ENERGIFORBRUG-AGGREGATER () () Endelig energianvendelse, erhverv FRML Idtfvex1 dtfvex1 = (dtfvea1*fVea+dtfvenf1*fVenf+dtfvenn1*fVenn+dtfvenb1*fVenb +dtfvenm1*fVenm+dtfvent1*fVent+dtfvenk1*fVenk+dtfvenq1*fVenq +dtfveb1*fVeb+dtfveqh1*fVeqh+dtfveqs*fVeqs+dtfveqt1*fVeqt +dtfveqf1*fVeqf+dtfveqq1*fVeqq+dtfveh*fVeh+dtfveo1*fVeo) /fVex $ FRML IfVex fVex = fVea+fVenf+fVenn+fVenb+fVenm+fVent+fVenk+fVenq +fVeb+fVeqh+fVeqs+fVeqt+fVeqf+fVeqq+fVeh+fVeo $ () Husholdninger FRML IfVec fVec = (aece+angce+anece+am3kce+am3qce)*fCe + (angcg+am3qcg)*fCg $ () Endelig energianvendelse, erhverv + husholdninger FRML IfVedk fVedk = fVex + fVec $ () Egentligt estimerede erhverv FRML IfVex1 fVex1 = fVea+fVenf+fVenn+fVenb+fVenm+fVent+fVenk+fVenq+fVeb+fVeqh+fVeqt+fVeqf+fVeqq+fVeo $ FRML IfVexw2 fVexw2 = fVeaw1+fVenfw1+fVennw1+fVenbw1+fVenmw1+fVentw1+fVenkw1+fVenqw1 +fVebw1+fVeqhw1+fVeqtw1+fVeqfw1+fVeqqw1+fVeow1 $ FRML Idtfvex2 dtfvex2 = (dtfvea1*fVea+dtfvenf1*fVenf+dtfvenn1*fVenn+dtfvenb1*fVenb+dtfvenm1*fVenm+dtfvent1*fVent +dtfvenk1*fVenk+dtfvenq1*fVenq +dtfveb1*fVeb+dtfveqh1*fVeqh+dtfveqt1*fVeqt+dtfveqf1*fVeqf +dtfveqq1*fVeqq+dtfveo1*fVeo) /fVex1 $ FRML Ipklex2 pklex2 = (pklea1*fVea+pklenf1*fVenf+pklenn1*fVenn+pklenb1*fVenb+pklenm1*fVenm+pklent1*fVent +pklenk1*fVenk+pklenq1*fVenq+pkleb1*fVeb+pkleqh1*fVeqh+pkleqt1*fVeqt+pkleqf1*fVeqf +pkleqq1*fVeqq+pkleo1*fVeo)/fVex1 $ () Omkostningsudtryk I relativpris, pwkle FRML Ipwklea1 pwklea1 = uima *fKma +la1 *Hqa1 +pvea *fVea $ FRML Ipwklenf1 pwklenf1 = uimnf*fKmnf+lnf1*Hqnf1+pvenf*fVenf $ FRML Ipwklenn1 pwklenn1 = uimnn*fKmnn+lnn1*Hqnn1+pvenn*fVenn $ FRML Ipwklenb1 pwklenb1 = uimnb*fKmnb+lnb1*Hqnb1+pvenb*fVenb $ FRML Ipwklenm1 pwklenm1 = uimnm*fKmnm+lnm1*Hqnm1+pvenm*fVenm $ FRML Ipwklent1 pwklent1 = uimnt*fKmnt+lnt1*Hqnt1+pvent*fVent $ FRML Ipwklenk1 pwklenk1 = uimnk*fKmnk+lnk1*Hqnk1+pvenk*fVenk $ FRML Ipwklenq1 pwklenq1 = uimnq*fKmnq+lnq1*Hqnq1+pvenq*fVenq $ FRML Ipwkleb1 pwkleb1 = uimb *fKmb +lb1 *Hqb1 +pveb *fVeb $ FRML Ipwkleqh1 pwkleqh1 = uimqh*fKmqh+lqh1*Hqqh1+pveqh*fVeqh $ FRML Ipwkleqt1 pwkleqt1 = uimqt*fKmqt+lqt1*Hqqt1+pveqt*fVeqt $ FRML Ipwkleqf1 pwkleqf1 = uimqf*fKmqf+lqf1*Hqqf1+pveqf*fVeqf $ FRML Ipwkleqq1 pwkleqq1 = uimqq*fKmqq+lqq1*Hqqq1+pveqq*fVeqq $ FRML Ipwkleo1 pwkleo1 = uimo *fKmo +lo1 *Hqo2 +pveo *fVeo $ () --------------------------------------------------------------------------------- () () FAKTORBLOK-AGGREGATER () () N = 9 FREMSTILLINGSERHVERV () Q = 5 SERVICEERHVERV () P = 18 PRIVATE ERHVERV (BYGNINGER DOG UDEN H-ERHVERV) () 3 = 12 TREDJE-GENERATIONSERHVERV () 2 = 4 ANDEN-GENERATIONSERHVERV () 23 = 16 ANDEN- OG TREDJE-GENERATIONSERHVERV () () MASKINER () fKm hjælpevariabler FRML IFKM3M1 fKm3m1 = fKmam1+fKmqqm1+fKmqhm1+fKmnmm1+fKmqtm1+fKmbm1+FKmnqm1+fKmnfm1+fKmnbm1+fKmnkm1+fKmntm1+fKmnnm1$ FRML IFKM3K fKm3k = fKmak+fKmqqk+fKmqhk+fKmnmk+fKmqtk+fKmbk+fKmnqk+fKmnfk+fKmnbk+fKmnkk+fKmntk+fKmnnk$ () fKm (kapitalmængde) FRML IfKmn fKmn = fKmng+fKmne+fKmnf+fKmnn+fKmnb+fKmnm+fKmnt+fKmnk+fKmnq $ FRML IfKmq fKmq = fKmqh+fKmqs+fKmqt+fKmqf+fKmqq $ FRML IfKmp fKmp = fKma+fKme+fKmng+fKmne+fKmnf+fKmnn+fKmnb+fKmnm+fKmnt+fKmnk+fKmnq+fKmb+fKmqh+fKmqs+fKmqt+fKmqf+fKmqq+fKmh $ FRML IfKm2 fKm2 = fKmng+fKmne+fKmqs+fKmqf $ FRML IfKm3 fKm3 = fKma+fKmnf+fKmnn+fKmnb+fKmnm+fKmnt+fKmnk+fKmnq+fKmb+fKmqh+fKmqt+fKmqq $ FRML IfKm23 fKm23 = fKm2 + fKm3 $ FRML IfKm fKm = fKmp + fKmo $ () fKnm (kapitalværdi) FRML IfKnmn fKnmn = fKnmng+fKnmne+fKnmnf+fKnmnn+fKnmnb+fKnmnm+fKnmnt+fKnmnk+fKnmnq $ FRML IfKnmq fKnmq = fKnmqh+fKnmqs+fKnmqt+fKnmqf+fKnmqq $ FRML IfKnm2 fKnm2 = fKnmng+fKnmne+fKnmqs+fKnmqf $ FRML IfKnm3 fKnm3 = fKnma+fKnmnf+fKnmnn+fKnmnb+fKnmnm+fKnmnt+fKnmnk+fKnmnq+fKnmb+fKnmqh+fKnmqt+fKnmqq $ FRML IfKnm23 fKnm23 = fKnm2 + fKnm3 $ FRML IfKnm fKnm = fKnmp + fKnmo $ () fIm (bruttoinvesteringer) FRML IfImn fImn = fImng+fImne+fImnf+fImnn+fImnb+fImnm+fImnt+fImnk+fImnq $ FRML IfImq fImq = fImqh+fImqs+fImqt+fImqf+fImqq $ FRML IfIm2 fIm2 = fImng+fImne+fImqs+fImqf $ FRML IfIm3 fIm3 = fIma+fImnf+fImnn+fImnb+fImnm+fImnt+fImnk+fImnq+fImb+fImqh+fImqt+fImqq $ FRML IfIm23 fIm23 = fIm2 + fIm3 $ () Im FRML IImn Imn = Imng+Imne+Imnf+Imnn+Imnb+Imnm+Imnt+Imnk+Imnq $ FRML IImq Imq = Imqh+Imqs+Imqt+Imqf+Imqq $ FRML IImp Imp = Ima+Ime+Imng+Imne+Imnf+Imnn+Imnb+Imnm+Imnt+Imnk+Imnq+Imb+Imqh+Imqs+Imqt+Imqf+Imqq+Imh $ FRML IIm2 Im2 = Imng+Imne+Imqs+Imqf $ FRML IIm3 Im3 = Ima+Imnf+Imnn+Imnb+Imnm+Imnt+Imnk+Imnq+Imb+Imqh+Imqt+Imqq $ FRML IIm23 Im23 = Im2 + Im3 $ () pim FRML IPIM pim = (pimp11*fImp11 + pimo11*fImo11)/fIm $ FRML Ipimn pimn = Imn/fImn $ FRML Ipimq pimq = Imq/fImq $ FRML Ipim2 pim2 = Im2/fIm2 $ FRML Ipim3 pim3 = Im3/fIm3 $ FRML Ipim2 pim23 = Im23/fIm23 $ () fIvm (afgange) FRML IfIvmn fIvmn = bfivmng*fKmng(-1)+bfivmne*fKmne(-1)+bfivmnf*fKmnf(-1)+bfivmnn*fKmnn(-1)+bfivmnb*fKmnb(-1) +bfivmnm*fKmnm(-1)+bfivmnt*fKmnt(-1)+bfivmnk*fKmnk(-1)+bfivmnq*fKmnq(-1) $ FRML IfIvmq fIvmq = bfivmqh*fKmqh(-1)+bfivmqs*fKmqs(-1)+bfivmqt*fKmqt(-1)+bfivmqf*fKmqf(-1)+bfivmqq*fKmqq(-1) $ FRML IfIvm2 fIvm2 = bfivmng*fKmng(-1)+bfivmne*fKmne(-1)+bfivmqs*fKmqs(-1)+bfivmqf*fKmqf(-1) $ FRML IfIvm3 fIvm3 = bfivma*fKma(-1)+bfivmb*fKmb(-1)+bfivmnf*fKmnf(-1)+bfivmnn*fKmnn(-1)+bfivmnb*fKmnb(-1) +bfivmnm*fKmnm(-1)+bfivmnt*fKmnt(-1)+bfivmnk*fKmnk(-1)+bfivmnq*fKmnq(-1)+bfivmqh*fKmqh(-1) +bfivmqt*fKmqt(-1)+bfivmqq*fKmqq(-1) $ FRML IfIvm23 fIvm23 = fIvm2 + fIvm3 $ () fIn (nettoinvesteringer) FRML IfInmn fInmn = fKnmn - fKnmn(-1) $ FRML IfInmq fInmq = fKnmq - fKnmq(-1) $ FRML IfInmp fInmp = fKnmp - fKnmp(-1) $ FRML IfInm2 fInm2 = fKnm2 - fKnm2(-1) $ FRML IfInm3 fInm3 = fKnm3 - fKnm3(-1) $ FRML IfInm23 fInm23 = fKnm23 - fKnm23(-1) $ FRML IFINM fInm = fKnm - fKnm(-1) $ () uim (usercost) FRML Iuimn uimn = (uimng*fKmng+uimne*fKmne+uimnf*fKmnf+uimnn*fKmnn+uimnb*fKmnb +uimnm*fKmnm+uimnt*fKmnt+uimnk*fKmnk+uimnq*fKmnq)/fKmn $ FRML Iuimq uimq = (uimqh*fKmqh+uimqs*fKmqs+uimqt*fKmqt+uimqf*fKmqf+uimqq*fKmqq)/fKmq $ FRML Iuimp uimp = (uima*fKma+uime*fKme+uimng*fKmng+uimne*fKmne+uimnf*fKmnf+uimnn*fKmnn+uimnb*fKmnb +uimnm*fKmnm+uimnt*fKmnt+uimnk*fKmnk+uimnq*fKmnq+uimb*fKmb+uimqh*fKmqh+uimqs*fKmqs +uimqt*fKmqt+uimqf*fKmqf+uimqq*fKmqq+uimh*fKmh)/fKmp $ FRML Iuim2 uim2 = (uimng*fKmng+uimne*fKmne+uimqs*fKmqs+uimqf*fKmqf)/fKm2 $ FRML Iuim3 uim3 = (uima*fKma+uimnf*fKmnf+uimnn*fKmnn+uimnb*fKmnb+uimnm*fKmnm+uimnt*fKmnt+uimnk*fKmnk +uimnq*fKmnq+uimb*fKmb+uimqh*fKmqh+uimqt*fKmqt+uimqq*fKmqq)/fKm3 $ FRML Iuim23 uim23 = (uima*fKma+uimng*fKmng+uimne*fKmne+uimnf*fKmnf+uimnn*fKmnn+uimnb*fKmnb+uimnm*fKmnm +uimnt*fKmnt+uimnk*fKmnk+uimnq*fKmnq+uimb*fKmb+uimqh*fKmqh+uimqs*fKmqs+uimqt*fKmqt +uimqf*fKmqf+uimqq*fKmqq)/fKm23 $ FRML Iuim uim = (uima*fKma+uime*fKme+uimng*fKmng+uimne*fKmne+uimnf*fKmnf+uimnn*fKmnn+uimnb*fKmnb +uimnm*fKmnm+uimnt*fKmnt+uimnk*fKmnk+uimnq*fKmnq+uimb*fKmb+uimqh*fKmqh+uimqs*fKmqs +uimqt*fKmqt+uimqf*fKmqf+uimqq*fKmqq+uimh*fKmh+uimo*fKmo)/fKm $ () dtfkm (effektivitet) FRML Idtfkmn1 dtfkmn1 = (dtfkmng1*fKmng+dtfkmne1*fKmne+dtfkmnf1*fKmnf+dtfkmnn1*fKmnn+dtfkmnb1*fKmnb+dtfkmnm1*fKmnm +dtfkmnt1*fKmnt+dtfkmnk1*fKmnk+dtfkmnq1*fKmnq)/fKmn $ FRML Idtfkmq1 dtfkmq1 = (dtfkmqh1*fKmqh+dtfkmqs1*fKmqs+dtfkmqt1*fKmqt+dtfkmqf1*fKmqf+dtfkmqq1*fKmqq)/fKmq $ FRML Idtfkmp1 dtfkmp1 = (dtfkma1*fKma+dtfkme*fKme+dtfkmng1*fKmng+dtfkmne1*fKmne+dtfkmnf1*fKmnf+dtfkmnn1*fKmnn +dtfkmnb1*fKmnb+dtfkmnm1*fKmnm+dtfkmnt1*fKmnt+dtfkmnk1*fKmnk+dtfkmnq1*fKmnq+dtfkmb1*fKmb +dtfkmqh1*fKmqh+dtfkmqs1*fKmqs+dtfkmqt1*fKmqt+dtfkmqf1*fKmqf+dtfkmqq1*fKmqq+dtfkmh*fKmh)/fKmp $ FRML Idtfkm21 dtfkm21 = (dtfkmng1*fKmng+dtfkmne1*fKmne+dtfkmqs1*fKmqs+dtfkmqf1*fKmqf)/fKm2 $ FRML Idtfkm31 dtfkm31 = (dtfkma1*fKma+dtfkmnf1*fKmnf+dtfkmnn1*fKmnn+dtfkmnb1*fKmnb+dtfkmnm1*fKmnm+dtfkmnt1*fKmnt +dtfkmnk1*fKmnk+dtfkmnq1*fKmnq+dtfkmb1*fKmb+dtfkmqh1*fKmqh+dtfkmqt1*fKmqt+dtfkmqq1*fKmqq)/fKm3 $ FRML Idtfkm231 dtfkm231 = (dtfkma1*fKma+dtfkmng1*fKmng+dtfkmne1*fKmne+dtfkmnf1*fKmnf+dtfkmnn1*fKmnn+dtfkmnb1*fKmnb +dtfkmnm1*fKmnm+dtfkmnt1*fKmnt+dtfkmnk1*fKmnk+dtfkmnq1*fKmnq+dtfkmb1*fKmb+dtfkmqh1*fKmqh +dtfkmqs1*fKmqs+dtfkmqt1*fKmqt+dtfkmqf1*fKmqf+dtfkmqq1*fKmqq)/fKm23 $ () fKmw (ønsket kapital) FRML IfKmnw1 fKmnw1 = fKmngw1+fKmnew1+fKmnfw1+fKmnnw1+fKmnbw1+fKmnmw1+fKmntw1+fKmnkw1+fKmnqw1 $ FRML IfKmqw1 fKmqw1 = fKmqhw1+fKmqsw1+fKmqtw1+fKmqfw1+fKmqqw1 $ FRML IfKm2w1 fKm2w1 = fKmngw1+fKmnew1+fKmqsw1+fKmqfw1 $ FRML IfKm3w1 fKm3w1 = fKmaw1+fKmnfw1+fKmnnw1+fKmnbw1+fKmnmw1+fKmntw1+fKmnkw1+fKmnqw1+fKmbw1+fKmqhw1+fKmqtw1+fKmqqw1 $ FRML IfKm23w1 fKm23w1 = fKm2w1 + fKm3w1 $ () rho_Km (autokorrelationsparameter) FRML Irofkm31 rofkm31 = (rofkma1*fKma+rofkmnf1*fKmnf+rofkmnn1*fKmnn+rofkmnb1*fKmnb+rofkmnm1*fKmnm +rofkmnt1*fKmnt+rofkmnk1*fKmnk+rofkmnq1*fKmnq+rofkmb1*fKmb+rofkmqh1*fKmqh +rofkmqt1*fKmqt+rofkmqq1*fKmqq)/fKm3 $ () BYGNINGER () fKb (kapitalmængde) FRML IfKbn fKbn = fKbng+fKbne+fKbnf+fKbnn+fKbnb+fKbnm+fKbnt+fKbnk+fKbnq $ FRML IfKbq fKbq = fKbqh+fKbqs+fKbqt+fKbqf+fKbqq $ FRML IfKbp fKbp = fKba+fKbe+fKbng+fKbne+fKbnf+fKbnn+fKbnb+fKbnm+fKbnt+fKbnk+fKbnq+fKbb+fKbqh+fKbqs+fKbqt+fKbqf+fKbqq $ FRML IfKb2 fKb2 = fKbng+fKbne+fKbqs+fKbqf $ FRML IfKb3 fKb3 = fKba+fKbnf+fKbnn+fKbnb+fKbnm+fKbnt+fKbnk+fKbnq+fKbb+fKbqh+fKbqt+fKbqq $ FRML IfKb23 fKb23 = fKb2 + fKb3 $ FRML IfKb fKb = fKbp + fKbh + fKbo $ () fKnb (kapitalværdi) FRML IfKnb fKnb = fKnba+fKnbe+fKnbng+fKnbne+fKnbnf+fKnbnn+fKnbnb+fKnbnm+fKnbnt +fKnbnk+fKnbnq+fKnbb+fKnbqh+fKnbqs+fKnbqt+fKnbqf+fKnbqq+fKnbh+fKnbo $ () fIb (bruttoinvestering) FRML IfIbn fIbn = fIbng+fIbne+fIbnf+fIbnn+fIbnb+fIbnm+fIbnt+fIbnk+fIbnq $ FRML IfIbq fIbq = fIbqh+fIbqs+fIbqt+fIbqf+fIbqq $ FRML IfIb3 fIb3 = fIba+fIbnf+fIbnn+fIbnb+fIbnm+fIbnt+fIbnk+fIbnq+fIbb+fIbqh+fIbqt+fIbqq $ FRML IfIb2 fIb2 = fIbng+fIbne+fIbqs+fIbqf $ FRML IfIb23 fIb23 = fIb2 + fIb3 $ () Ib FRML IIbn Ibn = Ibng+Ibne+Ibnf+Ibnn+Ibnb+Ibnm+Ibnt+Ibnk+Ibnq $ FRML IIbq Ibq = Ibqh+Ibqs+Ibqt+Ibqf+Ibqq $ FRML IIbp Ibp = Iba+Ibe+Ibng+Ibne+Ibnf+Ibnn+Ibnb+Ibnm+Ibnt+Ibnk+Ibnq+Ibb+Ibqh+Ibqs+Ibqt+Ibqf+Ibqq $ FRML IIb2 Ib2 = Ibng+Ibne+Ibqs+Ibqf $ FRML IIb3 Ib3 = Iba+Ibnf+Ibnn+Ibnb+Ibnm+Ibnt+Ibnk+Ibnq+Ibb+Ibqh+Ibqt+Ibqq $ FRML IIb23 Ib23 = Iba+Ibng+Ibne+Ibnf+Ibnn+Ibnb+Ibnm+Ibnt+Ibnk+Ibnq+Ibb+Ibqh+Ibqs+Ibqt+Ibqf+Ibqq $ () pib FRML IPIB pib = (pibp11*fIbp11 + pibh*fIbh + pibo11*fIbo11)/fIb $ FRML Ipibn pibn = Ibn/fIbn $ FRML Ipibq pibq = Ibq/fIbq $ FRML Ipib2 pib2 = Ib2/fIb2 $ FRML Ipib3 pib3 = Ib3/fIb3 $ FRML Ipib23 pib23 = Ib23/fIb23 $ () fIvb (afgange) FRML IfIvbn fIvbn = bfivbng*fKbng(-1)+bfivbne*fKbne(-1)+bfivbnf*fKbnf(-1)+bfivbnn*fKbnn(-1)+bfivbnb*fKbnb(-1) +bfivbnm*fKbnm(-1)+bfivbnt*fKbnt(-1)+bfivbnk*fKbnk(-1)+bfivbnq*fKbnq(-1) $ FRML IfIvbq fIvbq = bfivbqh*fKbqh(-1)+bfivbqs*fKbqs(-1)+bfivbqt*fKbqt(-1)+bfivbqf*fKbqf(-1)+bfivbqq*fKbqq(-1) $ FRML IfIvb2 fIvb2 = bfivbng*fKbng(-1)+bfivbne*fKbne(-1)+bfivbqs*fKbqs(-1)+bfivbqf*fKbqf(-1) $ FRML IfIvb3 fIvb3 = bfivba*fKba(-1)+bfivbb*fKbb(-1)+bfivbnf*fKbnf(-1)+bfivbnn*fKbnn(-1)+bfivbnb*fKbnb(-1) +bfivbnm*fKbnm(-1)+bfivbnt*fKbnt(-1)+bfivbnk*fKbnk(-1)+bfivbnq*fKbnq(-1)+bfivbqh*fKbqh(-1) +bfivbqt*fKbqt(-1)+bfivbqq*fKbqq(-1) $ FRML IfIvb23 fIvb23 = fIvb2+fIvb3 $ () fIn (nettoinvesteringer) FRML IFINBH fInbh = fKnbh - fKnbh(-1) $ FRML IFINBP fInbp = fKnbp - fKnbp(-1) $ FRML IFINB fInb = fKnb - fKnb(-1) $ () uib (usercost) FRML Iuibn uibn = (uibng*fKbng+uibne*fKbne+uibnf*fKbnf+uibnn*fKbnn +uibnb*fKbnb+uibnm*fKbnm+uibnt*fKbnt+uibnk*fKbnk+uibnq*fKbnq)/fKbn $ FRML Iuibq uibq = (uibqh*fKbqh+uibqs*fKbqs+uibqt*fKbqt+uibqf*fKbqf+uibqq*fKbqq)/fKbq $ FRML Iuibp uibp = (uiba*fKba+uibe*fKbe+uibng*fKbng+uibne*fKbne+uibnf*fKbnf+uibnn*fKbnn +uibnb*fKbnb+uibnm*fKbnm+uibnt*fKbnt+uibnk*fKbnk+uibnq*fKbnq+uibb*fKbb +uibqh*fKbqh+uibqs*fKbqs+uibqt*fKbqt+uibqf*fKbqf+uibqq*fKbqq)/fKbp $ FRML Iuib2 uib2 = (uibng*fKbng+uibne*fKbne+uibqs*fKbqs+uibqf*fKbqf)/fKb2 $ FRML Iuib3 uib3 = (uiba*fKba+uibnf*fKbnf+uibnn*fKbnn+uibnb*fKbnb+uibnm*fKbnm+uibnt*fKbnt +uibnk*fKbnk+uibnq*fKbnq+uibb*fKbb+uibqh*fKbqh+uibqt*fKbqt+uibqq*fKbqq)/fKb3 $ FRML Iuib23 uib23 = (uiba*fKba+uibng*fKbng+uibne*fKbne+uibnf*fKbnf+uibnn*fKbnn+uibnb*fKbnb +uibnm*fKbnm+uibnt*fKbnt+uibnk*fKbnk+uibnq*fKbnq+uibb*fKbb+uibqh*fKbqh +uibqs*fKbqs+uibqt*fKbqt+uibqf*fKbqf+uibqq*fKbqq)/fKb23 $ FRML Iuib uib = (uiba*fKba+uibe*fKbe+uibng*fKbng+uibne*fKbne+uibnf*fKbnf+uibnn*fKbnn +uibnb*fKbnb+uibnm*fKbnm+uibnt*fKbnt+uibnk*fKbnk+uibnq*fKbnq+uibb*fKbb +uibqh*fKbqh+uibqs*fKbqs+uibqt*fKbqt+uibqf*fKbqf+uibqq*fKbqq+uibh*fKbh +uibo*fKbo)/fKb $ () dtfkb (effektivitet) FRML Idtfkbn dtfkbn = (dtfkbng*fKbng+dtfkbne1*fKbne+dtfkbnf*fKbnf+dtfkbnn*fKbnn+dtfkbnb*fKbnb +dtfkbnm*fKbnm+dtfkbnt*fKbnt+dtfkbnk*fKbnk+dtfkbnq*fKbnq)/fKbn $ FRML Idtfkbq dtfkbq = (dtfkbqh*fKbqh+dtfkbqs*fKbqs+dtfkbqt*fKbqt+dtfkbqf*fKbqf+dtfkbqq*fKbqq)/fKbq $ FRML Idtfkb2 dtfkb2 = (dtfkbng*fKbng+dtfkbne1*fKbne+dtfkbqs*fKbqs+dtfkbqf*fKbqf)/fKb2 $ FRML Idtfkb3 dtfkb3 = (dtfkba*fKba+dtfkbnf*fKbnf+dtfkbnn*fKbnn+dtfkbnb*fKbnb+dtfkbnm*fKbnm +dtfkbnt*fKbnt+dtfkbnk*fKbnk+dtfkbnq*fKbnq+dtfkbb*fKbb+dtfkbqh*fKbqh +dtfkbqt*fKbqt+dtfkbqq*fKbqq)/fKb3 $ FRML Idtfkb23 dtfkb23 = (dtfkba*fKba+dtfkbng*fKbng+dtfkbne1*fKbne+dtfkbnf*fKbnf+dtfkbnn*fKbnn +dtfkbnb*fKbnb+dtfkbnm*fKbnm+dtfkbnt*fKbnt+dtfkbnk*fKbnk+dtfkbnq*fKbnq +dtfkbb*fKbb+dtfkbqh*fKbqh+dtfkbqs*fKbqs+dtfkbqt*fKbqt+dtfkbqf*fKbqf +dtfkbqq*fKbqq)/fKb23 $ () fKbw (ønsket kapital) FRML IfKbnw fKbnw = fKbngw+fKbnew1+fKbnfw+fKbnnw+fKbnbw+fKbnmw+fKbntw+fKbnkw+fKbnqw $ FRML IfKbqw fKbqw = fKbqhw+fKbqsw+fKbqtw+fKbqfw+fKbqqw $ FRML IfKb2w fKb2w = fKbngw+fKbnew1+fKbqsw+fKbqfw $ FRML IfKb3w fKb3w = fKbaw+fKbnfw+fKbnnw+fKbnbw+fKbnmw+fKbntw+fKbnkw+fKbnqw+fKbbw+fKbqhw+fKbqtw+fKbqqw $ FRML IfKb23w fKb23w = fKb2w + fKb3w $ () rho_Kb (autokorrelationsparameter) FRML Irofkb3 rofkb3 = (rofkba*fKba+rofkbnf*fKbnf+rofkbnn*fKbnn+rofkbnb*fKbnb+rofkbnm*fKbnm +rofkbnt*fKbnt+rofkbnk*fKbnk+rofkbnq*fKbnq+rofkbb*fKbb+rofkbqh*fKbqh +rofkbqt*fKbqt+rofkbqq*fKbqq)/fKb3 $ () MASKINER+BYGNINGER () Kapital FRML IfK fK = fKmp+fKbp+fKbh+fKmo+fKbo $ FRML IfKn fKn = fKnmp+fKnbp+fKnbh+fKnmo+fKnbo $ FRML IfKp fKp = fKmp+fKbp+fKbh $ FRML IfKpxh fKpxh = fKmp+fKbp $ FRML IfKnp fKnp = fKnmp+fKnbp+fKnbh $ FRML IfKo fKo = fKmo+fKbo $ FRML IfKno fKno = fKnmo+fKnbo $ () Nettoinvesteringer FRML IFIN fIn = fInm + fInb $ FRML IIN In = pim*fKnm+pib*fKnb - (pim(-1)*fKnm(-1)+pib(-1)*fKnb(-1)) $ FRML IFINNO fIno = (fKnbo-fKnbo(-1)) + (fKnmo-fKnmo(-1)) $ () BESKÆFTIGELSE () Hq FRML IHQn1 Hqn1 = Hqng1+Hqne1+Hqnf1+Hqnn1+Hqnb1+Hqnm1+Hqnt1+Hqnk1+Hqnq1 $ FRML IHQq1 Hqq1 = Hqqh1+Hqqs1+Hqqt1+Hqqf1+Hqqq1 $ FRML IHQp1 Hqp1 = Hqa1+Hqe1+Hqng1+Hqne1+Hqnf1+Hqnn1+Hqnb1+Hqnm1+Hqnt1+Hqnk1+Hqnq1+Hqb1+Hqqh1 +Hqqs1+Hqqt1+Hqqf1+Hqqq1+Hqh1 $ FRML IHQ21 Hq21 = Hqng1+Hqne1+Hqqs1+Hqqf1 $ FRML IHQ31 Hq31 = Hqa1+Hqnf1+Hqnn1+Hqnb1+Hqnm1+Hqnt1+Hqnk1+Hqnq1+Hqb1+Hqqh1+Hqqt1+Hqqq1 $ FRML IHQ231 Hq231 = Hq21 + Hq31 $ FRML IHQ1 Hq1 = Hq231 + Hqe1 + Hqh1 + Hqo2 $ () Q FRML IQp1 Qp1 = Qa1+Qe1+Qng1+Qne1+Qnf1+Qnn1+Qnb1+Qnm1+Qnt1+Qnk1+Qnq1+Qb1+Qqh1+Qqs1+Qqt1+Qqf1+Qqq1+Qh1 $ FRML IQ21 Q21 = Qng1+Qne1+Qqs1+Qqf1 $ FRML IQ31 Q31 = Qa1+Qnf1+Qnn1+Qnb1+Qnm1+Qnt1+Qnk1+Qnq1+Qb1+Qqh1+Qqt1+Qqq1 $ FRML IQ231 Q231 = Q21 + Q31 $ () Qs FRML IQs21 QS21 = Qsng1+Qsne1+Qsqs1+Qsqf1 $ FRML IQs31 QS31 = Qsa1+Qsnf1+Qsnn1+Qsnb1+Qsnm1+Qsnt1+Qsnk1+Qsnq1+Qsb1+Qsqh1+Qsqt1+Qsqq1 $ FRML IQs231 QS231 = QS21 + QS31 $ () Hg FRML IHgw Hgw = (Qwa1*Hgwa+Qwe1*Hgwe+Qwng1*Hgwng+Qwne1*Hgwne+Qwnf1*Hgwnf +Qwnn1*Hgwnn+Qwnb1*Hgwnb+Qwnm1*Hgwnm+Qwnt1*Hgwnt+Qwnk1*Hgwnk +Qwnq1*Hgwnq+Qwb1*Hgwb+Qwqh1*Hgwqh+Qwqs1*Hgwqs+Qwqt1*Hgwqt +Qwqf1*Hgwqf+Qwqq1*Hgwqq+Qwh1*Hgwh+Qwo2*Hgwo) /(Qwa1+Qwe1+Qwng1+Qwne1+Qwnf1+Qwnn1+Qwnb1+Qwnm1+Qwnt1+Qwnk1 +Qwnq1+Qwb1+Qwqh1+Qwqs1+Qwqt1+Qwqf1+Qwqq1+Qwh1+Qwo2) $ FRML IHgs Hgs = (Qsa1*Hgsa+Qsnf1*Hgsnf +Qsnn1*Hgsnn+Qsnb1*Hgsnb+Qsnm1*Hgsnm+Qsnt1*Hgsnt+Qsnk1*Hgsnk +Qsnq1*Hgsnq+Qsb1*Hgsb+Qsqh1*Hgsqh+Qsqs1*Hgsqs+Qsqt1*Hgsqt +Qsqq1*Hgsqq+Qsh1*Hgsh+Qso2*Hgso) /(Qsa1+Qsnf1+Qsnn1+Qsnb1+Qsnm1+Qsnt1+Qsnk1 +Qsnq1+Qsb1+Qsqh1+Qsqs1+Qsqt1+Qsqq1+Qsh1+Qso2) $ FRML IHgwp Hgwp = (Qwa1*Hgwa+Qwe1*Hgwe+Qwng1*Hgwng+Qwne1*Hgwne+Qwnf1*Hgwnf +Qwnn1*Hgwnn+Qwnb1*Hgwnb+Qwnm1*Hgwnm+Qwnt1*Hgwnt+Qwnk1*Hgwnk +Qwnq1*Hgwnq+Qwb1*Hgwb+Qwqh1*Hgwqh+Qwqs1*Hgwqs+Qwqt1*Hgwqt +Qwqf1*Hgwqf+Qwqq1*Hgwqq+Qwh1*Hgwh) /(Qwa1+Qwe1+Qwng1+Qwne1+Qwnf1+Qwnn1+Qwnb1+Qwnm1+Qwnt1+Qwnk1 +Qwnq1+Qwb1+Qwqh1+Qwqs1+Qwqt1+Qwqf1+Qwqq1+Qwh1) $ FRML IHgsp Hgsp = (Qsa1*Hgsa+Qsnf1*Hgsnf +Qsnn1*Hgsnn+Qsnb1*Hgsnb+Qsnm1*Hgsnm+Qsnt1*Hgsnt+Qsnk1*Hgsnk +Qsnq1*Hgsnq+Qsb1*Hgsb+Qsqh1*Hgsqh+Qsqs1*Hgsqs+Qsqt1*Hgsqt +Qsqq1*Hgsqq+Qsh1*Hgsh) /(Qsa1+Qsnf1+Qsnn1+Qsnb1+Qsnm1+Qsnt1+Qsnk1 +Qsnq1+Qsb1+Qsqh1+Qsqs1+Qsqt1+Qsqq1+Qsh1) $ FRML IHgp Hgp = (Qa1*Hga+Qe1*Hge+Qng1*Hgng+Qne1*Hgne+Qnf1*Hgnf +Qnn1*Hgnn+Qnb1*Hgnb+Qnm1*Hgnm+Qnt1*Hgnt+Qnk1*Hgnk +Qnq1*Hgnq+Qb1*Hgb+Qqh1*Hgqh+Qqs1*Hgqs+Qqt1*Hgqt +Qqf1*Hgqf+Qqq1*Hgqq+Qh1*Hgh) /(Qa1+Qe1+Qng1+Qne1+Qnf1+Qnn1+Qnb1+Qnm1+Qnt1+Qnk1 +Qnq1+Qb1+Qqh1+Qqs1+Qqt1+Qqf1+Qqq1+Qh1) $ FRML IHgsn Hgsn = (Qsnf1*Hgsnf+Qsnn1*Hgsnn+Qsnb1*Hgsnb+Qsnm1*Hgsnm +Qsnt1*Hgsnt+Qsnk1*Hgsnk+Qsnq1*Hgsnq) /(Qsnf1+Qsnn1+Qsnb1+Qsnm1+Qsnt1+Qsnk1+Qsnq1) $ FRML IHgn1 Hgn1 = (Qng1*Hgng+Qne1*Hgne+Qnf1*Hgnf+Qnn1*Hgnn+Qnb1*Hgnb +Qnm1*Hgnm+Qnt1*Hgnt+Qnk1*Hgnk+Qnq1*Hgnq) /(Qng1+Qne1+Qnf1+Qnn1+Qnb1+Qnm1+Qnt1+Qnk1+Qnq1) $ FRML IHgwq Hgwq = (Qwqh1*Hgwqh+Qwqs1*Hgwqs+Qwqt1*Hgwqt+Qwqf1*Hgwqf+Qwqq1*Hgwqq) /(Qwqh1+Qwqs1+Qwqt1+Qwqf1+Qwqq1) $ FRML IHgsq Hgsq = (Qsqh1*Hgsqh+Qsqs1*Hgsqs+Qsqt1*Hgsqt+Qsqq1*Hgsqq) /(Qsqh1+Qsqs1+Qsqt1+Qsqq1) $ FRML IHgq Hgq = (Qqh1*Hgqh+Qqs1*Hgqs+Qqt1*Hgqt+Qqf1*Hgqf+Qqq1*Hgqq) /(Qqh1+Qqs1+Qqt1+Qqf1+Qqq1) $ FRML IHg2 Hg2 = (Qng1*Hgng+Qne1*Hgne+Qqs1*Hgqs+Qqf1*Hgqf) /(Qng1+Qne1+Qqs1+Qqf1) $ FRML IHg3 Hg3 = (Qa1*Hga+Qnf1*Hgnf+Qnn1*Hgnn+Qnb1*Hgnb+Qnm1*Hgnm +Qnt1*Hgnt+Qnk1*Hgnk+Qnq1*Hgnq+Qb1*Hgb+Qqh1*Hgqh +Qqt1*Hgqt+Qqq1*Hgqq) /(Qa1+Qnf1+Qnn1+Qnb1+Qnm1+Qnt1+Qnk1 +Qnq1+Qb1+Qqh1+Qqt1+Qqq1) $ FRML IHg23 Hg23 = (Qa1*Hga+Qng1*Hgng+Qne1*Hgne+Qnf1*Hgnf+Qnn1*Hgnn +Qnb1*Hgnb+Qnm1*Hgnm+Qnt1*Hgnt+Qnk1*Hgnk+Qnq1*Hgnq +Qb1*Hgb+Qqh1*Hgqh+Qqs1*Hgqs+Qqt1*Hgqt+Qqf1*Hgqf +Qqq1*Hgqq) /(Qa1+Qng1+Qne1+Qnf1+Qnn1+Qnb1+Qnm1+Qnt1+Qnk1 +Qnq1+Qb1+Qqh1+Qqs1+Qqt1+Qqf1+Qqq1) $ () Selvstændigkvoter FRML Ibqsq1 BQSQ1 = QSQ1/Qq1 $ FRML Ibqsn1 BQSN1 = QSN1/Qn1 $ FRML Ibqsp1 BQSP1 = Qsp1/Qp1 $ FRML Ibqs21 BQS21 = QS21/Q21 $ FRML Ibqs31 BQS31 = QS31/Q31 $ FRML Ibqs231 BQS231 = QS231/Q231 $ () Qw FRML IQw21 Qw21 = Qwng1+Qwne1+Qwqs1+Qwqf1 $ FRML IQw31 QW31 = Qwa1+Qwnf1+Qwnn1+Qwnb1+Qwnm1+Qwnt1+Qwnk1+Qwnq1+Qwb1+Qwqh1+Qwqt1+Qwqq1 $ FRML IQw231 Qw231 = Qw21 + QW31 $ () Yw FRML IYwp1 YWP1 = Ywa1+Ywe1+Ywng1+Ywne1+Ywnf1+Ywnn1+Ywnb1+Ywnm1+Ywnt1+Ywnk1+Ywnq1 +Ywb1+Ywqh1+Ywqs1+Ywqt1+Ywqf1+Ywqq1+Ywh1 $ FRML IYw21 YW21 = Ywng1+Ywne1+Ywqs1+Ywqf1 $ FRML IYw31 YW31 = Ywa1+Ywnf1+Ywnn1+Ywnb1+Ywnm1+Ywnt1+Ywnk1+Ywnq1+Ywb1+Ywqh1+Ywqt1 +Ywqq1 $ FRML IYw231 YW231 = YW21 + YW31 $ () l FRML Iln1 ln1 = (lng1*Hqng1+lne1*Hqne1+lnf1*Hqnf1+lnn1*Hqnn1+lnb1*Hqnb1+lnm1*Hqnm1 +lnt1*Hqnt1+lnk1*Hqnk1+lnq1*Hqnq1)/Hqn1 $ FRML Ilq1 lq1 = (lqh1*Hqqh1+lqs1*Hqqs1+lqt1*Hqqt1+lqf1*Hqqf1+lqq1*Hqqq1)/Hqq1 $ FRML Ilp1 lp1 = (la1*Hqa1+le1*Hqe1+lng1*Hqng1+lne1*Hqne1+lnf1*Hqnf1+lnn1*Hqnn1 +lnb1*Hqnb1+lnm1*Hqnm1+lnt1*Hqnt1+lnk1*Hqnk1+lnq1*Hqnq1+lb1*Hqb1 +lqh1*Hqqh1+lqs1*Hqqs1+lqt1*Hqqt1+lqf1*Hqqf1+lqq1*Hqqq1+lh1*Hqh1)/Hqp1 $ FRML Il21 l21 = (lng1*Hqng1+lne1*Hqne1+lqs1*Hqqs1+lqf1*Hqqf1)/Hq21 $ FRML Il31 l31 = (la1*Hqa1+lnf1*Hqnf1+lnn1*Hqnn1+lnb1*Hqnb1+lnm1*Hqnm1+lnt1*Hqnt1 +lnk1*Hqnk1+lnq1*Hqnq1+lb1*Hqb1+lqh1*Hqqh1+lqt1*Hqqt1+lqq1*Hqqq1)/Hq31 $ FRML Il231 l231 = (la1*Hqa1+lng1*Hqng1+lne1*Hqne1+lnf1*Hqnf1+lnn1*Hqnn1+lnb1*Hqnb1 +lnm1*Hqnm1+lnt1*Hqnt1+lnk1*Hqnk1+lnq1*Hqnq1+lb1*Hqb1+lqh1*Hqqh1 +lqs1*Hqqs1+lqt1*Hqqt1+lqf1*Hqqf1+lqq1*Hqqq1)/Hq231 $ FRML Il1 l1 = (la1*Hqa1+le1*Hqe1+lng1*Hqng1+lne1*Hqne1+lnf1*Hqnf1+lnn1*Hqnn1 +lnb1*Hqnb1+lnm1*Hqnm1+lnt1*Hqnt1+lnk1*Hqnk1+lnq1*Hqnq1+lb1*Hqb1 +lqh1*Hqqh1+lqs1*Hqqs1+lqt1*Hqqt1+lqf1*Hqqf1+lqq1*Hqqq1+lh1*Hqh1 +lo1*Hqo2)/Hq1 $ () dthq FRML Idthqn1 dthqn1 = (dthqng1*Hqng1+dthqne1*Hqne1+dthqnf1*Hqnf1+dthqnn1*Hqnn1 +dthqnb1*Hqnb1+dthqnm1*Hqnm1+dthqnt1*Hqnt1+dthqnk1*Hqnk1 +dthqnq1*Hqnq1)/Hqn1 $ FRML Idthqq1 dthqq1 = (dthqqh1*Hqqh1+dthqqs1*Hqqs1+dthqqt1*Hqqt1+dthqqf1*Hqqf1 +dthqqq1*Hqqq1)/Hqq1 $ FRML Idthqp1 dthqp1 = (dthqa1*Hqa1+dthqe*Hqe1+dthqng1*Hqng1+dthqne1*Hqne1+dthqnf1*Hqnf1 +dthqnn1*Hqnn1+dthqnb1*Hqnb1+dthqnm1*Hqnm1+dthqnt1*Hqnt1 +dthqnk1*Hqnk1+dthqnq1*Hqnq1+dthqb1*Hqb1+dthqqh1*Hqqh1 +dthqqs1*Hqqs1+dthqqt1*Hqqt1+dthqqf1*Hqqf1+dthqqq1*Hqqq1 +dthqh*Hqh1)/Hqp1 $ FRML Idthq21 dthq21 = (dthqng1*Hqng1+dthqne1*Hqne1+dthqqs1*Hqqs1+dthqqf1*Hqqf1)/Hq21 $ FRML Idthq31 dthq31 = (dthqa1*Hqa1+dthqnf1*Hqnf1+dthqnn1*Hqnn1+dthqnb1*Hqnb1 +dthqnm1*Hqnm1+dthqnt1*Hqnt1+dthqnk1*Hqnk1+dthqnq1*Hqnq1 +dthqb1*Hqb1+dthqqh1*Hqqh1+dthqqt1*Hqqt1+dthqqq1*Hqqq1)/Hq31 $ FRML Idthq231 dthq231 = (dthqa1*Hqa1+dthqng1*Hqng1+dthqne1*Hqne1+dthqnf1*Hqnf1 +dthqnn1*Hqnn1+dthqnb1*Hqnb1+dthqnm1*Hqnm1+dthqnt1*Hqnt1 +dthqnk1*Hqnk1+dthqnq1*Hqnq1+dthqb1*Hqb1+dthqqh1*Hqqh1 +dthqqs1*Hqqs1+dthqqt1*Hqqt1+dthqqf1*Hqqf1+dthqqq1*Hqqq1)/Hq231 $ () HQw og Hqn FRML IHQnw1 Hqnw1 = Hqngw1+Hqnew1+Hqnfw1+Hqnnw1+Hqnbw1+Hqnmw1+Hqntw1+Hqnkw1+Hqnqw1 $ FRML IHQqw1 HQQW1 = Hqqhw1+Hqqsw1+Hqqtw1+Hqqfw1+Hqqqw1 $ FRML IHQ2w1 Hq2w1 = Hqngw1+Hqnew1+Hqqsw1+Hqqfw1 $ FRML IHQ3w1 Hq3w1 = Hqaw1+Hqnfw1+Hqnnw1+Hqnbw1+Hqnmw1+Hqntw1+Hqnkw1+Hqnqw1+Hqbw1 +Hqqhw1+Hqqtw1+Hqqqw1 $ FRML IHQ23w1 Hq23w1 = Hq2w1 + Hq3w1 $ FRML IHQ3n1 Hq3n1 = Hqan1+Hqnfn1+Hqnnn1+Hqnbn1+Hqnmn1+Hqntn1+Hqnkn1+Hqnqn1+Hqbn1 +Hqqhn1+Hqqtn1+Hqqqn1 $ () rho_L FRML Irohq31 rohq31 = (rohqa1*Hqa1+rohqnf1*Hqnf1+rohqnn1*Hqnn1+rohqnb1*Hqnb1+rohqnm1*Hqnm1 +rohqnt1*Hqnt1+rohqnk1*Hqnk1+rohqnq1*Hqnq1+rohqb1*Hqb1+rohqqh1*Hqqh1 +rohqqt1*Hqqt1+rohqqq1*Hqqq1)/Hq31 $ () ENERGI () fVe FRML IfVen fVen = fVeng+fVene+fVenf+fVenn+fVenb+fVenm+fVent+fVenk+fVenq $ FRML IfVeq fVeq = fVeqh+fVeqs+fVeqt+fVeqf+fVeqq $ FRML IfVep fVep = fVea+fVee+fVeng+fVene+fVenf+fVenn+fVenb+fVenm+fVent+fVenk +fVenq+fVeb+fVeqh+fVeqs+fVeqt+fVeqf+fVeqq+fVeh $ FRML IfVe2 fVe2 = fVeng+fVene+fVeqs+fVeqf $ FRML IfVe3 fVe3 = fVea+fVenf+fVenn+fVenb+fVenm+fVent+fVenk+fVenq+fVeb+fVeqh +fVeqt+fVeqq $ FRML IfVe23 fVe23 = fVe2 + fVe3 $ FRML IfVe1 fVe1 = fVep + fVeo $ () Ve FRML IVen Ven = Veng+Vene+Venf+Venn+Venb+Venm+Vent+Venk+Venq $ FRML IVeq Veq = Veqh+Veqs+Veqt+Veqf+Veqq $ FRML IVep Vep = Vea+Vee+Veng+Vene+Venf+Venn+Venb+Venm+Vent+Venk+Venq +Veb+Veqh+Veqs+Veqt+Veqf+Veqq+Veh $ FRML IVe2 Ve2 = Veng+Vene+Veqs+Veqf $ FRML IVe3 Ve3 = Vea+Venf+Venn+Venb+Venm+Vent+Venk+Venq+Veb+Veqh+Veqt+Veqq $ FRML IVe23 Ve23 = Ve2 + Ve3 $ FRML IVe1 Ve1 = Vep + Veo $ FRML Ipven pven = Ven/fVen $ FRML Ipveq pveq = Veq/fVeq $ FRML Ipvep pvep = Vep/fVep $ FRML Ipve2 pve2 = Ve2/fVe2 $ FRML Ipve3 pve3 = Ve3/fVe3 $ FRML Ipve23 pve23 = Ve23/fVe23 $ FRML Ipve1 PVE1 = Ve1/fVe1 $ () dtfve FRML Idtfven1 dtfven1 = (dtfveng*fVeng+dtfvene1*fVene+dtfvenf1*fVenf+dtfvenn1*fVenn +dtfvenb1*fVenb+dtfvenm1*fVenm+dtfvent1*fVent+dtfvenk1*fVenk +dtfvenq1*fVenq)/fVen $ FRML Idtfveq1 dtfveq1 = (dtfveqh1*fVeqh+dtfveqs*fVeqs+dtfveqt1*fVeqt+dtfveqf1*fVeqf +dtfveqq1*fVeqq)/fVeq $ FRML Idtfvep1 dtfvep1 = (dtfvea1*fVea+ 1*fVee+dtfveng*fVeng+dtfvene1*fVene +dtfvenf1*fVenf+dtfvenn1*fVenn+dtfvenb1*fVenb+dtfvenm1*fVenm +dtfvent1*fVent+dtfvenk1*fVenk+dtfvenq1*fVenq+dtfveb1*fVeb +dtfveqh1*fVeqh+dtfveqs*fVeqs+dtfveqt1*fVeqt+dtfveqf1*fVeqf +dtfveqq1*fVeqq+dtfveh*fVeh)/fVep $ FRML Idtfve21 dtfve21 = (dtfveng*fVeng+dtfvene1*fVene+dtfveqs*fVeqs+dtfveqf1*fVeqf) /fVe2 $ FRML Idtfve31 dtfve31 = (dtfvea1*fVea+dtfvenf1*fVenf+dtfvenn1*fVenn+dtfvenb1*fVenb +dtfvenm1*fVenm+dtfvent1*fVent+dtfvenk1*fVenk+dtfvenq1*fVenq +dtfveb1*fVeb+dtfveqh1*fVeqh+dtfveqt1*fVeqt+dtfveqq1*fVeqq) /fVe3 $ FRML Idtfve231 dtfve231 = (dtfvea1*fVea+dtfveng*fVeng+dtfvene1*fVene+dtfvenf1*fVenf +dtfvenn1*fVenn+dtfvenb1*fVenb+dtfvenm1*fVenm+dtfvent1*fVent +dtfvenk1*fVenk+dtfvenq1*fVenq+dtfveb1*fVeb+dtfveqh1*fVeqh +dtfveqs*fVeqs+dtfveqt1*fVeqt+dtfveqf1*fVeqf+dtfveqq1*fVeqq) /fVe23 $ () fVew FRML IfVe3w1 fVe3w1 = fVeaw1+fVenfw1+fVennw1+fVenbw1+fVenmw1+fVentw1+fVenkw1+fVenqw1 +fVebw1+fVeqhw1+fVeqtw1+fVeqqw1 $ () Sipve FRML ISipven Sipven = Sipveng+Sipvene+Sipvenf+Sipvenn+Sipvenb+Sipvenm +Sipvent+Sipvenk+Sipvenq $ FRML ISipveq Sipveq = Sipveqh+Sipveqs+Sipveqt+Sipveqf+Sipveqq $ FRML ISipvep Sipvep = Sipvea+Sipvee+Sipveng+Sipvene+Sipvenf+Sipvenn+Sipvenb +Sipvenm+Sipvent+Sipvenk+Sipvenq+Sipveb+Sipveqh+Sipveqs +Sipveqt+Sipveqf+Sipveqq+Sipveh $ FRML ISipve2 Sipve2 = Sipveng+Sipvene+Sipveqs+Sipveqf $ FRML ISipve3 Sipve3 = Sipvea+Sipvenf+Sipvenn+Sipvenb+Sipvenm+Sipvent+Sipvenk +Sipvenq+Sipveb+Sipveqh+Sipveqt+Sipveqq $ FRML ISipve23 Sipve23 = Sipve2 + Sipve3 $ () tve FRML Itven tven = Sipven/fVen $ FRML Itveq tveq = Sipveq/fVeq $ FRML Itvep tvep = Sipvep/fVep $ FRML Itve2 tve2 = Sipve2/fVe2 $ FRML Itve3 tve3 = Sipve3/fVe3 $ FRML Itve23 tve23 = Sipve23/fVe23 $ () MATERIALER () fVm FRML IfVmn fVmn = fVmng+fVmne+fVmnf+fVmnn+fVmnb+fVmnm+fVmnt+fVmnk+fVmnq $ FRML IfVmq fVmq = fVmqh+fVmqs+fVmqt+fVmqf+fVmqq $ FRML IfVmp fVmp = fVma+fVme+fVmng+fVmne+fVmnf+fVmnn+fVmnb+fVmnm+fVmnt+fVmnk +fVmnq+fVmb+fVmqh+fVmqs+fVmqt+fVmqf+fVmqq+fVmh $ FRML IfVm2 fVm2 = fVmng+fVmne+fVmqs+fVmqf $ FRML IfVm3 fVm3 = fVma+fVmnf+fVmnn+fVmnb+fVmnm+fVmnt+fVmnk+fVmnq+fVmb+fVmqh +fVmqt+fVmqq $ FRML IfVm23 fVm23 = fVm2 + fVm3 $ FRML IfVm fVm = fVmp + fVmo $ () Vm FRML IVmn Vmn = Vmng+Vmne+Vmnf+Vmnn+Vmnb+Vmnm+Vmnt+Vmnk+Vmnq $ FRML IVmq Vmq = Vmqh+Vmqs+Vmqt+Vmqf+Vmqq $ FRML IVmp Vmp = Vma+Vme+Vmng+Vmne+Vmnf+Vmnn+Vmnb+Vmnm+Vmnt+Vmnk+Vmnq +Vmb+Vmqh+Vmqs+Vmqt+Vmqf+Vmqq+Vmh $ FRML IVm2 Vm2 = Vmng+Vmne+Vmqs+Vmqf $ FRML IVm3 Vm3 = Vma+Vmnf+Vmnn+Vmnb+Vmnm+Vmnt+Vmnk+Vmnq+Vmb+Vmqh+Vmqt+Vmqq $ FRML IVm23 Vm23 = Vm2 + Vm3 $ FRML IVm Vm = Vmp + Vmo $ () pvm FRML Ipvmn pvmn = Vmn/fVmn $ FRML Ipvmq pvmq = Vmq/fVmq $ FRML Ipvmp pvmp = Vmp/fVmp $ FRML Ipvm2 pvm2 = Vm2/fVm2 $ FRML Ipvm3 pvm3 = Vm3/fVm3 $ FRML Ipvm23 pvm23 = Vm23/fVm23 $ FRML Ipvm pvm = Vm/fVm $ () Sipvm FRML ISipvmn Sipvmn = Sipvmng+Sipvmne+Sipvmnf+Sipvmnn+Sipvmnb+Sipvmnm +Sipvmnt+Sipvmnk+Sipvmnq $ FRML ISipvmq Sipvmq = Sipvmqh+Sipvmqs+Sipvmqt+Sipvmqf+Sipvmqq $ FRML ISipvmp Sipvmp = Sipvma+Sipvme+Sipvmng+Sipvmne+Sipvmnf+Sipvmnn+Sipvmnb +Sipvmnm+Sipvmnt+Sipvmnk+Sipvmnq+Sipvmb+Sipvmqh+Sipvmqs +Sipvmqt+Sipvmqf+Sipvmqq+Sipvmh $ FRML ISipvm2 Sipvm2 = Sipvmng+Sipvmne+Sipvmqs+Sipvmqf $ FRML ISipvm3 Sipvm3 = Sipvma+Sipvmnf+Sipvmnn+Sipvmnb+Sipvmnm+Sipvmnt+Sipvmnk +Sipvmnq+Sipvmb+Sipvmqh+Sipvmqt+Sipvmqq $ FRML ISipvm23 Sipvm23 = Sipvm2 + Sipvm3 $ () tvm FRML Itvmn tvmn = Sipvmn/fVmn $ FRML Itvmq tvmq = Sipvmq/fVmq $ FRML Itvmp tvmp = Sipvmp/fVmp $ FRML Itvm2 tvm2 = Sipvm2/fVm2 $ FRML Itvm3 tvm3 = Sipvm3/fVm3 $ FRML Itvm23 tvm23 = Sipvm23/fVm23 $ () VAREKØB FRML Iv V = Va+Ve+Vng+Vne+Vnf+Vnn+Vnb+Vnm+Vnt+Vnk+Vnq+Vb+Vqh+Vqs +Vqt+Vqf+Vqq+Vh+Vo $ () Sipx FRML ISipxn Sipxn = Sipxng+Sipxne+Sipxnf+Sipxnn+Sipxnb+Sipxnm +Sipxnt+Sipxnk+Sipxnq $ FRML ISipxq Sipxq = Sipxqh+Sipxqs+Sipxqt+Sipxqf+Sipxqq $ FRML ISipxp Sipxp = Sipxa+Sipxe+Sipxng+Sipxne+Sipxnf+Sipxnn+Sipxnb +Sipxnm+Sipxnt+Sipxnk+Sipxnq+Sipxb+Sipxqh+Sipxqs +Sipxqt+Sipxqf+Sipxqq+Sipxh $ FRML ISipx2 Sipx2 = Sipxng+Sipxne+Sipxqs+Sipxqf $ FRML ISipx3 Sipx3 = Sipxa+Sipxnf+Sipxnn+Sipxnb+Sipxnm+Sipxnt+Sipxnk +Sipxnq+Sipxb+Sipxqh+Sipxqt+Sipxqq $ FRML ISipx23 Sipx23 = Sipx2 + Sipx3 $ () PRODUKTION () fYf FRML IfYfp fYfp = fYfa+fYfe+fYfng+fYfne+fYfnf+fYfnn+fYfnb+fYfnm+fYfnt+fYfnk +fYfnq+fYfb+fYfqh+fYfqs+fYfqt+fYfqf+fYfqq+fYfh $ FRML IfYf2 fYf2 = fYfng+fYfne+fYfqs+fYfqf $ FRML IfYf3 fYf3 = fYfa+fYfnf+fYfnn+fYfnb+fYfnm+fYfnt+fYfnk+fYfnq+fYfb+fYfqh +fYfqt+fYfqq $ FRML IfYf23 fYf23 = fYfa+fYfng+fYfne+fYfnf+fYfnn+fYfnb+fYfnm+fYfnt+fYfnk+fYfnq +fYfb+fYfqh+fYfqs+fYfqt+fYfqf+fYfqq $ () pyf FRML Ipyfh pyfh = Yfh/fYfh $ FRML Ipyfq pyfq = (Yfqh+Yfqs+Yfqt+Yfqf+Yfqq)/fYfq $ FRML Ipyfp pyfp = (Yfa+Yfe+Yfng+Yfne+Yfnf+Yfnn+Yfnb+Yfnm+Yfnt+Yfnk+Yfnq+Yfb +Yfqh+Yfqs+Yfqt+Yfqf+Yfqq+Yfh)/fYfp $ FRML Ipyf2 pyf2 = (Yfng+Yfne+Yfqs+Yfqf)/fYf2 $ FRML Ipyf3 pyf3 = (Yfa+Yfnf+Yfnn+Yfnb+Yfnm+Yfnt+Yfnk+Yfnq+Yfb+Yfqh+Yfqt+Yfqq) /fYf3 $ FRML Ipyf23 pyf23 = (Yfa+Yfng+Yfne+Yfnf+Yfnn+Yfnb+Yfnm+Yfnt+Yfnk+Yfnq+Yfb+Yfqh +Yfqs+Yfqt+Yfqf+Yfqq)/fYf23 $ FRML Ipyf pyf = (Yfa+Yfe+Yfng+Yfne+Yfnf+Yfnn+Yfnb+Yfnm+Yfnt+Yfnk+Yfnq+Yfb +Yfqh+Yfqs+Yfqt+Yfqf+Yfqq+Yfh+Yfo)/fYf $ () fX FRML IfXp fXp = fXa+fXe+fXng+fXne+fXnf+fXnn+fXnb+fXnm+fXnt+fXnk+fXnq+fXb +fXqh+fXqs+fXqt+fXqf+fXqq+fXh $ FRML IfX2 fX2 = fXng+fXne+fXqs+fXqf $ FRML IfX3 fX3 = fXa+fXnf+fXnn+fXnb+fXnm+fXnt+fXnk+fXnq+fXb+fXqh+fXqt+fXqq $ FRML IfX23 fX23 = fX2 + fX3 $ () px FRML Ipxp pxp = (pxa*fXa+pxe*fXe+pxng*fXng+pxne*fXne+pxnf*fXnf+pxnn*fXnn +pxnb*fXnb+pxnm*fXnm+pxnt*fXnt+pxnk*fXnk+pxnq*fXnq+pxb*fXb +pxqh*fXqh+pxqs*fXqs+pxqt*fXqt+pxqf*fXqf+pxqq*fXqq+pxh*fXh) /fXp $ FRML Ipx3 px3 = (pxa*fXa+pxnf*fXnf+pxnn*fXnn+pxnb*fXnb+pxnm*fXnm+pxnt*fXnt +pxnk*fXnk+pxnq*fXnq+pxb*fXb+pxqh*fXqh+pxqt*fXqt+pxqq*fXqq) /fX3 $ FRML Ipx23 px23 = (pxa*fXa+pxng*fXng+pxne*fXne+pxnf*fXnf+pxnn*fXnn+pxnb*fXnb +pxnm*fXnm+pxnt*fXnt+pxnk*fXnk+pxnq*fXnq+pxb*fXb+pxqh*fXqh +pxqs*fXqs+pxqt*fXqt+pxqf*fXqf+pxqq*fXqq)/fX23 $ FRML Ipx px = (pxa*fXa+pxe*fXe+pxng*fXng+pxne*fXne+pxnf*fXnf+pxnn*fXnn +pxnb*fXnb+pxnm*fXnm+pxnt*fXnt+pxnk*fXnk+pxnq*fXnq+pxb*fXb +pxqh*fXqh+pxqs*fXqs+pxqt*fXqt+pxqf*fXqf+pxqq*fXqq+pxh*fXh +pxo*fXo)/fX $ () ### ARBMARK.T05 ### () () () ARBEJDSLØSHED () () FRML IUlfh Ulfh = Ulf - Ulfd $ FRML IUlfm Ulfm = Ulf - Ulfu $ FRML IUli Uli = Ul - Ulf $ FRML Ibula1 BULA1 = 100*(Ul/Ua1) $ FRML Ibulw1 bulw1 = 100*(Ul/Uaw) $ FRML Ihg Hg = 1000*Hq1/Q1 $ () ### PRISER.T05 ### () () SEKTOR- OG IMPORTPRISER () FRML IDPM pm = M/fM $ FRML IPMV pmv = Mv/fMv $ FRML IPM59 pm59 = M59/fM59 $ FRML IPM59x7y pm59x7y = M59x7y/fM59x7y $ FRML IPMVx3 pmvx3 = Mvx3/fMvx3 $ FRML IPMST pmst = (Ms+Mt)/(fMs+fMt) $ () () PRISER PÅ EFTERSPØRGSELSKOMPONENTER () FRML IPCPDK pcpdk = (fCf*pcf+fCn*pcn+fCi*pci+fCe*pce+fCg*pcg+fCb*pcb +fCv*pcv+fCh*pch+fCk*pck+fCs*pcs) /(fCf+fCn+fCi+fCe+fCg+fCb+fCv+fCh+fCk+fCs) $ FRML IPCPXH pcpxh = (Cp - pch*fCh)/(fCp - fCh) $ FRML IPCP42 pcp42 = Cp42/fCp42 $ FRML IPI pi = I/(fIbh+fIbo11+fImo11+fIbp11+fImp11+fIt+fIl) $ FRML IPIF pif = (I - fIl*pil) /(fIbh+fIbo11+fImo11+fIbp11+fImp11+fIt) $ FRML IPIFP1XH pifp1xh = (pimp11*fImp11 + pibp11*fIbp11 + pit*fIt) /(fImp11+fIbp11+fIt) $ FRML IPIO11 pio11 = (Imo11+Ibo11)/(fImo11+fIbo11) $ FRML IPIP11 pip11 = Ip11/fIp11 $ FRML IPE pe = E/fE $ FRML IPEV pev = Ev/fEv $ FRML IPE59 pe59 = (pe5*fE5+pe6*fE6+pe7y*fE7y+pe7q*fE7q+pe8*fE8) /(fE5+fE6+fE7y+fE7q+fE8) $ FRML IPE59x7y pe59x7y = E59x7y/fE59x7y $ FRML IPEVx3 pevx3 = Evx3/fEvx3 $ FRML IPEST pest = (Es+Et)/(fEs+fEt) $ FRML IKP2E kp2e = pe2/pee2 $ FRML IKP5E kp5e = pe5/pee5 $ FRML IKP6E kp6e = pe6/pee6 $ FRML IKP7QE kp7qe = pe7q/pee7q $ FRML IKP8E kp8e = pe8/pee8 $ FRML IKPTE kpte = pet/peet $ FRML IBPE bpe = (E/fE)/(M/fM) $ FRML IBPEV bpev = (Ev/fEv)/(Mv/fMv) $ FRML IBPE59 bpe59 = ( (pe5*fE5+pe6*fE6+pe7q*fE7q+pe8*fE8) /(fE5+fE6+fE7q+fE8) ) /( (pm5*fM5+pm6m*fM6m+pm6q*fM6q+pm7q*fM7q+ fM7b*pm7b+pm8*fM8) /(fM5+fM6m+fM6q+fM7b+fM7q+fM8) ) $ FRML IBPET bpet = pet/pmt $ FRML IBPES bpes = pes/pms $ FRML IBPEST bpest = ((Es+Et)/(fEs+fEt))/((Ms+Mt)/(fMs+fMt)) $ () () FORSKELLIGE OMKOSTNINGSUDTRYK OG AGGREGATER () FRML Ipwavv pwavv = Va/fXa $ FRML Ipwavl1 pwavl1 = (la1*Hqan1)/fXa $ FRML Ipwanv1 pwanv1 = pwavv+pwavl1 $ FRML Ipwnfnv1 pwnfnv1 = pwnfvv+pwnfvl1 $ FRML Ipwnnnv1 pwnnnv1 = pwnnvv+pwnnvl1 $ FRML Ipwnbnv1 pwnbnv1 = pwnbvv+pwnbvl1 $ FRML Ipwnmnv1 pwnmnv1 = pwnmvv+pwnmvl1 $ FRML Ipwntnv1 pwntnv1 = pwntvv+pwntvl1 $ FRML Ipwnknv1 pwnknv1 = pwnkvv+pwnkvl1 $ FRML Ipwnqnv1 pwnqnv1 = pwnqvv+pwnqvl1 $ FRML Ipwbnv1 pwbnv1 = pwbvv+pwbvl1 $ FRML Ipwqhnv1 pwqhnv1 = pwqhvv+pwqhvl1 $ FRML Ipwqtnv1 pwqtnv1 = pwqtvv+pwqtvl1 $ FRML Ipwqqnv1 pwqqnv1 = pwqqvv+pwqqvl1 $ FRML Ipwngw1 pwngw1 = (uimng*fKmngw1+uibng*fKbng+lng1*Hqngw1+pveng*fVeng +pvmng*fVmng+Siqng-.000*Siqej-Siqngl)/fXng $ FRML Ipwqsw1 pwqsw1 = (uimqs*fKmqsw1+uibqs*fKbqs+lqs1*Hqqsw1+pveqs*fVeqs +pvmqs*fVmqs+Siqqs-.006*Siqej-Siqqsl)/fXqs $ FRML Ipw3nv1 pw3nv1 = (pwanv1*fXa+pwnfnv1*fXnf+pwnnnv1*fXnn+pwnbnv1*fXnb +pwnmnv1*fXnm+pwntnv1*fXnt+pwnknv1*fXnk+pwnqnv1*fXnq +pwbnv1*fXb+pwqhnv1*fXqh+pwqtnv1*fXqt+pwqqnv1*fXqq)/fX3 $ FRML Ipw3vv pw3vv = (pwavv*fXa+pwnfvv*fXnf+pwnnvv*fXnn+pwnbvv*fXnb+pwnmvv*fXnm +pwntvv*fXnt+pwnkvv*fXnk+pwnqvv*fXnq+pwbvv*fXb+pwqhvv*fXqh +pwqtvv*fXqt+pwqqvv*fXqq)/fX3 $ FRML Ipw3vl1 pw3vl1 = (pwavl1*fXa+pwnfvl1*fXnf+pwnnvl1*fXnn+pwnbvl1*fXnb+pwnmvl1*fXnm +pwntvl1*fXnt+pwnkvl1*fXnk+pwnqvl1*fXnq+pwbvl1*fXb+pwqhvl1*fXqh +pwqtvl1*fXqt+pwqqvl1*fXqq)/fX3 $ FRML Ipwnw1 pwnw1 = (pwngw1*fXng+pwnew1*fXne+pwnfw1*fXnf+pwnnw1*fXnn+pwnbw1*fXnb +pwnmw1*fXnm+pwntw1*fXnt+pwnkw1*fXnk+pwnqw1*fXnq)/fXn $ FRML Ipwqw1 pwqw1 = (pwqhw1*fXqh+pwqsw1*fXqs+pwqtw1*fXqt+pwqfw1*fXqf+pwqqw1*fXqq) /fXq $ FRML Ipw3w1 pw3w1 = (pwaw1*fXa+pwnfw1*fXnf+pwnnw1*fXnn+pwnbw1*fXnb+pwnmw1*fXnm +pwntw1*fXnt+pwnkw1*fXnk+pwnqw1*fXnq+pwbw1*fXb+pwqhw1*fXqh +pwqtw1*fXqt+pwqqw1*fXqq)/fX3 $ FRML Ipw23w1 pw23w1 = (pwaw1*fXa+pwngw1*fXng+pwnew1*fXne+pwnfw1*fXnf+pwnnw1*fXnn +pwbw1*fXb+pwqhw1*fXqh+pwqsw1*fXqs+pwqtw1*fXqt+pwqfw1*fXqf +pwqqw1*fXqq)/fX23 $ () () FAKTISKE OMKOSTNINGER () FRML Ipwa1 pwa1 = (uima*fKma+uiba*fKba+la1*Hqa1+pvea*fVea+pvma*fVma +Siqa-.094*Siqej-Siqal)/fXa $ FRML Ipwe1 pwe1 = (uime*fKme+uibe*fKbe+le1*Hqe1+pvee*fVee+pvme*fVme +Siqe-.000*Siqej-Siqel)/fXe $ FRML Ipwng1 pwng1 = (uimng*fKmng+uibng*fKbng+lng1*Hqng1+pveng*fVeng+pvmng*fVmng +Siqng-.000*Siqej-Siqngl)/fXng $ FRML Ipwne1 pwne1 = (uimne*fKmne+uibne*fKbne+lne1*Hqne1+pvene*fVene+pvmne*fVmne +Siqne-.006*Siqej-Siqnel)/fXne $ FRML Ipwnf1 pwnf1 = (uimnf*fKmnf+uibnf*fKbnf+lnf1*Hqnf1+pvenf*fVenf+pvmnf*fVmnf +Siqnf-.008*Siqej-Siqnfl)/fXnf $ FRML Ipwnn1 pwnn1 = (uimnn*fKmnn+uibnn*fKbnn+lnn1*Hqnn1+pvenn*fVenn+pvmnn*fVmnn +Siqnn-.003*Siqej-Siqnnl)/fXnn $ FRML Ipwnb1 pwnb1 = (uimnb*fKmnb+uibnb*fKbnb+lnb1*Hqnb1+pvenb*fVenb+pvmnb*fVmnb +Siqnb-.006*Siqej-Siqnbl)/fXnb $ FRML Ipwnm1 pwnm1 = (uimnm*fKmnm+uibnm*fKbnm+lnm1*Hqnm1+pvenm*fVenm+pvmnm*fVmnm +Siqnm-.018*Siqej-Siqnml)/fXnm $ FRML Ipwnt1 pwnt1 = (uimnt*fKmnt+uibnt*fKbnt+lnt1*Hqnt1+pvent*fVent+pvmnt*fVmnt +Siqnt-.003*Siqej-Siqntl)/fXnt $ FRML Ipwnk1 pwnk1 = (uimnk*fKmnk+uibnk*fKbnk+lnk1*Hqnk1+pvenk*fVenk+pvmnk*fVmnk +Siqnk-.009*Siqej-Siqnkl)/fXnk $ FRML Ipwnq1 pwnq1 = (uimnq*fKmnq+uibnq*fKbnq+lnq1*Hqnq1+pvenq*fVenq+pvmnq*fVmnq +Siqnq-.011*Siqej-Siqnql)/fXnq $ FRML Ipwb1 pwb1 = (uimb*fKmb+uibb*fKbb+lb1*Hqb1+pveb*fVeb+pvmb*fVmb +Siqb-.006*Siqej-Siqbl)/fXb $ FRML Ipwqh1 pwqh1 = (uimqh*fKmqh+uibqh*fKbqh+lqh1*Hqqh1+pveqh*fVeqh+pvmqh*fVmqh +Siqqh-.056*Siqej-Siqqhl)/fXqh $ FRML Ipwqs1 pwqs1 = (uimqs*fKmqs+uibqs*fKbqs+lqs1*Hqqs1+pveqs*fVeqs+pvmqs*fVmqs +Siqqs-.006*Siqej-Siqqsl)/fXqs $ FRML Ipwqt1 pwqt1 = (uimqt*fKmqt+uibqt*fKbqt+lqt1*Hqqt1+pveqt*fVeqt+pvmqt*fVmqt +Siqqt-.017*Siqej-Siqqtl)/fXqt $ FRML Ipwqf1 pwqf1 = (uimqf*fKmqf+uibqf*fKbqf+lqf1*Hqqf1+pveqf*fVeqf+pvmqf*fVmqf +Siqqf-.016*Siqej-Siqqfl)/fXqf $ FRML Ipwqq1 pwqq1 = (uimqq*fKmqq+uibqq*fKbqq+lqq1*Hqqq1+pveqq*fVeqq+pvmqq*fVmqq +Siqqq-.136*Siqej-Siqqql)/fXqq $ FRML Ipwh1 pwh1 = (uimh*fKmh+uibh*fKbh+lh1*Hqh1+pveh*fVeh+pvmh*fVmh +Siqh-.565*Siqej-Siqhl)/fXh $ FRML Ipwo1 pwo1 = (uimo*fKmo+uibo*fKbo+lo1*Hqo2+pveo*fVeo+pvmo*fVmo +Siqo-.040*Siqej-Siqol)/fXo $ FRML Ipwn1 pwn1 = (pwng1*fXng+pwne1*fXne+pwnf1*fXnf+pwnn1*fXnn+pwnb1*fXnb +pwnm1*fXnm+pwnt1*fXnt+pwnk1*fXnk+pwnq1*fXnq)/fXn $ FRML Ipwq1 pwq1 = (pwqh1*fXqh+pwqs1*fXqs+pwqt1*fXqt+pwqf1*fXqf+pwqq1*fXqq)/fXq $ FRML Ipw31 pw31 = (pwa1*fXa+pwnf1*fXnf+pwnn1*fXnn+pwnb1*fXnb+pwnm1*fXnm +pwnt1*fXnt+pwnk1*fXnk+pwnq1*fXnq+pwb1*fXb+pwqh1*fXqh +pwqt1*fXqt+pwqq1*fXqq)/fX3 $ FRML Ipw231 pw231 = (pwa1*fXa+pwng1*fXng+pwne1*fXne+pwnf1*fXnf+pwnn1*fXnn +pwnb1*fXnb+pwnm1*fXnm+pwnt1*fXnt+pwnk1*fXnk+pwnq1*fXnq +pwb1*fXb+pwqh1*fXqh+pwqs1*fXqs+pwqt1*fXqt+pwqf1*fXqf +pwqq1*fXqq)/fX23 $ FRML Ipwp1 pwp1 = (pwa1*fXa+pwe1*fXe+pwng1*fXng+pwne1*fXne+pwnf1*fXnf+pwnn1*fXnn +pwnb1*fXnb+pwnm1*fXnm+pwnt1*fXnt+pwnk1*fXnk+pwnq1*fXnq +pwb1*fXb+pwqh1*fXqh+pwqs1*fXqs+pwqt1*fXqt+pwqf1*fXqf +pwqq1*fXqq+pwh1*fXh)/fXp $ FRML Ipw1 pw1 = (pwa1*fXa+pwe1*fXe+pwng1*fXng+pwne1*fXne+pwnf1*fXnf+pwnn1*fXnn +pwnb1*fXnb+pwnm1*fXnm+pwnt1*fXnt+pwnk1*fXnk+pwnq1*fXnq+pwb1*fXb +pwqh1*fXqh+pwqs1*fXqs+pwqt1*fXqt+pwqf1*fXqf+pwqq1*fXqq+pwh1*fXh +pwo1*fXo)/fX $ () () PROFITRATER () FRML Ibpra1 bpra1 = 1 - pwa1/pxa $ FRML Ibpre1 bpre1 = 1 - pwe1/pxe $ FRML Ibprng1 bprng1 = 1 - pwng1/pxng $ FRML Ibprne1 bprne1 = 1 - pwne1/pxne $ FRML Ibprnf1 bprnf1 = 1 - pwnf1/pxnf $ FRML Ibprnn1 bprnn1 = 1 - pwnn1/pxnn $ FRML Ibprnb1 bprnb1 = 1 - pwnb1/pxnb $ FRML Ibprnm1 bprnm1 = 1 - pwnm1/pxnm $ FRML Ibprnt1 bprnt1 = 1 - pwnt1/pxnt $ FRML Ibprnk1 bprnk1 = 1 - pwnk1/pxnk $ FRML Ibprnq1 bprnq1 = 1 - pwnq1/pxnq $ FRML Ibprb1 bprb1 = 1 - pwb1/pxb $ FRML Ibprqh1 bprqh1 = 1 - pwqh1/pxqh $ FRML Ibprqs1 bprqs1 = 1 - pwqs1/pxqs $ FRML Ibprqt1 bprqt1 = 1 - pwqt1/pxqt $ FRML Ibprqf1 bprqf1 = 1 - pwqf1/pxqf $ FRML Ibprqq1 bprqq1 = 1 - pwqq1/pxqq $ FRML Ibprh1 bprh1 = 1 - pwh1/pxh $ FRML Ibpro1 bpro1 = 1 - pwo1/pxo $ FRML Ibprq1 bprq1 = 1 - pwq1/pxq $ FRML Ibprn1 bprn1 = 1 - pwn1/pxn $ FRML Ibpr31 bpr31 = 1 - pw31/px3 $ FRML Ibpr231 bpr231 = 1 - pw231/px23 $ FRML Ibprp1 bprp1 = 1 - pwp1/pxp $ FRML Ibpr1 bpr1 = 1 - pw1/px $ () ### PENSION.T05 ### FRML ITFFLI Tffli = Tbhsl+Tphhli $ FRML ITFFLU Tfflu = Typshl+Tphhlu $ FRML ITFFKI Tffki = Tbhsk+Tphhki $ FRML ITFFKU Tffku = Typshk+Tphhku $ FRML ITFFI Tffi = Tffli+Tffki $ FRML ITFFU Tffu = Tfflu+Tffku $ FRML ITBHS tbhs = Tbhsl+Tbhsk $ FRML ITPHHI Tphhi = Tphhli+Tphhki $ FRML ITYPSH Typsh = Typshl+Typshk $ FRML ITPHHU Tphhu = Tphhlu+Tphhku $ FRML ITIPPHPL Tipphpl = Tishl+Tihhl $ FRML ITIPPHPK Tipphpk = Tishk+Tihsk $ FRML ITIPPHPS Tipphps = Tishl+Tishk $ FRML ITIPPHPH Tipphph = Tihhl+Tihsk $ FRML IWPHP Wphp = Wphpk+Wphpl $ FRML IWPSP Wpsp = Wpspk+Wpspl $ FRML IWPPK Wppk = Wpspk+Wphpk $ FRML IWPPL Wppl = Wpp-Wppk $ FRML ITPHHPI Tphhpi = Tffpi-(Tbhsp-Tihsp+Sdrpp+Sdratp-Tpatpi) $ FRML ITPHHBI Tphhbi = Tphhi-Tphhpi $ FRML ITPHHPU Tphhpu = Tffpu-Typshp $ FRML ITPHHBU Tphhbu = Tphhu-Tphhpu $ FRML GTiatp Tiatp = Tidatp + Sdratp $ FRML GTisp Tisp = Tidsp + Sdrsp $ FRML GTidmp Tidmp = Tiddmp + Sdrdmp $ FRML GTild Tild = Tidld + Sdrld $ () ### KAEDE.T05 ### () Modul til beregning af Mængdeindeks med kædemængdeindeks, udvalgte variabler () FRML Ifklco fKlco = fCo*kfklco $ FRML Ifklit fKlit = fIt*kfklit $ FRML IImk IMK = Im-Imp-Imo $ FRML IfklCp fKlcp = fKlcp(-1)*( fCh/fCh(-1)*Ch(-1)/Cp(-1) + fCf/fCf(-1)*Cf(-1)/Cp(-1) + fCn/fCn(-1)*Cn(-1)/Cp(-1) + fCi/fCi(-1)*Ci(-1)/Cp(-1) + fCe/fCe(-1)*Ce(-1)/Cp(-1) + fCg/fCg(-1)*Cg(-1)/Cp(-1) + fCb/fCb(-1)*Cb(-1)/Cp(-1) + fCk/fCk(-1)*Ck(-1)/Cp(-1) + fCv/fCv(-1)*Cv(-1)/Cp(-1) + fCs/fCs(-1)*Cs(-1)/Cp(-1) + fCt/fCt(-1)*Ct(-1)/Cp(-1) - fEt/fEt(-1)*Et(-1)/Cp(-1))*kfklcp $ FRML Ifklibp fklibp = fklibp(-1)*(fIba/fIba(-1)*Iba(-1)/Ibp(-1) + fIbe/fIbe(-1)*Ibe(-1)/Ibp(-1) + fIbb/fIbb(-1)*Ibb(-1)/Ibp(-1) + fIbng/fIbng(-1)*Ibng(-1)/Ibp(-1) + fIbne/fIbne(-1)*Ibne(-1)/Ibp(-1) + fIbnf/fIbnf(-1)*Ibnf(-1)/Ibp(-1) + fIbnn/fIbnn(-1)*Ibnn(-1)/Ibp(-1) + fIbnb/fIbnb(-1)*Ibnb(-1)/Ibp(-1) + fIbnm/fIbnm(-1)*Ibnm(-1)/Ibp(-1) + fIbnt/fIbnt(-1)*Ibnt(-1)/Ibp(-1) + fIbnk/fIbnk(-1)*Ibnk(-1)/Ibp(-1) + fIbnq/fIbnq(-1)*Ibnq(-1)/Ibp(-1) + fIbqh/fIbqh(-1)*Ibqh(-1)/Ibp(-1) + (fIbqs+fIbqt)/(fIbqs(-1)+fIbqt(-1))*(Ibqs(-1)+Ibqt(-1))/Ibp(-1) + fIbqf/fIbqf(-1)*Ibqf(-1)/Ibp(-1) + fIbqq/fIbqq(-1)*Ibqq(-1)/Ibp(-1)) $ FRML Ifklimp fklimp = fklimp(-1)*(fIma/fIma(-1)*Ima(-1)/Imp(-1) + fIme/fIme(-1)*Ime(-1)/Imp(-1) + fImh/fImh(-1)*Imh(-1)/Imp(-1) + fImb/fImb(-1)*Imb(-1)/Imp(-1) + fImng/fImng(-1)*Imng(-1)/Imp(-1) + fImne/fImne(-1)*Imne(-1)/Imp(-1) + fImnf/fImnf(-1)*Imnf(-1)/Imp(-1) + fImnn/fImnn(-1)*Imnn(-1)/Imp(-1) + fImnm/fImnm(-1)*Imnm(-1)/Imp(-1) + fImnb/fImnb(-1)*Imnb(-1)/Imp(-1) + fImnt/fImnt(-1)*Imnt(-1)/Imp(-1) + fImnk/fImnk(-1)*Imnk(-1)/Imp(-1) + fImnq/fImnq(-1)*Imnq(-1)/Imp(-1) + fImqh/fImqh(-1)*Imqh(-1)/Imp(-1) + fImqs/fImqs(-1)*Imqs(-1)/Imp(-1) + fImqt/fImqt(-1)*Imqt(-1)/Imp(-1) + fImqf/fImqf(-1)*Imqf(-1)/Imp(-1) + fImqq/fImqq(-1)*Imqq(-1)/Imp(-1)) $ FRML IfkIl fKlil = fKlil(-1)*( fIla*pxa(-1)/Il(-1) + fIle*pxe(-1)/Il(-1) + fIlng*pxng(-1)/Il(-1) + fIlne*pxne(-1)/Il(-1) + fIlnf*pxnf(-1)/Il(-1) + fIlnn*pxnn(-1)/Il(-1) + fIlnb*pxnb(-1)/Il(-1) + fIlnm*pxnm(-1)/Il(-1) + fIlnt*pxnt(-1)/Il(-1) + fIlnk*pxnk(-1)/Il(-1) + fIlnq*pxnq(-1)/Il(-1) + fIlqh*pxqh(-1)/Il(-1) + fIlqq*pxqq(-1)/Il(-1) + fIlm0*(pm0(-1)+tm0(-1))/Il(-1) + fIlm1*(pm1(-1)+tm1(-1))/Il(-1) + fIlm2*(pm2(-1)+tm2(-1))/Il(-1) + fIlm3r*(pm3r(-1)+tm3r(-1))/Il(-1) + fIlm3k*(pm3k(-1)+tm3k(-1))/Il(-1) + fIlm3q*(pm3q(-1)+tm3q(-1))/Il(-1) + fIlm5*(pm5(-1)+tm5(-1))/Il(-1) + fIlm6m*(pm6m(-1)+tm6m(-1))/Il(-1) + fIlm6q*(pm6m(-1)+tm6m(-1))/Il(-1) + fIlm7b*(pm7b(-1)+tm7b(-1))/Il(-1) + fIlm7q*(pm7q(-1)+tm7q(-1))/Il(-1) + fIlm7y*(pm7y(-1)+tm7y(-1))/Il(-1) + fIlm8*(pm8(-1)+tm8(-1))/Il(-1) + fIlsi*pil(-1)/Il(-1))*kfklil $ FRML IfklIb fklib = fklib(-1)*(fklibp/fklibp(-1)*Ibp(-1)/(Ibp(-1)+Ibo(-1)+Ibh(-1)) + fIbo/fIbo(-1)*Ibo(-1)/(Ibp(-1)+Ibo(-1)+Ibh(-1)) + fIbh/fIbh(-1)*Ibh(-1)/(Ibp(-1)+Ibo(-1)+Ibh(-1))) $ FRML IfklIm fklim = fklim(-1)*(fklimp/fklimp(-1)*Imp(-1)/(Imp(-1)+Imo(-1)+IMK(-1)) + fImo/fImo(-1)*Imo(-1)/(Imp(-1)+Imo(-1)+IMK(-1)) + fImk/fImk(-1)*IMK(-1)/(Imp(-1)+Imo(-1)+IMK(-1))) $ FRML IIp Ip = Imp + IMK + Ibp + Ibh + It + Il $ FRML IfklIp fklip = fklip(-1)*(fklimp/fklimp(-1)*Imp(-1)/Ip(-1) + fImk/fImk(-1)*IMK(-1)/Ip(-1) + fklibp/fklibp(-1)*Ibp(-1)/Ip(-1) + fIbh/fIbh(-1)*Ibh(-1)/Ip(-1) + fKlit/fKlit(-1)*It(-1)/Ip(-1) + fKlil/fKlil(-1)*Il(-1)/Ip(-1)) $ FRML IIo Io = Imo + Ibo $ FRML IfklIo fklio = fklio(-1)*(fImo/fImo(-1)*Imo(-1)/Io(-1) + fIbo/fIbo(-1)*Ibo(-1)/Io(-1)) $ FRML Ifklif fKlif = fKlif(-1)*(fklim/fklim(-1)*Im(-1)/If(-1) + fklib/fklib(-1)*Ib(-1)/If(-1) + fKlit/fKlit(-1)*It(-1)/If(-1))*kfklif $ FRML IfkI fKli = fKli(-1)*(fKlif/fKlif(-1)*If(-1)/I(-1) + fKlil/fKlil(-1)*Il(-1)/I(-1))*kfkli $ FRML IfklX fKlx = fKlx(-1)*( fXa/fXa(-1)*Xa(-1)/X(-1) + fXe/fXe(-1)*Xe(-1)/X(-1) + fXng/fXng(-1)*Xng(-1)/X(-1) + fXne/fXne(-1)*Xne(-1)/X(-1) + fXnf/fXnf(-1)*Xnf(-1)/X(-1) + fXnn/fXnn(-1)*Xnn(-1)/X(-1) + fXnb/fXnb(-1)*Xnb(-1)/X(-1) + fXnm/fXnm(-1)*Xnm(-1)/X(-1) + fXnt/fXnt(-1)*Xnt(-1)/X(-1) + fXnk/fXnk(-1)*Xnk(-1)/X(-1) + fXnq/fXnq(-1)*Xnq(-1)/X(-1) + fXb/fXb(-1)*Xb(-1)/X(-1) + fXqh/fXqh(-1)*Xqh(-1)/X(-1) + fXqs/fXqs(-1)*Xqs(-1)/X(-1) + fXqt/fXqt(-1)*Xqt(-1)/X(-1) + fXqf/fXqf(-1)*Xqf(-1)/X(-1) + fXqq/fXqq(-1)*Xqq(-1)/X(-1) + fXh/fXh(-1)*Xh(-1)/X(-1) + fXo/fXo(-1)*Xo(-1)/X(-1))*kfklx $ FRML IfklMv fKlmv = fKlmv(-1)*(fM0/fM0(-1)*M0(-1)/Mv(-1) + fM1/fM1(-1)*M1(-1)/Mv(-1) + fM2/fM2(-1)*M2(-1)/Mv(-1) + fM3k/fM3k(-1)*M3k(-1)/Mv(-1) + fM3r/fM3r(-1)*M3r(-1)/Mv(-1) + fM3q/fM3q(-1)*M3q(-1)/Mv(-1) + fM5/fM5(-1)*M5(-1)/Mv(-1) + fM6m/fM6m(-1)*M6m(-1)/Mv(-1) + fM6q/fM6q(-1)*M6q(-1)/Mv(-1) + fM7b/fM7b(-1)*M7b(-1)/Mv(-1) + fM7y/fM7y(-1)*M7y(-1)/Mv(-1) + fM7q/fM7q(-1)*M7q(-1)/Mv(-1) + fM8/fM8(-1)*M8(-1)/Mv(-1))*kfklmv $ FRML IfklMst fKlmst = fKlmst(-1)*(fMs/fMs(-1)*Ms(-1)/(Ms(-1)+Mt(-1)) + fMt/fMt(-1)*Mt(-1)/(Ms(-1)+Mt(-1)))*kfklmst $ FRML IfklM fKlm = fKlm(-1)*(fKlmv/fKlmv(-1)*Mv(-1)/M(-1) + fKlmst/fKlmst(-1)*Mst(-1)/M(-1))*kfklm $ FRML IfklEv fKlev = fKlev(-1)*(fE0/fE0(-1)*E0(-1)/Ev(-1) + fE1/fE1(-1)*E1(-1)/Ev(-1) + fE2/fE2(-1)*E2(-1)/Ev(-1) + fE3/fE3(-1)*E3(-1)/Ev(-1) + fE5/fE5(-1)*E5(-1)/Ev(-1) + fE6/fE6(-1)*E6(-1)/Ev(-1) + fE7y/fE7y(-1)*E7y(-1)/Ev(-1) + fE7q/fE7q(-1)*E7q(-1)/Ev(-1) + fE8/fE8(-1)*E8(-1)/Ev(-1))*kfklev $ FRML IfklEst fKlest = fKlest(-1)*(fEss/fEss(-1)*Ess(-1)/(Es(-1)+Et(-1)) + fEsq/fEsq(-1)*Esq(-1)/(Es(-1)+Et(-1)) + fEt/fEt(-1)*Et(-1)/(Es(-1)+Et(-1)))*kfklest $ FRML IfklE fKle = fKle(-1)*(fKlev/fKlev(-1)*Ev(-1)/E(-1) + fKlest/fKlest(-1)*Est(-1)/E(-1))*kfkle $ FRML IfklV fKlv = fKlv(-1)*( fVma/fVma(-1)*Vma(-1)/V(-1) + fVme/fVme(-1)*Vme(-1)/V(-1) + fVmng/fVmng(-1)*Vmng(-1)/V(-1) + fVmne/fVmne(-1)*Vmne(-1)/V(-1) + fVmnf/fVmnf(-1)*Vmnf(-1)/V(-1) + fVmnn/fVmnn(-1)*Vmnn(-1)/V(-1) + fVmnb/fVmnb(-1)*Vmnb(-1)/V(-1) + fVmnm/fVmnm(-1)*Vmnm(-1)/V(-1) + fVmnt/fVmnt(-1)*Vmnt(-1)/V(-1) + fVmnk/fVmnk(-1)*Vmnk(-1)/V(-1) + fVmnq/fVmnq(-1)*Vmnq(-1)/V(-1) + fVmb/fVmb(-1)*Vmb(-1)/V(-1) + fVmqh/fVmqh(-1)*Vmqh(-1)/V(-1) + fVmqs/fVmqs(-1)*Vmqs(-1)/V(-1) + fVmqt/fVmqt(-1)*Vmqt(-1)/V(-1) + fVmqf/fVmqf(-1)*Vmqf(-1)/V(-1) + fVmqq/fVmqq(-1)*Vmqq(-1)/V(-1) + fVmh/fVmh(-1)*Vmh(-1)/V(-1) + fVmo/fVmo(-1)*Vmo(-1)/V(-1) + fVea/fVea(-1)*Vea(-1)/V(-1) + fVee/fVee(-1)*Vee(-1)/V(-1) + fVeng/fVeng(-1)*Veng(-1)/V(-1) + fVene/fVene(-1)*Vene(-1)/V(-1) + fVenf/fVenf(-1)*Venf(-1)/V(-1) + fVenn/fVenn(-1)*Venn(-1)/V(-1) + fVenb/fVenb(-1)*Venb(-1)/V(-1) + fVenm/fVenm(-1)*Venm(-1)/V(-1) + fVent/fVent(-1)*Vent(-1)/V(-1) + fVenk/fVenk(-1)*Venk(-1)/V(-1) + fVenq/fVenq(-1)*Venq(-1)/V(-1) + fVeb/fVeb(-1)*Veb(-1)/V(-1) + fVeqh/fVeqh(-1)*Veqh(-1)/V(-1) + fVeqs/fVeqs(-1)*Veqs(-1)/V(-1) + fVeqt/fVeqt(-1)*Veqt(-1)/V(-1) + fVeqf/fVeqf(-1)*Veqf(-1)/V(-1) + fVeqq/fVeqq(-1)*Veqq(-1)/V(-1) + fVeh/fVeh(-1)*Veh(-1)/V(-1) + fVeo/fVeo(-1)*Veo(-1)/V(-1))*kfklv $ FRML Ifklyf fKlyf = fKlyf(-1)*( fYfa/fYfa(-1)*Yfa(-1)/Yf(-1) + fYfe/fYfe(-1)*Yfe(-1)/Yf(-1) + fYfng/fYfng(-1)*Yfng(-1)/Yf(-1) + fYfne/fYfne(-1)*Yfne(-1)/Yf(-1) + fYfnf/fYfnf(-1)*Yfnf(-1)/Yf(-1) + fYfnn/fYfnn(-1)*Yfnn(-1)/Yf(-1) + fYfnb/fYfnb(-1)*Yfnb(-1)/Yf(-1) + fYfnm/fYfnm(-1)*Yfnm(-1)/Yf(-1) + fYfnt/fYfnt(-1)*Yfnt(-1)/Yf(-1) + fYfnk/fYfnk(-1)*Yfnk(-1)/Yf(-1) + fYfnq/fYfnq(-1)*Yfnq(-1)/Yf(-1) + fYfb/fYfb(-1)*Yfb(-1)/Yf(-1) + fYfqh/fYfqh(-1)*Yfqh(-1)/Yf(-1) + fYfqs/fYfqs(-1)*Yfqs(-1)/Yf(-1) + fYfqt/fYfqt(-1)*Yfqt(-1)/Yf(-1) + fYfqf/fYfqf(-1)*Yfqf(-1)/Yf(-1) + fYfqq/fYfqq(-1)*Yfqq(-1)/Yf(-1) + fYfh/fYfh(-1)*Yfh(-1)/Yf(-1) + fYfo/fYfo(-1)*Yfo(-1)/Yf(-1))*kfklyf $ FRML IfklY fKly = fKly(-1)*(fKlcp/fKlcp(-1)*Cp(-1)/Y(-1) + fKlco/fKlco(-1)*Co(-1)/Y(-1) + fKli/fKli(-1)*I(-1)/Y(-1) - fKlm/fKlm(-1)*M(-1)/Y(-1) + fKle/fKle(-1)*E(-1)/Y(-1))*kfkly $ () Slut på kædeindeksmodul () ### FORBRUG.G05 ### () () GENERERING AF J-LED () FRML YJRCp4xh JRcp4xh1 = Log(Cp4xh1-Jcp4xh1) -( 0.383026*Dlog(Ydphk2) +0.111182*Dlog(Wcp3(-1)) -0.560498*Dlog(pcp4xhv1)+0.080145*Dlog(pch1) -0.295230*Log(Cp4xh1(-1)/Cp4xhw(-1)) +Log(Cp4xh1(-1)/pcp4xhv1(-1)) +Log(pcp4xhv1) ) $ () ### ARBMARK.G05 ### FRML YJDUuxa JDuuxa = Uuxa - (-0.37229*Dif(Q1/U1564) + Uuxa(-1)/U1529(-1)) *U1529*(1-D7184) $ FRML YJRQak JRqak = (Qak+D7194(-1)) /(D7194(-1)+(bqak*(Ul/Ul(-1)-1)+1)*Qak(-1))-1 $ FRML YJRQltj JRqltj = (Qltj+D7194(-1)) /(D7194(-1)+(bqltj*(Ul/Ul(-1)-1)+1)*Qltj(-1))-1 $ FRML YJRQltf JRqltf = (Qltf+D4799(-1)) /(D4799(-1)+(bqltf*(Ul/Ul(-1)-1)+1)*Qltf(-1))-1 $ FRML YJRQlts JRqlts = (Qlts+D4799(-1)) /(D4799(-1)+(bqlts*(Ul/Ul(-1)-1)+1)*Qlts(-1))-1 $ FRML YJRQltr JRqltr = (Qltr+D7194(-1)) /(D7194(-1)+(bqltr*(Ul/Ul(-1)-1)+1)*Qltr(-1))-1 $ FRML YJRUakx JRuakx = (Uakx+D7193(-1)) /(D7193(-1)+(buakx*(Ul/Ul(-1)-1)+1)*Uakx(-1))-1 $ FRML YJRUefw JRuefw = (Uefw+D4778)/(Exp( Log(Uefe*(1-D4778)+D4778) +euefyl*Log(((Yduef+D99(-1))*(1-D4799)+D4799) /((Ydua+D99(-1))*(1-D4799)+D4799) *((Yduae+D99(-1))*(1-D4799)+D4799) /((Yduefe+D99(-1))*(1-D4799)+D4799)))) -1 $ FRML YJRUef JRuef = (Uef+D4778)/(Exp(Dlog((Uefe)*(1-D4778)+D4778) +euefys*Dlog(((Yduef+D99(-1))*(1-D4799)+D4799) /((Ydua+D99(-1))*(1-D4799)+D4799) *((Yduae+D99(-1))*(1-D4799)+D4799) /((Yduefe+D99(-1))*(1-D4799)+D4799)) +0.25*Log(((Uefw(-1))*(1-D4778(-1))+D4778(-1)) /((Uef(-1))*(1-D4778(-1))+D4778(-1))) +Log((Uef(-1))*(1-D4778(-1))+D4778(-1)))) -1 $ FRML YZUef Zuef = Uef $ FRML YZUwxa Zuwxa = Uwxa $ FRML YUwxa Ur = Uwxa - ( Uuxa+Uakx+Urev+Uly+Usxa+Usb+Umf+Uef+Uov+Ufox+Ukxa -(Ur1+Ur2)) $ () ### PRISER.G05 ### FRML YJRPXNN JRpxnn = pxnn/(Exp(Log(pxnn(-1))+1.00000*(Log(pwnnvl1)-Log(pwnnvl1(-1)))*pwnnvl1(-1)/pxnn(-1)+ 0.70768*(Log(pwnnvv)-Log(pwnnvv(-1)))*pwnnvv(-1)/pxnn(-1)+0.00000*(Log (pwnnvl1(-1))-Log(pwnnvl1(-2)))*pwnnvl1(-1)/pxnn(-1)+0.29232*(Log( pwnnvv(-1))-Log(pwnnvv(-2)))*pwnnvv(-1)/pxnn(-1)-0.20000*Log(pxnn(-1) /pxnnw1(-1))))-1.0 $ FRML YZPXNN Zpxnn = pxnn $ FRML YZBYWNN1 Zbywnn1 = bywnn1 $ FRML YJRPXNB JRpxnb = pxnb/(Exp(Log(pxnb(-1))+0.45557*(Log(pwnbvl1)-Log(pwnbvl1(-1)))*pwnbvl1(-1)/pxnb(-1)+ 0.92789*(Log(pwnbvv)-Log(pwnbvv(-1)))*pwnbvv(-1)/pxnb(-1)+0.54443*(Log (pwnbvl1(-1))-Log(pwnbvl1(-2)))*pwnbvl1(-1)/pxnb(-1)+0.24308*(Log( pwnbvv(-1))-Log(pwnbvv(-2)))*pwnbvv(-1)/pxnb(-1)-0.20000*Log(pxnb(-1) /pxnbw1(-1))))-1.0 $ FRML YZPXNB Zpxnb = pxnb $ FRML YZBYWNB1 Zbywnb1 = bywnb1 $ FRML YJRPXNM JRpxnm = pxnm/(Exp(Log(pxnm(-1))+0.44094*(Log(pwnmvl1)-Log(pwnmvl1(-1)))*pwnmvl1(-1)/pxnm(-1)+ 0.75098*(Log(pwnmvv)-Log(pwnmvv(-1)))*pwnmvv(-1)/pxnm(-1)+0.55906*(Log (pwnmvl1(-1))-Log(pwnmvl1(-2)))*pwnmvl1(-1)/pxnm(-1)+0.24902*(Log( pwnmvv(-1))-Log(pwnmvv(-2)))*pwnmvv(-1)/pxnm(-1)-0.20000*Log(pxnm(-1) /pxnmw1(-1))))-1.0 $ FRML YZPXNM Zpxnm = pxnm $ FRML YZBYWNM1 Zbywnm1 = bywnm1 $ FRML YJRPXNT JRpxnt = pxnt/(Exp(Log(pxnt(-1))+0.28897*(Log(pwntvl1)-Log(pwntvl1(-1)))*pwntvl1(-1)/pxnt(-1)+ 0.78165*(Log(pwntvv)-Log(pwntvv(-1)))*pwntvv(-1)/pxnt(-1)+0.71103*(Log (pwntvl1(-1))-Log(pwntvl1(-2)))*pwntvl1(-1)/pxnt(-1)+0.21835*(Log( pwntvv(-1))-Log(pwntvv(-2)))*pwntvv(-1)/pxnt(-1)-0.21722*Log(pxnt(-1) /pxntw1(-1))))-1.0 $ FRML YZPXNT Zpxnt = pxnt $ FRML YZBYWNT1 Zbywnt1 = bywnt1 $ FRML YJRPXNK JRpxnk = pxnk/(Exp(Log(pxnk(-1))+0.35095*(Log(pwnkvl1)-Log(pwnkvl1(-1)))*pwnkvl1(-1)/pxnk(-1)+ 0.88254*(Log(pwnkvv)-Log(pwnkvv(-1)))*pwnkvv(-1)/pxnk(-1)+0.64905*(Log (pwnkvl1(-1))-Log(pwnkvl1(-2)))*pwnkvl1(-1)/pxnk(-1)+0.13079*(Log( pwnkvv(-1))-Log(pwnkvv(-2)))*pwnkvv(-1)/pxnk(-1)-0.20000*Log(pxnk(-1) /pxnkw1(-1))))-1.0 $ FRML YZPXNK Zpxnk = pxnk $ FRML YZBYWNK1 Zbywnk1 = bywnk1 $ FRML YJRPXNQ JRpxnq = pxnq/(Exp(Log(pxnq(-1))+0.62317*(Log(pwnqvl1)-Log(pwnqvl1(-1)))*pwnqvl1(-1)/pxnq(-1)+ 0.81566*(Log(pwnqvv)-Log(pwnqvv(-1)))*pwnqvv(-1)/pxnq(-1)+0.37683*(Log (pwnqvl1(-1))-Log(pwnqvl1(-2)))*pwnqvl1(-1)/pxnq(-1)+0.18434*(Log( pwnqvv(-1))-Log(pwnqvv(-2)))*pwnqvv(-1)/pxnq(-1)-0.20000*Log(pxnq(-1) /pxnqw1(-1))))-1.0 $ FRML YZPXNQ Zpxnq = pxnq $ FRML YZBYWNQ1 Zbywnq1 = bywnq1 $ FRML YJRPXB JRpxb = pxb/(Exp(Log(pxb(-1))+0.48961*(Log(pwbvl1)-Log(pwbvl1(-1)))*pwbvl1(-1)/pxb(-1)+0.77284 *(Log(pwbvv)-Log(pwbvv(-1)))*pwbvv(-1)/pxb(-1)+0.51039*(Log(pwbvl1(-1) )-Log(pwbvl1(-2)))*pwbvl1(-1)/pxb(-1)+0.22716*(Log(pwbvv(-1))-Log( pwbvv(-2)))*pwbvv(-1)/pxb(-1)-0.20000*Log(pxb(-1)/pxbw1(-1))))-1.0 $ FRML YZPXB Zpxb = pxb $ FRML YZBYWB1 Zbywb1 = bywb1 $ FRML YJRPXQH JRpxqh = pxqh/(Exp(Log(pxqh(-1))+0.65064*(Log(pwqhvl1)-Log(pwqhvl1(-1)))*pwqhvl1(-1)/pxqh(-1)+ 1.16278*(Log(pwqhvv)-Log(pwqhvv(-1)))*pwqhvv(-1)/pxqh(-1)+0.50491*(Log (pwqhvl1(-1))-Log(pwqhvl1(-2)))*pwqhvl1(-1)/pxqh(-1)+0.00000*(Log( pwqhvv(-1))-Log(pwqhvv(-2)))*pwqhvv(-1)/pxqh(-1)-0.21501*Log(pxqh(-1) /pxqhw1(-1))))-1.0 $ FRML YZPXQH Zpxqh = pxqh $ FRML YZBYWQH1 Zbywqh1 = bywqh1 $ FRML YJRPXQT JRpxqt = pxqt/(Exp(Log(pxqt(-1))+0.83282*(Log(pwqtvl1)-Log(pwqtvl1(-1)))*pwqtvl1(-1)/pxqt(-1)+ 0.85000*(Log(pwqtvv)-Log(pwqtvv(-1)))*pwqtvv(-1)/pxqt(-1)+0.00000*(Log (pwqtvl1(-1))-Log(pwqtvl1(-2)))*pwqtvl1(-1)/pxqt(-1)+0.00000*(Log( pwqtvv(-1))-Log(pwqtvv(-2)))*pwqtvv(-1)/pxqt(-1)-0.20000*Log(pxqt(-1) /pxqtw1(-1))))-1.0 $ FRML YZPXQT Zpxqt = pxqt $ FRML YZBYWQT1 Zbywqt1 = bywqt1 $ FRML YJRPXQQ JRpxqq = pxqq/(Exp(Log(pxqq(-1))+0.98986*(Log(pwqqvl1)-Log(pwqqvl1(-1)))*pwqqvl1(-1)/pxqq(-1)+ 0.72573*(Log(pwqqvv)-Log(pwqqvv(-1)))*pwqqvv(-1)/pxqq(-1)+0.010140*(Log (pwqqvl1(-1))-Log(pwqqvl1(-2)))*pwqqvl1(-1)/pxqq(-1)+0.27427*(Log( pwqqvv(-1))-Log(pwqqvv(-2)))*pwqqvv(-1)/pxqq(-1)-0.20000*Log(pxqq(-1) /pxqqw1(-1))))-1.0 $ FRML YZPXQQ Zpxqq = pxqq $ FRML YZBYWQQ1 Zbywqq1 = bywqq1 $ FRML YJRPXQF JRpxqf = Exp( Dlog(pxqf)+Log(1+JRpxqf(-1)) -(0.31563*(Dlog(pwqfwv1)-Dlog(pwqfwv1(-1))) -0.22304*(Dlog(pxqf(-1))-Dlog(pwqfw1(-1))) +Dlog(pxqf(-1))))-1 $ FRML YZPXQF Zpxqf = pxqf $ FRML YZBYWQF1 Zbywqf1 = bywqf1 $ () ### FINDAN.G05 ### FRML YWNBZX Wnbzx = Wnbz -(krea2*(Wfqf-Wfqfx) - krea3*(Wflp+Wfll+Wflt+Wflb+Wflh +Wfle+Wfbz+Wfqp-Wflpx-Wfllx-Wfltx -Wflbx-Wflhx-Wflex-Zwfbz-Wfqpx -Wzbf-Wbqf-Welf-Wtlf+Wzbfx+Wbqfx +Welfx+Wtlfx)) $ () ### INVEST.G05 ### () Jled I lagerinvesteringer FRML YJfIla JfIla = fIla - ( 0.07049*(Dif(fXa(-1))-Dif(fIla(-1))) +0.66667*(hostkor-0.5*hostkor(-1) -0.5*hostkor(-2)) ) $ FRML YJfIle JfIle = fIle - ( 0.07962*(0.50*(Dif(fXe)-Dif(fIle)) +(1-0.50)*(Dif(fXe(-1))-Dif(fIle(-1)))) ) $ FRML YJfIlng JfIlng = fIlng - ( bngil*(Dif(fXng)-Dif(fIlng)) ) $ FRML YJfIlne JfIlne = fIlne - ( 0.30909*0.01815*(0.00*(Dif(fXne)-Dif(fIlne)) +(1-0.00)*(Dif(fXne(-1))-Dif(fIlne(-1)))) +(1-0.30909)*fIlne(-1) ) $ FRML YJfIlnf JfIlnf = fIlnf - ( 0.01983*(Dif(fXnf)-Dif(fIlnf)) ) $ FRML YJfIlnn JfIlnn = fIlnn - ( 0.64838*0.30265*(Dif(fXnn)-Dif(fIlnn)) +(1-0.64838)*fIlnn(-1) ) $ FRML YJfIlnb JfIlnb = fIlnb - ( 0.19919*(0.75*(Dif(fXnb)-Dif(fIlnb)) +(1-0.75)*(Dif(fXnb(-1))-Dif(fIlnb(-1)))) ) $ FRML YJfIlnm JfIlnm = fIlnm - ( 0.19618*(0.50*(Dif(fXnm)-Dif(fIlnm)) +(1-0.50)*(Dif(fXnm(-1))-Dif(fIlnm(-1)))) ) $ FRML YJfIlnt JfIlnt = fIlnt - ( 0.01049*(0.00*(Dif(fXnt)-Dif(fIlnt)) +(1-0.00)*(Dif(fXnt(-1))-Dif(fIlnt(-1)))) ) $ FRML YJfIlnk JfIlnk = fIlnk - ( 0.11555*(0.75*(Dif(fXnk)-Dif(fIlnk)) +(1-0.75)*(Dif(fXnk(-1))-Dif(fIlnk(-1)))) ) $ FRML YJfIlnq JfIlnq = fIlnq - ( 0.17113*(0.75*(Dif(fXnq)-Dif(fIlnq)) +(1-0.75)*(Dif(fXnq(-1))-Dif(fIlnq(-1)))) ) $ FRML YJfIlqh JfIlqh = fIlqh - ( 0.01790*(Dif(fXqh)-Dif(fIlqh)) ) $ FRML YJfIlqq JfIlqq = fIlqq - ( bqqil*(Dif(fXqq)-Dif(fIlqq)) ) $ FRML YJfIlm0 JfIlm0 = fIlm0 - ( bm0il*(Dif(fM0)-Dif(fIlm0)) ) $ FRML YJfIlm1 JfIlm1 = fIlm1 - ( 0.02550*(0.00*(Dif(fM1)-Dif(fIlm1)) +(1-0.00)*(Dif(fM1(-1))-Dif(fIlm1(-1)))) ) $ FRML YJfIlm2 JfIlm2 = fIlm2 - ( 0.42477*0.28267*(0.00*(Dif(fM2)-Dif(fIlm2)) +(1-0.00)*(Dif(fM2(-1))-Dif(fIlm2(-1)))) +(1-0.42477)*fIlm2(-1) ) $ FRML YJfIlm3k JfIlm3k = fIlm3k - ( 0.41680*(0.00*(Dif(fM3k)-Dif(fIlm3k)) +(1-0.00)*(Dif(fM3k(-1))-Dif(fIlm3k(-1)))) ) $ FRML YJfIlm3r JfIlm3r = fIlm3r - ( 0.06153*(0.50*(Dif(fM3r)-Dif(fIlm3r)) +(1-0.50)*(Dif(fM3r(-1))-Dif(fIlm3r(-1)))) ) $ FRML YJfIlm3q JfIlm3q = fIlm3q - ( 0.53129*0.16938*(0.00*(Dif(fM3q)-Dif(fIlm3q)) +(1-0.00)*(Dif(fM3q(-1))-Dif(fIlm3q(-1)))) +(1-0.53129)*fIlm3q(-1) ) $ FRML YJfIlm5 JfIlm5 = fIlm5 - ( 0.19085*(0.50*(Dif(fM5)-Dif(fIlm5)) +(1-0.50)*(Dif(fM5(-1))-Dif(fIlm5(-1)))) ) $ FRML YJfIlm6m JfIlm6m = fIlm6m - ( 0.17929*(0.75*(Dif(fM6m)-Dif(fIlm6m)) +(1-0.75)*(Dif(fM6m(-1))-Dif(fIlm6m(-1)))) ) $ FRML YJfIlm6q JfIlm6q = fIlm6q - ( 0.18089*(0.75*(Dif(fM6q)-Dif(fIlm6q)) +(1-0.75)*(Dif(fM6q(-1))-Dif(fIlm6q(-1)))) ) $ FRML YJfIlm7b JfIlm7b = fIlm7b - ( 0.25703*(0.50*(Dif(fM7b)-Dif(fIlm7b)) +(1-0.50)*(Dif(fM7b(-1))-Dif(fIlm7b(-1)))) +4706.03*D86 ) $ FRML YJfIlm7y JfIlm7y = fIlm7y - ( bm7yil*(Dif(fM7y)-Dif(fIlm7y)) ) $ FRML YJfIlm7q JfIlm7q = fIlm7q - ( 0.71279*0.16172*(Dif(fM7q)-Dif(fIlm7q)) +(1-0.71279)*fIlm7q(-1) ) $ FRML YJfIlm8 JfIlm8 = fIlm8 - ( 0.10935*(0.75*(Dif(fM8)-Dif(fIlm8)) +(1-0.75)*(Dif(fM8(-1))-Dif(fIlm8(-1)))) ) $ () ### EOH.G05 ### () Jled I eoh FRML YJRfkbe JRfkbe = (fKbe+D6680)/(fIbe+(1-bfivbe)*fKbe(-1)+D6680) - 1 $ FRML YZfKbe Zfkbe = fKbe $ FRML YJRfknbe JRfknbe = (fKnbe+D6680)/(fIbe+(1-bfinvbe)*fKnbe(-1)+D6680) - 1 $ FRML YZfKnbe Zfknbe = fKnbe $ FRML YJRPXNE JRpxne = pxne/(Exp(Log(pxne(-1))+0.93719*(Log(pwneve)-Log(pwneve(-1)))*(pwneve(-1)/pxne(-1)) +0.06281*(Log(pwneve(-1))-Log(pwneve(-2)))*(pwneve(-1)/pxne(-1)) -0.50000*(Log(pxne(-1))-Log(pxnew1(-1)))))-1.0 $ FRML YZPXNE Zpxne = pxne $ FRML YZBYWNE1 Zbywne1 = bywne1 $ () ### skattran.G05 ### FRML YZUsy Zusy = Usy $ FRML YJUsy Jusy = Usy -(1-Dsk2)*((Uw+Ufpx)*kusy2*(1-Dsk1)+Dsk1*(Ua1+Ufpx+Ufox+Uef+Umf)*kusy1) -Dsk2*(Ussy+Uwsy+Ulsy+Uefsy+Ufpsy+Uqsy) $ FRML Ykusy1 kusy1 = (Usy-Jusy)/(Ua1+Ufpx+Ufox+Uef+Umf) $ FRML Ykusy2 kusy2 = (Usy-Jusy)/(Uw+Ufpx) $ FRML Ytssp0e tssp0e = tssp0 $ FRML Ytssp1e tssp1e = tssp1 $ FRML Ytss0e tss0e = tss0 $ FRML Ytss1e tss1e = tss1 $ FRML Ybysp10e bysp10e = bysp10 $ FRML Ybysp20e bysp20e = bysp20 $ FRML Ybysp30e bysp30e = bysp30 $ FRML Ybysp40e bysp40e = bysp40 $ FRML Ybysp50e bysp50e = bysp50 $ FRML Ybysp11e bysp11e = bysp11 $ FRML Ybysp21e bysp21e = bysp21 $ FRML Ybysp31e bysp31e = bysp31 $ FRML Ybysp41e bysp41e = bysp41 $ FRML Ybysp51e bysp51e = bysp51 $ FRML Ybys10e bys10e = bys10 $ FRML Ybys20e bys20e = bys20 $ FRML Ybys30e bys30e = bys30 $ FRML Ybys40e bys40e = bys40 $ FRML Ybys50e bys50e = bys50 $ FRML Ybys11e bys11e = bys11 $ FRML Ybys21e bys21e = bys21 $ FRML Ybys31e bys31e = bys31 $ FRML Ybys41e bys41e = bys41 $ FRML Ybys51e bys51e = bys51 $ FRML YJkbysp1 Jkbysp1 = kbysp1-(((Ysp+D93)*Usye*pcrs1e-(Yspe+D93)*Usy*pcrs1)/((Yspe+D93)*Usy*pcrs1)) $ FRML YJkbysp2 Jkbysp2 = kbysp2-(((Ysp+D93)*Usye*pcrs1e-(Yspe+D93)*Usy*pcrs1)/((Yspe+D93)*Usy*pcrs1)) $ FRML YJkbysp3 Jkbysp3 = kbysp3-(((Ysp+D93)*Usye*pcrs1e-(Yspe+D93)*Usy*pcrs1)/((Yspe+D93)*Usy*pcrs1)) $ FRML YJkbysp4 Jkbysp4 = kbysp4-(((Ysp+D93)*Usye*pcrs1e-(Yspe+D93)*Usy*pcrs1)/((Yspe+D93)*Usy*pcrs1)) $ FRML YJkbysp5 Jkbysp5 = kbysp5-(((Ysp+D93)*Usye*pcrs1e-(Yspe+D93)*Usy*pcrs1)/((Yspe+D93)*Usy*pcrs1)) $ FRML YJkbys1 Jkbys1 = kbys1-((Ys*Usye*pcrs1e-Yse*Usy*pcrs1)/(Yse*Usy*pcrs1)) $ FRML YJkbys2 Jkbys2 = kbys2-((Ys*Usye*pcrs1e-Yse*Usy*pcrs1)/(Yse*Usy*pcrs1)) $ FRML YJkbys3 Jkbys3 = kbys3-((Ys*Usye*pcrs1e-Yse*Usy*pcrs1)/(Yse*Usy*pcrs1)) $ FRML YJkbys4 Jkbys4 = kbys4-((Ys*Usye*pcrs1e-Yse*Usy*pcrs1)/(Yse*Usy*pcrs1)) $ FRML YJkbys5 Jkbys5 = kbys5-((Ys*Usye*pcrs1e-Yse*Usy*pcrs1)/(Yse*Usy*pcrs1)) $ FRML YJkbysp Jkbysp = kbysp-((Ysp+D93)*Usye*pcrs1e-(Yspe+D93)*Usy*pcrs1) /((Yspe+D93)*Usy*pcrs1) $ FRML YJkbys Jkbys = kbys -((Ys*Usye*pcrs1e-Yse*Usy*pcrs1) /(Yse*Usy*pcrs1)) $ () ### Tp.G05 ### () Stykafgifter, Målvariabler () Forbrug FRML Ytpf Ztpf = tpf $ FRML Ytpn Ztpn = tpn $ FRML Ytpi Ztpi = tpi $ FRML Ytpb Ztpb = tpb $ FRML Ytph Ztph = tph $ FRML Ytpe Ztpe = tpe $ FRML Ytpg Ztpg = tpg $ FRML Ytpv Ztpv = tpv $ FRML Ytps Ztps = tps $ FRML Ytpkr Ztpkr = tpkr $ () Investeringer FRML Ytpimo1 Ztpimo1 = tpimo1 $ FRML Ytpimp1 Ztpimp1 = tpimp1 $ FRML Ytpibh Ztpibh = tpibh $ FRML Ytpibp1 Ztpibp1 = tpibp1 $ FRML Ytpibo1 Ztpibo1 = tpibo1 $ FRML Ytpil Ztpil = tpil $ () Eksport FRML Ytpe0 Ztpe0 = tpe0 $ () Materialer FRML Ytvma Ztvma = tvma $ FRML Ytvme Ztvme = tvme $ FRML Ytvmng Ztvmng = tvmng $ FRML Ytvmne Ztvmne = tvmne $ FRML Ytvmnf Ztvmnf = tvmnf $ FRML Ytvmnn Ztvmnn = tvmnn $ FRML Ytvmnb Ztvmnb = tvmnb $ FRML Ytvmnm Ztvmnm = tvmnm $ FRML Ytvmnt Ztvmnt = tvmnt $ FRML Ytvmnk Ztvmnk = tvmnk $ FRML Ytvmnq Ztvmnq = tvmnq $ FRML Ytvmb Ztvmb = tvmb $ FRML Ytvmqh Ztvmqh = tvmqh $ FRML Ytvmqs Ztvmqs = tvmqs $ FRML Ytvmqt Ztvmqt = tvmqt $ FRML Ytvmqf Ztvmqf = tvmqf $ FRML Ytvmqq Ztvmqq = tvmqq $ FRML Ytvmh Ztvmh = tvmh $ FRML Ytvmo Ztvmo = tvmo $ () Energi FRML Ytvea Ztvea = tvea $ FRML Ytvee Ztvee = tvee $ FRML Ytveng Ztveng = tveng $ FRML Ytvene Ztvene = tvene $ FRML Ytvenf Ztvenf = tvenf $ FRML Ytvenn Ztvenn = tvenn $ FRML Ytvenb Ztvenb = tvenb $ FRML Ytvenm Ztvenm = tvenm $ FRML Ytvent Ztvent = tvent $ FRML Ytvenk Ztvenk = tvenk $ FRML Ytvenq Ztvenq = tvenq $ FRML Ytveb Ztveb = tveb $ FRML Ytveqh Ztveqh = tveqh $ FRML Ytveqs Ztveqs = tveqs $ FRML Ytveqt Ztveqt = tveqt $ FRML Ytveqf Ztveqf = tveqf $ FRML Ytveqq Ztveqq = tveqq $ FRML Ytveh Ztveh = tveh $ FRML Ytveo Ztveo = tveo $ () Stykafgifter, restled () Forbrug FRML YJDtpf JDtpf = tpf - (pcpn(-1)/pcpn(-2))*tpf(-1) $ FRML YJDtpn JDtpn = tpn - (pcpn(-1)/pcpn(-2))*tpn(-1) $ FRML YJDtpi JDtpi = tpi - (pcpn(-1)/pcpn(-2))*tpi(-1) $ FRML YJDtpb JDtpb = tpb - (pcpn(-1)/pcpn(-2))*tpb(-1) $ FRML YJDtph JDtph = tph - (pcpn(-1)/pcpn(-2))*tph(-1) $ FRML YJDtpe JDtpe = tpe - (pcpn(-1)/pcpn(-2))*tpe(-1) $ FRML YJDtpg JDtpg = tpg - (pcpn(-1)/pcpn(-2))*tpg(-1) $ FRML YJDtpv JDtpv = tpv - (pcpn(-1)/pcpn(-2))*tpv(-1) $ FRML YJDtps JDtps = tps - (pcpn(-1)/pcpn(-2))*tps(-1) $ FRML YJDtpkr JDtpkr = tpkr - (pcpn(-1)/pcpn(-2))*tpkr(-1) $ () Investeringer FRML YJDtpimo1 JDtpimo1 = tpimo1 - (pcpn(-1)/pcpn(-2))*tpimo1(-1) $ FRML YJDtpimp1 JDtpimp1 = tpimp1 - (pcpn(-1)/pcpn(-2))*tpimp1(-1) $ FRML YJDtpibh JDtpibh = tpibh - (pcpn(-1)/pcpn(-2))*tpibh(-1) $ FRML YJDtpibp1 JDtpibp1 = tpibp1 - (pcpn(-1)/pcpn(-2))*tpibp1(-1) $ FRML YJDtpibo1 JDtpibo1 = tpibo1 - (pcpn(-1)/pcpn(-2))*tpibo1(-1) $ FRML YJDtpil JDtpil = tpil - (pcpn(-1)/pcpn(-2))*tpil(-1) $ () Eksport FRML YJDtpe0 JDtpe0 = tpe0 - (pcpn(-1)/pcpn(-2))*tpe0(-1) $ () Materialer FRML YJDtvma JDtvma = tvma - (pcpn(-1)/pcpn(-2))*tvma(-1) $ FRML YJDtvme JDtvme = tvme - (pcpn(-1)/pcpn(-2))*tvme(-1) $ FRML YJDtvmng JDtvmng = tvmng - (pcpn(-1)/pcpn(-2))*tvmng(-1) $ FRML YJDtvmne JDtvmne = tvmne - (pcpn(-1)/pcpn(-2))*tvmne(-1) $ FRML YJDtvmnf JDtvmnf = tvmnf - (pcpn(-1)/pcpn(-2))*tvmnf(-1) $ FRML YJDtvmnn JDtvmnn = tvmnn - (pcpn(-1)/pcpn(-2))*tvmnn(-1) $ FRML YJDtvmnb JDtvmnb = tvmnb - (pcpn(-1)/pcpn(-2))*tvmnb(-1) $ FRML YJDtvmnm JDtvmnm = tvmnm - (pcpn(-1)/pcpn(-2))*tvmnm(-1) $ FRML YJDtvmnt JDtvmnt = tvmnt - (pcpn(-1)/pcpn(-2))*tvmnt(-1) $ FRML YJDtvmnk JDtvmnk = tvmnk - (pcpn(-1)/pcpn(-2))*tvmnk(-1) $ FRML YJDtvmnq JDtvmnq = tvmnq - (pcpn(-1)/pcpn(-2))*tvmnq(-1) $ FRML YJDtvmb JDtvmb = tvmb - (pcpn(-1)/pcpn(-2))*tvmb(-1) $ FRML YJDtvmqh JDtvmqh = tvmqh - (pcpn(-1)/pcpn(-2))*tvmqh(-1) $ FRML YJDtvmqs JDtvmqs = tvmqs - (pcpn(-1)/pcpn(-2))*tvmqs(-1) $ FRML YJDtvmqt JDtvmqt = tvmqt - (pcpn(-1)/pcpn(-2))*tvmqt(-1) $ FRML YJDtvmqf JDtvmqf = tvmqf - (pcpn(-1)/pcpn(-2))*tvmqf(-1) $ FRML YJDtvmqq JDtvmqq = tvmqq - (pcpn(-1)/pcpn(-2))*tvmqq(-1) $ FRML YJDtvmh JDtvmh = tvmh - (pcpn(-1)/pcpn(-2))*tvmh(-1) $ FRML YJDtvmo JDtvmo = tvmo - (pcpn(-1)/pcpn(-2))*tvmo(-1) $ () Energi FRML YJDtvea JDtvea = tvea - (pcpn(-1)/pcpn(-2))*tvea(-1) $ FRML YJDtvee JDtvee = tvee - (pcpn(-1)/pcpn(-2))*tvee(-1) $ FRML YJDtveng JDtveng = tveng - (pcpn(-1)/pcpn(-2))*tveng(-1) $ FRML YJDtvene JDtvene = tvene - (pcpn(-1)/pcpn(-2))*tvene(-1) $ FRML YJDtvenf JDtvenf = tvenf - (pcpn(-1)/pcpn(-2))*tvenf(-1) $ FRML YJDtvenn JDtvenn = tvenn - (pcpn(-1)/pcpn(-2))*tvenn(-1) $ FRML YJDtvenb JDtvenb = tvenb - (pcpn(-1)/pcpn(-2))*tvenb(-1) $ FRML YJDtvenm JDtvenm = tvenm - (pcpn(-1)/pcpn(-2))*tvenm(-1) $ FRML YJDtvent JDtvent = tvent - (pcpn(-1)/pcpn(-2))*tvent(-1) $ FRML YJDtvenk JDtvenk = tvenk - (pcpn(-1)/pcpn(-2))*tvenk(-1) $ FRML YJDtvenq JDtvenq = tvenq - (pcpn(-1)/pcpn(-2))*tvenq(-1) $ FRML YJDtveb JDtveb = tveb - (pcpn(-1)/pcpn(-2))*tveb(-1) $ FRML YJDtveqh JDtveqh = tveqh - (pcpn(-1)/pcpn(-2))*tveqh(-1) $ FRML YJDtveqs JDtveqs = tveqs - (pcpn(-1)/pcpn(-2))*tveqs(-1) $ FRML YJDtveqt JDtveqt = tveqt - (pcpn(-1)/pcpn(-2))*tveqt(-1) $ FRML YJDtveqf JDtveqf = tveqf - (pcpn(-1)/pcpn(-2))*tveqf(-1) $ FRML YJDtveqq JDtveqq = tveqq - (pcpn(-1)/pcpn(-2))*tveqq(-1) $ FRML YJDtveh JDtveh = tveh - (pcpn(-1)/pcpn(-2))*tveh(-1) $ FRML YJDtveo JDtveo = tveo - (pcpn(-1)/pcpn(-2))*tveo(-1) $ () ### I-O.G05 ### () () EKSOGENISERING Mv. () FRML YJDam3rng JDam3rng = am3rng/kveng - am3rng(-1) $ FRML YJDam3kne JDam3kne = am3kne/kvene - am3kne(-1) $ FRML YZfM3rng Zfm3rng = am3rng*fXng $ FRML YZfM3kne Zfm3kne = am3kne*fXne $ () ### PENSION.G05 ### FRML YzOlp Zolp = Olp $ FRML YJROlp JRolp = Olp/( Wsep_z_iq(-1)*(pws_lse/pws_lse(-1)-1) + Wsdkp_z_iq(-1)*(pws_kax/pws_kax(-1)-1) + Wbp_z_iq(-1)*(pwb/pwb(-1)-1) ) - 1 $ FRML YJDWsep_z_iq JDwsep_z_iq = Dif(Wsep_z_iq) - (Wsep_z_iq(-1)*(1+JRolp)*(pws_lse/pws_lse(-1)-1) + Tflpn*Wsep_z_iq(-1)/Wp_z_iq(-1)) $ FRML YJDWsdkp_z_iq JDWsdkp_z_iq = Dif(Wsdkp_z_iq) - (Wsdkp_z_iq(-1)*(1+JRolp)*(pws_kax/pws_kax(-1)-1) + Tflpn*Wsdkp_z_iq(-1)/Wp_z_iq(-1)) $ FRML YzOatp Zoatp = Oatp $ FRML YJROatp JRoatp = Oatp/( Wseatp(-1)*(pws_lse/pws_lse(-1)-1) + Wsdkatp(-1)*(pws_kax/pws_kax(-1)-1) + Wbatp(-1)*(pwb/pwb(-1)-1) ) - 1 $ FRML YJDWseatp JDwseatp = Dif(Wseatp) - (Wseatp(-1)*(1+JRoatp)*(pws_lse/pws_lse(-1)-1) + (Tpatpi-Tpatpu+Tidatp)*Wseatp(-1)/Watp(-1)) $ FRML YJDWsdkatp JDwsdkatp = Dif(Wsdkatp) - (Wsdkatp(-1)*(1+JRoatp)*(pws_kax/pws_kax(-1)-1) + (Tpatpi-Tpatpu+Tidatp)*Wsdkatp(-1)/Watp(-1)) $ FRML YJDWbatp JDwbatp = Dif(Wbatp) - (Wbatp(-1)*(1+JRoatp)*(pwb/pwb(-1)-1) + (Tpatpi-Tpatpu+Tidatp)*Wbatp(-1)/Watp(-1)) $