Question

求助matlab数学题！！！！急！！

Answer 1

clear
clc
%1.求两椭圆交点
syms x y
f1=(x-2)^2+(y+2*x-3)^2==5;
f2=18*(x-3)^2+y^2==36;
ezplot(f1),hold on
ezplot(f2)
grid on
title('(x-2)^2+(y+2*x-3)^2=5与18*(x-3)^2+y^2=36')
[x1,y1]=vpasolve(f1,f2)
plot(x1,y1,'r*')
hold off
%2.求积分
syms x
f=@(x)x.*sin(x.^2-x+1);
a=integral(f,-2,0,'AbsTol',10e-10)
%3.画图，求极值点，单调区间，凸凹区间，极值和最值
syms x
f3=x^2*cos(x^+3*x-4);
ezplot(f3,[-2,+2]),hold on
df3=diff(f3);
ddf3=diff(df3);

f3j01=subs(f3,x,-2);
plot(-2,f3j01,'*') %左6点，最大值
fsprintf('左最大值点[%f,%f]',-2,f3j01)

x0=vpasolve(df3,[-2,-1.8])
f3j0=subs(f3,x,x0)
plot(x0,f3j0,'*') %左5点，极小值
fprintf('极小值点[%f,%f]',x0,f3j0)
fprintf('递减区间[%f,%f]',-2,f3j0)
x00=vpasolve(ddf3,[-2,-1.8])
f3j00=subs(f3,x,x00) %拐点
plot(x00,f3j00,'rd')
fprintf('拐点[%f,%f]',x00,f3j00)

x1=vpasolve(df3,[-1.8,-1.7])
f3j1=subs(f3,x,x1)
plot(x1,f3j1,'*') %左4点，极大值
fprintf('极大值点[%f,%f]',x1,f3j1)
fprintf('递增区间[%f,%f]',x0,x1)
x010=vpasolve(ddf3,[-1.8,-1.7])
f3j010=subs(f3,x,x010) %拐点
plot(x010,f3j010,'rd')
fprintf('拐点[%f,%f]',x010,f3j010)

x2=vpasolve(df3,[-1.7,-1.6])
f3j2=subs(f3,x,x2)
plot(x2,f3j2,'*') %左3点，极小值
fprintf('极小值点[%f,%f]',x2,f3j2)
fprintf('递减区间[%f,%f]',x1,x2)

x3=vpasolve(df3,[-1.5,-1.3])
f3j3=subs(f3,x,x3)
plot(x3,f3j3,'*') %左2点，极大值
fprintf('极大值点[%f,%f]',x3,f3j3)
fprintf('递增区间[%f,%f]',x2,x3)

x4=vpasolve(df3,[-1.3,-1.0])
f3j4=subs(f3,x,x4)
plot(x4,f3j4,'*') %左1点，极小值
fprintf('极小值点[%f,%f]',x4,f3j4)
fprintf('递减区间[%f,%f]',x3,x4)

x5=vpasolve(df3,[-1.0,+1.0])
f3j5=subs(f3,x,x5)
plot(x5,f3j5,'*') %（0，0）点，极大值点
fprintf('极大值点[%f,%f]',x5,f3j5)
fprintf('递增区间[%f,%f]',x4,x5)

x6=vpasolve(df3,[+1.0,+1.3])
f3j6=subs(f3,x,x6)
plot(x6,f3j6,'*') %右1点，极小值
fprintf('极小值点[%f,%f]',x6,f3j6)
fprintf('递减区间[%f,%f]',x5,x6)

x7=vpasolve(df3,[+1.3,+1.5])
f3j7=subs(f3,x,x7)
plot(x7,f3j7,'*') %右2点，极大值
fprintf('极大值点[%f,%f]',x7,f3j7)
fprintf('递增区间[%f,%f]',x6,x7)

x8=vpasolve(df3,[+1.6,+1.7])
f3j8=subs(f3,x,x8)
plot(x8,f3j8,'*') %右3点，极小值
fprintf('极小值点[%f,%f]',x8,f3j8)
fprintf('递减区间[%f,%f]',x7,x8)

x9=vpasolve(df3,[+1.7,+1.8])
f3j9=subs(f3,x,x9)
plot(x9,f3j9,'*') %右4点，极大值
fprintf('极大值点[%f,%f]',x9,f3j9)
fprintf('递增区间[%f,%f]',x8,x9)

x10=vpasolve(df3,[+1.8,+2])
f3j10=subs(f3,x,x10)
plot(x10,f3j10,'*') %右5点，极小值
fprintf('极小值点[%f,%f]',x10,f3j10)
fprintf('递减区间[%f,%f]',x9,x10)

f3j11=subs(f3,x,2);
plot(2,f3j11,'*') %右6点，最大值
fprintf('右最大值点[%f,%f]',2,f3j11)

Answer 2

你什么时候要啊？