Υπολογισμός της Ιακωβιανής.Το υποπρόγραμμα: SUBROUTINE JANAL

subroutine janal ( m, n, p, fj, ld )

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

save

parameter(mx=8000,nx=250)

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

dimension p(n), fj(ld,n),gper(nx)

nodes = n/3

do 1 i=1,m

call gann(p,nodes,x(i),gper)

do 2 j=1,n

fj(i,j) = gper(j)

2 continue

1 continue

end

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

Επόμενη διαφάνεια

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

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