求解多元积分

shuddkk

clc;%总润滑方程求解
. p1 O4 ?: D; p) Oclear;
2 F: h/ k, H4 t) k' ?$ ~close all
syms a b c d e x L O P U t o p
0 q9 C1 z9 k# g- z& z# n5 uK=5;%常量
h=2;%常量 多孔储液介质厚度
/ M. X4 q& ~( s4 k& {. q$ @D=0.012;%半径
H=0.2;%压缩后的高度
L=@(x)0.2.*x;
% % % % 计算与孔隙率相关的brinkman数
c=@(t)((t.^3.*D.^2)./(36.*(1-t).^2.*K)).^2;%渗透率求解
t1=0.0033;%孔隙率
a=L./c(t1);%a为brinkman数
4 \7 a7 {( n( V; w9 gb=H./c(t1);
% % % % 计算方程中的f,控制此处f不与x一起变化
/ S; K% U* E% H. j) {; O# ^$ B. b& {f=(cos(h.*b.*H)-1)/(b.*sin(h.*b.*H));
. x9 @3 ^, y8 `1 |/ ]- Q% % % % 计算方程中常数余项C,此处x只与a有关
o=@(x)(a(x).^2.*(H-f)./(2.*f-H));
p=@(x)(a(x).^2./(2.*f-H));
: m8 p! W; ]$ K7 P* Y4 r/ nO=int(o(x),0,1);
P=int(p,0,1);
9 Y" x- I& K; \/ }1 F4 hc=O./P;
%%%%计算润滑升力
" I) e  r" Z) }! Hd=@(x)(1-x).*L./c(t1).^2.*(H-f+c)./(2.*f-H);
( v1 k: w+ }' p  X# k, j8 }U=int(d,0,1);
/ ]' q$ g4 U4 @. B& B0 a我的代码一直在报错，请求高手帮忙看看哪里出了问题。
错误提示：未定义与 'function_handle' 类型的输入参数相对应的函数 'rdivide'。
" T$ n* l4 R# b
出错 runhuashengli (line 13)
" A. L- B6 W- }; H& `! d. ya=L./c(t1);%a为brinkman数
% X% T: w8 f; H2 H3 }0 _% B" ^

llbnmo

错的地方太多，你需要先搞清楚MATLAB匿名函数的定义方法和调用的语法规则
" U% ~9 j! Z0 F0 z5 u

kekek

前面既然使用了匿名函数 L=@(x)0.2.*x; 那么后面除非是使用函数句柄时可以只写L，当你需要使用含有某个自变量的式子的时候，就需要写成 L(x)。
; Z' A0 `2 O/ c; m, L
. \3 C; A/ y" ^" D相应地，a的赋值右侧包含L函数，所以a也需要写成函数形式，否则后面对o和p的计算，你写的这个a(x)就没法算了。
/ s0 q2 X6 V! L  h9 ^4 B
再者，避免变量与函数重复命名，你既写了匿名函数
. {$ s9 i9 {( D3 c: e) Oc=@(t)((t.^3.*D.^2)./(36.*(1-t).^2.*K)).^2;%渗透率求解
后面却又写了
# Y# }3 Z0 M- Z* A1 \, Vc=O./P; %这算出来要么是个数值要么是个符号表达式
/ h# ?" @) w/ w' V" M
9 w& {* Y0 I5 ^% y可是MATLAB系统里面只能有一个被命名为c的量，它不能同时表示这两者，这直接导致你最后对d的算式中同时出现的
d = @( x )( 1 - x ) .* L( x ) ./ c( t1 ).^2 .* ( H - f + c )./( 2 .* f - H );
会出错

kekek

syms x
* e+ A% i( Q* g6 L  Z4 B9 rK = 5;%常量
& L; z# D& o/ ~! {6 yh = 2;%常量 多孔储液介质厚度
D = 0.012;%半径
4 A- C) Q2 ^/ U. uH = 0.2;%压缩后的高度
L = @( x ) 0.2.*x;
% % % % 计算与孔隙率相关的brinkman数
' a/ P" y0 m1 T8 N( D7 @c = @( t )( ( t.^3.*D.^2 )./( 36.*( 1-t ).^2.*K ) ).^2;%渗透率求解
t1 = 0.0033;%孔隙率
+ l7 V9 t7 Q  I3 z- ia =@( x ) L( x )./c( t1 );%a为brinkman数
b = H./c( t1 );
6 b, ^1 z( |) l% % % % 计算方程中的f,控制此处f不与x一起变化
2 {8 F" f, R0 X5 Df = ( cos( h.*b.*H )-1 )/( b.*sin( h.*b.*H ) );
5 `  W1 a: o/ K0 ~; t% % % % 计算方程中常数余项C,此处x只与a有关
: q7 z5 x2 c2 f9 W, To = @( x )( a( x ).^2.*( H-f )./( 2.*f-H ) );
p = @( x )( a( x ).^2./( 2.*f-H ) );
0 Z  y$ T5 h2 q4 T4 w& QO = int( o( x ), 0, 1 );
- f* ]; w4 G. oP = int( p( x ), 0, 1 );