程序:
function td_12
clear;
clc;
sol=dde23(@ddefun,[0.1],[0.001;0.001;0.001;0.001;0.001;0.001;0.001;0.001;0.001;0.001;0.001;0.001;0.001;0.001],[0,100]);
plot(sol.x,sol.y(3,:));
title('ddefun');xlabel('t');ylabel('y');
% legend('y_1');
function F=ddefun(t,y,Z)
y1d=Z(:,1);
F=[ ( y(5)-2*2.32910*y(1)/419 )/1.718;
( y(6)-2*2.329*y(2)/419 )/1.718;
( -y(5)-y(14)-2*6.236*y(3)/419-y(3)/0.5+1*y1d(9)/0.5 )/2.586;
( -y(6)-y(14)-2*6.236*y(4)/419-y(4)/0.5+1*y1d(10)/0.5 )/2.586;
(y(3)-y(1))/1540.9;
(y(4)-y(2))/1540.9;
( 1.5*y(3)/0.5-y(7) +( 1-1.5/0.5 )*y1d(9) -0.05 )/9.864;
( 1.5*y(4)/0.5-y(8) +( 1-1.5/0.5 )*y1d(10) -0.05 )/9.864;
1.679*(-y(7))/0.2+0.5*y(11)/0.2-3*(1.5*y(3)/