Views
5 years ago

i0.2 - Technische Universiteit Eindhoven

i0.2 - Technische Universiteit Eindhoven

PROGRAM dcinrushcurve;

PROGRAM dcinrushcurve; {$N+} {Laatste verandering 6-dec-91 uses DOS, CRT, PRINTER; const N = 3; M = 100; 20d Beschrijving van MINIQUAD in PP5.3} {aantal variabelen te minimaliseren functie F} {aantal residuen} type ARRAY1DR = array [l.oM] of single; ARRAY2DR = array [100M, looN] of single; var STP: boolean; A, X, Y, YY, A12, A23, Y12, Y23: ARRAY1DR; VARCOV: ARRAY2DR; I, INFO, Inf, J, K, METHOD, STOPCR, IMAX, Atp: integer; outPrn, InputData: text; flux, stroom, aprox, toll, tol2: single; line: string; FUNCTION MAX(A:single; B:single):single; BEGIN IF A > B THEN MAX := A ELSE MAX := B; END; {MAX} FUNCTION MIN(A:integer; B:integer):integer; BEGIN IF A < B THEN MIN := A ELSE MIN := B; END; {MIN} PROCEDURE RESIDU(VAR X:ARRAY1DR; VAR RES:single; I:INTEGER); var FF: single; BEGIN {X[l]= k1} {X[2]= k2} {X[3]= sigma} FF := (X[1]*X[3]*A[I])/(1+X[3]*A[I]) + X[2]*A[I] ; RES := Y[I]/1000 - FF; {time is in ms END; {RESIDU} PROCEDURE GRDRES(VAR X,GRAD:ARRAY1DR; I:INTEGER); BEGIN GRAD[l] := -(X[3]*A[I])/(1+X[3]*A[I]); {dRES/dvar1} GRAD[2] := -A[I]; {dRes/dVar2} GRAD[3] := -(X[1]*A[I])/(sqr(1+X[3]*A[I]»; {dRES/dvar3} END; {GRADRES}

full-text - Technische Universiteit Eindhoven
u - Technische Universiteit Eindhoven
X - Technische Universiteit Eindhoven
cheops - Technische Universiteit Eindhoven
commissies - Technische Universiteit Eindhoven
istanbul - Technische Universiteit Eindhoven
EEN HULPMIDDEL - Technische Universiteit Eindhoven
Afstudeerrapport - Technische Universiteit Eindhoven
y - Technische Universiteit Eindhoven
(CICA) - Technische Universiteit Eindhoven
bijlagen - Technische Universiteit Eindhoven
(CICA) - Technische Universiteit Eindhoven
khthe - Technische Universiteit Eindhoven
khthe - Technische Universiteit Eindhoven
1 - Technische Universiteit Eindhoven
1 a - Technische Universiteit Eindhoven
schaalniveau 1 - Technische Universiteit Eindhoven
onderzoek- rapportage - Technische Universiteit Eindhoven
Rede Aldenkamp - Technische Universiteit Eindhoven
If - Technische Universiteit Eindhoven
Afstudeerrapport - Technische Universiteit Eindhoven
kater-In - Technische Universiteit Eindhoven
7 - Technische Universiteit Eindhoven
kunststoffen - Technische Universiteit Eindhoven
Automotive - Technische Universiteit Eindhoven
Ruimte, tijd, samenleven - Technische Universiteit Eindhoven
bestemming [o,n bekend - Technische Universiteit Eindhoven
r:v JAARBOEK 85-86 - Technische Universiteit Eindhoven
landen - Technische Universiteit Eindhoven
1 - Technische Universiteit Eindhoven