() ADAM Apr 2008 - februar 2009 () () ### FORBRUG.F08 ### () () () PRIVAT FORBRUG () () FRML _DJ_ Tiphp = Tifp_cf_h + Tipphpb + Tisp + Tidmp + Tild $ 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 _GJRD fCh = fCh(-1)*(0.5*fKbh(-1)+0.5*fKbh)/(0.5*fKbh(-2)+0.5*fKbh(-1)) $ FRML _GJRD fChl = fChl(-1)*(0.5*fKbhl(-1)+0.5*fKbhl)/(0.5*fKbhl(-2)+0.5*fKbhl(-1)) $ FRML _I fVh = fVeh + fVmh $ FRML _I pvh = Vh/fVh $ FRML _D fChe = (((0.5*fKbhe(-1)+0.5*fKbhe)/(0.5*fKbh(-1)+0.5*fKbh)) *(fVh*pvh(-1)+fCh*pch(-1)-ahch*fCh*pxh(-1)) +Ycbhe(-1)*(0.5*fKbhe(-1)+0.5*fKbhe)/(0.5*fkbhe(-2)+0.5*fkbhe(-1))) /pche(-1) $ FRML _DJRD Ycbhe = (phk/pibh)*(Invbhe+(Knbhe(-1)+0.5*Inbhe)*((1-tsuih)*iwbz-0.50*rpibhe)) + (tsuih*Yrphs+Ssyej+Siqejh*Knbhe(-2)/Knbh(-2)) $ FRML _D uibhe = Ycbhe/(0.5*fKbhe(-1)+0.5*fKbhe) $ FRML _D Che = ((0.5*fKbhe(-1)+0.5*fKbhe)/(0.5*fKbh(-1)+0.5*fKbh)) *(Vh+(pch-ahch*pxh)*fCh) + Ycbhe $ FRML _D pche = Che/fChe $ FRML _GJ_D pchl = pchl(-1)*pch/pch(-1) $ FRML _I Chu = fChl*pchl+fChe*pche $ FRML _D pchu = pchu(-1)*Chu/(pchl(-1)*fChl+pche(-1)*fChe) $ FRML _I fChu = Chu/pchu $ FRML _I pcpuxh = pcpuxh(-1)*Cpuxh /( pcbu(-1)*fCbu+pce(-1)*fCe+pcf(-1)*fCf+pcg(-1)*fCg +pci(-1)*fCi+pck(-1)*fCk+pcn(-1)*fCn+pcs(-1)*fCs +pcv(-1)*fCv+pct(-1)*fCt-pet(-1)*fEt ) $ FRML _D Cpu = Cpuxh+Chu $ FRML _D pcpu = pcpu(-1)*Cpu /(fCp*pcp(-1)-fCb*pcb(-1)+fCbu*pcbu(-1)-fCh*pch(-1)+fChu*pchu(-1)) $ FRML _DJRDFZ Log(Cpuxhw) = 0.872167*Log(Ydpl1/pcpu) + (1-0.872167)*Log(Wcp(-1)/pcpu) -0.300000*Log(pcpuxh/pcpu) -0.292620 + Log(pcpuxh) $ FRML _S___FZ Cpuxh = (1-Dfcp) *( Exp ( 0.365845*Dlog(Ydphk2) +0.097410*Dlog(Wcp(-1)) -0.531462*Dlog(pcpuxh)+0.077129*Dlog(pchu) -0.347112*Log(Cpuxh(-1)/Cpuxhw(-1)) +Log(Cpuxh(-1)/pcpuxh(-1))+Log(pcpuxh) +JRcpuxh ) +Jcpuxh) + Dfcp*(Zfcp*pcp-fCb*pcb+fCbu*pcbu-fCh*pch) $ FRML _I pcgbk1 = pcgbk1(-1)*(fcg*pcg+fcbu*pcbu+fck*pck)/(fcg*pcg(-1)+fcbu*pcbu(-1)+fck*pck(-1))$ FRML _D FCfm = 4.29538 + 0.53173*(fCf(-1)-.25*Et(-1)/pcf(-1))/U(-1)$ FRML _D fCnm = 0.50202 + 0.87205*(fCn(-1)-.14*Et(-1)/pcn(-1))/U(-1)$ FRML _D fCim = 1.91020 + 0.61714*(fCi(-1)-.05*Et(-1)/pci(-1))/U(-1)$ FRML _D fCem = 0.45553 + 0.74439*fCe(-1)/U(-1)+0.0025527*fros$ FRML _D fCgbk1m = 1.27052 + 0.76342*(fCgbk1(-1)-.13*Et(-1)/pcgbk1(-1))/U(-1)$ FRML _D fCvm = -0.34689 + 0.94651*(fCv(-1)-.05*Et(-1)/pcv(-1))/U(-1) $ FRML _D fCsm = 1.50159 + 0.83117*(fCs(-1)-.38*Et(-1)/pcs(-1))/U(-1) -0.44662 *(1-D4781) $ FRML _D fCtm = 0.065455 + 0.68346*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.076643 /( 1-Dfcn*0.030000-Dfci*0.22154-Dfce*0.072550-Dfcgbk1*0.14761 -Dfcv*0.098149-Dfcs*0.24976-Dfct*0.103748) ) *(Cpuxh/U-Czm)/pcf ) *U + 0.25*Et/pcf $ FRML _SJ_D fCn = ( fCnm +( 0.030000 /( 1-Dfcf*0.076643-Dfci*0.22154-Dfce*0.072550-Dfcgbk1*0.14761 -Dfcv*0.098149-Dfcs*0.24976-Dfct*0.103748)) *(Cpuxh/U-Czm)/pcn ) *U + 0.14*Et/pcn $ FRML _SJ_D fCi = ( fCim +( 0.22154 /( 1-Dfcf*0.076643-Dfcn*0.030000-Dfce*0.072550-Dfcgbk1*0.14761 -Dfcv*0.098149-Dfcs*0.24976-Dfct*0.103748) ) *(Cpuxh/U-Czm)/pci ) *U + 0.05*Et/pci $ FRML _SJ_D fCe = ( fCem +( 0.072550 /( 1-Dfcf*0.076643-Dfcn*0.030000-Dfci*0.22154-Dfcgbk1*0.14761 -Dfcv*0.098149-Dfcs*0.24976-Dfct*0.103748) ) *(Cpuxh/U-Czm)/pce ) *U $ FRML _SJ_D fCgbk1 = ( fCgbk1m +(0.14761 /( 1-Dfcf*0.076643-Dfcn*0.030000-Dfci*0.22154-Dfce*0.072550 -Dfcv*0.098149-Dfcs*0.24976-Dfct*0.103748) ) *(Cpuxh/U-Czm)/pcgbk1 ) *U + 0.13*Et/pcgbk1 $ FRML _SJ_D fCv = ( fCvm +(0.098149 /( 1-Dfcf*0.076643-Dfcn*0.030000-Dfci*0.22154-Dfce*0.072550 -Dfcgbk1*0.14761-Dfcs*0.24976-Dfct*0.103748) ) *(Cpuxh/U-Czm)/pcv ) *U + 0.05*Et/pcv $ FRML _SJ_D fCs = ( fCsm +(0.24976 /( 1-Dfcf*0.076643-Dfcn*0.030000-Dfci*0.22154-Dfce*0.072550 -Dfcgbk1*0.14761-Dfcv*0.098149-Dfct*0.103748) ) *(Cpuxh/U-Czm)/pcs ) *U + 0.38*Et/pcs $ FRML _SJ_D fCt = ( fCtm +(0.103748 /( 1-Dfcf*0.076643-Dfcn*0.030000-Dfci*0.22154-Dfce*0.072550 -Dfcgbk1*0.14761-Dfcv*0.098149-Dfcs*0.24976 ) ) *(Cpuxh/U-Czm)/pct ) *U $ FRML _DJ_ Wycb = (Ydpl1**0.87)*(Wcp(-1)**0.13) $ FRML _DJRD rpcbe = .4*(pm7b/pm7b(-1)-1)+(1-.4)*rpcbe(-1) $ FRML _I fCbu = Cbu/pcbu $ FRML _DJRD Cbu = Invcb+(Kncb(-1)+0.5*Incb)*((iwlo*(1-tsuih))-0.5*rpcbe)+Sdv $ FRML _D ucb1 = Cbu/(0.5*fKcb(-1)+0.5*fKcb) $ FRML _DJRD Log(fKcbw) = (-3.31864)+1.08648*Log(Wycb/pcpu) + .423715/(1+(Log(Wycb/pcpu)/12.87)**(-110)) + (-.498319)*Log(ucb1/pcpu)+(-.014903)*D94 $ FRML _SJRD Dlog(fKcb) = .188352*Dlog(Wycb/pcpu) + (-0.05)*Dlog(ucb1/pcpu) + (-.014903)*(D94-D94(-1)) + (-.199952)*(Log(fKcb(-1))-Log(fKcbw(-1))) + 0.4*Dlog(fKcb(-1)) $ FRML _D pcbu = ucb1/0.10990 $ FRML _SJRD Dlog(nkcb) = 0.83196*Dlog(fKcb)-0.00021*(tid-1957) $ FRML _I fCb = kfCb*( Dif(fKcb) + bivcb*fKcb(-1) ) $ FRML _GJ_D Okncb = (pcb/pcb(-1)-1)*(Kncb(-1)+0.5*Incb) $ FRML _D Cb = pcb*fCb $ FRML _GJRD Invcb = (pcb/(0.5*pcb(-1)+0.5*pcb))*binvcb*Kncb(-1) $ FRML _D Incb = Cb-Invcb $ FRML _I Kncb = Kncb(-1) + Incb + Okncb $ FRML _D Cgk = fCgbk1*pcgbk1 - pcbu*fCbu $ 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(nKcb) + 0.330319*(-Log(fCg(-1)) + Log(fCgw(-1))) $ FRML _I fCk = (Cgk-fCg*pcg)/pck $ FRML _I fCp = (fCh*pch(-1)+fCf*pcf(-1)+fCn*pcn(-1)+fCi*pci(-1)+fCe*pce(-1)+fCg*pcg(-1) +fCb*pcb(-1)+fCk*pck(-1)+fCv*pcv(-1)+fCs*pcs(-1)+fCt*pct(-1)-fEt*pet(-1))/pcp(-1) $ 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 _I Cpdk = fCf*pcf+fCn*pcn+fCi*pci+fCe*pce+fCg*pcg+fCb*pcb+fCv*pcv+fCh*pch+fCk*pck+fCs*pcs $ FRML _I fCpdk = (fCf*pcf(-1)+fCn*pcn(-1)+fCi*pci(-1)+fCe*pce(-1)+fCg*pcg(-1)+fCb*pcb(-1) +fCv*pcv(-1)+fCh*pch(-1)+fCk*pck(-1)+fCs*pcs(-1))/pcpdk(-1) $ FRML _I pcpdk = Cpdk/fCpdk $ FRML _D Knmp = Knma + Knme + Knmb + Knmh + Knmng + Knmne + Knmnf + Knmnn + Knmnb + Knmnm + Knmnt + Knmnk + Knmnq + Knmqh+ Knmqs + Knmqt + Knmqf + Knmqq $ FRML _D Knbp = Knba + Knbe + Knbb + Knbng + Knbne + Knbnf + Knbnn + Knbnb + Knbnm + Knbnt + Knbnk + Knbnq + Knbqh + Knbqs + Knbqt + Knbqf + Knbqq $ () Wp, samlet pensionsformue på særlige skattemæssige vilkår, omdefineres () Ny variabel kwps, "Korrektionsfaktor for pensionsafkastskat" () Wcp, Ny variabel erstatter Wcp3 FRML _D Wp = Wphpk+Wphpl+Wpspl+Wpspk+Watp+Wdmp+Wsp+Wld $ FRML _D kwps = (1+iwbz*(1-0.8*tsdr*bsdr))**12/ (1+iwbz*(1-(tss0+tssp0+tss1+tssp1)))**12 $ FRML _DJ__F Wcp = Knbhl+phk*Knbhe/pibh+Kncb+Wn_h+Wn_cr+Wn_cf+Knmp+Knbp - Wp + ((Wphpk+wpspk)*(1-tsdp)+(Wp-Wphpk-wpspk)*(1-tss0-tssp0-tss1-tssp1))*kwps $ () ### BOLIG.F08 ### () () () BOLIGINVESTERINGER () () FRML _KJ_ 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 fKbhw = U*Exp( 1.0000*Log(Cpuxh/(U*pcpuxh)) +.214899/(1+(Cpu/(U*pcpu)/Exp(4.3))**(-25)) -0.30000*Log(pche/pcpuxh) -0.025500*bafd + 1.56692 ) $ FRML _SJRD Dlog(phk) = 1.11319*Dlog((Cpuxh/pcpuxh)/fkbh) -.439594*Dlog(pche/phk)+Dlog(pcpuxh) -1.04680*Log(fKbh(-1)/fKbhw(-1)) $ FRML _KJ_D phgk = phk*kphgk $ FRML _SJRD Dlog(fKbh) = 0.3*.025549*Dlog(phk/(.8*pibh+.2*phgk)) + 0.025549*Log(phk(-1)/(.8*pibh(-1)+.2*phgk(-1))) + 2.91208*nbs/fKbh(-1) + 0.035436*Log(fKbhw(-1)/fKbh(-1)) + 0.010998 - 0.6*( 0.3*0.025549*Dlog(phk(-1)/ (.8*pibh(-1)+.2*phgk(-1))) +0.025549*Log(phk(-2)/(.8*pibh(-2)+.2*phgk(-2))) +2.91208*nbs(-1)/fKbh(-2) +0.035436*Log(fKbhw(-2)/fKbh(-2)) +0.010998 - Dlog(fKbh(-1)) ) $ FRML _I fIbh = kfIbh*( Dif(fKbh) + bivbh*fKbh(-1) ) $ FRML _GJ_D Oknbh = (pibh/pibh(-1)-1)*( Knbh(-1) + 0.5*Inbh ) $ FRML _D Ibh = pibh*fIbh $ FRML _GJRD Invbh = (pibh/(0.5*pibh(-1)+0.5*pibh))*binvbh*Knbh(-1) $ FRML _D Inbh = Ibh-Invbh $ FRML _I Knbh = Knbh(-1) + Inbh + Oknbh $ FRML _GJRD fIbhl = 1.6*nbs+Jfibhl $ FRML _I Ibhe = Ibh - pibh*fibhl $ FRML _I Dif(fKbhl) = fIbhl/kfIbh - bivbh*fKbhl(-1) $ FRML _I fKbhe = fKbh - fKbhl $ FRML _GJ_D Oknbhe = (pibh/pibh(-1)-1)*( Knbhe(-1) + 0.5*Inbhe ) $ FRML _GJRD Invbhe = (pibh/(0.5*pibh(-1)+0.5*pibh))*binvbh*Knbhe(-1) $ FRML _D Inbhe = Ibhe-Invbhe $ FRML _I Knbhe = Knbhe(-1) + Inbhe + Oknbhe $ FRML _I Knbhl = Knbh - Knbhe $ () ### INVEST.F08 ### () () () FASTE INVESTERINGER I ØVRIGT () () FRML _DJ_D tsdsu1 = bsds*tsds1 +(1-bsds)*ktsds*tsds1 $ FRML _DJ_D 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 *pima(-1) +fIme *pime(-1) +fImb *pimb(-1) +fImh *pimh(-1) +fImng*pimng(-1) +fImne*pimne(-1)+fImnf*pimnf(-1)+fImnn*pimnn(-1)+fImnb*pimnb(-1)+fImnm*pimnm(-1) +fImnt*pimnt(-1)+fImnk*pimnk(-1)+fImnq*pimnq(-1)+fImqh*pimqh(-1)+fImqs*pimqs(-1) +fImqt*pimqt(-1)+fImqf*pimqf(-1)+fImqq*pimqq(-1))/pimp(-1) $ FRML _I Invmp = Invma+Invme+Invmb+Invmh +Invmng+Invmne+Invmnf+Invmnn+Invmnb+Invmnm+Invmnt+Invmnk+Invmnq +Invmqh+Invmqs+Invmqt+Invmqf+Invmqq $ FRML _I fIbp = (fIba *piba(-1) +fIbe *pibe(-1) +fIbb *pibb(-1) +fIbng*pibng(-1)+fIbne*pibne(-1) +fIbnf*pibnf(-1)+fIbnn*pibnn(-1)+fIbnb*pibnb(-1)+fIbnm*pibnm(-1)+fIbnt*pibnt(-1) +fIbnk*pibnk(-1)+fIbnq*pibnq(-1)+fIbqh*pibqh(-1)+fIbqs*pibqs(-1)+fIbqt*pibqt(-1) +fIbqf*pibqf(-1)+fIbqq*pibqq(-1))/pibp(-1) $ FRML _I Invbp = Invba+Invbe+Invbb +Invbng+Invbne+Invbnf+Invbnn+Invbnb+Invbnm+Invbnt+Invbnk+Invbnq +Invbqh+Invbqs+Invbqt+Invbqf+Invbqq $ FRML _K fIbo11 = fIbo*kfibo11 $ FRML _I Ibo11 = fIbo11*pibo11 $ FRML _K fImo11 = fImo*kfimo11 $ FRML _I Imo11 = fImo11*pimo11 $ FRML _G Io11 = Imo11 + Ibo11 $ FRML _K fIo1 = (fImo11*pimo11(-1)+fIbo11*pibo11(-1)-Tkoubi*(pibo11(-1)/pibo11)*kfio1)/pio1(-1) $ FRML _I Io1 = Io11 - Tkoubi $ FRML _I pio1 = Io1/fIo1 $ FRML _K fIbo1 = kfibo1*fIbo11 $ FRML _K pibo1 = kpibo2*pibo11 $ FRML _K Ivo1 = (Invmo + Invbo)*kivo1 $ FRML _K Iph = kiph *(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 _K fImk = fImp*kfimk $ FRML _K pimk = pimp*kpimk $ FRML _I Im = pimp11*fImp11 + pimo11*fImo11 $ FRML _I fIm = (fImp*pimp(-1)+fImo*pimo(-1)+fImk*pimk(-1))/pim(-1) $ FRML _I pim = (pimp11*fImp11 + pimo11*fImo11)/fIm $ FRML _I Ib = pibp11*fIbp11 + pibo11*fIbo11 + pibh*fIbh $ FRML _I fIb = (fIbp*pibp(-1)+fIbo*pibo(-1)+fIbh*pibh(-1))/pib(-1) $ FRML _I pib = (pibp11*fIbp11 + pibh*fIbh + pibo11*fIbo11)/fIb $ FRML _I fImp11 = (fIm*pim(-1)-fImo11*pimo11(-1))/pimp11(-1) $ FRML _I fIbp11 = (fIb*pib(-1)-fIbo11*pibo11(-1)-fIbh*pibh(-1))/pibp11(-1) $ FRML _I I = fImp11*pimp11 + fImo11*pimo11 + fIbp11*pibp11 + fIbo11*pibo11 + fIbh*pibh + fIt*pit + fIl*pil $ FRML _K Iv = (Invbo+Invmo+Invbh+Invbp+Invmp)*kiv $ () ### LAGER.F08 ### () INDSÆT SELV PARAMETERESTIMATER, EVT. EKSOGENE LAGERKVOTER RETTES _G () () () Lagerinvesteringer () () FRML _S fIla = (1-dfil) *( 0.20394*(0.75*(Dif(fXa)-Dif(fIla)) +(1-0.75)*(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.05217*(0.75*(Dif(fXe)-Dif(fIle)) +(1-0.75)*(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.03845*(0.00*(Dif(fXne)-Dif(fIlne)) +(1-0.00)*(Dif(fXne(-1))-Dif(fIlne(-1)))) +Jfilne ) + dfil*zfilne $ FRML _G fIlnf = (1-dfil) *( bnfil*(Dif(fXnf)-Dif(fIlnf)) +Jfilnf ) + dfil*zfilnf $ FRML _S fIlnn = (1-dfil) *( 0.37875*(0.75*(Dif(fXnn)-Dif(fIlnn)) +(1-0.75)*(Dif(fXnn(-1))-Dif(fIlnn(-1)))) +Jfilnn ) + dfil*zfilnn $ FRML _S fIlnb = (1-dfil) *( 0.19120*(0.75*(Dif(fXnb)-Dif(fIlnb)) +(1-0.75)*(Dif(fXnb(-1))-Dif(fIlnb(-1)))) +Jfilnb ) + dfil*zfilnb $ FRML _S fIlnm = (1-dfil) *( 0.18587*(0.00*(Dif(fXnm)-Dif(fIlnm)) +(1-0.00)*(Dif(fXnm(-1))-Dif(fIlnm(-1)))) +Jfilnm ) + dfil*zfilnm $ FRML _G fIlnt = (1-dfil) *( bntil*(Dif(fXnt)-Dif(fIlnt)) +Jfilnt ) + dfil*zfilnt $ FRML _S fIlnk = (1-dfil) *( 0.14686*(0.25*(Dif(fXnk)-Dif(fIlnk)) +(1-0.25)*(Dif(fXnk(-1))-Dif(fIlnk(-1)))) +Jfilnk ) + dfil*zfilnk $ FRML _S fIlnq = (1-dfil) *( 0.14348*(0.50*(Dif(fXnq)-Dif(fIlnq)) +(1-0.50)*(Dif(fXnq(-1))-Dif(fIlnq(-1)))) +Jfilnq ) + dfil*zfilnq $ FRML _S fIlqh = (1-dfil) *( 0.01967*(0.50*(Dif(fXqh)-Dif(fIlqh)) +(1-0.50)*(Dif(fXqh(-1))-Dif(fIlqh(-1)))) +Jfilqh ) + dfil*zfilqh $ FRML _S fIlqq = (1-dfil) *( 0.00920*(0.50*(Dif(fXqq)-Dif(fIlqq)) +(1-0.50)*(Dif(fXqq(-1))-Dif(fIlqq(-1)))) +Jfilqq ) + dfil*zfilqq $ FRML _S fIlm0 = (1-dfil) *( 0.05276*(Dif(fM0)-Dif(fIlm0)) +Jfilm0 ) + dfil*zfilm0 $ FRML _G fIlm1 = (1-dfil) *( bm1il*(Dif(fM1)-Dif(fIlm1)) +Jfilm1 ) + dfil*zfilm1 $ FRML _S fIlm2 = (1-dfil) *( 0.06441*(0.00*(Dif(fM2)-Dif(fIlm2)) +(1-0.00)*(Dif(fM2(-1))-Dif(fIlm2(-1)))) +Jfilm2 ) + dfil*zfilm2 $ FRML _S fIlm3K = (1-dfil) *( 0.41176*(0.00*(Dif(fM3K)-Dif(fIlm3K)) +(1-0.00)*(Dif(fM3K(-1))-Dif(fIlm3K(-1)))) +Jfilm3K ) + dfil*zfilm3K $ FRML _S fIlm3R = (1-dfil) *( 0.05948*(0.00*(Dif(fM3R)-Dif(fIlm3R)) +(1-0.00)*(Dif(fM3R(-1))-Dif(fIlm3R(-1)))) +Jfilm3R ) + dfil*zfilm3R $ FRML _S fIlm3Q = (1-dfil) *( 0.30000*(Dif(fM3Q(-1))-Dif(fIlm3Q(-1))) +Jfilm3Q ) + dfil*zfilm3Q $ FRML _S fIlm5 = (1-dfil) *( 0.13059*(0.50*(Dif(fM5)-Dif(fIlm5)) +(1-0.50)*(Dif(fM5(-1))-Dif(fIlm5(-1)))) +Jfilm5 ) + dfil*zfilm5 $ FRML _S fIlm6M = (1-dfil) *( 0.26917*(0.75*(Dif(fM6M)-Dif(fIlm6M)) +(1-0.75)*(Dif(fM6M(-1))-Dif(fIlm6M(-1)))) +Jfilm6M ) + dfil*zfilm6M $ FRML _S fIlm6Q = (1-dfil) *( 0.12061*((Dif(fM6Q)-Dif(fIlm6Q))) +Jfilm6Q ) + dfil*zfilm6Q $ FRML _S fIlm7B = (1-dfil) *( 0.19654*(0.25*(Dif(fM7B)-Dif(fIlm7B)) +(1-0.25)*(Dif(fM7B(-1))-Dif(fIlm7B(-1)))) +Jfilm7B ) + dfil*zfilm7B $ FRML _S fIlm7Y = (1-dfil) *( 0.00848*((Dif(fM7Y)-Dif(fIlm7Y))) +Jfilm7Y ) + dfil*zfilm7Y $ FRML _S fIlm7Q = (1-dfil) *( 0.10938*(Dif(fM7Q)-Dif(fIlm7Q)) +Jfilm7Q ) + dfil*zfilm7Q $ FRML _S fIlm8 = (1-dfil) *( 0.11208*(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.F08 ### () ### EKSPORT.F08 ### () () () EKSPORT I FASTE PRISER () () Elast: konst Efterspørgsel Pris Fejlkorrektionsparameter () Vare langsigt kort sigt langsigt kort sigt tilpasningshastighed () kfew ely eky elp ekp t () fE2 9.81159 1 .284965 -1.85157 -.277735 0.1500 () fE5 11.3034 1 .517661 -3.26586 -.743486 0.1500 () fE6 10.7907 1 .592185 -3.18634 -.893811 0.1500 () fE7q 11.7303 1 .595329 -1.00000 -.590788 0.1500 () fE8 11.1468 1 .736635 -3.10549 -.519240 0.1500 () fEt 10.3970 1 1 -2.23187 -.662125 0.2000 () fEsq 1 1 -1.50000 -0.22500 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) = kfe2w +Log(fEe2 )*(1-.1992*ddeu)+elpfe2 *Log(pe2 /pee2 ) $ FRML _DJRD Log(fE5w) = kfe5w +Log(fEe5 )*(1-.4742*ddeu)+elpfe5 *Log(pe5 /pee5 ) $ FRML _DJRD Log(fE6w) = kfe6w +Log(fEe6 )*(1-.2998*ddeu)+elpfe6 *Log(pe6 /pee6 ) $ FRML _DJRD Log(fE7qw) = kfe7qw+Log(fEe7q)*(1-.0000*ddeu)+elpfe7q*Log(pe7q/pee7q) $ FRML _DJRD Log(fE8w) = kfe8w +Log(fEe8 )*(1-.5179*ddeu)+elpfe8 *Log(pe8 /pee8 ) $ FRML _DJRD Log(fEtw) = kfetw +Log(fEet )*(1-.0000*ddeu)+elpfet *Log(pet /peet ) + 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) -.0781*(ddeu-ddeu(-1)) -tfe5 *Log(fE5(-1)/fE5w(-1)) $ FRML _SJRD Dlog(fE6) = ekyfe6 *Dlog(fEe6) +ekpfe6 *Dlog(pe6/pee6) -.0499*(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) -.1277*(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*pe0(-1)+fE1*pe1(-1)+fE2*pe2(-1)+fE3*pe3(-1) +fE5*pe5(-1)+fE6*pe6(-1)+fE7y*pe7y(-1)+fE7q*pe7q(-1)+fE8*pe8(-1))/pev(-1) $ FRML _I fEs = fEss + fEsq $ FRML _I fE = (fEv*pev(-1)+fEs*pes(-1)+fEt*pet(-1))/pe(-1) $ () ### IMPORT.F08 ### () () () 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) = 9.060624+Log(fAm0)-.136857*Log(pxm0) +1.76221/(1+(1-.073909)**(tid-1992.13+1)) $ FRML _SJRD Dlog(fMz0) = 1.8388*Dlog(fAm0)-.64001*Log(fMz0(-1)/fMz0w(-1)) $ FRML _D fMu0 = am0o*fXo + am0it*fIt + fIlm0 + am0e0*fE0 $ FRML _I fM0 = fMz0 + fMu0 $ FRML _DJRD Log(fMz1w) = 8.266337+Log(fAm1)-1.032064*Log(pxm1) $ FRML _SJRD Dlog(fMz1) = 0.674657*Dlog(fAm1)-1.032064*Dlog(pxm1) -.56293*Log(fMz1(-1)/fMz1w(-1)) $ FRML _D fMu1 = am1o*fXo + fIlm1 + am1e1*fE1 $ FRML _I fM1 = fMz1 + fMu1 $ FRML _DJRD Log(fMz2w) = 9.424215+Log(fAm2)-0.269263*Log(pxm2) -.207473/(1+(1-0.466889)**(tid-1973+1)) $ FRML _SJRD Dlog(fMz2) = 1.268333*Dlog(fAm2)-.269263*Dlog(pxm2) -.243853*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) = 9.141759+Log(fAm5)-.38519*Log(pxm5) +1.106572/(1+(1-0.157452)**(tid-1963+1)) $ FRML _SJRD Dlog(fMz5) = 1.0601*Dlog(fAm5)-.08346*Dlog(pxm5) -.51383*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.63639+Log(fAm6q)-1.409363*Log(pxm6q) -.52219/(1+(1-0.278192)**(tid-1988.24+1)) $ FRML _SJRD Dlog(fMz6q) = 1.55432*Dlog(fAm6q)-.41699*Dlog(pxm6q) -.42339*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.924983+Log(fAm7q)-0.920163*Log(pxm7q) +0.292032/(1+(1-0.658099)**(tid-1967.25+1)) $ FRML _SJRD Dlog(fMz7q) = 1.099355*Dlog(fAm7q)-0.920163*Dlog(pxm7q) -.456745*Log(fMz7q(-1)/fMz7qw(-1)) $ FRML _D fMu7q = am7qe*fXe + am7qo*fXo + fIlm7q + am7qe7q*fE7q $ FRML _I fM7q = fMz7q+fMu7q $ FRML _DJRD Log(fMz8w) = 9.462498+Log(fAm8)-1.182543*Log(pxm8) +0.977406/(1+(1-.199539)**(tid-1965+1)) $ FRML _SJRD Dlog(fMz8) = 1.32999*Dlog(fAm8)-1.182543*Dlog(pxm8) -.387577*Log(fMz8(-1)/fMz8w(-1)) $ FRML _D fMu8 = am8o*fXo + fIlm8 + am8e8*fE8 $ FRML _I fM8 = fMz8 + fMu8 $ FRML _I fMv = (fM0*pm0(-1)+fM1*pm1(-1)+fM2*pm2(-1)+fM3r*pm3r(-1)+fM3k*pm3k(-1)+fM3q*pm3q(-1)+fM5*pm5(-1) +fM6m*pm6m(-1)+fM6q*pm6q(-1)+fM7b*pm7b(-1)+fM7y*pm7y(-1)+fM7q*pm7q(-1)+fM8*pm8(-1))/pmv(-1) $ 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*pmv(-1)+fMs*pms(-1)+fMt*pmt(-1))/pm(-1) $ () () () 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.F08 ### () () () 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.F08 ### () () () 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 = (pxng(-1)*fXng + pxne(-1)*fXne + pxnf(-1)*fXnf + pxnn(-1)*fXnn +pxnb(-1)*fXnb + pxnm(-1)*fXnm + pxnt(-1)*fXnt + pxnk(-1)*fXnk +pxnq(-1)*fXnq)/pxn(-1) $ () ### ENERGI.F08 ### FRML _DJ_D pkleA1 = 1 * ((LA1/DTHQA1)/(104.44016/0.95452)) **(0.5*((104.44016*154.69100) /(0+104.44016*154.69100+0.08629*117304.000+1.56259*2584.15928) +(LA1*HQA1) /(0+LA1*HQA1+UIMA*FKMA+PVEA*FVEA))) * ((UIMA/DTFKMA1)/(0.08629/0.78915)) **(0.5*((0.08629*117304.000) /(0+104.44016*154.69100+0.08629*117304.000+1.56259*2584.15928) +(UIMA*FKMA) /(0+LA1*HQA1+UIMA*FKMA+PVEA*FVEA))) * ((PVEA/DTFVEA1)/(1.56259/1.00000)) **(0.5*((1.56259*2584.15928) /(0+104.44016*154.69100+0.08629*117304.000+1.56259*2584.15928) +(PVEA*FVEA) /(0+LA1*HQA1+UIMA*FKMA+PVEA*FVEA ))) $ FRML _DJ_D pkleB1 = 1 * ((LB1/DTHQB1)/(181.38849/1.04385)) **(0.5*((181.38849*290.47600) /(0+181.38849*290.47600+0.12309*50487.0000+1.94664*1278.68650) +(LB1*HQB1) /(0+LB1*HQB1+UIMB*FKMB+PVEB*FVEB))) * ((UIMB/DTFKMB1)/(0.12309/0.98825)) **(0.5*((0.12309*50487.0000) /(0+181.38849*290.47600+0.12309*50487.0000+1.94664*1278.68650) +(UIMB*FKMB) /(0+LB1*HQB1+UIMB*FKMB+PVEB*FVEB))) * ((PVEB/DTFVEB1)/(1.94664/1.00000)) **(0.5*((1.94664*1278.68650) /(0+181.38849*290.47600+0.12309*50487.0000+1.94664*1278.68650) +(PVEB*FVEB) /(0+LB1*HQB1+UIMB*FKMB+PVEB*FVEB))) $ FRML _DJ_D pkleNB1 = 1 * ((LNB1/DTHQNB1)/(162.41229/0.95442)) **(0.5*((162.41229*53.66100) /(0+162.41229*53.66100+0.09428*26209.8529+1.26658*1201.95793) +(LNB1*HQNB1) /(0+LNB1*HQNB1+UIMNB*FKMNB+PVENB*FVENB))) * ((UIMNB/DTFKMNB1)/(0.09428/0.94818)) **(0.5*((0.09428*26209.8529) /(0+162.41229*53.66100+0.09428*26209.8529+1.26658*1201.95793) +(UIMNB*FKMNB) /(0+LNB1*HQNB1+UIMNB*FKMNB+PVENB*FVENB))) * ((PVENB/DTFVENB1)/(1.26658/1.00000)) **(0.5*((1.26658*1201.95793) /(0+162.41229*53.66100+0.09428*26209.8529+1.26658*1201.95793) +(PVENB*FVENB) /(0+LNB1*HQNB1+UIMNB*FKMNB+PVENB*FVENB))) $ FRML _DJ_D pkleNF1 = 1 * ((LNF1/DTHQNF1)/(165.90667/0.92234)) **(0.5*((165.90667*108.41100) /(0+165.90667*108.41100+0.09601*54689.8082+1.25514*1513.05388) +(LNF1*HQNF1) /(0+LNF1*HQNF1+UIMNF*FKMNF+PVENF*FVENF))) * ((UIMNF/DTFKMNF1)/(0.09601/ 0.92847)) **(0.5*((0.09601*54689.8082) /(0+165.90667*108.41100+0.09601*54689.8082+1.25514*1513.05388) +(UIMNF*FKMNF) /(0+LNF1*HQNF1+UIMNF*FKMNF+PVENF*FVENF))) * ((PVENF/DTFVENF1)/(1.25514/1.00000)) **(0.5*((1.25514*1513.05388) /(0+165.90667*108.41100+0.09601*54689.8082+1.25514*1513.05388) +(PVENF*FVENF) /(0+LNF1*HQNF1+UIMNF*FKMNF+PVENF*FVENF))) $ FRML _DJ_D pkleNK1 = 1 * ((LNK1/DTHQNK1)/( 187.76461/0.90088)) **(0.5*((187.76461* 90.40800) /(0+187.76461*90.40800+0.09090*61857.6260+1.28091*1551.04310) +(LNK1*HQNK1) /(0+LNK1*HQNK1+UIMNK*FKMNK+PVENK*FVENK))) * ((UIMNK/DTFKMNK1)/(0.09090/0.82161)) **(0.5*((0.09090*61857.6260) /(0+187.76461*90.40800+0.09090*61857.6260+1.28091*1551.04310) +(UIMNK*FKMNK) /(0+LNK1*HQNK1+UIMNK*FKMNK+PVENK*FVENK))) * ((PVENK/DTFVENK1)/(1.28091/1.00000)) **(0.5*((1.28091*1551.04310) /(0+187.76461*90.40800+0.09090*61857.6260+1.28091*1551.04310) +(PVENK*FVENK) /(0+LNK1*HQNK1+UIMNK*FKMNK+PVENK*FVENK))) $ FRML _DJ_D pkleNM1 = 1 * ((LNM1/DTHQNM1)/(170.68751/0.88328)) **(0.5*((170.68751*285.85100) /(0+170.68751*285.85100+0.10983*89217.0000+1.42094*1629.34711) +(LNM1*HQNM1) /(0+LNM1*HQNM1+UIMNM*FKMNM+PVENM*FVENM))) * ((UIMNM/DTFKMNM1)/(0.10983/0.94814)) **(0.5*((0.10983*89217.0000) /(0+170.68751*285.85100+0.10983*89217.0000+1.42094*1629.34711) +(UIMNM*FKMNM) /(0+LNM1*HQNM1+UIMNM*FKMNM+PVENM*FVENM))) * ((PVENM/DTFVENM1)/(1.42094/1.00000)) **(0.5*((1.42094*1629.34711) /(0+170.68751*285.85100+0.10983*89217.0000+1.42094*1629.34711) +(PVENM*FVENM) /(0+LNM1*HQNM1+UIMNM*FKMNM+PVENM*FVENM))) $ FRML _DJ_D pkleNN1 = 1 * ((LNN1/DTHQNN1)/(197.19230/1.07765)) **(0.5*((197.19230*12.18000) /(0+197.19230*12.18000+0.09985*5894.19180+1.56411*156.87409) +(LNN1*HQNN1) /(0+LNN1*HQNN1+UIMNN*FKMNN+PVENN*FVENN))) * ((UIMNN/DTFKMNN1)/(0.09985/1.11404)) **(0.5*((0.09985*5894.19180) /(0+197.19230*12.18000+0.09985*5894.19180+1.56411*156.87409) +(UIMNN*FKMNN) /(0+LNN1*HQNN1+UIMNN*FKMNN+PVENN*FVENN))) * ((PVENN/DTFVENN1)/(1.56411/1.00000)) **(0.5*((1.56411* 156.87409) /(0+197.19230*12.18000+0.09985*5894.19180+1.56411*156.87409) +(PVENN*FVENN) /(0 +LNN1*HQNN1+UIMNN*FKMNN+PVENN*FVENN))) $ FRML _DJ_D pkleNQ1 = 1 * ((LNQ1/DTHQNQ1)/(166.26571/0.91237)) **(0.5*((166.26571*153.12400) /(0+166.26571*153.12400+0.10915*60642.4102+1.29330*1106.46935) +(LNQ1*HQNQ1) /(0 +LNQ1*HQNQ1+UIMNQ*FKMNQ+PVENQ*FVENQ))) * ((UIMNQ/DTFKMNQ1)/(0.10915/0.98489)) **(0.5*((0.10915*60642.4102) /(0+166.26571*153.12400+0.10915*60642.4102+1.29330*1106.46935) +(UIMNQ*FKMNQ) /(0 +LNQ1*HQNQ1+UIMNQ*FKMNQ+PVENQ*FVENQ))) * ((PVENQ/DTFVENQ1)/(1.29330/1.00000)) **(0.5*((1.29330*1106.46935) /(0+166.26571*153.12400+0.10915*60642.4102+1.29330*1106.46935) +(PVENQ*FVENQ) /(0+LNQ1*HQNQ1+UIMNQ*FKMNQ+PVENQ*FVENQ))) $ FRML _DJ_D pkleNT1 = 1 * ((LNT1/DTHQNT1)/(169.92736/0.83290)) **(0.5*((169.92736*27.73400) /(0+169.92736*27.73400+0.12861*6482.00000+1.51526*129.30427) +(LNT1*HQNT1) /(0+LNT1*HQNT1+UIMNT*FKMNT+PVENT*FVENT))) * ((UIMNT/DTFKMNT1)/(0.12861/1.35506)) **(0.5*((0.12861*6482.00000) /(0+169.92736*27.73400+0.12861*6482.00000+1.51526*129.30427) +(UIMNT*FKMNT) /(0+LNT1*HQNT1+UIMNT*FKMNT+PVENT*FVENT))) * ((PVENT/DTFVENT1)/(1.51526/1.00000)) **(0.5*((1.51526*129.30427) /(0+169.92736*27.73400+0.12861*6482.00000+1.51526*129.30427) +(PVENT*FVENT) /(0+LNT1*HQNT1+UIMNT*FKMNT+PVENT*FVENT))) $ FRML _DJ_D pkleQF1 = 1 * ((LQF1/DTHQQF1)/(276.98400/0.87736)) **(0.5*((276.98400*118.43400) /(0+276.98400*118.43400+0.14457*38047.0000+2.28060*220.01185) +(LQF1*HQQF1) /(0+LQF1*HQQF1+UIMQF*FKMQF+PVEQF*FVEQF))) * ((UIMQF/DTFKMQF1)/(0.14457/0.97222)) **(0.5*((0.14457*38047.0000) /(0+276.98400*118.43400+0.14457*38047.0000+2.28060*220.01185) +(UIMQF*FKMQF) /(0+LQF1*HQQF1+UIMQF*FKMQF+PVEQF*FVEQF))) * ((PVEQF/DTFVEQF1)/(2.28060/1.00000)) **(0.5*((2.28060*220.01185) /(0+276.98400*118.43400+0.14457*38047.0000+2.28060*220.01185) +(PVEQF*FVEQF) /(0+LQF1*HQQF1+UIMQF*FKMQF+PVEQF*FVEQF))) $ FRML _DJ_D pkleQH1 = 1 * ((LQH1/DTHQQH1)/(170.36054/0.91451)) **(0.5*((170.36054*614.19700) /(0+170.36054*614.19700+0.12108*159317.910+1.66875*2820.83949) +(LQH1*HQQH1) /(0+LQH1*HQQH1+UIMQH*FKMQH+PVEQH*FVEQH))) * ((UIMQH/DTFKMQH1)/(0.12108/0.87662)) **(0.5*((0.12108*159317.910) /(0+170.36054*614.19700+0.12108*159317.910+1.66875*2820.83949) +(UIMQH*FKMQH) /(0+LQH1*HQQH1+UIMQH*FKMQH+PVEQH*FVEQH))) * ((PVEQH/DTFVEQH1)/(1.66875/1.00000)) **(0.5*((1.66875*2820.83949) /(0+170.36054*614.19700+0.12108*159317.910+1.66875*2820.83949) +(PVEQH*FVEQH) /(0+LQH1*HQQH1+UIMQH*FKMQH+PVEQH*FVEQH))) $ FRML _DJ_D pkleQQ1 = 1 * ((LQQ1/DTHQQQ1)/(156.83078/1.00166)) **(0.5*((156.83078*847.56500) /(0+156.83078*847.56500+0.14822*218851.557+1.75618*2839.88622) +(LQQ1*HQQQ1) /(0+LQQ1*HQQQ1+UIMQQ*FKMQQ+PVEQQ*FVEQQ))) * ((UIMQQ/DTFKMQQ1)/(0.14822/1.10704)) **(0.5*((0.14822*218851.557) /(0+156.83078*847.56500+0.14822*218851.557+1.75618*2839.88622) +(UIMQQ*FKMQQ) /(0+LQQ1*HQQQ1+UIMQQ*FKMQQ+PVEQQ*FVEQQ))) * ((PVEQQ/DTFVEQQ1)/(1.75618/1.00000)) **(0.5*((1.75618*2839.88622) /(0+156.83078*847.56500+0.14822*218851.557+1.75618*2839.88622) +(PVEQQ*FVEQQ) /(0+LQQ1*HQQQ1+UIMQQ*FKMQQ+PVEQQ*FVEQQ))) $ FRML _DJ_D pkleQT1 = 1 * ((LQT1/DTHQQT1)/(164.94231/0.87338)) **(0.5*((164.94231*292.31200) /(0+164.94231*292.31200+0.10905*162944.000+1.82889*4391.98215) +(LQT1*HQQT1) /(0+LQT1*HQQT1+UIMQT*FKMQT+PVEQT*FVEQT))) * ((UIMQT/DTFKMQT1)/(0.10905/1.01709)) **(0.5*((0.10905*162944.000) /(0+164.94231*292.31200+0.10905*162944.000+1.82889*4391.98215) +(UIMQT*FKMQT) /(0+LQT1*HQQT1+UIMQT*FKMQT+PVEQT*FVEQT))) * ((PVEQT/DTFVEQT1)/(1.82889/1.00000)) **(0.5*((1.82889*4391.98215) /(0+164.94231*292.31200+0.10905*162944.000+1.82889*4391.98215) +(PVEQT*FVEQT) /(0+LQT1*HQQT1+UIMQT*FKMQT+PVEQT*FVEQT))) $ FRML _DJ_D pkleo1 = 1 * ((LO1/DTHQO1)/(183.20104/1.00000)) **(0.5*((183.20104*1151.78800) /(0+183.20104*1151.78800+0.12287*83544.0000+2.28103*2848.34508) +(LO1*HQO2) /(0+LO1*HQO2+UIMO*FKMO+PVEO*FVEO))) * ((UIMO/DTFKMO1)/(0.12287/1.00000)) **(0.5*((0.12287*83544.0000) /(0+183.20104*1151.78800+0.12287*83544.0000+2.28103*2848.34508) +(UIMO*FKMO) /(0+LO1*HQO2+UIMO*FKMO+PVEO*FVEO))) * ((PVEO/DTFVEO1)/(2.28103/1.00000)) **(0.5*((2.28103*2848.34508) /(0+183.20104*1151.78800+0.12287*83544.0000+2.28103*2848.34508) +(PVEO*FVEO) /(0+LO1*HQO2+UIMO*FKMO+PVEO*FVEO))) $ () () 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.32205*LOG(PVEA/PKLEA1) -(1-0.32205)*log(DTFVEA1)-3.14486 + 0.00000*FROS + 0.00000*D7092 $ FRML _SJRD LOG(FVEA) = LOG(FVEAW1) $ FRML _DJRD LOG(FVENFW1) = LOG(FXNF) -0.23218*LOG(PVENF/PKLENF1) -(1-0.23218)*log(DTFVENF1)-4.03877 +0.00000*FROS+0.00000*D7092 $ FRML _SJRD DLOG(FVENF) = 0.10000*DLOG(FXNF) +0.90000*(-0.23218)*DLOG(PVENF/PKLENF1) +0.00000*DIF(FROS)+0.00000*DIF(D7092)-0.44054*(1-0.23218)*DLOG(DTFVENF1) -0.44054*(LOG(FVENF(-1)/FVENFW1(-1)) ) $ FRML _DJRD LOG(FVENNW1) = LOG(FXNN) -0.478218*LOG(PVENN/PKLENN1) -(1-0.478218)*log(DTFVENN1)-3.98524 -0.000429716*FROS-0.175747*D7092 $ FRML _SJRD LOG(FVENN) = LOG(FVENNW1) $ FRML _DJRD LOG(FVENBW1) = LOG(FXNB) -0.20000*LOG(PVENB/PKLENB1) -(1-0.20000)*log(DTFVENB1)-3.15130 +0.0011598*FROS+0.00000*D7092 $ FRML _SJRD DLOG(FVENB) = 0.58800*DLOG(FXNB) +0.10000*(-0.20000)*DLOG(PVENB/PKLENB1) +0.0011598*DIF(FROS) +0.00000*DIF(D7092) -0.59048*(1-0.20000)*DLOG(DTFVENB1) -0.59048*(LOG(FVENB(-1)/FVENBW1(-1)) ) $ FRML _DJRD LOG(FVENMW1) = LOG(FXNM) -0.064866*LOG(PVENM/PKLENM1) -(1-0.064866)*log(DTFVENM1)-4.60101 +0.0017468*FROS+0.00000*D7092 $ FRML _SJRD DLOG(FVENM) = 0.61167*DLOG(FXNM) +0.10000*(-0.064866)*DLOG(PVENM/PKLENM1) +0.0017468*DIF(FROS) +0.00000*DIF(D7092) -0.58080*(1-0.064866)*DLOG(DTFVENM1) -0.58080*(LOG(FVENM(-1)/FVENMW1(-1)) ) $ FRML _DJRD LOG(FVENTW1) = LOG(FXNT) -0.18589*LOG(PVENT/PKLENT1) -(1-0.18589)*log(DTFVENT1)-4.91781 +0.0023120*FROS+0.19706*D7092 $ FRML _SJRD LOG(FVENT) = LOG(FVENTW1) $ FRML _DJRD LOG(FVENKW1) = LOG(FXNK) -0.25371*LOG(PVENK/PKLENK1) -(1-0.25371)*log(DTFVENK1)-3.79615 -0.00035053*FROS+0.29301*D7377 $ FRML _SJRD LOG(FVENK) = LOG(FVENKW1) $ FRML _DJRD LOG(FVENQW1) = LOG(FXNQ) -0.14575*LOG(PVENQ/PKLENQ1) -(1-0.14575)*log(DTFVENQ1)-4.48329 + 0.0017148*FROS+0.00000*D7092 $ FRML _SJRD DLOG(FVENQ) = 0.59627*DLOG(FXNQ) +0.90000*(-0.14575)*DLOG(PVENQ/PKLENQ1) +0.0017148*DIF(FROS) +0.00000*DIF(D7092) -0.73857*(1-0.14575)*DLOG(DTFVENQ1) -0.73857*(LOG(FVENQ(-1)/FVENQW1(-1)) ) $ FRML _DJRD LOG(FVEBW1) = LOG(FXB) -0.15547*LOG(PVEB/PKLEB1) -(1-0.15547)*log(DTFVEB1)-4.71091 +0.00010498*FROS + 0.27141*D7092 $ FRML _SJRD DLOG(FVEB) = 0.71401*DLOG(FXB) +0.90000*(-0.15547)*DLOG(PVEB/PKLEB1) +0.00010498*DIF(FROS) +0.27141*DIF(D7092) -0.65345*(1-0.15547)*DLOG(DTFVEB1) -0.65345*(LOG(FVEB(-1)/FVEBW1(-1)) ) $ FRML _DJRD LOG(FVEOW1) = LOG(FXO) -0.20056*LOG(PVEO/PKLEO1) -(1-0.20056)*log(DTFVEO1)-4.55744 +0.00037315*FROS+0.30219*D7092 $ FRML _SJRD DLOG(FVEO) = 0.90000*DLOG(FXO) +0.66658*(-0.20056)*DLOG(PVEO/PKLEO1) +0.00037315*DIF(FROS) +0.30219*DIF(D7092) -0.83159*(1-0.20056)*DLOG(DTFVEO1) -0.83159*(LOG(FVEO(-1)/FVEOW1(-1)) ) $ FRML _DJRD LOG(FVEQHW1) = LOG(FXQH) -0.10000*LOG(PVEQH/PKLEQH1) -(1-0.10000)*log(DTFVEQH1)-4.20802 +0.00098639*FROS+0.13877*D7092 $ FRML _SJRD DLOG(FVEQH) = 0.38486*DLOG(FXQH) +0.10000*(-0.10000)*DLOG(PVEQH/PKLEQH1) +0.00098639*DIF(FROS) +0.13877*DIF(D7092) -0.40787*(1-0.10000)*DLOG(DTFVEQH1) -0.40787*(LOG(FVEQH(-1)/FVEQHW1(-1)) ) $ FRML _DJRD LOG(FVEQTW1) = LOG(FXQT) -0.13907*LOG(PVEQT/PKLEQT1) -(1-0.13907)*log(DTFVEQT1)-3.39540 +0.0012293*FROS+0.077685*D7092 $ FRML _SJRD LOG(FVEQT) = LOG(FVEQTW1) $ FRML _DJRD LOG(FVEQFW1) = LOG(FXQF) -0.10000*LOG(PVEQF/PKLEQF1) -(1-0.10000)*log(DTFVEQF1)-5.49518 +0.00000*FROS+0.00000*D7092 $ FRML _SJRD DLOG(FVEQF) = 1.31887*DLOG(FXQF) +0.10000*(-0.10000)*DLOG(PVEQF/PKLEQF1) +0.00000*DIF(FROS) +0.00000*DIF(D7092) -0.30789*(1-0.10000)*DLOG(DTFVEQF1) -0.30789*(LOG(FVEQF(-1)/FVEQFW1(-1)) ) $ FRML _DJRD LOG(FVEQQW1) = LOG(FXQQ) -0.17368*LOG(PVEQQ/PKLEQQ1) -(1-0.17368)*log(DTFVEQQ1)-4.72113 +0.0014587*FROS+0.27116*D7092 $ FRML _SJRD LOG(FVEQQ) = LOG(FVEQQW1) $ () ### MATERIAL.F08 ### () () () 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.F08 ### () () () BRUTTOFAKTORINDKOMST I FASTE PRISER () () FRML _I fYfa = (fXa *pxa(-1) -(fVma +fVea )*Va(-1) /(fVma(-1) +fVea(-1) ))/pyfa(-1) $ FRML _I fYfe = (fXe *pxe(-1) -(fVme +fVee )*Ve(-1) /(fVme(-1) +fVee(-1) ))/pyfe(-1) $ FRML _I fYfng = (fXng*pxng(-1)-(fVmng+fVeng)*Vng(-1)/(fVmng(-1)+fVeng(-1)))/pyfng(-1) $ FRML _I fYfne = (fXne*pxne(-1)-(fVmne+fVene)*Vne(-1)/(fVmne(-1)+fVene(-1)))/pyfne(-1) $ FRML _I fYfnf = (fXnf*pxnf(-1)-(fVmnf+fVenf)*Vnf(-1)/(fVmnf(-1)+fVenf(-1)))/pyfnf(-1) $ FRML _I fYfnn = (fXnn*pxnn(-1)-(fVmnn+fVenn)*Vnn(-1)/(fVmnn(-1)+fVenn(-1)))/pyfnn(-1) $ FRML _I fYfnb = (fXnb*pxnb(-1)-(fVmnb+fVenb)*Vnb(-1)/(fVmnb(-1)+fVenb(-1)))/pyfnb(-1) $ FRML _I fYfnm = (fXnm*pxnm(-1)-(fVmnm+fVenm)*Vnm(-1)/(fVmnm(-1)+fVenm(-1)))/pyfnm(-1) $ FRML _I fYfnt = (fXnt*pxnt(-1)-(fVmnt+fVent)*Vnt(-1)/(fVmnt(-1)+fVent(-1)))/pyfnt(-1) $ FRML _I fYfnk = (fXnk*pxnk(-1)-(fVmnk+fVenk)*Vnk(-1)/(fVmnk(-1)+fVenk(-1)))/pyfnk(-1) $ FRML _I fYfnq = (fXnq*pxnq(-1)-(fVmnq+fVenq)*Vnq(-1)/(fVmnq(-1)+fVenq(-1)))/pyfnq(-1) $ FRML _I fYfb = (fXb *pxb(-1) -(fVmb +fVeb )*Vb(-1) /(fVmb(-1) +fVeb(-1) ))/pyfb(-1) $ FRML _I fYfqh = (fXqh*pxqh(-1)-(fVmqh+fVeqh)*Vqh(-1)/(fVmqh(-1)+fVeqh(-1)))/pyfqh(-1) $ FRML _I fYfqs = (fXqs*pxqs(-1)-(fVmqs+fVeqs)*Vqs(-1)/(fVmqs(-1)+fVeqs(-1)))/pyfqs(-1) $ FRML _I fYfqt = (fXqt*pxqt(-1)-(fVmqt+fVeqt)*Vqt(-1)/(fVmqt(-1)+fVeqt(-1)))/pyfqt(-1) $ FRML _I fYfqf = (fXqf*pxqf(-1)-(fVmqf+fVeqf)*Vqf(-1)/(fVmqf(-1)+fVeqf(-1)))/pyfqf(-1) $ FRML _I fYfqq = (fXqq*pxqq(-1)-(fVmqq+fVeqq)*Vqq(-1)/(fVmqq(-1)+fVeqq(-1)))/pyfqq(-1) $ FRML _I fYfh = (fXh *pxh(-1) -(fVmh +fVeh) *Vh(-1) /(fVmh(-1) +fVeh(-1) ))/pyfh(-1) $ FRML _I fYfn = (fYfng*pyfng(-1)+fYfne*pyfne(-1)+fYfnf*pyfnf(-1)+fYfnn*pyfnn(-1)+fYfnb*pyfnb(-1) +fYfnm*pyfnm(-1)+fYfnt*pyfnt(-1)+fYfnk*pyfnk(-1)+fYfnq*pyfnq(-1))/pyfn(-1) $ FRML _I fYf = (fYfa *pyfa(-1) +fYfe *pyfe(-1) +fYfng*pyfng(-1)+fYfne*pyfne(-1)+fYfnf*pyfnf(-1) +fYfnn*pyfnn(-1)+fYfnb*pyfnb(-1)+fYfnm*pyfnm(-1)+fYfnt*pyfnt(-1)+fYfnk*pyfnk(-1) +fYfnq*pyfnq(-1)+fYfb *pyfb(-1) +fYfqh*pyfqh(-1)+fYfqs*pyfqs(-1)+fYfqt*pyfqt(-1) +fYfqf*pyfqf(-1)+fYfqq*pyfqq(-1)+fYfh *pyfh(-1) +fYfo*pyfo(-1))/pyf(-1) $ () ### FAKTOR.F08 ### () ----------------------------------------------------- () a-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimae = 0.25*rpimae(-1) + 0.75*(pima/pima(-1)-1) $ FRML _DJRD ycma = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invma + (Knma(-1)+0.5*Inma)*((1-tsdsu1)*iwlo-0.5*rpimae) ) $ FRML _D uima = ycma / (0.5*fKma(-1)+0.5*fKma) $ FRML _DJRD fkmaw1 = (1/dtfkma1)*0.29543**(0.51000/(1-0.51000)) *(((fXa-hostkor)/68665.63080)/1.09417) *( ( ((la1*154.69099)/(uima*117304.00000)) *(dtfkma1/dthqa1) ) **(1-0.51000) *((1-0.29543)/0.29543)**0.51000+1 ) **(0.51000/(1-0.51000))*117304.00000 $ FRML _SJRDF Dlog(fKma) = 0.14000*Dlog(fKmaw1) + 0.24105*(log(fKmaw1(-1))-log(fKma(-1))) + rofKma1 *( Dlog(fKma(-1)) -0.14000*Dlog(fKmaw1(-1)) -0.24105*(log(fKmaw1(-2))-log(fKma(-2))) ) $ FRML _DJRD fKmak = fKma $ FRML _KJRD fIma = kfIma * ( Dif(fKma) + bivma*fKma(-1) ) $ FRML _I Ima = fIma*pima $ FRML _GJ_D Oknma = (pima/pima(-1)-1) * ( Knma(-1) + 0.5*Inma ) $ FRML _GJRD Invma = (pima/(0.5*pima(-1)+0.5*pima))*binvma*Knma(-1) $ FRML _I Inma = Ima-Invma $ FRML _I Knma = Knma(-1) + Inma + oKnma $ FRML _DJRD HQan1 = (1/dthqa1) *( (1/(1-0.29543)) *(((fXa-hostkor)/68665.63080)/1.09417) **(-(1/0.51000-1)) -(0.29543/(1-0.29543)) *(dtfkma1*fKmak/117304.00000)**(-(1/0.51000-1)) ) **(-(1/(1/0.51000-1)))*154.69099 $ FRML _SJRDF log(HQa1) = 0.44413*(log(HQan1)-log(Hga))+log(Hga) + (1-0.44413+(-0.37743)) *(log(HQan1(-1))-log(Hga(-1))) - (-0.37743)*(log(HQan1(-2))-log(Hga(-2))) + rohqa1 *( log(HQa1(-1)) -( 0.44413*(log(HQan1(-1))-log(Hga(-1))) +(1-0.44413+(-0.37743)) *(log(HQan1(-2))-log(Hga(-2)))-(-0.37743) *(log(HQan1(-3))-log(Hga(-3)))+log(Hga(-1)) ) ) $ FRML _DJRD 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 _DJR la1 = (Ywa1+siqal) /(Qwa1*Hgwa)*1000 $ FRML _DJRD HQaw1 = (1/dthqa1)*(1-0.29543)**(0.51000/(1-0.51000)) *(((fXa-hostkor)/68665.63080)/1.09417) *( ( ((uima*117304.00000)/(la1*154.69099)) *(dthqa1/dtfkma1) ) **(1-0.51000) *(0.29543/(1-0.29543))**0.51000+1 ) **(0.51000/(1-0.51000))*154.69099 $ () ----------------------------------------------------- () ng-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimnge = 0.25*rpimnge(-1) + 0.75*(pimng/pimng(-1)-1) $ FRML _DJRD ycmng = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmng + (Knmng(-1)+0.5*Inmng)*((1-tsdsu1)*iwlo-0.5*rpimnge) ) $ FRML _D uimng = ycmng / (0.5*fKmng(-1)+0.5*fKmng) $ FRML _DJRD fkmngw1 = (1/dtfkmng1)*0.76159**(0.16000/(1-0.16000)) *((fXng/19023.00000)/0.97537) *( ( ((lng1*1.04300)/(uimng*13496.00000)) *(dtfkmng1/dthqng1) ) **(1-0.16000) *((1-0.76159)/0.76159)**0.16000+1 ) **(0.16000/(1-0.16000))*13496.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 _KJRD fImng = kfImng * ( Dif(fKmng) + bivmng*fKmng(-1) ) $ FRML _I Imng = fImng*pimng $ FRML _GJ_D Oknmng = (pimng/pimng(-1)-1) * ( Knmng(-1) + 0.5*Inmng ) $ FRML _GJRD Invmng = (pimng/(0.5*pimng(-1)+0.5*pimng))*binvmng*Knmng(-1) $ FRML _I Inmng = Imng-Invmng $ FRML _I Knmng = Knmng(-1) + Inmng + oKnmng $ FRML _DJRD HQngw1 = (1/dthqng1)*(1-0.76159)**(0.16000/(1-0.16000)) *((fXng/19023.00000)/0.97537) *( ( ((uimng*13496.00000)/(lng1*1.04300)) *(dthqng1/dtfkmng1) ) **(1-0.16000) *(0.76159/(1-0.76159))**0.16000+1 ) **(0.16000/(1-0.16000))*1.04300 $ 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 _DJRD 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 _DJR lng1 = (Ywng1+siqngl) /(Qwng1*Hgwng)*1000 $ () ----------------------------------------------------- () nf-erhvervet () ----------------------------------------------------- FRML _DJ_D rpimnfe = 0.25*rpimnfe(-1) + 0.75*(pimnf/pimnf(-1)-1) $ FRML _DJRD ycmnf = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmnf + (Knmnf(-1)+0.5*Inmnf)*((1-tsdsu1)*iwlo-0.5*rpimnfe) ) $ FRML _D uimnf = ycmnf / (0.5*fKmnf(-1)+0.5*fKmnf) $ FRML _DJRD fkmnfw1 = (1/dtfkmnf1)*0.26547**(0.39545/(1-0.39545)) *((fXnf/104171.00000)/1.12177) *( ( ((lnf1*108.41100)/(uimnf*54689.80859)) *(dtfkmnf1/dthqnf1) ) **(1-0.39545) *((1-0.26547)/0.26547)**0.39545+1 ) **(0.39545/(1-0.39545))*54689.80859 $ FRML _SJRDF Dlog(fKmnf) = 0.15749*Dlog(fKmnfw1) + 0.19393*(log(fKmnfw1(-1))-log(fKmnf(-1))) + rofKmnf1 *( Dlog(fKmnf(-1)) -0.15749*Dlog(fKmnfw1(-1)) -0.19393*(log(fKmnfw1(-2))-log(fKmnf(-2))) ) $ FRML _DJRD fKmnfk = fKmnf $ FRML _KJRD fImnf = kfImnf * ( Dif(fKmnf) + bivmnf*fKmnf(-1) ) $ FRML _I Imnf = fImnf*pimnf $ FRML _GJ_D Oknmnf = (pimnf/pimnf(-1)-1) * ( Knmnf(-1) + 0.5*Inmnf ) $ FRML _GJRD Invmnf = (pimnf/(0.5*pimnf(-1)+0.5*pimnf))*binvmnf*Knmnf(-1) $ FRML _I Inmnf = Imnf-Invmnf $ FRML _I Knmnf = Knmnf(-1) + Inmnf + oKnmnf $ FRML _DJRD HQnfn1 = (1/dthqnf1) *( (1/(1-0.26547)) *((fXnf/104171.00000)/1.12177) **(-(1/0.39545-1)) -(0.26547/(1-0.26547)) *(dtfkmnf1*fKmnfk/54689.80859)**(-(1/0.39545-1)) ) **(-(1/(1/0.39545-1)))*108.41100 $ FRML _SJRDF log(HQnf1) = 0.55635*(log(HQnfn1)-log(Hgnf))+log(Hgnf) + (1-0.55635+(-0.37380)) *(log(HQnfn1(-1))-log(Hgnf(-1))) - (-0.37380)*(log(HQnfn1(-2))-log(Hgnf(-2))) + rohqnf1 *( log(HQnf1(-1)) -( 0.55635*(log(HQnfn1(-1))-log(Hgnf(-1))) +(1-0.55635+(-0.37380)) *(log(HQnfn1(-2))-log(Hgnf(-2)))-(-0.37380) *(log(HQnfn1(-3))-log(Hgnf(-3)))+log(Hgnf(-1)) ) ) $ FRML _DJRD 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 _DJR lnf1 = (Ywnf1+siqnfl) /(Qwnf1*Hgwnf)*1000 $ FRML _DJRD HQnfw1 = (1/dthqnf1)*(1-0.26547)**(0.39545/(1-0.39545)) *((fXnf/104171.00000)/1.12177) *( ( ((uimnf*54689.80859)/(lnf1*108.41100)) *(dthqnf1/dtfkmnf1) ) **(1-0.39545) *(0.26547/(1-0.26547))**0.39545+1 ) **(0.39545/(1-0.39545))*108.41100 $ () ----------------------------------------------------- () nn-erhvervet () ----------------------------------------------------- FRML _DJ_D rpimnne = 0.25*rpimnne(-1) + 0.75*(pimnn/pimnn(-1)-1) $ FRML _DJRD ycmnn = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmnn + (Knmnn(-1)+0.5*Inmnn)*((1-tsdsu1)*iwlo-0.5*rpimnne) ) $ FRML _D uimnn = ycmnn / (0.5*fKmnn(-1)+0.5*fKmnn) $ FRML _DJRD fkmnnw1 = (1/dtfkmnn1)*0.300710**(0.28/(1-0.28)) *((fXnn/12519.00000)/1.06121) *( ( ((lnn1*12.18000)/(uimnn*5894.19189)) *(dtfkmnn1/dthqnn1) ) **(1-0.28) *((1-0.300710)/0.300710)**0.28+1 ) **(0.28/(1-0.28))*5894.19189 $ FRML _SJRDF Dlog(fKmnn) = 0.124791*Dlog(fKmnnw1) + 0.20*(log(fKmnnw1(-1))-log(fKmnn(-1))) + rofKmnn1 *( Dlog(fKmnn(-1)) -0.124791*Dlog(fKmnnw1(-1)) -0.20*(log(fKmnnw1(-2))-log(fKmnn(-2))) ) $ FRML _DJRD fKmnnk = fKmnn $ FRML _KJRD fImnn = kfImnn * ( Dif(fKmnn) + bivmnn*fKmnn(-1) ) $ FRML _I Imnn = fImnn*pimnn $ FRML _GJ_D Oknmnn = (pimnn/pimnn(-1)-1) * ( Knmnn(-1) + 0.5*Inmnn ) $ FRML _GJRD Invmnn = (pimnn/(0.5*pimnn(-1)+0.5*pimnn))*binvmnn*Knmnn(-1) $ FRML _I Inmnn = Imnn-Invmnn $ FRML _I Knmnn = Knmnn(-1) + Inmnn + oKnmnn $ FRML _DJRD HQnnn1 = (1/dthqnn1) *( (1/(1-0.300710)) *((fXnn/12519.00000)/1.06121) **(-(1/0.28-1)) -(0.300710/(1-0.300710)) *(dtfkmnn1*fKmnnk/5894.19189)**(-(1/0.28-1)) ) **(-(1/(1/0.28-1)))*12.18000 $ FRML _SJRDF log(HQnn1) = 0.377797*(log(HQnnn1)-log(Hgnn))+log(Hgnn) + (1-0.377797+(-0.326448)) *(log(HQnnn1(-1))-log(Hgnn(-1))) - (-0.326448)*(log(HQnnn1(-2))-log(Hgnn(-2))) + rohqnn1 *( log(HQnn1(-1)) -( 0.377797*(log(HQnnn1(-1))-log(Hgnn(-1))) +(1-0.377797+(-0.326448)) *(log(HQnnn1(-2))-log(Hgnn(-2)))-(-0.326448) *(log(HQnnn1(-3))-log(Hgnn(-3)))+log(Hgnn(-1)) ) ) $ FRML _DJRD 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 _DJR lnn1 = (Ywnn1+siqnnl) /(Qwnn1*Hgwnn)*1000 $ FRML _DJRD HQnnw1 = (1/dthqnn1)*(1-0.300710)**(0.28/(1-0.28)) *((fXnn/12519.00000)/1.06121) *( ( ((uimnn*5894.19189)/(lnn1*12.18000)) *(dthqnn1/dtfkmnn1) ) **(1-0.28) *(0.300710/(1-0.300710))**0.28+1 ) **(0.28/(1-0.28))*12.18000 $ () ----------------------------------------------------- () nb-erhvervet () ----------------------------------------------------- FRML _DJ_D rpimnbe = 0.25*rpimnbe(-1) + 0.75*(pimnb/pimnb(-1)-1) $ FRML _DJRD ycmnb = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmnb + (Knmnb(-1)+0.5*Inmnb)*((1-tsdsu1)*iwlo-0.5*rpimnbe) ) $ FRML _D uimnb = ycmnb / (0.5*fKmnb(-1)+0.5*fKmnb) $ FRML _DJRD fkmnbw1 = (1/dtfkmnb1)*0.27719**(0.32641/(1-0.32641)) *((fXnb/31585.00000)/1.05009) *( ( ((lnb1*53.66100)/(uimnb*26209.85352)) *(dtfkmnb1/dthqnb1) ) **(1-0.32641) *((1-0.27719)/0.27719)**0.32641+1 ) **(0.32641/(1-0.32641))*26209.85352 $ FRML _SJRDF Dlog(fKmnb) = 0.082781*Dlog(fKmnbw1) + 0.20000*(log(fKmnbw1(-1))-log(fKmnb(-1))) + rofKmnb1 *( Dlog(fKmnb(-1)) -0.082781*Dlog(fKmnbw1(-1)) -0.20000*(log(fKmnbw1(-2))-log(fKmnb(-2))) ) $ FRML _DJRD fKmnbk = fKmnb $ FRML _KJRD fImnb = kfImnb * ( Dif(fKmnb) + bivmnb*fKmnb(-1) ) $ FRML _I Imnb = fImnb*pimnb $ FRML _GJ_D Oknmnb = (pimnb/pimnb(-1)-1) * ( Knmnb(-1) + 0.5*Inmnb ) $ FRML _GJRD Invmnb = (pimnb/(0.5*pimnb(-1)+0.5*pimnb))*binvmnb*Knmnb(-1) $ FRML _I Inmnb = Imnb-Invmnb $ FRML _I Knmnb = Knmnb(-1) + Inmnb + oKnmnb $ FRML _DJRD HQnbn1 = (1/dthqnb1) *( (1/(1-0.27719)) *((fXnb/31585.00000)/1.05009) **(-(1/0.32641-1)) -(0.27719/(1-0.27719)) *(dtfkmnb1*fKmnbk/26209.85352)**(-(1/0.32641-1)) ) **(-(1/(1/0.32641-1)))*53.66100 $ FRML _SJRDF log(HQnb1) = 0.45941*(log(HQnbn1)-log(Hgnb))+log(Hgnb) + (1-0.45941+(-0.21547)) *(log(HQnbn1(-1))-log(Hgnb(-1))) - (-0.21547)*(log(HQnbn1(-2))-log(Hgnb(-2))) + rohqnb1 *( log(HQnb1(-1)) -( 0.45941*(log(HQnbn1(-1))-log(Hgnb(-1))) +(1-0.45941+(-0.21547)) *(log(HQnbn1(-2))-log(Hgnb(-2)))-(-0.21547) *(log(HQnbn1(-3))-log(Hgnb(-3)))+log(Hgnb(-1)) ) ) $ FRML _DJRD 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 _DJR lnb1 = (Ywnb1+siqnbl) /(Qwnb1*Hgwnb)*1000 $ FRML _DJRD HQnbw1 = (1/dthqnb1)*(1-0.27719)**(0.32641/(1-0.32641)) *((fXnb/31585.00000)/1.05009) *( ( ((uimnb*26209.85352)/(lnb1*53.66100)) *(dthqnb1/dtfkmnb1) ) **(1-0.32641) *(0.27719/(1-0.27719))**0.32641+1 ) **(0.32641/(1-0.32641))*53.66100 $ () ----------------------------------------------------- () nm-erhvervet () ----------------------------------------------------- FRML _DJ_D rpimnme = 0.25*rpimnme(-1) + 0.75*(pimnm/pimnm(-1)-1) $ FRML _DJRD ycmnm = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmnm + (Knmnm(-1)+0.5*Inmnm)*((1-tsdsu1)*iwlo-0.5*rpimnme) ) $ FRML _D uimnm = ycmnm / (0.5*fKmnm(-1)+0.5*fKmnm) $ FRML _DJRD fkmnmw1 = (1/dtfkmnm1)*0.27303**(0.29399/(1-0.29399)) *((fXnm/170085.00000)/1.09775) *( ( ((lnm1*285.85101)/(uimnm*89217.00000)) *(dtfkmnm1/dthqnm1) ) **(1-0.29399) *((1-0.27303)/0.27303)**0.29399+1 ) **(0.29399/(1-0.29399))*89217.00000 $ FRML _SJRDF Dlog(fKmnm) = 0.16872*Dlog(fKmnmw1) + 0.20000*(log(fKmnmw1(-1))-log(fKmnm(-1))) + rofKmnm1 *( Dlog(fKmnm(-1)) -0.16872*Dlog(fKmnmw1(-1)) -0.20000*(log(fKmnmw1(-2))-log(fKmnm(-2))) ) $ FRML _DJRD fKmnmk = fKmnm $ FRML _KJRD fImnm = kfImnm * ( Dif(fKmnm) + bivmnm*fKmnm(-1) ) $ FRML _I Imnm = fImnm*pimnm $ FRML _GJ_D Oknmnm = (pimnm/pimnm(-1)-1) * ( Knmnm(-1) + 0.5*Inmnm ) $ FRML _GJRD Invmnm = (pimnm/(0.5*pimnm(-1)+0.5*pimnm))*binvmnm*Knmnm(-1) $ FRML _I Inmnm = Imnm-Invmnm $ FRML _I Knmnm = Knmnm(-1) + Inmnm + oKnmnm $ FRML _DJRD HQnmn1 = (1/dthqnm1) *( (1/(1-0.27303)) *((fXnm/170085.00000)/1.09775) **(-(1/0.29399-1)) -(0.27303/(1-0.27303)) *(dtfkmnm1*fKmnmk/89217.00000)**(-(1/0.29399-1)) ) **(-(1/(1/0.29399-1)))*285.85101 $ FRML _SJRDF log(HQnm1) = 0.58743*(log(HQnmn1)-log(Hgnm))+log(Hgnm) + (1-0.58743+(-0.14880)) *(log(HQnmn1(-1))-log(Hgnm(-1))) - (-0.14880)*(log(HQnmn1(-2))-log(Hgnm(-2))) + rohqnm1 *( log(HQnm1(-1)) -( 0.58743*(log(HQnmn1(-1))-log(Hgnm(-1))) +(1-0.58743+(-0.14880)) *(log(HQnmn1(-2))-log(Hgnm(-2)))-(-0.14880) *(log(HQnmn1(-3))-log(Hgnm(-3)))+log(Hgnm(-1)) ) ) $ FRML _DJRD 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 _DJR lnm1 = (Ywnm1+siqnml) /(Qwnm1*Hgwnm)*1000 $ FRML _DJRD HQnmw1 = (1/dthqnm1)*(1-0.27303)**(0.29399/(1-0.29399)) *((fXnm/170085.00000)/1.09775) *( ( ((uimnm*89217.00000)/(lnm1*285.85101)) *(dthqnm1/dtfkmnm1) ) **(1-0.29399) *(0.27303/(1-0.27303))**0.29399+1 ) **(0.29399/(1-0.29399))*285.85101 $ () ----------------------------------------------------- () nt-erhvervet () ----------------------------------------------------- FRML _DJ_D rpimnte = 0.25*rpimnte(-1) + 0.75*(pimnt/pimnt(-1)-1) $ FRML _DJRD ycmnt = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmnt + (Knmnt(-1)+0.5*Inmnt)*((1-tsdsu1)*iwlo-0.5*rpimnte) ) $ FRML _D uimnt = ycmnt / (0.5*fKmnt(-1)+0.5*fKmnt) $ FRML _DJRD fkmntw1 = (1/dtfkmnt1)*0.49605**(0.28450/(1-0.28450)) *((fXnt/17358.00000)/1.09363) *( ( ((lnt1*27.73400)/(uimnt*6482.00000)) *(dtfkmnt1/dthqnt1) ) **(1-0.28450) *((1-0.49605)/0.49605)**0.28450+1 ) **(0.28450/(1-0.28450))*6482.00000 $ FRML _SJRDF Dlog(fKmnt) = 0.17888*Dlog(fKmntw1) + 0.28589*(log(fKmntw1(-1))-log(fKmnt(-1))) + rofKmnt1 *( Dlog(fKmnt(-1)) -0.17888*Dlog(fKmntw1(-1)) -0.28589*(log(fKmntw1(-2))-log(fKmnt(-2))) ) $ FRML _DJRD fKmntk = fKmnt $ FRML _KJRD fImnt = kfImnt * ( Dif(fKmnt) + bivmnt*fKmnt(-1) ) $ FRML _I Imnt = fImnt*pimnt $ FRML _GJ_D Oknmnt = (pimnt/pimnt(-1)-1) * ( Knmnt(-1) + 0.5*Inmnt ) $ FRML _GJRD Invmnt = (pimnt/(0.5*pimnt(-1)+0.5*pimnt))*binvmnt*Knmnt(-1) $ FRML _I Inmnt = Imnt-Invmnt $ FRML _I Knmnt = Knmnt(-1) + Inmnt + oKnmnt $ FRML _DJRD HQntn1 = (1/dthqnt1) *( (1/(1-0.49605)) *((fXnt/17358.00000)/1.09363) **(-(1/0.28450-1)) -(0.49605/(1-0.49605)) *(dtfkmnt1*fKmntk/6482.00000)**(-(1/0.28450-1)) ) **(-(1/(1/0.28450-1)))*27.73400 $ FRML _SJRDF log(HQnt1) = 0.39777*(log(HQntn1)-log(Hgnt))+log(Hgnt) + (1-0.39777+(-0.20928)) *(log(HQntn1(-1))-log(Hgnt(-1))) - (-0.20928)*(log(HQntn1(-2))-log(Hgnt(-2))) + rohqnt1 *( log(HQnt1(-1)) -( 0.39777*(log(HQntn1(-1))-log(Hgnt(-1))) +(1-0.39777+(-0.20928)) *(log(HQntn1(-2))-log(Hgnt(-2)))-(-0.20928) *(log(HQntn1(-3))-log(Hgnt(-3)))+log(Hgnt(-1)) ) ) $ FRML _DJRD 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 _DJR lnt1 = (Ywnt1+siqntl) /(Qwnt1*Hgwnt)*1000 $ FRML _DJRD HQntw1 = (1/dthqnt1)*(1-0.49605)**(0.28450/(1-0.28450)) *((fXnt/17358.00000)/1.09363) *( ( ((uimnt*6482.00000)/(lnt1*27.73400)) *(dthqnt1/dtfkmnt1) ) **(1-0.28450) *(0.49605/(1-0.49605))**0.28450+1 ) **(0.28450/(1-0.28450))*27.73400 $ () ----------------------------------------------------- () nk-erhvervet () ----------------------------------------------------- FRML _DJ_D rpimnke = 0.25*rpimnke(-1) + 0.75*(pimnk/pimnk(-1)-1) $ FRML _DJRD ycmnk = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmnk + (Knmnk(-1)+0.5*Inmnk)*((1-tsdsu1)*iwlo-0.5*rpimnke) ) $ FRML _D uimnk = ycmnk / (0.5*fKmnk(-1)+0.5*fKmnk) $ FRML _DJRD fkmnkw1 = (1/dtfkmnk1)*0.27552**(0.33760/(1-0.33760)) *((fXnk/75161.00000)/1.06813) *( ( ((lnk1*90.40800)/(uimnk*61857.62500)) *(dtfkmnk1/dthqnk1) ) **(1-0.33760) *((1-0.27552)/0.27552)**0.33760+1 ) **(0.33760/(1-0.33760))*61857.62500 $ FRML _SJRDF Dlog(fKmnk) = 0.10000*Dlog(fKmnkw1) + 0.20000*(log(fKmnkw1(-1))-log(fKmnk(-1))) + rofKmnk1 *( Dlog(fKmnk(-1)) -0.10000*Dlog(fKmnkw1(-1)) -0.20000*(log(fKmnkw1(-2))-log(fKmnk(-2))) ) $ FRML _DJRD fKmnkk = fKmnk $ FRML _KJRD fImnk = kfImnk * ( Dif(fKmnk) + bivmnk*fKmnk(-1) ) $ FRML _I Imnk = fImnk*pimnk $ FRML _GJ_D Oknmnk = (pimnk/pimnk(-1)-1) * ( Knmnk(-1) + 0.5*Inmnk ) $ FRML _GJRD Invmnk = (pimnk/(0.5*pimnk(-1)+0.5*pimnk))*binvmnk*Knmnk(-1) $ FRML _I Inmnk = Imnk-Invmnk $ FRML _I Knmnk = Knmnk(-1) + Inmnk + oKnmnk $ FRML _DJRD HQnkn1 = (1/dthqnk1) *( (1/(1-0.27552)) *((fXnk/75161.00000)/1.06813) **(-(1/0.33760-1)) -(0.27552/(1-0.27552)) *(dtfkmnk1*fKmnkk/61857.62500)**(-(1/0.33760-1)) ) **(-(1/(1/0.33760-1)))*90.40800 $ FRML _SJRDF log(HQnk1) = 0.47789*(log(HQnkn1)-log(Hgnk))+log(Hgnk) + (1-0.47789+(-0.23319)) *(log(HQnkn1(-1))-log(Hgnk(-1))) - (-0.23319)*(log(HQnkn1(-2))-log(Hgnk(-2))) + rohqnk1 *( log(HQnk1(-1)) -( 0.47789*(log(HQnkn1(-1))-log(Hgnk(-1))) +(1-0.47789+(-0.23319)) *(log(HQnkn1(-2))-log(Hgnk(-2)))-(-0.23319) *(log(HQnkn1(-3))-log(Hgnk(-3)))+log(Hgnk(-1)) ) ) $ FRML _DJRD 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 _DJR lnk1 = (Ywnk1+siqnkl) /(Qwnk1*Hgwnk)*1000 $ FRML _DJRD HQnkw1 = (1/dthqnk1)*(1-0.27552)**(0.33760/(1-0.33760)) *((fXnk/75161.00000)/1.06813) *( ( ((uimnk*61857.62500)/(lnk1*90.40800)) *(dthqnk1/dtfkmnk1) ) **(1-0.33760) *(0.27552/(1-0.27552))**0.33760+1 ) **(0.33760/(1-0.33760))*90.40800 $ () ----------------------------------------------------- () nq-erhvervet () ----------------------------------------------------- FRML _DJ_D rpimnqe = 0.25*rpimnqe(-1) + 0.75*(pimnq/pimnq(-1)-1) $ FRML _DJRD ycmnq = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmnq + (Knmnq(-1)+0.5*Inmnq)*((1-tsdsu1)*iwlo-0.5*rpimnqe) ) $ FRML _D uimnq = ycmnq / (0.5*fKmnq(-1)+0.5*fKmnq) $ FRML _DJRD fkmnqw1 = (1/dtfkmnq1)*0.29729**(0.27128/(1-0.27128)) *((fXnq/86920.00000)/1.07949) *( ( ((lnq1*153.12399)/(uimnq*60642.41016)) *(dtfkmnq1/dthqnq1) ) **(1-0.27128) *((1-0.29729)/0.29729)**0.27128+1 ) **(0.27128/(1-0.27128))*60642.41016 $ FRML _SJRDF Dlog(fKmnq) = 0.11664*Dlog(fKmnqw1) + 0.26607*(log(fKmnqw1(-1))-log(fKmnq(-1))) + rofKmnq1 *( Dlog(fKmnq(-1)) -0.11664*Dlog(fKmnqw1(-1)) -0.26607*(log(fKmnqw1(-2))-log(fKmnq(-2))) ) $ FRML _DJRD fKmnqk = fKmnq $ FRML _KJRD fImnq = kfImnq * ( Dif(fKmnq) + bivmnq*fKmnq(-1) ) $ FRML _I Imnq = fImnq*pimnq $ FRML _GJ_D Oknmnq = (pimnq/pimnq(-1)-1) * ( Knmnq(-1) + 0.5*Inmnq ) $ FRML _GJRD Invmnq = (pimnq/(0.5*pimnq(-1)+0.5*pimnq))*binvmnq*Knmnq(-1) $ FRML _I Inmnq = Imnq-Invmnq $ FRML _I Knmnq = Knmnq(-1) + Inmnq + oKnmnq $ FRML _DJRD HQnqn1 = (1/dthqnq1) *( (1/(1-0.29729)) *((fXnq/86920.00000)/1.07949) **(-(1/0.27128-1)) -(0.29729/(1-0.29729)) *(dtfkmnq1*fKmnqk/60642.41016)**(-(1/0.27128-1)) ) **(-(1/(1/0.27128-1)))*153.12399 $ FRML _SJRDF log(HQnq1) = 0.55180*(log(HQnqn1)-log(Hgnq))+log(Hgnq) + (1-0.55180+(-0.13581)) *(log(HQnqn1(-1))-log(Hgnq(-1))) - (-0.13581)*(log(HQnqn1(-2))-log(Hgnq(-2))) + rohqnq1 *( log(HQnq1(-1)) -( 0.55180*(log(HQnqn1(-1))-log(Hgnq(-1))) +(1-0.55180+(-0.13581)) *(log(HQnqn1(-2))-log(Hgnq(-2)))-(-0.13581) *(log(HQnqn1(-3))-log(Hgnq(-3)))+log(Hgnq(-1)) ) ) $ FRML _DJRD 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 _DJR lnq1 = (Ywnq1+siqnql) /(Qwnq1*Hgwnq)*1000 $ FRML _DJRD HQnqw1 = (1/dthqnq1)*(1-0.29729)**(0.27128/(1-0.27128)) *((fXnq/86920.00000)/1.07949) *( ( ((uimnq*60642.41016)/(lnq1*153.12399)) *(dthqnq1/dtfkmnq1) ) **(1-0.27128) *(0.29729/(1-0.29729))**0.27128+1 ) **(0.27128/(1-0.27128))*153.12399 $ () ----------------------------------------------------- () b-erhvervet () ----------------------------------------------------- FRML _DJ_D rpimbe = 0.25*rpimbe(-1) + 0.75*(pimb/pimb(-1)-1) $ FRML _DJRD ycmb = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmb + (Knmb(-1)+0.5*Inmb)*((1-tsdsu1)*iwlo-0.5*rpimbe) ) $ FRML _D uimb = ycmb / (0.5*fKmb(-1)+0.5*fKmb) $ FRML _DJRD fkmbw1 = (1/dtfkmb1)*0.11696**(0.25749/(1-0.25749)) *((fXb/153175.00000)/1.02076) *( ( ((lb1*290.47601)/(uimb*50487.00000)) *(dtfkmb1/dthqb1) ) **(1-0.25749) *((1-0.11696)/0.11696)**0.25749+1 ) **(0.25749/(1-0.25749))*50487.00000 $ FRML _SJRDF Dlog(fKmb) = 0.29590*Dlog(fKmbw1) + 0.25517*(log(fKmbw1(-1))-log(fKmb(-1))) + rofKmb1 *( Dlog(fKmb(-1)) -0.29590*Dlog(fKmbw1(-1)) -0.25517*(log(fKmbw1(-2))-log(fKmb(-2))) ) $ FRML _DJRD fKmbk = fKmb $ FRML _KJRD fImb = kfImb * ( Dif(fKmb) + bivmb*fKmb(-1) ) $ FRML _I Imb = fImb*pimb $ FRML _GJ_D Oknmb = (pimb/pimb(-1)-1) * ( Knmb(-1) + 0.5*Inmb ) $ FRML _GJRD Invmb = (pimb/(0.5*pimb(-1)+0.5*pimb))*binvmb*Knmb(-1) $ FRML _I Inmb = Imb-Invmb $ FRML _I Knmb = Knmb(-1) + Inmb + oKnmb $ FRML _DJRD HQbn1 = (1/dthqb1) *( (1/(1-0.11696)) *((fXb/153175.00000)/1.02076) **(-(1/0.25749-1)) -(0.11696/(1-0.11696)) *(dtfkmb1*fKmbk/50487.00000)**(-(1/0.25749-1)) ) **(-(1/(1/0.25749-1)))*290.47601 $ FRML _SJRDF log(HQb1) = 0.75079*(log(HQbn1)-log(Hgb))+log(Hgb) + (1-0.75079+(-0.18091)) *(log(HQbn1(-1))-log(Hgb(-1))) - (-0.18091)*(log(HQbn1(-2))-log(Hgb(-2))) + rohqb1 *( log(HQb1(-1)) -( 0.75079*(log(HQbn1(-1))-log(Hgb(-1))) +(1-0.75079+(-0.18091)) *(log(HQbn1(-2))-log(Hgb(-2)))-(-0.18091) *(log(HQbn1(-3))-log(Hgb(-3)))+log(Hgb(-1)) ) ) $ FRML _DJRD 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 _DJR lb1 = (Ywb1+siqbl) /(Qwb1*Hgwb)*1000 $ FRML _DJRD HQbw1 = (1/dthqb1)*(1-0.11696)**(0.25749/(1-0.25749)) *((fXb/153175.00000)/1.02076) *( ( ((uimb*50487.00000)/(lb1*290.47601)) *(dthqb1/dtfkmb1) ) **(1-0.25749) *(0.11696/(1-0.11696))**0.25749+1 ) **(0.25749/(1-0.25749))*290.47601 $ () ----------------------------------------------------- () qh-erhvervet () ----------------------------------------------------- FRML _DJ_D rpimqhe = 0.25*rpimqhe(-1) + 0.75*(pimqh/pimqh(-1)-1) $ FRML _DJRD ycmqh = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmqh + (Knmqh(-1)+0.5*Inmqh)*((1-tsdsu1)*iwlo-0.5*rpimqhe) ) $ FRML _D uimqh = ycmqh / (0.5*fKmqh(-1)+0.5*fKmqh) $ FRML _DJRD fkmqhw1 = (1/dtfkmqh1)*0.12654**(0.099370/(1-0.099370)) *((fXqh/228529.00000)/1.10133) *( ( ((lqh1*614.19702)/(uimqh*159317.90625)) *(dtfkmqh1/dthqqh1) ) **(1-0.099370) *((1-0.12654)/0.12654)**0.099370+1 ) **(0.099370/(1-0.099370))*159317.90625 $ FRML _SJRDF Dlog(fKmqh) = 0.30037*Dlog(fKmqhw1) + 0.51413*(log(fKmqhw1(-1))-log(fKmqh(-1))) + rofKmqh1 *( Dlog(fKmqh(-1)) -0.30037*Dlog(fKmqhw1(-1)) -0.51413*(log(fKmqhw1(-2))-log(fKmqh(-2))) ) $ FRML _DJRD fKmqhk = fKmqh $ FRML _KJRD fImqh = kfImqh * ( Dif(fKmqh) + bivmqh*fKmqh(-1) ) $ FRML _I Imqh = fImqh*pimqh $ FRML _GJ_D Oknmqh = (pimqh/pimqh(-1)-1) * ( Knmqh(-1) + 0.5*Inmqh ) $ FRML _GJRD Invmqh = (pimqh/(0.5*pimqh(-1)+0.5*pimqh))*binvmqh*Knmqh(-1) $ FRML _I Inmqh = Imqh-Invmqh $ FRML _I Knmqh = Knmqh(-1) + Inmqh + oKnmqh $ FRML _DJRD HQqhn1 = (1/dthqqh1) *( (1/(1-0.12654)) *((fXqh/228529.00000)/1.10133) **(-(1/0.099370-1)) -(0.12654/(1-0.12654)) *(dtfkmqh1*fKmqhk/159317.90625)**(-(1/0.099370-1)) ) **(-(1/(1/0.099370-1)))*614.19702 $ FRML _SJRDF log(HQqh1) = 0.48881*(log(HQqhn1)-log(Hgqh))+log(Hgqh) + (1-0.48881+(-0.27444)) *(log(HQqhn1(-1))-log(Hgqh(-1))) - (-0.27444)*(log(HQqhn1(-2))-log(Hgqh(-2))) + rohqqh1 *( log(HQqh1(-1)) -( 0.48881*(log(HQqhn1(-1))-log(Hgqh(-1))) +(1-0.48881+(-0.27444)) *(log(HQqhn1(-2))-log(Hgqh(-2)))-(-0.27444) *(log(HQqhn1(-3))-log(Hgqh(-3)))+log(Hgqh(-1)) ) ) $ FRML _DJRD 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 _DJR lqh1 = (Ywqh1+siqqhl) /(Qwqh1*Hgwqh)*1000 $ FRML _DJRD HQqhw1 = (1/dthqqh1)*(1-0.12654)**(0.099370/(1-0.099370)) *((fXqh/228529.00000)/1.10133) *( ( ((uimqh*159317.90625)/(lqh1*614.19702)) *(dthqqh1/dtfkmqh1) ) **(1-0.099370) *(0.12654/(1-0.12654))**0.099370+1 ) **(0.099370/(1-0.099370))*614.19702 $ () ----------------------------------------------------- () qs-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimqse = 0.25*rpimqse(-1) + 0.75*(pimqs/pimqs(-1)-1) $ FRML _DJRD ycmqs = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmqs + (Knmqs(-1)+0.5*Inmqs)*((1-tsdsu1)*iwlo-0.5*rpimqse) ) $ FRML _D uimqs = ycmqs / (0.5*fKmqs(-1)+0.5*fKmqs) $ FRML _DJRD fkmqsw1 = (1/dtfkmqs1)*0.87009**(0.10000/(1-0.10000)) *((fXqs/93403.00000)/1.20750) *( ( ((lqs1*34.72500)/(uimqs*133477.00000)) *(dtfkmqs1/dthqqs1) ) **(1-0.10000) *((1-0.87009)/0.87009)**0.10000+1 ) **(0.10000/(1-0.10000))*133477.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 _KJRD fImqs = kfImqs * ( Dif(fKmqs) + bivmqs*fKmqs(-1) ) $ FRML _I Imqs = fImqs*pimqs $ FRML _GJ_D Oknmqs = (pimqs/pimqs(-1)-1) * ( Knmqs(-1) + 0.5*Inmqs ) $ FRML _GJRD Invmqs = (pimqs/(0.5*pimqs(-1)+0.5*pimqs))*binvmqs*Knmqs(-1) $ FRML _I Inmqs = Imqs-Invmqs $ FRML _I Knmqs = Knmqs(-1) + Inmqs + oKnmqs $ FRML _DJRD HQqsw1 = (1/dthqqs1)*(1-0.87009)**(0.10000/(1-0.10000)) *((fXqs/93403.00000)/1.20750) *( ( ((uimqs*133477.00000)/(lqs1*34.72500)) *(dthqqs1/dtfkmqs1) ) **(1-0.10000) *(0.87009/(1-0.87009))**0.10000+1 ) **(0.10000/(1-0.10000))*34.72500 $ 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 _DJRD 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 _DJR lqs1 = (Ywqs1+siqqsl) /(Qwqs1*Hgwqs)*1000 $ () ----------------------------------------------------- () qt-erhvervet () ----------------------------------------------------- FRML _DJ_D rpimqte = 0.25*rpimqte(-1) + 0.75*(pimqt/pimqt(-1)-1) $ FRML _DJRD ycmqt = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmqt + (Knmqt(-1)+0.5*Inmqt)*((1-tsdsu1)*iwlo-0.5*rpimqte) ) $ FRML _D uimqt = ycmqt / (0.5*fKmqt(-1)+0.5*fKmqt) $ FRML _DJRD fkmqtw1 = (1/dtfkmqt1)*0.51091**(0.30910/(1-0.30910)) *((fXqt/155453.00000)/1.04963) *( ( ((lqt1*292.31201)/(uimqt*162944.00000)) *(dtfkmqt1/dthqqt1) ) **(1-0.30910) *((1-0.51091)/0.51091)**0.30910+1 ) **(0.30910/(1-0.30910))*162944.00000 $ FRML _SJRDF Dlog(fKmqt) = 0.15064*Dlog(fKmqtw1) + 0.31559*(log(fKmqtw1(-1))-log(fKmqt(-1))) + rofKmqt1 *( Dlog(fKmqt(-1)) -0.15064*Dlog(fKmqtw1(-1)) -0.31559*(log(fKmqtw1(-2))-log(fKmqt(-2))) ) $ FRML _DJRD fKmqtk = fKmqt $ FRML _KJRD fImqt = kfImqt * ( Dif(fKmqt) + bivmqt*fKmqt(-1) ) $ FRML _I Imqt = fImqt*pimqt $ FRML _GJ_D Oknmqt = (pimqt/pimqt(-1)-1) * ( Knmqt(-1) + 0.5*Inmqt ) $ FRML _GJRD Invmqt = (pimqt/(0.5*pimqt(-1)+0.5*pimqt))*binvmqt*Knmqt(-1) $ FRML _I Inmqt = Imqt-Invmqt $ FRML _I Knmqt = Knmqt(-1) + Inmqt + oKnmqt $ FRML _DJRD HQqtn1 = (1/dthqqt1) *( (1/(1-0.51091)) *((fXqt/155453.00000)/1.04963) **(-(1/0.30910-1)) -(0.51091/(1-0.51091)) *(dtfkmqt1*fKmqtk/162944.00000)**(-(1/0.30910-1)) ) **(-(1/(1/0.30910-1)))*292.31201 $ FRML _SJRDF log(HQqt1) = 0.54668*(log(HQqtn1)-log(Hgqt))+log(Hgqt) + (1-0.54668+(-0.31433)) *(log(HQqtn1(-1))-log(Hgqt(-1))) - (-0.31433)*(log(HQqtn1(-2))-log(Hgqt(-2))) + rohqqt1 *( log(HQqt1(-1)) -( 0.54668*(log(HQqtn1(-1))-log(Hgqt(-1))) +(1-0.54668+(-0.31433)) *(log(HQqtn1(-2))-log(Hgqt(-2)))-(-0.31433) *(log(HQqtn1(-3))-log(Hgqt(-3)))+log(Hgqt(-1)) ) ) $ FRML _DJRD 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 _DJR lqt1 = (Ywqt1+siqqtl) /(Qwqt1*Hgwqt)*1000 $ FRML _DJRD HQqtw1 = (1/dthqqt1)*(1-0.51091)**(0.30910/(1-0.30910)) *((fXqt/155453.00000)/1.04963) *( ( ((uimqt*162944.00000)/(lqt1*292.31201)) *(dthqqt1/dtfkmqt1) ) **(1-0.30910) *(0.51091/(1-0.51091))**0.30910+1 ) **(0.30910/(1-0.30910))*292.31201 $ () ----------------------------------------------------- () qf-erhvervet () ----------------------------------------------------- () FRML _DJ_D rpimqfe = 0.25*rpimqfe(-1) + 0.75*(pimqf/pimqf(-1)-1) $ FRML _DJRD ycmqf = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmqf + (Knmqf(-1)+0.5*Inmqf)*((1-tsdsu1)*iwlo-0.5*rpimqfe) ) $ FRML _D uimqf = ycmqf / (0.5*fKmqf(-1)+0.5*fKmqf) $ FRML _DJRD fkmqfw1 = (1/dtfkmqf1)*0.35737**(0.10000/(1-0.10000)) *((fXqf/89354.00000)/1.13369) *( ( ((lqf1*118.43400)/(uimqf*38047.00000)) *(dtfkmqf1/dthqqf1) ) **(1-0.10000) *((1-0.35737)/0.35737)**0.10000+1 ) **(0.10000/(1-0.10000))*38047.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 _KJRD fImqf = kfImqf * ( Dif(fKmqf) + bivmqf*fKmqf(-1) ) $ FRML _I Imqf = fImqf*pimqf $ FRML _GJ_D Oknmqf = (pimqf/pimqf(-1)-1) * ( Knmqf(-1) + 0.5*Inmqf ) $ FRML _GJRD Invmqf = (pimqf/(0.5*pimqf(-1)+0.5*pimqf))*binvmqf*Knmqf(-1) $ FRML _I Inmqf = Imqf-Invmqf $ FRML _I Knmqf = Knmqf(-1) + Inmqf + oKnmqf $ FRML _DJRD HQqfw1 = (1/dthqqf1)*(1-0.35737)**(0.10000/(1-0.10000)) *((fXqf/89354.00000)/1.13369) *( ( ((uimqf*38047.00000)/(lqf1*118.43400)) *(dthqqf1/dtfkmqf1) ) **(1-0.10000) *(0.35737/(1-0.35737))**0.10000+1 ) **(0.10000/(1-0.10000))*118.43400 $ 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 _DJRD 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 _DJR lqf1 = (Ywqf1+siqqfl) /(Qwqf1*Hgwqf)*1000 $ () ----------------------------------------------------- () qq-erhvervet () ----------------------------------------------------- FRML _DJ_D rpimqqe = 0.25*rpimqqe(-1) + 0.75*(pimqq/pimqq(-1)-1) $ FRML _DJRD ycmqq = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmqq + (Knmqq(-1)+0.5*Inmqq)*((1-tsdsu1)*iwlo-0.5*rpimqqe) ) $ FRML _D uimqq = ycmqq / (0.5*fKmqq(-1)+0.5*fKmqq) $ FRML _DJRD fkmqqw1 = (1/dtfkmqq1)*0.28818**(0.40000/(1-0.40000)) *((fXqq/352530.00000)/0.96152) *( ( ((lqq1*847.56500)/(uimqq*218851.56250)) *(dtfkmqq1/dthqqq1) ) **(1-0.40000) *((1-0.28818)/0.28818)**0.40000+1 ) **(0.40000/(1-0.40000))*218851.56250 $ FRML _SJRDF Dlog(fKmqq) = 0.099435*Dlog(fKmqqw1) + 0.25864*(log(fKmqqw1(-1))-log(fKmqq(-1))) + rofKmqq1 *( Dlog(fKmqq(-1)) -0.099435*Dlog(fKmqqw1(-1)) -0.25864*(log(fKmqqw1(-2))-log(fKmqq(-2))) ) $ FRML _DJRD fKmqqk = fKmqq $ FRML _KJRD fImqq = kfImqq * ( Dif(fKmqq) + bivmqq*fKmqq(-1) ) $ FRML _I Imqq = fImqq*pimqq $ FRML _GJ_D Oknmqq = (pimqq/pimqq(-1)-1) * ( Knmqq(-1) + 0.5*Inmqq ) $ FRML _GJRD Invmqq = (pimqq/(0.5*pimqq(-1)+0.5*pimqq))*binvmqq*Knmqq(-1) $ FRML _I Inmqq = Imqq-Invmqq $ FRML _I Knmqq = Knmqq(-1) + Inmqq + oKnmqq $ FRML _DJRD HQqqn1 = (1/dthqqq1) *( (1/(1-0.28818)) *((fXqq/352530.00000)/0.96152) **(-(1/0.40000-1)) -(0.28818/(1-0.28818)) *(dtfkmqq1*fKmqqk/218851.56250)**(-(1/0.40000-1)) ) **(-(1/(1/0.40000-1)))*847.56500 $ FRML _SJRDF log(HQqq1) = 0.47796*(log(HQqqn1)-log(Hgqq))+log(Hgqq) + (1-0.47796+(-0.10580)) *(log(HQqqn1(-1))-log(Hgqq(-1))) - (-0.10580)*(log(HQqqn1(-2))-log(Hgqq(-2))) + rohqqq1 *( log(HQqq1(-1)) -( 0.47796*(log(HQqqn1(-1))-log(Hgqq(-1))) +(1-0.47796+(-0.10580)) *(log(HQqqn1(-2))-log(Hgqq(-2)))-(-0.10580) *(log(HQqqn1(-3))-log(Hgqq(-3)))+log(Hgqq(-1)) ) ) $ FRML _DJRD 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 _DJR lqq1 = (Ywqq1+siqqql) /(Qwqq1*Hgwqq)*1000 $ FRML _DJRD HQqqw1 = (1/dthqqq1)*(1-0.28818)**(0.40000/(1-0.40000)) *((fXqq/352530.00000)/0.96152) *( ( ((uimqq*218851.56250)/(lqq1*847.56500)) *(dthqqq1/dtfkmqq1) ) **(1-0.40000) *(0.28818/(1-0.28818))**0.40000+1 ) **(0.40000/(1-0.40000))*847.56500 $ () ### EOHNE.F08 ### () () EL, GAS OG FJERNVARME (NE) () () Usercost FRML _DJRD Ycbne = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbne+(Knbne(-1)+0.5*Inbne)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibne = Ycbne/(0.5*fKbne(-1)+0.5*fKbne) $ FRML _DJ_D rpimnee = 0.25*rpimnee(-1) + 0.75*(pimne/pimne(-1)-1) $ FRML _DJRD ycmne = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmne + (Knmne(-1)+0.5*Inmne)*((1-tsdsu1)*iwlo-0.5*rpimnee) ) $ FRML _D uimne = ycmne / (0.5*fKmne(-1)+0.5*fKmne) $ () 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.12397)) *log( 1.09599**0.12397 * (pkzne1/dtfkzne1)**(1-0.12397) +0.000077003**0.12397 * (pvene/dtfvene1)**(1-0.12397) ) $ 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.12397*log(pkzne1/pwne2) - (1-0.12397)*log(dtfkzne1) + 0.076694*d81 + 0.12397*log(1.09599) $ FRML _SJRD Dlog(fKzne1) = 0.17828*Dlog(fXne) + 0.17828*(-0.12397)*Dlog(pkzne1/pwne2) - 0.30000*(1-0.12397)*Dlog(dtfkzne1) + 0.076694*Dif(d81) - 0.30000*(log(fKzne1(-1))-log(fKznew1(-1))) $ () ENERGI (E*, E) FRML _DJRD log(fVenew1) = log(fXne/1.00000) - 0.12397*log(pvene/pwne2) - (1-0.12397)*log(dtfvene1) + (-0.33779)*d81 + 0.12397*log(0.000077003) $ FRML _SJRDF Dlog(fVene) = 1.31078*Dlog(fXne) + 1.31078*(-0.12397)*Dlog(pvene/pwne2) - 0.46820*(1-0.12397)*Dlog(dtfvene1) + (-0.33779)*Dif(d81) - 0.46820*(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.17828*Dlog(fXne) + 0.17828*(-0.12397)*Dlog(pkzne1/pwne2) - 0.30000*(1-0.12397)*Dlog(dtfkzne1) + 0.076694*Dif(d81) - 0.30000*log(fKbne(-1)/fKbnew1(-1)) $ FRML _KJRD fIbne = kfibne*( Dif(fKbne) + bivbne*fKbne(-1) ) $ FRML _I Ibne = pibne*fIbne $ FRML _GJ_D Oknbne = (pibne/pibne(-1)-1)*( Knbne(-1) + 0.5*Inbne ) $ FRML _GJRD Invbne = (1+0.5*(pibne/pibne(-1)-1))*binvbne*Knbne(-1) $ FRML _I Inbne = Ibne-Invbne $ FRML _I Knbne = Knbne(-1) + Inbne + oKnbne $ () Maskinkapital FRML _DJRD fKmnew1 = bfkmne1*fKznew1*(dtfkzne1/dtfkmne1) $ FRML _GJRDF Dlog(fKmne) = Dlog(bfkmne1)+0.17828*Dlog(fXne) + 0.17828*(-0.12397)*Dlog(pkzne1/pwne2) - 0.30000*(1-0.12397)*Dlog(dtfkzne1) + 0.076694*Dif(d81) - 0.30000*log(fKmne(-1)/fKmnew1(-1)) $ FRML _KJRD fImne = kfImne * ( Dif(fKmne) + bivmne*fKmne(-1) ) $ FRML _I Imne = fImne*pimne $ FRML _GJ_D Oknmne = (pimne/pimne(-1)-1) * ( Knmne(-1) + 0.5*Inmne ) $ FRML _GJRD Invmne = (1+0.5*(pimne/pimne(-1)-1))*binvmne*Knmne(-1) $ FRML _I Inmne = Imne-Invmne $ FRML _I Knmne = Knmne(-1) + Inmne + oKnmne $ () Arbejdskraft FRML _DJRD HQnew1 = bhqne1*fKznew1*(dtfkzne1/dthqne1) $ FRML _GJRDF Dlog(HQne1) = Dlog(bhqne1)+0.17828*Dlog(fXne) + 0.17828*(-0.12397)*Dlog(pkzne1/pwne2) - 0.30000*(1-0.12397)*Dlog(dtfkzne1) + 0.076694*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.17828*Dlog(fXne) + 0.17828*(-0.12397)*Dlog(pkzne1/pwne2) - 0.30000*(1-0.12397)*Dlog(dtfkzne1) + 0.076694*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) $ FRML _I bywne1 = (Ywne1/(Yrne1+Ywne1))*(1-Dbyw)+Dbyw*Zbywne1 $ FRML _S pxne = (1-Dbyw)*((1-Dpxne)*((Exp(Log(pxne(-1)) +0.85453*Dlog(pwneve)*(pwneve(-1)/pxne(-1)) + (1-0.85453)*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 _KJRD fIme = kfime1*(1/dtfkme)*(dtfkme(-1)*fIme(-1)) *(fXe/fXe(-3))**(1/3) $ FRML _I Ime = fIme*pime $ FRML _GJRD fKme = fIme/kfime + (1-bivme)*fKme(-1) $ FRML _GJ_D Oknme = (pime/pime(-1)-1) * ( Knme(-1) + 0.5*Inme ) $ FRML _GJRD Invme = (1+0.5*(pime/pime(-1)-1))*binvme*Knme(-1) $ FRML _I Inme = Ime-Invme $ FRML _I Knme = Knme(-1) + Inme + oKnme $ FRML _DJ_D rpimee = 0.25*rpimee(-1) + 0.75*(pime/pime(-1)-1) $ FRML _DJRD ycme = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invme + (Knme(-1)+0.5*Inme)*((1-tsdsu1)*iwlo-0.5*rpimee) ) $ FRML _D uime = ycme / (0.5*fKme(-1)+0.5*fKme) $ FRML _DJRD Ycbe = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbe+(Knbe(-1)+0.5*Inbe)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibe = Ycbe/(0.5*fKbe(-1)+0.5*fKbe+D6680) $ FRML _G___ fKbe = (fIbe/kfibe + (1-bivbe)*fKbe(-1))*(1+JRfkbe)*(1-Dfkbe)+Dfkbe*Zfkbe $ FRML _I Ibe = fIbe*pibe $ FRML _GJ_D Oknbe = (pibe/pibe(-1)-1)*( Knbe(-1) + 0.5*Inbe ) $ FRML _GJRD Invbe = (1+0.5*(pibe/pibe(-1)-1))*binvbe*Knbe(-1) $ FRML _I Inbe = Ibe-Invbe $ FRML _I Knbe = Knbe(-1) + Inbe + oKnbe $ 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 _I Imh = fImh*pimh $ FRML _GJRD fKmh = fImh/kfimh + (1-bivmh)*fKmh(-1) $ FRML _GJ_D Oknmh = (pimh/pimh(-1)-1) * ( Knmh(-1) + 0.5*Inmh ) $ FRML _GJRD Invmh = (1+0.5*(pimh/pimh(-1)-1))*binvmh*Knmh(-1) $ FRML _I Inmh = Imh-Invmh $ FRML _I Knmh = Knmh(-1) + Inmh + oKnmh $ FRML _DJ_D rpimhe = 0.25*rpimhe(-1) + 0.75*(pimh/pimh(-1)-1) $ FRML _DJRD ycmh = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmh + (Knmh(-1)+0.5*Inmh)*((1-tsdsu1)*iwlo-0.5*rpimhe) ) $ FRML _D uimh = ycmh / (0.5*fKmh(-1)+0.5*fKmh) $ 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 _I Imo = fImo*pimo $ FRML _GJRD fKmo = fImo/kfimo + (1-bivmo)*fKmo(-1) $ FRML _GJ_D Oknmo = (pimo/pimo(-1)-1) * ( Knmo(-1) + 0.5*Inmo ) $ FRML _GJRD Invmo = (1+0.5*(pimo/pimo(-1)-1))*binvmo*Knmo(-1) $ FRML _I Inmo = Imo-Invmo $ FRML _I Knmo = Knmo(-1) + Inmo + oKnmo $ FRML _DJ_D rpimoe = 0.25*rpimoe(-1) + 0.75*(pimo/pimo(-1)-1) $ FRML _DJRD ycmo = (1-tsdsu1*bivmu)/(1-tsdsu1) *( Invmo + (Knmo(-1)+0.5*Inmo)*((1-tsdsu1)*iwlo-0.5*rpimoe) ) $ FRML _D uimo = ycmo / (0.5*fKmo(-1)+0.5*fKmo) $ FRML _GJRD fKbo = fIbo/kfibo + (1-bivbo)*fKbo(-1) $ FRML _I Ibo = fIbo*pibo $ FRML _GJ_D Oknbo = (pibo/pibo(-1)-1)*( Knbo(-1) + 0.5*Inbo ) $ FRML _GJRD Invbo = (1+0.5*(pibo/pibo(-1)-1))*binvbo*Knbo(-1) $ FRML _I Inbo = Ibo-Invbo $ FRML _I Knbo = Knbo(-1) + Inbo + oKnbo $ FRML _DJRD Ycbo = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbo+(Knbo(-1)+0.5*Inbo)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibo = Ycbo/(0.5*fKbo(-1)+0.5*fKbo) $ 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)*pwo(-1) +(Invmo/pimo)*pimo(-1) +(Invbo/pibo)*pibo(-1))/pyfo(-1) $ FRML _D pwo = pwo(-1)*(fYfo*pyfo-Invmo-Invbo) /(fYfo*pyfo(-1)-(Invmo/pimo)*pimo(-1)-(Invbo/pibo)*pibo(-1)) $ FRML _I fVo = fVeo+fVmo $ FRML _I fXo = (fYfo*pyfo(-1)+fVo*pvo(-1))/pxo(-1) $ FRML _I Yfo = Ywo2+(Invmo+Invbo)*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 _K Xo11 = Co+(Xo-pxo*foco)*kxo11 $ FRML _K Vo11 = Vo*kvo11 $ FRML _I Yfo11 = Xo11-Vo11 $ FRML _G Ywo11 = Yfo11-Ivo1-Siqo*ksiqo1 $ FRML _I fIo11 = (fImo11*pimo11(-1)+fIbo11*pibo11(-1))/pio11(-1) $ FRML _I pio11 = pio11(-1)*(Imo11+Ibo11)/(fImo11*pimo11(-1)+fIbo11*pibo11(-1)) $ FRML _K 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.F08 ### () () () FAKTOREFTERSPØRGSEL (BYGNINGSKAPITAL) () () INFLATIONSFORVENTNINGER FRML _DJ_D rpibpe = 0.75*rpibpe(-1) + 0.25*(pibp/pibp(-1)-1) $ () () LANDBRUG Mv. () FRML _DJRD Ycba = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invba+(Knba(-1)+0.5*Inba)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uiba = Ycba/(0.5*fKba(-1)+0.5*fKba) $ FRML _DJRDF LOG(fKbaw) = 1.25131+LOG(fXa-hostkor)+ (-0.12000)*LOG(uiba/pXa)-LOG(dtfkba) $ FRML _SJRDF DLOG(FKBA) = 0.040000*DLOG(fXa-hostkor)-0.1*(LOG(fKba(-1))- LOG(fKbaw(-1))) +rofkba*(DLog(fKba(-1))-(0.040000*DLog(fXa(-1)-hostkor(-1))-0.1*(LOG(fKba(-2)) - LOG(fKbaw(-2))))) $ FRML _KJRD fIba = kfiba*( Dif(fKba) + bivba*fKba(-1) ) $ FRML _I Iba = piba*fIba $ FRML _GJ_D Oknba = (piba/piba(-1)-1)*( Knba(-1) + 0.5*Inba ) $ FRML _GJRD Invba = (piba/(0.5*piba(-1)+0.5*piba))*binvba*Knba(-1) $ FRML _I Inba = Iba-Invba $ FRML _I Knba = Knba(-1) + Inba + oKnba $ () () OLIERAFFINADERIER () FRML _DJRD Ycbng = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbng+(Knbng(-1)+0.5*Inbng)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibng = Ycbng/(0.5*fKbng(-1)+0.5*fKbng) $ FRML _DJRDF LOG(fKbNGw) = -1.18791+LOG(fXNG)+ (-0.12000)*LOG(uibNG/pXNG)- LOG(dtfkbNG) $ FRML _SJRDF DLOG(FKBNG) = 0.040000*DLog(fXNG)-0.1*(LOG(fKbNG(-1)) - LOG(fKbNGw(-1))) +rofkbNG*(DLog(fKbNG(-1))-(0.040000*DLog(fXNG(-1))-0.1*(LOG(fKbNG(-2))-LOG(fKbNGw(-2))))) $ FRML _KJRD fIbng = kfibng*( Dif(fKbng) + bivbng*fKbng(-1) ) $ FRML _I Ibng = pibng*fIbng $ FRML _GJ_D Oknbng = (pibng/pibng(-1)-1)*( Knbng(-1) + 0.5*Inbng ) $ FRML _GJRD Invbng = (pibng/(0.5*pibng(-1)+0.5*pibng))*binvbng*Knbng(-1) $ FRML _I Inbng = Ibng-Invbng $ FRML _I Knbng = Knbng(-1) + Inbng + oKnbng $ () () NÆRINGSMIDDELINDUSTRI () FRML _DJRD Ycbnf = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbnf+(Knbnf(-1)+0.5*Inbnf)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibnf = Ycbnf/(0.5*fKbnf(-1)+0.5*fKbnf) $ FRML _DJRDF LOG(fKbNFw) = -1.01430+LOG(fXNF)+ (-0.12000)*LOG(uibNF/pXNF) - LOG(dtfkbNF) $ FRML _SJRDF DLOG(FKBNF) = 0.040000*DLog(fXNF)-0.1*(LOG(fKbNF(-1)) - LOG(fKbNFw(-1))) +rofkbNF*(DLog(fKbNF(-1))-(0.040000*DLog(fXNF(-1))-0.1*(LOG(fKbNF(-2))-LOG(fKbNFw(-2))))) $ FRML _KJRD fIbnf = kfibnf*( Dif(fKbnf) + bivbnf*fKbnf(-1) ) $ FRML _I Ibnf = pibnf*fIbnf $ FRML _GJ_D Oknbnf = (pibnf/pibnf(-1)-1)*( Knbnf(-1) + 0.5*Inbnf ) $ FRML _GJRD Invbnf = (pibnf/(0.5*pibnf(-1)+0.5*pibnf))*binvbnf*Knbnf(-1) $ FRML _I Inbnf = Ibnf-Invbnf $ FRML _I Knbnf = Knbnf(-1) + Inbnf + oKnbnf $ () () NYDELSESMIDDELINDUSTRI () FRML _DJRD Ycbnn = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbnn+(Knbnn(-1)+0.5*Inbnn)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibnn = Ycbnn/(0.5*fKbnn(-1)+0.5*fKbnn) $ FRML _DJRDF LOG(fKbNNw) = -1.47972+LOG(fXNN)+ (-0.12000)*LOG(uibNN/pXNN) - LOG(dtfkbNN) $ FRML _SJRDF DLOG(FKBNN) = 0.040000*DLog(fXNN)-0.1*(LOG(fKbNN(-1)) - LOG(fKbNNw(-1))) +rofkbNN*(DLog(fKbNN(-1))-(0.040000*DLog(fXNN(-1))-0.1*(LOG(fKbNN(-2))-LOG(fKbNNw(-2)))))$ FRML _KJRD fIbnn = kfibnn*( Dif(fKbnn) + bivbnn*fKbnn(-1) ) $ FRML _I Ibnn = pibnn*fIbnn $ FRML _GJ_D Oknbnn = (pibnn/pibnn(-1)-1)*( Knbnn(-1) + 0.5*Inbnn ) $ FRML _GJRD Invbnn = (pibnn/(0.5*pibnn(-1)+0.5*pibnn))*binvbnn*Knbnn(-1) $ FRML _I Inbnn = Ibnn-Invbnn $ FRML _I Knbnn = Knbnn(-1) + Inbnn + oKnbnn $ () () LEVERANDØRER TIL BYGGERI () FRML _DJRD Ycbnb = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbnb+(Knbnb(-1)+0.5*Inbnb)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibnb = Ycbnb/(0.5*fKbnb(-1)+0.5*fKbnb) $ FRML _DJRDF LOG(fKbNBw) = -0.79113+LOG(fXNB)+ (-0.12000)*LOG(uibNB/pXNB) - LOG(dtfkbNB) $ FRML _SJRDF DLOG(FKBNB) = 0.040000*DLog(fXNB)-0.1*(LOG(fKbNB(-1)) - LOG(fKbNBw(-1))) +rofkbNB*(DLog(fKbNB(-1))-(0.040000*DLog(fXNB(-1))-0.1*(LOG(fKbNB(-2))-LOG(fKbNBw(-2))))) $ FRML _KJRD fIbnb = kfibnb*( Dif(fKbnb) + bivbnb*fKbnb(-1) ) $ FRML _I Ibnb = pibnb*fIbnb $ FRML _GJ_D Oknbnb = (pibnb/pibnb(-1)-1)*( Knbnb(-1) + 0.5*Inbnb ) $ FRML _GJRD Invbnb = (pibnb/(0.5*pibnb(-1)+0.5*pibnb))*binvbnb*Knbnb(-1) $ FRML _I Inbnb = Ibnb-Invbnb $ FRML _I Knbnb = Knbnb(-1) + Inbnb + oKnbnb $ () () JERN- OG METALINDUSTRI () FRML _DJRD Ycbnm = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbnm+(Knbnm(-1)+0.5*Inbnm)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibnm = Ycbnm/(0.5*fKbnm(-1)+0.5*fKbnm) $ FRML _DJRDF LOG(fKbNMw) = -0.93188+LOG(fXNM)+ (-0.12000)*LOG(uibNM/pXNM)- LOG(dtfkbNM) $ FRML _SJRDF DLOG(FKBNM) = 0.040000*DLog(fXNM)-0.1*(LOG(fKbNM(-1)) - LOG(fKbNMw(-1))) +rofkbNM*(DLog(fKbNM(-1)) -(0.040000*DLog(fXNM(-1))-0.1*(LOG(fKbNM(-2))-LOG(fKbNMw(-2))))) $ FRML _KJRD fIbnm = kfibnm*( Dif(fKbnm) + bivbnm*fKbnm(-1) ) $ FRML _I Ibnm = pibnm*fIbnm $ FRML _GJ_D Oknbnm = (pibnm/pibnm(-1)-1)*( Knbnm(-1) + 0.5*Inbnm ) $ FRML _GJRD Invbnm = (pibnm/(0.5*pibnm(-1)+0.5*pibnm))*binvbnm*Knbnm(-1) $ FRML _I Inbnm = Ibnm-Invbnm $ FRML _I Knbnm = Knbnm(-1) + Inbnm + oKnbnm $ () () TRANSPORTMIDDELINDUSTRI () FRML _DJRD Ycbnt = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbnt+(Knbnt(-1)+0.5*Inbnt)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibnt = Ycbnt/(0.5*fKbnt(-1)+0.5*fKbnt) $ FRML _DJRDF LOG(fKbNTw) = -1.32441+LOG(fXNT)+ (-0.12000)*LOG(uibNT/pXNT) - LOG(dtfkbNT) $ FRML _SJRDF DLOG(FKBNT) = 0.040000*DLog(fXNT)-0.1*(LOG(fKbNT(-1)) - LOG(fKbNTw(-1))) +rofkbNT*(DLog(fKbNT(-1))-(0.040000*DLog(fXNT(-1))-0.1*(LOG(fKbNT(-2))-LOG(fKbNTw(-2))))) $ FRML _KJRD fIbnt = kfibnt*( Dif(fKbnt) + bivbnt*fKbnt(-1) ) $ FRML _I Ibnt = pibnt*fIbnt $ FRML _GJ_D Oknbnt = (pibnt/pibnt(-1)-1)*( Knbnt(-1) + 0.5*Inbnt ) $ FRML _GJRD Invbnt = (pibnt/(0.5*pibnt(-1)+0.5*pibnt))*binvbnt*Knbnt(-1) $ FRML _I Inbnt = Ibnt-Invbnt $ FRML _I Knbnt = Knbnt(-1) + Inbnt + oKnbnt $ () () KEMISK INDUSTRI Mv. () FRML _DJRD Ycbnk = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbnk+(Knbnk(-1)+0.5*Inbnk)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibnk = Ycbnk/(0.5*fKbnk(-1)+0.5*fKbnk) $ FRML _DJRDF LOG(fKbNKw) = -0.36620+LOG(fXNK)+ (-0.12000)*LOG(uibNK/pXNK)- LOG(dtfkbNK) $ FRML _SJRDF DLOG(FKBNK) = 0.040000*DLog(fXNK)-0.1*(LOG(fKbNK(-1)) - LOG(fKbNKw(-1))) +rofkbNK*(DLog(fKbNK(-1))-(0.040000*DLog(fXNK(-1))-0.1*(LOG(fKbNK(-2))-LOG(fKbNKw(-2))))) $ FRML _KJRD fIbnk = kfibnk*( Dif(fKbnk) + bivbnk*fKbnk(-1) ) $ FRML _I Ibnk = pibnk*fIbnk $ FRML _GJ_D Oknbnk = (pibnk/pibnk(-1)-1)*( Knbnk(-1) + 0.5*Inbnk ) $ FRML _GJRD Invbnk = (pibnk/(0.5*pibnk(-1)+0.5*pibnk))*binvbnk*Knbnk(-1) $ FRML _I Inbnk = Ibnk-Invbnk $ FRML _I Knbnk = Knbnk(-1) + Inbnk + oKnbnk $ () () ANDEN FREMSTILLINGSVIRKSOMHED () FRML _DJRD Ycbnq = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbnq+(Knbnq(-1)+0.5*Inbnq)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibnq = Ycbnq/(0.5*fKbnq(-1)+0.5*fKbnq) $ FRML _DJRDF LOG(fKbNQw) = -1.17281+LOG(fXNQ)+ (-0.12000)*LOG(uibNQ/pXNQ) - LOG(dtfkbNQ) $ FRML _SJRDF DLOG(FKBNQ) = 0.040000*DLog(fXNQ)-0.1*(LOG(fKbNQ(-1)) - LOG(fKbNQw(-1))) +rofkbNQ*(DLog(fKbNQ(-1))-(0.040000*DLog(fXNQ(-1)) -0.1*(LOG(fKbNQ(-2))-LOG(fKbNQw(-2)))))$ FRML _KJRD fIbnq = kfibnq*( Dif(fKbnq) + bivbnq*fKbnq(-1) ) $ FRML _I Ibnq = pibnq*fIbnq $ FRML _GJ_D Oknbnq = (pibnq/pibnq(-1)-1)*( Knbnq(-1) + 0.5*Inbnq ) $ FRML _GJRD Invbnq = (pibnq/(0.5*pibnq(-1)+0.5*pibnq))*binvbnq*Knbnq(-1) $ FRML _I Inbnq = Ibnq-Invbnq $ FRML _I Knbnq = Knbnq(-1) + Inbnq + oKnbnq $ () () BYGGE- OG ANLÆGSVIRKSOMHED () FRML _DJRD Ycbb = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbb+(Knbb(-1)+0.5*Inbb)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibb = Ycbb/(0.5*fKbb(-1)+0.5*fKbb) $ FRML _DJRDF LOG(fKbBw) = -1.60220+LOG(fXB)+ (0.00)*LOG(uibB/pXB) - LOG(dtfkbB) $ FRML _SJRDF DLOG(FKBB) = 0.040000*DLog(fXB) -0.1*(LOG(fKbB(-1)) - LOG(fKbBw(-1))) +rofkbB*(DLog(fKbB(-1))-(0.040000*DLog(fXB(-1)) -0.1*(LOG(fKbB(-2))-LOG(fKbBw(-2))))) $ FRML _KJRD fIbb = kfibb*( Dif(fKbb) + bivbb*fKbb(-1) ) $ FRML _I Ibb = pibb*fIbb $ FRML _GJ_D Oknbb = (pibb/pibb(-1)-1)*( Knbb(-1) + 0.5*Inbb ) $ FRML _GJRD Invbb = (pibb/(0.5*pibb(-1)+0.5*pibb))*binvbb*Knbb(-1) $ FRML _I Inbb = Ibb-Invbb $ FRML _I Knbb = Knbb(-1) + Inbb + oKnbb $ () () HANDEL () FRML _DJRD Ycbqh = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbqh+(Knbqh(-1)+0.5*Inbqh)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibqh = Ycbqh/(0.5*fKbqh(-1)+0.5*fKbqh) $ FRML _DJRDF LOG(fKbQHw) = 0.26369+LOG(fXQH)+ (0.000)*LOG(uibQH/pXQH)- LOG(dtfkbQH) $ FRML _SJRDF DLOG(FKBQH) = 0.040000*DLog(fXQH)-0.1*(LOG(fKbQH(-1)) - LOG(fKbQHw(-1))) +rofkbQH*(DLog(fKbQH(-1))-(0.040000*DLog(fXQH(-1))-0.1*(LOG(fKbQH(-2))-LOG(fKbQHw(-2)))))$ FRML _KJRD fIbqh = kfibqh*( Dif(fKbqh) + bivbqh*fKbqh(-1) ) $ FRML _I Ibqh = pibqh*fIbqh $ FRML _GJ_D Oknbqh = (pibqh/pibqh(-1)-1)*( Knbqh(-1) + 0.5*Inbqh ) $ FRML _GJRD Invbqh = (pibqh/(0.5*pibqh(-1)+0.5*pibqh))*binvbqh*Knbqh(-1) $ FRML _I Inbqh = Ibqh-Invbqh $ FRML _I Knbqh = Knbqh(-1) + Inbqh + oKnbqh $ () () SØTRANSPORT () FRML _DJRD Ycbqs = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbqs+(Knbqs(-1)+0.5*Inbqs)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibqs = Ycbqs/(0.5*fKbqs(-1)+0.5*fKbqs) $ FRML _DJRDF LOG(fKbqsw) = -1.32231+LOG(fXqs)+ (-0.12000)*LOG(uibqs/pXqs)- LOG(dtfkbqs) $ FRML _SJRDF DLOG(FKBqs) = 0.040000*DLog(fXqs) -0.1*(LOG(fKbqs(-1)) - LOG(fKbqsw(-1)))+0.14507*d9696 +rofkbqs*(DLog(fKbqs(-1))-(0.040000*DLog(fXqs(-1))-0.1*(LOG(fKbqs(-2))-LOG(fKbqsw(-2))))) $ FRML _KJRD fIbqs = kfibqs*( Dif(fKbqs) + bivbqs*fKbqs(-1) ) $ FRML _I Ibqs = pibqs*fIbqs $ FRML _GJ_D Oknbqs = (pibqs/pibqs(-1)-1)*( Knbqs(-1) + 0.5*Inbqs ) $ FRML _GJRD Invbqs = (pibqs/(0.5*pibqs(-1)+0.5*pibqs))*binvbqs*Knbqs(-1) $ FRML _I Inbqs = Ibqs-Invbqs $ FRML _I Knbqs = Knbqs(-1) + Inbqs + oKnbqs $ () () ANDEN TRANSPORT Mv. () FRML _DJRD Ycbqt = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbqt+(Knbqt(-1)+0.5*Inbqt)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibqt = Ycbqt/(0.5*fKbqt(-1)+0.5*fKbqt) $ FRML _DJRDF LOG(fKbQTw) = 0.58993+LOG(fXQT)+ (0.00)*LOG(uibQT/pXQT) - LOG(dtfkbQT) $ FRML _SJRDF DLOG(FKBQT) = 0.040000*DLog(fXQT) -0.1*(LOG(fKbQT(-1)) - LOG(fKbQTw(-1))) +rofkbQT*(DLog(fKbQT(-1))-(0.040000*DLog(fXQT(-1))-0.1*(LOG(fKbQT(-2))-LOG(fKbQTw(-2)))))$ FRML _KJRD fIbqt = kfibqt*( Dif(fKbqt) + bivbqt*fKbqt(-1) ) $ FRML _I Ibqt = pibqt*fIbqt $ FRML _GJ_D Oknbqt = (pibqt/pibqt(-1)-1)*( Knbqt(-1) + 0.5*Inbqt ) $ FRML _GJRD Invbqt = (pibqt/(0.5*pibqt(-1)+0.5*pibqt))*binvbqt*Knbqt(-1) $ FRML _I Inbqt = Ibqt-Invbqt $ FRML _I Knbqt = Knbqt(-1) + Inbqt + oKnbqt $ () () FINANSIEL VIRKSOMHED () FRML _DJRD Ycbqf = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbqf+(Knbqf(-1)+0.5*Inbqf)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibqf = Ycbqf/(0.5*fKbqf(-1)+0.5*fKbqf) $ FRML _DJRDF LOG(fKbQFw) = 1.26879+LOG(fXQF)+ (0.00)*LOG(uibQF/pXQF) - LOG(dtfkbQF) $ FRML _SJRDF DLOG(FKBQF) = 0.040000*DLog(fXQF) -0.1*(LOG(fKbQF(-1)) - LOG(fKbQFw(-1))) +rofkbQF*(DLog(fKbQF(-1))-(0.040000*DLog(fXQF(-1))-0.1*(LOG(fKbQF(-2))-LOG(fKbQFw(-2)))))$ FRML _KJRD fIbqf = kfibqf*( Dif(fKbqf) + bivbqf*fKbqf(-1) ) $ FRML _I Ibqf = pibqf*fIbqf $ FRML _GJ_D Oknbqf = (pibqf/pibqf(-1)-1)*( Knbqf(-1) + 0.5*Inbqf ) $ FRML _GJRD Invbqf = (pibqf/(0.5*pibqf(-1)+0.5*pibqf))*binvbqf*Knbqf(-1) $ FRML _I Inbqf = Ibqf-Invbqf $ FRML _I Knbqf = Knbqf(-1) + Inbqf + oKnbqf $ () () ANDRE TJENESTEYDENDE ERHVERV () FRML _DJRD Ycbqq = (1-tsdsu1*bivbu)/(1-tsdsu1) *(Invbqq+(Knbqq(-1)+0.5*Inbqq)*((1-tsdsu1)*iwbz+0.2*tqej-0.50*rpibpe)) $ FRML _D uibqq = Ycbqq/(0.5*fKbqq(-1)+0.5*fKbqq) $ FRML _DJRDF LOG(fKbQQw) = 0.51251+LOG(fXQQ)+ (-0.12000)*LOG(uibQQ/pXQQ) - LOG(dtfkbQQ) $ FRML _SJRDF DLOG(FKBQQ) = 0.040000*DLog(fXQQ)-0.1*(LOG(fKbQQ(-1)) - LOG(fKbQQw(-1))) +rofkbQQ*(DLog(fKbQQ(-1))-(0.040000*DLog(fXQQ(-1)) -0.1*(LOG(fKbQQ(-2))-LOG(fKbQQw(-2)))))$ FRML _KJRD fIbqq = kfibqq*( Dif(fKbqq) + bivbqq*fKbqq(-1) ) $ FRML _I Ibqq = pibqq*fIbqq $ FRML _GJ_D Oknbqq = (pibqq/pibqq(-1)-1)*( Knbqq(-1) + 0.5*Inbqq ) $ FRML _GJRD Invbqq = (pibqq/(0.5*pibqq(-1)+0.5*pibqq))*binvbqq*Knbqq(-1) $ FRML _I Inbqq = Ibqq-Invbqq $ FRML _I Knbqq = Knbqq(-1) + Inbqq + oKnbqq $ () ### ARBMARK.F08 ### () ARBEJDSMARKED () () () ARBEJDSLØSHED () () FRML _I Uaw = Ua1 - (Q1-Qw1) $ FRML _D Ul = Ua1 - Q1 $ FRML _D bul1 = Ul/Uaw $ FRML _K Uldp = kuldp*Ul $ FRML _D Ulu = Ul - Uldp $ FRML _G Ufdp = kufdp*(.75*Uldp(-1)+.25*Uldp(-2)) $ () ARBEJDSUDBUD FRML _KJ_D Qfp = kqfp*Ufpx $ () Folkepensionister i beskæftigelse FRML _D Ufpi = Ufpx+Qfp $ () Folkepensionister bosat i Danmark FRML _KJ_D Ufpu = kufpu*(Ufpx+Qfp) $ () Folkepensionister bosat i udland FRML _D Up = Upt+Ufpx+Qfp+Ufpu $ () Ufpx folkepensionister uden for arb.styr., Upt tjenestemænd FRML _KJ_D Qfo = kqfo*Ufox $ () Førtidspensionister i beskæftigelse FRML _D Ufoi = Qfo+Ufox $ () Førtidpensionister bosat i Danmark FRML _KJ_D Ufou = kufou*(Qfo+Ufox) $ () Førtidpensionister bosat i udland FRML _D Ufo = Ufox+Qfo+Ufou $ () Ufox førtidspensionister uden for arb.styr. FRML _KJ_D Qss = kqss*Qw1 $ () Sygedagpenge fra beskæftigelse FRML _D Uw = U-Ub-Ufpx-Upt $ () Arbejdsduelige FRML _I Uwxa = ( Uuxa+Uakx+Urev+Uly+Ufdp+Usxa+Usb+Umf+Uef+Uov+Ufox+Ukxa+Ukak +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) $ () Kontanthjælpaktivering uden for arbejdsstyrke FRML _G__D Ukak = (D7100(-1)+(bukak*(Ul/Ul(-1)-1)+1)*Ukak(-1)) *(1+JRukak)-D7100(-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.52017*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 _D ttysae1 = (Typef+Typov)/((Uef+Uov)*ptty1*0.001) $ 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.F08 ### () () IMPORTPRISER () FRML _I pee3r = (boil/28.37000)*(ewus/8.09029)*kpee3r $ FRML _SJRDF Dlog(pm3r) = 0.79812*Dlog(pee3r)+(1-0.79812)*(1-0.43561)*Dlog(pee3r(-1)) -0.43561*(Log(pm3r(-1))-Log(pee3r(-1)))-0.022252 $ FRML _SJRDF Dlog(pm3k) = 0.35404*Dlog(pee3r)-0.87310*(Log(pm3k(-1))-0.63923*Log(pee3r(-1)))+0.247535 $ FRML _SJRDF Dlog(pm3q) = 0.68961*Dlog(pee3r)+(0.88159-0.68961)*(1-0.47655)*Dlog(pee3r(-1)) -0.47655*(Log(pm3q(-1))-0.88159*Log(pee3r(-1)))+0.017361 $ () () () PRISER PÅ ERHVERVENES PRODUKTIONSVÆRDIER (SEKTORPRISER) () () LANDBRUG Mv. () FRML _I bywa1 = Ywa1/(Yra1+Ywa1) $ 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 _I bywe1 = Ywe1/(Yre1+Ywe1) $ FRML _GJR pxe = pxe(-1)*((pm3r+tm3r)/(pm3r(-1)+tm3r(-1))) $ () () OLIERAFFINADERIER () FRML _I bywng1 = Ywng1/(Yrng1+Ywng1) $ FRML _GJR pxng = pxng(-1)*((pm3q+tm3q)/(pm3q(-1)+tm3q(-1))) $ () () BOLIGBENYTTELSE () FRML _I bywh1 = Ywh1/(Yrh1+Ywh1) $ FRML _GJ_D pxh = kpxh*(pnch - ( abch*pxb + aqqch*pxqq))/ahch $ () () NÆRINGSMIDDELINDUSTRI () FRML _I bywnf1 = Ywnf1/(Yrnf1+Ywnf1) $ 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.047655/0.20000 $ FRML _S pxnn = (1-dbyw)*(((exp(log(pxnn(-1)) +0.50371*dlog(pwnnvl1)*pwnnvl1(-1)/pxnn(-1) +0.65486*dlog(pwnnvv)*pwnnvv(-1)/pxnn(-1) +0.49629*dlog(pwnnvl1(-1))*pwnnvl1(-1)/pxnn(-1) +0.34514*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.0064149/0.20000 $ FRML _S pxnb = (1-dbyw)*(((exp(log(pxnb(-1)) +0.66081*dlog(pwnbvl1)*pwnbvl1(-1)/pxnb(-1) +0.95405*dlog(pwnbvv)*pwnbvv(-1)/pxnb(-1) +0.33919*dlog(pwnbvl1(-1))*pwnbvl1(-1)/pxnb(-1) +0.21207*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.0053746/0.20000 $ FRML _S pxnm = (1-Dbyw)*(((Exp(Log(pxnm(-1)) +0.46913*Dlog(pwnmvl1)*pwnmvl1(-1)/pxnm(-1) +0.74061*Dlog(pwnmvv)*pwnmvv(-1)/pxnm(-1) +0.53087*Dlog(pwnmvl1(-1))*pwnmvl1(-1)/pxnm(-1) +0.25939*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.0071235/0.20000 $ FRML _S pxnt = (1-dbyw)*(((exp(log(pxnt(-1)) +0.09876*dlog(pwntvl1)*pwntvl1(-1)/pxnt(-1) +0.749374*dlog(pwntvv)*pwntvv(-1)/pxnt(-1) +0.90124*dlog(pwntvl1(-1))*pwntvl1(-1)/pxnt(-1) +0.25063*dlog(pwntvv(-1))*pwntvv(-1)/pxnt(-1) -0.20000*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.0081281/0.20000) $ FRML _S pxnk = (1-Dbyw)*(((Exp(Log(pxnk(-1)) +0.32028*Dlog(pwnkvl1)*pwnkvl1(-1)/pxnk(-1) +0.87126*Dlog(pwnkvv)*pwnkvv(-1)/pxnk(-1) +0.67972*Dlog(pwnkvl1(-1))*pwnkvl1(-1)/pxnk(-1) +0.12874*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.00186155/0.26889 $ FRML _S pxnq = (1-dbyw)*(((exp(log(pxnq(-1)) +0.645322*dlog(pwnqvl1)*pwnqvl1(-1)/pxnq(-1) +0.855308*dlog(pwnqvv)*pwnqvv(-1)/pxnq(-1) +0.354678*dlog(pwnqvl1(-1))*pwnqvl1(-1)/pxnq(-1) +0.184350*dlog(pwnqvv(-1))*pwnqvv(-1)/pxnq(-1) -.268886*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.00216234/0.20000 $ FRML _S pxb = (1-Dbyw)*(((Exp(Log(pxb(-1)) +0.539263*Dlog(pwbvl1)*pwbvl1(-1)/pxb(-1) +0.751764*Dlog(pwbvv)*pwbvv(-1)/pxb(-1) +0.460737*Dlog(pwbvl1(-1))*pwbvl1(-1)/pxb(-1) +0.248236*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.0049781/0.20000 $ FRML _S pxqh = (1-dbyw)*(((exp(log(pxqh(-1)) +1.01665*dlog(pwqhvl1)*pwqhvl1(-1)/pxqh(-1) +1.21235*dlog(pwqhvv)*pwqhvv(-1)/pxqh(-1) +0.29358*dlog(pwqhvl1(-1))*pwqhvl1(-1)/pxqh(-1) +0.00000*dlog(pwqhvv(-1))*pwqhvv(-1)/pxqh(-1) -0.20000*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 $ FRML _S pxqt = (1-Dbyw)*(((Exp(Log(pxqt(-1)) +0.356266*Dlog(pwqtvl1)*pwqtvl1(-1)/pxqt(-1) +0.85*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.0039855/0.20000 $ FRML _S pxqq = (1-dbyw)*(((exp(log(pxqq(-1)) +0.67039*dlog(pwqqvl1)*pwqqvl1(-1)/pxqq(-1) +0.88296*dlog(pwqqvv)*pwqqvv(-1)/pxqq(-1) +0.49131*dlog(pwqqvl1(-1))*pwqqvl1(-1)/pxqq(-1) +0.11704*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.30074*(dlog(pwqfwv1)-dlog(pwqfwv1(-1))) -0.78730*(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 = pxn(-1)*(pxne*fXne+pxng*fXng+pxnf*fXnf+pxnn*fXnn+pxnb*fXnb +pxnk*fXnk+pxnq*fXnq+pxnm*fXnm+pxnt*fXnt ) /(pxne(-1)*fXne+pxng(-1)*fXng+pxnf(-1)*fXnf+pxnn(-1)*fXnn+pxnb(-1)*fXnb +pxnk(-1)*fXnk+pxnq(-1)*fXnq+pxnm(-1)*fXnm+pxnt(-1)*fXnt ) $ FRML _I pxq = pxq(-1)*(pxqf*fXqf+pxqh*fXqh+pxqt*fXqt+pxqs*fXqs+pxqq*fXqq) /(pxqf(-1)*fXqf+pxqh(-1)*fXqh+pxqt(-1)*fXqt+pxqs(-1)*fXqs+pxqq(-1)*fXqq) $ () ### PRISSAM.F08 ### () () () 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 _KJ_D pncf = ( aacf*pxa + anfcf*pxnf + aqhcf*pxqh + am0cf*(pm0+tm0) )*kpncf*kkp $ FRML _KJ_D pncn = ( anfcn*pxnf + anncn*pxnn + aqhcn*pxqh + am0cn*(pm0+tm0) + am1cn*(pm1+tm1) )*kpncn*kkp $ FRML _KJ_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 _KJ_D pnce = ( aece*pxe + angce*pxng + anece*pxne + aqhce*pxqh + am3kce*(pm3k+tm3k) + am3qce*(pm3q+tm3q) )*kpnce*kkp $ FRML _KJ_D pncg = ( angcg*pxng + aqhcg*pxqh + am3qcg*(pm3q+tm3q) )*kpncg*kkp $ FRML _KJ_D pncb = ( antcb*pxnt + aqhcb*pxqh + am7bcb*(pm7b+tm7b) + am7qcb*(pm7q+tm7q) )*kpncb*kkp $ FRML _KJ_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( (Invbh(-1)+(Knbh(-2)+0.5*Inbh(-1))*(iwbz(-1)-0.5*rpibhe(-1))) /(Yrh1(-1)-fKbhe(-1)/fKbhl(-1)*(Ywh1+Siqh-Siqejh)) ) $ FRML _KJ_D pnck = ( aqsck*pxqs + aqtck*pxqt + amsck*pms )*kpnck*kkp $ FRML _KJ_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 _KJ_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 _KJ_ pnimp11 = pnim*kpnimp1 $ FRML _KJ_ pnimo11 = pnim*kpnimo1 $ FRML _KJ_D pnib = ( abib*pxb + aqqib*pxqq + am5ib*(pm5+tm5) + am6qib*(pm6q+tm6q) )*kpnib*kkp $ FRML _KJ_ pnibp11 = pnib*kpnibp1 $ FRML _KJ_ pnibo11 = pnib*kpnibo1 $ FRML _KJ_ 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 _KJ_D pe1 = ( anne1*pxnn + aqhe1*pxqh + am1e1*(pm1+tm1) )*kpe1 $ FRML _KJ_D pe2 = ( aae2*pxa + anfe2*pxnf + anbe2*pxnb + anme2*pxnm + anke2*pxnk + aqhe2*pxqh + am2e2*(pm2+tm2) )*kpe2 $ FRML _KJ_D pe3 = ( aee3*pxe + ange3*pxng + anee3*pxne + aqhe3*pxqh + am3ke3*(pm3k+tm3k) + am3re3*(pm3r+tm3r) + am3qe3*(pm3q+tm3q) )*kpe3 $ FRML _KJ_D pe5 = ( anfe5*pxnf + anke5*pxnk + aqhe5*pxqh + am5e5*(pm5+tm5) )*kpe5 $ FRML _KJ_D pe6 = ( anbe6*pxnb + anme6*pxnm + anke6*pxnk + anqe6*pxnq + aqhe6*pxqh + am6me6*(pm6m+tm6m) + am6qe6*(pm6q+tm6q) )*kpe6 $ FRML _KJ_D pne7y = ( ante7y*pxnt + am7ye7y*(pm7y+tm7y) )*kpne7y $ FRML _KJ_D pe7q = ( anme7q*pxnm + ante7q*pxnt + aqhe7q*pxqh + am7be7q*(pm7b+tm7b) + am7qe7q*(pm7q+tm7q) )*kpe7q $ FRML _KJ_D pe8 = ( anme8*pxnm + anke8*pxnk + anqe8*pxnq + aqhe8*pxqh + aqqe8*pxqq + am8e8*(pm8+tm8) )*kpe8 $ FRML _KJ_D pesq = ( aqhesq*pxqh +aqtesq*pxqt +aqfesq*pxqf +aqqesq*pxqq +aoesq*pxo)*kpesq $ FRML _KJ_D pess = pxqs*kpess $ FRML _GJ_D pes = (fEsq/fEs)*pesq+(fEss/fEs)*pess $ FRML _KJ_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 _K pibp = pibp11*kpibp $ FRML _K pimp = pimp11*kpimp $ FRML _G pil = (1+btgil*tg)*(pnil+tpil) $ FRML _G pe7y = pne7y + Sipe7y/fE7y $ () () () PRISER PÅ ERHVERVENES ENERGIFORBRUG () () FRML _K pvea = (1+btgxa*tg)*(tvea+bhvea*pxqh + (anga*pxng + anea*pxne + am3ka*(pm3k+tm3k) + am3qa*(pm3q+tm3q) ) *kpvea*fXa/fVea) $ FRML _K pvee = (1+btgxe*tg)*(tvee+bhvee*pxqh + (ange*pxng + am3qe*(pm3q+tm3q) ) *kpvee*fXe/fVee) $ FRML _K pveng = (1+btgxng*tg)*(tveng+bhveng*pxqh + (aeng*pxe + angng*pxng + aneng*pxne + am3rng*(pm3r+tm3r) + am3qng*(pm3q+tm3q) ) *kpveng*fXng/fVeng) $ FRML _K 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 _K pvenf = (1+btgxnf*tg)*(tvenf+bhvenf*pxqh + (angnf*pxng + anenf*pxne + am3knf*(pm3k+tm3k) + am3qnf*(pm3q+tm3q) ) *kpvenf*fXnf/fVenf) $ FRML _K pvenn = (1+btgxnn*tg)*(tvenn+bhvenn*pxqh + (angnn*pxng + anenn*pxne + am3knn*(pm3k+tm3k) + am3qnn*(pm3q+tm3q) ) *kpvenn*fXnn/fVenn) $ FRML _K pvenb = (1+btgxnb*tg)*(tvenb+bhvenb*pxqh + (angnb*pxng + anenb*pxne + am3knb*(pm3k+tm3k) + am3qnb*(pm3q+tm3q) ) *kpvenb*fXnb/fVenb) $ FRML _K pvenm = (1+btgxnm*tg)*(tvenm+bhvenm*pxqh + (angnm*pxng + anenm*pxne + am3qnm*(pm3q+tm3q) ) *kpvenm*fXnm/fVenm) $ FRML _K pvent = (1+btgxnt*tg)*(tvent+bhvent*pxqh + (angnt*pxng + anent*pxne + am3qnt*(pm3q+tm3q) ) *kpvent*fXnt/fVent) $ FRML _K pvenk = (1+btgxnk*tg)*(tvenk+bhvenk*pxqh + (angnk*pxng + anenk*pxne + am3qnk*(pm3q+tm3q) ) *kpvenk*fXnk/fVenk) $ FRML _K pvenq = (1+btgxnq*tg)*(tvenq+bhvenq*pxqh + (angnq*pxng + anenq*pxne + am3knq*(pm3k+tm3k) + am3qnq*(pm3q+tm3q) ) *kpvenq*fXnq/fVenq) $ FRML _K pveb = (1+btgxb*tg)*(tveb+bhveb*pxqh + (angb*pxng + aneb*pxne + am3qb*(pm3q+tm3q) ) *kpveb*fXb/fVeb) $ FRML _K pveqh = (1+btgxqh*tg)*(tveqh+bhveqh*pxqh + (angqh*pxng + aneqh*pxne + am3qqh*(pm3q+tm3q) ) *kpveqh*fXqh/fVeqh) $ FRML _K pveqs = (1+btgxqs*tg)*(tveqs+bhveqs*pxqh + (angqs*pxng + aneqs*pxne + am3qqs*(pm3q+tm3q) ) *kpveqs*fXqs/fVeqs) $ FRML _K pveqt = (1+btgxqt*tg)*(tveqt+bhveqt*pxqh + (angqt*pxng + aneqt*pxne + am3qqt*(pm3q+tm3q) ) *kpveqt*fXqt/fVeqt) $ FRML _K pveqf = (1+btgxqf*tg)*(tveqf+bhveqf*pxqh + (angqf*pxng + aneqf*pxne + am3qqf*(pm3q+tm3q) ) *kpveqf*fXqf/fVeqf) $ FRML _K pveqq = (1+btgxqq*tg)*(tveqq+bhveqq*pxqh + (angqq*pxng + aneqq*pxne + am3qqq*(pm3q+tm3q) ) *kpveqq*fXqq/fVeqq) $ FRML _K pveh = (1+btgxh*tg)*(tveh+bhveh*pxqh + (angh*pxng + aneh*pxne + am3qh*(pm3q+tm3q) )* kpveh*fXh/fVeh) $ FRML _K 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.F08 ### () () () LØN () () FRML _DJRD btyd1 = (Tyd/Uldp)/(lah1*(1-tsda)*0.001) $ FRML _D Yfnl = Yfnf+Yfnn+Yfnb+Yfnk+Yfnm+Yfnq+Yfnt $ FRML _D fYfnl = (fYfnf*pyfnf(-1)+fYfnn*pyfnn(-1)+fYfnb*pyfnb(-1)+fYfnk*pyfnk(-1) +fYfnm*pyfnm(-1)+fYfnq*pyfnq(-1)+fYfnt*pyfnt(-1))/pyfnl(-1) $ FRML _D pyfnl = Yfnl/fYfnl $ FRML _D kqyfnl1 = fYfnl/ (Hqnf1+Hqnn1+Hqnb1+Hqnk1+Hqnm1+Hqnq1+Hqnt1) $ FRML _D kqyfn1 = fYfn/(Hqng1+Hqne1+Hqnf1+Hqnn1+Hqnb1+Hqnm1+Hqnt1+Hqnk1+Hqnq1) $ FRML _DJ_D tss0u = tsda + (1-tsda)*(tss0 + tssp0) $ FRML _D tatp = Tpatpi/(Qw1*Hgwn*0.001) $ FRML _D lnap = lna1 + tatp $ FRML _SJRDF log(bywnw) = 1.24994*log(pcpn/pxn)-3.00000*bul1+1.59679*btyd1*Ddtlnap +(1-Ddtlnap)*(1.59679*btyd1e+Log(dtlnap))-1.14834 $ FRML _I Ywn1 = Ywng1+Ywne1+Ywnf1+Ywnn1+Ywnb1+Ywnm1+Ywnt1+Ywnk1+Ywnq1 $ FRML _I Yrn1 = Yrng1+Yrne1+Yrnf1+Yrnn1+Yrnb1+Yrnm1+Yrnt1+Yrnk1+Yrnq1 $ FRML _D bywnl = (Ywn1-Ywne1-Ywng1)/(Ywn1-Ywne1-Ywng1+Yrn1-Yrne1-Yrng1) $ FRML _SJRDF Dlog(lna1) = 0.655083*dlog(pyfn)+0.544074*dlog(kqyfn1) +(1-0.655083)*dlog(pyfn(-1))+(1-0.544074)*dlog(kqyfn1(-1)) - Dlog((lna1+btatp*tatp)/lna1) -0.760890*(((1/3)*(bul1-bul1(-1))+(2/3)*(bul1(-1)-bul1(-2)))) +0.238705*dlog(lndeu)+0.532259*dlog(pcpn/pxn) +0.000000*(btyd1-btyd1(-1)) +0.100000*(1-Ddtlnap)*(Log(dtlnap)-Log(dtlnap(-1))) -0.100000*(log(bywnl(-1))-log(bywnw(-1)))+0.030787*d87+0.046271*d7376 $ 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.F08 ### () 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) $ FRML _GJRD ptty2 = ptty2(-1)*(pcpdk(-2)/pcpdk(-3)) $ () Forbrugerprisindekset beskriver prisudviklingen på dansk område, men bruger faste vægte (pt 2003) () Dagpenge (Tyd) FRML _GJ_D Tyd = .001*ttyd1*ptty1*Uldp $ () 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 Tymfdp = .001*ttymfdp*ptty1*Ufdp $ () Feriedagpenge 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 = Tymfdp + 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 = Typri(-1)*(Ywo2/Ywo2(-1)) $ () Imp. bidrag til tjenestemandspension FRML _I Typ = Typfp + Typfo + Typef + Typov + Typr $ () Øvrige (Tyr) FRML _D Uk = Ukxa + Ulu + Ukak $ FRML _GJ_D Tyrks = .001*ttyrks*ptty1*(Uk-Ukak)*(1-Dsr2) $ () Kontanthjælp skattepligtig FRML _GJ_D Tyrkr = Tyrkrd*ptty1*(1-Dsr2) + (.001*ttyk1*ptty1*(Uk-Ukak))*Dsr2 $ () Kontanthjælp ikke skattepligtig FRML _I Tyrk = Tyrks+Tyrkr $ FRML _GJ_D Tyrbf = D4703*.001*ptty1*ttyrbf*Ub +(1-D4703)*.001*ptty2*ttyrbf1*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.F08 ### () () () DIREKTE SKATTER Mv. () () FRML _GJDD pcrs1 = pcrs1(-1)*(1+Rlisa)*(1-btb2(-2))/(1-btb2(-3))*(1-tsda)/(1-tsda(-1)) $ () Indkomster og fradrag () A-indkomst FRML _KJ_D Yas = ( Yw1+Twen+Tys+Typshl+Tphhlu+Tpdmpu+Tpspu+Tpatpu -Sdu-Tpatpi/(1-tsda)-Saqp-Saqo-(Tbhsl+Tbhsk)/(1-tsda)-Typri)*kyas $ () Fordeling af A-indkomst på løn, dagpenge, efterløn, folkepension og øvrig a-indkomst FRML _GJ_D Yasw = kyas*(Yw1+Twen-Typri) $ FRML _GJ_D Yasd = kyas*(Tyd+Tymfdp) $ FRML _GJ_D Yase = kyas*(Typef+Typov)$ FRML _GJ_D Yasp = kyas*Typfp $ FRML _D Yasr = Yas-(Yasw+Yasd+Yase+Yasp) $ () Overskud af egen virksomhed 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 _GJ_D Ivsk = bivsk*(Ibe+Ime) + (1 - ((bivsk+bivsk(-1))/2)/(nivsk*bivsk))*Ivsk(-1) $ FRML _D Yrr2 = Yrp - 0.85*Yrh1 - (Iph/(I-Io11))*Ivps1 $ () Øvrige komponenter FRML _KJ_D Yrpss1 = (0.5*Yrr2+0.5*Yrr2(-1))*kyrpss3 $ FRML _KJ_D Tops = ktops*(Tphhli+Tphhki) $ () Pensionsopsparing FRML _KJ_D Yspps = (Tpdmpi+Saqwy+Tpspi)*kyspps $ () Bidrag til ld,sp,dmp mv FRML _KJ_D Sdas = ksdas*(Sda-tsda*(Tbhsk+Tbhsl)) $ () Arbejdsmarkedsbidrag FRML _KJ_D Ysprs = kysprs*(Yw1+Yrr2) $ () Øvrige personlige indkomster og fradag netto FRML _KJ_D Yrphs = phv*(Knbhe(-1)/pibh(-1))*tsdl*kyrphs $ () Lejeværdi af egen bolig FRML _KJ_D Tippps1 = Tiin_h*ktippps1 $ () Renteindtægter netto FRML _KJ_D Ylws = Safm + kylws*Yw1 $ () Lønmodtagerfradrag FRML _KJ_D Yl3s = kyl3s*(Yw1+Yrr2) $ () 3% fradrag FRML _KJ_D Ysrs = kysrs*(Yw1+Yrr2) $ () Øvrige skattepligtig indkomster og fradrag netto () Personlig indkomst FRML _DJ_D Ysp = Yas+Yrpss1-Tops-Sdas-Yspps+Ysprs $ () Skattepligtig indkomst FRML _DJ_D Ys = Ysp+Yrphs+Tippps1-Ylws-Yl3s+Ysrs $ () Selvstændige (S) () """""""""""""""" FRML _KJ_D Ussy = kussy*(Q1-Qw1) $ FRML _KJ_D Ysps = kkysp*kysps*(.017*Yasw+.000*Yasd+.000*Yase+.000*Yasp+.036*Yasr +.852*Yrpss1-.260*Tops-.032*Sdas-.032*Yspps+.034*Ysprs) $ FRML _KJ_D Yss = kkys*kyss*(Ysps+.033*(Yrphs+Tippps1)-.017*Ylws-.034*Yl3s+.034*Ysrs ) $ 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 _KJ_D Uwsy = kuwsy*Qw1 $ FRML _KJ_D Yspw = kkysp*kyspw*(.969*Yasw+.421*Yasd+.000*Yase+.000*Yasp+.192*Yasr +.127*Yrpss1-.581*Tops-.953*Sdas-.953*Yspps+.951*Ysprs ) $ FRML _KJ_D Ysw = kkys*kysw*(Yspw+1.003*(Yrphs+Tippps1)-.969*Ylws-.951*Yl3s+.951*Ysrs ) $ 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 _KJ_D Ulsy = kulsy*(Ul+Ufdp) $ FRML _KJ_D Yspl = kkysp*kyspl*(.005*Yasw+.579*Yasd+.000*Yase+.000*Yasp+.013*Yasr +.000*Yrpss1-.086*Tops-.006*Sdas-.006*Yspps+.006*Ysprs ) $ FRML _KJ_D Ysl = kkys*kysl*(Yspl+.021*(Yrphs+Tippps1)-.005*Ylws-.006*Yl3s+.006*Ysrs ) $ 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 _KJ_D Uefsy = kuefsy*(Uef+Uov) $ FRML _KJ_D Yspef = kkysp*kyspef*(.001*Yasw+.000*Yasd+1.00*Yase+.000*Yasp+.057*Yasr +.000*Yrpss1-.000*Tops-.001*Sdas-.001*Yspps+.001*Ysprs ) $ FRML _KJ_D Ysef = kkys*kysef*(Yspef+.010*(Yrphs+Tippps1)-.001*Ylws-.001*Yl3s+.001*Ysrs ) $ 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 _KJ_D Ufpsy = kufpsy*Ufpx $ FRML _KJ_D Yspfp = kkysp*kyspfp*(.001*Yasw+.000*Yasd+.000*Yase+1.00*Yasp+.045*Yasr +.021*Yrpss1-.000*Tops-.001*Sdas-.001*Yspps+.001*Ysprs ) $ FRML _KJ_D Ysfp = kkys*kysfp*(Yspfp-.108*(Yrphs+Tippps1)-.001*Ylws-.001*Yl3s+.001*Ysrs ) $ 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 _KJ_D Uqsy = kuqsy*(Uwxa-Uef-Uov) $ FRML _KJ_D Yspq = kkysp*kyspq*(.007*Yasw+.000*Yasd+.000*Yase+.000*Yasp+.647*Yasr +.000*Yrpss1-.073*Tops-.007*Sdas-.007*Yspps+.007*Ysprs ) $ FRML _KJ_D Ysq = kkys*kysq*(Yspq+.041*(Yrphs+Tippps1)-.007*Ylws-.007*Yl3s+.007*Ysrs ) $ 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 _KJ_D Ssya = (Knmp+Knbp)*iwbz*kssya $ FRML _KJ_D Ssyej = (Knbhe(-1)/pibh(-1))*phv*tqkej*kssyej*(1+JRsssyej) $ FRML _KJ_D Ssyv = tsds1*Ysds*kssyv $ 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 _KJ_D Sda = tsda*(Ysda3*ksda) $ FRML _GJ_D Sdv = tsdv1*fKcb(-1) $ FRML _DJRD Ysds = Yrs1+(Tin_cr+Tiu_cr_z)+Yrqf1+(Tin_cf+Tiu_cf_z)-Tiore -( (1-(Iph/(I-Io11)))*Ivps1+(1-Iph(-1)/(I(-1)-Io11(-1)))*Ivps1(-1))/2 $ FRML _KJ_D Sdsk = ksdsk*tsdsk*((1-tsds1)*Yre1-Tiore-Ivsk)-(1-d4703)*Sipxe $ FRML _KJRD Sdsr = ksdsr*tsds1*(bsds+ktsds*(1-bsds))*(Ysds+Ysds(-1))/2 $ FRML _I Sds = Sdsr + Sdsk $ FRML _GJRD iwbr = 0.9*((Tipphlp(-1)+Tipphlp(-2))/(2*Wp_z_iq(-2))) + 0.1*iwbz - 0.0003 $ FRML _D pcpn = pcpn(-1)*(pncb*fCb+pnce*fCe+pncf*fCf+pncg*fCg+pnch*fCh+pnci*fCi +pnck*fCk+pncn*fCn+pncs*fCs+pct*fCt+pncv*fCv) /(pncb(-1)*fCb+pnce(-1)*fCe+pncf(-1)*fCf+pncg(-1)*fCg+pnch(-1)*fCh+pnci(-1)*fCi +pnck(-1)*fCk+pncn(-1)*fCn+pncs(-1)*fCs+pct(-1)*fCt+pncv(-1)*fCv) $ 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 _KJ_D Sdrld = ksdrld *(tsdr*Tild + tsdra*Old ) $ FRML _KJ_D Sdrdmp = ksdrdmp*(tsdr*Tidmp + tsdra*Odmp) $ FRML _KJ_D Sdrsp = ksdrsp *(tsdr*Tisp + tsdra*Osp ) $ FRML _KJ_D Sdratp = ksdratp*(tsdr*Tiatp + tsdra*(Oseatp+Osdkatp+Obatp)) $ FRML _KJ_D Sdrp = ksdrp *(tsdr*bsdr*(Tipphpp+Tipphpb) + tsdra*(Ospl+Ospk+Ohpl+Ohpk)) $ FRML _KJ_D Sdrpp = ksdrpp *(tsdr*bsdr*Tipphpp + tsdra*(Oselp+Osdklp+Oblp)) $ FRML _I Sdrph = Sdrp-Sdrpp $ FRML _I Sdr = Sdrp+Sdrld+Sdrdmp+Sdrsp+Sdratp $ FRML _KJ_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*(ksda*Ysda3 - (Tbhsk+Tbhsl) + (Tyd+Tymfdp+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 _GJ_D Safma = tafma1*ptty1*(Qw1*(1-bq1/2)+Uldp+Umf+Uef+Qs1)*0.001 $ FRML _GJ_D Safme = Tafme*ptty1*bsafme1*(Qw1*(1-bq1/2)+Uldp+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.F08 ### () 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.F08 ### () 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 $ () 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.F08 ### () () () 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 _KJ_D Siqab = tqab*(Yw1-Typri)*ksiqab $ FRML _GJRD Siqej = 0.21044*((Knbp(-2)+Knbh(-2))/pibh(-2))*(phgk(-1)+phgk(-2))/2*tqej $ FRML _GJ_ Siqejh = 0.8*Siqej*Knbh(-2)/(Knbp(-2)+Knbh(-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+Ukak) $ () Kommunalt aktiverede i beskæftigelsen FRML _I Siqs = Siqsqr + Siqeur + Siqlt + Siqak + Siqaa + Siqsh $ FRML _I Siq = Siqu + Siqab + Siqej + Siqv + Siqam + Siqr + Siqs $ FRML _I Siqsq = Siqsqr + Siqeur $ FRML _I Siqeu = Siqaa + Siqeur $ FRML _I Si = Sim + Sip + Sig + Sir + Siq $ FRML _KJ_D Sipur2 = -ksipur2*( 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 _I Sipsu = Sipkto + Sipe7y + Sipur2 + Sipsue $ FRML _I Sipsuo = Sipsu -Sipsue $ FRML _I Sipaf = Sip - Sipsu $ FRML _I Sipafo = Sipaf - Sipeu $ 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.F08 ### () Mangler bruttoficering af offentlige renter (Tiku,Tiki,Tifoi,Tifou) () endogeniserig af iuwp () () 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 $ FRML _I pev = Ev/fEv $ FRML _I pe = E/fE $ () () 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 $ FRML _I pm = M/fM $ FRML _I pmv = Mv/fMv $ () () 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 _I Tien = -Tin_e $ FRML _GJ_D Taoerfp = .001*ptty1*ttyoefp*Ufpu*(1+JRtaoerfp) $ () Folkepensioner til udland FRML _GJ_D 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 _GJ_ Ken = -(Wn_e-Wg_e_cf) $ () () RENTESTRØMME () () () () () RENTER OG KURSER () () () Et bud på en næsten Uændret relation, uden brug af gamle findan variabler () Førsteårseffekt fra iwbdm til iwbz hævet fra ca. 0.8 til 0.95 (kan vel egentlig Sættes til 1?) () Tilpasningshastigheden mod langtsigt hævet fra 1/3 til 1/2 () Ligevægtsrentespænd tidligere 3.3 procentpoint for ligevægt på betalingsbalance og inflationsparitet () Nu givet ved logistisk tidstrend (Værdier: 3.3 procentpoint I 80'erne og 0.1 I 2004ff) - bøR fittes bedre () Uændrede effekter fra inflationsforskelle og betalingsbalanceled () Især sidstnævnte påvirker over-crowding problemet FRML _KJ_ iwbos = iwbdm*kiwbos $ FRML _GJRDF iwbz = iwbz(-1)*iwbos/iwbos(-1) $ FRML _GJ_ iwbosu = iwbos $ FRML _KJ_ iwmm = iwdm*kiwmm $ 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 _K iku = kiku*iwlo $ FRML _K iwbdm = kiwbdm*iwdm $ () Egentlige renter FRML _GJD dttiin_e = dttiin_e(-1)*rhotii $ FRML _GJD dttiin_h = dttiin_h(-1)*rhotii $ FRML _GJD dttiin_cr = dttiin_cr(-1)*rhotii $ FRML _GJD dttiin_ok = dttiin_ok(-1)*rhotii $ FRML _GJD dttiin_oo = dttiin_oo(-1)*rhotii $ FRML _GJD dttiir_z_os = dttiir_z_os(-1)*rhotii $ FRML _GJ_D Tiin_e = iwmm*(Wnq1_e(-1)+Wnq1_e)/2 +biwb*(Wnb_e(-1)-Wlm_e_cf(-1)) +iuwp* Wp_cf_e(-1) + dttiin_e $ FRML _GJ_D Tiin_h = iwmm*(Wnq1_h(-1)+Wnq1_h)/2 +biwb*(Wnb_h(-1)-Wlm_h_cf(-1)) +iuwp*Wcp_cf_h(-1) + dttiin_h $ FRML _GJ_D Tiin_cr = iwmm*(Wnq1_cr(-1)+Wnq1_cr)/2 +biwb*(Wnb_cr(-1)-Wlm_cr_cf(-1)) + dttiin_cr $ FRML _GJ_D Tiin_ok = iwmm*(Wnq1_ok(-1)+Wnq1_ok)/2 +biwb*(Wnb_ok(-1)-Wlm_ok_cf(-1)) + dttiin_ok $ FRML _GJ_D Tiin_oo = iwmm*(Wnq1_oo(-1)+Wnq1_oo)/2 +biwb*Wnb_oo(-1) + dttiin_oo $ FRML _GJ_D Tisuu = Tisuu(-1)*(1-brwbe_os_z) + kiwbnu*iwbos*Tfbge_os_z/ktfbge_os_z $ FRML _GJ_D Tisui = Tisui(-1)*(1-brwbd_os_z) + kiwbnd*iwbos*Tfbgd_os_z/ktfbgd_os_z $ FRML _GJ_D Tiir_z_os = iwdi*(Wnq1_os(-1)+Wnq1_os)/2 +biwb*Wb_z_os(-1) + dttiir_z_os $ FRML _I Tiin_os = Tiir_z_os - Tisui - Tisuu $ FRML _GJDD Tiim_cf_x = Tiim_cf_x(-1)*(1-brwbm_cf_x) + (Tflm_h_cf + Tflm_cr_cf + Tflm_ok_cf + Tflm_e_cf +brwbm_cf_x*Wbm_cf_x(-1) )*iwbz*ktflm_cf_x $ FRML _I Tiin_cf = -(Tiin_e+Tiin_os+Tiin_ok+Tiin_oo+Tiin_cr+Tiin_h)$ FRML _D biwb = (Tisui+Tiim_cf_x)/(Wbd_os_z(-1)+Wbm_cf_x(-1)) $ () Formueindkomst henført til forsikringstagere FRML _GJD dttifp_cf_h = dttifp_cf_h(-1)*rhotii $ FRML _GJ_D Tifp_cf_h = iuwsd*Wsp_d_cf(-1) + iuwse*Wsp_e_cf(-1) + biwb*Wbp_z_cf(-1) + dttifp_cf_h $ FRML _KJ_D Tifs_cf_h = ktifs_cf_h*(Tiin_cf-Tifp_cf_h) $ () Udbytter af aktier, betalt FRML _GJ_D Tiu_cr_z = Ws_cr_z(-1)*iuwsd $ FRML _GJ_D Tiu_cf_z = Ws_cf_z(-1)*iuwsd $ FRML _GJ_D Tiu_e_z = Ws_e_z(-1)*iuwse $ () Udlandets aktiebeholdning er kun af danske aktier FRML _GJ_D Tiu_z_e = iuwsd*Ws_z_e(-1) $ () Andre sektorers udbytter FRML _GJ_D Tiu_z_cr = iuwsd*Ws_d_cr(-1) + iuwse*Ws_e_cr(-1) $ FRML _GJ_D Tiu_z_h = iuwsd*Ws_d_h(-1) + iuwse*Ws_e_h(-1) $ FRML _GJ_D Tiu_z_oo = iuwsd*Ws_x_oo(-1) $ FRML _KJ_D Tiu_z_os = (Tiov-Tikov)*ktiu_z_os $ FRML _KJ_D Tiu_z_ok = Tikov*ktiu_z_ok $ FRML _I Tiu_z_cf = Tiu_cr_z+Tiu_cf_z+Tiu_e_z-Tiu_z_h-Tiu_z_cr-Tiu_z_e-Tiu_z_oo-Tiu_z_os-Tiu_z_ok $ () Pensionsafkast, formueindkomst FRML _D iuwp = Tifp_cf_h/Wp_cf_h(-1) $ () De andre fåR en aggregeret udbytteprocent af resten FRML _I Tin_h = Tiin_h + Tifp_cf_h + Tifs_cf_h + Tiu_z_h $ FRML _I Tin_cr = Tiin_cr + Tiu_z_cr - Tiu_cr_z - Tior $ FRML _I Tin_cf = Tiin_cf - Tifp_cf_h - Tifs_cf_h + Tiu_z_cf - Tiu_cf_z $ FRML _I Tin_os = Tiin_os + (Tior-Tiokr) + Tiu_z_os $ FRML _I Tin_ok = Tiin_ok + Tiokr + Tiu_z_ok $ FRML _I Tin_oo = Tiin_oo + Tiu_z_oo $ FRML _I Tin_e = Tiin_e + Tiu_z_e - Tiu_e_z$ () Udspredningsligninger til brutto FRML _I Tiki = Tin_ok + Tiku - Tikov - Tiokr $ FRML _GJ_D Tifou = 0 $ FRML _I Tifoi = Tin_oo + Tifou $ () () OFFENTLIGE OG PRIVATE SEKTORBALANCER () FRML _I Tioii = Tiir_z_os + Tiu_z_os - (Tiov - Tikov -Tioov) + Tiki + Tifoi $ FRML _KJ_D Tiore = d4703*ktiore*ttiore*pxe(-1)*fXe(-1) () Royalty indtil 2003 8.5% af produktionsværdien +(1-d4703)*ktiore*ttiore*(Yre1-Ivsk) $ () 2004-2012 20% af skattepl. + nettorenteindtægter FRML _D Tior = Tiore + Tiorr $ 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 _GJDD Dif(Taphn) = Dif(Taop - Tapo +.5*(Taep-Tape)) $ FRML _G Taphu = (1-D4787)*(Tapo + 0.5*Tape + Taphr) $ FRML _G Tffpi = Tbhsp - Tihsp - Tpatpi + Sdrpsl+Sdrpsk + 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 + Tin_h - (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+Tymfdp+Typef+Typov+Typlg) $ FRML _I Tasoon = (1-D4787)*((Tyd+Tymfdp+Typef+Typov+Typlg)*ktasoo -0.8*(Safma+Safme)*ktaoos) $ FRML _KJ_D Siafok = ksiafok*Siqej $ FRML _KJ_D Sisuokk = ksisuokk*(Siqak+0.17*(Siqs-Siqak-Siqaa-Siqeur) +0.18*(Sipsu-Sipsue)) $ () Siqak aktiverede kontanthjælp er nok en kommunal udgift FRML _KJ_D Sdkk = ksdkk*(0.69*Sdk1+0.33*(Sdp1-Sdpr)+0.25*Sdpr+0.11*Sds) $ FRML _KJ_D Tykk = ktykk*(Typfp+Typfo+0.24*Typr+Tyms+0.04*Tymf +0.99*Tyrk+0.55*(Tyrh+Tyrr)) $ () Nye variabler indkomstoverførslerne FRML _KJ_D Ivok1 = kivok1*Ivo1 $ FRML _KJ_D Cok = kcok*Co $ FRML _KJ_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 () Uden atp FRML _GJDD Wzzomuxa = (1-D4794)*(Wzzomuxa(-1) - Tfsn - Tfkn + Dif((1-bwbs_z_os)*nwb_z_os)) $ () med atp () GRML _GJ_D Wzzomu = Wzzomuxa - kwzzomu*(Wbatp/pwbm) $ FRML _D Wzzomuxg = Wzzomuxa - Wlg_z_os $ () Alternativt Wzzomu = wzzumo(-1) + diff(Wzzomuxa) + kdwzzomu*Diff(Watp/pwatp) ; () GRML _GJDD Dif(Won) = (1-D4794)*( (D4794(-1)-D4794)*246882 - Tfon) $ FRML _I Won = -Wn_o $ () ### BNPBFI.F08 ### () () () BRUTTONATIONALPRODUKT, BRUTTOVÆRDITILVÆKST OG BRUTTONATIONALINDKOMST () () FRML _I fY = (fCp*pcp(-1) + fCo*pco(-1) + fIm*pim(-1) + fIb*pib(-1) + fIt*pit(-1) + fIl*pil(-1) - fM*pm(-1) + fE*pe(-1))/py(-1) $ FRML _I Y = Cp + Co + I + E - M $ FRML _I py = (Y)/fY $ FRML _I Yf = Y - Si + Siq $ FRML _I pyf = (Yfa+Yfe+Yfng+Yfne+Yfnf+Yfnn+Yfnb+Yfnm+Yfnt+Yfnk+Yfnq+Yfb +Yfqh+Yfqs+Yfqt+Yfqf+Yfqq+Yfh+Yfo)/fYf $ FRML _DJ_ Yi = Y + (Twen+Tien) + (-Sisue-Siafe) $ () () () SAMLET INDENLANDSK EFTERSPØRGSEL () () FRML _I fYtr = (fY*py(-1) + fM*pm(-1) - fE*pe(-1))/pytr(-1) $ FRML _I Ytr = Y + M - E $ FRML _I pytr = Ytr/fYtr $ () ### SIQJ.F08 ### () () () 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.F08 ### () () () 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 $ FRML _I Yfn = Yfng+Yfne+Yfnf+Yfnn+Yfnb+Yfnm+Yfnt+Yfnk+Yfnq $ () () () PRISER PÅ BRUTTOVÆRDITILVÆKST () () FRML _I pyfa = Yfa/fYfa $ FRML _I pyfe = Yfe/fYfe $ FRML _I pyfng = Yfng/fYfng $ FRML _I pyfh = Yfh/fYfh $ 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 $ FRML _I pyfn = (Yfng+Yfne+Yfnf+Yfnn+Yfnb+Yfnm+Yfnt+Yfnk+Yfnq)/fYfn $ () () () 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 ) $ () ### FINK.F08 ### () FINANSIELLE KONTI () () SEKTORFORDELT NETTOKAPITAL FRML _KJRD Kn1 = kkn*((Knma +Knba )+(Knme +Knbe )+(Knmne+Knbne)+(Knmng+Knbng) +(Knmnn+Knbnn)+(Knmnf+Knbnf)+(Knmnb+Knbnb)+(Knmnm+Knbnm) +(Knmnt+Knbnt)+(Knmnk+Knbnk)+(Knmnq+Knbnq)+(Knmb +Knbb ) +(Knmqh+Knbqh)+(Knmqs+Knbqs)+(Knmqt+Knbqt)+(Knmqf+Knbqf) +(Knmqq+Knbqq)+(Knmh +Knbh )+(Knmo +Knbo )) $ FRML _KJRD Knh = kknh*(bqsa1 *(Knma +Knba )+bqse1 *(Knme +Knbe )+bqsne1*(Knmne+Knbne) +bqsng1*(Knmng+Knbng)+bqsnn1*(Knmnn+Knbnn)+bqsnf1*(Knmnf+Knbnf) +bqsnb1*(Knmnb+Knbnb)+bqsnm1*(Knmnm+Knbnm)+bqsnt1*(Knmnt+Knbnt) +bqsnk1*(Knmnk+Knbnk)+bqsnq1*(Knmnq+Knbnq)+bqsb1 *(Knmb +Knbb ) +bqsqh1*(Knmqh+Knbqh)+bqsqs1*(Knmqs+Knbqs)+bqsqt1*(Knmqt+Knbqt) +bqsqq1*(Knmqq+Knbqq)+0.82 *(Knmh +Knbh ) ) $ ; () Husholdningssektoren FRML _KJRD Kno1 = kkno1*(Knmo+Knbo) $ ; () Offentlig sektor FRML _KJRD Kncf = kkncf*(Knmqf+Knbqf) $ ; () Finansel sektor FRML _I___ Kncr = Kn1-Knh-Kncf-Kno1 $ ; () Ikke-finansiel sektor () OVERGANGSLIGNINGER FOR NETTOFORDRINGSERHV: FRML _GJ_ Tfn_h = Tfphn1 $ FRML _GJ_ Tfn_e = -Tfen $ FRML _GJ_ Tfn_ok = Tfkn $ FRML _GJ_ Tfn_oo = Tffon $ FRML _GJ_ Tfn_os = Tfsn $ FRML _GJ_ Dif(Tfn_cf) = Dif(Tin_cf) $ FRML _GJ_ Tfn_cr = Tfen-Tfon-Tfphn1-Tfn_cf $ () HUSHOLDNINGER () Transaktioner FRML _GJ_D Tfcp_cf_h = (1-bwpe)*Tfcp_cf_x $ FRML _GJ_D Tflm_h_cf = 0.5*bwlm_h*Dif(phk*Knbh/pibh)+0.7*(bwlm_h*phk(-1)*Knbh(-1)/pibh(-1)-Wlm_h_cf(-1)) $ FRML _GJ_D Tfp_cf_h = (1-bwpe)*Tfp_cf_x $ FRML _GJ_D Tfnq1_h = bwq1_h*(pcb*fCb) $ () placeringsbehov FRML _D Tfnf1_h = Tfn_h+Tflm_h_cf-Tfcp_cf_h-Tfp_cf_h-Tfnq1_h $ () Placeringer FRML _GJ_D Tfnb_h = bwnb_h *Tfnf1_h $ FRML _GJ_D Tfs_e_h = Tfnf1_h - (Tfnb_h+Tfs_d_h) $ FRML _GJ_D Tfs_d_h = bws_h*Tfnf1_h $ () Omvurderinger FRML _GJ_D_Z Owcp_cf_h = (1-bwpe)*Owcp_cf_x $ FRML _GJ_D_Z Ownb_h = bowb*Wnb_h(-1) $ FRML _GJ_D_Z Owlm_h_cf = (pwbm/pwbm(-1)-1)*Wlm_h_cf(-1) $ FRML _GJ_D_Z Ows_d_h = bowsd*Ws_d_h(-1) $ FRML _GJ_D_Z Ows_e_h = bowse*Ws_e_h(-1) $ FRML _GJ_D_Z Owp_cf_h = (1-bwpe)*Owp_cf_x $ () Dynamiske "identitetet" FRML _D Wcp_cf_h = Wcp_cf_x - Wcp_cf_e $ FRML _D Dif(Wnb_h) = Tfnb_h+Ownb_h $ FRML _D Dif(Wlm_h_cf) = Tflm_h_cf+Owlm_h_cf $ FRML _D Dif(Ws_e_h) = Tfs_e_h+Ows_e_h $ FRML _D Dif(Ws_d_h) = Tfs_d_h+Ows_d_h $ FRML _D Dif(Wp_cf_h) = Tfp_cf_h+Owp_cf_h $ FRML _GJDD Dif(Wnq1_h) = Tfnq1_h $ () Finansiel nettoformue FRML _I Wn_h = Wcp_cf_h+Wnb_h-Wlm_h_cf+Ws_e_h+Ws_d_h+Wp_cf_h+Wnq1_h $ () IKKE-FINANSIELLE SELSKABER () Transaktioner FRML _GJ_D Tflm_cr_cf = bwlm_cr*Dif(Kncr) $ FRML _GJ_D_Z Tfs_cr_z = bwsi_cr/(1-bwsi_cr)*btfs_cr*(Tfn_cr+Dif(Kncr)) $ FRML _GJ_D Tfnq1_cr = bwq1_cr*Dif(Kncr) $ () Placeringsbehov FRML _D Tfnf1_cr = Tfn_cr+Tflm_cr_cf+Tfs_cr_z-Tfnq1_cr $ () Placeringer FRML _GJ_D Tfnb_cr = bwnb_cr *Tfnf1_cr $ FRML _GJ_D Tfs_d_cr = bws_cr*Tfnf1_cr $ FRML _GJ_D Tfs_e_cr = Tfnf1_cr-(Tfnb_cr+Tfs_d_cr) $ () Omvurderinger FRML _GJ_D_Z Ownb_cr = bowb*Wnb_cr(-1) $ FRML _GJ_D_Z Owlm_cr_cf = (pwbm/pwbm(-1)-1)*Wlm_cr_cf(-1) $ FRML _GJ_D_Z Ows_d_cr = bowsd*Ws_d_cr(-1) $ FRML _GJ_D_Z Ows_e_cr = bowse*Ws_e_cr(-1) $ FRML _GJ_D_Z Ows_cr_z = (pws_cr/pws_cr(-1)-1)*(Ws_cr_z(-1)-Ws_x_os(-1)-Ws_d_ok(-1)) $ () Dynamiske "identiteter" FRML _D Dif(Wnb_cr) = Tfnb_cr+Ownb_cr $ FRML _D Dif(Wlm_cr_cf) = Tflm_cr_cf+Owlm_cr_cf $ FRML _D Dif(Ws_d_cr) = Tfs_d_cr+Ows_d_cr $ FRML _D Dif(Ws_e_cr) = Tfs_e_cr+Ows_e_cr $ FRML _D Dif(Ws_cr_z) = Tfs_cr_z+Ows_cr_z $ FRML _GJDD Dif(Wnq1_cr) = Tfnq1_cr $ () Finansiel nettoformue FRML _I Wn_cr = Wnb_cr-Wlm_cr_cf+Ws_e_cr+Ws_d_cr-Ws_cr_z+Wnq1_cr $ () Indre Værdi og aktiekurs FRML _D Wsi_cr_z = Kncr+Wnb_cr-Wlm_cr_cf+Ws_e_cr+Ws_d_cr+Wnq1_cr $ FRML _GJRD_Z pws_cr = ((bwsi_cr*Dif(Wsi_cr_z) - Tfs_cr_z)/(Ws_cr_z(-1)-Ws_x_os(-1)-Ws_d_ok(-1))+1)*pws_cr(-1) + 0.5*(bwsi_cr-Ws_cr_z(-1)/Wsi_cr_z(-1))*pws_cr(-1) $ () FINANSIELLE SELSKABER () Transaktioner FRML _GJ_D Tfg_e_cf = 0.5*Tfg_e_cf(-1) $ FRML _GJ_D Tfcp_cf_x = ktfp*(Tffbi-Tffbu+Tipphpb-Sdrph+Tpspi-Tpspu+Tisp-Sdrsp -Tpldu+Tild-Sdrld-Tpdmpu+Tidmp-Sdrdmp) $ FRML _GJ_D Tfbcp_z_cf = (1-bwsp)*Tfcp_cf_x $ FRML _GJ_D Tfscp_e_cf = bwse_cf*bwsp*Tfcp_cf_x $ FRML _GJ_D Tfscp_d_cf = (1-bwse_cf)*bwsp*Tfcp_cf_x $ FRML _GJ_D Tfp_cf_x = ktfp*(Tffpi-Tffpu+Tipphlp-Sdrpp+Tpatpi-Tpatpu+Tiatp-Sdratp) $ FRML _GJ_D Tfbp_z_cf = (1-bwsp)*Tfp_cf_x $ FRML _GJ_D Tfsp_e_cf = bwse_cf*bwsp*Tfp_cf_x $ FRML _GJ_D Tfsp_d_cf = (1-bwse_cf)*bwsp*Tfp_cf_x $ FRML _GJ_D_Z Tfs_cf_z = bwsi_cf/(1-bwsi_cf)*btfs_cf*(Tfn_cf+dif(kncf)) $ FRML _D Tflm_x_cf = Tflm_h_cf+Tflm_cr_cf+Tflm_ok_cf+Tflm_e_cf $ () Placeringsbehov FRML _D Tfnf1_cf = Tfn_cf-Tfg_e_cf+Tfs_cf_z-Tfnq1_cf $ () Placeringer FRML _GJ_D Tfnbr_cf = bwnbr_cf*Tfnf1_cf $ FRML _GJ_D Tfsr_d_cf = (1-bwnbr_cf)*(1-bwse_cf)*Tfnf1_cf $ FRML _GJ_D Tfsr_e_cf = (1-bwnbr_cf)*bwse_cf*Tfnf1_cf $ FRML _GJ_D Tfsr_z_cf = Tfsr_d_cf+Tfsr_e_cf $ () Omvurderinger FRML _GJ_D_Z Owbcp_z_cf = bowb*Wbcp_z_cf(-1) $ FRML _GJ_D_Z Owscp_d_cf = bowsd*Wscp_d_cf(-1) $ FRML _GJ_D_Z Owscp_e_cf = bowse*Wscp_e_cf(-1) $ FRML _D____Z Owcp_cf_x = Owbcp_z_cf+Owscp_d_cf+Owscp_e_cf $ FRML _GJ_D_Z Owbp_z_cf = bowb*Wbp_z_cf(-1) $ FRML _GJ_D_Z Owsp_d_cf = bowsd*Wsp_d_cf(-1) $ FRML _GJ_D_Z Owsp_e_cf = bowse*Wsp_e_cf(-1) $ FRML _D____Z Owp_cf_x = Owbp_z_cf+Owsp_d_cf+Owsp_e_cf $ FRML _GJ_D_Z Ownbr_cf = bowb*Wnbr_cf(-1) $ FRML _GJ_D_Z Owsr_d_cf = bowsd*Wsr_d_cf(-1) $ FRML _GJ_D_Z Owsr_e_cf = bowse*Wsr_e_cf(-1) $ FRML _GJ_D_Z Owlm_x_cf = (pwbm/pwbm(-1)-1)*Wlm_x_cf(-1) $ FRML _GJ_D_Z Owbm_cf_x = Owlm_x_cf $ FRML _GJ_D_Z Ows_cf_z = (pws_cf/pws_cf(-1)-1)*Ws_cf_z(-1) $ () Nettobeholdninger FRML _GJDD Dif(Wg_e_cf) = Tfg_e_cf $ FRML _D Dif(Wbcp_z_cf) = Tfbcp_z_cf+Owbcp_z_cf-Oab_oo_cf $ FRML _D Dif(Wscp_d_cf) = Tfscp_d_cf+Owscp_d_cf-(1-bwse_cf)*Oas_oo_cf $ FRML _D Dif(Wscp_e_cf) = Tfscp_e_cf+Owscp_e_cf-bwse_cf*Oas_oo_cf $ FRML _D Wcp_cf_x = Wbcp_z_cf+Wscp_d_cf+Wscp_e_cf $ FRML _GJDD Dif(Wnbr_cf) = Tfnbr_cf+Ownbr_cf $ FRML _GJ_D Wbm_cf_x = Wlm_x_cf $ FRML _D Wnb_cf = Wbcp_z_cf+Wbp_z_cf+Wnbr_cf-Wbm_cf_x $ FRML _GJDD Dif(Wlm_x_cf) = Tflm_x_cf+Owlm_x_cf $ FRML _D Dif(Wsr_d_cf) = Tfsr_d_cf+Owsr_d_cf $ FRML _D Dif(Wsr_e_cf) = Tfsr_e_cf+Owsr_e_cf $ FRML _D Dif(Wbp_z_cf) = Tfbp_z_cf+Owbp_z_cf $ FRML _D Dif(Wsp_d_cf) = Tfsp_d_cf+Owsp_d_cf $ FRML _D Dif(Wsp_e_cf) = Tfsp_e_cf+Owsp_e_cf $ FRML _D Ws_z_cf = Wscp_e_cf+Wscp_d_cf+Wsp_e_cf+Wsp_d_cf+Wsr_d_cf+Wsr_e_cf $ FRML _GJDD Dif(Ws_cf_z) = Tfs_cf_z+Ows_cf_z $ FRML _D Wp_cf_x = Wbp_z_cf+Wsp_e_cf+Wsp_d_cf $ FRML _GJDD Dif(Wnq1_cf) = Tfnq1_cf $ () Finansiel nettoformue mm FRML _I Wn_cf = Wg_e_cf+Wnbr_cf+Wsr_e_cf+Wsr_d_cf-Ws_cf_z+Wnq1_cf $ () Indre Værdi og aktiekurs FRML _D Wsi_cf_z = Kncf+Wg_e_cf+Wnbr_cf+Wsr_e_cf+Wsr_d_cf+Wnq1_cf $ FRML _GJRD_Z pws_cf = ((bwsi_cf*Dif(Wsi_cf_z) - Tfs_cf_z)/Ws_cf_z(-1)+1)*pws_cf(-1) + 0.5*(bwsi_cf-Ws_cf_z(-1)/Wsi_cf_z(-1))*pws_cf(-1) $ () STATEN FRML _GJDD Dif(Ws_x_os) = Tfs_x_os $ FRML _GJDD Dif(Wnq1_os) = Tfnq1_os $ () Statens nettoplaceringsbehov (=negativt finansieringsbehov) FRML _D Tfnf1_os = Tfn_os-Tfs_x_os-Tfnq1_os $ () Statens finansiering () Den sociale pensionsfond Mv. FRML _GJ_D_Z Owb_z_os = bowb*Wb_z_os(-1) $ FRML _D Dif(Wb_z_os) = Tfb_z_os+Owb_z_os $ FRML _GJ_D nWb_z_os = nWb_z_os(-1)+Tfb_z_os*knwb_z_os $ () Statens udenlandske gæld (SLOG definition - nominel, men valutakurskorrigeret) FRML _GJ_D Tfbe_os_z = ktfbe_os_z*Tfnf1_os $ () Nettolåneoptagelse, udland FRML _GJ_ Tfbge_os_z = Tfbe_os_z+Wbe_os_z(-1)*brwbe_os_z $ () Bruttolåneoptagelse, udland FRML _GJ_D Wbe_os_z = Wbe_os_z(-1)*(1+Dlog(ewdm)) + Tfbge_os_z/ktfbge_os_z - Wbe_os_z(-1)*brwbe_os_z $ () Statens "indenlandske" obligationsgæld () Bruttoudstedelse, Slog definition FRML _GJ_D Tfbgd_os_z = (-Tfnf1_os+Tfb_z_os-Tfbe_os_z)*ktfbgslog + brwbd_os_z*nWbd_os_z(-1) $ () Nominel gæld (SLOG definition) FRML _I nWbd_os_z = nWbd_os_z(-1)*(1-brwbd_os_z) + Tfbgd_os_z/ktfbgd_os_z $ () Tilgang til gælden opgjort til kursværdi FRML _GJ_D Tfbd_os_z = (ktfbgd_os_z+(1-ktfbgd_os_z)*(1-brwbd_os_z))*(Tfbgd_os_z/ktfbgd_os_z-brwbd_os_z*nWbd_os_z(-1)) $ () kurs,gæld og omvurderinger FRML _GJ_D_Z Owbd_os_z = (ktfbgd_os_z+(1-ktfbgd_os_z)*(1-brwbd_os_z)-pwbs(-1))*brwbd_os_z*nWbd_os_z(-1) +Wbd_os_z(-1)*kvs*vs*Dlog(1+iwbosu) $ FRML _GJ_D Wbd_os_z = Wbd_os_z(-1)+Tfbd_os_z+Owbd_os_z $ FRML _D____Z pwbs = Wbd_os_z/nWbd_os_z $ () netto- og sloggæld FRML _I Wnb_os = Wb_z_os-Wbe_os_z-Wbd_os_z $ FRML _G nWbd_os_zslog = kwbd_osslog*nWbd_os_z $ () Statens Nationalbankindestående (Residual, men hvis bwbf_os=1 er den konstant) FRML _I Wn_os = Wnb_os+Ws_x_os+Wnq1_os $ () SLOG definitioner FRML _GJ_D Dif(Wnc_osslog) = Dif(Wnq1_os) $ FRML _D Wn_osslog = nWb_z_os+Wnc_osslog-nWbd_os_z-Wbe_os_z $ () KOMMUNER () Finansiel nettoformue FRML _I Wn_ok = Wnb_ok-Wlm_ok_cf+Ws_e_ok+Ws_d_ok+Wnq1_ok $ () transaktioner FRML _GJ_D Tflm_ok_cf = bwlm_ok*(Iok1-Ivok1) $ () Placeringsbehov FRML _D Tfnf1_ok = Tfn_ok+Tflm_ok_cf-Tfnq1_ok $ () Placeringer FRML _GJ_D Tfnb_ok = bwnb_ok*Tfnf1_ok $ FRML _GJ_D Tfs_d_ok = (1-bwnb_ok)*(1-bwse_ok)*Tfnf1_ok $ FRML _GJ_D Tfs_e_ok = (1-bwnb_ok)*bwse_ok*Tfnf1_ok $ () Omvurderinger FRML _GJ_D_Z Ownb_ok = bowb*Wnb_ok(-1) $ FRML _GJ_D_Z Owlm_ok_cf = (pwbm/pwbm(-1)-1)*Wlm_ok_cf(-1) $ FRML _GJ_D_Z Ows_e_ok = bowse*Ws_e_ok(-1) $ () nettobeholdninger FRML _D Dif(Wnb_ok) = Tfnb_ok+Ownb_ok $ FRML _D Dif(Wlm_ok_cf) = Tflm_ok_cf + Owlm_ok_cf $ FRML _D Dif(Ws_e_ok) = Tfs_e_ok+Ows_e_ok $ FRML _GJDD Dif(Ws_d_ok) = Tfs_d_ok $ FRML _GJDD Dif(Wnq1_ok) = Tfnq1_ok $ () SOCIALE KASSER OG FONDE () transaktioner () GRML _GJ_D Tfnl_oo = bwl_oo*(Ioo1 - Ivoo1) $ () GRML _GJ_D Tfnq1_oo = Tfn_oo-(Tfnb_oo+Tfs_x_oo) $ () Placeringsbehov FRML _D Tfnf1_oo = Tfn_oo-Tfnq1_oo $ () Placeringer FRML _GJ_D Tfnb_oo = bwnb_oo*Tfnf1_oo $ FRML _GJ_D Tfs_x_oo = (1-bwnb_oo)*Tfnf1_oo $ () Omvurderinger FRML _GJ_D_Z Ownb_oo = bowb*Wnb_oo(-1) $ FRML _GJ_D_Z Ows_x_oo = bowsd*Ws_x_oo(-1) $ () Nettobeholdninger FRML _GJDD Dif(Wnb_oo) = Tfnb_oo+Ownb_oo+Oab_oo_cf $ FRML _GJDD Dif(Ws_x_oo) = Tfs_x_oo+Ows_x_oo+Oas_oo_cf $ FRML _GJDD Dif(Wnq1_oo) = Tfnq1_oo $ () Finansiel nettoformue FRML _I Wn_oo = Wnb_oo+Ws_x_oo+Wnq1_oo $ () Offentlig sektors nettoformue FRML _I Wn_o = Wn_os+Wn_ok+Wn_oo $ () UDLAND () Omvurderinger FRML _GJ_D_Z Ows_e_z = (pws_lse/pws_lse(-1)-1)*Ws_e_z(-1) $ FRML _D____Z Owcp_cf_e = Owcp_cf_x-Owcp_cf_h $ FRML _D____Z Ownb_e = Owbm_cf_x + Owbd_os_z + Dif(Wbe_os_z) - Tfbe_os_z - (Ownb_h + Ownb_cr + Ownbr_cf + Owbcp_z_cf +Owbp_z_cf + Owb_z_os + Ownb_ok + Ownb_oo + Oab_oo_cf ) $ FRML _D____Z Owlm_e_cf = (pwbm/pwbm(-1)-1)*Wlm_e_cf(-1) $ FRML _D____Z Ows_z_e = Ows_cr_z + Ows_cf_z - ( Ows_d_h + Ows_d_cr + Owsr_d_cf + Owsp_d_cf + Owscp_d_cf + Ows_x_oo + Oas_oo_cf + (Dif(Ws_x_os) - Tfs_x_os) + (Dif(Ws_d_ok) - Tfs_d_ok)) $ FRML _D____Z Owp_cf_e = Owp_cf_x-Owp_cf_h $ FRML _D____Z Ownq1_e = - ( (Dif(Wnq1_h) - Tfnq1_h) + (Dif(Wnq1_cr) - Tfnq1_cr) + (Dif(Wnq1_cf) - Tfnq1_cf) + (Dif(Wnq1_os) - Tfnq1_os) + (Dif(Wnq1_ok) - Tfnq1_ok) + (Dif(Wnq1_oo) - Tfnq1_oo) ) $ () Beholdninger FRML _D Dif(Wcp_cf_e) = Tfcp_cf_e+Owcp_cf_e $ FRML _D Wnb_e = -(Wnb_h+Wnb_cr+Wnbr_cf+Wbcp_z_cf+Wbp_z_cf-Wbm_cf_x +Wnb_os+Wnb_ok+Wnb_oo ) $ FRML _GJ_D Dif(Wlm_e_cf) = Tflm_e_cf + Owlm_e_cf $ FRML _D Ws_e_z = Ws_e_h+Ws_e_cr+Wsp_e_cf+Wscp_e_cf+Wsr_e_cf+Ws_e_ok $ FRML _D Ws_z_e = Ws_cr_z+Ws_cf_z-(Ws_d_h+Ws_d_cr+Wsp_d_cf+Wscp_d_cf +Wsr_d_cf+Ws_x_os+Ws_d_ok+Ws_x_oo) $ FRML _D Dif(Wp_cf_e) = Tfp_cf_e + Owp_cf_e $ FRML _D Wnq1_e = -(Wnq1_h+Wnq1_cr+Wnq1_cf+Wnq1_os+Wnq1_ok+Wnq1_oo) $ () Transaktioner FRML _D Tfcp_cf_e = Tfcp_cf_x-Tfcp_cf_h $ FRML _D Tfnb_e = Dif(Wnb_e)-Ownb_e $ FRML _D Tfs_z_e = Dif(Ws_z_e)-Ows_z_e $ FRML _D Tfs_e_z = Dif(Ws_e_z)-Ows_e_z $ FRML _D Tfp_cf_e = Tfp_cf_x-Tfp_cf_h $ FRML _D Tfnq1_e = Dif(Wnq1_e)-Ownq1_e $ FRML _I Wn_e = Wcp_cf_e+Wnb_e-Wlm_e_cf+Ws_z_e-Ws_e_z+Wp_cf_e+Wnq1_e $ () Kursgevinstgrader FRML _D____Z bowbm = Owbm_cf_x/Wbm_cf_x(-1) $ FRML _D____Z bowbs = (Owbd_os_z+Dif(Wbe_os_z)-Tfbe_os_z)/(Wbe_os_z(-1)+Wbd_os_z(-1)) $ FRML _D____Z bowb = Wbm_cf_x(-1)/(Wbe_os_z(-1) + Wbd_os_z(-1) + Wbm_cf_x(-1))*bowbm +(Wbe_os_z(-1)+Wbd_os_z(-1))/(Wbe_os_z(-1)+Wbd_os_z(-1)+Wbm_cf_x(-1))*bowbs $ FRML _D____Z bowse = Ows_e_z/(Ws_e_h(-1)+Ws_e_cr(-1)+Wsp_e_cf(-1)+Wscp_e_cf(-1) +Wsr_e_cf(-1)+ Ws_e_ok(-1)) $ FRML _D____Z bowsd = (Ows_cr_z+Ows_cf_z)/(Ws_d_h(-1)+Ws_d_cr(-1)+Wsp_d_cf(-1)+Wscp_d_cf(-1) +Wsr_d_cf(-1)+Ws_x_oo(-1)+Ws_z_e(-1)) $ FRML _D____Z bowcp = (Owbcp_z_cf+Owscp_d_cf+Owscp_e_cf)/Wcp_cf_x(-1) $ () Kurser og kvoter FRML _GJRD_Z Dlog(pwbm) = Dlog(pwbs) $ FRML _D____Z bwsd_e = Ws_z_e/(Ws_cf_z+Ws_cr_z) $ FRML _GJ_D_Z bwse_h = 1/(kbwse_h**bwsd_e) $ FRML _GJ_D_Z bwse_cf = 1/(kbwse_cf**bwsd_e) $ FRML _GJ_D_Z bwse_cr = 1/(kbwse_cr**bwsd_e) $ FRML _GJ_D_Z bwse_ok = 1/(kbwse_ok**bwsd_e) $ FRML _GJ_D_Z bwsp = (Wsp_d_cf+Wsp_e_cf)/Wp_cf_x $ FRML _I____Z pws_kax = Ws_cf_z/(Ws_cf_z+Ws_cr_z)*pws_cf +Ws_cr_z/(Ws_cf_z+Ws_cr_z)*pws_cr $ () ### PENSION.F08 ### () () PENSIONSMODEL () FRML _KJRD iwpp = kiwpp*iuwp $ FRML _K Tipphp = ktipphp*iwpp*Wpp(-1) $ FRML _K 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) $ () NRML _DJRD iwppd = iwpp*(1-tsdr) $ FRML _DJ_D bsdr = 1-229064/(Wpp+Watp) $ () portefølje I lp-sektor ekskl. ATP () FRML _D Tflpn = Tffpi-Tffpu+Tipphlp-Sdrpp $ FRML _GJDD Oselp = (pws_lse/pws_lse(-1)-1)*Wsep_z_iq(-1) $ FRML _GJDD Osdklp = (pws_kax/pws_kax(-1)-1)*Wsdkp_z_iq(-1) $ FRML _GJDD Oblp = (pwbm/pwbm(-1)-1)*Wbp_z_iq(-1) $ FRML _G Wsep_z_iq = (Wsep_z_iq(-1) + Tflpn*bwsp*bwse_cf + Oselp + JDwsep_z_iq )*(1-dlp) + dlp*Zwsep_z_iq $ FRML _G Wsdkp_z_iq = (Wsdkp_z_iq(-1)+Tflpn*bwsp*(1-bwse_cf)+ Osdklp + JDWsdkp_z_iq )*(1-dlp) + dlp*Zwsdkp_z_iq $ FRML _G Wbp_z_iq = (Wbp_z_iq(-1) +Tflpn*(1-bwsp) + Oblp - JDwsep_z_iq-JDWsdkp_z_iq)*(1-dlp) + dlp*Zwbp_z_iq $ FRML _D Wp_z_iq = Wsep_z_iq + Wsdkp_z_iq + Wbp_z_iq $ FRML _D____Z pwz = pwz(-1)*(Oselp+Osdklp+Oblp+Wp_z_iq(-1))/Wp_z_iq(-1) $ () Arbejdsgiveradministrerede løbende ordninger FRML _KJ_D Tbhsl = ktbhsl2*(1+JRktbhsl)*Ysda3*(1-tsda) $ FRML _KJ_D Typshl = kbw*(Wpspl(-1)-0.5*Ospl(-1))*(iwppd/(1-(1+iwppd)**(-nhl))) $ FRML _GJ_D Tishl1 = iwpp*Wpspl(-1)*(1+JRtishl) $ FRML _GJ_D Sdrpsl = Sdrpp*Wpspl(-1)/Wp_z_iq(-1) $ FRML _GJ_D Ospl = Wpspl(-1)*(pwz/pwz(-1)-1) $ FRML _DJ_D Wpspl = Wpspl(-1)+Tbhsl-Typshl+Tishl1-Sdrpsl+Ospl $ () Arbejdsgiveradministrerede engangsydelser FRML _KJ_D Tbhsk = ktbhsk2*(1+JRktbhsk)*Ysda3*(1-tsda) $ FRML _KJ_D Typshk = kbyk*(Wpspk(-1)-0.5*Ospk(-1)) $ FRML _GJ_D Tishk1 = iwpp*Wpspk(-1)*(1+JRtishk) $ FRML _GJ_D Sdrpsk = Sdrpp*Wpspk(-1)/Wp_z_iq(-1) $ FRML _GJ_D Ospk = Wpspk(-1)*(pwz/pwz(-1)-1) $ FRML _DJ_D Wpspk = Wpspk(-1)+Tbhsk-Typshk+Tishk1-Sdrpsk+Ospk $ () Privattegnede løbende ordninger FRML _KJ_D Tphhli = kbhl2*(1+JRtphhli)*Ydph1 $ FRML _KJ_D Tphhlu = kbwp*(Wphpl(-1)-0.5*Ohpl(-1))*(iwppd/(1-(1+iwppd)**(-nhl))) $ FRML _GJ_D Tihhl1 = iwpp*Wphpl(-1)*(1+JRtihhl) $ FRML _GJ_D Sdrppl = Sdrpp*Wphpl(-1)/Wp_z_iq(-1) $ FRML _GJ_D Ohpl = Wphpl(-1)*(pwz/pwz(-1)-1) $ FRML _DJ_D Wphpl = Wphpl(-1)+Tphhli-Tphhlu+Tihhl1-Sdrppl+Ohpl $ () Privattegnede ordninger med engangsudbetalinger FRML _KJ_D Tphhki = kbhk2*(1+JRtphhki)*Ydph1 $ FRML _KJ_D Tphhku = kbpk*(Wphpk(-1)-0.5*Ohpk(-1)) $ FRML _GJ_D Tihsk1 = iwpp*Wphpk(-1)*(1+JRtihsk) $ FRML _GJ_D Sdrppk = Sdrpp*Wphpk(-1)/Wp_z_iq(-1) $ FRML _GJ_D Ohpk = Wphpk(-1)*(pwz/pwz(-1)-1) $ FRML _DJ_D Wphpk = Wphpk(-1)+Tphhki-Tphhku+Tihsk1-Sdrppk+Ohpk $ () Ordinær atp FRML _KJ_D Tpatpi = kbatpi*(1-tsda)*(Qw1*(1-bq1/2)+kkbatpiul*Ul)*.001 $ FRML _KJ_D Tpatpu = kbatpu*(Watp(-1)-0.5*Oatp(-1))*(1+JRtpatpu) $ FRML _GJ_D Tiatp = Watp(-1)*iwpp*(1+JRtiatp) $ FRML _GJDD Oseatp = Wseatp(-1)*(pws_lse/pws_lse(-1)-1) $ FRML _GJDD Osdkatp = Wsdkatp(-1)*(pws_kax/pws_kax(-1)-1) $ FRML _GJDD Obatp = Wbatp(-1)*(pwbm/pwbm(-1)-1) $ FRML _D Oatp = Oseatp + Osdkatp + Obatp $ FRML _G___ Wseatp = (Wseatp(-1) +(Tpatpi-Tpatpu+Tiatp-Sdratp)*bwsp*bwse_cf + Oseatp + JDwseatp )*(1-datp) +datp*Zwseatp $ FRML _G___ Wsdkatp = (Wsdkatp(-1)+(Tpatpi-Tpatpu+Tiatp-Sdratp)*bwsp*(1-bwse_cf) + Osdkatp + JDwsdkatp )*(1-datp) +datp*Zwsdkatp $ FRML _G___ Wbatp = (Wbatp(-1) +(Tpatpi-Tpatpu+Tiatp-Sdratp)*(1-bwsp) + Obatp - JDwseatp-JDwsdkatp)*(1-datp) +datp*Zwbatp $ FRML _D____Z pwatp = pwatp(-1)*(Oseatp+Osdkatp+Obatp+Watp(-1))/Watp(-1) $ FRML _I___ Wsatp = Wsdkatp + Wseatp $ FRML _I___ Watp = Wseatp + Wsdkatp + Wbatp $ () Den midlertidige pensionordning (DMP) - midlertidig ATP FRML _KJ_D Tpdmpu = kbdmpu*(Wdmp(-1)-0.5*Odmp(-1))*(1+JRtpdmpu) $ FRML _GJ_D Tidmp = Wdmp(-1)*iwpp*(1+JRtidmp) $ FRML _GJ_D Odmp = Wdmp(-1)*(pwatp/pwatp(-1)-1) $ FRML _DJ_D Wdmp = Wdmp(-1)+Tpdmpi-Tpdmpu+Tidmp-Sdrdmp+Odmp $ () Den Særlige pensionsordning (SP)- Særlig ATP - evt fra 2002 FRML _KJ_D Tpspi = kbspi*(ksda*Ysda3-(Tbhsk+Tbhsl)+Tyd+Tymfdp+Tyms+Tymb +Tyrks+Tyuly+Tyuak+Tyurev)*(1+JRtpspi) $ FRML _KJ_D Tpspu = kbspu*(Wsp(-1)-0.5*Osp(-1))*(1+JRtpspu) $ FRML _GJ_D Tisp = Wsp(-1)*iwpp*(1+JRtisp) $ FRML _GJ_D Osp = Wsp(-1)*(pwatp/pwatp(-1)-1) $ FRML _DJ_D Wsp = Wsp(-1)+Tpspi-Tpspu+Tisp-Sdrsp+Osp $ () lønmodtagernes dyrtidsfond (LD) FRML _KJ_D Tpldu = kbld*(Wld(-1)-0.5*Old(-1))*(1+JRtpldu) $ FRML _GJ_D Tild = Wld(-1)*iwpp*(1+JRtild) $ FRML _GJ_D Old = Wld(-1)*(pwatp/pwatp(-1)-1) $ FRML _DJ_D Wld = Wld(-1)+Tpldi-Tpldu+Tild-Sdrld+Old $ FRML _D Wpp = Wphpk+Wphpl+Wpspl+Wpspk $ FRML _KJ_D Tihsp = ktihsp*(Tishl1+Tishk1) + Tiatp $ FRML _KJ_D Tbhsp = ktbhsp*(Tbhsl+Tbhsk) + Tpatpi + Tihsp-Sdrpsl-Sdrpsk-Sdratp $ FRML _KJ_D Typshp = ktypshp*(Typshl+Typshk)+Tpatpu $ () Andre ligninger, private pensionsindbetalinger, -udbetalinger og -formue i pengeinstitutter FRML _G___ Tffbu = (1-ktypshp)*(Typshl+Typshk) + (1-ktphu)*(Tphhku + Tphhlu) $ FRML _G Tffbi = (1-ktbhsp)*(Tbhsl + Tbhsk) + (1-ktphi)*(Tphhki + Tphhli) $ () Mangler indbetaling af afkast efter skat? FRML _GJ_D Olb = bowcp*Wppb(-1) $ () kursgevinstgraden bowcp skal vel i princippet så bruges på ld, sp og dmp FRML _D Wppb = Wppb(-1) + Tffbi - Tffbu + Tipphpb - Sdrph + Olb $ () Hvis Tffbi er for lille, så er Olb vel for stor? AFTER $ () -------------------------------------------------------------------------- () --------------------- EFTERMODEL-VARIABLER ------------------------------- () -------------------------------------------------------------------------- () ### FORBRUG.T08 ### () () PRIVAT FORBRUG () () FRML IYDWT Ydwt = Yw1+Twen-Typri-Saso+Ty+Tyen-(Sd-Sden) $ FRML ISDKOR Sdkor = Sd - Sden $ FRML IYRPS1 Yrps1 = Yr1 - Ivo1 $ FRML IFYDPHK fYdphk = Ydphk2/pcpu $ FRML IFYDPSK fYdpsk = Ydpsk2/pcpu $ FRML IFYDPK fYdpk = (Ydphk2+Ydpsk2)/pcpu $ FRML IFYDPK fYdpl = Ydpl1/pcpu $ FRML IFYDPK fYdp = Ydp/pcp $ FRML IFYDPK fYdph = Ydph1/pcp $ FRML IFYDPK fYdps = Ydps1/pcp $ FRML IWCPLD Wcpld = Wcp(-1)/pcpu $ FRML IWCPLD fWcp = Wcp/pcp $ FRML IFCPUXH fCpuxh = (fCp*pcp(-1)-fCb*pcb(-1)+fCbu*pcbu(-1)-fCh*pch(-1))/pcpuxh(-1) $ FRML IFCPU fCpu = Cpu/pcpu $ FRML ICPXH Cpxh = Cp-(pch*fCh) $ FRML IFCPXH fCpxh = (fCp*pcp(-1)-fCh*pch(-1))/pcpxh(-1) $ FRML IPCPXH pcpxh = Cpxh/fCpxh $ 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 ICGE Cge = Cg+Ce $ FRML IFCGE fCge = (fCg*pcg(-1)+fCe*pce(-1))/pcge(-1) $ FRML IPCGE pcge = Cge/fcge $ FRML ICFNIV Cfniv = Cf+Cn+Ci+Cv $ FRML IFCFNIV fCfniv = (fCf*pcf(-1)+fCn*pcn(-1)+fCi*pci(-1)+fCv*pcv(-1))/pcfniv(-1) $ FRML IPCFNIV pcfniv = Cfniv/fCfniv $ FRML IFCGK fCgk = Cgk/pcgk $ FRML IYDPY Ydpy = 100*Ydp/Y $ FRML IBCPUXH bcpuxh = (Cp-Cb+Cbu-(pch*fCh))/(Ydpl1) $ FRML IBCPXH bcpxh = (Cp-(pch*fCh))/(Ydpl1-(pch*fCh)) $ FRML IBCP bcp = Cp/Ydp $ FRML IBCPYSM bcpysm = Cp/(Yf + Ty) $ FRML IBCPY bcpy = Cp/Y $ FRML IBCPYF bcpyf = Cp/Yf $ FRML IBWCP bwcp = Wcp(-1)/Ydp $ FRML IBFCGK bfcgk = fCg/fCk $ FRML IECPUXH Ecpuxh = Cpuxh - Exp( 0.365845*Dlog(Ydphk2) +0.097410*Dlog(Wcp(-1)) -0.531462*Dlog(pcpuxh)+0.077129*Dlog(pchu) -0.347112*(Log(Cpuxh(-1)/pcpuxh(-1)) -(0.872167*Log(Ydpl1(-1)/pcpu(-1)) +(1-0.872167)*Log(Wcp(-2)/pcpu(-1)) -0.300000*Log(pcpuxh(-1)/pcpu(-1)) -0.292620 )) +Log(Cpuxh(-1)/pcpuxh(-1))+Log(pcpuxh)) $ FRML IEFCPUXH Efcpuxh = Ecpuxh*fCpuxh/Cpuxh $ () ### INVEST.T08 ### () () INVESTERINGER () FRML IFIF fIf = (fIm*pim(-1) + fIb*pib(-1) + fIt*pit(-1))/pif(-1) $ FRML IIF If = I - fIl*pil $ FRML IFI fI = (fIf*pif(-1) + fIl*pil(-1))/pi(-1) $ FRML IIP Ip = fImp*pimp+fImk*pimk+fIbp*pibp+fIbh*pibh+fIt*pit+fIl*pil $ FRML IFIP fIp = (fImp*pimp(-1) + fImk*pimk(-1) + fIbp*pibp(-1) + fIbh*pibh(-1) + fIt*pit(-1) + fIl*pil(-1))/pip(-1) $ FRML IPIP pip = Ip/fIp $ FRML IFIP11 fIp11 = (fIbp11*pibp11(-1)+fImp11*pimp11(-1)+fIt*pit(-1)+fIbh*pibh(-1)+fIl*pil(-1))/pip11(-1) $ FRML IIP11 Ip11 = I - Io11 $ FRML IIfp Ifp = fImp*pimp+fImk*pimk+fIbp*pibp+fIbh*pibh+fIt*pit $ FRML IFIFP fIfp = (fImp*pimp(-1) + fImk*pimk(-1) + fIbp*pibp(-1) + fIbh*pibh(-1) + fIt*pit(-1))/pifp(-1) $ FRML IPIFP pifp = Ifp/fIfp $ FRML IIFPXH Ifpxh = fImp*pimp+fImk*pimk+fIbp*pibp+fIt*pit $ FRML IFIFPXH fIfpxh = (fImp*pimp(-1) + fImk*pimk(-1) + fIbp*pibp(-1) + fIt*pit(-1))/pIfpxh(-1) $ FRML IPIFPXH pifpxh = Ifpxh/fIfpxh $ FRML IIFP1XH1 Ifp1xh1 = fIbp11*pibp11+fImp11*pimp11+fIt*pit $ FRML IFIFP1XH1 fIfp1xh1 = (fIbp11*pibp11(-1)+fImp11*pimp11(-1)+fIt*pit(-1))/pifp1xh1(-1) $ FRML IPIFP1XH1 pifp1xh1 = Ifp1xh1/fIfp1xh1 $ FRML IIFO Ifo = fImo*pimo + fIbo*pibo $ FRML IFIFO fIfo = (fImo*pimo(-1) + fIbo*pibo(-1))/pifo(-1) $ FRML IPIFO pifo = Ifo/fIfo $ FRML IIO Io = fImo*pimo + fIbo*pibo $ FRML IFIO fIo = (fImo*pimo(-1) + fIbo*pibo(-1))/pio(-1) $ FRML IPIO pio = Io/fIo $ FRML IFIMO1 fImo1 = (fIo1*pio1(-1)-fIbo1*pibo1(-1))/pimo1(-1) $ FRML IIbo1 Ibo1 = fIbo1*pibo1 $ FRML IImo1 Imo1 = Io1-Ibo1 $ FRML Ipimo1 pimo1 = Imo1/fImo1 $ FRML IIT It = pit*fIt $ FRML IFIBP1 fIbp1 = (fIb*pib(-1)-fIbh*pibh(-1)-fIbo1*pibo1(-1))/pibp1(-1) $ FRML IFIMP1 fImp1 = (fIm*pim(-1)-fImo1*pimo1(-1))/pimp1(-1) $ FRML IIPB11 Ibp11 = pibp11*fIbp11 $ FRML IIPM11 Imp11 = pimp11*fImp11 $ FRML IIP1 Ip1 = I-Io1 $ FRML IFIP1 fIp1 = (fI*pi(-1)-fIo1*pio1(-1))/pip1(-1) $ FRML IPIP1 pip1 = Ip1/fIp1 $ 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 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*fChe/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 + binvbh - 0.50*rpibhe $ FRML IUIBHs uibhs = (tsuih*Yrphs + 0.8*Siqej*Knbhe(-2)/(Knbp(-2)+Knbh(-2)) + Ssyej )/fChe $ FRML IUIBHsl uibhsl = tsuih*Yrphs/fChe $ FRML IUIBHsq uibhsq = (0.8*Siqej*Knbhe(-2)/(Knbp(-2)+Knbh(-2)))/fChe $ FRML IUIBHsy uibhsy = Ssyej/fChe $ FRML IUIBHn uibhn = (Knbhe(-1)/pibh(-1))/fKbhe(-1) $ () () LAGERINVESTERINGER () FRML IIL Il = pil*fIl $ FRML IFILN FILN = fIlne+fIlng+fIlnf+fIlnn+fIlnb+fIlnm+fIlnt+fIlnk+fIlnq $ FRML IFILQ FILQ = fIlqh+fIlqq $ FRML IFILM FILM = fIlm0+fIlm1+fIlm2+fIlm3k+fIlm3r+fIlm3q+fIlm5+fIlm6m +fIlm6q+fIlm7b+fIlm7y+fIlm7q+fIlm8 $ () ### IMPEKSP.T08 ### () () () 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 IE7 E7 = E7q+E7y $ 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 $ () () () EKSPORT I FASTE PRISER () () FRML IFE7 FE7 = (fe7y*pe7y(-1)+fe7q*pe7q(-1))/pe7(-1)$ FRML IFE59 fE59 = (fE5*pe5(-1)+fE6*pe6(-1)+fE7y*pe7y(-1)+fE7q*pe7q(-1)+fE8*pe8(-1))/pe59(-1) $ FRML IFE59X7Y fE59x7y = (fE59*pe59(-1)-fE7y*pe7y(-1))/pe59x7y(-1) $ FRML IFEVX3 fEvx3 = (fEv*pev(-1)-fE3*pe3(-1))/pevx3(-1) $ FRML IFEST fEst = (fEs*pes(-1)+fEt*pet(-1))/pest(-1) $ () () () EKSPORTPRISER () () FRML IPE7 PE7 = E7/fe7 $ FRML IPE59 pe59 = E59/fE59 $ FRML IPE59x7y pe59x7y = E59x7y/fE59x7y $ FRML IPEVx3 pevx3 = Evx3/fEvx3 $ FRML IPEST pest = (Es+Et)/fEst $ () () () UDENLANDSK EFTERSPØRGSEL OG KONKURRENTPRIS INDUSTRIVARER () Eksklusiv skibe, fly mm (fE7y/pe7y) () FRML IFEE59 fEe59 = fEe59(-1)*( (E5(-1)/E59x7y(-1))*fEe5/fEe5(-1) + (E6(-1)/E59x7y(-1))*fEe6/fEe6(-1) + (E7q(-1)/E59x7y(-1))*fEe7q/fEe7q(-1) + (E8(-1)/E59x7y(-1))*fEe8/fEe8(-1) ) $ FRML IPEE59 pee59 = pee59(-1)*( (E5(-1)/E59x7y(-1))*pee5/pee5(-1) + (E6(-1)/E59x7y(-1))*pee6/pee6(-1) + (E7q(-1)/E59x7y(-1))*pee7q/pee7q(-1) + (E8(-1)/E59x7y(-1))*pee8/pee8(-1) ) $ () () () 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 IM5 M5 = pm5*fM5 $ FRML IM6M M6m = pm6m*fM6m $ FRML IM6Q M6q = pm6q*fM6q $ FRML IM7B M7b = pm7b*fM7b $ FRML IM7Y M7y = pm7y*fM7y $ FRML IM7Q M7q = pm7q*fM7q $ FRML IM8 M8 = pm8*fM8 $ FRML Im3 M3 = M3k + M3r + M3q $ FRML IM6 M6 = M6m + M6q $ FRML IM7 M7 = M7b + M7y + M7q $ FRML IM59 M59 = M5+M6+M7+M8 $ FRML IM59x7y M59x7y = M59-M7y $ FRML IMvx3 Mvx3 = Mv-M3 $ FRML IMST Mst = Ms+Mt $ () () () IMPORT I FASTE PRISER (INDEHOLDER OGSÅ NOGET RE-IMPORT) () () FRML IFM7 fM7 = (fM7b*pm7b(-1)+fM7y*pm7y(-1)+fM7q*pm7q(-1))/pm7(-1) $ FRML IFM6 fM6 = (fM6m*pm6m(-1)+fM6q*pm6q(-1))/pm6(-1) $ FRML IFM3 fM3 = (fM3k*pm3k(-1)+fM3r*pm3r(-1)+fM3q*pm3q(-1))/pm3(-1) $ FRML IFM59 fM59 = (fM5*pm5(-1)+fM6*pm6(-1)+fM7*pm7(-1)+fM8*pm8(-1))/pm59(-1) $ FRML IFM59x7y fM59x7y = (fM59*pm59(-1)-fM7y*pm7y(-1))/pm59x7y(-1) $ FRML IfMvx3 fMvx3 = (fMv*pmv(-1)-fM3*pm3(-1))/pmvx3(-1) $ FRML IFMST fMst = (fMs*pms(-1)+fMt*pmt(-1))/pmst(-1) $ FRML IFMZ59 fMz59 = (fMz5*pm5(-1)+fMz6m*pm6m(-1)+fMz6q*pm6q(-1)+fMz7q*pm7q(-1)+fMz8*pm8(-1))/pm59(-1) $ FRML IFMZ fMz = (fMz0*pm0(-1)+fMz1*pm1(-1)+fMz2*pm2(-1)+fMz3q*pm3q(-1)+fMz59*pm59(-1))/PM(-1) $ FRML IFAM59 fAm59 = fAm59(-1)*( fAm5/fAm5(-1)*fMz5(-1)/FMZ59(-1) + fAm6m/fAm6m(-1)*fMz6m(-1)/FMZ59(-1) + fAm6q/fAm6q(-1)*fMz6q(-1)/FMZ59(-1) + fAm7q/fAm7q(-1)*fMz7q(-1)/FMZ59(-1) + fAm8/fAm8(-1)*fMz8(-1)/FMZ59(-1)) $ FRML IFAM fAm = fAm(-1)*( fAm0/fAm0(-1)*fMz0(-1)/FMZ(-1) + fAm1/fAm1(-1)*fMz1(-1)/FMZ(-1) + fAm2/fAm2(-1)*fMz2(-1)/FMZ(-1) + fAm3q/fAm3q(-1)*fMz3q(-1)/FMZ(-1) + fAm5/fAm5(-1)*fMz5(-1)/FMZ59(-1) + fAm6m/fAm6m(-1)*fMz6m(-1)/FMZ59(-1) + fAm6q/fAm6q(-1)*fMz6q(-1)/FMZ59(-1) + fAm7q/fAm7q(-1)*fMz7q(-1)/FMZ59(-1) + fAm8/fAm8(-1)*fMz8(-1)/FMZ59(-1)) $ FRML IPM3 pm3 = M3/fM3 $ FRML IPM6 pm6 = M6/fM6 $ FRML IPM7 pm7 = M7/fM7 $ FRML IPM59 pm59 = M59/fM59 $ FRML IPM59x7y pm59x7y = M59x7y/fM59x7y $ FRML IPMVx3 pmvx3 = Mvx3/fMvx3 $ FRML IPMST pmst = (Ms+Mt)/fMst $ () () () IMPORTKVOTER () () FRML IBFM bfm = fM/(fM+fY) $ FRML IBM bm = (M)/(M+Y) $ FRML IBFMZ59 bfmz59 = (fMz59/194654)/fAm59 $ FRML IBFMZ bfmz = (fMz/251466)/fAm $ () () FRML YZfM7bim Zfm7bim = am7bim*fIm $ FRML YZfMsqs Zfmsqs = amsqs*fXqs $ () ### I-O.T08 ### () () () 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*pxa(-1)+fXe*pxe(-1)+fXn*pxn(-1)+fXb*pxb(-1)+fXqh*pxqh(-1)+fXqs*pxqs(-1) +fXqt*pxqt(-1)+fXqf*pxqf(-1)+fXqq*pxqq(-1)+fXh*pxh(-1)+fXo*pxo(-1))/px(-1) $ FRML IFXQ fXq = (fXqh*pxqh(-1)+fXqs*pxqs(-1)+fXqt*pxqt(-1)+fXqf*pxqf(-1)+fXqq*pxqq(-1))/pxq(-1) $ 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.T08 ### () () () 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*pxng(-1)+fXne*pxne(-1)+fXnf*pxnf(-1)+fXnn*pxnn(-1)+fXnb*pxnb(-1) +fXnm*pxnm(-1)+fXnt*pxnt(-1)+fXnk*pxnk(-1)+fXnq*pxnn(-1))/pxn(-1))/ (Qng1+Qne1+Qnf1+Qnn1+Qnb1+Qnm1+Qnt1+Qnk1+Qnq1) $ FRML IQxq1 Qxq1 = ((fXqh*pxqh(-1)+fXqs*pxqs(-1)+fXqt*pxqt(-1)+fXqf*pxqf(-1)+fXqq*pxqq(-1))/pxq(-1))/ (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*pyfqh(-1)+fYfqs*pyfqs(-1)+fYfqt*pyfqt(-1)+fYfqf*pyfqf(-1)+fYfqq*pyfqq(-1))/pyfq(-1))/ (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 $ () Beskæftigelses- og erhvervsfrekvens FRML Iefrek1 efrek = Ua1/U1564 $ FRML Iefrek efrek1 = Ua1/Uw $ FRML Ibfrek1 bfrek = Q1/U1564 $ FRML Ibfrek bfrek1 = Q1/Uw $ () ### LOEN.T08 ### () () () lØNSUMMER OG lØNKVOTER () () FRML IYwp1 Ywp1 = Ywa1+Ywe1+Ywng1+Ywne1+Ywnf1+Ywnn1+Ywnb1+Ywnm1+Ywnt1+Ywnk1+Ywnq1 +Ywb1+Ywqh1+Ywqs1+Ywqt1+Ywqf1+Ywqq1+Ywh1 $ FRML IYwq1 Ywq1 = Ywqh1+Ywqs1+Ywqt1+Ywqf1+Ywqq1 $ FRML IYrq1 Yrq1 = Yrqh1+Yrqs1+Yrqt1+Yrqf1+Yrqq1 $ FRML IYro2 Yro2 = Yro1 $ () Yro1 burde hedde Yro2 FRML IYrp1 Yrp1 = Yr1-Yro2 $ FRML IYro11 Yro11 = Ivo1 $ () Ivo1 burde hedde Ivo11 FRML IYrp11 Yrp11 = Yr1-Yro11 $ FRML Ibyw1 byw1 = Yw1/(Yw1+Yr1) $ FRML Ibywn1 bywn1 = Ywn1/(Ywn1+Yrn1) $ FRML Ibywq1 bywq1 = Ywq1/(Ywq1+Yrq1) $ FRML Ibywqs1 bywqs1 = Ywqs1/(Ywqs1+Yrqs1) $ FRML Ibywo2 bywo2 = Ywo2/(Ywo2+Yro1) $ () Offentlige erhverv FRML Ibywo11 bywo11 = Ywo11/(Ywo11+Yro11) $ () Offentlig sektor FRML Ibywo2 bywp1 = Ywp1/(Ywp1+Yrp1) $ () private erhverv FRML Ibywo2 bywp11 = (Yw1-Ywo11)/((Yw1-Ywo11)+Yrp11) $ () privat sektor () ### SKATTRAN.T08 ### () () () TRANSFERERINGER () FRML ItTYdl ttydl = Tyd/(Uldp*.001) $ FRML ItYdY tydy = 100*Tyd/Y $ () Modtagere af indkomstoverførsler (valgt Usy frem for Uuxa) () Udenfor arbejdsstyrken FRML IUoxa Uoxa = Usu+Uakx+Urev+Uly+Ufdp+Usxa+Usb+Umf+Uef+Uov+Ufox+Ufou+Ukxa+Ukak+Ufpx+Ufpu+Upt $ () Samlet FRML IUo Uo = Uoxa+Ul+Qfp+Qfo+Qss+Qak+Qlt $ () Særlige gruppering til FM FRML IUofxa Uofxa = Urev+Uly+Ufdp+Uss+Usb+Umf+Uef+Uov+Ufoi+Ukxa+Ul $ FRML IUof Uof = Uofxa+Uakx+Ukak $ () () () 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 ISy Sy = 100*S/Y $ 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 IYspy Yspy = 100*Ysp/Y $ () 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.T08 ### () () BRUTTONATIONALPRODUKT, BRUTTOVÆRDITILVÆKST () OG ANDRE INDKOMSTBEGREBER M.V. () FRML IFYST fYst = (fY*py(-1)+fM*pm(-1))/pyst(-1) $ FRML IYST Yst = (Y) + (M) $ FRML IPYST pyst = Yst/fYst $ 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 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/fM(-1)-1)*100*(M(-1)/Y(-1)) $ FRML IAFE afe = (fE/fE(-1)-1)*100*(E(-1)/Y(-1)) $ FRML IAFCP afcp = (fCp/fCp(-1)-1)*100*(CP(-1)/Y(-1)) $ FRML IAFCO afco = (fCo/fCo(-1)-1)*100*(Co(-1)/Y(-1)) $ FRML IAFIP11 afip11 = (fIp11/fIp11(-1)-1)*100*(ip11(-1)/Y(-1)) $ FRML IAFIFP1XH afifp1xh = (fIfp1xh1/fIfp1xh1(-1)-1)*100*(ifp1xh1(-1)/Y(-1)) $ FRML IAFIO11 afio11 = (fIo11/fIo11(-1)-1)*100*(io11(-1)/Y(-1)) $ FRML IAFIBH afibh = (fIbh/fIbh(-1)-1)*100*(ibh(-1)/Y(-1)) $ FRML IAFIL afil = (fIl/fIl(-1)-1)*100*(il(-1)/Y(-1)) $ () () ERHVERVSFORDELT BRUTTOVÆRDITILVÆKST I ÅRETS PRISER () FRML IYFP Yfp = Yf-Yfo $ FRML IfYfp fYfp = (fYf*pyf(-1)-fYfo*pyfo(-1))/pyfp(-1) $ FRML Ipyfp pyfp = Yfp/fYfp $ FRML IYFP1 Yfp1 = Yf-Yfo11 $ FRML IYFQ Yfq = Yfqh+Yfqs+Yfqt+Yfqf+Yfqq $ FRML IFYFQ fYfq = (fYfqh*pyfqh(-1)+fYfqs*pyfqs(-1)+fYfqt*pyfqt(-1)+fYfqf*pyfqf(-1)+fYfqq*pyfqq(-1))/pyfq(-1) $ FRML Ipyfq pyfq = Yfq/fYfq $ () ### BALANCER.T08 ### () () 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+Tymfdp+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+Tiir_z_os+Tior -Tiokr+Siafo-Siafok+Sd-Sdkk+Sasr+Tbpho+Typri-Typrik +Taois $ FRML Ibtiin_e btiin_e = Tiin_e/( (Wnq1_e(-1)+Wnq1_e)/2 +(Wnb_e(-1)-Wlm_e_cf(-1)) + Wp_cf_e(-1) ) $ FRML Ibtiin_h btiin_h = Tiin_h/( (Wnq1_h(-1)+Wnq1_h)/2 +(Wnb_h(-1)-Wlm_h_cf(-1)) + Wcp_cf_h(-1) ) $ FRML Ibtiin_cr btiin_cr = Tiin_cr/( (Wnq1_cr(-1)+Wnq1_cr)/2 +(Wnb_cr(-1)-Wlm_cr_cf(-1)) ) $ FRML Ibtiin_ok btiin_ok = Tiin_ok/( (Wnq1_ok(-1)+Wnq1_ok)/2 +(Wnb_ok(-1)-Wlm_ok_cf(-1)) )$ FRML Ibtiin_oo btiin_oo = Tiin_oo/( (Wnq1_oo(-1)+Wnq1_oo)/2 +Wnb_oo(-1) ) $ FRML Ibtisuu btisuu = Tisuu/Wbe_os_z(-1) $ FRML Ibtisui btisui = Tisui/Wbd_os_z(-1) $ FRML Ibtiir_z_os btiir_z_os = Tiir_z_os/( (Wnq1_os(-1)+Wnq1_os)/2 +Wb_z_os(-1) ) $ FRML Ibtiin_cf btiin_cf = Tiin_cf*2/(Wnb_cf+Wbm_cf_x+Wnq1_cf +Wnb_cf(-1)+Wbm_cf_x(-1)+Wnq1_cf(-1) )$ () GRML Ibtiin_e btiin_e = Tiin_e/( (Wncr_e(-1)+Wncr_e+Wnlr_e(-1)+Wnlr_e+Wnq_e(-1)+Wnq_e)/2 () +(Wnb_e(-1)-Wlm_e_cf(-1)) + Wp_cf_e(-1) ) $ () GRML Ibtiin_h btiin_h = Tiin_h/( (Wncr_h(-1)+Wncr_h+Wnlr_h(-1)+Wnlr_h+Wnq_h(-1)+Wnq_h)/2 () +(Wnb_h(-1)-Wlm_h_cf(-1)) + Wcp_cf_h(-1) ) $ () GRML Ibtiin_cr btiin_cr = Tiin_cr/( (Wnc_cr(-1)+Wnc_cr+Wnlr_cr(-1)+Wnlr_cr+Wnq_cr(-1)+Wnq_cr)/2 () +(Wnb_cr(-1)-Wlm_cr_cf(-1)) ) $ () GRML Ibtiin_ok btiin_ok = Tiin_ok/( (Wnc_ok(-1)+Wnlr_ok(-1)+Wnc_ok+Wnlr_ok+Wnq_ok(-1)+Wnq_ok)/2 () +(Wnb_ok(-1)-Wlm_ok_cf(-1)) )$ () GRML Ibtiin_oo btiin_oo = Tiin_oo/( (Wnc_oo(-1)+Wnl_oo(-1)+Wnc_oo+Wnl_oo+Wnq_oo(-1)+Wnq_oo)/2 () +Wnb_oo(-1) ) $ () GRML Ibtisuu btisuu = Tisuu/Wbe_os_z(-1) $ () GRML Ibtisui btisui = Tisui/Wbd_os_z(-1) $ () GRML Ibtiir_z_os btiir_z_os = Tiir_z_os/( (Wnc_os(-1)+Wnl_os(-1)+Wnc_os+Wnl_os+Wnq_os(-1)+Wnq_os)/2 () +Wb_z_os(-1) ) $ () GRML Ibtiin_cf btiin_cf = Tiin_cf*2/(Wncr_cf+Wnb_cf+Wbm_cf_x+Wnlr_cf+Wnq_cf () +Wncr_cf(-1)+Wnb_cf(-1)+Wbm_cf_x(-1)+Wnlr_cf(-1)+Wnq_cf(-1) )$ 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 $ FRML IKeny Keny = 100*Ken/Y $ () ### FINK.T08 ### () () *********** () () *TESTMODUL* () () *********** () () Fordringer skal summere til nul over sektorer () GRML Dzzcp zzcp = Wcp_cf_h+Wcp_cf_e-Wcp_cf_x $ () GRML Dzzb zzb = Wnb_h+Wnb_cr+Wnbr_cf+Wbp_z_cf+Wbcp_z_cf-Wbm_cf_x+Wnb_os+Wnb_ok+Wnb_oo+Wnb_e $ () GRML Dzzlm zzlm = Wlm_h_cf+Wlm_cr_cf+Wlm_ok_cf+Wlm_e_cf-Wlm_x_cf $ () GRML Dzzs zzs = Ws_e_h+Ws_d_h+Ws_e_cr+Ws_d_cr-Ws_cr_z () +Wscp_e_cf+Wscp_d_cf+Wsp_e_cf+Wsp_d_cf+Wsr_e_cf+Wsr_d_cf-Ws_cf_z () +Ws_x_os+Ws_e_ok+Ws_d_ok+Ws_x_oo+Ws_z_e-Ws_e_z $ () GRML Dzzp zzp = Wp_cf_x-Wp_cf_h-Wp_cf_e+Wcp_cf_x-Wcp_cf_h-Wcp_cf_e $ () GRML Dzzq zzq = Wnq1_h+Wnq1_cr+Wnq1_cf+Wnq1_os+Wnq1_ok+Wnq1_oo+Wnq1_e $ () GRML Dzzw zzw = Wn_h+Wn_cr+Wn_cf+Wn_os+Wn_ok+Wn_oo+Wn_e-Wg_e_cf $ () Omvurderinger - skal summere til nul () GRML Dzzob zzob = bowb*Wnb_h(-1)+bowb*Wnb_cr(-1)+bowb*Wnbr_cf(-1)+bowb*Wbcp_z_cf(-1) () +bowb*Wbp_z_cf(-1)-Owbm_cf_x+bowb*Wb_z_os(-1)-Owbd_os_z - (Dif(Wbe_os_z)-Tfbe_os_z) () +bowb*Wnb_ok(-1)+bowb*Wnb_oo(-1)+bowb*Wnb_e(-1) $ () GRML Dzzos zzos = bowse*Ws_e_h(-1)+bowsd*Ws_d_h(-1)+bowse*Ws_e_cr(-1)+bowsd*Ws_d_cr(-1) () -Ows_cr_z+bowse*Wsr_e_cf(-1)+bowse*Wscp_e_cf(-1)+bowse*Wsp_e_cf(-1) () +bowsd*Wsr_d_cf(-1)+bowsd*Wsp_d_cf(-1)+bowsd*Wscp_d_cf(-1)-Ows_cf_z () +bowse*Ws_e_ok(-1)+bowsd*Ws_x_oo(-1)+bowsd*Ws_z_e(-1)-Ows_e_z $ () GRML DzzOws_e_z zzows_e_z = Ows_e_z - ( Ows_e_h + Ows_e_cr () + Owsr_e_cf + Owscp_e_cf () + Owsp_e_cf + Ows_e_ok) $ () GRML Dzzows_z_e zzows_z_e = Ows_cr_z + Ows_cf_z - ( Ows_d_h + Ows_d_cr () + Owsr_d_cf + Owscp_d_cf () + Owsp_d_cf + Ows_x_oo () + (dif(Ws_x_os) - Tfs_x_os) () + (dif(Ws_d_ok) - Tfs_d_ok)) - Ows_z_e $ () TRANSAKTIONER () () Transaktioner skal summere til nettofordringserhvervelse () GRML Dzztfn_h zztfn_h = Tfcp_cf_h+Tfnb_h-Tflm_h_cf +Tfs_d_h+Tfs_e_h +Tfp_cf_h+Tfnq1_h-Tfn_h $ () GRML DzzTfn_cr zzTfn_cr = Tfnb_cr+Tfs_d_cr+Tfs_e_cr-Tflm_cr_cf-Tfs_cr_z+Tfnq1_cr-Tfn_cr $ () GRML Dzztfn_cf zztfn_cf = Tfnbr_cf+Tfsr_d_cf+Tfsr_e_cf+Tfg_e_cf-Tfs_cf_z+Tfnq1_cf-oas_oo_cf-oab_oo_cf-Tfn_cf $ () GRML Dzztfn_os zztfn_os = Tfs_x_os+Tfnq1_os+(Tfb_z_os-Tfbe_os_z-Tfbd_os_z)-Tfn_os $ () GRML Dzztfn_ok zztfn_ok = (Tfnb_ok-Tflm_ok_cf+Tfs_d_ok + Tfs_e_ok+Tfnq1_ok) - Tfn_ok $ () GRML Dzztfn_oo zztfn_oo = Tfnb_oo+Tfs_x_oo+Tfnq1_oo - Tfn_oo $ () GRML Dzztfn_e1 zztfn_e1 = zztfn_h+Tfn_h+zztfn_cr+Tfn_cr+zztfn_cf+Tfn_cf+zztfn_os+Tfn_os () +zztfn_ok+Tfn_ok+zztfn_oo+Tfn_oo+Tfn_e $ () GRML Dzztfn_e2 zztfn_e2 = (bwpe*Tfcp_cf_x+Tfnb_e-Tflm_e_cf+Tfs_z_e-Tfs_e_z+Tfp_cf_e+Tfnq1_e-Tfg_e_cf) - Tfn_e $ () GRML Dzztfcp zztfcp = Tfcp_cf_h+bwpe*Tfcp_cf_x-Tfcp_cf_x $ () GRML Dzztfb zztfb = Tfnb_h+Tfnb_cr+Tfbcp_z_cf+Tfbp_z_cf+Tfnbr_cf-(Dif(Wbm_cf_x)-Owbm_cf_x)+Tfb_z_os-(Tfbd_os_z+Tfbe_os_z)+Tfnb_ok+Tfnb_oo+Tfnb_e-oab_oo_cf $ () GRML Dzztflm zztflm = -Tflm_h_cf-Tflm_cr_cf+Tflm_x_cf-Tflm_ok_cf-Tflm_e_cf $ () GRML Dzztfs_d zztfs_d = Tfs_d_h+Tfs_d_cr-Tfs_cr_z+Tfscp_d_cf+Tfsp_d_cf+Tfsr_d_cf-Tfs_cf_z+Tfs_x_os+Tfs_d_ok+Tfs_x_oo+Tfs_z_e-(1-bwse_cf)*oas_oo_cf $ () GRML Dzztfs_e zztfs_e = Tfs_e_h+Tfs_e_cr+Tfscp_e_cf+Tfsp_e_cf+Tfsr_e_cf+Tfs_e_ok-Tfs_e_z-bwse_cf*oas_oo_cf $ () GRML Dzztfp zztfp = Tfp_cf_h+Tfp_cf_e-Tfp_cf_x $ () GRML Dzztfq zztfq = Tfnq1_h+Tfnq1_cr+Tfnq1_cf+Tfnq1_os+Tfnq1_ok+Tfnq1_oo+Tfnq1_e $ () ### FAKTOR.T08 ### () --------------------------------------------------------------------------------- () () AFLEDTE VARIABLER FRA FAKTORBLOKKEN () FRML IFKMaM1 fkmam1 = 0.29101**(0.51000/(1-0.51000))*(1/dtfkma1)*((fxa-hostkor)/68665.63080/1.06722)*117304.00000 $ FRML IFKMnfM1 fkmnfm1 = 0.24005**(0.67000/(1-0.67000))*(1/dtfkmnf1)*(fxnf/104171.00000/1.08686)*54690.65234 $ FRML IFKMnnM1 fkmnnm1 = 0.30071**(0.28000/(1-0.28000))*(1/dtfkmnn1)*(fxnn/12519.00000/1.06121)*5894.19189 $ FRML IFKMnbM1 fkmnbm1 = 0.21442**(0.50292/(1-0.50292))*(1/dtfkmnb1)*(fxnb/31585.00000/1.03878)*26210.62891 $ FRML IFKMnmM1 fkmnmm1 = 0.23478**(0.38909/(1-0.38909))*(1/dtfkmnm1)*(fxnm/170085.00000/1.08722)*89217.00000 $ FRML IFKMntM1 fkmntm1 = 0.25499**(0.52140/(1-0.52140))*(1/dtfkmnt1)*(fxnt/17358.00000/1.06351)*6482.00000 $ FRML IFKMnkM1 fkmnkm1 = 0.30414**(0.45102/(1-0.45102))*(1/dtfkmnk1)*(fxnk/75161.00000/1.06257)*61856.36719 $ FRML IFKMnqM1 fkmnqm1 = 0.26795**(0.29031/(1-0.29031))*(1/dtfkmnq1)*(fxnq/86920.00000/1.04927)*60642.70313 $ FRML IFKMbM1 fkmbm1 = 0.11123**(0.27014/(1-0.27014))*(1/dtfkmb1)*(fxb/153175.00000/1.01335)*50487.00000 $ FRML IFKMqhM1 fkmqhm1 = 0.12452**(0.16211/(1-0.16211))*(1/dtfkmqh1)*(fxqh/228529.00000/1.08502)*159315.79688 $ FRML IFKMqtM1 fkmqtm1 = 0.48769**(0.38318/(1-0.38318))*(1/dtfkmqt1)*(fxqt/155453.00000/1.03990)*162944.00000 $ FRML IFKMqqM1 fkmqqm1 = 0.21237**(0.35000/(1-0.35000))*(1/dtfkmqq1)*(fxqq/352530.00000/0.97596)*218853.96875 $ () () 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 $ () Energikvoter FRML Ibvea bvea = pvea *fVea /Xa $ FRML Ibveb bveb = pveb *fVeb /Xb $ FRML Ibvenb bvenb = pvenb*fVenb/Xnb $ FRML Ibvene bvene = pvene*fVene/Xne $ FRML Ibvenf bvenf = pvenf*fVenf/Xnf $ FRML Ibvenk bvenk = pvenk*fVenk/Xnk $ FRML Ibvenm bvenm = pvenm*fVenm/Xnm $ FRML Ibvenn bvenn = pvenn*fVenn/Xnn $ FRML Ibvenq bvenq = pvenq*fVenq/Xnq $ FRML Ibvent bvent = pvent*fVent/Xnt $ FRML Ibveqf bveqf = pveqf*fVeqf/Xqf $ FRML Ibveqh bveqh = pveqh*fVeqh/Xqh $ FRML Ibveqq bveqq = pveqq*fVeqq/Xqq $ FRML Ibveqt bveqt = pveqt*fVeqt/Xqt $ FRML Ibveo bveo = pveo *fVeo /Xo $ FRML Ibveng bveng = pveng*fVeng/Xng $ FRML Ibveh bveh = pveh *fVeh /Xh $ FRML Ibveqs bveqs = pveqs*fVeqs/Xqs $ () () SÆRLIGE ENERGIFORBRUG-AGGREGATER () () Endelig energianvendelse, erhverv FRML IfVex fVex = fVea+fVenf+fVenn+fVenb+fVenm+fVent+fVenk+fVenq +fVeb+fVeqh+fVeqs+fVeqt+fVeqf+fVeqq+fVeh+fVeo $ 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 $ () 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 () Sammenvægning foretages med investeringspriser, dvs deflatoren fra strømstørrelserne (hvilket kan tolkes som en mediopris), () selvom det strengt taget burde være med ultimopriser () Ydermere er priser er inkl stambesætninger (fIt) - mens kapitalen er ekskl. stambesætninger () () 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 () 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 $ () fIm (bruttoinvesteringer) FRML IfImn fImn = (fImng*pimng(-1)+fImne*pimne(-1)+fImnf*pimnf(-1)+fImnn*pimnn(-1)+fImnb*pimnb(-1) +fImnm*pimnm(-1)+fImnt*pimnt(-1)+fImnk*pimnk(-1)+fImnq*pimnq(-1))/pimn(-1) $ FRML IfImq fImq = (fImqh*pimqh(-1)+fImqs*pimqs(-1)+fImqt*pimqt(-1)+fImqf*pimqf(-1)+fImqq*pimqq(-1))/pimq(-1) $ FRML IfIm2 fIm2 = (fImng*pimng(-1)+fImne*pimne(-1)+fImqs*pimqs(-1)+fImqf*pimqf(-1))/pim2(-1) $ FRML IfIm3 fIm3 = (fIma*pima(-1)+fImnf*pimnf(-1)+fImnn*pimnn(-1)+fImnb*pimnb(-1)+fImnm*pimnm(-1) +fImnt*pimnt(-1)+fImnk*pimnk(-1)+fImnq*pimnq(-1)+fImb*pimb(-1)+fImqh*pimqh(-1) +fImqt*pimqt(-1)+fImqq*pimqq(-1))/pim3(-1) $ FRML IfIm23 fIm23 = (fIm2*pim2(-1) + fIm3*pim3(-1))/pim23(-1) $ () pim 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 $ () Knm (kapitalværdi) FRML IKnmn Knmn = Knmng+Knmne+Knmnf+Knmnn+Knmnb+Knmnm+Knmnt+Knmnk+Knmnq $ FRML IKnmq Knmq = Knmqh+Knmqs+Knmqt+Knmqf+Knmqq $ FRML IKnm2 Knm2 = Knmng+Knmne+Knmqs+Knmqf $ FRML IKnm3 Knm3 = Knma+Knmnf+Knmnn+Knmnb+Knmnm+Knmnt+Knmnk+Knmnq+Knmb+Knmqh+Knmqt+Knmqq $ FRML IKnm23 Knm23 = Knm2 + Knm3 $ FRML IKnm Knm = Knmp + Knmo $ () fKm (kapitalmængde) FRML IfKmn fKmn = (fKmng*pimng(-1)+fKmne*pimne(-1)+fKmnf*pimnf(-1)+fKmnn*pimnn(-1) +fKmnb*pimnb(-1)+fKmnm*pimnm(-1)+fKmnt*pimnt(-1)+fKmnk*pimnk(-1) +fKmnq*pimnq(-1))/pimn(-1) $ FRML IfKmq fKmq = (fKmqh*pimqh(-1)+fKmqs*pimqs(-1)+fKmqt*pimqt(-1)+fKmqf*pimqf(-1) +fKmqq*pimqq(-1))/pimq(-1) $ FRML IfKmp fKmp = (fKma *pima(-1) +fKme *pime(-1) +fKmng*pimng(-1)+fKmne*pimne(-1) +fKmnf*pimnf(-1)+fKmnn*pimnn(-1)+fKmnb*pimnb(-1)+fKmnm*pimnm(-1) +fKmnt*pimnt(-1)+fKmnk*pimnk(-1)+fKmnq*pimnq(-1)+fKmb *pimb(-1) +fKmqh*pimqh(-1)+fKmqs*pimqs(-1)+fKmqt*pimqt(-1)+fKmqf*pimqf(-1) +fKmqq*pimqq(-1)+fKmh*pimh(-1))/pimp(-1) $ FRML IfKm2 fKm2 = (fKmng*pimng(-1)+fKmne*pimne(-1)+fKmqs*pimqs(-1)+fKmqf*pimqf(-1))/pim2(-1) $ FRML IfKm3 fKm3 = (fKma *pima(-1) +fKmnf*pimnf(-1)+fKmnn*pimnn(-1)+fKmnb*pimnb(-1) +fKmnm*pimnm(-1)+fKmnt*pimnt(-1)+fKmnk*pimnk(-1)+fKmnq*pimnq(-1) +fKmb *pimb(-1) +fKmqh*pimqh(-1)+fKmqt*pimqt(-1)+fKmqq*pimqq(-1))/pim3(-1) $ FRML IfKm23 fKm23 = (fKm2*pim2(-1)+fKm3*pim3(-1))/pim23(-1) $ FRML IfKm fKm = (fKmp*pimp(-1)+fKmo*pimo(-1))/pim(-1) $ () fKm hjælpevariabler FRML IFKM3M1 fKm3m1 = (fKmam1 *pima(-1) +fKmqqm1*pimqq(-1)+fKmqhm1*pimqh(-1)+fKmnmm1*pimnm(-1) +fKmqtm1*pimqt(-1)+fKmbm1 *pimb(-1) +fKmnqm1*pimnq(-1)+fKmnfm1*pimnf(-1) +fKmnbm1*pimnb(-1)+fKmnkm1*pimnk(-1)+fKmntm1*pimnt(-1)+fKmnnm1*pimnn(-1))/pim3(-1) $ FRML IFKM3K fKm3k = (fKmak *pima(-1) +fKmqqk*pimqq(-1)+fKmqhk*pimqh(-1)+fKmnmk*pimnm(-1) +fKmqtk*pimqt(-1)+fKmbk *pimb(-1) +fKmnqk*pimnq(-1)+fKmnfk*pimnf(-1) +fKmnbk*pimnb(-1)+fKmnkk*pimnk(-1)+fKmntk*pimnt(-1)+fKmnnk*pimnn(-1))/pim3(-1) $ () fIvm (afgange) () GRML 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) $ () GRML IfIvmq fIvmq = bfivmqh*fKmqh(-1)+bfivmqs*fKmqs(-1)+bfivmqt*fKmqt(-1)+bfivmqf*fKmqf(-1)+bfivmqq*fKmqq(-1) $ () GRML IfIvm2 fIvm2 = bfivmng*fKmng(-1)+bfivmne*fKmne(-1)+bfivmqs*fKmqs(-1)+bfivmqf*fKmqf(-1) $ () GRML 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) $ () GRML IfIvm23 fIvm23 = fIvm2 + fIvm3 $ () fIn (nettoinvesteringer) () GRML IfInmn fInmn = fKnmn - fKnmn(-1) $ () GRML IfInmq fInmq = fKnmq - fKnmq(-1) $ () GRML IfInmp fInmp = fKnmp - fKnmp(-1) $ () GRML IfInm2 fInm2 = fKnm2 - fKnm2(-1) $ () GRML IfInm3 fInm3 = fKnm3 - fKnm3(-1) $ () GRML IfInm23 fInm23 = fKnm23 - fKnm23(-1) $ () GRML IFINM fInm = fKnm - fKnm(-1) $ () uim (usercost) FRML Iuimn uimn = (uimng*fKmng*pimng(-1)+uimne*fKmne*pimne(-1)+uimnf*fKmnf*pimnf(-1) +uimnn*fKmnn*pimnn(-1)+uimnb*fKmnb*pimnb(-1)+uimnm*fKmnm*pimnm(-1) +uimnt*fKmnt*pimnt(-1)+uimnk*fKmnk*pimnk(-1)+uimnq*fKmnq*pimnq(-1))/(fKmn*pimn(-1)) $ FRML Iuimq uimq = (uimqh*fKmqh*pimqh(-1)+uimqs*fKmqs*pimqs(-1)+uimqt*fKmqt*pimqt(-1) +uimqf*fKmqf*pimqf(-1)+uimqq*fKmqq*pimqq(-1))/(fKmq*pimq(-1)) $ FRML Iuimp uimp = (uima *fKma *pima(-1) +uime *fKme *pime(-1) +uimng*fKmng*pimng(-1) +uimne*fKmne*pimne(-1)+uimnf*fKmnf*pimnf(-1)+uimnn*fKmnn*pimnn(-1) +uimnb*fKmnb*pimnb(-1)+uimnm*fKmnm*pimnm(-1)+uimnt*fKmnt*pimnt(-1) +uimnk*fKmnk*pimnk(-1)+uimnq*fKmnq*pimnq(-1)+uimb *fKmb *pimb(-1) +uimqh*fKmqh*pimqh(-1)+uimqs*fKmqs*pimqs(-1)+uimqt*fKmqt*pimqt(-1) +uimqf*fKmqf*pimqf(-1)+uimqq*fKmqq*pimqq(-1)+uimh *fKmh *pimh(-1))/(fKmp*pimp(-1)) $ FRML Iuim2 uim2 = (uimng*fKmng*pimng(-1)+uimne*fKmne*pimne(-1)+uimqs*fKmqs*pimqs(-1) +uimqf*fKmqf*pimqf(-1))/(fKm2*pim2(-1)) $ FRML Iuim3 uim3 = (uima *fKma *pima(-1) +uimnf*fKmnf*pimnf(-1)+uimnn*fKmnn*pimnn(-1) +uimnb*fKmnb*pimnb(-1)+uimnm*fKmnm*pimnm(-1)+uimnt*fKmnt*pimnt(-1) +uimnk*fKmnk*pimnk(-1)+uimnq*fKmnq*pimnm(-1)+uimb*fKmb*pimb(-1) +uimqh*fKmqh*pimqh(-1)+uimqt*fKmqt*pimqt(-1)+uimqq*fKmqq*pimqq(-1))/(fKm3*pim3(-1)) $ FRML Iuim23 uim23 = (uim2*fKm2*pim2(-1) +uim3*fKm3*pim3(-1))/(fKm23*pim23(-1)) $ FRML Iuim uim = (uima *fKma *pima(-1) +uime *fKme *pime(-1) +uimng*fKmng*pimng(-1) +uimne*fKmne*pimne(-1)+uimnf*fKmnf*pimnf(-1)+uimnn*fKmnn*pimnn(-1) +uimnb*fKmnb*pimnb(-1)+uimnm*fKmnm*pimnm(-1)+uimnt*fKmnt*pimnt(-1) +uimnk*fKmnk*pimnk(-1)+uimnq*fKmnq*pimnq(-1)+uimb *fKmb *pimb(-1) +uimqh*fKmqh*pimqh(-1)+uimqs*fKmqs*pimqs(-1)+uimqt*fKmqt*pimqt(-1) +uimqf*fKmqf*pimqf(-1)+uimqq*fKmqq*pimqq(-1)+uimh *fKmh *pimh(-1) +uimo *fKmo *pimo(-1))/(fKm*pim(-1)) $ () dtfkm (effektivitet) FRML Idtfkmn1 dtfkmn1 = (dtfkmng1*fKmng*pimng(-1)+dtfkmne1*fKmne*pimne(-1)+dtfkmnf1*fKmnf*pimnf(-1) +dtfkmnn1*fKmnn*pimnn(-1)+dtfkmnb1*fKmnb*pimnb(-1)+dtfkmnm1*fKmnm*pimnm(-1) +dtfkmnt1*fKmnt*pimnt(-1)+dtfkmnk1*fKmnk*pimnk(-1)+dtfkmnq1*fKmnq*pimnq(-1))/(fKmn*pimn(-1)) $ FRML Idtfkmq1 dtfkmq1 = (dtfkmqh1*fKmqh*pimqh(-1)+dtfkmqs1*fKmqs*pimqs(-1)+dtfkmqt1*fKmqt*pimqt(-1) +dtfkmqf1*fKmqf*pimqf(-1)+dtfkmqq1*fKmqq*pimqq(-1))/(fKmq*pimq(-1)) $ FRML Idtfkmp1 dtfkmp1 = (dtfkma1 *fKma *pima(-1) +dtfkme *fKme *pime(-1) +dtfkmng1*fKmng*pimng(-1) +dtfkmne1*fKmne*pimne(-1)+dtfkmnf1*fKmnf*pimnf(-1)+dtfkmnn1*fKmnn*pimnf(-1) +dtfkmnb1*fKmnb*pimnb(-1)+dtfkmnm1*fKmnm*pimnm(-1)+dtfkmnt1*fKmnt*pimnt(-1) +dtfkmnk1*fKmnk*pimnk(-1)+dtfkmnq1*fKmnq*pimnq(-1)+dtfkmb1 *fKmb *pimb(-1) +dtfkmqh1*fKmqh*pimqh(-1)+dtfkmqs1*fKmqs*pimqs(-1)+dtfkmqt1*fKmqt*pimqt(-1) +dtfkmqf1*fKmqf*pimqf(-1)+dtfkmqq1*fKmqq*pimqq(-1)+dtfkmh *fKmh *pimh(-1))/(fKmp*pimp(-1)) $ FRML Idtfkm21 dtfkm21 = (dtfkmng1*fKmng*pimng(-1)+dtfkmne1*fKmne*pimne(-1)+dtfkmqs1*fKmqs*pimqs(-1) +dtfkmqf1*fKmqf*pimqf(-1))/(fKm2*pim2(-1)) $ FRML Idtfkm31 dtfkm31 = (dtfkma1 *fKma *pima(-1) +dtfkmnf1*fKmnf*pimnf(-1)+dtfkmnn1*fKmnn*pimnn(-1) +dtfkmnb1*fKmnb*pimnb(-1)+dtfkmnm1*fKmnm*pimnm(-1)+dtfkmnt1*fKmnt*pimnt(-1) +dtfkmnk1*fKmnk*pimnk(-1)+dtfkmnq1*fKmnq*pimnq(-1)+dtfkmb1 *fKmb *pimb(-1) +dtfkmqh1*fKmqh*pimqh(-1)+dtfkmqt1*fKmqt*pimqt(-1)+dtfkmqq1*fKmqq*pimqq(-1))/(fKm3*pim3(-1)) $ FRML Idtfkm231 dtfkm231 = (dtfkm21*fKm2*pim2(-1)+dtfkm31*fKm3*pim3(-1))/(fKm23*pim23(-1)) $ () fKmw (ønsket kapital) FRML IfKmnw1 fKmnw1 = (fKmngw1*pimng(-1)+fKmnew1*pimne(-1)+fKmnfw1*pimnf(-1)+fKmnnw1*pimnn(-1) +fKmnbw1*pimnb(-1)+fKmnmw1*pimnm(-1)+fKmntw1*pimnt(-1)+fKmnkw1*pimnk(-1) +fKmnqw1*pimnq(-1))/pimn(-1) $ FRML IfKmqw1 fKmqw1 = (fKmqhw1*pimqh(-1)+fKmqsw1*pimqs(-1)+fKmqtw1*pimqt(-1)+fKmqfw1*pimqf(-1) +fKmqqw1*pimqq(-1))/pimq(-1) $ FRML IfKm2w1 fKm2w1 = (fKmngw1*pimng(-1)+fKmnew1*pimne(-1)+fKmqsw1*pimqs(-1)+fKmqfw1*pimqf(-1))/pim2(-1) $ FRML IfKm3w1 fKm3w1 = (fKmaw1 *pima(-1) +fKmnfw1*pimnf(-1)+fKmnnw1*pimnn(-1)+fKmnbw1*pimnb(-1) +fKmnmw1*pimnm(-1)+fKmntw1*pimnt(-1)+fKmnkw1*pimnk(-1)+fKmnqw1*pimnq(-1) +fKmbw1 *pimb(-1) +fKmqhw1*pimqh(-1)+fKmqtw1*pimqt(-1)+fKmqqw1*pimqq(-1))/pim3(-1) $ FRML IfKm23w1 fKm23w1 = (fKm2w1*pim2(-1)+fKm3w1*pim3(-1))/pim23(-1) $ () rho_Km (autokorrelationsparameter) FRML Irofkm31 rofkm31 = (rofkma1 *fKma *pima(-1) +rofkmnf1*fKmnf*pimnf(-1)+rofkmnn1*fKmnn*pimnn(-1) +rofkmnb1*fKmnb*pimnb(-1)+rofkmnm1*fKmnm*pimnm(-1)+rofkmnt1*fKmnt*pimnt(-1) +rofkmnk1*fKmnk*pimnk(-1)+rofkmnq1*fKmnq*pimnq(-1)+rofkmb1 *fKmb *pimb(-1) +rofkmqh1*fKmqh*pimqh(-1)+rofkmqt1*fKmqt*pimqt(-1)+rofkmqq1*fKmqq*pimqq(-1))/(fKm3*pim3(-1)) $ () BYGNINGER () fIb (bruttoinvestering) FRML IfIbn fIbn = (fIbng*pibng(-1)+fIbne*pibne(-1)+fIbnf*pibnf(-1)+fIbnn*pibnn(-1)+fIbnb*pibnb(-1) +fIbnm*pibnm(-1)+fIbnt*pibnt(-1)+fIbnk*pibnk(-1)+fIbnq*pibnq(-1))/pibn(-1) $ FRML IfIbq fIbq = (fIbqh*pibqh(-1)+fIbqs*pibqs(-1)+fIbqt*pibqt(-1)+fIbqf*pibqf(-1)+fIbqq*pibqq(-1))/pibp(-1) $ FRML IfIb3 fIb3 = (fIba*piba(-1)+fIbnf*pibnf(-1)+fIbnn*pibnn(-1)+fIbnb*pibnb(-1)+fIbnm*pibnm(-1) +fIbnt*pibnt(-1)+fIbnk*pibnk(-1)+fIbnq*pibnq(-1)+fIbb*pibb(-1)+fIbqh*pibqh(-1) +fIbqt*pibqt(-1)+fIbqq*pibqq(-1))/pib3(-1) $ FRML IfIb2 fIb2 = (fIbng*pibng(-1)+fIbne*pibne(-1)+fIbqs*pibqs(-1)+fIbqf*pibqf(-1))/pib2(-1) $ FRML IfIb23 fIb23 = (fIb2*pib2(-1)+fIb3*pib3(-1))/pib23(-1) $ () 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 = Ib2+Ib3 $ () pib 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 $ () fKb (kapitalmængde) FRML IfKbn fKbn = (fKbng*pibng(-1)+fKbne*pibne(-1)+fKbnf*pibnf(-1)+fKbnn*pibnn(-1) +fKbnb*pibnb(-1)+fKbnm*pibnm(-1)+fKbnt*pibnt(-1)+fKbnk*pibnk(-1) +fKbnq*pibnq(-1))/pibn(-1) $ FRML IfKbq fKbq = (fKbqh*pibqh(-1)+fKbqs*pibqs(-1)+fKbqt*pibqt(-1)+fKbqf*pibqf(-1) +fKbqq*pibqq(-1))/pibq(-1) $ FRML IfKbp fKbp = (fKba *piba(-1) +fKbe *pibe(-1) +fKbng*pibng(-1)+fKbne*pibne(-1) +fKbnf*pibnf(-1)+fKbnn*pibnn(-1)+fKbnb*pibnb(-1)+fKbnm*pibnm(-1) +fKbnt*pibnt(-1)+fKbnk*pibnk(-1)+fKbnq*pibnq(-1)+fKbb *pibb(-1) +fKbqh*pibqh(-1)+fKbqs*pibqs(-1)+fKbqt*pibqt(-1)+fKbqf*pibqf(-1) +fKbqq*pibqq(-1))/pibp(-1) $ FRML IfKb2 fKb2 = (fKbng*pibng(-1)+fKbne*pibne(-1)+fKbqs*pibqs(-1)+fKbqf*pibqf(-1))/pib2(-1) $ FRML IfKb3 fKb3 = (fKba *piba(-1) +fKbnf*pibnf(-1)+fKbnn*pibnn(-1)+fKbnb*pibnb(-1) +fKbnm*pibnm(-1)+fKbnt*pibnt(-1)+fKbnk*pibnk(-1)+fKbnq*pibnq(-1) +fKbb *pibb(-1) +fKbqh*pibqh(-1)+fKbqt*pibqt(-1)+fKbqq*pibqq(-1))/pib3(-1) $ FRML IfKb23 fKb23 = (fKb2*pib2(-1)+fKb3*pib3(-1))/pib23(-1) $ FRML IfKb fKb = (fKbp*pibp(-1)+fKbh*pibh(-1)+fKbo*pibo(-1))/pib(-1) $ () Knb (kapitalværdi) FRML IKnb Knb = Knba+Knbe+Knbng+Knbne+Knbnf+Knbnn+Knbnb+Knbnm+Knbnt +Knbnk+Knbnq+Knbb+Knbqh+Knbqs+Knbqt+Knbqf+Knbqq+Knbh+Knbo $ () fIvb (afgange) () GRML 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) $ () GRML IfIvbq fIvbq = bfivbqh*fKbqh(-1)+bfivbqs*fKbqs(-1)+bfivbqt*fKbqt(-1)+bfivbqf*fKbqf(-1)+bfivbqq*fKbqq(-1) $ () GRML IfIvb2 fIvb2 = bfivbng*fKbng(-1)+bfivbne*fKbne(-1)+bfivbqs*fKbqs(-1)+bfivbqf*fKbqf(-1) $ () GRML 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) $ () GRML IfIvb23 fIvb23 = fIvb2+fIvb3 $ () fIn (nettoinvesteringer) () GRML IFINBH fInbh = fKnbh - fKnbh(-1) $ () GRML IFINBP fInbp = fKnbp - fKnbp(-1) $ () GRML IFINB fInb = fKnb - fKnb(-1) $ () uib (usercost) FRML Iuibn uibn = (uibng*fKbng*pibng(-1)+uibne*fKbne*pibne(-1)+uibnf*fKbnf*pibnf(-1) +uibnn*fKbnn*pibnn(-1)+uibnb*fKbnb*pibnb(-1)+uibnm*fKbnm*pibnm(-1) +uibnt*fKbnt*pibnt(-1)+uibnk*fKbnk*pibnk(-1)+uibnq*fKbnq*pibnq(-1))/(fKbn*pibn(-1)) $ FRML Iuibq uibq = (uibqh*fKbqh*pibqh(-1)+uibqs*fKbqs*pibqs(-1)+uibqt*fKbqt*pibqt(-1) +uibqf*fKbqf*pibqf(-1)+uibqq*fKbqq*pibqq(-1))/(fKbq*pibq(-1)) $ FRML Iuibp uibp = (uiba *fKba *piba(-1) +uibe *fKbe *pibe(-1) +uibng*fKbng*pibng(-1) +uibne*fKbne*pibne(-1)+uibnf*fKbnf*pibnf(-1)+uibnn*fKbnn*pibnn(-1) +uibnb*fKbnb*pibnb(-1)+uibnm*fKbnm*pibnm(-1)+uibnt*fKbnt*pibnt(-1) +uibnk*fKbnk*pibnk(-1)+uibnq*fKbnq*pibnq(-1)+uibb *fKbb *pibb(-1) +uibqh*fKbqh*pibqh(-1)+uibqs*fKbqs*pibqs(-1)+uibqt*fKbqt*pibqt(-1) +uibqf*fKbqf*pibqf(-1)+uibqq*fKbqq*pibqq(-1))/(fKbp*pibp(-1)) $ FRML Iuib2 uib2 = (uibng*fKbng*pibng(-1)+uibne*fKbne*pibne(-1)+uibqs*fKbqs*pibqs(-1) +uibqf*fKbqf*pibqf(-1))/(fKb2*pib2(-1)) $ FRML Iuib3 uib3 = (uiba *fKba *piba(-1) +uibnf*fKbnf*pibnf(-1)+uibnn*fKbnn*pibnn(-1) +uibnb*fKbnb*pibnb(-1)+uibnm*fKbnm*pibnm(-1)+uibnt*fKbnt*pibnt(-1) +uibnk*fKbnk*pibnk(-1)+uibnq*fKbnq*pibnq(-1)+uibb *fKbb *pibb(-1) +uibqh*fKbqh*pibqh(-1)+uibqt*fKbqt*pibqt(-1)+uibqq*fKbqq*pibqq(-1))/(fKb3*pib3(-1)) $ FRML Iuib23 uib23 = (uib2*fKb2*pib2(-1)+uib3*fKb3*pib3(-1))/(fKb23*pib23(-1)) $ FRML Iuib uib = (uiba *fKba *piba(-1) +uibe *fKbe *pibe(-1) +uibng*fKbng*pibng(-1) +uibne*fKbne*pibne(-1)+uibnf*fKbnf*pibnf(-1)+uibnn*fKbnn*pibnn(-1) +uibnb*fKbnb*pibnb(-1)+uibnm*fKbnm*pibnm(-1)+uibnt*fKbnt*pibnt(-1) +uibnk*fKbnk*pibnk(-1)+uibnq*fKbnq*pibnq(-1)+uibb *fKbb *pibb(-1) +uibqh*fKbqh*pibqh(-1)+uibqs*fKbqs*pibqs(-1)+uibqt*fKbqt*pibqt(-1) +uibqf*fKbqf*pibqf(-1)+uibqq*fKbqq*pibqq(-1)+uibh *fKbh *pibh(-1) +uibo *fKbo *pibo(-1))/(fKb*pib(-1)) $ () dtfkb (effektivitet) FRML Idtfkbn dtfkbn = (dtfkbng*fKbng*pibng(-1)+dtfkbne1*fKbne*pibne(-1)+dtfkbnf*fKbnf*pibnf(-1) +dtfkbnn*fKbnn*pibnn(-1)+dtfkbnb *fKbnb*pibnb(-1)+dtfkbnm*fKbnm*pibnm(-1) +dtfkbnt*fKbnt*pibnt(-1)+dtfkbnk *fKbnk*pibnk(-1)+dtfkbnq*fKbnq*pibnq(-1))/(fKbn*pibn(-1)) $ FRML Idtfkbq dtfkbq = (dtfkbqh*fKbqh*pibqh(-1)+dtfkbqs*fKbqs*pibqs(-1)+dtfkbqt*fKbqt*piba(-1) +dtfkbqf*fKbqf*pibqf(-1)+dtfkbqq*fKbqq*pibqq(-1))/(fKbq*pibq(-1)) $ FRML Idtfkb2 dtfkb2 = (dtfkbng*fKbng*pibng(-1)+dtfkbne1*fKbne*pibne(-1)+dtfkbqs*fKbqs*pibqs(-1) +dtfkbqf*fKbqf*pibqf(-1))/(fKb2*pib2(-1)) $ FRML Idtfkb3 dtfkb3 = (dtfkba *fKba *piba(-1) +dtfkbnf*fKbnf*pibnf(-1)+dtfkbnn*fKbnn*pibnn(-1) +dtfkbnb*fKbnb*pibnb(-1)+dtfkbnm*fKbnm*pibnm(-1)+dtfkbnt*fKbnt*pibnt(-1) +dtfkbnk*fKbnk*pibnk(-1)+dtfkbnq*fKbnq*pibnq(-1)+dtfkbb *fKbb *pibb(-1) +dtfkbqh*fKbqh*pibqh(-1)+dtfkbqt*fKbqt*pibqt(-1)+dtfkbqq*fKbqq*pibqq(-1))/(fKb3*pib3(-1)) $ FRML Idtfkb23 dtfkb23 = (dtfkb2*fKb2*pib2(-1)+dtfkb3*fKb3*pib3(-1))/(fKb23*pib23(-1)) $ () fKbw (ønsket kapital) FRML IfKbnw fKbnw = (fKbngw*pibng(-1)+fKbnew1*pibne(-1)+fKbnfw*pibnf(-1)+fKbnnw*pibnn(-1) +fKbnbw*pibnb(-1)+fKbnmw *pibnm(-1)+fKbntw*pibnt(-1)+fKbnkw*pibnk(-1) +fKbnqw*pibnq(-1))/pibn(-1) $ FRML IfKbqw fKbqw = (fKbqhw*pibqh(-1)+fKbqsw*pibqs(-1)+fKbqtw*pibqt(-1)+fKbqfw*pibqf(-1) +fKbqqw*pibqq(-1))/pibq(-1) $ FRML IfKb2w fKb2w = (fKbngw*pibng(-1)+fKbnew1*pibne(-1)+fKbqsw*pibqs(-1)+fKbqfw*pibqf(-1))/pib2(-1) $ FRML IfKb3w fKb3w = (fKbaw *piba(-1) +fKbnfw*pibnf(-1)+fKbnnw*pibnn(-1)+fKbnbw*pibnb(-1) +fKbnmw*pibnm(-1)+fKbntw*pibnt(-1)+fKbnkw*pibnk(-1)+fKbnqw*pibnq(-1) +fKbbw *pibb(-1) +fKbqhw*pibqh(-1)+fKbqtw*pibqt(-1)+fKbqqw*pibqq(-1))/pib3(-1) $ FRML IfKb23w fKb23w = (fKb2w*pib2(-1)+fKb3w*pib3(-1))/pib23(-1) $ () rho_Kb (autokorrelationsparameter) FRML Irofkb3 rofkb3 = (rofkba *fKba *piba(-1) +rofkbnf*fKbnf*pibnf(-1)+rofkbnn*fKbnn*pibnn(-1) +rofkbnb*fKbnb*pibnb(-1)+rofkbnm*fKbnm*pibnm(-1)+rofkbnt*fKbnt*pibnt(-1) +rofkbnk*fKbnk*pibnk(-1)+rofkbnq*fKbnq*pibnq(-1)+rofkbb *fKbb *pibb(-1) +rofkbqh*fKbqh*pibqh(-1)+rofkbqt*fKbqt*pibqt(-1)+rofkbqq*fKbqq*pibqq(-1))/(fKb3*pib3(-1)) $ () MASKINER+BYGNINGER () Investeringer, brutto, løbende priser FRML IIfa Ifa = Ima + Iba $ () Ekskl. Stambesætninger FRML IIfe Ife = Ime + Ibe $ FRML IIfnb Ifnb = Imnb + Ibnb $ FRML IIfng Ifng = Imng + Ibng $ FRML IIfne Ifne = Imne + Ibne $ FRML IIfnf Ifnf = Imnf + Ibnf $ FRML IIfnn Ifnn = Imnn + Ibnn $ FRML IIfnk Ifnk = Imnk + Ibnk $ FRML IIfnm Ifnm = Imnm + Ibnm $ FRML IIfnt Ifnt = Imnt + Ibnt $ FRML IIfnq Ifnq = Imnq + Ibnq $ FRML IIfb Ifb = Imb + Ibb $ FRML IIfqh Ifqh = Imqh + Ibqh $ FRML IIfqs Ifqs = Imqs + Ibqs $ FRML IIfqt Ifqt = Imqt + Ibqt $ FRML IIfqf Ifqf = Imqf + Ibqf $ FRML IIfqq Ifqq = Imqq + Ibqq $ FRML IIfh Ifh = Imh + Ibh $ () Investeringer, brutto, faste priser FRML IfIfa fIfa = (fIma *pima(-1) + fIba *piba(-1) )/pifa(-1) $ () Ekskl. Stambesætninger FRML IfIfe fIfe = (fIme *pime(-1) + fIbe *pibe(-1) )/pife(-1) $ FRML IfIfnb fIfnb = (fImnb*pimnb(-1) + fIbnb*pibnb(-1) )/pifnb(-1) $ FRML IfIfng fIfng = (fImng*pimng(-1) + fIbng*pibng(-1) )/pifng(-1) $ FRML IfIfne fIfne = (fImne*pimne(-1) + fIbne*pibne(-1) )/pifne(-1) $ FRML IfIfnf fIfnf = (fImnf*pimnf(-1) + fIbnf*pibnf(-1) )/pifnf(-1) $ FRML IfIfnn fIfnn = (fImnn*pimnn(-1) + fIbnn*pibnn(-1) )/pifnn(-1) $ FRML IfIfnk fIfnk = (fImnk*pimnk(-1) + fIbnk*pibnk(-1) )/pifnk(-1) $ FRML IfIfnm fIfnm = (fImnm*pimnm(-1) + fIbnm*pibnm(-1) )/pifnm(-1) $ FRML IfIfnt fIfnt = (fImnt*pimnt(-1) + fIbnt*pibnt(-1) )/pifnt(-1) $ FRML IfIfnq fIfnq = (fImnq*pimnq(-1) + fIbnq*pibnq(-1) )/pifnq(-1) $ FRML IfIfb fIfb = (fImb *pimb(-1) + fIbb *pibb(-1) )/pifb(-1) $ FRML IfIfqh fIfqh = (fImqh*pimqh(-1) + fIbqh*pibqh(-1) )/pifqh(-1) $ FRML IfIfqs fIfqs = (fImqs*pimqs(-1) + fIbqs*pibqs(-1) )/pifqs(-1) $ FRML IfIfqt fIfqt = (fImqt*pimqt(-1) + fIbqt*pibqt(-1) )/pifqt(-1) $ FRML IfIfqf fIfqf = (fImqf*pimqf(-1) + fIbqf*pibqf(-1) )/pifqf(-1) $ FRML IfIfqq fIfqq = (fImqq*pimqq(-1) + fIbqq*pibqq(-1) )/pifqq(-1) $ FRML IfIfh fIfh = (fImh *pimh(-1) + fIbh *pibh(-1) )/pifh(-1) $ () Investeringer, brutto, priser FRML Ipifa pifa = Ifa /fIfa $ () Ekskl. Stambesætninger FRML Ipife pife = Ife /fIfe $ FRML Ipifnb pifnb = Ifnb/fIfnb $ FRML Ipifng pifng = Ifng/fIfng $ FRML Ipifne pifne = Ifne/fIfne $ FRML Ipifnf pifnf = Ifnf/fIfnf $ FRML Ipifnn pifnn = Ifnn/fIfnn $ FRML Ipifnk pifnk = Ifnk/fIfnk $ FRML Ipifnm pifnm = Ifnm/fIfnm $ FRML Ipifnt pifnt = Ifnt/fIfnt $ FRML Ipifnq pifnq = Ifnq/fIfnq $ FRML Ipifb pifb = Ifb /fIfb $ FRML Ipifqh pifqh = Ifqh/fIfqh $ FRML Ipifqs pifqs = Ifqs/fIfqs $ FRML Ipifqt pifqt = Ifqt/fIfqt $ FRML Ipifqf pifqf = Ifqf/fIfqf $ FRML Ipifqq pifqq = Ifqq/fIfqq $ FRML Ipifh pifh = Ifh /fIfh $ () Kapitalmængder, samlet bygning+maskin, faste priser FRML Ifka fKa = (fkma *pima(-1) + fkba *piba(-1)) /pifa(-1) $ () Ekskl. Stambesætninger FRML Ifke fKe = (fkme *pime(-1) + fkbe *pibe (-1))/pife(-1) $ FRML Ifknb fKnb = (fkmnb*pimnb(-1) + fkbnb*pibnb(-1))/pifnb(-1) $ FRML Ifkng fKng = (fkmng*pimng(-1) + fkbng*pibng(-1))/pifng(-1) $ FRML Ifkne fKne = (fkmne*pimne(-1) + fkbne*pibne(-1))/pifne(-1) $ FRML Ifknf fKnf = (fkmnf*pimnf(-1) + fkbnf*pibnf(-1))/pifnf(-1) $ FRML Ifknn fKnn = (fkmnn*pimnn(-1) + fkbnn*pibnn(-1))/pifnn(-1) $ FRML Ifknk fKnk = (fkmnk*pimnk(-1) + fkbnk*pibnk(-1))/pifnk(-1) $ FRML Ifknm fKnm = (fkmnm*pimnm(-1) + fkbnm*pibnm(-1))/pifnm(-1) $ FRML Ifknt fKnt = (fkmnt*pimnt(-1) + fkbnt*pibnt(-1))/pifnt(-1) $ FRML Ifknq fKnq = (fkmnq*pimnq(-1) + fkbnq*pibnq(-1))/pifnq(-1) $ FRML Ifkb fKb1 = (fkmb *pimb(-1) + fkbb *pibb(-1)) /pifb(-1) $ FRML Ifkqh fKqh = (fkmqh*pimqh(-1) + fkbqh*pibqh(-1))/pifqh(-1) $ FRML Ifkqs fKqs = (fkmqs*pimqs(-1) + fkbqs*pibqs(-1))/pifqs(-1) $ FRML Ifkqt fKqt = (fkmqt*pimqt(-1) + fkbqt*pibqt(-1))/pifqt(-1) $ FRML Ifkqf fKqf = (fkmqf*pimqf(-1) + fkbqf*pibqf(-1))/pifqf(-1) $ FRML Ifkqq fKqq = (fkmqq*pimqq(-1) + fkbqq*pibqq(-1))/pifqq(-1) $ FRML Ifkh fKh = (fkmh *pimh(-1) + fkbh *pibh(-1)) /pifh(-1) $ () Kapitalværdier, samlet bygning+maskin, løb. priser FRML Ikna Kna = knma + knba $ FRML Ikne Kne = knme + knbe $ FRML Iknnb Knnb = knmnb + knbnb $ FRML Iknng Knng = knmng + knbng $ FRML Iknne Knne = knmne + knbne $ FRML Iknnf Knnf = knmnf + knbnf $ FRML Iknnn Knnn = knmnn + knbnn $ FRML Iknnk Knnk = knmnk + knbnk $ FRML Iknnm Knnm = knmnm + knbnm $ FRML Iknnt Knnt = knmnt + knbnt $ FRML Iknnq Knnq = knmnq + knbnq $ FRML Iknb Knb1 = knmb + knbb $ FRML Iknqh Knqh = knmqh + knbqh $ FRML Iknqs Knqs = knmqs + knbqs $ FRML Iknqt Knqt = knmqt + knbqt $ FRML Iknqf Knqf = knmqf + knbqf $ FRML Iknqq Knqq = knmqq + knbqq $ FRML Iknh Knh1 = knmh + knbh $ () Kapital FRML IKn Kn = Knmp+Knbp+Knbh+Knmo+Knbo $ FRML IKnp Knp = Knmp+Knbp+Knbh $ FRML IKnpxh Knpxh = Knmp+Knbp $ FRML IKno Kno = Knmo+Knbo $ () Priser er inkl stambesætninger - mens kapitalen er ekskl. stambesætninger FRML IfK fK = (fKmp*pimp(-1)+fKbp*pibp(-1)+fKbh*pibh(-1)+fKmo*pimo(-1)+fKbo*pibo(-1))/pif(-1) $ FRML IfKp fKp = (fKmp*pimp(-1)+fKbp*pibp(-1)+fKbh*pibh(-1))/pifp(-1) $ FRML IfKpxh fKpxh = (fKmp*pimp(-1)+fKbp*pibp(-1))/pifpxh(-1) $ FRML IfKo fKo = (fKmo*pimo(-1)+fKbo*pibo(-1))/pio(-1) $ () Nettoinvesteringer () GRML IFIN fIn = fInm + fInb $ () GRML IIN In = pim*fKnm+pib*fKnb - (pim(-1)*fKnm(-1)+pib(-1)*fKnb(-1)) $ () GRML 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 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 $ FRML Ibven bven = pven *fVen /Xn $ FRML Ibveq bveq = pveq *fVeq /Xq $ () 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 Ivn Vn = Vng+Vne+Vnf+Vnn+Vnb+Vnm+Vnt+Vnk+Vnq $ FRML Ivq Vq = Vqh+Vqs+Vqt+Vqf+Vqq $ FRML Iv V = Va+Ve+Vng+Vne+Vnf+Vnn+Vnb+Vnm+Vnt+Vnk+Vnq+Vb+Vqh+Vqs+Vqt+Vqf+Vqq+Vh+Vo $ FRML IVp Vp = V - Vo $ FRML IfVa fVa = fvma+fvea $ FRML IfVe fVe = fvme+fvee $ FRML IfVng fVng = fvmng+fveng $ FRML IfVne fVne = fvmne+fvene $ FRML IfVnf fVnf = fvmnf+fvenf $ FRML IfVnn fVnn = fvmnn+fvenn $ FRML IfVnb fVnb = fvmnb+fvenb $ FRML IfVnm fVnm = fvmnm+fvenm $ FRML IfVnt fVnt = fvmnt+fvent $ FRML IfVnk fVnk = fvmnk+fvenk $ FRML IfVnq fVnq = fvmnq+fvenq $ FRML IfVb fVb = fvmb+fveb $ FRML IfVqh fVqh = fvmqh+fveqh $ FRML IfVqs fVqs = fvmqs+fveqs $ FRML IfVqt fVqt = fvmqt+fveqt $ FRML IfVqf fVqf = fvmqf+fveqf $ FRML IfVqq fVqq = fvmqq+fveqq $ FRML Ifvn fVn = (fVng*pvng(-1)+fVne*pvne(-1)+fVnf*pvnf(-1)+fVnn*pvnn(-1)+fVnb*pvnb(-1) +fVnm*pvnm(-1)+fVnt*pvnt(-1)+fVnk*pvnk(-1)+fVnq*pvnq(-1))/pvn(-1) $ FRML Ifvq fVq = (fVqh*pvqh(-1)+fVqs*pvqs(-1)+fVqt*pvqt(-1)+fVqf*pvqf(-1)+fVqq*pvqq(-1))/pvq(-1) $ FRML Ifv fV = (fVa*pva(-1)+fVe*pve(-1)+fVng*pvng(-1)+fVne*pvne(-1)+fVnf*pvnf(-1) +fVnn*pvnn(-1)+fVnb*pvnb(-1)+fVnm*pvnm(-1)+fVnt*pvnt(-1)+fVnk*pvnk(-1) +fVnq*pvnq(-1)+fVb*pvb(-1)+fVqh*pvqh(-1)+fVqs*pvqs(-1)+fVqt*pvqt(-1) +fVqf*pvqf(-1)+fVqq*pvqq(-1)+fVh*pvh(-1)+fVo*pvo(-1))/pv(-1) $ FRML IfVp fVp = (fV*pv(-1) - fVo*pvo(-1))/pvp(-1) $ FRML Ipva pva = Va /fva $ FRML Ipve pve = Ve /fve $ FRML Ipvng pvng = Vng/fvng $ FRML Ipvne pvne = Vne/fvne $ FRML Ipvnf pvnf = Vnf/fvnf $ FRML Ipvnn pvnn = Vnn/fvnn $ FRML Ipvnb pvnb = Vnb/fvnb $ FRML Ipvnm pvnm = Vnm/fvnm $ FRML Ipvnt pvnt = Vnt/fvnt $ FRML Ipvnk pvnk = Vnk/fvnk $ FRML Ipvnq pvnq = Vnq/fvnq $ FRML Ipvb pvb = Vb /fvb $ FRML Ipvqh pvqh = Vqh/fvqh $ FRML Ipvqs pvqs = Vqs/fvqs $ FRML Ipvqt pvqt = Vqt/fvqt $ FRML Ipvqf pvqf = Vqf/fvqf $ FRML Ipvqq pvqq = Vqq/fvqq $ FRML Ipvn pvn = Vn/fVn $ FRML Ipvq pvq = Vq/fVq $ FRML Ipv pv = V /fV $ FRML Ipvp pvp = Vp/fVp $ () 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 IfYf2 fYf2 = (fYfng*pyfng(-1)+fYfne*pyfne(-1)+fYfqs*pyfqs(-1)+fYfqf*pyfqf(-1))/pyf2(-1) $ FRML IfYf3 fYf3 = (fYfa*pyfa(-1)+fYfnf*pyfnf(-1)+fYfnn*pyfnn(-1)+fYfnb*pyfnb(-1)+fYfnm*pyfnm(-1) +fYfnt*pyfnt(-1)+fYfnk*pyfnk(-1)+fYfnq*pyfnq(-1)+fYfb*pyfb(-1)+fYfqh*pyfqh(-1) +fYfqt*pyfqt(-1)+fYfqq*pyfqq(-1))/pyf3(-1) $ FRML IfYf23 fYf23 = (fYfa*pyfa(-1)+fYfng*pyfng(-1)+fYfne*pyfne(-1)+fYfnf*pyfnf(-1)+fYfnn*pyfnn(-1) +fYfnb*pyfnb(-1)+fYfnm*pyfnm(-1)+fYfnt*pyfnt(-1)+fYfnk*pyfnk(-1)+fYfnq*pyfnq(-1) +fYfb*pyfb(-1)+fYfqh*pyfqh(-1)+fYfqs*pyfqs(-1)+fYfqt*pyfqt(-1)+fYfqf*pyfqf(-1) +fYfqq*pyfqq(-1))/pyf23(-1) $ () pyf 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 $ () fX FRML IfXp fXp = (fXa*pxa(-1)+fXe*pxe(-1)+fXng*pxng(-1)+fXne*pxne(-1)+fXnf*pxnf(-1) +fXnn*pxnn(-1)+fXnb*pxnb(-1)+fXnm*pxnm(-1)+fXnt*pxnt(-1)+fXnk*pxnk(-1) +fXnq*pxnq(-1)+fXb*pxb(-1)+fXqh*pxqh(-1)+fXqs*pxqs(-1)+fXqt*pxqt(-1) +fXqf*pxqf(-1)+fXqq*pxqq(-1)+fXh*pxh(-1))/pxp(-1) $ FRML IfX2 fX2 = (fXng*pxng(-1)+fXne*pxne(-1)+fXqs*pxqs(-1)+fXqf*pxqf(-1))/px2(-1) $ FRML IfX3 fX3 = (fXa*pxa(-1)+fXnf*pxnf(-1)+fXnn*pxnn(-1)+fXnb*pxnb(-1)+fXnm*pxnm(-1) +fXnt*pxnt(-1)+fXnk*pxnk(-1)+fXnq*pxnq(-1)+fXb*pxb(-1)+fXqh*pxqh(-1) +fXqt*pxqt(-1)+fXqq*pxqq(-1))/px3(-1) $ FRML IfX23 fX23 = (fX2*px2(-1)+fX3*px3(-1))/px23(-1) $ () 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 Ipx2 px2 = (fXng*pxn+fXne*pxne+fXqs*pxqs+fXqf*pxqf)/fx2 $ 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 $ () FRML IXn Xn = Xng+Xne+Xnf+Xnn+Xnb+Xnm+Xnt+Xnk+Xnq $ FRML IXq Xq = Xqh+Xqs+Xqt+Xqf+Xqq $ () Private byerhverv FRML IXby Xby = Xn+Xq-Xqs+Xb $ FRML IfXby fXby = (fXn*pxn(-1)+fXq*pxq(-1)-fXqs*pxqs(-1)+fXb*pxb(-1))/pxby(-1) $ FRML Ipxby pxby = Xby/fXby $ FRML IYfby Yfby = Yfn+Yfq-Yfqs+Yfb $ FRML IfYfby fYfby = (fYfn*pyfn(-1)+fYfq*pyfq(-1)-fYfqs*pyfqs(-1)+fYfb*pyfb(-1))/pyfby(-1) $ FRML Ipyfby pyfby = Yfby/fYfby $ FRML IYwby Ywby = Ywn1+Ywq1-Ywqs1+Ywb1 $ FRML IYrby Yrby = Yrn1+Yrq1-Yrqs1+Yrb1 $ FRML Ibywby1 bywby1 = Ywby/(Ywby+Yrby) $ FRML IQby Qby = Qn1+Qq1-Qqs1+Qb1 $ FRML IHqby Hqby = Hqn1+Hqq1-Hqqs1+Hqb1 $ FRML Ikqyfby kqyfby = fYfby/Hqby $ FRML IfVeby fVeby = fVen+fVeq-fVeqs+fVeb $ FRML IVeby Veby = Ven+Veq-Veqs+Veb $ FRML Ipveby pveby = Veby/fVeby $ FRML Ibveby bveby = Veby/Xby $ FRML IfVmby fVmby = fVmn+fVmq-fVmqs+fVmb $ () Investeringskvoter FRML Ibipmp bipmp = 100*pimp11*fImp11/Yfp1 $ FRML Ibipbp bipbp = 100*pibp11*fIbp11/Yfp1 $ FRML Ibipby bipby = ( (pimn*fImn+pimq*fImq-pimqs*fImqs+pimb*fImb) +(pibn*fIbn+pibq*fIbq-pibqs*fIbqs+pibb*fIbb) )*100/Yfby $ () Arbejdskraftproduktivitet FRML Ikqyf kqyf = fYf/Hq1 $ FRML Ikqyfp kqyfp = fYfp/Hqp1 $ () ### ARBMARK.T08 ### () () () ARBEJDSLØSHED () () FRML Ibula1 bula1 = 100*(Ul/Ua1) $ FRML Ibulw1 bulw1 = 100*(Ul/Uaw) $ FRML Ihg Hg = 1000*Hq1/Q1 $ () ### PRISER.T08 ### () () SEKTOR- OG IMPORTPRISER () () () PRISER PÅ EFTERSPØRGSELSKOMPONENTER () FRML IPI pi = I/fI $ FRML IPIF pif = (I - fIl*pil)/fIf $ FRML IPIP11 pip11 = Ip11/fIp11 $ 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.T08 ### 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 ITIPPHPL1 Tipphpl1 = Tishl1+Tihhl1 $ FRML ITIPPHPK1 Tipphpk1 = Tishk1+Tihsk1 $ FRML ITIPPHPS1 Tipphps1 = Tishl1+Tishk1 $ FRML ITIPPHPH1 Tipphph1 = Tihhl1+Tihsk1 $ 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-Tpatpi-(Tihsp-Sdrpsl-Sdrpsk-Sdratp)) $ FRML ITPHHBI Tphhbi = Tphhi-Tphhpi $ FRML ITPHHPU Tphhpu = Tffpu-Typshp $ FRML ITPHHBU Tphhbu = Tphhu-Tphhpu $ FRML IOlp Olp = Oselp+Osdklp+Oblp $ () Afkast efter skat FRML ITISHL1 Tidshl1 = Tishl1-Sdrpsl $ FRML ITISHK1 Tidshk1 = Tishk1-Sdrpsk $ FRML ITIHHL1 Tidhhl1 = Tihhl1-Sdrppl $ FRML ITIHSK1 Tidhsk1 = Tihsk1-Sdrppk $ FRML ITIATP Tidatp = Tiatp-Sdratp $ FRML ITIDMP Tiddmp = Tidmp-Sdrdmp $ FRML ITISP Tidsp = Tisp-Sdrsp $ FRML ITIDLD Tidld = Tild-Sdrld $ FRML ITIDPPHPB Tidpphpb = Tipphpb-Sdrph $ FRML ITIDPPHLP Tidpphlp = Tipphlp-Sdrpp $ () ### FORBRUG.G08 ### () () GENERERING AF J-LED () FRML YZFCP Zfcp = fCp $ FRML YJRCpuxh JRcpuxh = Log(Cpuxh-Jcpuxh) -( 0.365845*Dlog(Ydphk2) +0.097410*Dlog(Wcp(-1)) -0.531462*Dlog(pcpuxh)+0.077129*Dlog(pchu) -0.347112*Log(Cpuxh(-1)/Cpuxhw(-1)) +Log(Cpuxh(-1)/pcpuxh(-1)) +Log(pcpuxh) ) $ () ### ARBMARK.G08 ### FRML YJDUuxa JDuuxa = Uuxa - (-0.52017*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 YJRUkak JRukak = (Ukak+D7100(-1)) /(D7100(-1)+(bukak*(Ul/Ul(-1)-1)+1)*Ukak(-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+Ufdp+Usxa+Usb+Umf+Uef+Uov+Ufox+Ukxa+Ukak -(Ur1+Ur2)) $ () ### PRISER.G08 ### FRML YJRPXNN JRPXNN =PXNN/(EXP(LOG(PXNN(-1))+0.50371*(LOG(PWNNVL1)-LOG(PWNNVL1(-1)))*PWNNVL1(-1)/PXNN(-1)+ 0.65486*(LOG(PWNNVV)-LOG(PWNNVV(-1)))*PWNNVV(-1)/PXNN(-1)+0.49629*(LOG (PWNNVL1(-1))-LOG(PWNNVL1(-2)))*PWNNVL1(-1)/PXNN(-1)+0.34514*(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.66081*(LOG(PWNBVL1)-LOG(PWNBVL1(-1)))*PWNBVL1(-1)/PXNB(-1) +0.95405*(LOG(PWNBVV)-LOG(PWNBVV(-1)))*PWNBVV(-1)/PXNB(-1)+0.33919*(LOG (PWNBVL1(-1))-LOG(PWNBVL1(-2)))*PWNBVL1(-1)/PXNB(-1)+0.21207*(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.46913*(LOG(PWNMVL1)-LOG(PWNMVL1(-1)))*PWNMVL1(-1)/PXNM(-1)+ 0.74061*(LOG(PWNMVV)-LOG(PWNMVV(-1)))*PWNMVV(-1)/PXNM(-1)+0.53087*(LOG (PWNMVL1(-1))-LOG(PWNMVL1(-2)))*PWNMVL1(-1)/PXNM(-1)+0.25939*(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.098764*(LOG(PWNTVL1)-LOG(PWNTVL1(-1)))*PWNTVL1(-1)/PXNT(-1) +0.74937*(LOG(PWNTVV)-LOG(PWNTVV(-1)))*PWNTVV(-1)/PXNT(-1)+0.90124*(LOG (PWNTVL1(-1))-LOG(PWNTVL1(-2)))*PWNTVL1(-1)/PXNT(-1)+0.25063*(LOG( PWNTVV(-1))-LOG(PWNTVV(-2)))*PWNTVV(-1)/PXNT(-1)-0.20000*LOG(PXNT(-1) /PXNTW1(-1))))-1.0$ FRML YZPXNT Zpxnt = pxnt $ FRML YZBYWNT1 Zbywnt1 = bywnt1 $ FRML YJRPXNK JRPXNK =PXNK/(EXP(LOG(PXNK(-1))+0.32028*(LOG(PWNKVL1)-LOG(PWNKVL1(-1)))*PWNKVL1(-1)/PXNK(-1)+ 0.87126*(LOG(PWNKVV)-LOG(PWNKVV(-1)))*PWNKVV(-1)/PXNK(-1)+0.67972*(LOG (PWNKVL1(-1))-LOG(PWNKVL1(-2)))*PWNKVL1(-1)/PXNK(-1)+0.12874*(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.645322*(LOG(PWNQVL1)-LOG(PWNQVL1(-1)))*PWNQVL1(-1)/PXNQ(-1)+ 0.855308*(LOG(PWNQVV)-LOG(PWNQVV(-1)))*PWNQVV(-1)/PXNQ(-1)+0.354678*(LOG (PWNQVL1(-1))-LOG(PWNQVL1(-2)))*PWNQVL1(-1)/PXNQ(-1)+0.184350*(LOG( PWNQVV(-1))-LOG(PWNQVV(-2)))*PWNQVV(-1)/PXNQ(-1)-0.26889*LOG(PXNQ(-1) /PXNQW1(-1))))-1.0$ FRML YZPXNQ Zpxnq = pxnq $ FRML YZBYWNQ1 Zbywnq1 = bywnq1 $ FRML YJRPXB JRPXB =PXB/(EXP(LOG(PXB(-1))+0.539263*(LOG(PWBVL1)-LOG(PWBVL1(-1)))*PWBVL1(-1)/PXB(-1)+0.751764 *(LOG(PWBVV)-LOG(PWBVV(-1)))*PWBVV(-1)/PXB(-1)+0.460737*(LOG(PWBVL1(-1) )-LOG(PWBVL1(-2)))*PWBVL1(-1)/PXB(-1)+0.248236*(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))+1.01665*(LOG(PWQHVL1)-LOG(PWQHVL1(-1)))*PWQHVL1(-1)/PXQH(-1)+ 1.21235*(LOG(PWQHVV)-LOG(PWQHVV(-1)))*PWQHVV(-1)/PXQH(-1)+0.29358*(LOG (PWQHVL1(-1))-LOG(PWQHVL1(-2)))*PWQHVL1(-1)/PXQH(-1)+0.00000*(LOG( PWQHVV(-1))-LOG(PWQHVV(-2)))*PWQHVV(-1)/PXQH(-1)-0.20000*LOG(PXQH(-1) /PXQHW1(-1))))-1.0$ FRML YZPXQH Zpxqh = pxqh $ FRML YZBYWQH1 Zbywqh1 = bywqh1 $ FRML YJRPXQT JRPXQT =PXQT/(EXP(LOG(PXQT(-1))+0.356266*(LOG(PWQTVL1)-LOG(PWQTVL1(-1)))*PWQTVL1(-1)/PXQT(-1)+ 0.85*(LOG(PWQTVV)-LOG(PWQTVV(-1)))*PWQTVV(-1)/PXQT(-1)+0.0000*(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.67039*(LOG(PWQQVL1)-LOG(PWQQVL1(-1)))*PWQQVL1(-1)/PXQQ(-1)+ 0.88296*(LOG(PWQQVV)-LOG(PWQQVV(-1)))*PWQQVV(-1)/PXQQ(-1)+0.49131*(LOG (PWQQVL1(-1))-LOG(PWQQVL1(-2)))*PWQQVL1(-1)/PXQQ(-1)+0.11704*(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.30074*(Dlog(pwqfwv1)-Dlog(pwqfwv1(-1))) -0.78730*(Dlog(pxqf(-1))-Dlog(pwqfw1(-1))) +Dlog(pxqf(-1))))-1 $ FRML YZPXQF Zpxqf = pxqf $ FRML YZBYWQF1 Zbywqf1 = bywqf1 $ () ### INVEST.G08 ### () Jled i lagerinvesteringer FRML YJfIla JfIla = fIla - ( 0.20394*(0.75*(Dif(fXa)-Dif(fIla)) +(1-0.75)*(Dif(fXa(-1))-Dif(fIla(-1)))) +0.66667*(hostkor-0.5*hostkor(-1)-0.5*hostkor(-2))) $ FRML YJfIle JfIle = fIle - ( 0.05217*(0.75*(Dif(fXe)-Dif(fIle)) +(1-0.75)*(Dif(fXe(-1))-Dif(fIle(-1)))) ) $ FRML YJfIlng JfIlng = fIlng - ( bngil*(Dif(fXng)-Dif(fIlng)) ) $ FRML YJfIlne JfIlne = fIlne - ( 0.03845*(0.00*(Dif(fXne)-Dif(fIlne)) +(1-0.00)*(Dif(fXne(-1))-Dif(fIlne(-1)))) ) $ FRML YJfIlnf JfIlnf = fIlnf - ( bnfil*(Dif(fXnf)-Dif(fIlnf)) ) $ FRML YJfIlnn JfIlnn = fIlnn - ( 0.37875*(0.75*(Dif(fXnn)-Dif(fIlnn)) +(1-0.75)*(Dif(fXnn(-1))-Dif(fIlnn(-1)))) ) $ FRML YJfIlnb JfIlnb = fIlnb - ( 0.19120*(0.75*(Dif(fXnb)-Dif(fIlnb)) +(1-0.75)*(Dif(fXnb(-1))-Dif(fIlnb(-1)))) ) $ FRML YJfIlnm JfIlnm = fIlnm - ( 0.18587*(0.00*(Dif(fXnm)-Dif(fIlnm)) +(1-0.00)*(Dif(fXnm(-1))-Dif(fIlnm(-1)))) ) $ FRML YJfIlnt JfIlnt = fIlnt - ( bntil*(Dif(fXnt)-Dif(fIlnt)) ) $ FRML YJfIlnk JfIlnk = fIlnk - ( 0.14686*(0.25*(Dif(fXnk)-Dif(fIlnk)) +(1-0.25)*(Dif(fXnk(-1))-Dif(fIlnk(-1)))) ) $ FRML YJfIlnq JfIlnq = fIlnq - ( 0.14348*(0.50*(Dif(fXnq)-Dif(fIlnq)) +(1-0.50)*(Dif(fXnq(-1))-Dif(fIlnq(-1)))) ) $ FRML YJfIlqh JfIlqh = fIlqh - ( 0.01967*(0.50*(Dif(fXqh)-Dif(fIlqh)) +(1-0.50)*(Dif(fXqh(-1))-Dif(fIlqh(-1)))) ) $ FRML YJfIlqq JfIlqq = fIlqq - ( 0.00920*(0.50*(Dif(fXqq)-Dif(fIlqq)) +(1-0.50)*(Dif(fXqq(-1))-Dif(fIlqq(-1)))) ) $ FRML YJfIlm0 JfIlm0 = fIlm0 - ( 0.05276*(Dif(fM0)-Dif(fIlm0)) ) $ FRML YJfIlm1 JfIlm1 = fIlm1 - ( bm1il*(Dif(fM1)-Dif(fIlm1)) ) $ FRML YJfIlm2 JfIlm2 = fIlm2 - ( 0.06441*(0.00*(Dif(fM2)-Dif(fIlm2)) +(1-0.00)*(Dif(fM2(-1))-Dif(fIlm2(-1)))) ) $ FRML YJfIlm3k JfIlm3k = fIlm3k - ( 0.41176*(0.00*(Dif(fM3K)-Dif(fIlm3K)) +(1-0.00)*(Dif(fM3K(-1))-Dif(fIlm3K(-1)))) ) $ FRML YJfIlm3r JfIlm3r = fIlm3r - ( 0.05948*(0.00*(Dif(fM3R)-Dif(fIlm3R)) +(1-0.00)*(Dif(fM3R(-1))-Dif(fIlm3R(-1)))) ) $ FRML YJfIlm3q JfIlm3q = fIlm3q - ( 0.30000*(Dif(fM3Q(-1))-Dif(fIlm3Q(-1)) )) $ FRML YJfIlm5 JfIlm5 = fIlm5 - ( 0.13059*(0.50*(Dif(fM5)-Dif(fIlm5)) +(1-0.50)*(Dif(fM5(-1))-Dif(fIlm5(-1)))) ) $ FRML YJfIlm6m JfIlm6m = fIlm6m - ( 0.26917*(0.75*(Dif(fM6M)-Dif(fIlm6M)) +(1-0.75)*(Dif(fM6M(-1))-Dif(fIlm6M(-1)))) ) $ FRML YJfIlm6q JfIlm6q = fIlm6q - ( 0.12061*((Dif(fM6Q)-Dif(fIlm6Q))) ) $ FRML YJfIlm7b JfIlm7b = fIlm7b - ( 0.19654*(0.25*(Dif(fM7B)-Dif(fIlm7B)) +(1-0.25)*(Dif(fM7B(-1))-Dif(fIlm7B(-1))))) $ FRML YJfIlm7y JfIlm7y = fIlm7y - ( 0.00848*((Dif(fM7Y)-Dif(fIlm7Y))) ) $ FRML YJfIlm7q JfIlm7q = fIlm7q - ( 0.10938*((Dif(fM7Q)-Dif(fIlm7Q))) ) $ FRML YJfIlm8 JfIlm8 = fIlm8 - ( 0.11208*(0.75*(Dif(fM8)-Dif(fIlm8)) +(1-0.75)*(Dif(fM8(-1))-Dif(fIlm8(-1)))) ) $ FRML YZfIla Zfila = fIla $ FRML YZfIle Zfile = fIle $ FRML YZfIlng Zfilng = fIlng $ FRML YZfIlne Zfilne = fIlne $ FRML YZfIlnf Zfilnf = fIlnf $ FRML YZfIlnn Zfilnn = fIlnn $ FRML YZfIlnb Zfilnb = fIlnb $ FRML YZfIlnm Zfilnm = fIlnm $ FRML YZfIlnt Zfilnt = fIlnt $ FRML YZfIlnk Zfilnk = fIlnk $ FRML YZfIlnq Zfilnq = fIlnq $ FRML YZfIlqh Zfilqh = fIlqh $ FRML YZfIlqq Zfilqq = fIlqq $ FRML YZfIlm0 Zfilm0 = fIlm0 $ FRML YZfIlm1 Zfilm1 = fIlm1 $ FRML YZfIlm2 Zfilm2 = fIlm2 $ FRML YZfIlm3k Zfilm3k = fIlm3k $ FRML YZfIlm3r Zfilm3r = fIlm3r $ FRML YZfIlm3q Zfilm3q = fIlm3q $ FRML YZfIlm5 Zfilm5 = fIlm5 $ FRML YZfIlm6m Zfilm6m = fIlm6m $ FRML YZfIlm6q Zfilm6q = fIlm6q $ FRML YZfIlm7b Zfilm7b = fIlm7b $ FRML YZfIlm7y Zfilm7y = fIlm7y $ FRML YZfIlm7q Zfilm7q = fIlm7q $ FRML YZfIlm8 Zfilm8 = fIlm8 $ () ### EOHNE.G08 ### () Jled i eoh FRML YJRfkbe JRfkbe = (fKbe+D6680)/(fIbe/kfibe+(1-bivbe)*fKbe(-1)+D6680) - 1 $ FRML YZfKbe Zfkbe = fKbe $ FRML YJRPXNE JRpxne = pxne/(Exp(Log(pxne(-1))+0.85454*(Log(pwneve)-Log(pwneve(-1)))*(pwneve(-1)/pxne(-1)) +(1-0.85454)*(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.G08 ### 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.G08 ### () 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 $ () 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) $ () 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.G08 ### () () 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.G08 ### FRML YZWsep_z_iq Zwsep_z_iq = Wsep_z_iq $ FRML YZWsdkp_z_iq Zwsdkp_z_iq = Wsdkp_z_iq $ FRML YZWbp_z_iq Zwbp_z_iq = Wbp_z_iq $ FRML YJDWsep_z_iq JDwsep_z_iq = Wsep_z_iq -(Wsep_z_iq(-1) +Tflpn*bwsp*bwse_cf + Oselp) $ FRML YJDWsdkp_z_iq JDwsdkp_z_iq = Wsdkp_z_iq -(Wsdkp_z_iq(-1)+Tflpn*bwsp*(1-bwse_cf) + Osdklp)$ FRML YZWseatp Zwseatp = Wseatp $ FRML YZWsdkatp Zwsdkatp = Wsdkatp $ FRML YZWbatp Zwbatp = Wbatp $ FRML YJDWseatp JDwseatp = Wseatp - (Wseatp(-1) +(Tpatpi-Tpatpu+Tiatp-Sdratp)*bwsp*bwse_cf + Oseatp) $ FRML YJDWsdkatp JDwsdkatp = Wsdkatp - (Wsdkatp(-1)+(Tpatpi-Tpatpu+Tiatp-Sdratp)*bwsp*(1-bwse_cf) + Osdkatp) $