The complete lack of help, comments and poor programming style makes you want to delete this immediately. As an example, these are the first lines of the code:
function udot = loreq17(t,u)
global U V t0 k1 k2 k3 k4 k21 k22 k23 k24 a m1 m2 m3 m4 mu d0 d2
udot =[i.*((t0 + a * (u(19)- u(17)))*u(3) -( t0 + a * (u(19)- u(17)))*u(2)).*exp(i.*V);
i.*((t0 + a * (u(19)- u(17)))*u(4) -( t0 + a * (u(20)- u(18)))*u(1) +(U./2.*(u(5)-u(8))).*u(2)).*exp(i.*V);
i.*((t0 + a * (u(20)- u(18)))*u(1) -( t0 + a * (u(19)- u(17)))*u(4) +(U./2.*(u(8)-u(5))).*u(3)).*exp(i.*V);
i.*((t0 + a * (u(20)- u(18)))*u(2) -( t0 + a * (u(20)- u(18)))*u(3)).*exp(i.*V);
i.*((t0 + a * (u(19)- u(17)))*u(7) -( t0 + a * (u(18)- u(17)))*u(6)).*exp(i.*V);
One wonders why someone is putting effort in actually submitting this. So please remove!