function [k,l,alphah,pf,pn,w,im,yh,cf,cn,nu,gn,gf,pg,pro,rm,d,b,ppf,q,ph,lh,nl,chf,po,phi,chi]=myfunctionl(yn,p,g,c,v,zh,zn,alpha1,alpha2,epsis,mus,deltag,theta,theta2,varphi,tauf,tau,i,a,r,change,rp,rppf,psi,epsilon,yf,sigma,h,delta,rev)
yn_i=exp(yn);
p_i=exp(p);
g_i=exp(g);
c_i=exp(c);
v_i=exp(v);
zh_i=exp(zh);
zn_i=exp(zn);
tauf_i=exp(tauf);
i_i=exp(i);
a_i=exp(a);
r_i=exp(r);
change_i=exp(change);
rp_i=exp(rp);
rppf_i=exp(rppf);
psi_i=exp(psi);
epsilon_i=exp(epsilon);
yf_i=exp(yf);
[k_i,l_i,alphah,pf_i,pn_i,w_i,im_i,yh_i,cf_i,cn_i,nu,gn_i,gf_i,pg_i,pro_i,rm_i,d_i,b_i,ppf_i,q_i,ph_i,lh_i,nl_i,chf_i,po_i,phi,chi]=myfunction0(yn_i,p_i,g_i,c_i,v_i,zh_i,zn_i,alpha1,alpha2,epsis,mus,deltag,theta,theta2,varphi,tauf_i,tau,i_i,a_i,r_i,change_i,rp_i,rppf_i,psi_i,epsilon_i,yf_i,sigma,h,delta,rev);
k=log(k_i);
l=log(l_i);
pf=log(pf_i);
pn=log(pn_i);
w=log(w_i);
im=log(im_i);
yh=log(yh_i);
cf=log(cf_i);
cn=log(cn_i);
gn=log(gn_i);
gf=log(gf_i);
pg=log(pg_i);
pro=log(pro_i);
rm=log(rm_i);
d=log(d_i);
b=log(b_i);
ppf=log(ppf_i);
q=log(q_i);
ph=log(ph_i);
lh=log(lh_i);
nl=log(nl_i);
chf=log(chf_i);
po=log(po_i);
end


