This commit is contained in:
2023-11-14 17:10:27 +08:00
commit d5a822831c
423 changed files with 5909 additions and 0 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,4 @@
function y=bp3_fcn(u)
y=u^(1.5-sqrt(2))*exp(u)*...
ml_func([1,3-sqrt(2)],-u)./ml_func([1,1.5],-u);
end

Binary file not shown.

View File

@ -0,0 +1,4 @@
function y=bp4_fcn(t)
y=1/8*t*(ml_func([1,1.8],-t/2)*ml_func([1,1.2],-t/2)+...
ml_func([1,1.7],-t/2)*ml_func([1,1.3],-t/2));
end

Binary file not shown.

View File

@ -0,0 +1,5 @@
function y=bp5_fcn(u)
y=[(((u(2)-0.5)*(u(3)-0.3))^(1/5)+sqrt(u(4)))/sqrt(pi);
(u(1)-1)*gamma(2.2); (u(2)-0.5)*gamma(2.3)/gamma(2.2)];
y=real(y); %{\kaishu\,}
end

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,6 @@
function y=c8mfss3a(u)
y=[2/sqrt(pi)*(((u(2)-0.3)*(u(3)-0.5*u(1)))^(1/5)+sqrt(u(5)));
gamma(1.4)/gamma(1.3)*((u(1)-1)/2)^0.3;
u(4); gamma(3.1)/gamma(1.6)*sqrt((u(2)-0.3)^3)];
y=real(y); %{\kaishu\,}
end

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,6 @@
function y=bp5b_fcn(u)
y=[4/sqrt(pi)*((u(2)-0.3)*(u(3)-0.5*u(1)))^(1/5);
gamma(1.4)/gamma(1.3)*((u(1)-1)/2)^0.3;
gamma(3.1)/gamma(1.6)*sqrt((u(2)-0.3)^3)];
y=real(y); %{\kaishu\,}
end

View File

@ -0,0 +1,3 @@
function y = bp6_fcn(u)
y=u^(1.5-sqrt(2))*exp(u)*...
ml_func([1,3-sqrt(2)],-u)./ml_func([1,1.5],-u);

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,5 @@
function y=bp7_opts(x)
W=get_param(gcs,'ModelWorkspace'); assignin(W,'a',x(1))
try, txy=sim('bp7_model'); y0=txy.yout; y=abs(y0(end)-exp(-1));
catch, y=10; end
end

Binary file not shown.

View File

@ -0,0 +1,3 @@
function y = bp7_fcn(u)
y=u^(1.5-sqrt(2))*exp(u)*...
ml_func([1,3-sqrt(2)],-u)./ml_func([1,1.5],-u);

Binary file not shown.

View File

@ -0,0 +1,4 @@
function y=bp8a_fcn(t)
y=t^(1.5-sqrt(2))*exp(t-0.3)*...
ml_func([1,3-sqrt(2)],-t)./ml_func([1,1.5],-t);
end

Binary file not shown.

Binary file not shown.