代码搜索：微分几何
找到约 3,133 项符合「微分几何」的源代码
代码结果 3,133
www.eeworm.com/read/443342/7634284
m ex0803.m
%用三种不同方法解微分方程
clear, clf
x0=0;
xt=2;
Num=100;
h=(xt-x0)/(Num-1);
x =x0+[0:Num]*h;
a = 1;
yt = 1-exp(-a*x); %真值解
fun = inline('-y + 1','x','y'); %用inline构造函数f(x,y)
y0 = 0; %设定函数初值
PointNum
www.eeworm.com/read/443342/7634287
m ex0807.m
%ex0807.m 用自编函数MyEulerPro（）MyRunge_Kutta（）求多阶微分方程
clear,clc
x0=1; %设定函数变量起始值
xt=10; %设定函数变量终止值
y0=[1 10 30]; %y初值
N=100;
[x,yE]=MyEulerPro('myfun03',x0,xt,y0,N);
[x,yR]=MyRunge_Kutta('myfun03',
www.eeworm.com/read/439653/7704071
m exp3_1.m
clear
clc
close
t0=0;
tfinal=15;
x0=[0.5;0]; %初始化，电感电流为0，电容电压为0.5v
%tol=0.001; %数值计算精度
[t,x]=ode45('elecsys',t0,tfinal,x0);
%elecsys是系统微分方程的描述函数
figure(1)
subplot(211)
plot(t,x(:,1))
title
www.eeworm.com/read/438370/7732162
m exp3_1.m
clear
clc
close
t0=0;
tfinal=15;
x0=[0.5;0]; %初始化，电感电流为0，电容电压为0.5v
%tol=0.001; %数值计算精度
[t,x]=ode45('elecsys',t0,tfinal,x0);
%elecsys是系统微分方程的描述函数
figure(1)
subplot(211)
plot(t,x(:,1))
title
www.eeworm.com/read/197646/7983598
m exp3_1.m
clear
clc
close
t0=0;
tfinal=15;
x0=[0.5;0]; %初始化，电感电流为0，电容电压为0.5v
%tol=0.001; %数值计算精度
[t,x]=ode45('elecsys',t0,tfinal,x0);
%elecsys是系统微分方程的描述函数
figure(1)
subplot(211)
plot(t,x(:,1))
title
www.eeworm.com/read/396259/8117877
m ex0803.m
%用三种不同方法解微分方程
clear, clf
x0=0;
xt=2;
Num=100;
h=(xt-x0)/(Num-1);
x =x0+[0:Num]*h;
a = 1;
yt = 1-exp(-a*x); %真值解
fun = inline('-y + 1','x','y'); %用inline构造函数f(x,y)
y0 = 0; %设定函数初值
PointNum
www.eeworm.com/read/396259/8117880
m ex0807.m
%ex0807.m 用自编函数MyEulerPro（）MyRunge_Kutta（）求多阶微分方程
clear,clc
x0=1; %设定函数变量起始值
xt=10; %设定函数变量终止值
y0=[1 10 30]; %y初值
N=100;
[x,yE]=MyEulerPro('myfun03',x0,xt,y0,N);
[x,yR]=MyRunge_Kutta('myfun03',
www.eeworm.com/read/395993/8137292
m magnus4.m
function Magnus4(h,N)
%%%%%%%%%%%%%%%%%%%%求解延迟微分方程的四阶Magnus方法程序
%h=0.01;N=200;
%h=0.1;N=80;
c1=(1/2-sqrt(3)/6)*h;
c2=(1/2+sqrt(3)/6)*h;
t0=0;
Y(:,1)=[0 0 0 1 0 0 2 1]'; %%%%%数值解初始向量值
for n=1
www.eeworm.com/read/246680/12712883
m ex0803.m
%用三种不同方法解微分方程
clear, clf
x0=0;
xt=2;
Num=100;
h=(xt-x0)/(Num-1);
x =x0+[0:Num]*h;
a = 1;
yt = 1-exp(-a*x); %真值解
fun = inline('-y + 1','x','y'); %用inline构造函数f(x,y)
y0 = 0; %设定函数初值
PointNum
www.eeworm.com/read/246680/12712891
m ex0807.m
%ex0807.m 用自编函数MyEulerPro（）MyRunge_Kutta（）求多阶微分方程
clear,clc
x0=1; %设定函数变量起始值
xt=10; %设定函数变量终止值
y0=[1 10 30]; %y初值
N=100;
[x,yE]=MyEulerPro('myfun03',x0,xt,y0,N);
[x,yR]=MyRunge_Kutta('myfun03',