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

purpose_857

用matlab求三元一次微分，出现了如下问题，请大神帮忙看下：
! J6 M3 D/ Q7 A  D- b$ }. o* L问题：在赋值 A(: ) = B 中，A 和 B 中的元素数目必须相同。

+ N6 y/ A+ \& l6 E出错 longgekuta_lunwen2 (line 41)
    y(i+1) =y(i)+h/6*(K1+2*K2+2*K3+K4);
2 K( T' o9 \7 k5 M7 a8 B
代码如下：clc;
+ n* _, }1 L+ I& Iclear all;
global r midu E Es u c q t w i n m1 m2 A B U1 S1 o j %o为弹塑性界面速度（C)与缓冲层弹性波速（Cd）的比值 f为应变值
2 n: n- z! ^0 q1 d/ q/ cr=0.2; %落石半径
; e4 l' ?/ Q. I: r5 h" }( imidu=1640;%密度
, t$ B9 X# n* f( \5 R3 {6 pE=35e6; %弹性模量
Es=8e6; %压缩模量
- x+ C6 [8 ^7 w+ Xu=0.32; %泊松比
! L* K2 T. b. T7 K; E7 n, l) sc=12e3; %粘聚力
q=30 ; %内摩擦角
t=sind(q);
4 y) _* M3 e8 U% R' P9 Qw=3*sind(q)/sqrt(3+sind(q)^2); %屈服强度
# m/ m  q. g( X* g) y' b6 Zi=3*c*cosd(q)/sqrt(3+sind(q)^2);%剪切强度

( l4 J" Q$ Q3 s" v% Y+ x' Fn=3/(3+2*w);
m1=6*w/(3+2*w);
3 L; j) Q$ y/ w+ e5 ym2=6*i/(3+2*w*Es);

$ R" x6 W3 C' _+ NA=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)));
3 Y1 @# Z, ?4 U& s. fB=-3/2*A;
U1=3*(1-o^2)*A;
S1=-E/(Es*(1+u)*(1-2*u))*((1+u)*A*o+2*(1-2*u)*B/(3*o^2)+2*u*B);
0 U, Q5 E2 q2 d5 T$ A4 A( s5 j8 N& i
h=j-1;
N =10;
x1=1;  %初始值1
$ w2 C7 _7 ~7 ^y1=U1; %初始值1
/ M: v# q, |/ Lz1=S1; %初始值1
x2=j;  %初始值2
; n% A9 x) u( W5 x" A( o" C" Q4 Ry2=j;  %初始值2
' a$ b/ L% x4 Ux = ones(1,N);
y = ones(1,N)*0;
z = ones(1,N)*0;

2 j. r/ V  w, {4 j+ b- ^1 nfor i=1:N
    [K1,L1] = F(1,y(i),z(i))
    [K2,L2] = F((j+1)/2,y(i)+h*K1/2,z(i)+h*L1/2)
4 K, t- i' E& q    [K3,L3] = F((j+1)/2,y(i)+h*K2/2,z(i)+h*L2/2)
    [K4,L4] = F(j,y(i)+h*K3,z(i)+h*L3)
% j0 r. [* L) r1 @2 `# K
+ Z! o0 T7 j) |* p  N    y(i+1) =y(i)+h/6*(K1+2*K2+2*K3+K4);
" ]* {' g: S, J" i7 ]  ?    z(i+1)= z(i)+h/6*(L1+2*L2+2*L3+L4);
' h7 V8 @8 g; H6 m. M# ], Q1 Iend
- f' @) L( q% _- ]1 o
figure(1);
comet3(x,y,z,0.1)
4 L& ^' s$ k* F/ D3 |/ Afunction [K,L] = F(X,U,S)
7 I+ X9 I7 T+ x: p4 [- Q7 Pglobal r midu E Es u c q t w i n m1 m2 A B U1 S1 C   %C为弹塑性界面速度
$ j. ]+ A7 q$ WK = (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);
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;
end
  |) m1 c/ q9 m; g请大神赐教，感谢!

whatever_

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

purpose_857

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

* i5 q, l, m; p/ D0 @这里 o, C 是未知量，给 j 赋初始值的情况下，这里微分能求出来吗？
% i/ x& W  ~' o& `4 g

peerless2021

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