Research Article

Closed-Form Solutions to Differential Equations via Differential Evolution

Algorithm 2

do k=1,length
ā€ƒif(x(k).ge.1.and. x(k).le. 10) auxv(:,k) = [1.d0*x(k), 0.d0, 0.d0]
ā€ƒif(x(k).eq.11) auxv(:,k) = xval
end do