在赋值 A(:) = B 中，A 和 B 中的元素数目必须相同。

purpose_857

用matlab求三元一次微分，出现了如下问题，请大神帮忙看下：
问题：在赋值 A(: ) = B 中，A 和 B 中的元素数目必须相同。

出错 longgekuta_lunwen2 (line 41)
7 X+ P5 X4 y4 c, n# k! c9 d8 I    y(i+1) =y(i)+h/6*(K1+2*K2+2*K3+K4);
2 ^9 E2 l7 \' i
0 T( v& v5 {+ m% y8 a5 Q代码如下：clc;
clear all;
% P! \9 U! Q* y! n* \, Sglobal r midu E Es u c q t w i n m1 m2 A B U1 S1 o j %o为弹塑性界面速度（C)与缓冲层弹性波速（Cd）的比值 f为应变值
r=0.2; %落石半径
* G8 x  m' K, T! p# w4 y9 s' S5 f% Pmidu=1640;%密度
E=35e6; %弹性模量
4 ]5 s. A5 I6 `: |Es=8e6; %压缩模量
4 s9 G% `6 Z1 l; ?+ ^7 O3 Vu=0.32; %泊松比
c=12e3; %粘聚力
q=30 ; %内摩擦角
$ @  N; g. U4 I4 h6 A5 zt=sind(q);
0 L; P5 K& u. b: _w=3*sind(q)/sqrt(3+sind(q)^2); %屈服强度
i=3*c*cosd(q)/sqrt(3+sind(q)^2);%剪切强度
( ]2 y- R% a6 j' \2 V
5 J; z. k4 b6 X9 c$ A4 y/ A0 sn=3/(3+2*w);
m1=6*w/(3+2*w);
m2=6*i/(3+2*w*Es);

) ]" D2 p6 Q# j* ^8 ?! l0 V: `7 cA=6*(1+u)*(1-2*u)*o^2*i/((3+2*w)*(1-o)*E*((1-2*u)*(3-6*w/(3+2*w))*(1+o)-(6*w*o^2*(1+u))/(3+2*w)));
B=-3/2*A;
4 I; p0 x. `# k0 b  h! x; pU1=3*(1-o^2)*A;
4 o; F6 U  V& M, V$ mS1=-E/(Es*(1+u)*(1-2*u))*((1+u)*A*o+2*(1-2*u)*B/(3*o^2)+2*u*B);

h=j-1;
N =10;
x1=1;  %初始值1
y1=U1; %初始值1
4 `4 i& T7 N3 ^1 E- V7 x* dz1=S1; %初始值1
x2=j;  %初始值2
y2=j;  %初始值2
* y% a4 v8 D8 A  }$ _! m3 W9 Sx = ones(1,N);
% v- Q5 }. Y8 F& k8 O+ l2 Py = ones(1,N)*0;
. T% {8 q! s, V6 o" f  iz = ones(1,N)*0;

! l( p/ ?8 w6 s2 }0 _for i=1:N
6 K' }( _. W5 e* l- Y% i6 v    [K1,L1] = F(1,y(i),z(i))
    [K2,L2] = F((j+1)/2,y(i)+h*K1/2,z(i)+h*L1/2)
9 f  G* y! d! k8 o4 [9 g7 p' }7 J    [K3,L3] = F((j+1)/2,y(i)+h*K2/2,z(i)+h*L2/2)
5 ?6 F* Q5 q: a" A7 y    [K4,L4] = F(j,y(i)+h*K3,z(i)+h*L3)
3 I2 v9 a; k4 m  F
* W. Q  a9 z/ W  j1 K9 N/ }3 L$ H4 X    y(i+1) =y(i)+h/6*(K1+2*K2+2*K3+K4);
# Y/ C8 }  s* m* w& j    z(i+1)= z(i)+h/6*(L1+2*L2+2*L3+L4);
end
- O* ]  W$ T6 Y8 {/ u
figure(1);
comet3(x,y,z,0.1)
6 m) Q6 d8 _) {( I/ a" Rfunction [K,L] = F(X,U,S)
2 M+ d4 G% s  I1 b+ Z9 C8 Y. [: o& uglobal r midu E Es u c q t w i n m1 m2 A B U1 S1 C   %C为弹塑性界面速度
5 o) I5 n, |0 [4 `, y& \/ mK = (2*U/X+3*(m1*S+m2)*(X-U)/(X*(n-3*S+2*i/Es)))./((3*n*midu*C^2)*(X-U)^2/(Es*(n-3*S+2*i/Es)^2)-1);
; n) A4 l! [# o1 \L = ((2*U/X+3*(m1*S+m2)*(X-U)/(X*(n-3*S+2*i/Es)))./((3*n*midu*C^2)*(X-U)^2/(Es*(n-3*S+2*i/Es)^2)-1))*n*midu*C^2*(X-U)/(Es*(n-3*S+2*i/Es))-(m1*S+m2)/X;
; r  V( C4 |( k9 e. H) J0 Uend
请大神赐教，感谢!
/ W. `' {: z( K

whatever_

仅供参考，主程序里的j，o，C三个变量未定义，且最后一个变量未在主程序里声明为全局变量

purpose_857

whatever_ 发表于 2023-3-1 11:27
仅供参考，主程序里的j，o，C三个变量未定义，且最后一个变量未在主程序里声明为全局变量

这里 o, C 是未知量，给 j 赋初始值的情况下，这里微分能求出来吗？
' h7 X& D' Z) W# z

peerless2021

只是单纯从代码角度出发，你这里的o, C需要赋值，否则就会导致空集，仅供参考