Research Article
Closed-Form Solutions to Differential Equations via Differential Evolution
do k=length-1,1,-1 | if(.not. isnan( auxv(1,k+1) ).and. narg(x(k)).eq. 0 ) then | cycle | elseif(.not. isnan( auxv(1,k+1) ).and. narg(x(k)).eq. 1 ) then | auxv(:,k) = operf(x(k),auxv(:,k+1)) | if( isnan(auxv(1,k)) ) return | elseif(.not. isnan( auxv(1,k+1) ).and. narg(x(k)).eq.2)then | auxv(:,k) = operf2(x(k),auxv(:,k+1:length)) | if( isnan(auxv(1,k)) ) return | end if | end do |
|