Η κλίση της αντικειμενικής συνάρτησης.Το υποπρόγραμμα: SUBROUTINE GRANAL

subroutine granal ( n, p, grad )

implicit double precision (a-h,o-z)

save

parameter(mx=8000,nx=250)

common/xydata/x(mx),y(mx),mm

dimension p(n),grad(n),ff(mx),g(nx)

nodes = n/3

call subsum ( mm, n, p, ff )

do 10 i=1,n

grad(i)=0

10 continue

do 1 l=1,mm

call gann(p,nodes,x(l),g)

do 2 j=1,n

grad(j)= grad(j) + 2*ff(l)*g(j)

2 continue

1 continue

end

Προηγούμενη διαφάνεια

Μετάβαση στην πρώτη διαφάνεια

Προβολή έκδοσης γραφικών