求解多元积分

shuddkk

clc;%总润滑方程求解
8 V6 [1 {- V. L6 iclear;
3 ?% ~5 J, Y! ^7 c! Vclose all
syms a b c d e x L O P U t o p
K=5;%常量
h=2;%常量 多孔储液介质厚度
5 `! j+ F# k+ U9 [& LD=0.012;%半径
H=0.2;%压缩后的高度
L=@(x)0.2.*x;
% % % % 计算与孔隙率相关的brinkman数
) V/ i  {, b/ dc=@(t)((t.^3.*D.^2)./(36.*(1-t).^2.*K)).^2;%渗透率求解
t1=0.0033;%孔隙率
a=L./c(t1);%a为brinkman数
! W" w3 |! p/ jb=H./c(t1);
0 H& s+ e( p2 s; [' \0 B! t% % % % 计算方程中的f,控制此处f不与x一起变化
, r) f) @, }0 q8 ~9 Z9 If=(cos(h.*b.*H)-1)/(b.*sin(h.*b.*H));
% % % % 计算方程中常数余项C,此处x只与a有关
o=@(x)(a(x).^2.*(H-f)./(2.*f-H));
p=@(x)(a(x).^2./(2.*f-H));
O=int(o(x),0,1);
' A8 @2 L* u% t# B0 M: VP=int(p,0,1);
9 \4 c. ?5 U7 x( @c=O./P;
%%%%计算润滑升力
d=@(x)(1-x).*L./c(t1).^2.*(H-f+c)./(2.*f-H);
U=int(d,0,1);
" ]; ]8 s. a' ]4 z3 I/ P! L0 u我的代码一直在报错，请求高手帮忙看看哪里出了问题。
错误提示：未定义与 'function_handle' 类型的输入参数相对应的函数 'rdivide'。

3 Q. G/ }0 E# E0 i. i出错 runhuashengli (line 13)
: g/ Q( y! A! c& B% U* \5 v1 y4 ]a=L./c(t1);%a为brinkman数

llbnmo

错的地方太多，你需要先搞清楚MATLAB匿名函数的定义方法和调用的语法规则

kekek

前面既然使用了匿名函数 L=@(x)0.2.*x; 那么后面除非是使用函数句柄时可以只写L，当你需要使用含有某个自变量的式子的时候，就需要写成 L(x)。

: s) Q. D+ E$ {5 ]' w0 h: `& U相应地，a的赋值右侧包含L函数，所以a也需要写成函数形式，否则后面对o和p的计算，你写的这个a(x)就没法算了。

7 d" K/ I# w0 ^7 N1 h! S再者，避免变量与函数重复命名，你既写了匿名函数
8 |! L& L: i: h0 ]1 V1 Rc=@(t)((t.^3.*D.^2)./(36.*(1-t).^2.*K)).^2;%渗透率求解
后面却又写了
1 I, [0 f$ j8 ^c=O./P; %这算出来要么是个数值要么是个符号表达式

可是MATLAB系统里面只能有一个被命名为c的量，它不能同时表示这两者，这直接导致你最后对d的算式中同时出现的
d = @( x )( 1 - x ) .* L( x ) ./ c( t1 ).^2 .* ( H - f + c )./( 2 .* f - H );
! q8 g0 c7 A4 T; D" F2 ]会出错

kekek

syms x
K = 5;%常量
2 n6 w' J+ h5 `  o. O- d3 [0 Mh = 2;%常量 多孔储液介质厚度
' n3 o- }, L* g( iD = 0.012;%半径
0 T6 S3 ~# I3 V2 \; v5 g: Z$ _4 yH = 0.2;%压缩后的高度
L = @( x ) 0.2.*x;
( u; {4 c7 l! v! p0 }) D% % % % 计算与孔隙率相关的brinkman数
5 Y# ?$ H( o2 fc = @( t )( ( t.^3.*D.^2 )./( 36.*( 1-t ).^2.*K ) ).^2;%渗透率求解
t1 = 0.0033;%孔隙率
a =@( x ) L( x )./c( t1 );%a为brinkman数
4 p2 y+ b# o% }. B; {  b/ {b = H./c( t1 );
3 g8 k( [( U( |- ~  M% % % % 计算方程中的f,控制此处f不与x一起变化
% o3 o: y$ p( j  Y: Pf = ( cos( h.*b.*H )-1 )/( b.*sin( h.*b.*H ) );
% % % % 计算方程中常数余项C,此处x只与a有关
. ]4 U+ E( P' U" L7 b: n' io = @( x )( a( x ).^2.*( H-f )./( 2.*f-H ) );
# v& \, s# K& H9 C, Gp = @( x )( a( x ).^2./( 2.*f-H ) );
O = int( o( x ), 0, 1 );
' _1 w# L$ w  UP = int( p( x ), 0, 1 );