clear all tic randn('state', sum(100*rand*clock)); rand('state', sum(100*rand*clock)); run=300; time=100; %number of periods mxfx=23; %maximum number of fixed periods phi=.05; %this is the necessary raise for sticky wages Ai=100; Aj=100; Ak=100; tauij=zeros(1,run); tauk=zeros(1,run); taul=zeros(1,run); %NEW $$$ CURRENCY winfav=zeros(1,run); menu=zeros(1,run); mktall=zeros(1,run); mkti=zeros(1,run); mktj=zeros(1,run); mktk=zeros(1,run); bav=zeros(1,run); bvl=zeros(1,run); bi=zeros(1,run); bj=zeros(1,run); bk=zeros(1,run); pvlav=zeros(1,run); pthruavgi=zeros(1,run); pthruavgj=zeros(1,run); pthruavgk=zeros(1,run); pthrurngi=zeros(1,run); pthrurngj=zeros(1,run); pthrurngk=zeros(1,run); pthruij=zeros(1,run); pthruik=zeros(1,run); pthruji=zeros(1,run); pthrujk=zeros(1,run); pthruki=zeros(1,run); pthrukj=zeros(1,run); risk=zeros(1,run); eiklnvar=zeros(1,run); ejklnvar=zeros(1,run); ekllnvar=zeros(1,run); %NEW $$$ CURRENCY loop=zeros(1,run); wage=zeros(run,time); wgshdw=zeros(run,time); for aaa=1:run tauij(1,aaa)=.01*rand; %transaction cost between country i and j tauk(1,aaa)=rand*.008;%transaction cost with country k is random but could be more than tauij taul(1,aaa)=rand*.008; %NEW $$$ CURRENCY winfav(1,aaa)=(.005/12)+(rand*.080/12); %monthly average inflation is random between .5-8.5prct annually menu(1,aaa)=.01+(rand*.06); %random menu cost between .01 and .07 mkti(1,aaa)=rand; mktj(1,aaa)=rand; mktk(1,aaa)=rand; mktall(1,aaa)=mkti(1,aaa)+mktj(1,aaa)+mktk(1,aaa); bav(1,aaa)=4+(rand*6); %average b for demand (A-bp)=Q bvl(1,aaa)=rand*2; %range of b around the average bi(1,aaa)=bav(1,aaa)+(rand*bvl(1,aaa)); bj(1,aaa)=bav(1,aaa)+(rand*bvl(1,aaa)); bk(1,aaa)=bav(1,aaa)+(rand*bvl(1,aaa)); pvlav(1,aaa)=rand*(.023); %the average var of random movement in underlying price is roughly 1.5%StdDev=.23 or less risk(1,aaa)=.9+(rand*.1); %setting firm risk aversion eiklnvar(1,aaa)=rand*.0005; %setting volatility of two ex rates ejklnvar(1,aaa)=rand*.0005; ekllnvar(1,aaa)=rand*.0005; %NEW $$$ CURRENCY loop(1,aaa)=.02+(rand*.3); wage(aaa,1)=4+(6*rand); wgshdw(aaa,1)=wage(aaa,1); end leik=log(zeros(run,time)+1); %starting points for ex rate lejk=log(zeros(run,time)+1); leij=log(zeros(run,time)+1); lekl=log(zeros(run,time)+1); %NEW $$$ CURRENCY lejl=log(zeros(run,time)+1); %NEW $$$ CURRENCY leil=log(zeros(run,time)+1); %NEW $$$ CURRENCY eik=zeros(run,time)+1; %starting points for reg ex. rate ejk=zeros(run,time)+1; eij=zeros(run,time)+1; ekl=zeros(run,time)+1; %NEW $$$ CURRENCY ejl=zeros(run,time)+1; %NEW $$$ CURRENCY eil=zeros(run,time)+1; %NEW $$$ CURRENCY infl=zeros(run,time); lpi=log(zeros(run,time)+4); lpj=log(zeros(run,time)+4); lpk=log(zeros(run,time)+4); pi=zeros(run,time)+4; pj=zeros(run,time)+4; pk=zeros(run,time)+4; pj_ink=zeros(time,1)+4; pi_ink=zeros(time,1)+4; pk_ink=zeros(time,1)+4; corrpipjh=zeros(2,2); corrpipkh=zeros(2,2); corrpjpkh=zeros(2,2); corrpipj=zeros(run,1); corrpipk=zeros(run,1); corrpjpk=zeros(run,1); for zrn=1:run pj_ink=zeros(time,1)+4; pi_ink=zeros(time,1)+4; pk_ink=zeros(time,1)+4; corrpipjh=zeros(2,2); corrpipkh=zeros(2,2); corrpjpkh=zeros(2,2); for ztm=2:time leik(zrn,ztm)=leik(zrn,ztm-1)+((eiklnvar(1,zrn)^.5)*randn); %setting exrates and no arbitrage lejk(zrn,ztm)=lejk(zrn,ztm-1)+((ejklnvar(1,zrn)^.5)*randn); lekl(zrn,ztm)=lekl(zrn,ztm-1)+((ekllnvar(1,zrn)^.5)*randn); %NEW $$$ CURRENCY leij(zrn,ztm)=leik(zrn,ztm)-lejk(zrn,ztm);%+(((rand*2)-1)*(tauij(1,zrn)+(1*tauk(1,zrn)))); leil(zrn,ztm)=leik(zrn,ztm)+lekl(zrn,ztm);%+(((rand*2)-1)*(tauij(1,zrn)+(1*taul(1,zrn)))); %NEW $$$ CURRENCY lejl(zrn,ztm)=lejk(zrn,ztm)+lekl(zrn,ztm);%+(((rand*2)-1)*(tauij(1,zrn)+(1*taul(1,zrn)))); %NEW $$$ CURRENCY infl(zrn,ztm)=winfav(1,zrn)+randn*.5*winfav(1,aaa); wgshdw(zrn,ztm)=(1+infl(zrn,ztm))*wgshdw(zrn,ztm-1); wage(zrn,ztm)=wage(zrn,ztm-1); if wgshdw(zrn,ztm)>=wage(zrn,ztm)*(1+phi) wage(zrn,ztm)=wgshdw(zrn,ztm); %setting wage inflation else wage(zrn,ztm)=wage(zrn,ztm-1); end lpi(zrn,ztm)=lpi(zrn,ztm-1)+(pvlav(zrn)*randn); lpj(zrn,ztm)=lpj(zrn,ztm-1)+(pvlav(zrn)*randn); lpk(zrn,ztm)=lpk(zrn,ztm-1)+(pvlav(zrn)*randn); %you may need a no arbitrage contraint here eik(zrn,ztm)=2.718^leik(zrn,ztm); ejk(zrn,ztm)=2.718^lejk(zrn,ztm); eij(zrn,ztm)=2.718^leij(zrn,ztm); ekl(zrn,ztm)=2.718^leik(zrn,ztm); %NEW $$$ CURRENCY ejl(zrn,ztm)=2.718^lejk(zrn,ztm); %NEW $$$ CURRENCY eil(zrn,ztm)=2.718^leij(zrn,ztm); %NEW $$$ CURRENCY pi(zrn,ztm)=2.718^lpi(zrn,ztm); pj(zrn,ztm)=2.718^lpj(zrn,ztm); pk(zrn,ztm)=2.718^lpk(zrn,ztm); if (pj(zrn,ztm))*(1/ejk(zrn,ztm))*(1-loop(zrn))>=(pk(zrn,ztm)) pj(zrn,ztm)=pk(zrn,ztm)*(ejk(zrn,ztm)); lpj(zrn,ztm)=log(pj(zrn,ztm)); end if (pj(zrn,ztm))*(1/ejk(zrn,ztm))*(1+loop(zrn))<=(pk(zrn,ztm)) pj(zrn,ztm)=pk(zrn,ztm)*(ejk(zrn,ztm)); lpj(zrn,ztm)=log(pj(zrn,ztm)); end if (pi(zrn,ztm))*(1/eik(zrn,ztm))*(1-loop(zrn))>=(pk(zrn,ztm)) pi(zrn,ztm)=pk(zrn,ztm)*(eik(zrn,ztm)); lpi(zrn,ztm)=log(pi(zrn,ztm)); end if (pi(zrn,ztm))*(1/eik(zrn,ztm))*(1+loop(zrn))<=(pk(zrn,ztm)) pi(zrn,ztm)=pk(zrn,ztm)*(eik(zrn,ztm)); lpi(zrn,ztm)=log(pi(zrn,ztm)); end pj_ink(ztm,1)=pj(zrn,ztm)*(1/ejk(zrn,ztm)); pi_ink(ztm,1)=pi(zrn,ztm)*(1/eik(zrn,ztm)); pk_ink(ztm,1)=pk(zrn,ztm); end corrpipjh=corrcoef(pi_ink,pj_ink); corrpipkh=corrcoef(pi_ink,pk_ink); corrpjpkh=corrcoef(pj_ink,pk_ink); corrpipj(zrn,1)=corrpipjh(1,2); corrpipk(zrn,1)=corrpipkh(1,2); corrpjpk(zrn,1)=corrpjpkh(1,2); end varlpi=var(lpi'); varlpj=var(lpj'); varlpk=var(lpk'); varleik=var(leik'); varlejk=var(lejk'); varleij=var(leij'); varleil=var(leil'); varlejl=var(lejl'); varlekl=var(lekl'); %now to calculate prices and profits pricegv=ones(run*mxfx,time); pricegd=ones(run*mxfx,time); pricedindf=ones(run*mxfx,time); pricevinv=ones(run*mxfx,time); pricedind=ones(run*mxfx,time); pricevinfv=ones(run*mxfx,time); pricefindf=ones(run*mxfx,time); pricedindv=ones(run*mxfx,time); pricefinf=ones(run*mxfx,time); pricevindv=ones(run*mxfx,time); pricevinf3p=ones(run*mxfx,time); pricevind3p=ones(run*mxfx,time); pricedinf3p=ones(run*mxfx,time); pricedinv3p=ones(run*mxfx,time); pricefind3p=ones(run*mxfx,time); pricefinv3p=ones(run*mxfx,time); pricevinv3p=ones(run*mxfx,time); pricedind3p=ones(run*mxfx,time); pricefinf3p=ones(run*mxfx,time); pricegl=ones(run*mxfx,time); %NEW $$$ CURRENCY pricelinv=ones(run*mxfx,time); %NEW $$$ CURRENCY pricelinfv=ones(run*mxfx,time); %NEW $$$ CURRENCY pricelinf=ones(run*mxfx,time); %NEW $$$ CURRENCY pricelindv=ones(run*mxfx,time); %NEW $$$ CURRENCY pricelindf=ones(run*mxfx,time); %NEW $$$ CURRENCY pricelind=ones(run*mxfx,time); %NEW $$$ CURRENCY pricelinf3p=ones(run*mxfx,time); %NEW $$$ CURRENCY pricelind3p=ones(run*mxfx,time); %NEW $$$ CURRENCY pricelinv3p=ones(run*mxfx,time); %NEW $$$ CURRENCY pgvd=0; pgdd=0; pdindfd=0; pvinvd=0; pdindd=0; pvinfvd=0; pfindfd=0; pdindvd=0; pfinfd=0; pvindvd=0; pvinfd=0; pvindd=0; pdinfd=0; pdinvd=0; pfindd=0; pfinvd=0; pvinvd3=0; pdindd3=0; pfinfd3=0; pgld=0; %NEW $$$ CURRENCY plinvd=0; %NEW $$$ CURRENCY plinfvd=0; %NEW $$$ CURRENCY plinfd=0; %NEW $$$ CURRENCY plindvd=0; %NEW $$$ CURRENCY plindfd=0; %NEW $$$ CURRENCY plindd=0; %NEW $$$ CURRENCY plinfd3=0; %NEW $$$ CURRENCY plinvd3=0; %NEW $$$ CURRENCY plindd3=0; %NEW $$$ CURRENCY pgvn=0; pgdn=0; pdindfn=0; pvinvn=0; pdindn=0; pvinfvn=0; pfindfn=0; pdindvn=0; pfinfn=0; pvindvn=0; pvinfn=0; pvindn=0; pdinfn=0; pdinvn=0; pfindn=0; pfinvn=0; pvinvn3=0; pdindn3=0; pfinfn3=0; pgln=0; %NEW $$$ CURRENCY plinvn=0; %NEW $$$ CURRENCY plinfvn=0; %NEW $$$ CURRENCY plinfn=0; %NEW $$$ CURRENCY plindvn=0; %NEW $$$ CURRENCY plindfn=0; %NEW $$$ CURRENCY plindn=0; %NEW $$$ CURRENCY plinfn3=0; %NEW $$$ CURRENCY plinvn3=0; %NEW $$$ CURRENCY plindn3=0; %NEW $$$ CURRENCY %here's a list of the various profit functions profitgv=zeros(run*mxfx,time); profitgd=zeros(run*mxfx,time); profitddv=zeros(run*mxfx,time); profitdvv=zeros(run*mxfx,time); profitffv=zeros(run*mxfx,time); profitdfd=zeros(run*mxfx,time); profitvfv=zeros(run*mxfx,time); profitdfv=zeros(run*mxfx,time); profitgv3p=zeros(run*mxfx,time); profitgd3p=zeros(run*mxfx,time); profitddv3p=zeros(run*mxfx,time); profitdvv3p=zeros(run*mxfx,time); profitffv3p=zeros(run*mxfx,time); profitdfd3p=zeros(run*mxfx,time); profitvfv3p=zeros(run*mxfx,time); profitgl=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitddl=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitdll=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitffl=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitdld=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitldl=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitllv=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitlvv=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitvlv=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitdfl=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitgl3p=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitddl3p=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitdll3p=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitffl3p=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitdlv=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitdld3p=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitldl3p=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitllv3p=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitlvv3p=zeros(run*mxfx,time); %NEW $$$ CURRENCY profitvlv3p=zeros(run*mxfx,time);%NEW $$$ CURRENCY profitlfv=zeros(run*mxfx,time); %NEW $$$ CURRENCY lastup=zeros(1,mxfx)+24; for yrn=1:run lastup=zeros(1,mxfx)+24; for ytm=24:time pgvd=0; pgdd=0; pdindfd=0; pvinvd=0; pdindd=0; pvinfvd=0; pfindfd=0; pdindvd=0; pfinfd=0; pvindvd=0; pvinfd=0; pvindd=0; pdinfd=0; pdinvd=0; pfindd=0; pfinvd=0; pvinvd3=0; pdindd3=0; pfinfd3=0; pgld=0; %NEW $$$ CURRENCY plinvd=0; %NEW $$$ CURRENCY plinfvd=0; %NEW $$$ CURRENCY plinfd=0; %NEW $$$ CURRENCY plindvd=0; %NEW $$$ CURRENCY plindfd=0; %NEW $$$ CURRENCY plindd=0; %NEW $$$ CURRENCY plinfd3=0; %NEW $$$ CURRENCY plinvd3=0; %NEW $$$ CURRENCY plindd3=0; %NEW $$$ CURRENCY pgvn=0; pgdn=0; pdindfn=0; pvinvn=0; pdindn=0; pvinfvn=0; pfindfn=0; pdindvn=0; pfinfn=0; pvindvn=0; pvinfn=0; pvindn=0; pdinfn=0; pdinvn=0; pfindn=0; pfinvn=0; pvinvn3=0; pdindn3=0; pfinfn3=0; pgln=0; %NEW $$$ CURRENCY plinvn=0; %NEW $$$ CURRENCY plinfvn=0; %NEW $$$ CURRENCY plinfn=0; %NEW $$$ CURRENCY plindvn=0; %NEW $$$ CURRENCY plindfn=0; %NEW $$$ CURRENCY plindn=0; %NEW $$$ CURRENCY plinfn3=0; %NEW $$$ CURRENCY plinvn3=0; %NEW $$$ CURRENCY plindn3=0; %NEW $$$ CURRENCY for ymx=1:mxfx if ytm>=lastup(ymx)+ymx pricegv((yrn*mxfx)+ymx-mxfx,ytm)=(pgvn+((1-menu(yrn))*((mkti(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ai)+(mktj(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Aj)+(mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eik(yrn,ytm)*(1+tauk(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*ejk(yrn,ytm)*(1+tauk(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pgvd+((1-menu(yrn))*((((1-tauk(yrn))*eik(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauk(yrn))*eik(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+tauk(yrn))*ejk(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))); pricegd((yrn*mxfx)+ymx-mxfx,ytm)=(pgdn+((1-menu(yrn))*((mkti(yrn)*Ai)+(mktj(yrn)*Aj)+(mktk(yrn)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*(1/eij(yrn,ytm))*(1+tauij(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm)))))))))/(pgdd+((1-menu(yrn))*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+tauij(yrn))*(1/eij(yrn,ytm))*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pricedindf((yrn*mxfx)+ymx-mxfx,ytm)=(pdindfn+(((1-menu(yrn))^2)*((mkti(yrn)*Ai)+(mktj(yrn)*Aj)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*(1/eij(yrn,ytm))*(1+tauij(yrn))*(1/pj(yrn,ytm)))))))))/(pdindfd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+tauij(yrn))*(1/eij(yrn,ytm))*(1/pj(yrn,ytm))))))); pricevinv((yrn*mxfx)+ymx-mxfx,ytm)=(pvinvn+(((1-menu(yrn))^2)*((mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pvinvd+(((1-menu(yrn))^2)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pricedind((yrn*mxfx)+ymx-mxfx,ytm)=(pdindn+(((1-menu(yrn))^2)*((mkti(yrn)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))))))))/(pdindd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm))))))); pricevinfv((yrn*mxfx)+ymx-mxfx,ytm)=(pvinfvn+(((1-menu(yrn))^2)*((mktj(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Aj)+(mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejk(yrn,ytm)*(1+tauk(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pvinfvd+(((1-menu(yrn))^2)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+tauk(yrn))*ejk(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pricefindf((yrn*mxfx)+ymx-mxfx,ytm)=(pfindfn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Ai)+(mktj(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eij(yrn,ytm)*(1+tauij(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm)))))))))/(pfindfd+(((1-menu(yrn))^2)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauij(yrn))*eij(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))))); pricedindv((yrn*mxfx)+ymx-mxfx,ytm)=(pdindvn+(((1-menu(yrn))^2)*((mkti(yrn)*Ai)+(mktk(yrn)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm)))))))))/(pdindvd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pricefinf((yrn*mxfx)+ymx-mxfx,ytm)=(pfinfn+(((1-menu(yrn))^3)*((mktj(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm)))))))))/(pfinfd+(((1-menu(yrn))^3)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))))); pricevindv((yrn*mxfx)+ymx-mxfx,ytm)=(pvindvn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ai)+(mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eik(yrn,ytm)*(1+tauk(yrn))*(1/pi(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pvindvd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pricevinf3p((yrn*mxfx)+ymx-mxfx,ytm)=(pvinfn+(((1-menu(yrn))^3)*((mktj(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejk(yrn,ytm)*(1+tauk(yrn))*(1/pj(yrn,ytm)))))))))/(pvinfd+(((1-menu(yrn))^3)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+tauk(yrn))*ejk(yrn,ytm)*(1/pj(yrn,ytm))))))); pricevind3p((yrn*mxfx)+ymx-mxfx,ytm)=(pvindn+(((1-menu(yrn))^3)*((mkti(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eik(yrn,ytm)*(1+tauk(yrn))*(1/pi(yrn,ytm)))))))))/(pvindd+(((1-menu(yrn))^3)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauk(yrn))*eik(yrn,ytm)*(1/pi(yrn,ytm))))))); pricedinf3p((yrn*mxfx)+ymx-mxfx,ytm)=(pdinfn+(((1-menu(yrn))^3)*((mktj(yrn)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*(1/eij(yrn,ytm))*(1+tauij(yrn))*(1/pj(yrn,ytm)))))))))/(pdinfd+(((1-menu(yrn))^3)*(((2*bj(yrn)*mktj(yrn)*(1+tauij(yrn))*(1/eij(yrn,ytm))*(1/pj(yrn,ytm))))))); pricefind3p((yrn*mxfx)+ymx-mxfx,ytm)=(pfindn+(((1-menu(yrn))^3)*((mkti(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eij(yrn,ytm)*(1+tauij(yrn))*(1/pi(yrn,ytm)))))))))/(pfindd+(((1-menu(yrn))^3)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauij(yrn))*eij(yrn,ytm)*(1/pi(yrn,ytm))))))); pricevinv3p((yrn*mxfx)+ymx-mxfx,ytm)=(pvinvn3+(((1-menu(yrn))^3)*((mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pvinvd3+(((1-menu(yrn))^3)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pricedind3p((yrn*mxfx)+ymx-mxfx,ytm)=(pdindn3+(((1-menu(yrn))^3)*((mkti(yrn)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))))))))/(pdindd3+(((1-menu(yrn))^3)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm))))))); pricefinf3p((yrn*mxfx)+ymx-mxfx,ytm)=(pfinfn3+(((1-menu(yrn))^3)*((mktj(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm)))))))))/(pfinfd3+(((1-menu(yrn))^3)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))))); pricedinv3p((yrn*mxfx)+ymx-mxfx,ytm)=(pdinvn+(((1-menu(yrn))^3)*((mktk(yrn)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm)))))))))/(pdinvd+(((1-menu(yrn))^3)*(((2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pricegl((yrn*mxfx)+ymx-mxfx,ytm)=(pgln+((1-menu(yrn))*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+(mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+(mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(pgld+((1-menu(yrn))*((((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))); %NEW $$$ CURRENCY pricelinv((yrn*mxfx)+ymx-mxfx,ytm)=(plinvn+(((1-menu(yrn))^2)*((mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(plinvd+(((1-menu(yrn))^2)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY pricelinfv((yrn*mxfx)+ymx-mxfx,ytm)=(plinfvn+(((1-menu(yrn))^2)*((mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+(mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(plinfvd+(((1-menu(yrn))^2)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY pricelinf((yrn*mxfx)+ymx-mxfx,ytm)=(plinfn+(((1-menu(yrn))^2)*((mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))))))))/(plinfd+(((1-menu(yrn))^3)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm))))))); %NEW $$$ CURRENCY pricelindv((yrn*mxfx)+ymx-mxfx,ytm)=(plindvn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+(mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))+(bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(plindvd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*(eil(yrn,ytm))*(1/pi(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY pricelindf((yrn*mxfx)+ymx-mxfx,ytm)=(plindfn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+(mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))))))))/(plindfd+((1-menu(yrn))*((((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm)))))))); %NEW $$$ CURRENCY pricelind((yrn*mxfx)+ymx-mxfx,ytm)=(plindn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))))))))/(plindd+(((1-menu(yrn))^3)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm))))))); %NEW $$$ CURRENCY pricelinf3p((yrn*mxfx)+ymx-mxfx,ytm)=(plinfn3+(((1-menu(yrn))^2)*((mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))))))))/(plinfd+(((1-menu(yrn))^3)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm))))))); %NEW $$$ CURRENCY pricelind3p((yrn*mxfx)+ymx-mxfx,ytm)=(plindn3+(((1-menu(yrn))^3)*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))))))))/(plindd+(((1-menu(yrn))^3)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm))))))); %NEW $$$ CURRENCY pricelinv3p((yrn*mxfx)+ymx-mxfx,ytm)=(plinvn3+(((1-menu(yrn))^3)*((mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(plinvd+(((1-menu(yrn))^2)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY lastup(ymx)=ytm; else pricegv((yrn*mxfx)+ymx-mxfx,ytm)=pricegv((yrn*mxfx)+ymx-mxfx,ytm-1); pricegd((yrn*mxfx)+ymx-mxfx,ytm)=pricegd((yrn*mxfx)+ymx-mxfx,ytm-1); pricedindf((yrn*mxfx)+ymx-mxfx,ytm)=pricedindf((yrn*mxfx)+ymx-mxfx,ytm-1); pricevinv((yrn*mxfx)+ymx-mxfx,ytm)=pricevinv((yrn*mxfx)+ymx-mxfx,ytm-1); pricedind((yrn*mxfx)+ymx-mxfx,ytm)=pricedind((yrn*mxfx)+ymx-mxfx,ytm-1); pricevinfv((yrn*mxfx)+ymx-mxfx,ytm)=pricevinfv((yrn*mxfx)+ymx-mxfx,ytm-1); pricefindf((yrn*mxfx)+ymx-mxfx,ytm)=pricefindf((yrn*mxfx)+ymx-mxfx,ytm-1); pricedindv((yrn*mxfx)+ymx-mxfx,ytm)=pricedindv((yrn*mxfx)+ymx-mxfx,ytm-1); pricefinf((yrn*mxfx)+ymx-mxfx,ytm)=pricefinf((yrn*mxfx)+ymx-mxfx,ytm-1); pricevindv((yrn*mxfx)+ymx-mxfx,ytm)=pricevindv((yrn*mxfx)+ymx-mxfx,ytm-1); pricevinf3p((yrn*mxfx)+ymx-mxfx,ytm)=pricevinf3p((yrn*mxfx)+ymx-mxfx,ytm-1); pricevind3p((yrn*mxfx)+ymx-mxfx,ytm)=pricevind3p((yrn*mxfx)+ymx-mxfx,ytm-1); pricedinf3p((yrn*mxfx)+ymx-mxfx,ytm)=pricedinf3p((yrn*mxfx)+ymx-mxfx,ytm-1); pricedinv3p((yrn*mxfx)+ymx-mxfx,ytm)=pricedinv3p((yrn*mxfx)+ymx-mxfx,ytm-1); pricefind3p((yrn*mxfx)+ymx-mxfx,ytm)=pricefind3p((yrn*mxfx)+ymx-mxfx,ytm-1); pricefinv3p((yrn*mxfx)+ymx-mxfx,ytm)=pricefinv3p((yrn*mxfx)+ymx-mxfx,ytm-1); pricevinv3p((yrn*mxfx)+ymx-mxfx,ytm)=pricevinv3p((yrn*mxfx)+ymx-mxfx,ytm-1); pricedind3p((yrn*mxfx)+ymx-mxfx,ytm)=pricedind3p((yrn*mxfx)+ymx-mxfx,ytm-1); pricefinf3p((yrn*mxfx)+ymx-mxfx,ytm)=pricefinf3p((yrn*mxfx)+ymx-mxfx,ytm-1); pricegl((yrn*mxfx)+ymx-mxfx,ytm)=pricegl((yrn*mxfx)+ymx-mxfx,ytm-1); %NEW $$$ CURRENCY pricelinv((yrn*mxfx)+ymx-mxfx,ytm)=pricelinv((yrn*mxfx)+ymx-mxfx,ytm-1); %NEW $$$ CURRENCY pricelinfv((yrn*mxfx)+ymx-mxfx,ytm)=pricelinfv((yrn*mxfx)+ymx-mxfx,ytm-1); %NEW $$$ CURRENCY pricelinf((yrn*mxfx)+ymx-mxfx,ytm)=pricelinf((yrn*mxfx)+ymx-mxfx,ytm-1); %NEW $$$ CURRENCY pricelindv((yrn*mxfx)+ymx-mxfx,ytm)=pricelindv((yrn*mxfx)+ymx-mxfx,ytm-1); %NEW $$$ CURRENCY pricelindf((yrn*mxfx)+ymx-mxfx,ytm)=pricelindf((yrn*mxfx)+ymx-mxfx,ytm-1); %NEW $$$ CURRENCY pricelind((yrn*mxfx)+ymx-mxfx,ytm)=pricelind((yrn*mxfx)+ymx-mxfx,ytm-1); %NEW $$$ CURRENCY pricelinf3p((yrn*mxfx)+ymx-mxfx,ytm)=pricelinf3p((yrn*mxfx)+ymx-mxfx,ytm-1); %NEW $$$ CURRENCY pricelind3p((yrn*mxfx)+ymx-mxfx,ytm)=pricelind3p((yrn*mxfx)+ymx-mxfx,ytm-1); %NEW $$$ CURRENCY pricelinv3p((yrn*mxfx)+ymx-mxfx,ytm)=pricelinv3p((yrn*mxfx)+ymx-mxfx,ytm-1); %NEW $$$ CURRENCY end if ymx==1 pricegv((yrn*mxfx)+ymx-mxfx,ytm)=(pgvn+((1-menu(yrn))*((mkti(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ai)+(mktj(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Aj)+(mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eik(yrn,ytm)*(1+tauk(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*ejk(yrn,ytm)*(1+tauk(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pgvd+((1-menu(yrn))*((((1-tauk(yrn))*eik(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauk(yrn))*eik(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+tauk(yrn))*ejk(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))); pricegd((yrn*mxfx)+ymx-mxfx,ytm)=(pgdn+((1-menu(yrn))*((mkti(yrn)*Ai)+(mktj(yrn)*Aj)+(mktk(yrn)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*(1/eij(yrn,ytm))*(1+tauij(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm)))))))))/(pgdd+((1-menu(yrn))*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+tauij(yrn))*(1/eij(yrn,ytm))*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pricedindf((yrn*mxfx)+ymx-mxfx,ytm)=(pdindfn+(((1-menu(yrn))^2)*((mkti(yrn)*Ai)+(mktj(yrn)*Aj)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*(1/eij(yrn,ytm))*(1+tauij(yrn))*(1/pj(yrn,ytm)))))))))/(pdindfd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+tauij(yrn))*(1/eij(yrn,ytm))*(1/pj(yrn,ytm))))))); pricevinv((yrn*mxfx)+ymx-mxfx,ytm)=(pvinvn+(((1-menu(yrn))^2)*((mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pvinvd+(((1-menu(yrn))^2)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pricedind((yrn*mxfx)+ymx-mxfx,ytm)=(pdindn+(((1-menu(yrn))^2)*((mkti(yrn)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))))))))/(pdindd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm))))))); pricevinfv((yrn*mxfx)+ymx-mxfx,ytm)=(pvinfvn+(((1-menu(yrn))^2)*((mktj(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Aj)+(mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejk(yrn,ytm)*(1+tauk(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pvinfvd+(((1-menu(yrn))^2)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+tauk(yrn))*ejk(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pricefindf((yrn*mxfx)+ymx-mxfx,ytm)=(pfindfn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Ai)+(mktj(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eij(yrn,ytm)*(1+tauij(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm)))))))))/(pfindfd+(((1-menu(yrn))^2)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauij(yrn))*eij(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))))); pricedindv((yrn*mxfx)+ymx-mxfx,ytm)=(pdindvn+(((1-menu(yrn))^2)*((mkti(yrn)*Ai)+(mktk(yrn)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm)))))))))/(pdindvd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pricefinf((yrn*mxfx)+ymx-mxfx,ytm)=(pfinfn+(((1-menu(yrn))^3)*((mktj(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm)))))))))/(pfinfd+(((1-menu(yrn))^3)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))))); pricevindv((yrn*mxfx)+ymx-mxfx,ytm)=(pvindvn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ai)+(mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eik(yrn,ytm)*(1+tauk(yrn))*(1/pi(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pvindvd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pricevinf3p((yrn*mxfx)+ymx-mxfx,ytm)=(pvinfn+(((1-menu(yrn))^3)*((mktj(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejk(yrn,ytm)*(1+tauk(yrn))*(1/pj(yrn,ytm)))))))))/(pvinfd+(((1-menu(yrn))^3)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+tauk(yrn))*ejk(yrn,ytm)*(1/pj(yrn,ytm))))))); pricevind3p((yrn*mxfx)+ymx-mxfx,ytm)=(pvindn+(((1-menu(yrn))^3)*((mkti(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eik(yrn,ytm)*(1+tauk(yrn))*(1/pi(yrn,ytm)))))))))/(pvindd+(((1-menu(yrn))^3)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauk(yrn))*eik(yrn,ytm)*(1/pi(yrn,ytm))))))); pricedinf3p((yrn*mxfx)+ymx-mxfx,ytm)=(pdinfn+(((1-menu(yrn))^3)*((mktj(yrn)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*(1/eij(yrn,ytm))*(1+tauij(yrn))*(1/pj(yrn,ytm)))))))))/(pdinfd+(((1-menu(yrn))^3)*(((2*bj(yrn)*mktj(yrn)*(1+tauij(yrn))*(1/eij(yrn,ytm))*(1/pj(yrn,ytm))))))); pricefind3p((yrn*mxfx)+ymx-mxfx,ytm)=(pfindn+(((1-menu(yrn))^3)*((mkti(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eij(yrn,ytm)*(1+tauij(yrn))*(1/pi(yrn,ytm)))))))))/(pfindd+(((1-menu(yrn))^3)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauij(yrn))*eij(yrn,ytm)*(1/pi(yrn,ytm))))))); pricevinv3p((yrn*mxfx)+ymx-mxfx,ytm)=(pvinvn3+(((1-menu(yrn))^3)*((mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pvinvd3+(((1-menu(yrn))^3)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pricedind3p((yrn*mxfx)+ymx-mxfx,ytm)=(pdindn3+(((1-menu(yrn))^3)*((mkti(yrn)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))))))))/(pdindd3+(((1-menu(yrn))^3)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm))))))); pricefinf3p((yrn*mxfx)+ymx-mxfx,ytm)=(pfinfn3+(((1-menu(yrn))^3)*((mktj(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm)))))))))/(pfinfd3+(((1-menu(yrn))^3)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))))); pricedinv3p((yrn*mxfx)+ymx-mxfx,ytm)=(pdinvn+(((1-menu(yrn))^3)*((mktk(yrn)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm)))))))))/(pdinvd+(((1-menu(yrn))^3)*(((2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pricegl((yrn*mxfx)+ymx-mxfx,ytm)=(pgln+((1-menu(yrn))*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+(mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+(mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(pgld+((1-menu(yrn))*((((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))); %NEW $$$ CURRENCY pricelinv((yrn*mxfx)+ymx-mxfx,ytm)=(plinvn+(((1-menu(yrn))^2)*((mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(plinvd+(((1-menu(yrn))^2)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY pricelinfv((yrn*mxfx)+ymx-mxfx,ytm)=(plinfvn+(((1-menu(yrn))^2)*((mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+(mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(plinfvd+(((1-menu(yrn))^2)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY pricelinf((yrn*mxfx)+ymx-mxfx,ytm)=(plinfn+(((1-menu(yrn))^2)*((mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))))))))/(plinfd+(((1-menu(yrn))^3)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm))))))); %NEW $$$ CURRENCY pricelindv((yrn*mxfx)+ymx-mxfx,ytm)=(plindvn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+(mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))+(bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(plindvd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*(eil(yrn,ytm))*(1/pi(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY pricelindf((yrn*mxfx)+ymx-mxfx,ytm)=(plindfn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+(mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))))))))/(plindfd+((1-menu(yrn))*((((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm)))))))); %NEW $$$ CURRENCY pricelind((yrn*mxfx)+ymx-mxfx,ytm)=(plindn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))))))))/(plindd+(((1-menu(yrn))^3)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm))))))); %NEW $$$ CURRENCY pricelinf3p((yrn*mxfx)+ymx-mxfx,ytm)=(plinfn3+(((1-menu(yrn))^2)*((mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))))))))/(plinfd+(((1-menu(yrn))^3)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm))))))); %NEW $$$ CURRENCY pricelind3p((yrn*mxfx)+ymx-mxfx,ytm)=(plindn3+(((1-menu(yrn))^3)*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))))))))/(plindd+(((1-menu(yrn))^3)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm))))))); %NEW $$$ CURRENCY pricelinv3p((yrn*mxfx)+ymx-mxfx,ytm)=(plinvn3+(((1-menu(yrn))^3)*((mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(plinvd+(((1-menu(yrn))^2)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY lastup(ymx)=ytm; end if ytm==24 pricegv((yrn*mxfx)+ymx-mxfx,ytm)=(pgvn+((1-menu(yrn))*((mkti(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ai)+(mktj(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Aj)+(mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eik(yrn,ytm)*(1+tauk(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*ejk(yrn,ytm)*(1+tauk(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pgvd+((1-menu(yrn))*((((1-tauk(yrn))*eik(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauk(yrn))*eik(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+tauk(yrn))*ejk(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))); pricegd((yrn*mxfx)+ymx-mxfx,ytm)=(pgdn+((1-menu(yrn))*((mkti(yrn)*Ai)+(mktj(yrn)*Aj)+(mktk(yrn)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*(1/eij(yrn,ytm))*(1+tauij(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm)))))))))/(pgdd+((1-menu(yrn))*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+tauij(yrn))*(1/eij(yrn,ytm))*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pricedindf((yrn*mxfx)+ymx-mxfx,ytm)=(pdindfn+(((1-menu(yrn))^2)*((mkti(yrn)*Ai)+(mktj(yrn)*Aj)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*(1/eij(yrn,ytm))*(1+tauij(yrn))*(1/pj(yrn,ytm)))))))))/(pdindfd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+tauij(yrn))*(1/eij(yrn,ytm))*(1/pj(yrn,ytm))))))); pricevinv((yrn*mxfx)+ymx-mxfx,ytm)=(pvinvn+(((1-menu(yrn))^2)*((mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pvinvd+(((1-menu(yrn))^2)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pricedind((yrn*mxfx)+ymx-mxfx,ytm)=(pdindn+(((1-menu(yrn))^2)*((mkti(yrn)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))))))))/(pdindd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm))))))); pricevinfv((yrn*mxfx)+ymx-mxfx,ytm)=(pvinfvn+(((1-menu(yrn))^2)*((mktj(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Aj)+(mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejk(yrn,ytm)*(1+tauk(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pvinfvd+(((1-menu(yrn))^2)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+tauk(yrn))*ejk(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pricefindf((yrn*mxfx)+ymx-mxfx,ytm)=(pfindfn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Ai)+(mktj(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eij(yrn,ytm)*(1+tauij(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm)))))))))/(pfindfd+(((1-menu(yrn))^2)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauij(yrn))*eij(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))))); pricedindv((yrn*mxfx)+ymx-mxfx,ytm)=(pdindvn+(((1-menu(yrn))^2)*((mkti(yrn)*Ai)+(mktk(yrn)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm)))))))))/(pdindvd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pricefinf((yrn*mxfx)+ymx-mxfx,ytm)=(pfinfn+(((1-menu(yrn))^3)*((mktj(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm)))))))))/(pfinfd+(((1-menu(yrn))^3)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))))); pricevindv((yrn*mxfx)+ymx-mxfx,ytm)=(pvindvn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ai)+(mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eik(yrn,ytm)*(1+tauk(yrn))*(1/pi(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pvindvd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pricevinf3p((yrn*mxfx)+ymx-mxfx,ytm)=(pvinfn+(((1-menu(yrn))^3)*((mktj(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejk(yrn,ytm)*(1+tauk(yrn))*(1/pj(yrn,ytm)))))))))/(pvinfd+(((1-menu(yrn))^3)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+tauk(yrn))*ejk(yrn,ytm)*(1/pj(yrn,ytm))))))); pricevind3p((yrn*mxfx)+ymx-mxfx,ytm)=(pvindn+(((1-menu(yrn))^3)*((mkti(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eik(yrn,ytm)*(1+tauk(yrn))*(1/pi(yrn,ytm)))))))))/(pvindd+(((1-menu(yrn))^3)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauk(yrn))*eik(yrn,ytm)*(1/pi(yrn,ytm))))))); pricedinf3p((yrn*mxfx)+ymx-mxfx,ytm)=(pdinfn+(((1-menu(yrn))^3)*((mktj(yrn)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*(1/eij(yrn,ytm))*(1+tauij(yrn))*(1/pj(yrn,ytm)))))))))/(pdinfd+(((1-menu(yrn))^3)*(((2*bj(yrn)*mktj(yrn)*(1+tauij(yrn))*(1/eij(yrn,ytm))*(1/pj(yrn,ytm))))))); pricefind3p((yrn*mxfx)+ymx-mxfx,ytm)=(pfindn+(((1-menu(yrn))^3)*((mkti(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eij(yrn,ytm)*(1+tauij(yrn))*(1/pi(yrn,ytm)))))))))/(pfindd+(((1-menu(yrn))^3)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauij(yrn))*eij(yrn,ytm)*(1/pi(yrn,ytm))))))); pricevinv3p((yrn*mxfx)+ymx-mxfx,ytm)=(pvinvn3+(((1-menu(yrn))^3)*((mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm)))))))))/(pvinvd3+(((1-menu(yrn))^3)*(((1-tauk(yrn))*eik(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pricedind3p((yrn*mxfx)+ymx-mxfx,ytm)=(pdindn3+(((1-menu(yrn))^3)*((mkti(yrn)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))))))))/(pdindd3+(((1-menu(yrn))^3)*(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm))))))); pricefinf3p((yrn*mxfx)+ymx-mxfx,ytm)=(pfinfn3+(((1-menu(yrn))^3)*((mktj(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm)))))))))/(pfinfd3+(((1-menu(yrn))^3)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))))); pricedinv3p((yrn*mxfx)+ymx-mxfx,ytm)=(pdinvn+(((1-menu(yrn))^3)*((mktk(yrn)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm)))))))))/(pdinvd+(((1-menu(yrn))^3)*(((2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pricegl((yrn*mxfx)+ymx-mxfx,ytm)=(pgln+((1-menu(yrn))*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+(mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+(mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(pgld+((1-menu(yrn))*((((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))); %NEW $$$ CURRENCY pricelinv((yrn*mxfx)+ymx-mxfx,ytm)=(plinvn+(((1-menu(yrn))^2)*((mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(plinvd+(((1-menu(yrn))^2)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY pricelinfv((yrn*mxfx)+ymx-mxfx,ytm)=(plinfvn+(((1-menu(yrn))^2)*((mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+(mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(plinfvd+(((1-menu(yrn))^2)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY pricelinf((yrn*mxfx)+ymx-mxfx,ytm)=(plinfn+(((1-menu(yrn))^2)*((mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))))))))/(plinfd+(((1-menu(yrn))^3)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm))))))); %NEW $$$ CURRENCY pricelindv((yrn*mxfx)+ymx-mxfx,ytm)=(plindvn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+(mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))+(bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(plindvd+(((1-menu(yrn))^2)*(((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*(eil(yrn,ytm))*(1/pi(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY pricelindf((yrn*mxfx)+ymx-mxfx,ytm)=(plindfn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+(mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))))))))/(plindfd+((1-menu(yrn))*((((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm)))))))); %NEW $$$ CURRENCY pricelind((yrn*mxfx)+ymx-mxfx,ytm)=(plindn+(((1-menu(yrn))^2)*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))))))))/(plindd+(((1-menu(yrn))^3)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm))))))); %NEW $$$ CURRENCY pricelinf3p((yrn*mxfx)+ymx-mxfx,ytm)=(plinfn3+(((1-menu(yrn))^2)*((mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))))))))/(plinfd+(((1-menu(yrn))^3)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm))))))); %NEW $$$ CURRENCY pricelind3p((yrn*mxfx)+ymx-mxfx,ytm)=(plindn3+(((1-menu(yrn))^3)*((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+((wage(yrn,ytm)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))))))))/(plindd+(((1-menu(yrn))^3)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm))))))); %NEW $$$ CURRENCY pricelinv3p((yrn*mxfx)+ymx-mxfx,ytm)=(plinvn3+(((1-menu(yrn))^3)*((mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wage(yrn,ytm)*((bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm)))))))))/(plinvd+(((1-menu(yrn))^2)*(((1-taul(yrn))*eil(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY lastup(ymx)=ytm; end pgvn=pgvn+((mkti(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ai)+(mktj(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Aj)+(mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*eik(yrn,ytm)*(1+tauk(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*ejk(yrn,ytm)*(1+tauk(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pgvd=pgvd+(((1-tauk(yrn))*eik(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauk(yrn))*eik(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+tauk(yrn))*ejk(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))); pgdn=pgdn+((mkti(yrn)*Ai)+(mktj(yrn)*Aj)+(mktk(yrn)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*(1/eij(yrn,ytm))*(1+tauij(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pgdd=pgdd+(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+tauij(yrn))*(1/eij(yrn,ytm))*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))); pdindfn=pdindfn+((mkti(yrn)*Ai)+(mktj(yrn)*Aj)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*(1/eij(yrn,ytm))*(1+tauij(yrn))*(1/pj(yrn,ytm))))))); pdindfd=pdindfd+(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+tauij(yrn))*(1/eij(yrn,ytm))*(1/pj(yrn,ytm))))); pvinvn=pvinvn+((mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pvinvd=pvinvd+(((1-tauk(yrn))*eik(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))); pdindn=pdindn+((mkti(yrn)*Ai)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm))))))); pdindd=pdindd+(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm))))); pvinfvn=pvinfvn+((mktj(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Aj)+(mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bj(yrn)*mktj(yrn)*ejk(yrn,ytm)*(1+tauk(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pvinfvd=pvinfvd+(((1-tauk(yrn))*eik(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+tauk(yrn))*ejk(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))); pdindvn=pdindvn+((mkti(yrn)*Ai)+(mktk(yrn)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pdindvd=pdindvd+(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(eik(yrn,ytm))*(1/pk(yrn,ytm))))); pvindvn=pvindvn+((mkti(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ai)+(mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*eik(yrn,ytm)*(1+tauk(yrn))*(1/pi(yrn,ytm)))+(bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pvindvd=pvindvd+(((1-tauk(yrn))*eik(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauk(yrn))*eik(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))); pfinfn=pfinfn+((mktj(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Aj)+((wage(yrn,ytm)*((bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))))); pfinfd=pfinfd+(((1-menu(yrn))^3)*(((1-tauij(yrn))*eij(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm)))))); pfindfn=pfindfn+((mkti(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Ai)+(mktj(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Aj)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*eij(yrn,ytm)*(1+tauij(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))))); pfindfd=pfindfd+(((1-tauij(yrn))*eij(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauij(yrn))*eij(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))); pvinfn=pvinfn+((mktj(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Aj)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bj(yrn)*mktj(yrn)*ejk(yrn,ytm)*(1+tauk(yrn))*(1/pj(yrn,ytm))))))); pvinfd=pvinfd+(((1-tauk(yrn))*eik(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+tauk(yrn))*ejk(yrn,ytm)*(1/pj(yrn,ytm))))); pvindn=pvindn+((mkti(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ai)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*eik(yrn,ytm)*(1+tauk(yrn))*(1/pi(yrn,ytm))))))); pvindd=pvindd+(((1-tauk(yrn))*eik(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauk(yrn))*eik(yrn,ytm)*(1/pi(yrn,ytm))))); pdinfn=pdinfn+((mktj(yrn)*Aj)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bj(yrn)*mktj(yrn)*(1/eij(yrn,ytm))*(1+tauij(yrn))*(1/pj(yrn,ytm))))))); pdinfd=pdinfd+(((2*bj(yrn)*mktj(yrn)*(1+tauij(yrn))*(1/eij(yrn,ytm))*(1/pj(yrn,ytm))))); pdinvn=pdinvn+((mktk(yrn)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))))); pdinvd=pdinvd+(((2*bk(yrn)*mktk(yrn)*(1+tauk(yrn))*(1/eik(yrn,ytm))*(1/pk(yrn,ytm))))); pfindn=pfindn+((mkti(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Ai)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*eij(yrn,ytm)*(1+tauij(yrn))*(1/pi(yrn,ytm))))))); pfindd=pfindd+(((1-tauij(yrn))*eij(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+tauij(yrn))*eij(yrn,ytm)*(1/pi(yrn,ytm))))); pfinfn3=pfinfn3+((mktj(yrn)*(1-tauij(yrn))*eij(yrn,ytm)*Aj)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))))); pfinfd3=pfinfd3+(((1-tauij(yrn))*eij(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1/pj(yrn,ytm))))); pdindn3=pdindn3+((mkti(yrn)*Ai)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm))))))); pdindd3=pdindd3+(((2*bi(yrn)*mkti(yrn)*(1/pi(yrn,ytm))))); pvinvn3=pvinvn+((mktk(yrn)*(1-tauk(yrn))*eik(yrn,ytm)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))))); pvinvd3=pvinvd+(((1-tauk(yrn))*eik(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))); pgld=pgld+(((1-taul(yrn))*eik(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eik(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*(1/pk(yrn,ytm))))); %NEW $$$ CURRENCY plinvd=plinvd+(((1-taul(yrn))*eil(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))); %NEW $$$ CURRENCY plinfvd=plinfvd+(((1-taul(yrn))*eil(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))); %NEW $$$ CURRENCY plinfd=plinfd+(((1-taul(yrn))*eil(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm))))); %NEW $$$ CURRENCY plindvd=plindvd+(((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))); %NEW $$$ CURRENCY plindfd=plindfd+(((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm)))+(2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm))))); %NEW $$$ CURRENCY plindd=plindd+(((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm))))); %NEW $$$ CURRENCY plinfd3=plinfd3+(((1-taul(yrn))*eil(yrn,ytm))*((2*bj(yrn)*mktj(yrn)*(1+taul(yrn))*ejl(yrn,ytm)*(1/pj(yrn,ytm))))); %NEW $$$ CURRENCY plinvd3=plinvd3+(((1-taul(yrn))*eil(yrn,ytm))*((2*bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))); %NEW $$$ CURRENCY plindd3=plindd3+(((1-taul(yrn))*eil(yrn,ytm))*((2*bi(yrn)*mkti(yrn)*(1+taul(yrn))*eil(yrn,ytm)*(1/pi(yrn,ytm))))); %NEW $$$ CURRENCY pgln=pgln+((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+(mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+(mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY plinvn=plinvn+((mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY plinfvn=plinfvn+((mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+(mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm)))+(bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY plinfn=plinfn+((mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm))))))); %NEW $$$ CURRENCY plindvn=plindvn+((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+(mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))+(bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY plindfn=plindfn+((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+(mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm)))+(bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm))))))); %NEW $$$ CURRENCY plindn=plindn+((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm))))))); %NEW $$$ CURRENCY plinfn3=plinfn3+((mktj(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Aj)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bj(yrn)*mktj(yrn)*ejl(yrn,ytm)*(1+taul(yrn))*(1/pj(yrn,ytm))))))); %NEW $$$ CURRENCY plinvn3=plinvn3+((mktk(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ak)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bk(yrn)*mktk(yrn)*ekl(yrn,ytm)*(1+taul(yrn))*(1/pk(yrn,ytm))))))); %NEW $$$ CURRENCY plindn3=plindn3+((mkti(yrn)*(1-taul(yrn))*eil(yrn,ytm)*Ai)+((wgshdw(yrn,ytm)*((1+winfav(yrn))^ymx)*((bi(yrn)*mkti(yrn)*eil(yrn,ytm)*(1+taul(yrn))*(1/pi(yrn,ytm))))))); %NEW $$$ CURRENCY end end end for wrn=1:run for wmx=1:mxfx for wtm=48:time-1 if pricegv((wrn*mxfx)+wmx-mxfx,wtm+1)==pricegv((wrn*mxfx)+wmx-mxfx,wtm) profitgv((wrn*mxfx)+wmx-mxfx,wtm)=(((pricegv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricegv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(1,wrn))*(eik(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricegv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricegv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(1,wrn))*(ejk(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricegv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricegv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))^risk(1,wrn); profitgd((wrn*mxfx)+wmx-mxfx,wtm)=(((pricegd((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricegd((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricegd((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricegd((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)/(eij(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricegd((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricegd((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)/(eik(wrn,wtm)))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitddv((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedindf((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedindf((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricedindf((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricedindf((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)/(eij(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitdvv((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)*(ejk(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitffv((wrn*mxfx)+wmx-mxfx,wtm)=(((pricefindf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricefindf((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)*(eij(wrn,wtm)))/(pi(wrn,wtm)))*mkti(wrn)))+((pricefindf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefindf((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitdfd((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedindv((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedindv((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricedindv((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricedindv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)/(eik(wrn,wtm)))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitvfv((wrn*mxfx)+wmx-mxfx,wtm)=(((pricevindv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricevindv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)*(eik(wrn,wtm)))/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricevindv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevindv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitdfv((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitgv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricevind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricevind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*(eik(wrn,wtm))/(pi(wrn,wtm)))*mkti(wrn)))+((pricevinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricevinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*(ejk(wrn,wtm))/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitgd3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)/(eij(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)/(eik(wrn,wtm)))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitddv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)/(eij(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitdvv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricevinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricevinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)*(ejk(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitffv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricefind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricefind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)*(eij(wrn,wtm)))/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitdfd3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)/(eik(wrn,wtm)))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitvfv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricevind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricevind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)*(eik(wrn,wtm)))/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); profitgl((wrn*mxfx)+wmx-mxfx,wtm)=(((pricegl((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricegl((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricegl((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricegl((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(ejl(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricegl((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*((ekl(wrn,wtm-1)*(1+taul(wrn))*pricegl((wrn*mxfx)+wmx-mxfx,wtm))/(pk(wrn,wtm)))*mktk(1,wrn))))^risk(1,wrn); %NEW $$$ CURRENCY profitddl((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedindf((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedindf((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricedindf((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricedindf((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)/(eij(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*((ekl(wrn,wtm-1)*(1+taul(wrn))*pricelinv((wrn*mxfx)+wmx-mxfx,wtm))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); %NEW $$$ CURRENCY profitdll((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricelinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricelinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(wrn))*((1)*(ejl(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*((pricelinfv((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn)))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); %NEW $$$ CURRENCY profitffl((wrn*mxfx)+wmx-mxfx,wtm)=(((pricefindf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricefindf((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)*(eij(wrn,wtm)))/(pi(wrn,wtm)))*mkti(wrn)))+((pricefindf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefindf((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*((pricelinv((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn)))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); %NEW $$$ CURRENCY profitdld((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricelinf((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricelinf((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(wrn))*((1)/(ejl(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)/(eik(wrn,wtm)))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); %NEW $$$ CURRENCY profitldl((wrn*mxfx)+wmx-mxfx,wtm)=(((pricelindv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelindv((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(1,wrn))*(1/eij(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricelindv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricelindv((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn))/(pk(wrn,wtm)))*mktk(1,wrn))))^risk(1,wrn); %NEW $$$ CURRENCY profitllv((wrn*mxfx)+wmx-mxfx,wtm)=(((pricelindf((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelindf((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricelindf((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricelindf((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(ejl(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevinv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))^risk(1,wrn); %NEW $$$ CURRENCY profitlvv((wrn*mxfx)+wmx-mxfx,wtm)=(((pricelind((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelind((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(1,wrn))*(ejk(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))^risk(1,wrn); %NEW $$$ CURRENCY profitvlv((wrn*mxfx)+wmx-mxfx,wtm)=(((pricevindv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricevindv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(1,wrn))*(eik(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricelinf((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricelinf((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(ejl(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevindv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevindv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))^risk(1,wrn); %NEW $$$ CURRENCY profitdfl((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricelinv((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); %NEW $$$ CURRENCY profitgl3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(ejl(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*((ekl(wrn,wtm-1)*(1+taul(wrn))*pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm))/(pk(wrn,wtm)))*mktk(1,wrn))))^risk(1,wrn); %NEW $$$ CURRENCY profitddl3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)/(eij(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*((ekl(wrn,wtm-1)*(1+taul(wrn))*pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); %NEW $$$ CURRENCY profitdll3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(wrn))*((1)*(ejl(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn)))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); %NEW $$$ CURRENCY profitffl3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricefind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricefind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)*(eij(wrn,wtm)))/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn)))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); %NEW $$$ CURRENCY profitdlv((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(wrn))*((1)*(ejl(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))++((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); %NEW $$$ CURRENCY profitdld3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(wrn))*((1)/(ejl(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)/(eik(wrn,wtm)))/(pk(wrn,wtm)))*mktk(wrn))))^risk(wrn); %NEW $$$ CURRENCY profitldl3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(1,wrn))*(1/eij(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn))/(pk(wrn,wtm)))*mktk(1,wrn))))^risk(1,wrn); %NEW $$$ CURRENCY profitllv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(ejl(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))^risk(1,wrn); %NEW $$$ CURRENCY profitlvv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricevinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricevinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(1,wrn))*(ejk(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))^risk(1,wrn); %NEW $$$ CURRENCY profitvlv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((pricevind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricevind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(1,wrn))*(eik(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(ejl(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))^risk(1,wrn);%NEW $$$ CURRENCY profitlfv((wrn*mxfx)+wmx-mxfx,wtm)=(((pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(1,wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))^risk(1,wrn); %NEW $$$ CURRENCY else profitgv((wrn*mxfx)+wmx-mxfx,wtm)=((1-menu(wrn))*((((pricegv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricegv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*(eik(wrn,wtm))/(pi(wrn,wtm)))*mkti(wrn)))+((pricegv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricegv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*(ejk(wrn,wtm))/(pj(wrn,wtm)))*mktj(wrn)))+((pricegv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricegv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitgd((wrn*mxfx)+wmx-mxfx,wtm)=((1-menu(wrn))*((((pricegd((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricegd((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricegd((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricegd((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)/(eij(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricegd((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricegd((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)/(eik(wrn,wtm)))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitddv((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricedindf((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedindf((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricedindf((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricedindf((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)/(eij(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitdvv((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricedind((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)*(ejk(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitffv((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricefindf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricefindf((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)*(eij(wrn,wtm)))/(pi(wrn,wtm)))*mkti(wrn)))+((pricefindf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefindf((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitdfd((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricedindv((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedindv((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricedindv((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricedindv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)/(eik(wrn,wtm)))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitvfv((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricevindv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricevindv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)*(eik(wrn,wtm)))/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricevindv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevindv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitdfv((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricedind((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitgv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricevind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricevind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*(eik(wrn,wtm))/(pi(wrn,wtm)))*mkti(wrn)))+((pricevinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricevinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*(ejk(wrn,wtm))/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitgd3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)/(eij(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)/(eik(wrn,wtm)))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitddv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)/(eij(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitdvv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricevinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricevinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)*(ejk(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitffv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricefind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricefind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)*(eij(wrn,wtm)))/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitdfd3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)/(eik(wrn,wtm)))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitvfv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricevind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricevind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)*(eik(wrn,wtm)))/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); profitgl((wrn*mxfx)+wmx-mxfx,wtm)=((1-menu(wrn))*((((pricegl((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricegl((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricegl((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricegl((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(ejl(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricegl((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*((ekl(wrn,wtm-1)*(1+taul(wrn))*pricegl((wrn*mxfx)+wmx-mxfx,wtm))/(pk(wrn,wtm)))*mktk(1,wrn))))))^risk(1,wrn); %NEW $$$ CURRENCY profitddl((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricedindf((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedindf((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricedindf((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricedindf((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)/(eij(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*((ekl(wrn,wtm-1)*(1+taul(wrn))*pricelinv((wrn*mxfx)+wmx-mxfx,wtm))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); %NEW $$$ CURRENCY profitdll((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricedind((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricelinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricelinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(wrn))*((1)*(ejl(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*((pricelinfv((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn)))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); %NEW $$$ CURRENCY profitffl((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricefindf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricefindf((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)*(eij(wrn,wtm)))/(pi(wrn,wtm)))*mkti(wrn)))+((pricefindf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefindf((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*((pricelinv((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn)))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); %NEW $$$ CURRENCY profitdld((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricelinf((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricelinf((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(wrn))*((1)/(ejl(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)/(eik(wrn,wtm)))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); %NEW $$$ CURRENCY profitldl((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricelindv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelindv((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(1,wrn))*(1/eij(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricelindv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricelindv((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn))/(pk(wrn,wtm)))*mktk(1,wrn))))))^risk(1,wrn); %NEW $$$ CURRENCY profitllv((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricelindf((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelindf((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricelindf((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricelindf((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(ejl(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevinv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))))^risk(1,wrn); %NEW $$$ CURRENCY profitlvv((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricelind((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelind((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(1,wrn))*(ejk(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevinfv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))))^risk(1,wrn); %NEW $$$ CURRENCY profitvlv((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^2)*((((pricevindv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricevindv((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(1,wrn))*(eik(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricelinf((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricelinf((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(ejl(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevindv((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevindv((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))))^risk(1,wrn); %NEW $$$ CURRENCY profitdfl((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricedind((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinv((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricelinv((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); %NEW $$$ CURRENCY profitgl3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(ejl(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*((ekl(wrn,wtm-1)*(1+taul(wrn))*pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm))/(pk(wrn,wtm)))*mktk(1,wrn))))))^risk(1,wrn); %NEW $$$ CURRENCY profitddl3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)/(eij(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*((ekl(wrn,wtm-1)*(1+taul(wrn))*pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); %NEW $$$ CURRENCY profitdll3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(wrn))*((1)*(ejl(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn)))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); %NEW $$$ CURRENCY profitffl3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricefind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricefind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(wrn))*((1)*(eij(wrn,wtm)))/(pi(wrn,wtm)))*mkti(wrn)))+((pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(wrn)))+((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn)))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); %NEW $$$ CURRENCY profitdlv((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(wrn))*((1)*(ejl(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))++((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); %NEW $$$ CURRENCY profitdld3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricedind3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ai-(bi(wrn)*(pricedind3p((wrn*mxfx)+wmx-mxfx,wtm)/(pi(wrn,wtm)))*mkti(wrn)))+((pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(wrn)*(pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(wrn))*((1)/(ejl(wrn,wtm)))/(pj(wrn,wtm)))*mktj(wrn)))+((pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Ak-(bk(wrn)*(pricedinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(wrn))*((1)/(eik(wrn,wtm)))/(pk(wrn,wtm)))*mktk(wrn))))))^risk(wrn); %NEW $$$ CURRENCY profitldl3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricedinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauij(1,wrn))*(1/eij(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricelinv3p((wrn*mxfx)+wmx-mxfx,wtm)*ekl(wrn,wtm-1)*(1+taul(wrn))/(pk(wrn,wtm)))*mktk(1,wrn))))))^risk(1,wrn); %NEW $$$ CURRENCY profitllv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(ejl(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))))^risk(1,wrn); %NEW $$$ CURRENCY profitlvv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricevinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricevinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(1,wrn))*(ejk(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))))^risk(1,wrn); %NEW $$$ CURRENCY profitvlv3p((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricevind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricevind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+tauk(1,wrn))*(eik(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricelinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(ejl(wrn,wtm))/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))))^risk(1,wrn);%NEW $$$ CURRENCY profitlfv((wrn*mxfx)+wmx-mxfx,wtm)=(((1-menu(wrn))^3)*((((pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-taul(1,wrn))*(eil(wrn,wtm-1)))-wage(wrn,wtm))*(Ai-(bi(1,wrn)*(pricelind3p((wrn*mxfx)+wmx-mxfx,wtm)*(1+taul(1,wrn))*(eil(wrn,wtm))/(pi(wrn,wtm)))*mkti(1,wrn)))+((pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauij(1,wrn))*(eij(wrn,wtm-1)))-wage(wrn,wtm))*(Aj-(bj(1,wrn)*(pricefinf3p((wrn*mxfx)+wmx-mxfx,wtm)/(pj(wrn,wtm)))*mktj(1,wrn)))+((pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)*(1-tauk(1,wrn))*(eik(wrn,wtm-1)))-wage(wrn,wtm))*(Ak-(bk(1,wrn)*(pricevinv3p((wrn*mxfx)+wmx-mxfx,wtm)/(pk(wrn,wtm)))*mktk(1,wrn))))))^risk(1,wrn); %NEW $$$ CURRENCY end end end end %creating the total profit sumprofitgv=zeros(run,mxfx); sumprofitgd=zeros(run,mxfx); sumprofitddv=zeros(run,mxfx); sumprofitdvv=zeros(run,mxfx); sumprofitffv=zeros(run,mxfx); sumprofitdfd=zeros(run,mxfx); sumprofitvfv=zeros(run,mxfx); sumprofitdfv=zeros(run,mxfx); sumprofitgv3p=zeros(run,mxfx); sumprofitgd3p=zeros(run,mxfx); sumprofitddv3p=zeros(run,mxfx); sumprofitdvv3p=zeros(run,mxfx); sumprofitffv3p=zeros(run,mxfx); sumprofitdfd3p=zeros(run,mxfx); sumprofitvfv3p=zeros(run,mxfx); sumprofitgl=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitddl=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitdll=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitffl=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitdld=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitldl=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitllv=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitlvv=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitvlv=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitdfl=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitgl3p=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitddl3p=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitdll3p=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitffl3p=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitdlv=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitdld3p=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitldl3p=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitllv3p=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitlvv3p=zeros(run,mxfx); %NEW $$$ CURRENCY sumprofitvlv3p=zeros(run,mxfx);%NEW $$$ CURRENCY sumprofitlfv=zeros(run,mxfx); %NEW $$$ CURRENCY for vrn=1:run for vmx=1:mxfx for vtm=48:time sumprofitgv(vrn,vmx)=sumprofitgv(vrn,vmx)+profitgv((vrn*mxfx)+vmx-mxfx,vtm); sumprofitgd(vrn,vmx)=sumprofitgd(vrn,vmx)+profitgd((vrn*mxfx)+vmx-mxfx,vtm); sumprofitddv(vrn,vmx)=sumprofitddv(vrn,vmx)+profitddv((vrn*mxfx)+vmx-mxfx,vtm); sumprofitdvv(vrn,vmx)=sumprofitdvv(vrn,vmx)+profitdvv((vrn*mxfx)+vmx-mxfx,vtm); sumprofitffv(vrn,vmx)=sumprofitffv(vrn,vmx)+profitffv((vrn*mxfx)+vmx-mxfx,vtm); sumprofitdfd(vrn,vmx)=sumprofitdfd(vrn,vmx)+profitdfd((vrn*mxfx)+vmx-mxfx,vtm); sumprofitvfv(vrn,vmx)=sumprofitvfv(vrn,vmx)+profitvfv((vrn*mxfx)+vmx-mxfx,vtm); sumprofitdfv(vrn,vmx)=sumprofitdfv(vrn,vmx)+profitdfv((vrn*mxfx)+vmx-mxfx,vtm); sumprofitgv3p(vrn,vmx)=sumprofitgv3p(vrn,vmx)+profitgv3p((vrn*mxfx)+vmx-mxfx,vtm); sumprofitgd3p(vrn,vmx)=sumprofitgd3p(vrn,vmx)+profitgd3p((vrn*mxfx)+vmx-mxfx,vtm); sumprofitddv3p(vrn,vmx)=sumprofitddv3p(vrn,vmx)+profitddv3p((vrn*mxfx)+vmx-mxfx,vtm); sumprofitdvv3p(vrn,vmx)=sumprofitdvv3p(vrn,vmx)+profitdvv3p((vrn*mxfx)+vmx-mxfx,vtm); sumprofitffv3p(vrn,vmx)=sumprofitffv3p(vrn,vmx)+profitffv3p((vrn*mxfx)+vmx-mxfx,vtm); sumprofitdfd3p(vrn,vmx)=sumprofitdfd3p(vrn,vmx)+profitdfd3p((vrn*mxfx)+vmx-mxfx,vtm); sumprofitvfv3p(vrn,vmx)=sumprofitvfv3p(vrn,vmx)+profitvfv3p((vrn*mxfx)+vmx-mxfx,vtm); sumprofitgl(vrn,vmx)=sumprofitgl(vrn,vmx)+profitgl((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitddl(vrn,vmx)=sumprofitddl(vrn,vmx)+profitddl((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitdll(vrn,vmx)=sumprofitdll(vrn,vmx)+profitdll((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitffl(vrn,vmx)=sumprofitffl(vrn,vmx)+profitffl((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitdld(vrn,vmx)=sumprofitdld(vrn,vmx)+profitdld((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitldl(vrn,vmx)=sumprofitldl(vrn,vmx)+profitldl((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitllv(vrn,vmx)=sumprofitllv(vrn,vmx)+profitllv((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitlvv(vrn,vmx)=sumprofitlvv(vrn,vmx)+profitlvv((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitvlv(vrn,vmx)=sumprofitvlv(vrn,vmx)+profitvlv((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitdfl(vrn,vmx)=sumprofitdfl(vrn,vmx)+profitdfl((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitgl3p(vrn,vmx)=sumprofitgl3p(vrn,vmx)+profitgl3p((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitddl3p(vrn,vmx)=sumprofitddl3p(vrn,vmx)+profitddl3p((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitdll3p(vrn,vmx)=sumprofitdll3p(vrn,vmx)+profitdll3p((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitffl3p(vrn,vmx)=sumprofitffl3p(vrn,vmx)+profitffl3p((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitdlv(vrn,vmx)=sumprofitdlv(vrn,vmx)+profitdlv((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitdld3p(vrn,vmx)=sumprofitdld3p(vrn,vmx)+profitdld3p((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitldl3p(vrn,vmx)=sumprofitldl3p(vrn,vmx)+profitldl3p((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitllv3p(vrn,vmx)=sumprofitllv3p(vrn,vmx)+profitllv3p((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitlvv3p(vrn,vmx)=sumprofitlvv3p(vrn,vmx)+profitlvv3p((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY sumprofitvlv3p(vrn,vmx)=sumprofitvlv3p(vrn,vmx)+profitvlv3p((vrn*mxfx)+vmx-mxfx,vtm);%NEW $$$ CURRENCY sumprofitlfv(vrn,vmx)=sumprofitlfv(vrn,vmx)+profitlfv((vrn*mxfx)+vmx-mxfx,vtm); %NEW $$$ CURRENCY end end end %3 different results %1 best profit for all non-3ps %2 best profit for all 3ps + dfv %3 best profit for all prft functions bestpgv=[0,3,3,3,0,0]; bestpgd=[0,1,1,1,0,0]; bestpddv=[0,1,1,3,0,0]; bestpdvv=[0,1,3,3,0,0]; bestpffv=[0,2,2,3,0,0]; bestpdfd=[0,1,2,1,0,0]; bestpvfv=[0,3,2,3,0,0]; bestpdfv=[0,1,2,3,0,1]; bestpgv3p=[0,3,3,3,0,1]; bestpgd3p=[0,1,1,1,0,1]; bestpddv3p=[0,1,1,3,0,1]; bestpdvv3p=[0,1,3,3,0,1]; bestpffv3p=[0,2,2,3,0,1]; bestpdfd3p=[0,1,2,1,0,1]; bestpvfv3p=[0,3,2,3,0,1]; bestpgl=[0,4,4,4,0,0]; %NEW $$$ CURRENCY bestpddl=[0,1,1,4,0,0]; %NEW $$$ CURRENCY bestpdll=[0,1,4,4,0,0]; %NEW $$$ CURRENCY bestpffl=[0,2,2,4,0,0]; %NEW $$$ CURRENCY bestpdld=[0,1,4,1,0,0]; %NEW $$$ CURRENCY bestpldl=[0,4,1,4,0,0]; %NEW $$$ CURRENCY bestpllv=[0,4,4,3,0,0]; %NEW $$$ CURRENCY bestplvv=[0,4,3,3,0,0]; %NEW $$$ CURRENCY bestpvlv=[0,3,4,3,0,0]; %NEW $$$ CURRENCY bestpdfl=[0,1,2,4,0,1]; %NEW $$$ CURRENCY bestpgl3p=[0,4,4,4,0,1]; %NEW $$$ CURRENCY bestpddl3p=[0,1,1,4,0,1]; %NEW $$$ CURRENCY bestpdll3p=[0,1,4,4,0,1]; %NEW $$$ CURRENCY bestpffl3p=[0,2,2,4,0,1]; %NEW $$$ CURRENCY bestpdlv=[0,1,4,3,0,1]; %NEW $$$ CURRENCY bestpdld3p=[0,1,4,1,0,1]; %NEW $$$ CURRENCY bestpldl3p=[0,4,1,4,0,1]; %NEW $$$ CURRENCY bestpllv3p=[0,4,4,3,0,1]; %NEW $$$ CURRENCY bestplvv3p=[0,4,3,3,0,1]; %NEW $$$ CURRENCY bestpvlv3p=[0,3,4,3,0,1];%NEW $$$ CURRENCY bestplfv=[0,4,2,3,0,1]; %NEW $$$ CURRENCY aaaY_1=zeros(run,6); aaaY_2=zeros(run,6); aaaY_3=zeros(run,6); for trn=1:run bestpgv=[0,3,3,3,0,0]; bestpgd=[0,1,1,1,0,0]; bestpddv=[0,1,1,3,0,0]; bestpdvv=[0,1,3,3,0,0]; bestpffv=[0,2,2,3,0,0]; bestpdfd=[0,1,2,1,0,0]; bestpvfv=[0,3,2,3,0,0]; bestpdfv=[0,1,2,3,0,1]; bestpgv3p=[0,3,3,3,0,1]; bestpgd3p=[0,1,1,1,0,1]; bestpddv3p=[0,1,1,3,0,1]; bestpdvv3p=[0,1,3,3,0,1]; bestpffv3p=[0,2,2,3,0,1]; bestpdfd3p=[0,1,2,1,0,1]; bestpvfv3p=[0,3,2,3,0,1]; bestpgl=[0,4,4,4,0,0]; %NEW $$$ CURRENCY bestpddl=[0,1,1,4,0,0]; %NEW $$$ CURRENCY bestpdll=[0,1,4,4,0,0]; %NEW $$$ CURRENCY bestpffl=[0,2,2,4,0,0]; %NEW $$$ CURRENCY bestpdld=[0,1,4,1,0,0]; %NEW $$$ CURRENCY bestpldl=[0,4,1,4,0,0]; %NEW $$$ CURRENCY bestpllv=[0,4,4,3,0,0]; %NEW $$$ CURRENCY bestplvv=[0,4,3,3,0,0]; %NEW $$$ CURRENCY bestpvlv=[0,3,4,3,0,0]; %NEW $$$ CURRENCY bestpdfl=[0,1,2,4,0,1]; %NEW $$$ CURRENCY bestpgl3p=[0,4,4,4,0,1]; %NEW $$$ CURRENCY bestpddl3p=[0,1,1,4,0,1]; %NEW $$$ CURRENCY bestpdll3p=[0,1,4,4,0,1]; %NEW $$$ CURRENCY bestpffl3p=[0,2,2,4,0,1]; %NEW $$$ CURRENCY bestpdlv=[0,1,4,3,0,1]; %NEW $$$ CURRENCY bestpdld3p=[0,1,4,1,0,1]; %NEW $$$ CURRENCY bestpldl3p=[0,4,1,4,0,1]; %NEW $$$ CURRENCY bestpllv3p=[0,4,4,3,0,1]; %NEW $$$ CURRENCY bestplvv3p=[0,4,3,3,0,1]; %NEW $$$ CURRENCY bestpvlv3p=[0,3,4,3,0,1];%NEW $$$ CURRENCY bestplfv=[0,4,2,3,0,1]; %NEW $$$ CURRENCY for tmx=1:mxfx if sumprofitlfv(trn,tmx)>bestplfv(1) bestplfv(1)=sumprofitlfv(trn,tmx); bestplfv(5)=tmx; end if sumprofitvlv3p(trn,tmx)>bestpvlv3p(1) bestpvlv3p(1)=sumprofitvlv3p(trn,tmx); bestpvlv3p(5)=tmx; end if sumprofitlvv3p(trn,tmx)>bestplvv3p(1) bestplvv3p(1)=sumprofitlvv3p(trn,tmx); bestplvv3p(5)=tmx; end if sumprofitllv3p(trn,tmx)>bestpllv3p(1) bestpllv3p(1)=sumprofitllv3p(trn,tmx); bestpllv3p(5)=tmx; end if sumprofitldl3p(trn,tmx)>bestpldl3p(1) bestpldl3p(1)=sumprofitldl3p(trn,tmx); bestpldl3p(5)=tmx; end if sumprofitdld3p(trn,tmx)>bestpdld3p(1) bestpdld3p(1)=sumprofitdld3p(trn,tmx); bestpdld3p(5)=tmx; end if sumprofitdlv(trn,tmx)>bestpdlv(1) bestpdlv(1)=sumprofitdlv(trn,tmx); bestpdlv(5)=tmx; end if sumprofitffl3p(trn,tmx)>bestpffl3p(1) bestpffl3p(1)=sumprofitffl3p(trn,tmx); bestpffl3p(5)=tmx; end if sumprofitdll3p(trn,tmx)>bestpdll3p(1) bestpdll3p(1)=sumprofitdll3p(trn,tmx); bestpdll3p(5)=tmx; end if sumprofitddl3p(trn,tmx)>bestpddl3p(1) bestpddl3p(1)=sumprofitddl3p(trn,tmx); bestpddl3p(5)=tmx; end if sumprofitgl3p(trn,tmx)>bestpgl3p(1) bestpgl3p(1)=sumprofitgl3p(trn,tmx); bestpgl3p(5)=tmx; end if sumprofitdfl(trn,tmx)>bestpdfl(1) bestpdfl(1)=sumprofitdfl(trn,tmx); bestpdfl(5)=tmx; end if sumprofitvlv(trn,tmx)>bestpvlv(1) bestpvlv(1)=sumprofitvlv(trn,tmx); bestpvlv(5)=tmx; end if sumprofitlvv(trn,tmx)>bestplvv(1) bestplvv(1)=sumprofitlvv(trn,tmx); bestplvv(5)=tmx; end if sumprofitllv(trn,tmx)>bestpllv(1) bestpllv(1)=sumprofitllv(trn,tmx); bestpllv(5)=tmx; end if sumprofitldl(trn,tmx)>bestpldl(1) bestpldl(1)=sumprofitldl(trn,tmx); bestpldl(5)=tmx; end if sumprofitdld(trn,tmx)>bestpdld(1) bestpdld(1)=sumprofitdld(trn,tmx); bestpdld(5)=tmx; end if sumprofitffl(trn,tmx)>bestpffl(1) bestpffl(1)=sumprofitffl(trn,tmx); bestpffl(5)=tmx; end if sumprofitdll(trn,tmx)>bestpdll(1) bestpdll(1)=sumprofitdll(trn,tmx); bestpdll(5)=tmx; end if sumprofitddl(trn,tmx)>bestpddl(1) bestpddl(1)=sumprofitddl(trn,tmx); bestpddl(5)=tmx; end if sumprofitgl(trn,tmx)>bestpgl(1) bestpgl(1)=sumprofitgl(trn,tmx); bestpgl(5)=tmx; end if sumprofitgv(trn,tmx)>bestpgv(1) bestpgv(1)=sumprofitgv(trn,tmx); bestpgv(5)=tmx; end if sumprofitgd(trn,tmx)>bestpgd(1) bestpgd(1)=sumprofitgd(trn,tmx); bestpgd(5)=tmx; end if sumprofitddv(trn,tmx)>bestpddv(1) bestpddv(1)=sumprofitddv(trn,tmx); bestpddv(5)=tmx; end if sumprofitdvv(trn,tmx)>bestpdvv(1) bestpdvv(1)=sumprofitdvv(trn,tmx); bestpdvv(5)=tmx; end if sumprofitffv(trn,tmx)>bestpffv(1) bestpffv(1)=sumprofitffv(trn,tmx); bestpffv(5)=tmx; end if sumprofitdfd(trn,tmx)>bestpdfd(1) bestpdfd(1)=sumprofitdfd(trn,tmx); bestpdfd(5)=tmx; end if sumprofitvfv(trn,tmx)>bestpvfv(1) bestpvfv(1)=sumprofitvfv(trn,tmx); bestpvfv(5)=tmx; end if sumprofitdfv(trn,tmx)>bestpdfv(1) bestpdfv(1)=sumprofitdfv(trn,tmx); bestpdfv(5)=tmx; end if sumprofitgv3p(trn,tmx)>bestpgv3p(1) bestpgv3p(1)=sumprofitgv3p(trn,tmx); bestpgv3p(5)=tmx; end if sumprofitgd3p(trn,tmx)>bestpgd3p(1) bestpgd3p(1)=sumprofitgd3p(trn,tmx); bestpgd3p(5)=tmx; end if sumprofitddv3p(trn,tmx)>bestpddv3p(1) bestpddv3p(1)=sumprofitddv3p(trn,tmx); bestpddv3p(5)=tmx; end if sumprofitdvv3p(trn,tmx)>bestpdvv3p(1) bestpdvv3p(1)=sumprofitdvv3p(trn,tmx); bestpdvv3p(5)=tmx; end if sumprofitffv3p(trn,tmx)>bestpffv3p(1) bestpffv3p(1)=sumprofitffv3p(trn,tmx); bestpffv3p(5)=tmx; end if sumprofitdfd3p(trn,tmx)>bestpdfd3p(1) bestpdfd3p(1)=sumprofitdfd3p(trn,tmx); bestpdfd3p(5)=tmx; end if sumprofitvfv3p(trn,tmx)>bestpvfv3p(1) bestpvfv3p(1)=sumprofitvfv3p(trn,tmx); bestpvfv3p(5)=tmx; end end if bestpgv(1)>bestpgd(1); aaaY_1(trn,1)=bestpgv(1); aaaY_1(trn,2)=bestpgv(2); aaaY_1(trn,3)=bestpgv(3); aaaY_1(trn,4)=bestpgv(4); aaaY_1(trn,5)=bestpgv(5); aaaY_1(trn,6)=bestpgv(6); else aaaY_1(trn,1)=bestpgd(1); aaaY_1(trn,2)=bestpgd(2); aaaY_1(trn,3)=bestpgd(3); aaaY_1(trn,4)=bestpgd(4); aaaY_1(trn,5)=bestpgd(5); aaaY_1(trn,6)=bestpgd(6); end if bestpddv(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpddv(1); aaaY_1(trn,2)=bestpddv(2); aaaY_1(trn,3)=bestpddv(3); aaaY_1(trn,4)=bestpddv(4); aaaY_1(trn,5)=bestpddv(5); aaaY_1(trn,6)=bestpddv(6); end if bestpdvv(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpdvv(1); aaaY_1(trn,2)=bestpdvv(2); aaaY_1(trn,3)=bestpdvv(3); aaaY_1(trn,4)=bestpdvv(4); aaaY_1(trn,5)=bestpdvv(5); aaaY_1(trn,6)=bestpdvv(6); end if bestpffv(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpffv(1); aaaY_1(trn,2)=bestpffv(2); aaaY_1(trn,3)=bestpffv(3); aaaY_1(trn,4)=bestpffv(4); aaaY_1(trn,5)=bestpffv(5); aaaY_1(trn,6)=bestpffv(6); end if bestpdfd(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpdfd(1); aaaY_1(trn,2)=bestpdfd(2); aaaY_1(trn,3)=bestpdfd(3); aaaY_1(trn,4)=bestpdfd(4); aaaY_1(trn,5)=bestpdfd(5); aaaY_1(trn,6)=bestpdfd(6); end if bestpvfv(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpvfv(1); aaaY_1(trn,2)=bestpvfv(2); aaaY_1(trn,3)=bestpvfv(3); aaaY_1(trn,4)=bestpvfv(4); aaaY_1(trn,5)=bestpvfv(5); aaaY_1(trn,6)=bestpvfv(6); end if bestpdfv(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpdfv(1); aaaY_1(trn,2)=bestpdfv(2); aaaY_1(trn,3)=bestpdfv(3); aaaY_1(trn,4)=bestpdfv(4); aaaY_1(trn,5)=bestpdfv(5); aaaY_1(trn,6)=bestpdfv(6); end if bestpgl(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpgl(1); aaaY_1(trn,2)=bestpgl(2); aaaY_1(trn,3)=bestpgl(3); aaaY_1(trn,4)=bestpgl(4); aaaY_1(trn,5)=bestpgl(5); aaaY_1(trn,6)=bestpgl(6); end if bestpddl(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpddl(1); aaaY_1(trn,2)=bestpddl(2); aaaY_1(trn,3)=bestpddl(3); aaaY_1(trn,4)=bestpddl(4); aaaY_1(trn,5)=bestpddl(5); aaaY_1(trn,6)=bestpddl(6); end if bestpdll(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpdll(1); aaaY_1(trn,2)=bestpdll(2); aaaY_1(trn,3)=bestpdll(3); aaaY_1(trn,4)=bestpdll(4); aaaY_1(trn,5)=bestpdll(5); aaaY_1(trn,6)=bestpdll(6); end if bestpffl(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpffl(1); aaaY_1(trn,2)=bestpffl(2); aaaY_1(trn,3)=bestpffl(3); aaaY_1(trn,4)=bestpffl(4); aaaY_1(trn,5)=bestpffl(5); aaaY_1(trn,6)=bestpffl(6); end if bestpdld(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpdld(1); aaaY_1(trn,2)=bestpdld(2); aaaY_1(trn,3)=bestpdld(3); aaaY_1(trn,4)=bestpdld(4); aaaY_1(trn,5)=bestpdld(5); aaaY_1(trn,6)=bestpdld(6); end if bestpldl(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpldl(1); aaaY_1(trn,2)=bestpldl(2); aaaY_1(trn,3)=bestpldl(3); aaaY_1(trn,4)=bestpldl(4); aaaY_1(trn,5)=bestpldl(5); aaaY_1(trn,6)=bestpldl(6); end if bestpllv(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpllv(1); aaaY_1(trn,2)=bestpllv(2); aaaY_1(trn,3)=bestpllv(3); aaaY_1(trn,4)=bestpllv(4); aaaY_1(trn,5)=bestpllv(5); aaaY_1(trn,6)=bestpllv(6); end if bestplvv(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestplvv(1); aaaY_1(trn,2)=bestplvv(2); aaaY_1(trn,3)=bestplvv(3); aaaY_1(trn,4)=bestplvv(4); aaaY_1(trn,5)=bestplvv(5); aaaY_1(trn,6)=bestplvv(6); end if bestpvlv(1)>aaaY_1(trn,1) aaaY_1(trn,1)=bestpvlv(1); aaaY_1(trn,2)=bestpvlv(2); aaaY_1(trn,3)=bestpvlv(3); aaaY_1(trn,4)=bestpvlv(4); aaaY_1(trn,5)=bestpvlv(5); aaaY_1(trn,6)=bestpvlv(6); end if bestpgv3p(1)>bestpgd3p(1); aaaY_2(trn,1)=bestpgv3p(1); aaaY_2(trn,2)=bestpgv3p(2); aaaY_2(trn,3)=bestpgv3p(3); aaaY_2(trn,4)=bestpgv3p(4); aaaY_2(trn,5)=bestpgv3p(5); aaaY_2(trn,6)=bestpgv3p(6); else aaaY_2(trn,1)=bestpgd3p(1); aaaY_2(trn,2)=bestpgd3p(2); aaaY_2(trn,3)=bestpgd3p(3); aaaY_2(trn,4)=bestpgd3p(4); aaaY_2(trn,5)=bestpgd3p(5); aaaY_2(trn,6)=bestpgd3p(6); end if bestpddv3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpddv3p(1); aaaY_2(trn,2)=bestpddv3p(2); aaaY_2(trn,3)=bestpddv3p(3); aaaY_2(trn,4)=bestpddv3p(4); aaaY_2(trn,5)=bestpddv3p(5); aaaY_2(trn,6)=bestpddv3p(6); end if bestpdvv3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpdvv3p(1); aaaY_2(trn,2)=bestpdvv3p(2); aaaY_2(trn,3)=bestpdvv3p(3); aaaY_2(trn,4)=bestpdvv3p(4); aaaY_2(trn,5)=bestpdvv3p(5); aaaY_2(trn,6)=bestpdvv3p(6); end if bestpffv3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpffv3p(1); aaaY_2(trn,2)=bestpffv3p(2); aaaY_2(trn,3)=bestpffv3p(3); aaaY_2(trn,4)=bestpffv3p(4); aaaY_2(trn,5)=bestpffv3p(5); aaaY_2(trn,6)=bestpffv3p(6); end if bestpdfd3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpdfd3p(1); aaaY_2(trn,2)=bestpdfd3p(2); aaaY_2(trn,3)=bestpdfd3p(3); aaaY_2(trn,4)=bestpdfd3p(4); aaaY_2(trn,5)=bestpdfd3p(5); aaaY_2(trn,6)=bestpdfd3p(6); end if bestpvfv3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpvfv3p(1); aaaY_2(trn,2)=bestpvfv3p(2); aaaY_2(trn,3)=bestpvfv3p(3); aaaY_2(trn,4)=bestpvfv3p(4); aaaY_2(trn,5)=bestpvfv3p(5); aaaY_2(trn,6)=bestpvfv3p(6); end if bestpdfv(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpdfv(1); aaaY_2(trn,2)=bestpdfv(2); aaaY_2(trn,3)=bestpdfv(3); aaaY_2(trn,4)=bestpdfv(4); aaaY_2(trn,5)=bestpdfv(5); aaaY_2(trn,6)=bestpdfv(6); end if bestpdfl(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpdfl(1); aaaY_2(trn,2)=bestpdfl(2); aaaY_2(trn,3)=bestpdfl(3); aaaY_2(trn,4)=bestpdfl(4); aaaY_2(trn,5)=bestpdfl(5); aaaY_2(trn,6)=bestpdfl(6); end if bestpdlv(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpdlv(1); aaaY_2(trn,2)=bestpdlv(2); aaaY_2(trn,3)=bestpdlv(3); aaaY_2(trn,4)=bestpdlv(4); aaaY_2(trn,5)=bestpdlv(5); aaaY_2(trn,6)=bestpdlv(6); end if bestplfv(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestplfv(1); aaaY_2(trn,2)=bestplfv(2); aaaY_2(trn,3)=bestplfv(3); aaaY_2(trn,4)=bestplfv(4); aaaY_2(trn,5)=bestplfv(5); aaaY_2(trn,6)=bestplfv(6); end if bestpgl3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpgl3p(1); aaaY_2(trn,2)=bestpgl3p(2); aaaY_2(trn,3)=bestpgl3p(3); aaaY_2(trn,4)=bestpgl3p(4); aaaY_2(trn,5)=bestpgl3p(5); aaaY_2(trn,6)=bestpgl3p(6); end if bestpddl3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpddl3p(1); aaaY_2(trn,2)=bestpddl3p(2); aaaY_2(trn,3)=bestpddl3p(3); aaaY_2(trn,4)=bestpddl3p(4); aaaY_2(trn,5)=bestpddl3p(5); aaaY_2(trn,6)=bestpddl3p(6); end if bestpdll3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpdll3p(1); aaaY_2(trn,2)=bestpdll3p(2); aaaY_2(trn,3)=bestpdll3p(3); aaaY_2(trn,4)=bestpdll3p(4); aaaY_2(trn,5)=bestpdll3p(5); aaaY_2(trn,6)=bestpdll3p(6); end if bestpffl3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpffl3p(1); aaaY_2(trn,2)=bestpffl3p(2); aaaY_2(trn,3)=bestpffl3p(3); aaaY_2(trn,4)=bestpffl3p(4); aaaY_2(trn,5)=bestpffl3p(5); aaaY_2(trn,6)=bestpffl3p(6); end if bestpdld3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpdld3p(1); aaaY_2(trn,2)=bestpdld3p(2); aaaY_2(trn,3)=bestpdld3p(3); aaaY_2(trn,4)=bestpdld3p(4); aaaY_2(trn,5)=bestpdld3p(5); aaaY_2(trn,6)=bestpdld3p(6); end if bestpldl3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpldl3p(1); aaaY_2(trn,2)=bestpldl3p(2); aaaY_2(trn,3)=bestpldl3p(3); aaaY_2(trn,4)=bestpldl3p(4); aaaY_2(trn,5)=bestpldl3p(5); aaaY_2(trn,6)=bestpldl3p(6); end if bestpllv3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpllv3p(1); aaaY_2(trn,2)=bestpllv3p(2); aaaY_2(trn,3)=bestpllv3p(3); aaaY_2(trn,4)=bestpllv3p(4); aaaY_2(trn,5)=bestpllv3p(5); aaaY_2(trn,6)=bestpllv3p(6); end if bestplvv3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestplvv3p(1); aaaY_2(trn,2)=bestplvv3p(2); aaaY_2(trn,3)=bestplvv3p(3); aaaY_2(trn,4)=bestplvv3p(4); aaaY_2(trn,5)=bestplvv3p(5); aaaY_2(trn,6)=bestplvv3p(6); end if bestpvlv3p(1)>aaaY_2(trn,1) aaaY_2(trn,1)=bestpvlv3p(1); aaaY_2(trn,2)=bestpvlv3p(2); aaaY_2(trn,3)=bestpvlv3p(3); aaaY_2(trn,4)=bestpvlv3p(4); aaaY_2(trn,5)=bestpvlv3p(5); aaaY_2(trn,6)=bestpvlv3p(6); end if aaaY_2(trn,1)>=aaaY_1(trn,1) aaaY_3(trn,1)=aaaY_2(trn,1); aaaY_3(trn,2)=aaaY_2(trn,2); aaaY_3(trn,3)=aaaY_2(trn,3); aaaY_3(trn,4)=aaaY_2(trn,4); aaaY_3(trn,5)=aaaY_2(trn,5); aaaY_3(trn,6)=aaaY_2(trn,6); else aaaY_3(trn,1)=aaaY_1(trn,1); aaaY_3(trn,2)=aaaY_1(trn,2); aaaY_3(trn,3)=aaaY_1(trn,3); aaaY_3(trn,4)=aaaY_1(trn,4); aaaY_3(trn,5)=aaaY_1(trn,5); aaaY_3(trn,6)=aaaY_1(trn,6); end end %creating the vector for X in Y=XB+e aaaxreg=zeros(29,run); for urn=1:run aaaxreg(1,urn)=tauij(urn); aaaxreg(2,urn)=tauk(urn); aaaxreg(3,urn)=winfav(urn); aaaxreg(4,urn)=menu(urn); aaaxreg(5,urn)=mkti(urn); aaaxreg(6,urn)=mktj(urn); aaaxreg(7,urn)=mktk(urn); aaaxreg(8,urn)=bav(urn); aaaxreg(9,urn)=bvl(urn); aaaxreg(10,urn)=bi(urn); aaaxreg(11,urn)=bj(urn); aaaxreg(12,urn)=bk(urn); aaaxreg(13,urn)=pvlav(urn); aaaxreg(14,urn)=risk(urn); aaaxreg(15,urn)=varlpi(1,urn); aaaxreg(16,urn)=varlpj(1,urn); aaaxreg(17,urn)=varlpk(1,urn); aaaxreg(18,urn)=varleij(1,urn); aaaxreg(19,urn)=varleik(1,urn); aaaxreg(20,urn)=varlejk(1,urn); aaaxreg(21,urn)=wage(urn,1); aaaxreg(22,urn)=loop(1,urn); aaaxreg(23,urn)=corrpipj(urn,1); aaaxreg(24,urn)=corrpipk(urn,1); aaaxreg(25,urn)=corrpjpk(urn,1); aaaxreg(26,urn)=taul(urn); aaaxreg(27,urn)=varleil(1,urn); aaaxreg(28,urn)=varlejl(1,urn); aaaxreg(29,urn)=varlekl(1,urn); end aaaxreg=aaaxreg'; aaabig=zeros(run,47); for vrn=1:run aaabig(vrn,1)=aaaY_1(vrn,1); aaabig(vrn,2)=aaaY_1(vrn,2); aaabig(vrn,3)=aaaY_1(vrn,3); aaabig(vrn,4)=aaaY_1(vrn,4); aaabig(vrn,5)=aaaY_1(vrn,5); aaabig(vrn,6)=aaaY_1(vrn,6); aaabig(vrn,7)=aaaY_2(vrn,1); aaabig(vrn,8)=aaaY_2(vrn,2); aaabig(vrn,9)=aaaY_2(vrn,3); aaabig(vrn,10)=aaaY_2(vrn,4); aaabig(vrn,11)=aaaY_2(vrn,5); aaabig(vrn,12)=aaaY_2(vrn,6); aaabig(vrn,13)=aaaY_3(vrn,1); aaabig(vrn,14)=aaaY_3(vrn,2); aaabig(vrn,15)=aaaY_3(vrn,3); aaabig(vrn,16)=aaaY_3(vrn,4); aaabig(vrn,17)=aaaY_3(vrn,5); aaabig(vrn,18)=aaaY_3(vrn,6); aaabig(vrn,19)=aaaxreg(vrn,1); aaabig(vrn,20)=aaaxreg(vrn,2); aaabig(vrn,21)=aaaxreg(vrn,3); aaabig(vrn,22)=aaaxreg(vrn,4); aaabig(vrn,23)=aaaxreg(vrn,5); aaabig(vrn,24)=aaaxreg(vrn,6); aaabig(vrn,25)=aaaxreg(vrn,7); aaabig(vrn,26)=aaaxreg(vrn,8); aaabig(vrn,27)=aaaxreg(vrn,9); aaabig(vrn,28)=aaaxreg(vrn,10); aaabig(vrn,29)=aaaxreg(vrn,11); aaabig(vrn,30)=aaaxreg(vrn,12); aaabig(vrn,31)=aaaxreg(vrn,13); aaabig(vrn,32)=aaaxreg(vrn,14); aaabig(vrn,33)=aaaxreg(vrn,15); aaabig(vrn,34)=aaaxreg(vrn,16); aaabig(vrn,35)=aaaxreg(vrn,17); aaabig(vrn,36)=aaaxreg(vrn,18); aaabig(vrn,37)=aaaxreg(vrn,19); aaabig(vrn,38)=aaaxreg(vrn,20); aaabig(vrn,39)=aaaxreg(vrn,21); aaabig(vrn,40)=aaaxreg(vrn,22); aaabig(vrn,41)=aaaxreg(vrn,23); aaabig(vrn,42)=aaaxreg(vrn,24); aaabig(vrn,43)=aaaxreg(vrn,25); aaabig(vrn,44)=aaaxreg(vrn,26); aaabig(vrn,45)=aaaxreg(vrn,27); aaabig(vrn,46)=aaaxreg(vrn,28); aaabig(vrn,47)=aaaxreg(vrn,29); end toc beep