├── .DS_Store ├── .Rhistory ├── README.md ├── core ├── Cone.m ├── HJBmap1D.m ├── HJBmap2D.m ├── Pfun.m ├── clearnan.m ├── cross2d.m ├── decfun.m ├── decompfun.m ├── finitediff1D.m ├── finitediff2D.m ├── innerloop.m ├── innerloop_par.m ├── isdiagdom.m ├── matfun.m ├── matview.m ├── nmultichoosek.m ├── operator.m ├── ordervars.m ├── permn.m ├── plotgraphs1D.m ├── plotgraphs2D.m ├── plottest.asv ├── plottest.m ├── reform.m ├── searchgrid.m ├── setupfunctions.m ├── solvemod.m ├── systdiff.m ├── vecfun.m ├── writefun.m ├── writemod.m └── xxfun.m └── files ├── example_01_model_BruSan.pdf ├── example_02_model_DiTella.pdf ├── initpath.m ├── mod_BruSan.m ├── mod_DiTella.m ├── par_BruSan.m ├── par_DiTella.m ├── sol_BruSan ├── guess.mat └── sol_gammai_200_gammah_300_ai_10_ah_10_rhoi_4_rhoh_4_sigz_10_sigbar_10_deltai_4_deltah_4_kappa_p_200_kappa_z_100_zetai_115_zetah_115.mat ├── sol_DiTella ├── guess.mat └── sol_gammai_500_ai_10_ah_10_rhoi_7_rhoh_7_sigz_5_vbar_10_deltai_4_deltah_4_kappa_p_200_kappa_z_100_zetai_101_zetah_101_psii_99_phii__10_tauu_10_lambda_100_sigma_1_A_500_B_200.mat ├── tmp_BruSan ├── CCfun00.m ├── CCfun01.m ├── CCfun02.m ├── CCfun10.m ├── CCfun11.m ├── CCfun12.m ├── CCfun20.m ├── CCfun21.m ├── CCfun22.m ├── CCfun33.m ├── Ffun00.m ├── Ffun00_.m ├── Ffun01.m ├── Ffun01_.m ├── Ffun02.m ├── Ffun02_.m ├── Ffun10.m ├── Ffun10_.m ├── Ffun11.m ├── Ffun11_.m ├── Ffun12.m ├── Ffun12_.m ├── Ffun20.m ├── Ffun20_.m ├── Ffun21.m ├── Ffun21_.m ├── Ffun22.m ├── Ffun22_.m ├── Ffun33.m ├── Ffun33_.m ├── Lfun00.m ├── Lfun00_.m ├── Lfun01.m ├── Lfun01_.m ├── Lfun02.m ├── Lfun02_.m ├── Lfun10.m ├── Lfun10_.m ├── Lfun11.m ├── Lfun11_.m ├── Lfun12.m ├── Lfun12_.m ├── Lfun20.m ├── Lfun20_.m ├── Lfun21.m ├── Lfun21_.m ├── Lfun22.m ├── Lfun22_.m ├── Lfun33.m ├── Lfun33_.m ├── Xfun00.m ├── Xfun00_.m ├── Xfun01.m ├── Xfun01_.m ├── Xfun02.m ├── Xfun02_.m ├── Xfun10.m ├── Xfun10_.m ├── Xfun11.m ├── Xfun11_.m ├── Xfun12.m ├── Xfun12_.m ├── Xfun20.m ├── Xfun20_.m ├── Xfun21.m ├── Xfun21_.m ├── Xfun22.m ├── Xfun22_.m ├── Xfun33.m ├── Xfun33_.m ├── dFfun00.m ├── dFfun00_.m ├── dFfun01.m ├── dFfun01_.m ├── dFfun02.m ├── dFfun02_.m ├── dFfun10.m ├── dFfun10_.m ├── dFfun11.m ├── dFfun11_.m ├── dFfun12.m ├── dFfun12_.m ├── dFfun20.m ├── dFfun20_.m ├── dFfun21.m ├── dFfun21_.m ├── dFfun22.m ├── dFfun22_.m ├── dFfun33.m ├── dFfun33_.m ├── mod_constraints.m ├── mod_differences.m ├── mod_guess.m ├── mod_model.m ├── mod_parameters.m ├── mod_variables.m ├── par_solver.m ├── process1_.m ├── process2_.m ├── verfun.m └── xxfun.m └── tmp_DiTella ├── CCfun00.m ├── CCfun01.m ├── CCfun02.m ├── CCfun10.m ├── CCfun11.m ├── CCfun12.m ├── CCfun20.m ├── CCfun21.m ├── CCfun22.m ├── CCfun33.m ├── Ffun00.m ├── Ffun00_.m ├── Ffun01.m ├── Ffun01_.m ├── Ffun02.m ├── Ffun02_.m ├── Ffun10.m ├── Ffun10_.m ├── Ffun11.m ├── Ffun11_.m ├── Ffun12.m ├── Ffun12_.m ├── Ffun20.m ├── Ffun20_.m ├── Ffun21.m ├── Ffun21_.m ├── Ffun22.m ├── Ffun22_.m ├── Ffun33.m ├── Ffun33_.m ├── Lfun00.m ├── Lfun00_.m ├── Lfun01.m ├── Lfun01_.m ├── Lfun02.m ├── Lfun02_.m ├── Lfun10.m ├── Lfun10_.m ├── Lfun11.m ├── Lfun11_.m ├── Lfun12.m ├── Lfun12_.m ├── Lfun20.m ├── Lfun20_.m ├── Lfun21.m ├── Lfun21_.m ├── Lfun22.m ├── Lfun22_.m ├── Lfun33.m ├── Lfun33_.m ├── Xfun00.m ├── Xfun00_.m ├── Xfun01.m ├── Xfun01_.m ├── Xfun02.m ├── Xfun02_.m ├── Xfun10.m ├── Xfun10_.m ├── Xfun11.m ├── Xfun11_.m ├── Xfun12.m ├── Xfun12_.m ├── Xfun20.m ├── Xfun20_.m ├── Xfun21.m ├── Xfun21_.m ├── Xfun22.m ├── Xfun22_.m ├── Xfun33.m ├── Xfun33_.m ├── dFfun00.m ├── dFfun00_.m ├── dFfun01.m ├── dFfun01_.m ├── dFfun02.m ├── dFfun02_.m ├── dFfun10.m ├── dFfun10_.m ├── dFfun11.m ├── dFfun11_.m ├── dFfun12.m ├── dFfun12_.m ├── dFfun20.m ├── dFfun20_.m ├── dFfun21.m ├── dFfun21_.m ├── dFfun22.m ├── dFfun22_.m ├── dFfun33.m ├── dFfun33_.m ├── mod_constraints.m ├── mod_differences.m ├── mod_guess.m ├── mod_model.m ├── mod_parameters.m ├── mod_variables.m ├── par_solver.m ├── process1_.m ├── process2_.m ├── verfun.m └── xxfun.m /.DS_Store: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/adavernas/toolbox/2f19cb05705292992c0c9a9aba53b477a20e0406/.DS_Store -------------------------------------------------------------------------------- /.Rhistory: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/adavernas/toolbox/2f19cb05705292992c0c9a9aba53b477a20e0406/.Rhistory -------------------------------------------------------------------------------- /core/HJBmap1D.m: -------------------------------------------------------------------------------- 1 | function Jp = HJBmap1D(DD,J,r,u,mu,sig,par) 2 | 3 | dm = reform(DD(1:par.ndim,:),par); 4 | dp = reform(DD(1+par.ndim:2*par.ndim,:),par); 5 | 6 | J = reform(J,par); 7 | r = reform(r,par); 8 | u = reform(u,par); 9 | mu = reform(mu,par); 10 | sig = reform(sig,par); 11 | 12 | U = cell(par.ndim^2,1); 13 | D = cell(par.ndim^2,1); 14 | M = cell(par.ndim^2,1); 15 | A = cell(par.ndim^2,1); 16 | F = cell(par.ndim^2,1); 17 | for is=1:par.ndim 18 | for ib=1:par.ndim 19 | 20 | in = (is-1)*par.ndim+ib; 21 | 22 | % sig{in}([1 end]) = 0; 23 | U{in} = - max(mu{in},0)./dp{in} - sig{in}.^2.*dm{in}./(dm{in}.*dp{in}.*(dm{in}+dp{in})); 24 | U{in}(end) = 0; 25 | 26 | D{in} = min(mu{in},0)./dm{in} - sig{in}.^2.*dp{in}./(dm{in}.*dp{in}.*(dm{in}+dp{in})); 27 | D{in}(1) = 0; 28 | 29 | M{in} = r{in} + 1/par.dt - U{in} - D{in}; 30 | % M{in}([1 end]) = 0; 31 | 32 | A{in} = spdiags(M{in}',0,par.dim(is),par.dim(is)) ... 33 | + spdiags([0 U{in}(1:end-1)]',1,par.dim(is),par.dim(is)) ... 34 | + spdiags([D{in}(2:end) 0]',-1,par.dim(is),par.dim(is)); 35 | 36 | % A{in}(end,end) = 1; 37 | % A{in}(end,end-1) = -1; 38 | % 39 | % A{in}(1,1) = 1; 40 | % A{in}(1,2) = -1; 41 | % 42 | % J{in}([1 end]) = 0; 43 | % u{in}([1 end]) = 0; 44 | 45 | % R*J = u + mu*Jx + sig^2*Jxx/2 + Jt 46 | % A*J = u + J/dt 47 | 48 | F{in} = NaN(size(A{in})); 49 | if all(~isnan(A{in})) 50 | F{in} = A{in}\(u{in}' + 1/par.dt.*J{in}'); 51 | end 52 | 53 | end 54 | end 55 | 56 | Jp = NaN(par.dim); 57 | Jp(~isnan(F{1}),1) = F{1}(~isnan(F{1})); 58 | Jp(~isnan(F{2}),end) = F{2}(~isnan(F{2})); 59 | Jp(1,~isnan(F{3})) = F{3}(~isnan(F{3})); 60 | Jp(end,~isnan(F{4})) = F{4}(~isnan(F{4})); 61 | 62 | % vec1 = linspace(0.01,0.99,par.n1); % ok lineraire 63 | % vec1 = 3*vec1.^2 - 2*vec1.^3; 64 | % vec2 = linspace(0.01,.99,par.n2); 65 | % vec2 = 3*vec2.^2 - 2*vec2.^3; 66 | % 67 | % [x1, x2] = ndgrid(vec1, vec2); 68 | % 69 | % ncol = 2; 70 | % nlin = 2; 71 | % 72 | % figure(5); clf(5); h = 0; 73 | % 74 | % h = h+1; 75 | % subplot(ncol,nlin,h); hold on 76 | % Mp = NaN(par.dim); 77 | % Mp(:,1) = M{1}; 78 | % Mp(:,end) = M{2}; 79 | % Mp(1,:) = M{3}; 80 | % Mp(end,:) = M{4}; 81 | % m = mesh(x1,x2,Mp); 82 | % set(m,'facecolor','none') 83 | % view([-32.4,42]) 84 | % xlabel('\eta') 85 | % ylabel('z'); xlim([vec1(1) vec1(end)]); ylim([vec2(1) vec2(end)]); 86 | % title('$q_\eta$','Interpreter','LateX'); 87 | % 88 | % h = h+1; 89 | % subplot(ncol,nlin,h); hold on 90 | % mup = NaN(par.dim); 91 | % mup(:,1) = mu{1}; 92 | % mup(:,end) = mu{2}; 93 | % mup(1,:) = mu{3}; 94 | % mup(end,:) = mu{4}; 95 | % m = mesh(x1,x2,mup); 96 | % set(m,'facecolor','none') 97 | % view([-32.4,42]) 98 | % xlabel('\eta') 99 | % ylabel('z'); xlim([vec1(1) vec1(end)]); ylim([vec2(1) vec2(end)]); 100 | % title('$q_\eta$','Interpreter','LateX'); 101 | 102 | -------------------------------------------------------------------------------- /core/Pfun.m: -------------------------------------------------------------------------------- 1 | function k = Pfun(N,P,H) 2 | 3 | % n is normal 4 | % p is point on plane 5 | % h is point to project 6 | % k is projection 7 | 8 | a = N(1); 9 | b = N(2); 10 | c = N(3); 11 | 12 | d = P(1); 13 | e = P(2); 14 | f = P(3); 15 | 16 | x = H(1); 17 | y = H(2); 18 | z = H(3); 19 | 20 | t = (a*d - a*x + b*e - b*y + c*f - c*z)/(a^2+b^2+c^2); 21 | 22 | k = [x+t*a; y+t*b; z+t*c]; -------------------------------------------------------------------------------- /core/clearnan.m: -------------------------------------------------------------------------------- 1 | function f = clearnan(x,k) 2 | 3 | sx = size(x); 4 | f = NaN(sx); 5 | 6 | for i=1:sx(1) 7 | for j=1:sx(2) 8 | if isnan(x(i,j)) 9 | f(i,j) = k; 10 | elseif ~isnan(x(i,j)) 11 | f(i,j) = x(i,j); 12 | end 13 | end 14 | end -------------------------------------------------------------------------------- /core/cross2d.m: -------------------------------------------------------------------------------- 1 | function V = cross2d(A,B) 2 | 3 | V = A(1)*B(2)-A(2)*B(1); -------------------------------------------------------------------------------- /core/decfun.m: -------------------------------------------------------------------------------- 1 | function [F,dF,H,B] = decfun(eta,A,xi) 2 | % Compute the error, the gradient and Hessian of the stencil decomposition 3 | 4 | n = size(xi,1); 5 | neta = length(eta); 6 | eb = NaN(n,n,neta); 7 | b = NaN(n,n,neta); 8 | for e=1:neta 9 | eb(:,:,e) = eta(e)*xi(:,e)*xi(:,e)'; 10 | b(:,:,e) = xi(:,e)*xi(:,e)'; 11 | end 12 | B = sum(eb,3); 13 | F = max(max( (A - B) ))./sqrt(A(1,1)^2+A(2,2)^2); 14 | 15 | dF = NaN(neta,1); 16 | for e=1:neta 17 | dF(e) = -sum(sum( (A - B).*b(:,:,e) )); 18 | end 19 | 20 | H = NaN(neta,neta); 21 | for e1=1:neta 22 | for e2=1:neta 23 | H(e1,e2) = sum(sum( b(:,:,e1).*b(:,:,e2) )); 24 | end 25 | end 26 | -------------------------------------------------------------------------------- /core/finitediff1D.m: -------------------------------------------------------------------------------- 1 | function [Jp,DJm,DJp] = finitediff2D(J,D,x1) 2 | 3 | D = squeeze(D); 4 | if size(D,2)==1 5 | D = D'; 6 | end 7 | 8 | DJp_ = (J(2:end)-J(1:end-1))./D(1:end-1); 9 | DJp = interp1(x1(2:end-1),DJp_(2:end),x1,'spline'); 10 | 11 | DJm_ = (J(2:end)-J(1:end-1))./D(2:end); 12 | DJm = interp1(x1(2:end-1),DJm_(1:end-1),x1,'spline'); 13 | 14 | % Jp = DJm.*(mu<0) + DJp.*(mu>0) + 1/2*DJm.*(mu==0) + 1/2*DJp.*(mu==0); 15 | Jp = 1/2*DJm + 1/2*DJp; 16 | -------------------------------------------------------------------------------- /core/finitediff2D.m: -------------------------------------------------------------------------------- 1 | function [Jp,DJm,DJp] = finitediff2D(J,D,x1,x2,d) 2 | 3 | D = squeeze(D); 4 | if size(D,1)==1 5 | D = D'; 6 | end 7 | 8 | if d==1 9 | DJp_ = (J(2:end,:)-J(1:end-1,:))./D(1:end-1,:); 10 | DJp = [DJp_;DJp_(end,:)]; 11 | 12 | % DJp = interp2(x2(2:end-1,:),x1(2:end-1,:),DJp_(2:end,:),x2,x1,'linear'); 13 | 14 | DJm_ = (J(2:end,:)-J(1:end-1,:))./D(2:end,:); 15 | DJm = [DJm_(1,:);DJm_]; 16 | 17 | % DJm = interp2(x2(2:end-1,:),x1(2:end-1,:),DJm_(1:end-1,:),x2,x1,'linear'); 18 | 19 | elseif d==2 20 | DJp_ = (J(:,2:end)-J(:,1:end-1))./D(:,1:end-1); 21 | DJp = [DJp_ DJp_(:,end)]; 22 | 23 | % DJp = interp2(x2(:,2:end-1),x1(:,2:end-1),DJp_(:,2:end),x2,x1,'linear'); 24 | 25 | DJm_ = (J(:,2:end)-J(:,1:end-1))./D(:,2:end); 26 | DJm = [DJm_(:,1) DJm_]; 27 | 28 | % DJm = interp2(x2(:,2:end-1),x1(:,2:end-1),DJm_(:,1:end-1),x2,x1,'linear'); 29 | end 30 | 31 | % Jp = DJm.*(mu<0) + DJp.*(mu>0) + 1/2*DJm.*(mu==0) + 1/2*DJp.*(mu==0); 32 | Jp = 1/2*DJm + 1/2*DJp; 33 | -------------------------------------------------------------------------------- /core/innerloop.m: -------------------------------------------------------------------------------- 1 | %% Newton-Raphson Method 2 | if strcmp(par.dimensions,'2D') 3 | itervec1 = 1:par.dim(1); 4 | itervec2 = 1:par.dim(2); 5 | elseif strcmp(par.dimensions,'1D') 6 | itervec1 = 1:par.dim(1); 7 | itervec2 = par.nextr+1; 8 | end 9 | 10 | for i2=itervec2 11 | for i1=itervec1 12 | if i1>1 13 | M1(:,i1,i2) = L0(:,i1-1,i2); 14 | elseif i1==1 15 | M1(:,i1,i2) = NaN; 16 | end 17 | 18 | if i11 25 | M2(:,i1,i2) = L0(:,i1,i2-1); 26 | elseif i2==1 27 | M2(:,i1,i2) = NaN; 28 | end 29 | 30 | if i21 37 | XX0 = X0(:,i1-1,i2); 38 | else 39 | XX0 = X0(:,i1,i2); 40 | end 41 | % XX0 = XT0(:,i1,i2); 42 | 43 | iterI = 0; 44 | testI = 1; 45 | 46 | X1 = XX0; 47 | Stmp = S(:,i1,i2); 48 | Dtmp = D(:,i1,i2); 49 | V0tmp = V0(:,i1,i2); 50 | L0tmp = L0(:,i1,i2); 51 | M1tmp = M1(:,i1,i2); 52 | M2tmp = M2(:,i1,i2); 53 | P1tmp = P1(:,i1,i2); 54 | P2tmp = P2(:,i1,i2); 55 | 56 | [vtmp,~,BC,BC_,icst,icst_] = verfun(Stmp,XX0,NaN(par.ncc,1),cstv,csts,cstn,bndv,bndn,i1,i2,par); 57 | 58 | if strcmp(par.loop,'on') 59 | if loop==1 60 | vtmp = 0; 61 | end 62 | end 63 | 64 | ctmp1 = zeros(par.ncc,1); 65 | while or(iterI=par.tolI,iterIpar.minI-1 83 | [vtmp,ctmp1,BC,BC_,icst,icst_] = verfun(Stmp,X1,NaN(par.ncc,1),cstv,csts,cstn,bndv,bndn,i1,i2,par); 84 | end 85 | 86 | if strcmp(par.loop,'on') 87 | if loop==1 88 | vtmp = 0; 89 | end 90 | end 91 | 92 | X1(icst(ctmp1==1)) = BC(ctmp1==1); 93 | X1(icst_(ctmp1==1)) = BC_(ctmp1==1); 94 | 95 | testI = norm(FF(ix)); 96 | 97 | XX0 = real(X1); 98 | 99 | end 100 | 101 | L(:,i1,i2) = process2_(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,vtmp,par); 102 | X0(:,i1,i2) = XX0; 103 | end 104 | end 105 | -------------------------------------------------------------------------------- /core/innerloop_par.m: -------------------------------------------------------------------------------- 1 | %% Newton-Raphson Method Parrallel 2 | if strcmp(par.dimensions,'2D') 3 | itervec1 = 1:par.dim(1); 4 | itervec2 = 1:par.dim(2); 5 | elseif strcmp(par.dimensions,'1D') 6 | itervec1 = 1:par.dim(1); 7 | itervec2 = par.nextr+1; 8 | end 9 | 10 | X0_ = X0; 11 | for i1=1:par.n1 12 | for i2=1:par.n2 13 | if i1>1 14 | XX00(:,i1,i2) = X0(:,i1-1,i2); 15 | else 16 | XX00(:,i1,i2) = X0(:,i1,i2); 17 | end 18 | 19 | if i1>1 20 | M1(:,i1,i2) = L0(:,i1-1,i2); %#ok 21 | elseif i1==1 22 | M1(:,i1,i2) = NaN; %#ok 23 | end 24 | 25 | if i1 27 | elseif i1==par.n1 28 | P1(:,i1,i2) = NaN; %#ok 29 | end 30 | 31 | if i2>1 32 | M2(:,i1,i2) = L0(:,i1,i2-1); %#ok 33 | elseif i2==1 34 | M2(:,i1,i2) = NaN; %#ok 35 | end 36 | 37 | if i2 39 | elseif i2==par.n1 40 | P2(:,i1,i2) = NaN; %#ok 41 | end 42 | end 43 | end 44 | 45 | cstv = parallel.pool.Constant(cstv); 46 | csts = parallel.pool.Constant(csts); 47 | cstn = parallel.pool.Constant(cstn); 48 | bndv = parallel.pool.Constant(bndv); 49 | bndn = parallel.pool.Constant(bndn); 50 | PP = P; 51 | P = parallel.pool.Constant(P); 52 | parfor i1=itervec1 53 | X0par = NaN(par.nx,par.n2); 54 | Lpar = NaN(par.nl,par.n2); 55 | for i2=itervec2 56 | 57 | iterI = 0; 58 | testI = 1; 59 | 60 | XX0 = XX00(:,i1,i2); 61 | X1 = XX00(:,i1,i2); 62 | Stmp = S(:,i1,i2); 63 | Dtmp = D(:,i1,i2); 64 | V0tmp = V0(:,i1,i2); 65 | L0tmp = L0(:,i1,i2); 66 | M1tmp = M1(:,i1,i2); 67 | M2tmp = M2(:,i1,i2); 68 | P1tmp = P1(:,i1,i2); 69 | P2tmp = P2(:,i1,i2); 70 | 71 | [vtmp,~,BC,BC_,icst,icst_] = verfun(Stmp,XX0,NaN(par.ncc,1),cstv,csts,cstn,bndv,bndn,i1,i2,par); 72 | 73 | if strcmp(par.loop,'on') 74 | if loop==1 75 | vtmp = 0; 76 | end 77 | end 78 | 79 | ctmp1 = zeros(par.ncc,1); 80 | while or(iterI=par.tolI,iterIpar.minI-1 98 | [vtmp,ctmp1,BC,BC_,icst,icst_] = verfun(Stmp,X1,NaN(par.ncc,1),cstv,csts,cstn,bndv,bndn,i1,i2,par); 99 | end 100 | 101 | if strcmp(par.loop,'on') 102 | if loop==1 103 | vtmp = 0; 104 | end 105 | end 106 | 107 | X1(icst(ctmp1==1)) = BC(ctmp1==1); 108 | X1(icst_(ctmp1==1)) = BC_(ctmp1==1); 109 | 110 | testI = norm(FF(ix)); 111 | 112 | XX0 = real(X1); 113 | 114 | end 115 | 116 | Lpar(:,i2) = process2_(P.Value,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,vtmp,par); 117 | X0par(:,i2) = XX0; 118 | end 119 | X0(:,i1,:) = X0par; 120 | L(:,i1,:) = Lpar; 121 | end 122 | P = PP; 123 | 124 | -------------------------------------------------------------------------------- /core/isdiagdom.m: -------------------------------------------------------------------------------- 1 | function isdom = isdiagdom(A) 2 | 3 | isdom = true; 4 | for r = 1:size(A,1) 5 | rowdom = 2*abs(A(r,r)) > sum(abs(A(r,:))); 6 | isdom = isdom && rowdom; 7 | end -------------------------------------------------------------------------------- /core/matfun.m: -------------------------------------------------------------------------------- 1 | function M = matfun(vec) 2 | 3 | M = [vec(1) vec(2)/sqrt(2); vec(2)/sqrt(2) vec(3)]; -------------------------------------------------------------------------------- /core/matview.m: -------------------------------------------------------------------------------- 1 | function V = matview(A) 2 | 3 | V = [A(1,1)-A(2,2) 2*A(1,2)]/(A(1,1)+A(2,2)); -------------------------------------------------------------------------------- /core/nmultichoosek.m: -------------------------------------------------------------------------------- 1 | function combs = nmultichoosek(values, k) 2 | %// Return number of multisubsets or actual multisubsets. 3 | if numel(values)==1 4 | n = values; 5 | combs = nchoosek(n+k-1,k); 6 | else 7 | n = numel(values); 8 | combs = bsxfun(@minus, nchoosek(1:n+k-1,k), 0:k-1); 9 | combs = reshape(values(combs),[],k); 10 | end -------------------------------------------------------------------------------- /core/operator.m: -------------------------------------------------------------------------------- 1 | function O = operator(eta,xi,k,V) 2 | nx = length(eta); 3 | 4 | O = 0; 5 | for ix=1:nx 6 | O = O + eta(ix)*(V(k+xi(:,ix)) + V(k-xi(:,ix))); 7 | end -------------------------------------------------------------------------------- /core/plotgraphs1D.m: -------------------------------------------------------------------------------- 1 | aa1 = 1; 2 | bb1 = par.n1; 3 | 4 | nlin = floor(sqrt(par.nx)); 5 | ncol = ceil((par.nx)/nlin); 6 | 7 | figure(1); clf(1); 8 | for h=1:par.nx 9 | subplot(nlin,ncol,h); hold on 10 | 11 | eval(['Zq = squeeze(X0(par.X.i',vars{h},',:,:));']) 12 | 13 | plot(vec1,Zq); grid on; 14 | 15 | xlabel(latexs{1},'Interpreter','LateX'); 16 | 17 | title(['$',latex{h},'$'],'Interpreter','LateX'); 18 | set(gca,'FontSize',16) 19 | xlim([vec1(aa1) vec1(bb1)]); 20 | tix=get(gca,'ztick')'; 21 | set(gca,'zticklabel',num2str(tix,'%.2f')); 22 | end 23 | 24 | nlin = floor(sqrt(par.nx_)); 25 | ncol = ceil((par.nx_)/nlin); 26 | 27 | figure(2); clf(2); 28 | for h_=1:par.nx_ 29 | subplot(nlin,ncol,h_); hold on 30 | 31 | eval(['Zq = squeeze(X_(par.X_.i',vars_{h_},',:,:));']) 32 | 33 | plot(vec1,Zq); grid on; 34 | 35 | xlabel(latexs{1},'Interpreter','LateX'); 36 | 37 | title(['$',latex_{h_},'$'],'Interpreter','LateX'); 38 | set(gca,'FontSize',16) 39 | xlim([vec1(aa1) vec1(bb1)]); 40 | tix=get(gca,'ztick')'; 41 | set(gca,'zticklabel',num2str(tix,'%.2f')); 42 | end 43 | 44 | nlin = floor(sqrt(par.nv+2)); 45 | ncol = ceil((par.nv+2)/nlin); 46 | 47 | % value = {'vi','vh','vi_','vh_','q_','q0'}; 48 | 49 | ylvd = [0 0 0 0 0.5 0.5]; 50 | ylvu = [1000 3 2 2 1.5 1.5]; 51 | 52 | figure(3); clf(3); 53 | for v=1:par.nv 54 | subplot(nlin,ncol,v); hold on 55 | 56 | eval(['Zq = squeeze(V0(par.V.i',value{v},',:,:));']) 57 | 58 | plot(vec1,Zq); grid on; 59 | xlim([vec1(aa1) vec1(bb1)]); 60 | % ylim([ylvd(v) ylvu(v)]); 61 | 62 | xlabel(latexs{1},'Interpreter','LateX'); 63 | 64 | title(['$',latexv{v},'$'],'Interpreter','LateX'); 65 | set(gca,'FontSize',16) 66 | 67 | tix=get(gca,'ztick')'; 68 | set(gca,'zticklabel',num2str(tix,'%.2f')); 69 | end 70 | 71 | if exist('rrvi') 72 | v = v+1; 73 | subplot(nlin,ncol,v); hold on 74 | Zq = squeeze(squeeze(reshape(rrvi,[1 par.dim]))) - squeeze(squeeze(reshape(uuvi,[1 par.dim])))./vvi; 75 | 76 | plot(vec1,Zq); grid on; 77 | 78 | xlabel(latexs{1},'Interpreter','LateX'); 79 | 80 | title(['$\mu^\theta$'],'Interpreter','LateX'); 81 | set(gca,'FontSize',16) 82 | xlim([vec1(aa1) vec1(bb1)]); 83 | tix=get(gca,'ztick')'; 84 | set(gca,'zticklabel',num2str(tix,'%.2f')); 85 | end 86 | 87 | % v = v+1; 88 | % subplot(nlin,ncol,v); hold on 89 | % nb_ = squeeze(X_(par.X_.inb_,:,:)); 90 | % nh_ = squeeze(X_(par.X_.inh_,:,:)); 91 | % 92 | % plot(vec1,nb_,'r',vec1,nh_,'b'); grid on; 93 | % 94 | % xlabel('$\eta$','Interpreter','LateX'); 95 | % 96 | % % title(['$\mu^\theta$'],'Interpreter','LateX'); 97 | % set(gca,'FontSize',16) 98 | % xlim([vec1(aa1) vec1(bb1)]); 99 | % tix=get(gca,'ztick')'; 100 | % set(gca,'zticklabel',num2str(tix,'%.2f')); 101 | % 102 | % eta_ = squeeze(X_(par.X_.ieta_,:,:)) 103 | % nb_.*vec1./(nb_.*vec1+nh_.*(1-vec1)) - eta_ 104 | % 105 | % 106 | % nb_.*vec1+nh_.*(1-vec1) - q_.*squeeze(X_(par.X_.iEomega1,:,:)) 107 | 108 | % if strcmp(par.savegraph_,'on') 109 | % set(gcf,'PaperPosition', [0 0 12 12]); 110 | % set(gcf,'PaperSize', [12 12]); 111 | % filename = [par.name,'_theta_',num2str(par.theta,'%0.0f')]; 112 | % 113 | % cdtmp = cd; 114 | % cd .. 115 | % cd .. 116 | % graphpath = [pwd,'/graphs/']; 117 | % cd(cdtmp) 118 | % 119 | % saveas(gcf,[graphpath,filename],'pdf') 120 | % end 121 | 122 | 123 | -------------------------------------------------------------------------------- /core/plottest.asv: -------------------------------------------------------------------------------- 1 | 2 | figure(1); clf(1); 3 | hold on 4 | vv_x = v_x/norm(v_x); 5 | vv_xp = v_xp/norm(v_xp); 6 | vv_xpp = v_xpp/norm(v_xpp); 7 | 8 | vv_ap = v_ap/norm(v_ap); 9 | vv_ah = v_ah/norm(v_ah); 10 | vv_n = v_n/norm(v_n); 11 | vv_np = v_np/norm(v_np); 12 | 13 | tmp = [(vv_ap(1)-vv_ah(1)) 14 | (vv_ap(2)-vv_ah(2)) 15 | (vv_ap(3)-vv_ah(3))]; 16 | tmp(isinf(tmp)) = 0; 17 | 18 | mt = norm(tmp); 19 | t = linspace(0,mt,100); 20 | vx = vv_ah(1)+t*vv_n(1); 21 | vy = vv_ah(2)+t*vv_n(2); 22 | vz = vv_ah(3)+t*vv_n(3); 23 | 24 | tt = Pfun(vv_n,zeros(3,1),vv_ah); 25 | 26 | lh = plot3(vx,vy,vz,'r','Linewidth',1); 27 | ph = plot3(vx(end),vy(end),vz(end),'*r'); 28 | ph = plot3(tt(1),tt(2),tt(3),'*k'); 29 | 30 | xx = linspace(-2,2,2); 31 | yy = linspace(-2,2,2); 32 | zz = linspace(-2,2,2); 33 | 34 | if vv_n(3)~=0 35 | [x,y] = meshgrid(xx,yy); 36 | z = (-x*vv_n(1) -y*vv_n(2))/vv_n(3); 37 | else 38 | [x,z] = meshgrid(xx,zz); 39 | y = -x*vv_n(1)/vv_n(2); 40 | end 41 | surf(x,y,z) 42 | 43 | if vv_np(3)~=0 44 | [x,y] = meshgrid(xx,yy); 45 | z = (-x*vv_np(1) -y*vv_np(2))/vv_np(3); 46 | else 47 | [x,z] = meshgrid(xx,zz); 48 | y = -x*vv_np(1)/vv_np(2); 49 | end 50 | surf(x,y,z) 51 | 52 | plot3(vv_ap(1),vv_ap(2),vv_ap(3),'or') 53 | plot3(vv_ah(1),vv_ah(2),vv_ah(3),'*b') 54 | 55 | plot3(vv_x(1),vv_x(2),vv_x(3),'ok') 56 | plot3(vv_xp(1),vv_xp(2),vv_xp(3),'ok') 57 | plot3(vv_xpp(1),vv_xpp(2),vv_xpp(3),'ok') 58 | 59 | Cone([0 0 0],[1/2 0 1/2],[0 sqrt(1/2)],100,'b',1,0); 60 | alpha(0.1) 61 | 62 | view([120 40]) 63 | axis equal 64 | grid on 65 | 66 | xlim([0 1.25]) 67 | ylim([-1 1]) 68 | zlim([min([0 vv_ap(3)]) 1.25]) 69 | 70 | xlabel('x') 71 | ylabel('y') 72 | zlabel('z') 73 | 74 | pause -------------------------------------------------------------------------------- /core/plottest.m: -------------------------------------------------------------------------------- 1 | 2 | figure(1); clf(1); 3 | hold on 4 | vv_x = v_x/norm(v_x); 5 | vv_xp = v_xp/norm(v_xp); 6 | vv_xpp = v_xpp/norm(v_xpp); 7 | 8 | vv_ah = v_ah/norm(v_ah); 9 | vv_n = v_n/norm(v_n); 10 | vv_np = v_np/norm(v_np); 11 | vv_ap = Pfun(vv_n,zeros(3,1),vv_ah); 12 | 13 | tmp = [(vv_ap(1)-vv_ah(1)) 14 | (vv_ap(2)-vv_ah(2)) 15 | (vv_ap(3)-vv_ah(3))]; 16 | 17 | mt = norm(tmp); 18 | t = linspace(0,mt,100); 19 | vx = vv_ah(1)+t*vv_n(1); 20 | vy = vv_ah(2)+t*vv_n(2); 21 | vz = vv_ah(3)+t*vv_n(3); 22 | 23 | lh = plot3(vx,vy,vz,'r','Linewidth',1); 24 | % ph = plot3(vx(end),vy(end),vz(end),'*r'); 25 | 26 | xx = linspace(-2,2,2); 27 | yy = linspace(-2,2,2); 28 | zz = linspace(-2,2,2); 29 | 30 | if vv_n(3)~=0 31 | [x,y] = meshgrid(xx,yy); 32 | z = (-x*vv_n(1) -y*vv_n(2))/vv_n(3); 33 | else 34 | [x,z] = meshgrid(xx,zz); 35 | y = -x*vv_n(1)/vv_n(2); 36 | end 37 | surf(x,y,z) 38 | 39 | if vv_np(3)~=0 40 | [x,y] = meshgrid(xx,yy); 41 | z = (-x*vv_np(1) -y*vv_np(2))/vv_np(3); 42 | else 43 | [x,z] = meshgrid(xx,zz); 44 | y = -x*vv_np(1)/vv_np(2); 45 | end 46 | surf(x,y,z) 47 | 48 | v_npp = cross(v_xp,v_xpp); 49 | vv_npp = v_npp/norm(v_np); 50 | if vv_npp(3)~=0 51 | [x,y] = meshgrid(xx,yy); 52 | z = (-x*vv_npp(1) -y*vv_npp(2))/vv_npp(3); 53 | else 54 | [x,z] = meshgrid(xx,zz); 55 | y = -x*vv_npp(1)/vv_npp(2); 56 | end 57 | surf(x,y,z) 58 | 59 | plot3(vv_ap(1),vv_ap(2),vv_ap(3),'or') 60 | plot3(vv_ah(1),vv_ah(2),vv_ah(3),'*b') 61 | 62 | plot3(vv_x(1),vv_x(2),vv_x(3),'ok') 63 | plot3(vv_xp(1),vv_xp(2),vv_xp(3),'ok') 64 | plot3(vv_xpp(1),vv_xpp(2),vv_xpp(3),'ok') 65 | 66 | Cone([0 0 0],[1/2 0 1/2],[0 sqrt(1/2)],100,'b',1,0); 67 | alpha(0.1) 68 | 69 | view([120 40]) 70 | axis equal 71 | grid on 72 | 73 | xlim([0 1.25]) 74 | ylim([-1 1]) 75 | zlim([min([0 vv_ap(3)]) 1.25]) 76 | 77 | xlabel('x') 78 | ylabel('y') 79 | zlabel('z') 80 | 81 | pause -------------------------------------------------------------------------------- /core/reform.m: -------------------------------------------------------------------------------- 1 | function F = reform(f,par) 2 | 3 | ndim = size(f,1); 4 | Ftmp = reshape(f,[ndim par.dim]); 5 | 6 | F = cell(4,1); 7 | 8 | F{1} = squeeze(Ftmp(1,:,1)); 9 | F{2} = squeeze(Ftmp(1,:,end)); 10 | 11 | if ndim>1 12 | F{3} = squeeze(Ftmp(2,1,:))'; 13 | F{4} = squeeze(Ftmp(2,end,:))'; 14 | else 15 | F{3} = squeeze(Ftmp(1,1,:))'; 16 | F{4} = squeeze(Ftmp(1,end,:))'; 17 | end 18 | 19 | -------------------------------------------------------------------------------- /core/searchgrid.m: -------------------------------------------------------------------------------- 1 | function [] = searchgrid(name,param,grid,varargin) 2 | % This file computes the solution method of d'Avernas and Vandeweyer (2018) 3 | % written by Adrien d'Avernas 4 | % 2019 d'Avernas and Vandeweyer all rights reserved 5 | 6 | set(0,'DefaultFigureWindowStyle','docked') 7 | warning('off','MATLAB:interp2:NaNstrip') 8 | 9 | p = inputParser; 10 | addRequired(p,'name',@ischar); 11 | addRequired(p,'param',@ischar); 12 | parse(p,name,param); 13 | 14 | par = p.Results; 15 | 16 | modfile = regexp(fileread(['mod_',name,'.m']),'\n','split'); 17 | line_par_beg = find(contains(modfile,'%% PARAMETERS')); 18 | line_par_end = find(contains(modfile,'%% VARIABLES')); 19 | linepar = find(contains(modfile(line_par_beg:line_par_end),['par.',param,' ='])); 20 | 21 | par.tmpFolder = ['tmp_',name]; 22 | if ~exist(par.tmpFolder, 'dir') 23 | mkdir(par.tmpFolder) 24 | end 25 | 26 | figure(3); clf(3); 27 | for jj=1:length(grid) 28 | cd(par.tmpFolder) 29 | fid = fopen(['mod_',par.name,'_search.m'],'w'); 30 | for ii=1:length(modfile) 31 | if ii==linepar 32 | fprintf(fid,'%s\n',['par.',param,' = ',num2str(grid(jj)),';']); 33 | else 34 | fprintf(fid,'%s\n',modfile{ii}); 35 | end 36 | end 37 | fclose(fid); 38 | cd .. 39 | 40 | varargin = [varargin(:)',{'search'},{'on'}]; 41 | 42 | solvemod(name,varargin{:}) 43 | 44 | plot_Orchad 45 | end 46 | 47 | % searchgrid('Orchad','gammai',[1.2 1.3],'dimensions','1D','guess','on','loop','off','write','off','debug','on','outerplot','on') -------------------------------------------------------------------------------- /core/vecfun.m: -------------------------------------------------------------------------------- 1 | function vec = vecfun(A) 2 | 3 | vec = [A(1,1); sqrt(2)*A(1,2); A(2,2)]; -------------------------------------------------------------------------------- /core/writefun.m: -------------------------------------------------------------------------------- 1 | function [dFvars,Fvars,Xvars,Lvars,CCvars] = writefun(param,state,delta,value,... 2 | vars,vars_,last,varl0,varm1,varm2,varp1,varp2,bnd,cstv,par) 3 | 4 | %% Parameters 5 | [~,npr] = size(param); 6 | for ip=1:npr 7 | eval([param{ip},' = par.',param{ip},';']) 8 | end 9 | 10 | ns = par.ns; 11 | nd = par.nd; 12 | nv = par.nv; 13 | nx = par.nx; 14 | nx_ = par.nx_; 15 | nl = par.nl; 16 | ncc = par.ncc; 17 | np = par.np; 18 | 19 | if par.ns==1 20 | all = [param,state,delta,value,vars,vars_,varl0,varm1,varp1]; 21 | for i=1:np+ns+nd+nv+nx+nx_+3*nl 22 | eval([all{i},' = sym(''',all{i},''');']) 23 | end 24 | elseif par.ns==2 25 | all = [param,state,delta,value,vars,vars_,varl0,varm1,varm2,varp1,varp2]; 26 | for i=1:np+ns+nd+nv+nx+nx_+5*nl 27 | eval([all{i},' = sym(''',all{i},''');']) 28 | end 29 | end 30 | 31 | Vzero = sym('Vzero'); 32 | Vone = sym('Vone'); 33 | 34 | %% System of Equations for derivatives of prices 35 | mod_differences 36 | 37 | %% model equations: 38 | mod_model 39 | 40 | %% 41 | CC = []; 42 | for icc=1:ncc 43 | eval(['CC = [CC;eq',cstv{icc},'*diff(eq',cstv{icc},',',cstv{icc},')];']) 44 | end 45 | 46 | F = []; 47 | for ix=1:nx 48 | eval(['F = [F;eq',vars{ix},' + Vzero];']) 49 | end 50 | 51 | dF = []; 52 | for ix=1:nx 53 | eval(['dF = [dF diff(F,',vars{ix},')];']) 54 | end 55 | 56 | X_ = []; 57 | for ix=1:nx_ 58 | eval(['X_ = [X_;',vars_{ix},' + Vzero];']) 59 | end 60 | 61 | L = []; 62 | for il=1:nl 63 | eval(['L = [L;',last{il},' + Vzero];']) 64 | end 65 | 66 | dFvars = symvar(dF); 67 | Fvars = symvar(F); 68 | Xvars = symvar(X_); 69 | Lvars = symvar(L); 70 | CCvars = symvar(CC); 71 | 72 | cd(par.tmpFolder) 73 | eval(['matlabFunction(dF,''File'',''dFfun',bnd,'_'',''Optimize'',false,''Vars'',dFvars);']) 74 | eval(['matlabFunction(F,''File'',''Ffun',bnd,'_'',''Optimize'',false,''Vars'',Fvars);']) 75 | eval(['matlabFunction(X_,''File'',''Xfun',bnd,'_'',''Optimize'',false,''Vars'',Xvars);']) 76 | eval(['matlabFunction(L,''File'',''Lfun',bnd,'_'',''Optimize'',false,''Vars'',Lvars);']) 77 | if ~isempty(CC) 78 | eval(['matlabFunction(CC,''File'',''CCfun',bnd,'_'',''Optimize'',false,''Vars'',CCvars);']) 79 | end 80 | cd('..') 81 | 82 | 83 | -------------------------------------------------------------------------------- /core/writemod.m: -------------------------------------------------------------------------------- 1 | 2 | par.tmpFolder = ['tmp_',par.name]; 3 | if not(isfolder(par.tmpFolder)) 4 | mkdir(par.tmpFolder) 5 | end 6 | 7 | path_tmp = regexp(path,';','split'); 8 | if any(find(contains(path_tmp,[pwd,'\tmp_']))) 9 | itmp = find(contains(path_tmp,[pwd,'\tmp_'])); 10 | for ip = 1:length(itmp) 11 | rmpath(path_tmp{itmp(ip)}); 12 | end 13 | end 14 | 15 | if ispc 16 | addpath([pwd,'\',par.tmpFolder]) 17 | else 18 | addpath([pwd,'/',par.tmpFolder]) 19 | end 20 | 21 | if strcmp(par.search,'off') 22 | modfile = regexp(fileread(['mod_',par.name,'.m']),'\n','split'); 23 | elseif strcmp(par.search,'on') 24 | modfile = regexp(fileread([par.tmpFolder,'/mod_',par.name,'_search.m']),'\n','split'); 25 | end 26 | 27 | parfile = regexp(fileread(['par_',par.name,'.m']),'\n','split'); 28 | 29 | linepar = find(contains(modfile,'%% PARAMETERS')); 30 | linevar = find(contains(modfile,'%% VARIABLES')); 31 | linegue = find(contains(modfile,'%% GUESS')); 32 | linemod = find(contains(modfile,'%% MODEL')); 33 | linecon = find(contains(modfile,'%% CONSTRAINTS')); 34 | linesol = find(contains(parfile,'%% SOLVER PARAMETERS')); 35 | 36 | cd(par.tmpFolder) 37 | fid = fopen('mod_parameters.m','w'); 38 | for i=linepar+1:linevar-1 39 | fprintf(fid,'%s',modfile{i}); 40 | fprintf(fid,'\n'); 41 | end 42 | fclose(fid); 43 | 44 | fid = fopen('mod_variables.m','w'); 45 | for i=linevar+1:linegue-1 46 | fprintf(fid,'%s',modfile{i}); 47 | fprintf(fid,'\n'); 48 | end 49 | fclose(fid); 50 | 51 | fid = fopen('mod_guess.m','w'); 52 | for i=linegue+1:linemod-1 53 | fprintf(fid,'%s',modfile{i}); 54 | fprintf(fid,'\n'); 55 | end 56 | fclose(fid); 57 | 58 | fid = fopen('mod_model.m','w'); 59 | for i=linemod+1:linecon-1 60 | fprintf(fid,'%s',modfile{i}); 61 | fprintf(fid,'\n'); 62 | end 63 | fclose(fid); 64 | 65 | fid = fopen('mod_constraints.m','w'); 66 | for i=linecon+1:length(modfile) 67 | fprintf(fid,'%s',modfile{i}); 68 | fprintf(fid,'\n'); 69 | end 70 | fclose(fid); 71 | 72 | fid = fopen('par_solver.m','w'); 73 | for i=linesol+1:length(parfile) 74 | fprintf(fid,'%s',parfile{i}); 75 | fprintf(fid,'\n'); 76 | end 77 | fclose(fid); 78 | 79 | cd .. 80 | -------------------------------------------------------------------------------- /core/xxfun.m: -------------------------------------------------------------------------------- 1 | SS = reshape(S,par.ns,par.N); 2 | DD = reshape(D,par.nd,par.N); 3 | VV = reshape(V0,par.nv,par.N); 4 | XX = reshape(X0,par.nx,par.N); 5 | LL0 = reshape(L0,par.nl,par.N); 6 | MM1 = reshape(M1,par.nl,par.N); 7 | MM2 = reshape(M2,par.nl,par.N); 8 | PP1 = reshape(P1,par.nl,par.N); 9 | PP2 = reshape(P2,par.nl,par.N); 10 | 11 | XX_ = Xfun11(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par); 12 | X_ = squeeze(reshape(XX_,[par.nx_ par.dim])); 13 | 14 | Xtmp = squeeze(reshape(Xfun00(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 15 | X_(:,1,1) = Xtmp(:,1,1); 16 | 17 | Xtmp = squeeze(reshape(Xfun01(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 18 | X_(:,1,2:end-1) = Xtmp(:,1,2:end-1); 19 | 20 | Xtmp = squeeze(reshape(Xfun02(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 21 | X_(:,1,end) = Xtmp(:,1,end); 22 | 23 | Xtmp = squeeze(reshape(Xfun10(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 24 | X_(:,2:end-1,1) = Xtmp(:,2:end-1,1); 25 | 26 | Xtmp = squeeze(reshape(Xfun12(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 27 | X_(:,2:end-1,end) = Xtmp(:,2:end-1,end); 28 | 29 | Xtmp = squeeze(reshape(Xfun20(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 30 | X_(:,end,1) = Xtmp(:,end,1); 31 | 32 | Xtmp = squeeze(reshape(Xfun21(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 33 | X_(:,end,2:end-1) = Xtmp(:,end,2:end-1); 34 | 35 | Xtmp = squeeze(reshape(Xfun22(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 36 | X_(:,end,end) = Xtmp(:,end,end); 37 | 38 | if vtmp==0 39 | X_ = squeeze(reshape(Xfun33(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 40 | end 41 | 42 | XX_ = reshape(X_,par.nx_,par.N); 43 | 44 | 45 | 46 | 47 | -------------------------------------------------------------------------------- /files/example_01_model_BruSan.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/adavernas/toolbox/2f19cb05705292992c0c9a9aba53b477a20e0406/files/example_01_model_BruSan.pdf -------------------------------------------------------------------------------- /files/example_02_model_DiTella.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/adavernas/toolbox/2f19cb05705292992c0c9a9aba53b477a20e0406/files/example_02_model_DiTella.pdf -------------------------------------------------------------------------------- /files/initpath.m: -------------------------------------------------------------------------------- 1 | cdtmp = cd; 2 | cd .. 3 | addpath([pwd,'/core']) 4 | cd(cdtmp) 5 | 6 | cdtmp = cd; 7 | cd .. 8 | addpath([pwd,'/files']) 9 | cd(cdtmp) -------------------------------------------------------------------------------- /files/par_BruSan.m: -------------------------------------------------------------------------------- 1 | %% SOLVER PARAMETERS 2 | 3 | % STATIC LOOP 4 | par.minI = 2; % necessary for the constraints to have time to adjust 5 | par.maxI = 10000; 6 | par.tolI = 1e-6; % make sure that par.tolI is not higher than par.tolK 7 | 8 | % OUTER STATIC LOOP: to update the derivatives using past iterations 9 | par.minK = 2; 10 | par.maxK = 100; 11 | par.tolK = 1e-4; 12 | 13 | par.damp1 = 0.10; 14 | par.damp1_ = 1.0; 15 | par.dampm1 = 0.0; 16 | 17 | par.damp2 = 0.10; 18 | par.damp2_ = 1.0; 19 | par.dampm2 = 0.0; 20 | 21 | % HJB LOOP: to update the derivatives using past iterations 22 | par.minT1 = 1000; 23 | par.minT2 = 10; 24 | 25 | par.maxT = 1000; 26 | par.tolT = 0.01; 27 | 28 | % with implicit method, dt can be large; however, it cannot be too big since we use guesses in the static 29 | % loop; if there are convergence issues, reduce dt and try again; dt2 should be small 30 | par.dt = 0.20; 31 | par.dt2 = 0.20; 32 | 33 | % STENCIL 34 | par.maxD = 1000; 35 | par.tolD = 1e-4; 36 | 37 | % maxP refers to how far we go in the direction in stencil; refer to the algorithm in paper for details 38 | par.maxP = 4; 39 | par.nextr = 10; % taille de l'extrapolation 40 | 41 | % STATE VARIABLES GRID 42 | vec1a = 0.01; 43 | vec1b = 0.99; 44 | vec2a = 0.01; 45 | vec2b = 0.99; 46 | 47 | par.n1 = 50; 48 | par.n2 = 50; 49 | 50 | vec1 = linspace(vec1a,vec1b,par.n1); % linear spacing is generally more stable 51 | vec2 = linspace(vec2a,vec2b,par.n2); 52 | 53 | -------------------------------------------------------------------------------- /files/par_DiTella.m: -------------------------------------------------------------------------------- 1 | %% SOLVER PARAMETERS 2 | 3 | par.dispT = 1; 4 | 5 | par.write_con = 'on'; 6 | par.plotall = 'off'; 7 | par.savegraph = 'off'; 8 | par.savegraph = 'on'; 9 | 10 | % STATIC LOOP 11 | par.minI = 2; % necessary for the constraints to have time to adjust 12 | par.maxI = 10000; 13 | par.tolI = 1e-6; % make sure that par.tolI is not higher than par.tolK 14 | 15 | % OUTER STATIC LOOP: to update the derivatives using past iterations 16 | par.minK = 2; 17 | par.maxK = 100; 18 | par.tolK = 1e-4; 19 | 20 | par.damp1 = 0.1; 21 | par.damp1_ = 0.0; 22 | par.dampm1 = 0.0; 23 | 24 | par.damp2 = 0.1; 25 | par.damp2_ = 0.0; 26 | par.dampm2 = 0.0; 27 | 28 | % HJB LOOP: to update the derivatives using past iterations 29 | par.minT1 = 10; 30 | par.minT2 = 10; 31 | 32 | par.maxT = 1000; 33 | par.tolT = 0.01; 34 | 35 | % with implicit method, dt can be large; however, it cannot be too big since we use guesses in the static 36 | % loop; if there are convergence issues, reduce dt and try again; dt2 should be small 37 | par.dt = 10; 38 | par.dt2 = 10; 39 | 40 | % STENCIL 41 | par.maxD = 1000; 42 | par.tolD = 1e-4; 43 | 44 | % maxP refers to how far we go in the direction in stencil; refer to the algorithm in paper for details 45 | par.maxP = 2; 46 | par.nextr = par.maxP; % taille de l'extrapolation 47 | 48 | % STATE VARIABLES GRID 49 | vec1a = 0.01; 50 | vec1b = 0.99; 51 | vec2a = 0.01; 52 | vec2b = 0.99; 53 | 54 | par.n1 = 30; 55 | par.n2 = 30; 56 | 57 | vec1 = linspace(vec1a,vec1b,par.n1); % linear spacing is generally more stable 58 | vec2 = linspace(vec2a,vec2b,par.n2); 59 | 60 | -------------------------------------------------------------------------------- /files/sol_BruSan/guess.mat: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/adavernas/toolbox/2f19cb05705292992c0c9a9aba53b477a20e0406/files/sol_BruSan/guess.mat -------------------------------------------------------------------------------- /files/sol_BruSan/sol_gammai_200_gammah_300_ai_10_ah_10_rhoi_4_rhoh_4_sigz_10_sigbar_10_deltai_4_deltah_4_kappa_p_200_kappa_z_100_zetai_115_zetah_115.mat: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/adavernas/toolbox/2f19cb05705292992c0c9a9aba53b477a20e0406/files/sol_BruSan/sol_gammai_200_gammah_300_ai_10_ah_10_rhoi_4_rhoh_4_sigz_10_sigbar_10_deltai_4_deltah_4_kappa_p_200_kappa_z_100_zetai_115_zetah_115.mat -------------------------------------------------------------------------------- /files/sol_DiTella/guess.mat: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/adavernas/toolbox/2f19cb05705292992c0c9a9aba53b477a20e0406/files/sol_DiTella/guess.mat -------------------------------------------------------------------------------- /files/sol_DiTella/sol_gammai_500_ai_10_ah_10_rhoi_7_rhoh_7_sigz_5_vbar_10_deltai_4_deltah_4_kappa_p_200_kappa_z_100_zetai_101_zetah_101_psii_99_phii__10_tauu_10_lambda_100_sigma_1_A_500_B_200.mat: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/adavernas/toolbox/2f19cb05705292992c0c9a9aba53b477a20e0406/files/sol_DiTella/sol_gammai_500_ai_10_ah_10_rhoi_7_rhoh_7_sigz_5_vbar_10_deltai_4_deltah_4_kappa_p_200_kappa_z_100_zetai_101_zetah_101_psii_99_phii__10_tauu_10_lambda_100_sigma_1_A_500_B_200.mat -------------------------------------------------------------------------------- /files/tmp_BruSan/CCfun00.m: -------------------------------------------------------------------------------- 1 | function F = CCfun00(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun00_; -------------------------------------------------------------------------------- /files/tmp_BruSan/CCfun01.m: -------------------------------------------------------------------------------- 1 | function F = CCfun01(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun01_; -------------------------------------------------------------------------------- /files/tmp_BruSan/CCfun02.m: -------------------------------------------------------------------------------- 1 | function F = CCfun02(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun02_; -------------------------------------------------------------------------------- /files/tmp_BruSan/CCfun10.m: -------------------------------------------------------------------------------- 1 | function F = CCfun10(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun10_; -------------------------------------------------------------------------------- /files/tmp_BruSan/CCfun11.m: -------------------------------------------------------------------------------- 1 | function F = CCfun11(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun11_; -------------------------------------------------------------------------------- /files/tmp_BruSan/CCfun12.m: -------------------------------------------------------------------------------- 1 | function F = CCfun12(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun12_; -------------------------------------------------------------------------------- /files/tmp_BruSan/CCfun20.m: -------------------------------------------------------------------------------- 1 | function F = CCfun20(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun20_; -------------------------------------------------------------------------------- /files/tmp_BruSan/CCfun21.m: -------------------------------------------------------------------------------- 1 | function F = CCfun21(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun21_; -------------------------------------------------------------------------------- /files/tmp_BruSan/CCfun22.m: -------------------------------------------------------------------------------- 1 | function F = CCfun22(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun22_; -------------------------------------------------------------------------------- /files/tmp_BruSan/CCfun33.m: -------------------------------------------------------------------------------- 1 | function F = CCfun33(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun33_; -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun00.m: -------------------------------------------------------------------------------- 1 | function F = Ffun00(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun00_(Vzero,P(4),P(3),P(10),P(9),D(3),S(1),P(2),P(1),P(11),X(3),X(2),X(1),P1(3),P1(2),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun00_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun00_(Vzero,ah,ai,deltah,deltai,dpe,e,gammah,gammai,kappa_p,mue,psii,q,qeepe,qepe,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %FFUN00_ 3 | % F = FFUN00_(VZERO,AH,AI,DELTAH,DELTAI,DPE,E,GAMMAH,GAMMAI,KAPPA_P,MUE,PSII,Q,QEEPE,QEPE,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:19 7 | 8 | F = [Vzero-q.*(vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)-e.*vi.^((zetai-1.0)./(gammai-1.0)))-psii.*(ai-(q-1.0)./kappa_p)+(ah-(q-1.0)./kappa_p).*(psii-1.0);Vzero+deltah-deltai-sigqs.*((sigz.*vzh.*z)./vh-(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh)+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)-(ah-(q-1.0)./kappa_p)./q+(ai-(q-1.0)./kappa_p)./q+(gammah.*(psii-1.0).*((sigqk+z).^2+sigqs.^2))./(e-1.0)-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*veh.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-deltai-mue+log(q)./kappa_p-vi.^((zetai-1.0)./(gammai-1.0))+psii.*(deltai-log(q)./kappa_p)+(sigqk+z).^2./2.0+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+sigqs.^2./2.0+(ai-(q-1.0)./kappa_p)./q-(deltah-log(q)./kappa_p).*(psii-1.0)+(psii.*(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi))./e-(psii.*(sigqk+z).^2)./e-(psii.*sigqs.^2)./e-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-q.*sigqk-e.*(qepe-dpe.*qeepe).*(sigqk+z-(psii.*(sigqk+z))./e);Vzero-q.*sigqs-e.*(qepe-dpe.*qeepe).*(sigqs-(psii.*sigqs)./e)]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun01.m: -------------------------------------------------------------------------------- 1 | function F = Ffun01(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun01_(Vzero,P(4),P(3),P(10),P(9),D(2),D(3),D(4),S(1),P(2),P(1),P(11),X(3),X(2),X(1),P1(3),P1(2),M2(1),P2(1),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun01_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun01_(Vzero,ah,ai,deltah,deltai,dmz,dpe,dpz,e,gammah,gammai,kappa_p,mue,psii,q,qeepe,qepe,qmz,qpz,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %FFUN01_ 3 | % F = FFUN01_(VZERO,AH,AI,DELTAH,DELTAI,DMZ,DPE,DPZ,E,GAMMAH,GAMMAI,KAPPA_P,MUE,PSII,Q,QEEPE,QEPE,QMZ,QPZ,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:21 7 | 8 | F = [Vzero-q.*(vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)-e.*vi.^((zetai-1.0)./(gammai-1.0)))-psii.*(ai-(q-1.0)./kappa_p)+(ah-(q-1.0)./kappa_p).*(psii-1.0);Vzero+deltah-deltai-sigqs.*((sigz.*vzh.*z)./vh-(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh)+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)-(ah-(q-1.0)./kappa_p)./q+(ai-(q-1.0)./kappa_p)./q+(gammah.*(psii-1.0).*((sigqk+z).^2+sigqs.^2))./(e-1.0)-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*veh.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-deltai-mue+log(q)./kappa_p-vi.^((zetai-1.0)./(gammai-1.0))+psii.*(deltai-log(q)./kappa_p)+(sigqk+z).^2./2.0+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+sigqs.^2./2.0+(ai-(q-1.0)./kappa_p)./q-(deltah-log(q)./kappa_p).*(psii-1.0)+(psii.*(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi))./e-(psii.*(sigqk+z).^2)./e-(psii.*sigqs.^2)./e-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-q.*sigqk-e.*(qepe-dpe.*qeepe).*(sigqk+z-(psii.*(sigqk+z))./e);Vzero-q.*sigqs-e.*(qepe-dpe.*qeepe).*(sigqs-(psii.*sigqs)./e)-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun02.m: -------------------------------------------------------------------------------- 1 | function F = Ffun02(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun02_(Vzero,P(4),P(3),P(10),P(9),D(2),D(3),S(1),P(2),P(1),P(11),X(3),X(2),X(1),P1(3),P1(2),M2(5),M2(6),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun02_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun02_(Vzero,ah,ai,deltah,deltai,dmz,dpe,e,gammah,gammai,kappa_p,mue,psii,q,qeepe,qepe,qzmz,qzzmz,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %FFUN02_ 3 | % F = FFUN02_(VZERO,AH,AI,DELTAH,DELTAI,DMZ,DPE,E,GAMMAH,GAMMAI,KAPPA_P,MUE,PSII,Q,QEEPE,QEPE,QZMZ,QZZMZ,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:22 7 | 8 | F = [Vzero-q.*(vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)-e.*vi.^((zetai-1.0)./(gammai-1.0)))-psii.*(ai-(q-1.0)./kappa_p)+(ah-(q-1.0)./kappa_p).*(psii-1.0);Vzero+deltah-deltai-sigqs.*((sigz.*vzh.*z)./vh-(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh)+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)-(ah-(q-1.0)./kappa_p)./q+(ai-(q-1.0)./kappa_p)./q+(gammah.*(psii-1.0).*((sigqk+z).^2+sigqs.^2))./(e-1.0)-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*veh.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-deltai-mue+log(q)./kappa_p-vi.^((zetai-1.0)./(gammai-1.0))+psii.*(deltai-log(q)./kappa_p)+(sigqk+z).^2./2.0+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+sigqs.^2./2.0+(ai-(q-1.0)./kappa_p)./q-(deltah-log(q)./kappa_p).*(psii-1.0)+(psii.*(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi))./e-(psii.*(sigqk+z).^2)./e-(psii.*sigqs.^2)./e-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-q.*sigqk-e.*(qepe-dpe.*qeepe).*(sigqk+z-(psii.*(sigqk+z))./e);Vzero-q.*sigqs+sigz.*z.*(qzmz+dmz.*qzzmz)-e.*(qepe-dpe.*qeepe).*(sigqs-(psii.*sigqs)./e)]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun10.m: -------------------------------------------------------------------------------- 1 | function F = Ffun10(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun10_(Vzero,P(4),P(3),P(10),P(9),D(1),D(3),S(1),P(2),P(1),P(11),X(3),X(2),X(1),M1(1),P1(1),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun10_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun10_(Vzero,ah,ai,deltah,deltai,dme,dpe,e,gammah,gammai,kappa_p,mue,psii,q,qme,qpe,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %FFUN10_ 3 | % F = FFUN10_(VZERO,AH,AI,DELTAH,DELTAI,DME,DPE,E,GAMMAH,GAMMAI,KAPPA_P,MUE,PSII,Q,QME,QPE,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:24 7 | 8 | F = [Vzero-q.*(vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)-e.*vi.^((zetai-1.0)./(gammai-1.0)))-psii.*(ai-(q-1.0)./kappa_p)+(ah-(q-1.0)./kappa_p).*(psii-1.0);Vzero+deltah-deltai-sigqs.*((sigz.*vzh.*z)./vh-(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh)+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)-(ah-(q-1.0)./kappa_p)./q+(ai-(q-1.0)./kappa_p)./q+(gammah.*(psii-1.0).*((sigqk+z).^2+sigqs.^2))./(e-1.0)-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*veh.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-deltai-mue+log(q)./kappa_p-vi.^((zetai-1.0)./(gammai-1.0))+psii.*(deltai-log(q)./kappa_p)+(sigqk+z).^2./2.0+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+sigqs.^2./2.0+(ai-(q-1.0)./kappa_p)./q-(deltah-log(q)./kappa_p).*(psii-1.0)+(psii.*(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi))./e-(psii.*(sigqk+z).^2)./e-(psii.*sigqs.^2)./e-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-q.*sigqk+(e.*(sigqk+z-(psii.*(sigqk+z))./e).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0);Vzero-q.*sigqs+(e.*(sigqs-(psii.*sigqs)./e).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun11.m: -------------------------------------------------------------------------------- 1 | function F = Ffun11(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun11_(Vzero,P(4),P(3),P(10),P(9),D(1),D(2),D(3),D(4),S(1),P(2),P(1),P(11),X(3),X(2),X(1),M1(1),M2(1),P1(1),P2(1),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun11_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun11_(Vzero,ah,ai,deltah,deltai,dme,dmz,dpe,dpz,e,gammah,gammai,kappa_p,mue,psii,q,qme,qmz,qpe,qpz,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %FFUN11_ 3 | % F = FFUN11_(VZERO,AH,AI,DELTAH,DELTAI,DME,DMZ,DPE,DPZ,E,GAMMAH,GAMMAI,KAPPA_P,MUE,PSII,Q,QME,QMZ,QPE,QPZ,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:26 7 | 8 | F = [Vzero-q.*(vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)-e.*vi.^((zetai-1.0)./(gammai-1.0)))-psii.*(ai-(q-1.0)./kappa_p)+(ah-(q-1.0)./kappa_p).*(psii-1.0);Vzero+deltah-deltai-sigqs.*((sigz.*vzh.*z)./vh-(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh)+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)-(ah-(q-1.0)./kappa_p)./q+(ai-(q-1.0)./kappa_p)./q+(gammah.*(psii-1.0).*((sigqk+z).^2+sigqs.^2))./(e-1.0)-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*veh.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-deltai-mue+log(q)./kappa_p-vi.^((zetai-1.0)./(gammai-1.0))+psii.*(deltai-log(q)./kappa_p)+(sigqk+z).^2./2.0+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+sigqs.^2./2.0+(ai-(q-1.0)./kappa_p)./q-(deltah-log(q)./kappa_p).*(psii-1.0)+(psii.*(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi))./e-(psii.*(sigqk+z).^2)./e-(psii.*sigqs.^2)./e-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-q.*sigqk+(e.*(sigqk+z-(psii.*(sigqk+z))./e).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0);Vzero-q.*sigqs-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)+(e.*(sigqs-(psii.*sigqs)./e).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun12.m: -------------------------------------------------------------------------------- 1 | function F = Ffun12(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun12_(Vzero,P(4),P(3),P(10),P(9),D(1),D(2),D(3),S(1),P(2),P(1),P(11),X(3),X(2),X(1),M1(1),P1(1),M2(5),M2(6),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun12_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun12_(Vzero,ah,ai,deltah,deltai,dme,dmz,dpe,e,gammah,gammai,kappa_p,mue,psii,q,qme,qpe,qzmz,qzzmz,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %FFUN12_ 3 | % F = FFUN12_(VZERO,AH,AI,DELTAH,DELTAI,DME,DMZ,DPE,E,GAMMAH,GAMMAI,KAPPA_P,MUE,PSII,Q,QME,QPE,QZMZ,QZZMZ,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:28 7 | 8 | F = [Vzero-q.*(vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)-e.*vi.^((zetai-1.0)./(gammai-1.0)))-psii.*(ai-(q-1.0)./kappa_p)+(ah-(q-1.0)./kappa_p).*(psii-1.0);Vzero+deltah-deltai-sigqs.*((sigz.*vzh.*z)./vh-(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh)+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)-(ah-(q-1.0)./kappa_p)./q+(ai-(q-1.0)./kappa_p)./q+(gammah.*(psii-1.0).*((sigqk+z).^2+sigqs.^2))./(e-1.0)-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*veh.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-deltai-mue+log(q)./kappa_p-vi.^((zetai-1.0)./(gammai-1.0))+psii.*(deltai-log(q)./kappa_p)+(sigqk+z).^2./2.0+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+sigqs.^2./2.0+(ai-(q-1.0)./kappa_p)./q-(deltah-log(q)./kappa_p).*(psii-1.0)+(psii.*(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi))./e-(psii.*(sigqk+z).^2)./e-(psii.*sigqs.^2)./e-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-q.*sigqk+(e.*(sigqk+z-(psii.*(sigqk+z))./e).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0);Vzero-q.*sigqs+sigz.*z.*(qzmz+dmz.*qzzmz)+(e.*(sigqs-(psii.*sigqs)./e).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun20.m: -------------------------------------------------------------------------------- 1 | function F = Ffun20(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun20_(Vzero,P(4),P(3),P(10),P(9),D(1),S(1),P(2),P(1),P(11),X(3),X(2),X(1),M1(3),M1(2),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun20_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun20_(Vzero,ah,ai,deltah,deltai,dme,e,gammah,gammai,kappa_p,mue,psii,q,qeeme,qeme,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %FFUN20_ 3 | % F = FFUN20_(VZERO,AH,AI,DELTAH,DELTAI,DME,E,GAMMAH,GAMMAI,KAPPA_P,MUE,PSII,Q,QEEME,QEME,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:30 7 | 8 | F = [Vzero-q.*(vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)-e.*vi.^((zetai-1.0)./(gammai-1.0)))-psii.*(ai-(q-1.0)./kappa_p)+(ah-(q-1.0)./kappa_p).*(psii-1.0);Vzero+deltah-deltai-sigqs.*((sigz.*vzh.*z)./vh-(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh)+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)-(ah-(q-1.0)./kappa_p)./q+(ai-(q-1.0)./kappa_p)./q+(gammah.*(psii-1.0).*((sigqk+z).^2+sigqs.^2))./(e-1.0)-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*veh.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-deltai-mue+log(q)./kappa_p-vi.^((zetai-1.0)./(gammai-1.0))+psii.*(deltai-log(q)./kappa_p)+(sigqk+z).^2./2.0+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+sigqs.^2./2.0+(ai-(q-1.0)./kappa_p)./q-(deltah-log(q)./kappa_p).*(psii-1.0)+(psii.*(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi))./e-(psii.*(sigqk+z).^2)./e-(psii.*sigqs.^2)./e-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-q.*sigqk-e.*(qeme+dme.*qeeme).*(sigqk+z-(psii.*(sigqk+z))./e);Vzero-q.*sigqs-e.*(qeme+dme.*qeeme).*(sigqs-(psii.*sigqs)./e)]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun21.m: -------------------------------------------------------------------------------- 1 | function F = Ffun21(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun21_(Vzero,P(4),P(3),P(10),P(9),D(1),D(2),D(4),S(1),P(2),P(1),P(11),X(3),X(2),X(1),M1(3),M1(2),M2(1),P2(1),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun21_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun21_(Vzero,ah,ai,deltah,deltai,dme,dmz,dpz,e,gammah,gammai,kappa_p,mue,psii,q,qeeme,qeme,qmz,qpz,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %FFUN21_ 3 | % F = FFUN21_(VZERO,AH,AI,DELTAH,DELTAI,DME,DMZ,DPZ,E,GAMMAH,GAMMAI,KAPPA_P,MUE,PSII,Q,QEEME,QEME,QMZ,QPZ,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:32 7 | 8 | F = [Vzero-q.*(vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)-e.*vi.^((zetai-1.0)./(gammai-1.0)))-psii.*(ai-(q-1.0)./kappa_p)+(ah-(q-1.0)./kappa_p).*(psii-1.0);Vzero+deltah-deltai-sigqs.*((sigz.*vzh.*z)./vh-(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh)+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)-(ah-(q-1.0)./kappa_p)./q+(ai-(q-1.0)./kappa_p)./q+(gammah.*(psii-1.0).*((sigqk+z).^2+sigqs.^2))./(e-1.0)-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*veh.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-deltai-mue+log(q)./kappa_p-vi.^((zetai-1.0)./(gammai-1.0))+psii.*(deltai-log(q)./kappa_p)+(sigqk+z).^2./2.0+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+sigqs.^2./2.0+(ai-(q-1.0)./kappa_p)./q-(deltah-log(q)./kappa_p).*(psii-1.0)+(psii.*(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi))./e-(psii.*(sigqk+z).^2)./e-(psii.*sigqs.^2)./e-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-q.*sigqk-e.*(qeme+dme.*qeeme).*(sigqk+z-(psii.*(sigqk+z))./e);Vzero-q.*sigqs-e.*(qeme+dme.*qeeme).*(sigqs-(psii.*sigqs)./e)-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun22.m: -------------------------------------------------------------------------------- 1 | function F = Ffun22(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun22_(Vzero,P(4),P(3),P(10),P(9),D(1),D(2),S(1),P(2),P(1),P(11),X(3),X(2),X(1),M1(3),M1(2),M2(5),M2(6),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun22_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun22_(Vzero,ah,ai,deltah,deltai,dme,dmz,e,gammah,gammai,kappa_p,mue,psii,q,qeeme,qeme,qzmz,qzzmz,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %FFUN22_ 3 | % F = FFUN22_(VZERO,AH,AI,DELTAH,DELTAI,DME,DMZ,E,GAMMAH,GAMMAI,KAPPA_P,MUE,PSII,Q,QEEME,QEME,QZMZ,QZZMZ,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:34 7 | 8 | F = [Vzero-q.*(vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)-e.*vi.^((zetai-1.0)./(gammai-1.0)))-psii.*(ai-(q-1.0)./kappa_p)+(ah-(q-1.0)./kappa_p).*(psii-1.0);Vzero+deltah-deltai-sigqs.*((sigz.*vzh.*z)./vh-(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh)+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)-(ah-(q-1.0)./kappa_p)./q+(ai-(q-1.0)./kappa_p)./q+(gammah.*(psii-1.0).*((sigqk+z).^2+sigqs.^2))./(e-1.0)-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*veh.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-deltai-mue+log(q)./kappa_p-vi.^((zetai-1.0)./(gammai-1.0))+psii.*(deltai-log(q)./kappa_p)+(sigqk+z).^2./2.0+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+sigqs.^2./2.0+(ai-(q-1.0)./kappa_p)./q-(deltah-log(q)./kappa_p).*(psii-1.0)+(psii.*(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi))./e-(psii.*(sigqk+z).^2)./e-(psii.*sigqs.^2)./e-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-q.*sigqk-e.*(qeme+dme.*qeeme).*(sigqk+z-(psii.*(sigqk+z))./e);Vzero-q.*sigqs+sigz.*z.*(qzmz+dmz.*qzzmz)-e.*(qeme+dme.*qeeme).*(sigqs-(psii.*sigqs)./e)]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun33.m: -------------------------------------------------------------------------------- 1 | function F = Ffun33(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun33_(Vzero,P(4),P(3),P(10),P(9),S(1),P(2),P(1),P(11),X(3),X(2),X(1),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Ffun33_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun33_(Vzero,ah,ai,deltah,deltai,e,gammah,gammai,kappa_p,mue,psii,q,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %FFUN33_ 3 | % F = FFUN33_(VZERO,AH,AI,DELTAH,DELTAI,E,GAMMAH,GAMMAI,KAPPA_P,MUE,PSII,Q,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:36 7 | 8 | F = [Vzero-q.*(vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)-e.*vi.^((zetai-1.0)./(gammai-1.0)))-psii.*(ai-(q-1.0)./kappa_p)+(ah-(q-1.0)./kappa_p).*(psii-1.0);Vzero+deltah-deltai-sigqs.*((sigz.*vzh.*z)./vh-(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh)+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)-(ah-(q-1.0)./kappa_p)./q+(ai-(q-1.0)./kappa_p)./q+(gammah.*(psii-1.0).*((sigqk+z).^2+sigqs.^2))./(e-1.0)-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*veh.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-deltai-mue+log(q)./kappa_p-vi.^((zetai-1.0)./(gammai-1.0))+psii.*(deltai-log(q)./kappa_p)+(sigqk+z).^2./2.0+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+sigqs.^2./2.0+(ai-(q-1.0)./kappa_p)./q-(deltah-log(q)./kappa_p).*(psii-1.0)+(psii.*(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi))./e-(psii.*(sigqk+z).^2)./e-(psii.*sigqs.^2)./e-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-q.*sigqk;Vzero-q.*sigqs]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun00.m: -------------------------------------------------------------------------------- 1 | function F = Lfun00(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun00_(Vzero,D(3),D(4),X(1),P1(4),P1(3),P1(2),P1(9),P1(8),P2(8),P2(10),P2(6),P2(7)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun00_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun00_(Vzero,dpe,dpz,q,qeeepe,qeepe,qepe,qezepe,qezpe,qezpz,qezzpz,qzzpz,qzzzpz) 2 | %LFUN00_ 3 | % L = LFUN00_(VZERO,DPE,DPZ,Q,QEEEPE,QEEPE,QEPE,QEZEPE,QEZPE,QEZPZ,QEZZPZ,QZZPZ,QZZZPZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:20 7 | 8 | L = [Vzero+q;Vzero+qepe-dpe.*qeepe;Vzero+qeepe-dpe.*qeeepe;Vzero+qeeepe;Vzero;Vzero+qzzpz-dpz.*qzzzpz;Vzero+qzzzpz;Vzero+qezpe./2.0+qezpz./2.0-(dpe.*qezepe)./2.0-(dpz.*qezzpz)./2.0;Vzero+(qezpe./2.0-qezpz./2.0+(dpe.*qezepe)./2.0+(dpz.*qezzpz)./2.0)./dpe;Vzero+(qezpe.*(-1.0./2.0)+qezpz./2.0+(dpe.*qezepe)./2.0+(dpz.*qezzpz)./2.0)./dpz]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun01.m: -------------------------------------------------------------------------------- 1 | function F = Lfun01(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun01_(Vzero,D(2),D(3),D(4),X(1),P1(4),P1(3),M2(2),P1(2),P2(2),P1(9),M2(8),P1(8),P2(8),M2(1),P2(1),M2(5),P2(5),M2(6),P2(6)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun01_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun01_(Vzero,dmz,dpe,dpz,q,qeeepe,qeepe,qemz,qepe,qepz,qezepe,qezmz,qezpe,qezpz,qmz,qpz,qzmz,qzpz,qzzmz,qzzpz) 2 | %LFUN01_ 3 | % L = LFUN01_(VZERO,DMZ,DPE,DPZ,Q,QEEEPE,QEEPE,QEMZ,QEPE,QEPZ,QEZEPE,QEZMZ,QEZPE,QEZPZ,QMZ,QPZ,QZMZ,QZPZ,QZZMZ,QZZPZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:22 7 | 8 | L = [Vzero+q;Vzero+qepe-dpe.*qeepe;Vzero+qeepe-dpe.*qeeepe;Vzero+qeeepe;Vzero-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*dpz.*2.0);Vzero+(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dmz.*dpz.*2.0);Vzero+(dmz.*qzzpz-dpz.*qzzmz+(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dmz.*2.0)-(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dpz.*2.0))./(dmz.*dpz.*2.0);Vzero+qezpe./2.0-(dpe.*qezepe)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qepe-dpe.*qeepe)+dpz.*(qepe-dpe.*qeepe))./(dmz.*dpz.*4.0);Vzero+(qezpe./2.0+(dpe.*qezepe)./2.0-(dmz.*qepz-dpz.*qemz-dmz.*(qepe-dpe.*qeepe)+dpz.*(qepe-dpe.*qeepe))./(dmz.*dpz.*4.0))./dpe;Vzero+(dmz.*qezpz-dpz.*qezmz-dmz.*(qezpe./2.0-(dpe.*qezepe)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qepe-dpe.*qeepe)+dpz.*(qepe-dpe.*qeepe))./(dmz.*dpz.*4.0))+dpz.*(qezpe./2.0-(dpe.*qezepe)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qepe-dpe.*qeepe)+dpz.*(qepe-dpe.*qeepe))./(dmz.*dpz.*4.0)))./(dmz.*dpz.*2.0)]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun02.m: -------------------------------------------------------------------------------- 1 | function F = Lfun02(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun02_(Vzero,D(2),D(3),X(1),P1(4),P1(3),P1(2),P1(9),M2(8),P1(8),M2(10),M2(5),M2(6),M2(7)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun02_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun02_(Vzero,dmz,dpe,q,qeeepe,qeepe,qepe,qezepe,qezmz,qezpe,qezzmz,qzmz,qzzmz,qzzzmz) 2 | %LFUN02_ 3 | % L = LFUN02_(VZERO,DMZ,DPE,Q,QEEEPE,QEEPE,QEPE,QEZEPE,QEZMZ,QEZPE,QEZZMZ,QZMZ,QZZMZ,QZZZMZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:23 7 | 8 | L = [Vzero+q;Vzero+qepe-dpe.*qeepe;Vzero+qeepe-dpe.*qeeepe;Vzero+qeeepe;Vzero+qzmz+dmz.*qzzmz;Vzero+qzzmz+dmz.*qzzzmz;Vzero+qzzzmz;Vzero+qezpe./2.0+qezmz./2.0+(dmz.*qezzmz)./2.0-(dpe.*qezepe)./2.0;Vzero+(qezpe./2.0-qezmz./2.0-(dmz.*qezzmz)./2.0+(dpe.*qezepe)./2.0)./dpe;Vzero+(qezpe./2.0-qezmz./2.0+(dmz.*qezzmz)./2.0-(dpe.*qezepe)./2.0)./dmz]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun10.m: -------------------------------------------------------------------------------- 1 | function F = Lfun10(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun10_(Vzero,D(1),D(3),D(4),X(1),M1(3),P1(3),M1(2),P1(2),M1(8),P1(8),P2(8),P2(10),M1(1),P1(1),M1(5),P1(5),P2(6),P2(7)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun10_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun10_(Vzero,dme,dpe,dpz,q,qeeme,qeepe,qeme,qepe,qezme,qezpe,qezpz,qezzpz,qme,qpe,qzme,qzpe,qzzpz,qzzzpz) 2 | %LFUN10_ 3 | % L = LFUN10_(VZERO,DME,DPE,DPZ,Q,QEEME,QEEPE,QEME,QEPE,QEZME,QEZPE,QEZPZ,QEZZPZ,QME,QPE,QZME,QZPE,QZZPZ,QZZZPZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:25 7 | 8 | L = [Vzero+q;Vzero-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*dpe.*2.0);Vzero+(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dme.*dpe.*2.0);Vzero+(dme.*qeepe-dpe.*qeeme+(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dme.*2.0)-(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dpe.*2.0))./(dme.*dpe.*2.0);Vzero;Vzero+qzzpz-dpz.*qzzzpz;Vzero+qzzzpz;Vzero+qezpz./2.0-(dpz.*qezzpz)./2.0+(dme.*qzpe-dpe.*qzme)./(dme.*dpe.*4.0);Vzero+(dme.*qezpe-dpe.*qezme-dme.*(qezpz./2.0-(dpz.*qezzpz)./2.0+(dme.*qzpe-dpe.*qzme)./(dme.*dpe.*4.0))+dpe.*(qezpz./2.0-(dpz.*qezzpz)./2.0+(dme.*qzpe-dpe.*qzme)./(dme.*dpe.*4.0)))./(dme.*dpe.*2.0);Vzero+(qezpz./2.0+(dpz.*qezzpz)./2.0-(dme.*qzpe-dpe.*qzme)./(dme.*dpe.*4.0))./dpz]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun11.m: -------------------------------------------------------------------------------- 1 | function F = Lfun11(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun11_(Vzero,D(1),D(2),D(3),D(4),X(1),M1(3),P1(3),M1(2),M2(2),P1(2),P2(2),M1(8),M2(8),P1(8),P2(8),M1(1),M2(1),P1(1),P2(1),M1(5),M2(5),P1(5),P2(5),M2(6),P2(6)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun11_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun11_(Vzero,dme,dmz,dpe,dpz,q,qeeme,qeepe,qeme,qemz,qepe,qepz,qezme,qezmz,qezpe,qezpz,qme,qmz,qpe,qpz,qzme,qzmz,qzpe,qzpz,qzzmz,qzzpz) 2 | %LFUN11_ 3 | % L = LFUN11_(VZERO,DME,DMZ,DPE,DPZ,Q,QEEME,QEEPE,QEME,QEMZ,QEPE,QEPZ,QEZME,QEZMZ,QEZPE,QEZPZ,QME,QMZ,QPE,QPZ,QZME,QZMZ,QZPE,QZPZ,QZZMZ,QZZPZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:27 7 | 8 | L = [Vzero+q;Vzero-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*dpe.*2.0);Vzero+(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dme.*dpe.*2.0);Vzero+(dme.*qeepe-dpe.*qeeme+(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dme.*2.0)-(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dpe.*2.0))./(dme.*dpe.*2.0);Vzero-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*dpz.*2.0);Vzero+(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dmz.*dpz.*2.0);Vzero+(dmz.*qzzpz-dpz.*qzzmz+(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dmz.*2.0)-(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dpz.*2.0))./(dmz.*dpz.*2.0);Vzero+(dmz.*qepz-dpz.*qemz+(dmz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)-(dpz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0))./(dmz.*dpz.*4.0)+(dme.*qzpe-dpe.*qzme+(dme.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)-(dpe.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0))./(dme.*dpe.*4.0);Vzero+(dme.*qezpe-dpe.*qezme-dme.*((dmz.*qepz-dpz.*qemz+(dmz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)-(dpz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0))./(dmz.*dpz.*4.0)+(dme.*qzpe-dpe.*qzme+(dme.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)-(dpe.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0))./(dme.*dpe.*4.0))+dpe.*((dmz.*qepz-dpz.*qemz+(dmz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)-(dpz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0))./(dmz.*dpz.*4.0)+(dme.*qzpe-dpe.*qzme+(dme.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)-(dpe.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0))./(dme.*dpe.*4.0)))./(dme.*dpe.*2.0);Vzero+(dmz.*qezpz-dpz.*qezmz-dmz.*((dmz.*qepz-dpz.*qemz+(dmz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)-(dpz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0))./(dmz.*dpz.*4.0)+(dme.*qzpe-dpe.*qzme+(dme.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)-(dpe.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0))./(dme.*dpe.*4.0))+dpz.*((dmz.*qepz-dpz.*qemz+(dmz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)-(dpz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0))./(dmz.*dpz.*4.0)+(dme.*qzpe-dpe.*qzme+(dme.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)-(dpe.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0))./(dme.*dpe.*4.0)))./(dmz.*dpz.*2.0)]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun12.m: -------------------------------------------------------------------------------- 1 | function F = Lfun12(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun12_(Vzero,D(1),D(2),D(3),X(1),M1(3),P1(3),M1(2),P1(2),M1(8),M2(8),P1(8),M2(10),M1(1),P1(1),M1(5),M2(5),P1(5),M2(6),M2(7)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun12_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun12_(Vzero,dme,dmz,dpe,q,qeeme,qeepe,qeme,qepe,qezme,qezmz,qezpe,qezzmz,qme,qpe,qzme,qzmz,qzpe,qzzmz,qzzzmz) 2 | %LFUN12_ 3 | % L = LFUN12_(VZERO,DME,DMZ,DPE,Q,QEEME,QEEPE,QEME,QEPE,QEZME,QEZMZ,QEZPE,QEZZMZ,QME,QPE,QZME,QZMZ,QZPE,QZZMZ,QZZZMZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:28 7 | 8 | L = [Vzero+q;Vzero-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*dpe.*2.0);Vzero+(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dme.*dpe.*2.0);Vzero+(dme.*qeepe-dpe.*qeeme+(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dme.*2.0)-(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dpe.*2.0))./(dme.*dpe.*2.0);Vzero+qzmz+dmz.*qzzmz;Vzero+qzzmz+dmz.*qzzzmz;Vzero+qzzzmz;Vzero+qezmz./2.0+(dmz.*qezzmz)./2.0+(dme.*qzpe-dpe.*qzme-dme.*(qzmz+dmz.*qzzmz)+dpe.*(qzmz+dmz.*qzzmz))./(dme.*dpe.*4.0);Vzero+(dme.*qezpe-dpe.*qezme-dme.*(qezmz./2.0+(dmz.*qezzmz)./2.0+(dme.*qzpe-dpe.*qzme-dme.*(qzmz+dmz.*qzzmz)+dpe.*(qzmz+dmz.*qzzmz))./(dme.*dpe.*4.0))+dpe.*(qezmz./2.0+(dmz.*qezzmz)./2.0+(dme.*qzpe-dpe.*qzme-dme.*(qzmz+dmz.*qzzmz)+dpe.*(qzmz+dmz.*qzzmz))./(dme.*dpe.*4.0)))./(dme.*dpe.*2.0);Vzero+(qezmz.*(-1.0./2.0)+(dmz.*qezzmz)./2.0+(dme.*qzpe-dpe.*qzme-dme.*(qzmz+dmz.*qzzmz)+dpe.*(qzmz+dmz.*qzzmz))./(dme.*dpe.*4.0))./dmz]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun20.m: -------------------------------------------------------------------------------- 1 | function F = Lfun20(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun20_(Vzero,D(1),D(4),X(1),M1(4),M1(3),M1(2),M1(9),M1(8),P2(8),P2(10),P2(6),P2(7)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun20_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun20_(Vzero,dme,dpz,q,qeeeme,qeeme,qeme,qezeme,qezme,qezpz,qezzpz,qzzpz,qzzzpz) 2 | %LFUN20_ 3 | % L = LFUN20_(VZERO,DME,DPZ,Q,QEEEME,QEEME,QEME,QEZEME,QEZME,QEZPZ,QEZZPZ,QZZPZ,QZZZPZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:31 7 | 8 | L = [Vzero+q;Vzero+qeme+dme.*qeeme;Vzero+qeeme+dme.*qeeeme;Vzero+qeeeme;Vzero;Vzero+qzzpz-dpz.*qzzzpz;Vzero+qzzzpz;Vzero+qezme./2.0+qezpz./2.0+(dme.*qezeme)./2.0-(dpz.*qezzpz)./2.0;Vzero-(qezme./2.0-qezpz./2.0-(dme.*qezeme)./2.0+(dpz.*qezzpz)./2.0)./dme;Vzero-(qezme./2.0-qezpz./2.0+(dme.*qezeme)./2.0-(dpz.*qezzpz)./2.0)./dpz]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun21.m: -------------------------------------------------------------------------------- 1 | function F = Lfun21(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun21_(Vzero,D(1),D(2),D(4),X(1),M1(4),M1(3),M1(2),M2(2),P2(2),M1(9),M1(8),M2(8),P2(8),M2(1),P2(1),M2(5),P2(5),M2(6),P2(6)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun21_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun21_(Vzero,dme,dmz,dpz,q,qeeeme,qeeme,qeme,qemz,qepz,qezeme,qezme,qezmz,qezpz,qmz,qpz,qzmz,qzpz,qzzmz,qzzpz) 2 | %LFUN21_ 3 | % L = LFUN21_(VZERO,DME,DMZ,DPZ,Q,QEEEME,QEEME,QEME,QEMZ,QEPZ,QEZEME,QEZME,QEZMZ,QEZPZ,QMZ,QPZ,QZMZ,QZPZ,QZZMZ,QZZPZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:33 7 | 8 | L = [Vzero+q;Vzero+qeme+dme.*qeeme;Vzero+qeeme+dme.*qeeeme;Vzero+qeeeme;Vzero-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*dpz.*2.0);Vzero+(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dmz.*dpz.*2.0);Vzero+(dmz.*qzzpz-dpz.*qzzmz+(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dmz.*2.0)-(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dpz.*2.0))./(dmz.*dpz.*2.0);Vzero+qezme./2.0+(dme.*qezeme)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qeme+dme.*qeeme)+dpz.*(qeme+dme.*qeeme))./(dmz.*dpz.*4.0);Vzero+(qezme.*(-1.0./2.0)+(dme.*qezeme)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qeme+dme.*qeeme)+dpz.*(qeme+dme.*qeeme))./(dmz.*dpz.*4.0))./dme;Vzero+(dmz.*qezpz-dpz.*qezmz-dmz.*(qezme./2.0+(dme.*qezeme)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qeme+dme.*qeeme)+dpz.*(qeme+dme.*qeeme))./(dmz.*dpz.*4.0))+dpz.*(qezme./2.0+(dme.*qezeme)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qeme+dme.*qeeme)+dpz.*(qeme+dme.*qeeme))./(dmz.*dpz.*4.0)))./(dmz.*dpz.*2.0)]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun22.m: -------------------------------------------------------------------------------- 1 | function F = Lfun22(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun22_(Vzero,D(1),D(2),X(1),M1(4),M1(3),M1(2),M1(9),M1(8),M2(8),M2(10),M2(5),M2(6),M2(7)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun22_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun22_(Vzero,dme,dmz,q,qeeeme,qeeme,qeme,qezeme,qezme,qezmz,qezzmz,qzmz,qzzmz,qzzzmz) 2 | %LFUN22_ 3 | % L = LFUN22_(VZERO,DME,DMZ,Q,QEEEME,QEEME,QEME,QEZEME,QEZME,QEZMZ,QEZZMZ,QZMZ,QZZMZ,QZZZMZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:35 7 | 8 | L = [Vzero+q;Vzero+qeme+dme.*qeeme;Vzero+qeeme+dme.*qeeeme;Vzero+qeeeme;Vzero+qzmz+dmz.*qzzmz;Vzero+qzzmz+dmz.*qzzzmz;Vzero+qzzzmz;Vzero+qezme./2.0+qezmz./2.0+(dme.*qezeme)./2.0+(dmz.*qezzmz)./2.0;Vzero+(qezme.*(-1.0./2.0)+qezmz./2.0+(dme.*qezeme)./2.0+(dmz.*qezzmz)./2.0)./dme;Vzero+(qezme./2.0-qezmz./2.0+(dme.*qezeme)./2.0+(dmz.*qezzmz)./2.0)./dmz]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun33.m: -------------------------------------------------------------------------------- 1 | function F = Lfun33(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun33_(Vzero,X(1)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Lfun33_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun33_(Vzero,q) 2 | %LFUN33_ 3 | % L = LFUN33_(VZERO,Q) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:36 7 | 8 | L = [Vzero+q;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/Xfun00.m: -------------------------------------------------------------------------------- 1 | function F = Xfun00(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun00_(Vzero,P(4,:),P(3,:),P(10,:),P(9,:),D(3,:),D(4,:),S(1,:),P(2,:),P(1,:),P(11,:),P(12,:),X(3,:),X(2,:),X(1,:),P1(4,:),P1(3,:),P1(2,:),P1(9,:),P1(8,:),P2(8,:),P2(10,:),P2(6,:),P2(7,:),P(6,:),P(5,:),P(8,:),X(4,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:),P(14,:),P(13,:)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Xfun01.m: -------------------------------------------------------------------------------- 1 | function F = Xfun01(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun01_(Vzero,P(4,:),P(3,:),P(10,:),P(9,:),D(2,:),D(3,:),D(4,:),S(1,:),P(2,:),P(1,:),P(11,:),P(12,:),X(3,:),X(2,:),X(1,:),P1(4,:),P1(3,:),M2(2,:),P1(2,:),P2(2,:),P1(9,:),M2(8,:),P1(8,:),P2(8,:),M2(1,:),P2(1,:),M2(5,:),P2(5,:),M2(6,:),P2(6,:),P(6,:),P(5,:),P(8,:),X(4,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:),P(14,:),P(13,:)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Xfun02.m: -------------------------------------------------------------------------------- 1 | function F = Xfun02(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun02_(Vzero,P(4,:),P(3,:),P(10,:),P(9,:),D(2,:),D(3,:),S(1,:),P(2,:),P(1,:),P(11,:),P(12,:),X(3,:),X(2,:),X(1,:),P1(4,:),P1(3,:),P1(2,:),P1(9,:),M2(8,:),P1(8,:),M2(10,:),M2(5,:),M2(6,:),M2(7,:),P(6,:),P(5,:),P(8,:),X(4,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:),P(14,:),P(13,:)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Xfun10.m: -------------------------------------------------------------------------------- 1 | function F = Xfun10(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun10_(Vzero,P(4,:),P(3,:),P(10,:),P(9,:),D(1,:),D(3,:),D(4,:),S(1,:),P(2,:),P(1,:),P(11,:),P(12,:),X(3,:),X(2,:),X(1,:),M1(3,:),P1(3,:),M1(2,:),P1(2,:),M1(8,:),P1(8,:),P2(8,:),P2(10,:),M1(1,:),P1(1,:),M1(5,:),P1(5,:),P2(6,:),P2(7,:),P(6,:),P(5,:),P(8,:),X(4,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:),P(14,:),P(13,:)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Xfun11.m: -------------------------------------------------------------------------------- 1 | function F = Xfun11(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun11_(Vzero,P(4,:),P(3,:),P(10,:),P(9,:),D(1,:),D(2,:),D(3,:),D(4,:),S(1,:),P(2,:),P(1,:),P(11,:),P(12,:),X(3,:),X(2,:),X(1,:),M1(3,:),P1(3,:),M1(2,:),M2(2,:),P1(2,:),P2(2,:),M1(8,:),M2(8,:),P1(8,:),P2(8,:),M1(1,:),M2(1,:),P1(1,:),P2(1,:),M1(5,:),M2(5,:),P1(5,:),P2(5,:),M2(6,:),P2(6,:),P(6,:),P(5,:),P(8,:),X(4,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:),P(14,:),P(13,:)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Xfun12.m: -------------------------------------------------------------------------------- 1 | function F = Xfun12(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun12_(Vzero,P(4,:),P(3,:),P(10,:),P(9,:),D(1,:),D(2,:),D(3,:),S(1,:),P(2,:),P(1,:),P(11,:),P(12,:),X(3,:),X(2,:),X(1,:),M1(3,:),P1(3,:),M1(2,:),P1(2,:),M1(8,:),M2(8,:),P1(8,:),M2(10,:),M1(1,:),P1(1,:),M1(5,:),M2(5,:),P1(5,:),M2(6,:),M2(7,:),P(6,:),P(5,:),P(8,:),X(4,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:),P(14,:),P(13,:)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Xfun20.m: -------------------------------------------------------------------------------- 1 | function F = Xfun20(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun20_(Vzero,P(4,:),P(3,:),P(10,:),P(9,:),D(1,:),D(4,:),S(1,:),P(2,:),P(1,:),P(11,:),P(12,:),X(3,:),X(2,:),X(1,:),M1(4,:),M1(3,:),M1(2,:),M1(9,:),M1(8,:),P2(8,:),P2(10,:),P2(6,:),P2(7,:),P(6,:),P(5,:),P(8,:),X(4,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:),P(14,:),P(13,:)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Xfun21.m: -------------------------------------------------------------------------------- 1 | function F = Xfun21(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun21_(Vzero,P(4,:),P(3,:),P(10,:),P(9,:),D(1,:),D(2,:),D(4,:),S(1,:),P(2,:),P(1,:),P(11,:),P(12,:),X(3,:),X(2,:),X(1,:),M1(4,:),M1(3,:),M1(2,:),M2(2,:),P2(2,:),M1(9,:),M1(8,:),M2(8,:),P2(8,:),M2(1,:),P2(1,:),M2(5,:),P2(5,:),M2(6,:),P2(6,:),P(6,:),P(5,:),P(8,:),X(4,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:),P(14,:),P(13,:)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Xfun22.m: -------------------------------------------------------------------------------- 1 | function F = Xfun22(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun22_(Vzero,P(4,:),P(3,:),P(10,:),P(9,:),D(1,:),D(2,:),S(1,:),P(2,:),P(1,:),P(11,:),P(12,:),X(3,:),X(2,:),X(1,:),M1(4,:),M1(3,:),M1(2,:),M1(9,:),M1(8,:),M2(8,:),M2(10,:),M2(5,:),M2(6,:),M2(7,:),P(6,:),P(5,:),P(8,:),X(4,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:),P(14,:),P(13,:)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Xfun33.m: -------------------------------------------------------------------------------- 1 | function F = Xfun33(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun33_(Vzero,P(4,:),P(3,:),P(10,:),P(9,:),S(1,:),P(2,:),P(1,:),P(11,:),P(12,:),X(3,:),X(2,:),X(1,:),P(6,:),P(5,:),P(8,:),X(4,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:),P(14,:),P(13,:)); -------------------------------------------------------------------------------- /files/tmp_BruSan/Xfun33_.m: -------------------------------------------------------------------------------- 1 | function X_ = Xfun33_(Vzero,ah,ai,deltah,deltai,e,gammah,gammai,kappa_p,kappa_z,mue,psii,q,rhoh,rhoi,sigbar,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %XFUN33_ 3 | % X_ = XFUN33_(VZERO,AH,AI,DELTAH,DELTAI,E,GAMMAH,GAMMAI,KAPPA_P,KAPPA_Z,MUE,PSII,Q,RHOH,RHOI,SIGBAR,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:36 7 | 8 | X_ = [Vzero+psii./e;Vzero+(psii-1.0)./(e-1.0);Vzero+vi.^((zetai-1.0)./(gammai-1.0));Vzero+vh.^((zetah-1.0)./(gammah-1.0));Vzero+z;Vzero-sigqs+(psii.*sigqs)./e;Vzero-sigqk-z+(psii.*(sigqk+z))./e;Vzero-deltai+log(q)./kappa_p+sigqk.*z+(ai-(q-1.0)./kappa_p)./q;Vzero-deltah+log(q)./kappa_p+sigqk.*z+(ah-(q-1.0)./kappa_p)./q;Vzero-psii.*(deltai-log(q)./kappa_p)+(deltah-log(q)./kappa_p).*(psii-1.0);Vzero;Vzero-deltai+log(q)./kappa_p+sigqk.*z+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(ai-(q-1.0)./kappa_p)./q-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-deltai+log(q)./kappa_p-vi.^((zetai-1.0)./(gammai-1.0))+sigqk.*z+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(ai-(q-1.0)./kappa_p)./q+(psii.*(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi))./e-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-deltai+log(q)./kappa_p-vh.^((zetah-1.0)./(gammah-1.0))+sigqk.*z+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(ai-(q-1.0)./kappa_p)./q+((psii-1.0).*(-deltah+deltai-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(ah-(q-1.0)./kappa_p)./q-(ai-(q-1.0)./kappa_p)./q+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi))./(e-1.0)-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero+(psii.*sigqs)./e;Vzero+(sigqs.*(psii-1.0))./(e-1.0);Vzero+(psii.*(sigqk+z))./e;Vzero+((sigqk+z).*(psii-1.0))./(e-1.0);Vzero+(sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi;Vzero+(sigz.*vzh.*z)./vh-(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh;Vzero-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi;Vzero-(e.*veh.*(sigqk+z-(psii.*(sigqk+z))./e))./vh;Vzero+(q-1.0)./kappa_p;Vzero+(q-1.0)./kappa_p;Vzero-kappa_z.*(sigbar-z);Vzero+e.^2.*(sigqs-(psii.*sigqs)./e).^2+e.^2.*(sigqk+z-(psii.*(sigqk+z))./e).^2;Vzero+sigz.^2.*z.^2;Vzero-e.*sigz.*z.*(sigqs-(psii.*sigqs)./e);Vzero+e.*mue;Vzero-kappa_z.*z.*(sigbar-z);Vzero;Vzero;Vzero+(gammai-1.0).*(-deltai+log(q)./kappa_p-vi.^((zetai-1.0)./(gammai-1.0))+sigqk.*z+(rhoi-vi.^((zetai-1.0)./(gammai-1.0)))./(1.0./zetai-1.0)+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*((psii.*(sigqk+z).^2)./e+(psii.*sigqs.^2)./e))./2.0+(ai-(q-1.0)./kappa_p)./q-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi);Vzero+(gammah-1.0).*(-deltai+log(q)./kappa_p-vh.^((zetah-1.0)./(gammah-1.0))+(gammah.*((sigqs.^2.*(psii-1.0))./(e-1.0)+((sigqk+z).^2.*(psii-1.0))./(e-1.0)))./2.0+sigqk.*z+(rhoh-vh.^((zetah-1.0)./(gammah-1.0)))./(1.0./zetah-1.0)+sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(ai-(q-1.0)./kappa_p)./q-(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e-(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi);Vzero+q;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero]; 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun00.m: -------------------------------------------------------------------------------- 1 | function F = dFfun00(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun00_(P(4),P(3),P(10),P(9),D(3),S(1),P(2),P(1),P(11),X(2),X(1),P1(3),P1(2),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun00_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun00_(ah,ai,deltah,deltai,dpe,e,gammah,gammai,kappa_p,psii,q,qeepe,qepe,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %DFFUN00_ 3 | % DF = DFFUN00_(AH,AI,DELTAH,DELTAI,DPE,E,GAMMAH,GAMMAI,KAPPA_P,PSII,Q,QEEPE,QEPE,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:19 7 | 8 | dF = reshape([-vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)+psii./kappa_p+e.*vi.^((zetai-1.0)./(gammai-1.0))-(psii-1.0)./kappa_p,1.0./q.^2.*(ah-(q-1.0)./kappa_p)-1.0./q.^2.*(ai-(q-1.0)./kappa_p),-1.0./q.^2.*(ai-(q-1.0)./kappa_p)-psii./(kappa_p.*q)+(psii-1.0)./(kappa_p.*q),-sigqk,-sigqs,ah-ai,-(veh.*(sigqk+z).^2)./vh+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e-(sigqs.^2.*veh)./vh+(sigqs.^2.*vei)./vi+(gammah.*((sigqk+z).^2+sigqs.^2))./(e-1.0),-deltah+deltai+(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi)./e-(sigqk+z).^2./e-sigqs.^2./e-(psii.*((vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi))./e+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi,(qepe-dpe.*qeepe).*(sigqk+z),sigqs.*(qepe-dpe.*qeepe),0.0,0.0,-1.0,0.0,0.0,0.0,-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*veh.*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(gammah.*(sigqk.*2.0+z.*2.0).*(psii-1.0))./(e-1.0)-(e.*veh.*(sigqk+z).*(psii./e-1.0))./vh+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,sigqk+z+(psii.*((gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi-(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi))./e-(psii.*(sigqk.*2.0+z.*2.0))./e-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,-q+e.*(qepe-dpe.*qeepe).*(psii./e-1.0),0.0,0.0,(gammah.*sigqs.*(psii-1.0).*2.0)./(e-1.0)-(gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzh.*z)./vh+(sigz.*vzi.*z)./vi+(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*veh.*(psii./e-1.0))./vh+(e.*sigqs.*vei.*(psii./e-1.0))./vi,sigqs-(psii.*sigqs.*2.0)./e+(psii.*((gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzi.*z)./vi+(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*vei.*(psii./e-1.0))./vi))./e-(gammai.*psii.*sigqs.*2.0)./e+(sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi+(e.*sigqs.*vei.*(psii./e-1.0))./vi,0.0,-q+e.*(qepe-dpe.*qeepe).*(psii./e-1.0)],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun01.m: -------------------------------------------------------------------------------- 1 | function F = dFfun01(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun01_(P(4),P(3),P(10),P(9),D(2),D(3),D(4),S(1),P(2),P(1),P(11),X(2),X(1),P1(3),P1(2),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun01_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun01_(ah,ai,deltah,deltai,dmz,dpe,dpz,e,gammah,gammai,kappa_p,psii,q,qeepe,qepe,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %DFFUN01_ 3 | % DF = DFFUN01_(AH,AI,DELTAH,DELTAI,DMZ,DPE,DPZ,E,GAMMAH,GAMMAI,KAPPA_P,PSII,Q,QEEPE,QEPE,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:21 7 | 8 | dF = reshape([-vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)+psii./kappa_p+e.*vi.^((zetai-1.0)./(gammai-1.0))-(psii-1.0)./kappa_p,1.0./q.^2.*(ah-(q-1.0)./kappa_p)-1.0./q.^2.*(ai-(q-1.0)./kappa_p),-1.0./q.^2.*(ai-(q-1.0)./kappa_p)-psii./(kappa_p.*q)+(psii-1.0)./(kappa_p.*q),-sigqk,-sigqs-(sigz.*z.*(dmz-dpz))./(dmz.*dpz.*2.0),ah-ai,-(veh.*(sigqk+z).^2)./vh+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e-(sigqs.^2.*veh)./vh+(sigqs.^2.*vei)./vi+(gammah.*((sigqk+z).^2+sigqs.^2))./(e-1.0),-deltah+deltai+(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi)./e-(sigqk+z).^2./e-sigqs.^2./e-(psii.*((vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi))./e+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi,(qepe-dpe.*qeepe).*(sigqk+z),sigqs.*(qepe-dpe.*qeepe),0.0,0.0,-1.0,0.0,0.0,0.0,-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*veh.*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(gammah.*(sigqk.*2.0+z.*2.0).*(psii-1.0))./(e-1.0)-(e.*veh.*(sigqk+z).*(psii./e-1.0))./vh+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,sigqk+z+(psii.*((gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi-(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi))./e-(psii.*(sigqk.*2.0+z.*2.0))./e-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,-q+e.*(qepe-dpe.*qeepe).*(psii./e-1.0),0.0,0.0,(gammah.*sigqs.*(psii-1.0).*2.0)./(e-1.0)-(gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzh.*z)./vh+(sigz.*vzi.*z)./vi+(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*veh.*(psii./e-1.0))./vh+(e.*sigqs.*vei.*(psii./e-1.0))./vi,sigqs-(psii.*sigqs.*2.0)./e+(psii.*((gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzi.*z)./vi+(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*vei.*(psii./e-1.0))./vi))./e-(gammai.*psii.*sigqs.*2.0)./e+(sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi+(e.*sigqs.*vei.*(psii./e-1.0))./vi,0.0,-q+e.*(qepe-dpe.*qeepe).*(psii./e-1.0)],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun02.m: -------------------------------------------------------------------------------- 1 | function F = dFfun02(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun02_(P(4),P(3),P(10),P(9),D(3),S(1),P(2),P(1),P(11),X(2),X(1),P1(3),P1(2),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun02_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun02_(ah,ai,deltah,deltai,dpe,e,gammah,gammai,kappa_p,psii,q,qeepe,qepe,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %DFFUN02_ 3 | % DF = DFFUN02_(AH,AI,DELTAH,DELTAI,DPE,E,GAMMAH,GAMMAI,KAPPA_P,PSII,Q,QEEPE,QEPE,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:22 7 | 8 | dF = reshape([-vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)+psii./kappa_p+e.*vi.^((zetai-1.0)./(gammai-1.0))-(psii-1.0)./kappa_p,1.0./q.^2.*(ah-(q-1.0)./kappa_p)-1.0./q.^2.*(ai-(q-1.0)./kappa_p),-1.0./q.^2.*(ai-(q-1.0)./kappa_p)-psii./(kappa_p.*q)+(psii-1.0)./(kappa_p.*q),-sigqk,-sigqs,ah-ai,-(veh.*(sigqk+z).^2)./vh+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e-(sigqs.^2.*veh)./vh+(sigqs.^2.*vei)./vi+(gammah.*((sigqk+z).^2+sigqs.^2))./(e-1.0),-deltah+deltai+(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi)./e-(sigqk+z).^2./e-sigqs.^2./e-(psii.*((vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi))./e+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi,(qepe-dpe.*qeepe).*(sigqk+z),sigqs.*(qepe-dpe.*qeepe),0.0,0.0,-1.0,0.0,0.0,0.0,-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*veh.*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(gammah.*(sigqk.*2.0+z.*2.0).*(psii-1.0))./(e-1.0)-(e.*veh.*(sigqk+z).*(psii./e-1.0))./vh+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,sigqk+z+(psii.*((gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi-(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi))./e-(psii.*(sigqk.*2.0+z.*2.0))./e-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,-q+e.*(qepe-dpe.*qeepe).*(psii./e-1.0),0.0,0.0,(gammah.*sigqs.*(psii-1.0).*2.0)./(e-1.0)-(gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzh.*z)./vh+(sigz.*vzi.*z)./vi+(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*veh.*(psii./e-1.0))./vh+(e.*sigqs.*vei.*(psii./e-1.0))./vi,sigqs-(psii.*sigqs.*2.0)./e+(psii.*((gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzi.*z)./vi+(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*vei.*(psii./e-1.0))./vi))./e-(gammai.*psii.*sigqs.*2.0)./e+(sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi+(e.*sigqs.*vei.*(psii./e-1.0))./vi,0.0,-q+e.*(qepe-dpe.*qeepe).*(psii./e-1.0)],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun10.m: -------------------------------------------------------------------------------- 1 | function F = dFfun10(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun10_(P(4),P(3),P(10),P(9),D(1),D(3),S(1),P(2),P(1),P(11),X(2),X(1),M1(1),P1(1),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun10_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun10_(ah,ai,deltah,deltai,dme,dpe,e,gammah,gammai,kappa_p,psii,q,qme,qpe,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %DFFUN10_ 3 | % DF = DFFUN10_(AH,AI,DELTAH,DELTAI,DME,DPE,E,GAMMAH,GAMMAI,KAPPA_P,PSII,Q,QME,QPE,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:24 7 | 8 | dF = reshape([-vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)+psii./kappa_p+e.*vi.^((zetai-1.0)./(gammai-1.0))-(psii-1.0)./kappa_p,1.0./q.^2.*(ah-(q-1.0)./kappa_p)-1.0./q.^2.*(ai-(q-1.0)./kappa_p),-1.0./q.^2.*(ai-(q-1.0)./kappa_p)-psii./(kappa_p.*q)+(psii-1.0)./(kappa_p.*q),-sigqk+(e.*(dme-dpe).*(sigqk+z-(psii.*(sigqk+z))./e))./(dme.*dpe.*2.0),-sigqs+(e.*(dme-dpe).*(sigqs-(psii.*sigqs)./e))./(dme.*dpe.*2.0),ah-ai,-(veh.*(sigqk+z).^2)./vh+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e-(sigqs.^2.*veh)./vh+(sigqs.^2.*vei)./vi+(gammah.*((sigqk+z).^2+sigqs.^2))./(e-1.0),-deltah+deltai+(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi)./e-(sigqk+z).^2./e-sigqs.^2./e-(psii.*((vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi))./e+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi,((sigqk+z).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme).*(-1.0./2.0))./(dme.*dpe),(sigqs.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme).*(-1.0./2.0))./(dme.*dpe),0.0,0.0,-1.0,0.0,0.0,0.0,-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*veh.*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(gammah.*(sigqk.*2.0+z.*2.0).*(psii-1.0))./(e-1.0)-(e.*veh.*(sigqk+z).*(psii./e-1.0))./vh+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,sigqk+z+(psii.*((gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi-(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi))./e-(psii.*(sigqk.*2.0+z.*2.0))./e-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,-q-(e.*(psii./e-1.0).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0),0.0,0.0,(gammah.*sigqs.*(psii-1.0).*2.0)./(e-1.0)-(gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzh.*z)./vh+(sigz.*vzi.*z)./vi+(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*veh.*(psii./e-1.0))./vh+(e.*sigqs.*vei.*(psii./e-1.0))./vi,sigqs-(psii.*sigqs.*2.0)./e+(psii.*((gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzi.*z)./vi+(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*vei.*(psii./e-1.0))./vi))./e-(gammai.*psii.*sigqs.*2.0)./e+(sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi+(e.*sigqs.*vei.*(psii./e-1.0))./vi,0.0,-q-(e.*(psii./e-1.0).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun11.m: -------------------------------------------------------------------------------- 1 | function F = dFfun11(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun11_(P(4),P(3),P(10),P(9),D(1),D(2),D(3),D(4),S(1),P(2),P(1),P(11),X(2),X(1),M1(1),P1(1),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun11_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun11_(ah,ai,deltah,deltai,dme,dmz,dpe,dpz,e,gammah,gammai,kappa_p,psii,q,qme,qpe,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %DFFUN11_ 3 | % DF = DFFUN11_(AH,AI,DELTAH,DELTAI,DME,DMZ,DPE,DPZ,E,GAMMAH,GAMMAI,KAPPA_P,PSII,Q,QME,QPE,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:25 7 | 8 | dF = reshape([-vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)+psii./kappa_p+e.*vi.^((zetai-1.0)./(gammai-1.0))-(psii-1.0)./kappa_p,1.0./q.^2.*(ah-(q-1.0)./kappa_p)-1.0./q.^2.*(ai-(q-1.0)./kappa_p),-1.0./q.^2.*(ai-(q-1.0)./kappa_p)-psii./(kappa_p.*q)+(psii-1.0)./(kappa_p.*q),-sigqk+(e.*(dme-dpe).*(sigqk+z-(psii.*(sigqk+z))./e))./(dme.*dpe.*2.0),-sigqs-(sigz.*z.*(dmz-dpz))./(dmz.*dpz.*2.0)+(e.*(dme-dpe).*(sigqs-(psii.*sigqs)./e))./(dme.*dpe.*2.0),ah-ai,-(veh.*(sigqk+z).^2)./vh+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e-(sigqs.^2.*veh)./vh+(sigqs.^2.*vei)./vi+(gammah.*((sigqk+z).^2+sigqs.^2))./(e-1.0),-deltah+deltai+(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi)./e-(sigqk+z).^2./e-sigqs.^2./e-(psii.*((vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi))./e+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi,((sigqk+z).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme).*(-1.0./2.0))./(dme.*dpe),(sigqs.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme).*(-1.0./2.0))./(dme.*dpe),0.0,0.0,-1.0,0.0,0.0,0.0,-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*veh.*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(gammah.*(sigqk.*2.0+z.*2.0).*(psii-1.0))./(e-1.0)-(e.*veh.*(sigqk+z).*(psii./e-1.0))./vh+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,sigqk+z+(psii.*((gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi-(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi))./e-(psii.*(sigqk.*2.0+z.*2.0))./e-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,-q-(e.*(psii./e-1.0).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0),0.0,0.0,(gammah.*sigqs.*(psii-1.0).*2.0)./(e-1.0)-(gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzh.*z)./vh+(sigz.*vzi.*z)./vi+(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*veh.*(psii./e-1.0))./vh+(e.*sigqs.*vei.*(psii./e-1.0))./vi,sigqs-(psii.*sigqs.*2.0)./e+(psii.*((gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzi.*z)./vi+(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*vei.*(psii./e-1.0))./vi))./e-(gammai.*psii.*sigqs.*2.0)./e+(sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi+(e.*sigqs.*vei.*(psii./e-1.0))./vi,0.0,-q-(e.*(psii./e-1.0).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun12.m: -------------------------------------------------------------------------------- 1 | function F = dFfun12(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun12_(P(4),P(3),P(10),P(9),D(1),D(3),S(1),P(2),P(1),P(11),X(2),X(1),M1(1),P1(1),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun12_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun12_(ah,ai,deltah,deltai,dme,dpe,e,gammah,gammai,kappa_p,psii,q,qme,qpe,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %DFFUN12_ 3 | % DF = DFFUN12_(AH,AI,DELTAH,DELTAI,DME,DPE,E,GAMMAH,GAMMAI,KAPPA_P,PSII,Q,QME,QPE,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:27 7 | 8 | dF = reshape([-vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)+psii./kappa_p+e.*vi.^((zetai-1.0)./(gammai-1.0))-(psii-1.0)./kappa_p,1.0./q.^2.*(ah-(q-1.0)./kappa_p)-1.0./q.^2.*(ai-(q-1.0)./kappa_p),-1.0./q.^2.*(ai-(q-1.0)./kappa_p)-psii./(kappa_p.*q)+(psii-1.0)./(kappa_p.*q),-sigqk+(e.*(dme-dpe).*(sigqk+z-(psii.*(sigqk+z))./e))./(dme.*dpe.*2.0),-sigqs+(e.*(dme-dpe).*(sigqs-(psii.*sigqs)./e))./(dme.*dpe.*2.0),ah-ai,-(veh.*(sigqk+z).^2)./vh+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e-(sigqs.^2.*veh)./vh+(sigqs.^2.*vei)./vi+(gammah.*((sigqk+z).^2+sigqs.^2))./(e-1.0),-deltah+deltai+(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi)./e-(sigqk+z).^2./e-sigqs.^2./e-(psii.*((vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi))./e+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi,((sigqk+z).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme).*(-1.0./2.0))./(dme.*dpe),(sigqs.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme).*(-1.0./2.0))./(dme.*dpe),0.0,0.0,-1.0,0.0,0.0,0.0,-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*veh.*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(gammah.*(sigqk.*2.0+z.*2.0).*(psii-1.0))./(e-1.0)-(e.*veh.*(sigqk+z).*(psii./e-1.0))./vh+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,sigqk+z+(psii.*((gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi-(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi))./e-(psii.*(sigqk.*2.0+z.*2.0))./e-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,-q-(e.*(psii./e-1.0).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0),0.0,0.0,(gammah.*sigqs.*(psii-1.0).*2.0)./(e-1.0)-(gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzh.*z)./vh+(sigz.*vzi.*z)./vi+(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*veh.*(psii./e-1.0))./vh+(e.*sigqs.*vei.*(psii./e-1.0))./vi,sigqs-(psii.*sigqs.*2.0)./e+(psii.*((gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzi.*z)./vi+(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*vei.*(psii./e-1.0))./vi))./e-(gammai.*psii.*sigqs.*2.0)./e+(sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi+(e.*sigqs.*vei.*(psii./e-1.0))./vi,0.0,-q-(e.*(psii./e-1.0).*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun20.m: -------------------------------------------------------------------------------- 1 | function F = dFfun20(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun20_(P(4),P(3),P(10),P(9),D(1),S(1),P(2),P(1),P(11),X(2),X(1),M1(3),M1(2),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun20_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun20_(ah,ai,deltah,deltai,dme,e,gammah,gammai,kappa_p,psii,q,qeeme,qeme,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %DFFUN20_ 3 | % DF = DFFUN20_(AH,AI,DELTAH,DELTAI,DME,E,GAMMAH,GAMMAI,KAPPA_P,PSII,Q,QEEME,QEME,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:29 7 | 8 | dF = reshape([-vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)+psii./kappa_p+e.*vi.^((zetai-1.0)./(gammai-1.0))-(psii-1.0)./kappa_p,1.0./q.^2.*(ah-(q-1.0)./kappa_p)-1.0./q.^2.*(ai-(q-1.0)./kappa_p),-1.0./q.^2.*(ai-(q-1.0)./kappa_p)-psii./(kappa_p.*q)+(psii-1.0)./(kappa_p.*q),-sigqk,-sigqs,ah-ai,-(veh.*(sigqk+z).^2)./vh+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e-(sigqs.^2.*veh)./vh+(sigqs.^2.*vei)./vi+(gammah.*((sigqk+z).^2+sigqs.^2))./(e-1.0),-deltah+deltai+(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi)./e-(sigqk+z).^2./e-sigqs.^2./e-(psii.*((vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi))./e+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi,(qeme+dme.*qeeme).*(sigqk+z),sigqs.*(qeme+dme.*qeeme),0.0,0.0,-1.0,0.0,0.0,0.0,-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*veh.*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(gammah.*(sigqk.*2.0+z.*2.0).*(psii-1.0))./(e-1.0)-(e.*veh.*(sigqk+z).*(psii./e-1.0))./vh+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,sigqk+z+(psii.*((gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi-(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi))./e-(psii.*(sigqk.*2.0+z.*2.0))./e-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,-q+e.*(qeme+dme.*qeeme).*(psii./e-1.0),0.0,0.0,(gammah.*sigqs.*(psii-1.0).*2.0)./(e-1.0)-(gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzh.*z)./vh+(sigz.*vzi.*z)./vi+(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*veh.*(psii./e-1.0))./vh+(e.*sigqs.*vei.*(psii./e-1.0))./vi,sigqs-(psii.*sigqs.*2.0)./e+(psii.*((gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzi.*z)./vi+(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*vei.*(psii./e-1.0))./vi))./e-(gammai.*psii.*sigqs.*2.0)./e+(sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi+(e.*sigqs.*vei.*(psii./e-1.0))./vi,0.0,-q+e.*(qeme+dme.*qeeme).*(psii./e-1.0)],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun21.m: -------------------------------------------------------------------------------- 1 | function F = dFfun21(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun21_(P(4),P(3),P(10),P(9),D(1),D(2),D(4),S(1),P(2),P(1),P(11),X(2),X(1),M1(3),M1(2),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun21_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun21_(ah,ai,deltah,deltai,dme,dmz,dpz,e,gammah,gammai,kappa_p,psii,q,qeeme,qeme,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %DFFUN21_ 3 | % DF = DFFUN21_(AH,AI,DELTAH,DELTAI,DME,DMZ,DPZ,E,GAMMAH,GAMMAI,KAPPA_P,PSII,Q,QEEME,QEME,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:32 7 | 8 | dF = reshape([-vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)+psii./kappa_p+e.*vi.^((zetai-1.0)./(gammai-1.0))-(psii-1.0)./kappa_p,1.0./q.^2.*(ah-(q-1.0)./kappa_p)-1.0./q.^2.*(ai-(q-1.0)./kappa_p),-1.0./q.^2.*(ai-(q-1.0)./kappa_p)-psii./(kappa_p.*q)+(psii-1.0)./(kappa_p.*q),-sigqk,-sigqs-(sigz.*z.*(dmz-dpz))./(dmz.*dpz.*2.0),ah-ai,-(veh.*(sigqk+z).^2)./vh+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e-(sigqs.^2.*veh)./vh+(sigqs.^2.*vei)./vi+(gammah.*((sigqk+z).^2+sigqs.^2))./(e-1.0),-deltah+deltai+(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi)./e-(sigqk+z).^2./e-sigqs.^2./e-(psii.*((vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi))./e+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi,(qeme+dme.*qeeme).*(sigqk+z),sigqs.*(qeme+dme.*qeeme),0.0,0.0,-1.0,0.0,0.0,0.0,-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*veh.*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(gammah.*(sigqk.*2.0+z.*2.0).*(psii-1.0))./(e-1.0)-(e.*veh.*(sigqk+z).*(psii./e-1.0))./vh+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,sigqk+z+(psii.*((gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi-(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi))./e-(psii.*(sigqk.*2.0+z.*2.0))./e-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,-q+e.*(qeme+dme.*qeeme).*(psii./e-1.0),0.0,0.0,(gammah.*sigqs.*(psii-1.0).*2.0)./(e-1.0)-(gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzh.*z)./vh+(sigz.*vzi.*z)./vi+(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*veh.*(psii./e-1.0))./vh+(e.*sigqs.*vei.*(psii./e-1.0))./vi,sigqs-(psii.*sigqs.*2.0)./e+(psii.*((gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzi.*z)./vi+(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*vei.*(psii./e-1.0))./vi))./e-(gammai.*psii.*sigqs.*2.0)./e+(sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi+(e.*sigqs.*vei.*(psii./e-1.0))./vi,0.0,-q+e.*(qeme+dme.*qeeme).*(psii./e-1.0)],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun22.m: -------------------------------------------------------------------------------- 1 | function F = dFfun22(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun22_(P(4),P(3),P(10),P(9),D(1),S(1),P(2),P(1),P(11),X(2),X(1),M1(3),M1(2),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun22_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun22_(ah,ai,deltah,deltai,dme,e,gammah,gammai,kappa_p,psii,q,qeeme,qeme,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %DFFUN22_ 3 | % DF = DFFUN22_(AH,AI,DELTAH,DELTAI,DME,E,GAMMAH,GAMMAI,KAPPA_P,PSII,Q,QEEME,QEME,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:34 7 | 8 | dF = reshape([-vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)+psii./kappa_p+e.*vi.^((zetai-1.0)./(gammai-1.0))-(psii-1.0)./kappa_p,1.0./q.^2.*(ah-(q-1.0)./kappa_p)-1.0./q.^2.*(ai-(q-1.0)./kappa_p),-1.0./q.^2.*(ai-(q-1.0)./kappa_p)-psii./(kappa_p.*q)+(psii-1.0)./(kappa_p.*q),-sigqk,-sigqs,ah-ai,-(veh.*(sigqk+z).^2)./vh+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e-(sigqs.^2.*veh)./vh+(sigqs.^2.*vei)./vi+(gammah.*((sigqk+z).^2+sigqs.^2))./(e-1.0),-deltah+deltai+(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi)./e-(sigqk+z).^2./e-sigqs.^2./e-(psii.*((vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi))./e+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi,(qeme+dme.*qeeme).*(sigqk+z),sigqs.*(qeme+dme.*qeeme),0.0,0.0,-1.0,0.0,0.0,0.0,-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*veh.*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(gammah.*(sigqk.*2.0+z.*2.0).*(psii-1.0))./(e-1.0)-(e.*veh.*(sigqk+z).*(psii./e-1.0))./vh+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,sigqk+z+(psii.*((gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi-(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi))./e-(psii.*(sigqk.*2.0+z.*2.0))./e-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,-q+e.*(qeme+dme.*qeeme).*(psii./e-1.0),0.0,0.0,(gammah.*sigqs.*(psii-1.0).*2.0)./(e-1.0)-(gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzh.*z)./vh+(sigz.*vzi.*z)./vi+(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*veh.*(psii./e-1.0))./vh+(e.*sigqs.*vei.*(psii./e-1.0))./vi,sigqs-(psii.*sigqs.*2.0)./e+(psii.*((gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzi.*z)./vi+(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*vei.*(psii./e-1.0))./vi))./e-(gammai.*psii.*sigqs.*2.0)./e+(sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi+(e.*sigqs.*vei.*(psii./e-1.0))./vi,0.0,-q+e.*(qeme+dme.*qeeme).*(psii./e-1.0)],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun33.m: -------------------------------------------------------------------------------- 1 | function F = dFfun33(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun33_(P(4),P(3),P(10),P(9),S(1),P(2),P(1),P(11),X(2),X(1),X(4),X(5),P(7),V(5),V(2),V(4),V(1),V(6),V(3),S(2),P(14),P(13)); -------------------------------------------------------------------------------- /files/tmp_BruSan/dFfun33_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun33_(ah,ai,deltah,deltai,e,gammah,gammai,kappa_p,psii,q,sigqk,sigqs,sigz,veh,vei,vh,vi,vzh,vzi,z,zetah,zetai) 2 | %DFFUN33_ 3 | % DF = DFFUN33_(AH,AI,DELTAH,DELTAI,E,GAMMAH,GAMMAI,KAPPA_P,PSII,Q,SIGQK,SIGQS,SIGZ,VEH,VEI,VH,VI,VZH,VZI,Z,ZETAH,ZETAI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 21:00:36 7 | 8 | dF = reshape([-vh.^((zetah-1.0)./(gammah-1.0)).*(e-1.0)+psii./kappa_p+e.*vi.^((zetai-1.0)./(gammai-1.0))-(psii-1.0)./kappa_p,1.0./q.^2.*(ah-(q-1.0)./kappa_p)-1.0./q.^2.*(ai-(q-1.0)./kappa_p),-1.0./q.^2.*(ai-(q-1.0)./kappa_p)-psii./(kappa_p.*q)+(psii-1.0)./(kappa_p.*q),-sigqk,-sigqs,ah-ai,-(veh.*(sigqk+z).^2)./vh+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e-(sigqs.^2.*veh)./vh+(sigqs.^2.*vei)./vi+(gammah.*((sigqk+z).^2+sigqs.^2))./(e-1.0),-deltah+deltai+(-sigqs.*((sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi)+(gammai.*psii.*((sigqk+z).^2+sigqs.^2))./e+(e.*vei.*(sigqk+z).*(sigqk+z-(psii.*(sigqk+z))./e))./vi)./e-(sigqk+z).^2./e-sigqs.^2./e-(psii.*((vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi))./e+(vei.*(sigqk+z).^2)./vi-(gammai.*((sigqk+z).^2+sigqs.^2))./e+(sigqs.^2.*vei)./vi,0.0,0.0,0.0,0.0,-1.0,0.0,0.0,0.0,-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*veh.*(sigqk+z-(psii.*(sigqk+z))./e))./vh-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(gammah.*(sigqk.*2.0+z.*2.0).*(psii-1.0))./(e-1.0)-(e.*veh.*(sigqk+z).*(psii./e-1.0))./vh+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,sigqk+z+(psii.*((gammai.*psii.*(sigqk.*2.0+z.*2.0))./e+(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi-(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi))./e-(psii.*(sigqk.*2.0+z.*2.0))./e-(gammai.*psii.*(sigqk.*2.0+z.*2.0))./e-(e.*vei.*(sigqk+z-(psii.*(sigqk+z))./e))./vi+(e.*vei.*(sigqk+z).*(psii./e-1.0))./vi,-q,0.0,0.0,(gammah.*sigqs.*(psii-1.0).*2.0)./(e-1.0)-(gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzh.*z)./vh+(sigz.*vzi.*z)./vi+(e.*veh.*(sigqs-(psii.*sigqs)./e))./vh-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*veh.*(psii./e-1.0))./vh+(e.*sigqs.*vei.*(psii./e-1.0))./vi,sigqs-(psii.*sigqs.*2.0)./e+(psii.*((gammai.*psii.*sigqs.*2.0)./e-(sigz.*vzi.*z)./vi+(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi-(e.*sigqs.*vei.*(psii./e-1.0))./vi))./e-(gammai.*psii.*sigqs.*2.0)./e+(sigz.*vzi.*z)./vi-(e.*vei.*(sigqs-(psii.*sigqs)./e))./vi+(e.*sigqs.*vei.*(psii./e-1.0))./vi,0.0,-q],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_BruSan/mod_constraints.m: -------------------------------------------------------------------------------- 1 | cstv = {}; 2 | csts = {}; 3 | cstn = {}; 4 | 5 | % impose value at boundaries if necessary 6 | par.nbv = zeros(3,3); 7 | bndv = cell(3,3,2); 8 | bndn = cell(3,3,2); 9 | par.base = 3; 10 | 11 | -------------------------------------------------------------------------------- /files/tmp_BruSan/mod_differences.m: -------------------------------------------------------------------------------- 1 | % differences for price q 2 | if str2double(bnd(1))==1 3 | qe = ( qpe*dme - q*dme + q*dpe - qme*dpe )/(2*dpe*dme); 4 | qee = ( qepe*dme - qe*dme + qe*dpe - qeme*dpe )/(2*dpe*dme); 5 | qeee = ( qeepe*dme - qee*dme + qee*dpe - qeeme*dpe )/(2*dpe*dme); 6 | 7 | elseif str2double(bnd(1))==0 8 | qe = qepe - qeepe*dpe; 9 | qee = qeepe - qeeepe*dpe; 10 | qeee = ( qeepe - qee )/dpe; 11 | 12 | elseif str2double(bnd(1))==2 13 | qe = qeme + qeeme*dme; 14 | qee = qeeme + qeeeme*dme; 15 | qeee = ( qee - qeeme )/dme; 16 | 17 | end 18 | 19 | if str2double(bnd(2))==1 20 | qz = ( qpz*dmz - q*dmz + q*dpz - qmz*dpz )/(2*dpz*dmz); 21 | qzz = ( qzpz*dmz - qz*dmz + qz*dpz - qzmz*dpz )/(2*dpz*dmz); 22 | qzzz = ( qzzpz*dmz - qzz*dmz + qzz*dpz - qzzmz*dpz )/(2*dpz*dmz); 23 | 24 | elseif str2double(bnd(2))==0 25 | qz = 0; 26 | qzz = qzzpz - qzzzpz*dpz; 27 | qzzz = ( qzzpz - qzz )/dpz; 28 | 29 | elseif str2double(bnd(2))==2 30 | qz = qzmz + qzzmz*dmz; 31 | qzz = qzzmz + qzzzmz*dmz; 32 | qzzz = ( qzz - qzzmz )/dmz; 33 | 34 | end 35 | 36 | if str2double(bnd(1))==1 37 | qze_ = ( qzpe*dme - qz*dme + qz*dpe - qzme*dpe)/(2*dpe*dme); 38 | 39 | elseif str2double(bnd(1))==0 40 | qze_ = qezpe - qezepe*dpe; 41 | 42 | elseif str2double(bnd(1))==2 43 | qze_ = qezme + qezeme*dme; 44 | 45 | end 46 | 47 | if str2double(bnd(2))==1 48 | qez_ = ( qepz*dmz - qe*dmz + qe*dpz - qemz*dpz)/(2*dpz*dmz); 49 | 50 | elseif str2double(bnd(2))==0 51 | qez_ = qezpz - qezzpz*dpz; 52 | 53 | elseif str2double(bnd(2))==2 54 | qez_ = qezmz + qezzmz*dmz; 55 | 56 | end 57 | 58 | if and(str2double(bnd(1))==3,str2double(bnd(2))==3) 59 | qe = 0; 60 | qee = 0; 61 | qeee = 0; 62 | 63 | qz = 0; 64 | qzz = 0; 65 | qzzz = 0; 66 | 67 | qez = 0; 68 | qeze = 0; 69 | qezz = 0; 70 | 71 | else 72 | qez = 1/2*qez_ + 1/2*qze_; 73 | end 74 | 75 | if str2double(bnd(1))==1 76 | qeze = ( qezpe*dme - qez*dme + qez*dpe - qezme*dpe )/(2*dpe*dme); 77 | 78 | elseif str2double(bnd(1))==0 79 | qeze = ( qezpe - qez )/dpe; 80 | 81 | elseif str2double(bnd(1))==2 82 | qeze = ( qez - qezme )/dme; 83 | end 84 | 85 | if str2double(bnd(2))==1 86 | qezz = ( qezpz*dmz - qez*dmz + qez*dpz - qezmz*dpz )/(2*dpz*dmz); 87 | 88 | elseif str2double(bnd(2))==0 89 | qezz = ( qezpz - qez )/dpz; 90 | 91 | elseif str2double(bnd(2))==2 92 | qezz = ( qez - qezmz )/dmz; 93 | end 94 | 95 | -------------------------------------------------------------------------------- /files/tmp_BruSan/mod_guess.m: -------------------------------------------------------------------------------- 1 | X0 = NaN([par.nx par.dim]); 2 | 3 | X0(par.X.iq,:,:) = 1; 4 | X0(par.X.ipsii,:,:) = 0.95; 5 | X0(par.X.isigqs,:,:) = 0; 6 | X0(par.X.isigqk,:,:) = 0; 7 | X0(par.X.imue,:,:) = 0; 8 | 9 | vi = par.rhoi*ones(par.dim); 10 | vh = par.rhoh*ones(par.dim); 11 | 12 | -------------------------------------------------------------------------------- /files/tmp_BruSan/mod_model.m: -------------------------------------------------------------------------------- 1 | %state variables in this model are eta (e) and sigma (z): 2 | eta = e; % Equation (1) 3 | sigma = z; % Equation (2) 4 | 5 | wi = psii/e; % Equation (5) 6 | wh = (1-psii)/(1-e); % Equation (6) 7 | 8 | %foc wrt to consumption: 9 | ci = vi^((1-zetai)/(1-gammai)); % Equation (7) 10 | ch = vh^((1-zetah)/(1-gammah)); % Equation (8) 11 | 12 | %investment maximization: 13 | iotai = (q-1)/kappa_p; % Equation (9) 14 | iotah = (q-1)/kappa_p; % Equation (10) 15 | 16 | % per setup of the model: 17 | phii = log(1+kappa_p*iotai)/kappa_p - deltai; % Equation (11) 18 | phih = log(1+kappa_p*iotah)/kappa_p - deltah; % Equation (12) 19 | 20 | muz = kappa_z*(sigma - sigbar); % Equation (13) 21 | 22 | % from aggregation: 23 | muk = psii*phii + (1-psii)*phih; % Equation (14) 24 | 25 | % volatilities derived from model set up 26 | signis = wi*sigqs; % Equation (15) 27 | signhs = wh*sigqs; % Equation (16) 28 | 29 | signik = wi*(sigqk+sigma); % Equation (17) 30 | signhk = wh*(sigqk+sigma); % Equation (18) 31 | 32 | siges = signis - sigqs ; % Equation (19) 33 | sigek = signik - (sigqk+sigma); % Equation (20) 34 | 35 | % value function is a function of the two state variables sigma (z) and eta 36 | % (e) 37 | sigxik = vei/vi*sigek*e; % Equation (21) 38 | sigxhk = veh/vh*sigek*e; % Equation (22) 39 | 40 | sigxis = vei/vi*siges*e + vzi/vi*sigz*z; % Equation (23) 41 | sigxhs = veh/vh*siges*e + vzh/vh*sigz*z; % Equation (24) 42 | 43 | muq = qe/q*mue*e + qz/q*muz*z ... 44 | + 1/2*qee/q*( (siges*e)^2 + (sigek*e)^2 )... 45 | + 1/2*qzz/q*(sigz*z)^2 ... 46 | + qez*siges*e*sigz*z; % Equation (25) 47 | 48 | muri = (ai-iotai)/q + phii + muq + sigma*sigqk; % Equation (26) 49 | murh = (ah-iotah)/q + phih + muq + sigma*sigqk; % Equation (27) 50 | 51 | r = muri ... 52 | - gammai*wi*( (sigqs)^2 + (sigqk+sigma)^2 ) ... 53 | + sigqs*sigxis + (sigqk+sigma)*sigxik; % Equation (28) 54 | 55 | muni = r + wi*(muri-r) - ci; % Equation (29) 56 | munh = r + wh*(murh-r) - ch; % Equation (30) 57 | 58 | % System to Solve with Newton-Raphson 59 | eqmue = ( muni - muk - muq - sigma*sigqk + 1/2*(sigqk+sigma)^2 + 1/2*sigqs^2 - wi*sigqs^2 - wi*(sigqk+sigma)^2 ) - mue; % Equation (31) 60 | 61 | eqq = (ci*e + ch*(1-e))*q - psii*(ai-iotai) - (1-psii)*(ah-iotah); % Equation (32) 62 | 63 | eqpsii = muri - murh... 64 | + gammah*wh*( (sigqs)^2 + (sigqk+sigma)^2 ) ... 65 | - gammai*wi*( (sigqs)^2 + (sigqk+sigma)^2 ) ... 66 | + sigqs*sigxis + (sigqk+sigma)*sigxik ... 67 | - sigqs*sigxhs - (sigqk+sigma)*sigxhk; % Equation (33) 68 | 69 | eqsigqs = (sigz*z*qz + siges*e*qe) - sigqs*q; % Equation (34) 70 | eqsigqk = sigek*e*qe - sigqk*q; % Equation (35) 71 | 72 | % hjb variables 73 | muV1 = mue*e; 74 | muV2 = muz*z; 75 | 76 | sigV11 = (siges*e)^2 + (sigek*e)^2; 77 | sigV22 = (sigz*z)^2; 78 | sigV12 = siges*e*sigz*z; 79 | 80 | uVi = 0; 81 | uVh = 0; 82 | 83 | rVi = - (1-gammai)*( 1/(1-1/zetai)*(ci-rhoi) ... 84 | + r - ci ... 85 | + gammai/2*( wi*(sigqs)^2 + wi*(sigqk+sigma)^2 ) ); %Equation (36) 86 | 87 | rVh = - (1-gammah)*( 1/(1-1/zetah)*(ch-rhoh) ... 88 | + r - ch ... 89 | + gammah/2.*( wh*(sigqs)^2 + wh*(sigqk+sigma)^2 ) ); %Equation (36) 90 | 91 | -------------------------------------------------------------------------------- /files/tmp_BruSan/mod_parameters.m: -------------------------------------------------------------------------------- 1 | param = {'gammai','gammah','ai','ah','rhoi','rhoh','sigz','sigbar','deltai','deltah','kappa_p','kappa_z','zetai','zetah'}; 2 | 3 | par.gammai = 2; 4 | par.gammah = 3; 5 | 6 | par.ai = 0.10; 7 | par.ah = 0.10; 8 | 9 | par.rhoi = 0.04; 10 | par.rhoh = 0.04; 11 | 12 | par.sigz = 0.10; 13 | par.sigbar = 0.10; 14 | 15 | par.deltai = 0.04; 16 | par.deltah = 0.04; 17 | 18 | par.kappa_p = 2; 19 | par.kappa_z = 1; 20 | 21 | par.zetai = 1.15; 22 | par.zetah = 1.15; 23 | 24 | -------------------------------------------------------------------------------- /files/tmp_BruSan/mod_variables.m: -------------------------------------------------------------------------------- 1 | state = {'e','z'}; 2 | dvec = {'dme','dmz','dpe','dpz','dae','daz'}; 3 | value = {'vi','vei','vzi','vh','veh','vzh'}; 4 | 5 | vars = {'q','psii','mue','sigqk','sigqs'}; 6 | prices = {'q'}; 7 | 8 | vars_ = {'wi','wh','ci','ch',... 9 | 'sigma','siges','sigek',... 10 | 'muri','murh',... 11 | 'muk','muq','r',... 12 | 'muni','munh','signis','signhs','signik','signhk',... 13 | 'sigxis','sigxhs','sigxik','sigxhk','iotai','iotah','muz',... 14 | 'sigV11','sigV22','sigV12','muV1','muV2','uVi','uVh','rVi','rVh'}; 15 | 16 | vplot_ = {'vi','vei','vzi','vh','veh','vzh','qz','muz'}; 17 | 18 | latex_ = {'wi','wh','ci','ch',... 19 | 'sigma','siges','sigek',... 20 | 'muri','murh',... 21 | 'muk','muq','r',... 22 | 'muni','munh','signis','signhs','signik','signhk',... 23 | '$\sigma^{\xi}$','$\sigma^{\xi}$','$sigxik$','$sigxhk$','$\iota^i$','$\iota^h$','$\mu^z$',... 24 | 'sigV11','sigV22','sigV12','muV1','muV2','uVi','uVh','rVi','rVh'}; 25 | 26 | latex = {'$q$','$\psi$','$mue$','$sigqk$','$sigqs$'}; 27 | 28 | latexv = {'$v^i$','$v_\eta^i$','$v_z^i$','$v^h$','$v_\eta^h$','$v_z^h$'}; 29 | 30 | -------------------------------------------------------------------------------- /files/tmp_BruSan/par_solver.m: -------------------------------------------------------------------------------- 1 | 2 | % STATIC LOOP 3 | par.minI = 2; % necessary for the constraints to have time to adjust 4 | par.maxI = 10000; 5 | par.tolI = 1e-6; % make sure that par.tolI is not higher than par.tolK 6 | 7 | % OUTER STATIC LOOP: to update the derivatives using past iterations 8 | par.minK = 2; 9 | par.maxK = 100; 10 | par.tolK = 1e-4; 11 | 12 | par.damp1 = 0.10; 13 | par.damp1_ = 1.0; 14 | par.dampm1 = 0.0; 15 | 16 | par.damp2 = 0.10; 17 | par.damp2_ = 1.0; 18 | par.dampm2 = 0.0; 19 | 20 | % HJB LOOP: to update the derivatives using past iterations 21 | par.minT1 = 1000; 22 | par.minT2 = 10; 23 | 24 | par.maxT = 1000; 25 | par.tolT = 0.01; 26 | 27 | % with implicit method, dt can be large; however, it cannot be too big since we use guesses in the static 28 | % loop; if there are convergence issues, reduce dt and try again; dt2 should be small 29 | par.dt = 0.20; 30 | par.dt2 = 0.20; 31 | 32 | % STENCIL 33 | par.maxD = 1000; 34 | par.tolD = 1e-4; 35 | 36 | % maxP refers to how far we go in the direction in stencil; refer to the algorithm in paper for details 37 | par.maxP = 4; 38 | par.nextr = 10; % taille de l'extrapolation 39 | 40 | % STATE VARIABLES GRID 41 | vec1a = 0.01; 42 | vec1b = 0.99; 43 | vec2a = 0.01; 44 | vec2b = 0.99; 45 | 46 | par.n1 = 50; 47 | par.n2 = 50; 48 | 49 | vec1 = linspace(vec1a,vec1b,par.n1); % linear spacing is generally more stable 50 | vec2 = linspace(vec2a,vec2b,par.n2); 51 | 52 | 53 | -------------------------------------------------------------------------------- /files/tmp_BruSan/process1_.m: -------------------------------------------------------------------------------- 1 | function [myfun,dFF,FF] = process1_(XX0,P,Stmp,Dtmp,V0tmp,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,vtmp,par) 2 | if vtmp==1 3 | myfun = @(X) Ffun00(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 4 | dFF = dFfun00(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 5 | FF = Ffun00(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 6 | 7 | elseif vtmp==2 8 | myfun = @(X) Ffun01(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 9 | dFF = dFfun01(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 10 | FF = Ffun01(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 11 | 12 | elseif vtmp==3 13 | myfun = @(X) Ffun02(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 14 | dFF = dFfun02(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 15 | FF = Ffun02(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 16 | 17 | elseif vtmp==4 18 | myfun = @(X) Ffun10(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 19 | dFF = dFfun10(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 20 | FF = Ffun10(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 21 | 22 | elseif vtmp==5 23 | myfun = @(X) Ffun11(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 24 | dFF = dFfun11(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 25 | FF = Ffun11(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 26 | 27 | elseif vtmp==6 28 | myfun = @(X) Ffun12(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 29 | dFF = dFfun12(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 30 | FF = Ffun12(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 31 | 32 | elseif vtmp==7 33 | myfun = @(X) Ffun20(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 34 | dFF = dFfun20(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 35 | FF = Ffun20(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 36 | 37 | elseif vtmp==8 38 | myfun = @(X) Ffun21(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 39 | dFF = dFfun21(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 40 | FF = Ffun21(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 41 | 42 | elseif vtmp==9 43 | myfun = @(X) Ffun22(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 44 | dFF = dFfun22(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 45 | FF = Ffun22(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 46 | 47 | elseif vtmp==0 48 | myfun = @(X) Ffun33(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 49 | dFF = dFfun33(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 50 | FF = Ffun33(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 51 | end 52 | 53 | -------------------------------------------------------------------------------- /files/tmp_BruSan/process2_.m: -------------------------------------------------------------------------------- 1 | function L = process2_(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,vtmp,par) 2 | if vtmp==1 3 | L = Lfun00(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 4 | 5 | elseif vtmp==2 6 | L = Lfun01(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 7 | 8 | elseif vtmp==3 9 | L = Lfun02(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 10 | 11 | elseif vtmp==4 12 | L = Lfun10(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 13 | 14 | elseif vtmp==5 15 | L = Lfun11(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 16 | 17 | elseif vtmp==6 18 | L = Lfun12(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 19 | 20 | elseif vtmp==7 21 | L = Lfun20(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 22 | 23 | elseif vtmp==8 24 | L = Lfun21(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 25 | 26 | elseif vtmp==9 27 | L = Lfun22(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 28 | 29 | elseif vtmp==0 30 | L = Lfun33(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 31 | end 32 | 33 | -------------------------------------------------------------------------------- /files/tmp_BruSan/verfun.m: -------------------------------------------------------------------------------- 1 | function [ver,cst1,BC,BC_,icst,icst_] = verfun(SS,XX,CC,cstv,csts,cstn,bndv,bndn,i1,i2,par) %#ok 2 | 3 | e = SS(1); 4 | 5 | z = SS(2); 6 | 7 | if i1==1 8 | bnd1 = '0'; 9 | elseif i1==par.n1 10 | bnd1 = '2'; 11 | else 12 | bnd1 = '1'; 13 | end 14 | 15 | if i2==1 16 | bnd2 = '0'; 17 | elseif i2==par.n2 18 | bnd2 = '2'; 19 | else 20 | bnd2 = '1'; 21 | end 22 | 23 | bnd = [bnd1,bnd2]; 24 | 25 | ver = base2dec(bnd,par.base)+1; 26 | 27 | cst1 = NaN(par.ncc,1); 28 | 29 | icst = NaN(par.ncc,1); 30 | icst_ = NaN(par.ncc,1); 31 | BC = NaN(par.ncc,1); 32 | BC_ = NaN(par.ncc,1); 33 | 34 | 35 | -------------------------------------------------------------------------------- /files/tmp_BruSan/xxfun.m: -------------------------------------------------------------------------------- 1 | SS = reshape(S,par.ns,par.N); 2 | DD = reshape(D,par.nd,par.N); 3 | VV = reshape(V0,par.nv,par.N); 4 | XX = reshape(X0,par.nx,par.N); 5 | LL0 = reshape(L0,par.nl,par.N); 6 | MM1 = reshape(M1,par.nl,par.N); 7 | MM2 = reshape(M2,par.nl,par.N); 8 | PP1 = reshape(P1,par.nl,par.N); 9 | PP2 = reshape(P2,par.nl,par.N); 10 | 11 | XX_ = Xfun11(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par); 12 | X_ = squeeze(reshape(XX_,[par.nx_ par.dim])); 13 | 14 | Xtmp = squeeze(reshape(Xfun00(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 15 | X_(:,1,1) = Xtmp(:,1,1); 16 | 17 | Xtmp = squeeze(reshape(Xfun01(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 18 | X_(:,1,2:end-1) = Xtmp(:,1,2:end-1); 19 | 20 | Xtmp = squeeze(reshape(Xfun02(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 21 | X_(:,1,end) = Xtmp(:,1,end); 22 | 23 | Xtmp = squeeze(reshape(Xfun10(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 24 | X_(:,2:end-1,1) = Xtmp(:,2:end-1,1); 25 | 26 | Xtmp = squeeze(reshape(Xfun12(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 27 | X_(:,2:end-1,end) = Xtmp(:,2:end-1,end); 28 | 29 | Xtmp = squeeze(reshape(Xfun20(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 30 | X_(:,end,1) = Xtmp(:,end,1); 31 | 32 | Xtmp = squeeze(reshape(Xfun21(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 33 | X_(:,end,2:end-1) = Xtmp(:,end,2:end-1); 34 | 35 | Xtmp = squeeze(reshape(Xfun22(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 36 | X_(:,end,end) = Xtmp(:,end,end); 37 | 38 | if strcmp(par.loop,'on') 39 | if loop==1 40 | X_ = squeeze(reshape(Xfun33(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 41 | end 42 | end 43 | 44 | XX_ = reshape(X_,par.nx_,par.N); 45 | -------------------------------------------------------------------------------- /files/tmp_DiTella/CCfun00.m: -------------------------------------------------------------------------------- 1 | function F = CCfun00(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun00_; -------------------------------------------------------------------------------- /files/tmp_DiTella/CCfun01.m: -------------------------------------------------------------------------------- 1 | function F = CCfun01(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun01_; -------------------------------------------------------------------------------- /files/tmp_DiTella/CCfun02.m: -------------------------------------------------------------------------------- 1 | function F = CCfun02(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun02_; -------------------------------------------------------------------------------- /files/tmp_DiTella/CCfun10.m: -------------------------------------------------------------------------------- 1 | function F = CCfun10(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun10_; -------------------------------------------------------------------------------- /files/tmp_DiTella/CCfun11.m: -------------------------------------------------------------------------------- 1 | function F = CCfun11(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun11_; -------------------------------------------------------------------------------- /files/tmp_DiTella/CCfun12.m: -------------------------------------------------------------------------------- 1 | function F = CCfun12(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun12_; -------------------------------------------------------------------------------- /files/tmp_DiTella/CCfun20.m: -------------------------------------------------------------------------------- 1 | function F = CCfun20(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun20_; -------------------------------------------------------------------------------- /files/tmp_DiTella/CCfun21.m: -------------------------------------------------------------------------------- 1 | function F = CCfun21(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun21_; -------------------------------------------------------------------------------- /files/tmp_DiTella/CCfun22.m: -------------------------------------------------------------------------------- 1 | function F = CCfun22(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun22_; -------------------------------------------------------------------------------- /files/tmp_DiTella/CCfun33.m: -------------------------------------------------------------------------------- 1 | function F = CCfun33(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = CCfun33_; -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun00.m: -------------------------------------------------------------------------------- 1 | function F = Ffun00(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun00_(P(19),P(20),Vzero,P(2),P(8),D(3),D(4),S(1),P(1),X(2),P(15),P(14),X(1),P1(3),P1(2),P2(5),P2(6),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun00_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun00_(A,B,Vzero,ai,deltai,dpe,dpz,e,gammai,mue,phii_,psii,q,qeepe,qepe,qzpz,qzzpz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %FFUN00_ 3 | % F = FFUN00_(A,B,VZERO,AI,DELTAI,DPE,DPZ,E,GAMMAI,MUE,PHII_,PSII,Q,QEEPE,QEPE,QZPZ,QZZPZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:01 7 | 8 | F = [Vzero-ai-deltai+q.*(e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0))-(B-q)./(A.*2.0);Vzero-mue+e.*((ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q-rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)+(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q).^2+((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q)-gammai.*(theta+(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q)-(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q).^2)./e-phii_.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q)-(gammai.*phii_.^2.*z.^2)./e+1.0./e.^2.*gammai.*phii_.^2.*z.^2+(phii_.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e);Vzero-sigma+phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q)-sigw.*(e-1.0)-(sigx.*(qepe-dpe.*qeepe))./q-(sigz.*z.*(qzpz-dpz.*qzzpz))./q;Vzero-sigx+e.*(sigma+(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q);Vzero+(gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)-(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)+gammai.*sigw-gammai.*theta-(gammai.*phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun01.m: -------------------------------------------------------------------------------- 1 | function F = Ffun01(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun01_(P(19),P(20),Vzero,P(2),P(8),D(2),D(3),D(4),S(1),P(1),X(2),P(15),P(14),X(1),P1(3),P1(2),M2(1),P2(1),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun01_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun01_(A,B,Vzero,ai,deltai,dmz,dpe,dpz,e,gammai,mue,phii_,psii,q,qeepe,qepe,qmz,qpz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %FFUN01_ 3 | % F = FFUN01_(A,B,VZERO,AI,DELTAI,DMZ,DPE,DPZ,E,GAMMAI,MUE,PHII_,PSII,Q,QEEPE,QEPE,QMZ,QPZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:03 7 | 8 | F = [Vzero-ai-deltai+q.*(e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0))-(B-q)./(A.*2.0);Vzero-mue+e.*((ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q+(sigma+(sigx.*(qepe-dpe.*qeepe))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)).^2-rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)+((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0))-(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)).^2)./e-gammai.*(theta+(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)))./e).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0))-(gammai.*phii_.^2.*z.^2)./e+1.0./e.^2.*gammai.*phii_.^2.*z.^2+(phii_.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)))./e-phii_.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)));Vzero-sigma+phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0))-sigw.*(e-1.0)-(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0);Vzero-sigx+e.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)))./e-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0));Vzero+(gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)-(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)+gammai.*sigw-gammai.*theta-(gammai.*phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)))./e]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun02.m: -------------------------------------------------------------------------------- 1 | function F = Ffun02(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun02_(P(19),P(20),Vzero,P(2),P(8),D(2),D(3),S(1),P(1),X(2),P(15),P(14),X(1),P1(3),P1(2),M2(5),M2(6),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun02_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun02_(A,B,Vzero,ai,deltai,dmz,dpe,e,gammai,mue,phii_,psii,q,qeepe,qepe,qzmz,qzzmz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %FFUN02_ 3 | % F = FFUN02_(A,B,VZERO,AI,DELTAI,DMZ,DPE,E,GAMMAI,MUE,PHII_,PSII,Q,QEEPE,QEPE,QZMZ,QZZMZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:04 7 | 8 | F = [Vzero-ai-deltai+q.*(e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0))-(B-q)./(A.*2.0);Vzero-mue+e.*((ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q-rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)+(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q).^2+((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q)-gammai.*(theta+(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q)-(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q).^2)./e-phii_.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q)-(gammai.*phii_.^2.*z.^2)./e+1.0./e.^2.*gammai.*phii_.^2.*z.^2+(phii_.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e);Vzero-sigma+phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q)-sigw.*(e-1.0)-(sigx.*(qepe-dpe.*qeepe))./q-(sigz.*z.*(qzmz+dmz.*qzzmz))./q;Vzero-sigx+e.*(sigma+(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q);Vzero+(gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)-(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)+gammai.*sigw-gammai.*theta-(gammai.*phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun10.m: -------------------------------------------------------------------------------- 1 | function F = Ffun10(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun10_(P(19),P(20),Vzero,P(2),P(8),D(1),D(3),D(4),S(1),P(1),X(2),P(15),P(14),X(1),M1(1),P1(1),P2(5),P2(6),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun10_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun10_(A,B,Vzero,ai,deltai,dme,dpe,dpz,e,gammai,mue,phii_,psii,q,qme,qpe,qzpz,qzzpz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %FFUN10_ 3 | % F = FFUN10_(A,B,VZERO,AI,DELTAI,DME,DPE,DPZ,E,GAMMAI,MUE,PHII_,PSII,Q,QME,QPE,QZPZ,QZZPZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:05 7 | 8 | F = [Vzero-ai-deltai+q.*(e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0))-(B-q)./(A.*2.0);Vzero-mue+e.*((ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q+(sigma+(sigz.*z.*(qzpz-dpz.*qzzpz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)).^2-rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)+((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0).*(sigma+(sigz.*z.*(qzpz-dpz.*qzzpz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0))-(phii_.*(sigma+(sigz.*z.*(qzpz-dpz.*qzzpz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)).^2)./e-gammai.*(theta+(phii_.*(sigma+(sigz.*z.*(qzpz-dpz.*qzzpz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)))./e).*(sigma+(sigz.*z.*(qzpz-dpz.*qzzpz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0))-(gammai.*phii_.^2.*z.^2)./e+1.0./e.^2.*gammai.*phii_.^2.*z.^2+(phii_.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(sigma+(sigz.*z.*(qzpz-dpz.*qzzpz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)))./e-phii_.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi).*(sigma+(sigz.*z.*(qzpz-dpz.*qzzpz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)));Vzero-sigma+phii_.*(sigma+(sigz.*z.*(qzpz-dpz.*qzzpz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0))-sigw.*(e-1.0)-(sigz.*z.*(qzpz-dpz.*qzzpz))./q+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0);Vzero-sigx+e.*(sigma+(phii_.*(sigma+(sigz.*z.*(qzpz-dpz.*qzzpz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)))./e+(sigz.*z.*(qzpz-dpz.*qzzpz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0));Vzero+(gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)-(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)+gammai.*sigw-gammai.*theta-(gammai.*phii_.*(sigma+(sigz.*z.*(qzpz-dpz.*qzzpz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)))./e]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun11.m: -------------------------------------------------------------------------------- 1 | function F = Ffun11(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun11_(P(19),P(20),Vzero,P(2),P(8),D(1),D(2),D(3),D(4),S(1),P(1),X(2),P(15),P(14),X(1),M1(1),M2(1),P1(1),P2(1),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun11_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun11_(A,B,Vzero,ai,deltai,dme,dmz,dpe,dpz,e,gammai,mue,phii_,psii,q,qme,qmz,qpe,qpz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %FFUN11_ 3 | % F = FFUN11_(A,B,VZERO,AI,DELTAI,DME,DMZ,DPE,DPZ,E,GAMMAI,MUE,PHII_,PSII,Q,QME,QMZ,QPE,QPZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:07 7 | 8 | F = [Vzero-ai-deltai+q.*(e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0))-(B-q)./(A.*2.0);Vzero-mue+e.*((ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q+(-sigma+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)).^2-rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)+gammai.*(theta-(phii_.*(-sigma+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)))./e).*(-sigma+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0))-((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0).*(-sigma+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0))-(phii_.*(-sigma+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)).^2)./e-(gammai.*phii_.^2.*z.^2)./e+1.0./e.^2.*gammai.*phii_.^2.*z.^2-(phii_.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(-sigma+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)))./e+phii_.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi).*(-sigma+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)));Vzero-sigma-phii_.*(-sigma+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0))-sigw.*(e-1.0)+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0);Vzero-sigx-e.*(-sigma+(phii_.*(-sigma+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)))./e+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0));Vzero+(gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)-(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)+gammai.*sigw-gammai.*theta+(gammai.*phii_.*(-sigma+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)))./e]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun12.m: -------------------------------------------------------------------------------- 1 | function F = Ffun12(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun12_(P(19),P(20),Vzero,P(2),P(8),D(1),D(2),D(3),S(1),P(1),X(2),P(15),P(14),X(1),M1(1),P1(1),M2(5),M2(6),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun12_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun12_(A,B,Vzero,ai,deltai,dme,dmz,dpe,e,gammai,mue,phii_,psii,q,qme,qpe,qzmz,qzzmz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %FFUN12_ 3 | % F = FFUN12_(A,B,VZERO,AI,DELTAI,DME,DMZ,DPE,E,GAMMAI,MUE,PHII_,PSII,Q,QME,QPE,QZMZ,QZZMZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:08 7 | 8 | F = [Vzero-ai-deltai+q.*(e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0))-(B-q)./(A.*2.0);Vzero-mue+e.*((ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q+(sigma+(sigz.*z.*(qzmz+dmz.*qzzmz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)).^2-rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)+((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0).*(sigma+(sigz.*z.*(qzmz+dmz.*qzzmz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0))-(phii_.*(sigma+(sigz.*z.*(qzmz+dmz.*qzzmz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)).^2)./e-gammai.*(theta+(phii_.*(sigma+(sigz.*z.*(qzmz+dmz.*qzzmz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)))./e).*(sigma+(sigz.*z.*(qzmz+dmz.*qzzmz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0))-(gammai.*phii_.^2.*z.^2)./e+1.0./e.^2.*gammai.*phii_.^2.*z.^2+(phii_.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(sigma+(sigz.*z.*(qzmz+dmz.*qzzmz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)))./e-phii_.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi).*(sigma+(sigz.*z.*(qzmz+dmz.*qzzmz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)));Vzero-sigma+phii_.*(sigma+(sigz.*z.*(qzmz+dmz.*qzzmz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0))-sigw.*(e-1.0)-(sigz.*z.*(qzmz+dmz.*qzzmz))./q+(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0);Vzero-sigx+e.*(sigma+(phii_.*(sigma+(sigz.*z.*(qzmz+dmz.*qzzmz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)))./e+(sigz.*z.*(qzmz+dmz.*qzzmz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0));Vzero+(gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)-(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)+gammai.*sigw-gammai.*theta-(gammai.*phii_.*(sigma+(sigz.*z.*(qzmz+dmz.*qzzmz))./q-(sigx.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*q.*2.0)))./e]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun20.m: -------------------------------------------------------------------------------- 1 | function F = Ffun20(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun20_(P(19),P(20),Vzero,P(2),P(8),D(1),D(4),S(1),P(1),X(2),P(15),P(14),X(1),M1(3),M1(2),P2(5),P2(6),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun20_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun20_(A,B,Vzero,ai,deltai,dme,dpz,e,gammai,mue,phii_,psii,q,qeeme,qeme,qzpz,qzzpz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %FFUN20_ 3 | % F = FFUN20_(A,B,VZERO,AI,DELTAI,DME,DPZ,E,GAMMAI,MUE,PHII_,PSII,Q,QEEME,QEME,QZPZ,QZZPZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:10 7 | 8 | F = [Vzero-ai-deltai+q.*(e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0))-(B-q)./(A.*2.0);Vzero-mue+e.*((ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q-rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)+(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q).^2+((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q)-gammai.*(theta+(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q)-(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q).^2)./e-phii_.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q)-(gammai.*phii_.^2.*z.^2)./e+1.0./e.^2.*gammai.*phii_.^2.*z.^2+(phii_.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e);Vzero-sigma+phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q)-sigw.*(e-1.0)-(sigx.*(qeme+dme.*qeeme))./q-(sigz.*z.*(qzpz-dpz.*qzzpz))./q;Vzero-sigx+e.*(sigma+(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q);Vzero+(gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)-(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)+gammai.*sigw-gammai.*theta-(gammai.*phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun21.m: -------------------------------------------------------------------------------- 1 | function F = Ffun21(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun21_(P(19),P(20),Vzero,P(2),P(8),D(1),D(2),D(4),S(1),P(1),X(2),P(15),P(14),X(1),M1(3),M1(2),M2(1),P2(1),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun21_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun21_(A,B,Vzero,ai,deltai,dme,dmz,dpz,e,gammai,mue,phii_,psii,q,qeeme,qeme,qmz,qpz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %FFUN21_ 3 | % F = FFUN21_(A,B,VZERO,AI,DELTAI,DME,DMZ,DPZ,E,GAMMAI,MUE,PHII_,PSII,Q,QEEME,QEME,QMZ,QPZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:11 7 | 8 | F = [Vzero-ai-deltai+q.*(e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0))-(B-q)./(A.*2.0);Vzero-mue+e.*((ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q+(sigma+(sigx.*(qeme+dme.*qeeme))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)).^2-rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)+((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0).*(sigma+(sigx.*(qeme+dme.*qeeme))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0))-(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)).^2)./e-gammai.*(theta+(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)))./e).*(sigma+(sigx.*(qeme+dme.*qeeme))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0))-(gammai.*phii_.^2.*z.^2)./e+1.0./e.^2.*gammai.*phii_.^2.*z.^2+(phii_.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(sigma+(sigx.*(qeme+dme.*qeeme))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)))./e-phii_.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi).*(sigma+(sigx.*(qeme+dme.*qeeme))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)));Vzero-sigma+phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0))-sigw.*(e-1.0)-(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0);Vzero-sigx+e.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)))./e-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0));Vzero+(gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)-(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)+gammai.*sigw-gammai.*theta-(gammai.*phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q-(sigz.*z.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*q.*2.0)))./e]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun22.m: -------------------------------------------------------------------------------- 1 | function F = Ffun22(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun22_(P(19),P(20),Vzero,P(2),P(8),D(1),D(2),S(1),P(1),X(2),P(15),P(14),X(1),M1(3),M1(2),M2(5),M2(6),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun22_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun22_(A,B,Vzero,ai,deltai,dme,dmz,e,gammai,mue,phii_,psii,q,qeeme,qeme,qzmz,qzzmz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %FFUN22_ 3 | % F = FFUN22_(A,B,VZERO,AI,DELTAI,DME,DMZ,E,GAMMAI,MUE,PHII_,PSII,Q,QEEME,QEME,QZMZ,QZZMZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:12 7 | 8 | F = [Vzero-ai-deltai+q.*(e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0))-(B-q)./(A.*2.0);Vzero-mue+e.*((ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q-rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)+(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q).^2+((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q)-gammai.*(theta+(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q)-(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q).^2)./e-phii_.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q)-(gammai.*phii_.^2.*z.^2)./e+1.0./e.^2.*gammai.*phii_.^2.*z.^2+(phii_.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e);Vzero-sigma+phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q)-sigw.*(e-1.0)-(sigx.*(qeme+dme.*qeeme))./q-(sigz.*z.*(qzmz+dmz.*qzzmz))./q;Vzero-sigx+e.*(sigma+(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q);Vzero+(gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)-(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)+gammai.*sigw-gammai.*theta-(gammai.*phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun33.m: -------------------------------------------------------------------------------- 1 | function F = Ffun33(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Ffun33_(P(19),P(20),Vzero,P(2),P(8),S(1),P(1),X(2),P(15),P(14),X(1),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Ffun33_.m: -------------------------------------------------------------------------------- 1 | function F = Ffun33_(A,B,Vzero,ai,deltai,e,gammai,mue,phii_,psii,q,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %FFUN33_ 3 | % F = FFUN33_(A,B,VZERO,AI,DELTAI,E,GAMMAI,MUE,PHII_,PSII,Q,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:13 7 | 8 | F = [Vzero-ai-deltai+q.*(e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0))-(B-q)./(A.*2.0);Vzero-mue+e.*((ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q+sigma.^2-rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-gammai.*sigma.*(theta+(phii_.*sigma)./e)+sigma.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0)-(phii_.*sigma.^2)./e-(gammai.*phii_.^2.*z.^2)./e+1.0./e.^2.*gammai.*phii_.^2.*z.^2+(phii_.*sigma.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw))./e-phii_.*sigma.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi));Vzero-sigma+phii_.*sigma-sigw.*(e-1.0);Vzero-sigx+e.*(sigma+(phii_.*sigma)./e);Vzero+(gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)-(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)+gammai.*sigw-gammai.*theta-(gammai.*phii_.*sigma)./e]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun00.m: -------------------------------------------------------------------------------- 1 | function F = Lfun00(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun00_(Vzero,D(3),D(4),X(1),P1(4),P1(3),P1(2),P1(9),P1(8),P2(8),P2(10),P2(5),P2(6),P2(7)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun00_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun00_(Vzero,dpe,dpz,q,qeeepe,qeepe,qepe,qezepe,qezpe,qezpz,qezzpz,qzpz,qzzpz,qzzzpz) 2 | %LFUN00_ 3 | % L = LFUN00_(VZERO,DPE,DPZ,Q,QEEEPE,QEEPE,QEPE,QEZEPE,QEZPE,QEZPZ,QEZZPZ,QZPZ,QZZPZ,QZZZPZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:02 7 | 8 | L = [Vzero+q;Vzero+qepe-dpe.*qeepe;Vzero+qeepe-dpe.*qeeepe;Vzero+qeeepe;Vzero+qzpz-dpz.*qzzpz;Vzero+qzzpz-dpz.*qzzzpz;Vzero+qzzzpz;Vzero+qezpe./2.0+qezpz./2.0-(dpe.*qezepe)./2.0-(dpz.*qezzpz)./2.0;Vzero+(qezpe./2.0-qezpz./2.0+(dpe.*qezepe)./2.0+(dpz.*qezzpz)./2.0)./dpe;Vzero+(qezpe.*(-1.0./2.0)+qezpz./2.0+(dpe.*qezepe)./2.0+(dpz.*qezzpz)./2.0)./dpz]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun01.m: -------------------------------------------------------------------------------- 1 | function F = Lfun01(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun01_(Vzero,D(2),D(3),D(4),X(1),P1(4),P1(3),M2(2),P1(2),P2(2),P1(9),M2(8),P1(8),P2(8),M2(1),P2(1),M2(5),P2(5),M2(6),P2(6)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun01_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun01_(Vzero,dmz,dpe,dpz,q,qeeepe,qeepe,qemz,qepe,qepz,qezepe,qezmz,qezpe,qezpz,qmz,qpz,qzmz,qzpz,qzzmz,qzzpz) 2 | %LFUN01_ 3 | % L = LFUN01_(VZERO,DMZ,DPE,DPZ,Q,QEEEPE,QEEPE,QEMZ,QEPE,QEPZ,QEZEPE,QEZMZ,QEZPE,QEZPZ,QMZ,QPZ,QZMZ,QZPZ,QZZMZ,QZZPZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:03 7 | 8 | L = [Vzero+q;Vzero+qepe-dpe.*qeepe;Vzero+qeepe-dpe.*qeeepe;Vzero+qeeepe;Vzero-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*dpz.*2.0);Vzero+(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dmz.*dpz.*2.0);Vzero+(dmz.*qzzpz-dpz.*qzzmz+(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dmz.*2.0)-(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dpz.*2.0))./(dmz.*dpz.*2.0);Vzero+qezpe./2.0-(dpe.*qezepe)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qepe-dpe.*qeepe)+dpz.*(qepe-dpe.*qeepe))./(dmz.*dpz.*4.0);Vzero+(qezpe./2.0+(dpe.*qezepe)./2.0-(dmz.*qepz-dpz.*qemz-dmz.*(qepe-dpe.*qeepe)+dpz.*(qepe-dpe.*qeepe))./(dmz.*dpz.*4.0))./dpe;Vzero+(dmz.*qezpz-dpz.*qezmz-dmz.*(qezpe./2.0-(dpe.*qezepe)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qepe-dpe.*qeepe)+dpz.*(qepe-dpe.*qeepe))./(dmz.*dpz.*4.0))+dpz.*(qezpe./2.0-(dpe.*qezepe)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qepe-dpe.*qeepe)+dpz.*(qepe-dpe.*qeepe))./(dmz.*dpz.*4.0)))./(dmz.*dpz.*2.0)]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun02.m: -------------------------------------------------------------------------------- 1 | function F = Lfun02(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun02_(Vzero,D(2),D(3),X(1),P1(4),P1(3),P1(2),P1(9),M2(8),P1(8),M2(10),M2(5),M2(6),M2(7)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun02_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun02_(Vzero,dmz,dpe,q,qeeepe,qeepe,qepe,qezepe,qezmz,qezpe,qezzmz,qzmz,qzzmz,qzzzmz) 2 | %LFUN02_ 3 | % L = LFUN02_(VZERO,DMZ,DPE,Q,QEEEPE,QEEPE,QEPE,QEZEPE,QEZMZ,QEZPE,QEZZMZ,QZMZ,QZZMZ,QZZZMZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:05 7 | 8 | L = [Vzero+q;Vzero+qepe-dpe.*qeepe;Vzero+qeepe-dpe.*qeeepe;Vzero+qeeepe;Vzero+qzmz+dmz.*qzzmz;Vzero+qzzmz+dmz.*qzzzmz;Vzero+qzzzmz;Vzero+qezpe./2.0+qezmz./2.0+(dmz.*qezzmz)./2.0-(dpe.*qezepe)./2.0;Vzero+(qezpe./2.0-qezmz./2.0-(dmz.*qezzmz)./2.0+(dpe.*qezepe)./2.0)./dpe;Vzero+(qezpe./2.0-qezmz./2.0+(dmz.*qezzmz)./2.0-(dpe.*qezepe)./2.0)./dmz]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun10.m: -------------------------------------------------------------------------------- 1 | function F = Lfun10(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun10_(Vzero,D(1),D(3),D(4),X(1),M1(3),P1(3),M1(2),P1(2),M1(8),P1(8),P2(8),P2(10),M1(1),P1(1),M1(5),P1(5),P2(5),P2(6),P2(7)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun10_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun10_(Vzero,dme,dpe,dpz,q,qeeme,qeepe,qeme,qepe,qezme,qezpe,qezpz,qezzpz,qme,qpe,qzme,qzpe,qzpz,qzzpz,qzzzpz) 2 | %LFUN10_ 3 | % L = LFUN10_(VZERO,DME,DPE,DPZ,Q,QEEME,QEEPE,QEME,QEPE,QEZME,QEZPE,QEZPZ,QEZZPZ,QME,QPE,QZME,QZPE,QZPZ,QZZPZ,QZZZPZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:06 7 | 8 | L = [Vzero+q;Vzero-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*dpe.*2.0);Vzero+(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dme.*dpe.*2.0);Vzero+(dme.*qeepe-dpe.*qeeme+(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dme.*2.0)-(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dpe.*2.0))./(dme.*dpe.*2.0);Vzero+qzpz-dpz.*qzzpz;Vzero+qzzpz-dpz.*qzzzpz;Vzero+qzzzpz;Vzero+qezpz./2.0-(dpz.*qezzpz)./2.0+(dme.*qzpe-dpe.*qzme-dme.*(qzpz-dpz.*qzzpz)+dpe.*(qzpz-dpz.*qzzpz))./(dme.*dpe.*4.0);Vzero+(dme.*qezpe-dpe.*qezme-dme.*(qezpz./2.0-(dpz.*qezzpz)./2.0+(dme.*qzpe-dpe.*qzme-dme.*(qzpz-dpz.*qzzpz)+dpe.*(qzpz-dpz.*qzzpz))./(dme.*dpe.*4.0))+dpe.*(qezpz./2.0-(dpz.*qezzpz)./2.0+(dme.*qzpe-dpe.*qzme-dme.*(qzpz-dpz.*qzzpz)+dpe.*(qzpz-dpz.*qzzpz))./(dme.*dpe.*4.0)))./(dme.*dpe.*2.0);Vzero+(qezpz./2.0+(dpz.*qezzpz)./2.0-(dme.*qzpe-dpe.*qzme-dme.*(qzpz-dpz.*qzzpz)+dpe.*(qzpz-dpz.*qzzpz))./(dme.*dpe.*4.0))./dpz]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun11.m: -------------------------------------------------------------------------------- 1 | function F = Lfun11(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun11_(Vzero,D(1),D(2),D(3),D(4),X(1),M1(3),P1(3),M1(2),M2(2),P1(2),P2(2),M1(8),M2(8),P1(8),P2(8),M1(1),M2(1),P1(1),P2(1),M1(5),M2(5),P1(5),P2(5),M2(6),P2(6)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun11_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun11_(Vzero,dme,dmz,dpe,dpz,q,qeeme,qeepe,qeme,qemz,qepe,qepz,qezme,qezmz,qezpe,qezpz,qme,qmz,qpe,qpz,qzme,qzmz,qzpe,qzpz,qzzmz,qzzpz) 2 | %LFUN11_ 3 | % L = LFUN11_(VZERO,DME,DMZ,DPE,DPZ,Q,QEEME,QEEPE,QEME,QEMZ,QEPE,QEPZ,QEZME,QEZMZ,QEZPE,QEZPZ,QME,QMZ,QPE,QPZ,QZME,QZMZ,QZPE,QZPZ,QZZMZ,QZZPZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:07 7 | 8 | L = [Vzero+q;Vzero-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*dpe.*2.0);Vzero+(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dme.*dpe.*2.0);Vzero+(dme.*qeepe-dpe.*qeeme+(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dme.*2.0)-(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dpe.*2.0))./(dme.*dpe.*2.0);Vzero-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*dpz.*2.0);Vzero+(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dmz.*dpz.*2.0);Vzero+(dmz.*qzzpz-dpz.*qzzmz+(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dmz.*2.0)-(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dpz.*2.0))./(dmz.*dpz.*2.0);Vzero+(dmz.*qepz-dpz.*qemz+(dmz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)-(dpz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0))./(dmz.*dpz.*4.0)+(dme.*qzpe-dpe.*qzme+(dme.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)-(dpe.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0))./(dme.*dpe.*4.0);Vzero+(dme.*qezpe-dpe.*qezme-dme.*((dmz.*qepz-dpz.*qemz+(dmz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)-(dpz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0))./(dmz.*dpz.*4.0)+(dme.*qzpe-dpe.*qzme+(dme.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)-(dpe.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0))./(dme.*dpe.*4.0))+dpe.*((dmz.*qepz-dpz.*qemz+(dmz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)-(dpz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0))./(dmz.*dpz.*4.0)+(dme.*qzpe-dpe.*qzme+(dme.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)-(dpe.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0))./(dme.*dpe.*4.0)))./(dme.*dpe.*2.0);Vzero+(dmz.*qezpz-dpz.*qezmz-dmz.*((dmz.*qepz-dpz.*qemz+(dmz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)-(dpz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0))./(dmz.*dpz.*4.0)+(dme.*qzpe-dpe.*qzme+(dme.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)-(dpe.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0))./(dme.*dpe.*4.0))+dpz.*((dmz.*qepz-dpz.*qemz+(dmz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0)-(dpz.*(dme.*q-dpe.*q-dme.*qpe+dpe.*qme))./(dme.*dpe.*2.0))./(dmz.*dpz.*4.0)+(dme.*qzpe-dpe.*qzme+(dme.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0)-(dpe.*(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz))./(dmz.*dpz.*2.0))./(dme.*dpe.*4.0)))./(dmz.*dpz.*2.0)]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun12.m: -------------------------------------------------------------------------------- 1 | function F = Lfun12(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun12_(Vzero,D(1),D(2),D(3),X(1),M1(3),P1(3),M1(2),P1(2),M1(8),M2(8),P1(8),M2(10),M1(1),P1(1),M1(5),M2(5),P1(5),M2(6),M2(7)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun12_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun12_(Vzero,dme,dmz,dpe,q,qeeme,qeepe,qeme,qepe,qezme,qezmz,qezpe,qezzmz,qme,qpe,qzme,qzmz,qzpe,qzzmz,qzzzmz) 2 | %LFUN12_ 3 | % L = LFUN12_(VZERO,DME,DMZ,DPE,Q,QEEME,QEEPE,QEME,QEPE,QEZME,QEZMZ,QEZPE,QEZZMZ,QME,QPE,QZME,QZMZ,QZPE,QZZMZ,QZZZMZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:09 7 | 8 | L = [Vzero+q;Vzero-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*dpe.*2.0);Vzero+(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dme.*dpe.*2.0);Vzero+(dme.*qeepe-dpe.*qeeme+(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dme.*2.0)-(dme.*qepe-dpe.*qeme-(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dme.*2.0)+(dme.*q-dpe.*q-dme.*qpe+dpe.*qme)./(dpe.*2.0))./(dpe.*2.0))./(dme.*dpe.*2.0);Vzero+qzmz+dmz.*qzzmz;Vzero+qzzmz+dmz.*qzzzmz;Vzero+qzzzmz;Vzero+qezmz./2.0+(dmz.*qezzmz)./2.0+(dme.*qzpe-dpe.*qzme-dme.*(qzmz+dmz.*qzzmz)+dpe.*(qzmz+dmz.*qzzmz))./(dme.*dpe.*4.0);Vzero+(dme.*qezpe-dpe.*qezme-dme.*(qezmz./2.0+(dmz.*qezzmz)./2.0+(dme.*qzpe-dpe.*qzme-dme.*(qzmz+dmz.*qzzmz)+dpe.*(qzmz+dmz.*qzzmz))./(dme.*dpe.*4.0))+dpe.*(qezmz./2.0+(dmz.*qezzmz)./2.0+(dme.*qzpe-dpe.*qzme-dme.*(qzmz+dmz.*qzzmz)+dpe.*(qzmz+dmz.*qzzmz))./(dme.*dpe.*4.0)))./(dme.*dpe.*2.0);Vzero+(qezmz.*(-1.0./2.0)+(dmz.*qezzmz)./2.0+(dme.*qzpe-dpe.*qzme-dme.*(qzmz+dmz.*qzzmz)+dpe.*(qzmz+dmz.*qzzmz))./(dme.*dpe.*4.0))./dmz]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun20.m: -------------------------------------------------------------------------------- 1 | function F = Lfun20(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun20_(Vzero,D(1),D(4),X(1),M1(4),M1(3),M1(2),M1(9),M1(8),P2(8),P2(10),P2(5),P2(6),P2(7)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun20_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun20_(Vzero,dme,dpz,q,qeeeme,qeeme,qeme,qezeme,qezme,qezpz,qezzpz,qzpz,qzzpz,qzzzpz) 2 | %LFUN20_ 3 | % L = LFUN20_(VZERO,DME,DPZ,Q,QEEEME,QEEME,QEME,QEZEME,QEZME,QEZPZ,QEZZPZ,QZPZ,QZZPZ,QZZZPZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:10 7 | 8 | L = [Vzero+q;Vzero+qeme+dme.*qeeme;Vzero+qeeme+dme.*qeeeme;Vzero+qeeeme;Vzero+qzpz-dpz.*qzzpz;Vzero+qzzpz-dpz.*qzzzpz;Vzero+qzzzpz;Vzero+qezme./2.0+qezpz./2.0+(dme.*qezeme)./2.0-(dpz.*qezzpz)./2.0;Vzero-(qezme./2.0-qezpz./2.0-(dme.*qezeme)./2.0+(dpz.*qezzpz)./2.0)./dme;Vzero-(qezme./2.0-qezpz./2.0+(dme.*qezeme)./2.0-(dpz.*qezzpz)./2.0)./dpz]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun21.m: -------------------------------------------------------------------------------- 1 | function F = Lfun21(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun21_(Vzero,D(1),D(2),D(4),X(1),M1(4),M1(3),M1(2),M2(2),P2(2),M1(9),M1(8),M2(8),P2(8),M2(1),P2(1),M2(5),P2(5),M2(6),P2(6)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun21_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun21_(Vzero,dme,dmz,dpz,q,qeeeme,qeeme,qeme,qemz,qepz,qezeme,qezme,qezmz,qezpz,qmz,qpz,qzmz,qzpz,qzzmz,qzzpz) 2 | %LFUN21_ 3 | % L = LFUN21_(VZERO,DME,DMZ,DPZ,Q,QEEEME,QEEME,QEME,QEMZ,QEPZ,QEZEME,QEZME,QEZMZ,QEZPZ,QMZ,QPZ,QZMZ,QZPZ,QZZMZ,QZZPZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:11 7 | 8 | L = [Vzero+q;Vzero+qeme+dme.*qeeme;Vzero+qeeme+dme.*qeeeme;Vzero+qeeeme;Vzero-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*dpz.*2.0);Vzero+(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dmz.*dpz.*2.0);Vzero+(dmz.*qzzpz-dpz.*qzzmz+(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dmz.*2.0)-(dmz.*qzpz-dpz.*qzmz-(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dmz.*2.0)+(dmz.*q-dpz.*q-dmz.*qpz+dpz.*qmz)./(dpz.*2.0))./(dpz.*2.0))./(dmz.*dpz.*2.0);Vzero+qezme./2.0+(dme.*qezeme)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qeme+dme.*qeeme)+dpz.*(qeme+dme.*qeeme))./(dmz.*dpz.*4.0);Vzero+(qezme.*(-1.0./2.0)+(dme.*qezeme)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qeme+dme.*qeeme)+dpz.*(qeme+dme.*qeeme))./(dmz.*dpz.*4.0))./dme;Vzero+(dmz.*qezpz-dpz.*qezmz-dmz.*(qezme./2.0+(dme.*qezeme)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qeme+dme.*qeeme)+dpz.*(qeme+dme.*qeeme))./(dmz.*dpz.*4.0))+dpz.*(qezme./2.0+(dme.*qezeme)./2.0+(dmz.*qepz-dpz.*qemz-dmz.*(qeme+dme.*qeeme)+dpz.*(qeme+dme.*qeeme))./(dmz.*dpz.*4.0)))./(dmz.*dpz.*2.0)]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun22.m: -------------------------------------------------------------------------------- 1 | function F = Lfun22(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun22_(Vzero,D(1),D(2),X(1),M1(4),M1(3),M1(2),M1(9),M1(8),M2(8),M2(10),M2(5),M2(6),M2(7)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun22_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun22_(Vzero,dme,dmz,q,qeeeme,qeeme,qeme,qezeme,qezme,qezmz,qezzmz,qzmz,qzzmz,qzzzmz) 2 | %LFUN22_ 3 | % L = LFUN22_(VZERO,DME,DMZ,Q,QEEEME,QEEME,QEME,QEZEME,QEZME,QEZMZ,QEZZMZ,QZMZ,QZZMZ,QZZZMZ) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:12 7 | 8 | L = [Vzero+q;Vzero+qeme+dme.*qeeme;Vzero+qeeme+dme.*qeeeme;Vzero+qeeeme;Vzero+qzmz+dmz.*qzzmz;Vzero+qzzmz+dmz.*qzzzmz;Vzero+qzzzmz;Vzero+qezme./2.0+qezmz./2.0+(dme.*qezeme)./2.0+(dmz.*qezzmz)./2.0;Vzero+(qezme.*(-1.0./2.0)+qezmz./2.0+(dme.*qezeme)./2.0+(dmz.*qezzmz)./2.0)./dme;Vzero+(qezme./2.0-qezmz./2.0+(dme.*qezeme)./2.0+(dmz.*qezzmz)./2.0)./dmz]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun33.m: -------------------------------------------------------------------------------- 1 | function F = Lfun33(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Lfun33_(Vzero,X(1)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Lfun33_.m: -------------------------------------------------------------------------------- 1 | function L = Lfun33_(Vzero,q) 2 | %LFUN33_ 3 | % L = LFUN33_(VZERO,Q) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:13 7 | 8 | L = [Vzero+q;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/Xfun00.m: -------------------------------------------------------------------------------- 1 | function F = Xfun00(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun00_(P(19,:),P(20,:),Vzero,P(2,:),P(8,:),D(3,:),D(4,:),S(1,:),P(1,:),P(11,:),X(2,:),P(15,:),P(14,:),X(1,:),P1(4,:),P1(3,:),P1(2,:),P1(9,:),P1(8,:),P2(8,:),P2(10,:),P2(5,:),P2(6,:),P2(7,:),P(5,:),P(4,:),P(18,:),X(3,:),X(4,:),P(6,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Xfun01.m: -------------------------------------------------------------------------------- 1 | function F = Xfun01(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun01_(P(19,:),P(20,:),Vzero,P(2,:),P(8,:),D(2,:),D(3,:),D(4,:),S(1,:),P(1,:),P(11,:),X(2,:),P(15,:),P(14,:),X(1,:),P1(4,:),P1(3,:),M2(2,:),P1(2,:),P2(2,:),P1(9,:),M2(8,:),P1(8,:),P2(8,:),M2(1,:),P2(1,:),M2(5,:),P2(5,:),M2(6,:),P2(6,:),P(5,:),P(4,:),P(18,:),X(3,:),X(4,:),P(6,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Xfun02.m: -------------------------------------------------------------------------------- 1 | function F = Xfun02(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun02_(P(19,:),P(20,:),Vzero,P(2,:),P(8,:),D(2,:),D(3,:),S(1,:),P(1,:),P(11,:),X(2,:),P(15,:),P(14,:),X(1,:),P1(4,:),P1(3,:),P1(2,:),P1(9,:),M2(8,:),P1(8,:),M2(10,:),M2(5,:),M2(6,:),M2(7,:),P(5,:),P(4,:),P(18,:),X(3,:),X(4,:),P(6,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Xfun10.m: -------------------------------------------------------------------------------- 1 | function F = Xfun10(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun10_(P(19,:),P(20,:),Vzero,P(2,:),P(8,:),D(1,:),D(3,:),D(4,:),S(1,:),P(1,:),P(11,:),X(2,:),P(15,:),P(14,:),X(1,:),M1(3,:),P1(3,:),M1(2,:),P1(2,:),M1(8,:),P1(8,:),P2(8,:),P2(10,:),M1(1,:),P1(1,:),M1(5,:),P1(5,:),P2(5,:),P2(6,:),P2(7,:),P(5,:),P(4,:),P(18,:),X(3,:),X(4,:),P(6,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Xfun11.m: -------------------------------------------------------------------------------- 1 | function F = Xfun11(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun11_(P(19,:),P(20,:),Vzero,P(2,:),P(8,:),D(1,:),D(2,:),D(3,:),D(4,:),S(1,:),P(1,:),P(11,:),X(2,:),P(15,:),P(14,:),X(1,:),M1(3,:),P1(3,:),M1(2,:),M2(2,:),P1(2,:),P2(2,:),M1(8,:),M2(8,:),P1(8,:),P2(8,:),M1(1,:),M2(1,:),P1(1,:),P2(1,:),M1(5,:),M2(5,:),P1(5,:),P2(5,:),M2(6,:),P2(6,:),P(5,:),P(4,:),P(18,:),X(3,:),X(4,:),P(6,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Xfun12.m: -------------------------------------------------------------------------------- 1 | function F = Xfun12(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun12_(P(19,:),P(20,:),Vzero,P(2,:),P(8,:),D(1,:),D(2,:),D(3,:),S(1,:),P(1,:),P(11,:),X(2,:),P(15,:),P(14,:),X(1,:),M1(3,:),P1(3,:),M1(2,:),P1(2,:),M1(8,:),M2(8,:),P1(8,:),M2(10,:),M1(1,:),P1(1,:),M1(5,:),M2(5,:),P1(5,:),M2(6,:),M2(7,:),P(5,:),P(4,:),P(18,:),X(3,:),X(4,:),P(6,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Xfun20.m: -------------------------------------------------------------------------------- 1 | function F = Xfun20(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun20_(P(19,:),P(20,:),Vzero,P(2,:),P(8,:),D(1,:),D(4,:),S(1,:),P(1,:),P(11,:),X(2,:),P(15,:),P(14,:),X(1,:),M1(4,:),M1(3,:),M1(2,:),M1(9,:),M1(8,:),P2(8,:),P2(10,:),P2(5,:),P2(6,:),P2(7,:),P(5,:),P(4,:),P(18,:),X(3,:),X(4,:),P(6,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Xfun21.m: -------------------------------------------------------------------------------- 1 | function F = Xfun21(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun21_(P(19,:),P(20,:),Vzero,P(2,:),P(8,:),D(1,:),D(2,:),D(4,:),S(1,:),P(1,:),P(11,:),X(2,:),P(15,:),P(14,:),X(1,:),M1(4,:),M1(3,:),M1(2,:),M2(2,:),P2(2,:),M1(9,:),M1(8,:),M2(8,:),P2(8,:),M2(1,:),P2(1,:),M2(5,:),P2(5,:),M2(6,:),P2(6,:),P(5,:),P(4,:),P(18,:),X(3,:),X(4,:),P(6,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Xfun22.m: -------------------------------------------------------------------------------- 1 | function F = Xfun22(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun22_(P(19,:),P(20,:),Vzero,P(2,:),P(8,:),D(1,:),D(2,:),S(1,:),P(1,:),P(11,:),X(2,:),P(15,:),P(14,:),X(1,:),M1(4,:),M1(3,:),M1(2,:),M1(9,:),M1(8,:),M2(8,:),M2(10,:),M2(5,:),M2(6,:),M2(7,:),P(5,:),P(4,:),P(18,:),X(3,:),X(4,:),P(6,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Xfun33.m: -------------------------------------------------------------------------------- 1 | function F = Xfun33(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = Xfun33_(P(19,:),P(20,:),Vzero,P(2,:),P(8,:),S(1,:),P(1,:),P(11,:),X(2,:),P(15,:),P(14,:),X(1,:),P(5,:),P(4,:),P(18,:),X(3,:),X(4,:),P(6,:),X(5,:),P(7,:),V(5,:),V(2,:),V(4,:),V(1,:),V(6,:),V(3,:),S(2,:)); -------------------------------------------------------------------------------- /files/tmp_DiTella/Xfun33_.m: -------------------------------------------------------------------------------- 1 | function X_ = Xfun33_(A,B,Vzero,ai,deltai,e,gammai,kappa_z,mue,phii_,psii,q,rhoh,rhoi,sigma,sigw,sigx,sigz,theta,vbar,veh,vei,vh,vi,vzh,vzi,z) 2 | %XFUN33_ 3 | % X_ = XFUN33_(A,B,VZERO,AI,DELTAI,E,GAMMAI,KAPPA_Z,MUE,PHII_,PSII,Q,RHOH,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VBAR,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:13 7 | 8 | X_ = [Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero+rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii);Vzero+rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii);Vzero+sigz.*sqrt(z);Vzero;Vzero-deltai-(B-q)./(A.*2.0)+(ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q-gammai.*sigma.*(theta+(phii_.*sigma)./e)+sigma.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0)-(gammai.*phii_.^2.*z.^2)./e-phii_.*sigma.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi);Vzero-deltai-(B-q)./(A.*2.0)+(ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q-gammai.*sigma.*(theta+(phii_.*sigma)./e)+sigma.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0)-(gammai.*phii_.^2.*z.^2)./e+1.0./e.^2.*gammai.*phii_.^2.*z.^2+(phii_.*sigma.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw))./e-phii_.*sigma.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi);Vzero-deltai+sigw.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw)-(B-q)./(A.*2.0)+(ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q-gammai.*sigma.*(theta+(phii_.*sigma)./e)+sigma.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0)-(gammai.*phii_.^2.*z.^2)./e-phii_.*sigma.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi);Vzero+(phii_.*sigma)./e;Vzero+(e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi;Vzero+(e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh;Vzero-deltai-(B-q)./(A.*2.0);Vzero+kappa_z.*(vbar-z);Vzero+(gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw;Vzero+(B-q).^2./(A.*4.0)-(B.*(B-q))./(A.*2.0);Vzero+z;Vzero+e;Vzero+1.0./(e.*q);Vzero;Vzero+e.^2.*sigx.^2;Vzero+sigz.^2.*z.^3;Vzero+e.*sigx.*sigz.*z.^(3.0./2.0);Vzero+e.*mue;Vzero+kappa_z.*z.*(vbar-z);Vzero;Vzero;Vzero+deltai-(rhoi-rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii))./(psii-1.0)+(B-q)./(A.*2.0)-(ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q+theta.^2+rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)+gammai.*sigma.*(theta+(phii_.*sigma)./e)-sigma.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0)-(1.0./e.^2.*gammai.*phii_.^2.*sigma.^2)./2.0+(gammai.*phii_.^2.*z.^2)./e+phii_.*sigma.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi);Vzero+deltai-(rhoh-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii))./(psii-1.0)+(B-q)./(A.*2.0)-(ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))./q-(gammai.*sigw.^2)./2.0+rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii)+gammai.*sigma.*(theta+(phii_.*sigma)./e)-sigma.*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0)+(gammai.*phii_.^2.*z.^2)./e+phii_.*sigma.*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi);Vzero+q;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero;Vzero]; 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun00.m: -------------------------------------------------------------------------------- 1 | function F = dFfun00(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun00_(P(19),P(20),P(2),D(3),D(4),S(1),P(1),P(15),P(14),X(1),P1(3),P1(2),P2(5),P2(6),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun00_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun00_(A,B,ai,dpe,dpz,e,gammai,phii_,psii,q,qeepe,qepe,qzpz,qzzpz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %DFFUN00_ 3 | % DF = DFFUN00_(A,B,AI,DPE,DPZ,E,GAMMAI,PHII_,PSII,Q,QEEPE,QEPE,QZPZ,QZZPZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:01 7 | 8 | dF = reshape([1.0./(A.*2.0)+e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0),-e.*((1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q).*2.0+1.0./q.^2.*(ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))+(B./(A.*2.0)-(B.*2.0-q.*2.0)./(A.*4.0))./q+(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0)-gammai.*(theta+(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e).*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz))+(phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw))./e-(phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q).*2.0)./e-phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)).*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)-(gammai.*phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e),-phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz))+1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz),-e.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+(phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)))./e+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)),(gammai.*phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)))./e,0.0,-1.0,0.0,0.0,0.0,0.0,e.*(gammai.*(phii_-1.0).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q)+(gammai.*phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e),-e+1.0,0.0,gammai,0.0,e.*(((qepe-dpe.*qeepe).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q).*2.0)./q+((qepe-dpe.*qeepe).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0))./q-(gammai.*(qepe-dpe.*qeepe).*(theta+(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e))./q+(phii_.*(qepe-dpe.*qeepe).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw))./(e.*q)-(phii_.*(qepe-dpe.*qeepe).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q).*2.0)./(e.*q)-(phii_.*(qepe-dpe.*qeepe).*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi))./q+(phii_.*veh.*(gammai-1.0).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./vh+(e.*veh.*(gammai-1.0).*(phii_-1.0).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./vh-(gammai.*phii_.*(qepe-dpe.*qeepe).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./(e.*q)-(e.*phii_.*vei.*(gammai-1.0).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./vi),-(qepe-dpe.*qeepe)./q+(phii_.*(qepe-dpe.*qeepe))./q,e.*((qepe-dpe.*qeepe)./q+(phii_.*(qepe-dpe.*qeepe))./(e.*q))-1.0,(e.*veh.*(gammai-1.0))./vh-(e.*vei.*(gammai-1.0))./vi-(gammai.*phii_.*(qepe-dpe.*qeepe))./(e.*q),0.0,-e.*gammai.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q),0.0,0.0,-gammai],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun01.m: -------------------------------------------------------------------------------- 1 | function F = dFfun01(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun01_(P(19),P(20),P(2),D(2),D(3),D(4),S(1),P(1),P(15),P(14),X(1),P1(3),P1(2),M2(1),P2(1),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun02.m: -------------------------------------------------------------------------------- 1 | function F = dFfun02(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun02_(P(19),P(20),P(2),D(2),D(3),S(1),P(1),P(15),P(14),X(1),P1(3),P1(2),M2(5),M2(6),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun02_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun02_(A,B,ai,dmz,dpe,e,gammai,phii_,psii,q,qeepe,qepe,qzmz,qzzmz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %DFFUN02_ 3 | % DF = DFFUN02_(A,B,AI,DMZ,DPE,E,GAMMAI,PHII_,PSII,Q,QEEPE,QEPE,QZMZ,QZZMZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:04 7 | 8 | dF = reshape([1.0./(A.*2.0)+e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0),-e.*((1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q).*2.0+1.0./q.^2.*(ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))+(B./(A.*2.0)-(B.*2.0-q.*2.0)./(A.*4.0))./q+(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0)-gammai.*(theta+(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e).*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz))+(phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw))./e-(phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q).*2.0)./e-phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)).*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)-(gammai.*phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e),-phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz))+1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz),-e.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+(phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)))./e+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)),(gammai.*phii_.*(1.0./q.^2.*sigx.*(qepe-dpe.*qeepe)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)))./e,0.0,-1.0,0.0,0.0,0.0,0.0,e.*(gammai.*(phii_-1.0).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q)+(gammai.*phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e),-e+1.0,0.0,gammai,0.0,e.*(((qepe-dpe.*qeepe).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q).*2.0)./q+((qepe-dpe.*qeepe).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0))./q-(gammai.*(qepe-dpe.*qeepe).*(theta+(phii_.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e))./q+(phii_.*(qepe-dpe.*qeepe).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw))./(e.*q)-(phii_.*(qepe-dpe.*qeepe).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q).*2.0)./(e.*q)-(phii_.*(qepe-dpe.*qeepe).*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi))./q+(phii_.*veh.*(gammai-1.0).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./vh+(e.*veh.*(gammai-1.0).*(phii_-1.0).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./vh-(gammai.*phii_.*(qepe-dpe.*qeepe).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./(e.*q)-(e.*phii_.*vei.*(gammai-1.0).*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./vi),-(qepe-dpe.*qeepe)./q+(phii_.*(qepe-dpe.*qeepe))./q,e.*((qepe-dpe.*qeepe)./q+(phii_.*(qepe-dpe.*qeepe))./(e.*q))-1.0,(e.*veh.*(gammai-1.0))./vh-(e.*vei.*(gammai-1.0))./vi-(gammai.*phii_.*(qepe-dpe.*qeepe))./(e.*q),0.0,-e.*gammai.*(sigma+(sigx.*(qepe-dpe.*qeepe))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q),0.0,0.0,-gammai],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun10.m: -------------------------------------------------------------------------------- 1 | function F = dFfun10(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun10_(P(19),P(20),P(2),D(1),D(3),D(4),S(1),P(1),P(15),P(14),X(1),M1(1),P1(1),P2(5),P2(6),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun11.m: -------------------------------------------------------------------------------- 1 | function F = dFfun11(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun11_(P(19),P(20),P(2),D(1),D(2),D(3),D(4),S(1),P(1),P(15),P(14),X(1),M1(1),M2(1),P1(1),P2(1),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun12.m: -------------------------------------------------------------------------------- 1 | function F = dFfun12(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun12_(P(19),P(20),P(2),D(1),D(2),D(3),S(1),P(1),P(15),P(14),X(1),M1(1),P1(1),M2(5),M2(6),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun20.m: -------------------------------------------------------------------------------- 1 | function F = dFfun20(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun20_(P(19),P(20),P(2),D(1),D(4),S(1),P(1),P(15),P(14),X(1),M1(3),M1(2),P2(5),P2(6),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun20_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun20_(A,B,ai,dme,dpz,e,gammai,phii_,psii,q,qeeme,qeme,qzpz,qzzpz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %DFFUN20_ 3 | % DF = DFFUN20_(A,B,AI,DME,DPZ,E,GAMMAI,PHII_,PSII,Q,QEEME,QEME,QZPZ,QZZPZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:09 7 | 8 | dF = reshape([1.0./(A.*2.0)+e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0),-e.*((1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q).*2.0+1.0./q.^2.*(ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))+(B./(A.*2.0)-(B.*2.0-q.*2.0)./(A.*4.0))./q+(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0)-gammai.*(theta+(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e).*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz))+(phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw))./e-(phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q).*2.0)./e-phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)).*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)-(gammai.*phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e),-phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz))+1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz),-e.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+(phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)))./e+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)),(gammai.*phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzpz-dpz.*qzzpz)))./e,0.0,-1.0,0.0,0.0,0.0,0.0,e.*(gammai.*(phii_-1.0).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q)+(gammai.*phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e),-e+1.0,0.0,gammai,0.0,e.*(((qeme+dme.*qeeme).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q).*2.0)./q+((qeme+dme.*qeeme).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0))./q-(gammai.*(qeme+dme.*qeeme).*(theta+(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./e))./q+(phii_.*(qeme+dme.*qeeme).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw))./(e.*q)-(phii_.*(qeme+dme.*qeeme).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q).*2.0)./(e.*q)-(phii_.*(qeme+dme.*qeeme).*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi))./q+(phii_.*veh.*(gammai-1.0).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./vh+(e.*veh.*(gammai-1.0).*(phii_-1.0).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./vh-(gammai.*phii_.*(qeme+dme.*qeeme).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./(e.*q)-(e.*phii_.*vei.*(gammai-1.0).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q))./vi),-(qeme+dme.*qeeme)./q+(phii_.*(qeme+dme.*qeeme))./q,e.*((qeme+dme.*qeeme)./q+(phii_.*(qeme+dme.*qeeme))./(e.*q))-1.0,(e.*veh.*(gammai-1.0))./vh-(e.*vei.*(gammai-1.0))./vi-(gammai.*phii_.*(qeme+dme.*qeeme))./(e.*q),0.0,-e.*gammai.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzpz-dpz.*qzzpz))./q),0.0,0.0,-gammai],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun21.m: -------------------------------------------------------------------------------- 1 | function F = dFfun21(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun21_(P(19),P(20),P(2),D(1),D(2),D(4),S(1),P(1),P(15),P(14),X(1),M1(3),M1(2),M2(1),P2(1),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun22.m: -------------------------------------------------------------------------------- 1 | function F = dFfun22(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun22_(P(19),P(20),P(2),D(1),D(2),S(1),P(1),P(15),P(14),X(1),M1(3),M1(2),M2(5),M2(6),P(4),P(18),X(3),X(4),P(6),X(5),V(5),V(2),V(4),V(1),V(6),V(3),S(2)); -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun22_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun22_(A,B,ai,dme,dmz,e,gammai,phii_,psii,q,qeeme,qeme,qzmz,qzzmz,rhoi,sigma,sigw,sigx,sigz,theta,veh,vei,vh,vi,vzh,vzi,z) 2 | %DFFUN22_ 3 | % DF = DFFUN22_(A,B,AI,DME,DMZ,E,GAMMAI,PHII_,PSII,Q,QEEME,QEME,QZMZ,QZZMZ,RHOI,SIGMA,SIGW,SIGX,SIGZ,THETA,VEH,VEI,VH,VI,VZH,VZI,Z) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:12 7 | 8 | dF = reshape([1.0./(A.*2.0)+e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0),-e.*((1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q).*2.0+1.0./q.^2.*(ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))+(B./(A.*2.0)-(B.*2.0-q.*2.0)./(A.*4.0))./q+(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0)-gammai.*(theta+(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e).*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz))+(phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw))./e-(phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q).*2.0)./e-phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)).*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi)-(gammai.*phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e),-phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz))+1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz),-e.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+(phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)))./e+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)),(gammai.*phii_.*(1.0./q.^2.*sigx.*(qeme+dme.*qeeme)+1.0./q.^2.*sigz.*z.*(qzmz+dmz.*qzzmz)))./e,0.0,-1.0,0.0,0.0,0.0,0.0,e.*(gammai.*(phii_-1.0).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q)+(gammai.*phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e),-e+1.0,0.0,gammai,0.0,e.*(((qeme+dme.*qeeme).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q).*2.0)./q+((qeme+dme.*qeeme).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw).*(phii_-1.0))./q-(gammai.*(qeme+dme.*qeeme).*(theta+(phii_.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./e))./q+(phii_.*(qeme+dme.*qeeme).*((gammai-1.0).*((e.*sigx.*veh)./vh+(sigz.*vzh.*sqrt(z))./vh)+gammai.*sigw))./(e.*q)-(phii_.*(qeme+dme.*qeeme).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q).*2.0)./(e.*q)-(phii_.*(qeme+dme.*qeeme).*(gammai-1.0).*((e.*sigx.*vei)./vi+(sigz.*vzi.*sqrt(z))./vi))./q+(phii_.*veh.*(gammai-1.0).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./vh+(e.*veh.*(gammai-1.0).*(phii_-1.0).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./vh-(gammai.*phii_.*(qeme+dme.*qeeme).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./(e.*q)-(e.*phii_.*vei.*(gammai-1.0).*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q))./vi),-(qeme+dme.*qeeme)./q+(phii_.*(qeme+dme.*qeeme))./q,e.*((qeme+dme.*qeeme)./q+(phii_.*(qeme+dme.*qeeme))./(e.*q))-1.0,(e.*veh.*(gammai-1.0))./vh-(e.*vei.*(gammai-1.0))./vi-(gammai.*phii_.*(qeme+dme.*qeeme))./(e.*q),0.0,-e.*gammai.*(sigma+(sigx.*(qeme+dme.*qeeme))./q+(sigz.*z.*(qzmz+dmz.*qzzmz))./q),0.0,0.0,-gammai],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun33.m: -------------------------------------------------------------------------------- 1 | function F = dFfun33(P,S,D,V,X,L0,M1,M2,P1,P2,Vone,Vzero,par) 2 | F = dFfun33_(P(19),P(20),P(2),S(1),P(1),P(15),P(14),X(1),P(4),P(18),V(5),V(2),V(4),V(1)); -------------------------------------------------------------------------------- /files/tmp_DiTella/dFfun33_.m: -------------------------------------------------------------------------------- 1 | function dF = dFfun33_(A,B,ai,e,gammai,phii_,psii,q,rhoi,sigma,veh,vei,vh,vi) 2 | %DFFUN33_ 3 | % DF = DFFUN33_(A,B,AI,E,GAMMAI,PHII_,PSII,Q,RHOI,SIGMA,VEH,VEI,VH,VI) 4 | 5 | % This function was generated by the Symbolic Math Toolbox version 8.3. 6 | % 22-Dec-2020 16:11:13 7 | 8 | dF = reshape([1.0./(A.*2.0)+e.*rhoi.^(1.0./psii).*vi.^((psii-1.0)./psii)-rhoi.^(1.0./psii).*vh.^((psii-1.0)./psii).*(e-1.0),-e.*(1.0./q.^2.*(ai-(B-q).^2./(A.*4.0)+(B.*(B-q))./(A.*2.0))+(B./(A.*2.0)-(B.*2.0-q.*2.0)./(A.*4.0))./q),0.0,0.0,0.0,0.0,-1.0,0.0,0.0,0.0,0.0,e.*(gammai.*sigma.*(phii_-1.0)+(gammai.*phii_.*sigma)./e),-e+1.0,0.0,gammai,0.0,e.*((phii_.*sigma.*veh.*(gammai-1.0))./vh+(e.*sigma.*veh.*(gammai-1.0).*(phii_-1.0))./vh-(e.*phii_.*sigma.*vei.*(gammai-1.0))./vi),0.0,-1.0,(e.*veh.*(gammai-1.0))./vh-(e.*vei.*(gammai-1.0))./vi,0.0,-e.*gammai.*sigma,0.0,0.0,-gammai],[5,5]); 9 | -------------------------------------------------------------------------------- /files/tmp_DiTella/mod_constraints.m: -------------------------------------------------------------------------------- 1 | cstv = {}; 2 | csts = {}; 3 | cstn = {}; 4 | 5 | % impose value at boundaries if necessary 6 | par.nbv = zeros(3,3); 7 | bndv = cell(3,3,2); 8 | bndn = cell(3,3,2); 9 | par.base = 3; 10 | 11 | -------------------------------------------------------------------------------- /files/tmp_DiTella/mod_differences.m: -------------------------------------------------------------------------------- 1 | % differences for price q 2 | if str2double(bnd(1))==1 3 | qe = ( qpe*dme - q*dme + q*dpe - qme*dpe )/(2*dpe*dme); 4 | qee = ( qepe*dme - qe*dme + qe*dpe - qeme*dpe )/(2*dpe*dme); 5 | qeee = ( qeepe*dme - qee*dme + qee*dpe - qeeme*dpe )/(2*dpe*dme); 6 | 7 | elseif str2double(bnd(1))==0 8 | qe = qepe - qeepe*dpe; 9 | qee = qeepe - qeeepe*dpe; 10 | qeee = ( qeepe - qee )/dpe; 11 | 12 | elseif str2double(bnd(1))==2 13 | qe = qeme + qeeme*dme; 14 | qee = qeeme + qeeeme*dme; 15 | qeee = ( qee - qeeme )/dme; 16 | 17 | end 18 | 19 | if str2double(bnd(2))==1 20 | qz = ( qpz*dmz - q*dmz + q*dpz - qmz*dpz )/(2*dpz*dmz); 21 | qzz = ( qzpz*dmz - qz*dmz + qz*dpz - qzmz*dpz )/(2*dpz*dmz); 22 | qzzz = ( qzzpz*dmz - qzz*dmz + qzz*dpz - qzzmz*dpz )/(2*dpz*dmz); 23 | 24 | elseif str2double(bnd(2))==0 25 | qz = qzpz - qzzpz*dpz; 26 | qzz = qzzpz - qzzzpz*dpz; 27 | qzzz = ( qzzpz - qzz )/dpz; 28 | 29 | elseif str2double(bnd(2))==2 30 | qz = qzmz + qzzmz*dmz; 31 | qzz = qzzmz + qzzzmz*dmz; 32 | qzzz = ( qzz - qzzmz )/dmz; 33 | 34 | end 35 | 36 | if str2double(bnd(1))==1 37 | qze_ = ( qzpe*dme - qz*dme + qz*dpe - qzme*dpe)/(2*dpe*dme); 38 | 39 | elseif str2double(bnd(1))==0 40 | qze_ = qezpe - qezepe*dpe; 41 | 42 | elseif str2double(bnd(1))==2 43 | qze_ = qezme + qezeme*dme; 44 | 45 | end 46 | 47 | if str2double(bnd(2))==1 48 | qez_ = ( qepz*dmz - qe*dmz + qe*dpz - qemz*dpz)/(2*dpz*dmz); 49 | 50 | elseif str2double(bnd(2))==0 51 | qez_ = qezpz - qezzpz*dpz; 52 | 53 | elseif str2double(bnd(2))==2 54 | qez_ = qezmz + qezzmz*dmz; 55 | 56 | end 57 | 58 | if and(str2double(bnd(1))==3,str2double(bnd(2))==3) 59 | qe = 0; 60 | qee = 0; 61 | qeee = 0; 62 | 63 | qz = 0; 64 | qzz = 0; 65 | qzzz = 0; 66 | 67 | qez = 0; 68 | qeze = 0; 69 | qezz = 0; 70 | 71 | else 72 | qez = 1/2*qez_ + 1/2*qze_; 73 | end 74 | 75 | if str2double(bnd(1))==1 76 | qeze = ( qezpe*dme - qez*dme + qez*dpe - qezme*dpe )/(2*dpe*dme); 77 | 78 | elseif str2double(bnd(1))==0 79 | qeze = ( qezpe - qez )/dpe; 80 | 81 | elseif str2double(bnd(1))==2 82 | qeze = ( qez - qezme )/dme; 83 | end 84 | 85 | if str2double(bnd(2))==1 86 | qezz = ( qezpz*dmz - qez*dmz + qez*dpz - qezmz*dpz )/(2*dpz*dmz); 87 | 88 | elseif str2double(bnd(2))==0 89 | qezz = ( qezpz - qez )/dpz; 90 | 91 | elseif str2double(bnd(2))==2 92 | qezz = ( qez - qezmz )/dmz; 93 | end 94 | 95 | -------------------------------------------------------------------------------- /files/tmp_DiTella/mod_guess.m: -------------------------------------------------------------------------------- 1 | X0 = NaN([par.nx par.dim]); 2 | 3 | X0(par.X.iq,:,:) = 1; 4 | X0(par.X.isigw,:,:) = eps; 5 | X0(par.X.isigx,:,:) = eps; 6 | X0(par.X.itheta,:,:) = eps; 7 | X0(par.X.imue,:,:) = eps; 8 | 9 | X_(par.X_.iqe,:,:) = eps; 10 | X_(par.X_.iqz,:,:) = eps; 11 | X_(par.X_.iqee,:,:) = eps; 12 | X_(par.X_.iqzz,:,:) = eps; 13 | 14 | 15 | vi = par.rhoi*ones(par.dim); 16 | vh = par.rhoh*ones(par.dim); 17 | 18 | -------------------------------------------------------------------------------- /files/tmp_DiTella/mod_model.m: -------------------------------------------------------------------------------- 1 | %state variables in this model are eta (e) and sigma (z): 2 | v = z; %Equation (1) 3 | x = e; %Equation (2) 4 | %foc wrt to consumption: 5 | ci = rhoi^(1/psii)*vi^((psii - 1)/psii); %Equation (5) 6 | ch = rhoi^(1/psii)*vh^((psii - 1)/psii); %Equation (6) 7 | 8 | k = 1/(q*x); %Equation (7) 9 | 10 | %investment maximization: 11 | g = 1/(2*A)*(q - B) - deltai; %Equation (8) //A and B calibrated such that GDP growth is equal to 2% 12 | % per setup of the model: 13 | iotai = A*(g + deltai)^2 + B*(g + deltai) ; %Equation (9) 14 | 15 | muz = kappa_z*(vbar - v); %Equation (10) 16 | sigz_ = sigz*sqrt(v) ; %Equation (11) 17 | 18 | 19 | % Volatilities 20 | % value function is a function of the two state variables sigma (z) and eta 21 | % (e) 22 | sigxii = vei/vi*sigx*e + vzi/vi*sigz_; %Equation (12) 23 | sigxih = veh/vh*sigx*e + vzh/vh*sigz_; %Equation (13) 24 | 25 | sigq = qe/q*sigx + qz/q*sigz_*sqrt(z) ; %Equation (14) 26 | 27 | sign = phii_*q*k*(sigma + sigq); %Equation (16) 28 | 29 | pii = gammai*sigw + (gammai - 1)*sigxih; %Equation (17) 30 | 31 | 32 | muq = qe/q*mue*e + qz/q*muz*z ... %Equation (15) 33 | + 1/2*qee/q*( sigx^2 )... 34 | + 1/2*qzz/q*(sigz_)^2*z ... 35 | + qez/q*sigx*sigz_*sqrt(z); 36 | 37 | r = (ai - iotai)/q + g + muq + sigma*sigq - ( 1 - phii_)*(sigma + sigq)*pii ... 38 | - gammai*(sigma + sigq)*(phii_*q*k*(sigma + sigq) + theta) ... 39 | + ( 1 - gammai)*phii_*(sigma + sigq)*sigxii ... 40 | - gammai*q*k*(phii_*z)^2; %Equation (18) 41 | 42 | muni = r + gammai*(phii_*z)^2/e^2 + pii*sign; %Equation (19) 43 | munh = r + pii*sigw; %Equation (20) 44 | 45 | 46 | 47 | 48 | % System to Solve with Newton-Raphson 49 | eqmue = (muni - ci - muq - g - sigq*sigma + (sigma + sigq)^2 - sign*(sigma + sigq))*x - mue; %Equation (21) 50 | 51 | eqq = (ci*e + ch*(1-e))*q - (ai-g); %Equation (22) 52 | 53 | eqsigw = sign*e + sigw*(1 - e) - sigma - sigq; %Equation (23) 54 | eqsigx = (sign + sigma + sigq)*e - sigx ; %Equation (24) 55 | eqtheta = pii + ( 1 - gammai)*sigxii - gammai*phii_*q*k*(sigma + sigq) - gammai*theta; %Equation (25) 56 | 57 | 58 | % hjb variables 59 | muV1 = mue*e; 60 | muV2 = muz*z; 61 | 62 | sigV11 = (sigx*e)^2; 63 | sigV22 = (sigz_*z)^2; 64 | sigV12 = sigx*e*sigz_*z; 65 | 66 | uVi = 0; 67 | uVh = 0; 68 | 69 | rVi = - ( 1/(1-psii)*(ci - rhoi) ... 70 | + r - ci - theta^2 ... 71 | + gammai/2*( (sign)^2 )) ; 72 | 73 | rVh = - ( 1/(1-psii)*(ch - rhoh) ... 74 | + r - ch... 75 | + gammai/2*( (sigw)^2 )) ; 76 | 77 | -------------------------------------------------------------------------------- /files/tmp_DiTella/mod_parameters.m: -------------------------------------------------------------------------------- 1 | param = {'gammai','ai','ah','rhoi','rhoh','sigz','vbar','deltai','deltah',... 2 | 'kappa_p','kappa_z','zetai','zetah', 'psii','phii_', 'tauu', 'lambda', 'sigma', ... 3 | 'A', 'B'}; 4 | par.gammai = 5; 5 | 6 | par.sigz = 0.05; 7 | par.vbar = 0.10; 8 | 9 | par.ai = 0.10; 10 | par.ah = 0.10; 11 | 12 | par.rhoi = 0.0665; 13 | par.rhoh = 0.0665; 14 | 15 | 16 | par.deltai = 0.04; 17 | par.deltah = 0.04; 18 | 19 | par.kappa_p = 2; 20 | par.kappa_z = 1; 21 | 22 | par.zetai = 1.01; 23 | par.zetah = 1.01; 24 | 25 | par.psii = 1/1.01; 26 | 27 | par.phii_ = 0.1 ; 28 | par.tauu = 0.1 ; 29 | par.lambda = 1 ; 30 | 31 | par.A = 5 ; 32 | par.B = 2 ; 33 | 34 | par.sigma = 0.0125; %aggregate Brownian, constant in the model 35 | 36 | 37 | -------------------------------------------------------------------------------- /files/tmp_DiTella/mod_variables.m: -------------------------------------------------------------------------------- 1 | 2 | state = {'e','z'}; 3 | dvec = {'dme','dmz','dpe','dpz','dae','daz'}; 4 | value = {'vi','vei','vzi','vh','veh','vzh'}; 5 | vars = {'q','mue','sigw', 'sigx','theta'}; 6 | prices = {'q'}; 7 | 8 | % all secondary variables are put in vars_ MATLAB variable; these secondary variables are computed from 9 | % the endogenous variables in vars; the mapping is given in the paper and 10 | % in writefun.m 11 | vars_ = {'qe', 'qee', ... 12 | 'qz', 'qzz', ... 13 | 'qez','qeze','qezz',... 14 | 'ci','ch',... 15 | 'sigz_',... 16 | 'muq','r',... 17 | 'muni','munh','sign',... 18 | 'sigxii','sigxih','g','muz', ... 19 | 'pii', 'iotai', 'v', 'x', 'k', 'sigq',... 20 | 'sigV11','sigV22','sigV12','muV1','muV2','uVi','uVh','rVi','rVh'}; 21 | 22 | vplot_ = {'vi'}; 23 | 24 | % these are the latex symbols used for graphs 25 | latex = {'$q$','$\mu^{\eta}$','$\sigma^w$','$\sigma^x$','$\theta$'}; 26 | 27 | latex_ ={'$q_\eta$','$q_{\overline{\eta}}$','$q_{\eta\eta}$','$q_{\overline{\eta}\overline{\eta}}$',... 28 | '$q_{{\eta}\overline{\eta}}$','$q_{\eta\overline{\eta}\eta}$','$q_{\eta\overline{\eta}\overline{\eta}}$',... 29 | '$q_\eta$','$q_{\overline{\eta}}$','$q_{\eta\eta}$','$q_{\overline{\eta}\overline{\eta}}$',... 30 | '$q_{{\eta}\overline{\eta}}$','$q_{\eta\overline{\eta}\eta}$','$q_{\eta\overline{\eta}\overline{\eta}}$',... 31 | 'ci','ch',... 32 | 'sigma','sigz_',... 33 | 'muq','r',... 34 | 'muni','munh','sign',... 35 | 'sigxii','sigxih','g','muz', ... 36 | 'pii', 'iotai', 'v', 'x', 'k', 'sigq'}; 37 | 38 | latexv = {'$v^i$','$v_\eta^i$','$v_z^i$','$v^h$','$v_\eta^h$','$v_z^h$'}; 39 | 40 | -------------------------------------------------------------------------------- /files/tmp_DiTella/par_solver.m: -------------------------------------------------------------------------------- 1 | 2 | par.dispT = 1; 3 | 4 | par.write_con = 'on'; 5 | par.plotall = 'off'; 6 | par.savegraph = 'off'; 7 | par.savegraph = 'on'; 8 | 9 | % STATIC LOOP 10 | par.minI = 2; % necessary for the constraints to have time to adjust 11 | par.maxI = 10000; 12 | par.tolI = 1e-6; % make sure that par.tolI is not higher than par.tolK 13 | 14 | % OUTER STATIC LOOP: to update the derivatives using past iterations 15 | par.minK = 2; 16 | par.maxK = 100; 17 | par.tolK = 1e-4; 18 | 19 | par.damp1 = 0.1; 20 | par.damp1_ = 0.0; 21 | par.dampm1 = 0.0; 22 | 23 | par.damp2 = 0.1; 24 | par.damp2_ = 0.0; 25 | par.dampm2 = 0.0; 26 | 27 | % HJB LOOP: to update the derivatives using past iterations 28 | par.minT1 = 10; 29 | par.minT2 = 10; 30 | 31 | par.maxT = 1000; 32 | par.tolT = 0.01; 33 | 34 | % with implicit method, dt can be large; however, it cannot be too big since we use guesses in the static 35 | % loop; if there are convergence issues, reduce dt and try again; dt2 should be small 36 | par.dt = 1; 37 | par.dt2 = 1; 38 | 39 | % STENCIL 40 | par.maxD = 1000; 41 | par.tolD = 1e-4; 42 | 43 | % maxP refers to how far we go in the direction in stencil; refer to the algorithm in paper for details 44 | par.maxP = 2; 45 | par.nextr = par.maxP; % taille de l'extrapolation 46 | 47 | % STATE VARIABLES GRID 48 | vec1a = 0.01; 49 | vec1b = 0.99; 50 | vec2a = 0.01; 51 | vec2b = 0.99; 52 | 53 | par.n1 = 30; 54 | par.n2 = 30; 55 | 56 | vec1 = linspace(vec1a,vec1b,par.n1); % linear spacing is generally more stable 57 | vec2 = linspace(vec2a,vec2b,par.n2); 58 | 59 | 60 | -------------------------------------------------------------------------------- /files/tmp_DiTella/process1_.m: -------------------------------------------------------------------------------- 1 | function [myfun,dFF,FF] = process1_(XX0,P,Stmp,Dtmp,V0tmp,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,vtmp,par) 2 | if vtmp==1 3 | myfun = @(X) Ffun00(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 4 | dFF = dFfun00(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 5 | FF = Ffun00(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 6 | 7 | elseif vtmp==2 8 | myfun = @(X) Ffun01(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 9 | dFF = dFfun01(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 10 | FF = Ffun01(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 11 | 12 | elseif vtmp==3 13 | myfun = @(X) Ffun02(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 14 | dFF = dFfun02(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 15 | FF = Ffun02(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 16 | 17 | elseif vtmp==4 18 | myfun = @(X) Ffun10(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 19 | dFF = dFfun10(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 20 | FF = Ffun10(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 21 | 22 | elseif vtmp==5 23 | myfun = @(X) Ffun11(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 24 | dFF = dFfun11(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 25 | FF = Ffun11(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 26 | 27 | elseif vtmp==6 28 | myfun = @(X) Ffun12(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 29 | dFF = dFfun12(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 30 | FF = Ffun12(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 31 | 32 | elseif vtmp==7 33 | myfun = @(X) Ffun20(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 34 | dFF = dFfun20(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 35 | FF = Ffun20(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 36 | 37 | elseif vtmp==8 38 | myfun = @(X) Ffun21(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 39 | dFF = dFfun21(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 40 | FF = Ffun21(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 41 | 42 | elseif vtmp==9 43 | myfun = @(X) Ffun22(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 44 | dFF = dFfun22(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 45 | FF = Ffun22(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 46 | 47 | elseif vtmp==0 48 | myfun = @(X) Ffun33(P,Stmp,Dtmp,V0tmp,real(X),L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 49 | dFF = dFfun33(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 50 | FF = Ffun33(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 51 | end 52 | 53 | -------------------------------------------------------------------------------- /files/tmp_DiTella/process2_.m: -------------------------------------------------------------------------------- 1 | function L = process2_(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,vtmp,par) 2 | if vtmp==1 3 | L = Lfun00(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 4 | 5 | elseif vtmp==2 6 | L = Lfun01(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 7 | 8 | elseif vtmp==3 9 | L = Lfun02(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 10 | 11 | elseif vtmp==4 12 | L = Lfun10(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 13 | 14 | elseif vtmp==5 15 | L = Lfun11(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 16 | 17 | elseif vtmp==6 18 | L = Lfun12(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 19 | 20 | elseif vtmp==7 21 | L = Lfun20(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 22 | 23 | elseif vtmp==8 24 | L = Lfun21(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 25 | 26 | elseif vtmp==9 27 | L = Lfun22(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 28 | 29 | elseif vtmp==0 30 | L = Lfun33(P,Stmp,Dtmp,V0tmp,XX0,L0tmp,M1tmp,M2tmp,P1tmp,P2tmp,1,0,par); 31 | end 32 | 33 | -------------------------------------------------------------------------------- /files/tmp_DiTella/verfun.m: -------------------------------------------------------------------------------- 1 | function [ver,cst1,BC,BC_,icst,icst_] = verfun(SS,XX,CC,cstv,csts,cstn,bndv,bndn,i1,i2,par) %#ok 2 | 3 | e = SS(1); 4 | 5 | z = SS(2); 6 | 7 | if i1==1 8 | bnd1 = '0'; 9 | elseif i1==par.n1 10 | bnd1 = '2'; 11 | else 12 | bnd1 = '1'; 13 | end 14 | 15 | if i2==1 16 | bnd2 = '0'; 17 | elseif i2==par.n2 18 | bnd2 = '2'; 19 | else 20 | bnd2 = '1'; 21 | end 22 | 23 | bnd = [bnd1,bnd2]; 24 | 25 | ver = base2dec(bnd,par.base)+1; 26 | 27 | cst1 = NaN(par.ncc,1); 28 | 29 | icst = NaN(par.ncc,1); 30 | icst_ = NaN(par.ncc,1); 31 | BC = NaN(par.ncc,1); 32 | BC_ = NaN(par.ncc,1); 33 | 34 | 35 | -------------------------------------------------------------------------------- /files/tmp_DiTella/xxfun.m: -------------------------------------------------------------------------------- 1 | SS = reshape(S,par.ns,par.N); 2 | DD = reshape(D,par.nd,par.N); 3 | VV = reshape(V0,par.nv,par.N); 4 | XX = reshape(X0,par.nx,par.N); 5 | LL0 = reshape(L0,par.nl,par.N); 6 | MM1 = reshape(M1,par.nl,par.N); 7 | MM2 = reshape(M2,par.nl,par.N); 8 | PP1 = reshape(P1,par.nl,par.N); 9 | PP2 = reshape(P2,par.nl,par.N); 10 | 11 | XX_ = Xfun11(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par); 12 | X_ = squeeze(reshape(XX_,[par.nx_ par.dim])); 13 | 14 | Xtmp = squeeze(reshape(Xfun00(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 15 | X_(:,1,1) = Xtmp(:,1,1); 16 | 17 | Xtmp = squeeze(reshape(Xfun01(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 18 | X_(:,1,2:end-1) = Xtmp(:,1,2:end-1); 19 | 20 | Xtmp = squeeze(reshape(Xfun02(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 21 | X_(:,1,end) = Xtmp(:,1,end); 22 | 23 | Xtmp = squeeze(reshape(Xfun10(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 24 | X_(:,2:end-1,1) = Xtmp(:,2:end-1,1); 25 | 26 | Xtmp = squeeze(reshape(Xfun12(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 27 | X_(:,2:end-1,end) = Xtmp(:,2:end-1,end); 28 | 29 | Xtmp = squeeze(reshape(Xfun20(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 30 | X_(:,end,1) = Xtmp(:,end,1); 31 | 32 | Xtmp = squeeze(reshape(Xfun21(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 33 | X_(:,end,2:end-1) = Xtmp(:,end,2:end-1); 34 | 35 | Xtmp = squeeze(reshape(Xfun22(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 36 | X_(:,end,end) = Xtmp(:,end,end); 37 | 38 | if strcmp(par.loop,'on') 39 | if loop==1 40 | X_ = squeeze(reshape(Xfun33(P,SS,DD,VV,XX,LL0,MM1,MM2,PP1,PP2,ones(1,par.N),zeros(1,par.N),par),[par.nx_ par.dim])); 41 | end 42 | end 43 | 44 | XX_ = reshape(X_,par.nx_,par.N); 45 | --------------------------------------------------------------------------------