Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0101/nlnf40.c22
There are 2 other files named nlnf40.c22 in the archive. Click here to see a list.
;       FILE NLNF40.C22
;
;       THIS BATCH CONTROL FILE WILL CREATE A 20 COEFFICIENT VERSION OF
;       NONLINWOOD: NONLINEAR LEAST-SQUARES CURVE-FITTING PROGRAM.
;       THE BATCH CONTROL FILE IS TO BE USED WITH THE TOPS-20
;       OPERATING SYSTEM.
;       EITHER THE F40 OR THE F10 COMPILERS MAY BE USED.
;
;       THIS FILE IS SET UP TO USE THE F40 COMPILER WITHOUT OVERLAY.
;       FILES NLNF10.C22, C24 AND C28 USE THE F10 COMPILER.
;
;       NLIN20  ALLOWS  20 MAX COEFFICIENTS,
;                       20 MAX VARIABLES,
;                      170 MAX OBSERVATIONS.
;
;       LOGICAL UNIT NUMBERS USED BY THE PROGRAM ARE DEFINED IN
;       CARDS OF MAIN: 01CT1780 - 01CT2240.
;
;       NONLIN.MC1 AND NONLIN.MC4 ARE THE F10 AND F40 COMPILER VERSION
;       OF DEPSIT FOR PACKING PLOT CHARACTERS.
;               SHOULD SOME COMPILER OTHER THAN F10 OR F40 BE USED.
;               THIS ROUTINE WILL HAVE TO BE CHANGED TO CONFORM TO
;               THE REGISTER UTILIZATION EXPECTED BY THE COMPILER.
;
;
;       THE FOLLOWING INSTRUCTIONS WILL CREATE THE PROGRAM
;       USING THE F40 COMPILER AND NOT OVERLAYING.
;
;       RENAME THE MACRO ROUTINE FROM DECUS NAME
COPY NONLIN.MC4 MACF40.MAC
COMPILE MACF40.MAC/COMPILE/LIST
;
;       COMPILE NLIN20 WITH BLANK MODEL SUBROUTINES IN REMDER.
COPY NLN20C.PGM NLN20C.F4
COMPILE NLN20C.F4/LIST/COMPILE
COPY RENDER.PGM REMDER.F4
COMPILE REMDER.F4/LIST/COMPILE
;
;
;       NOW COMPILE TEST MODELS AND RUN TEST PROBLEMS
;
COPY MODEL1.PGM MODEL1.F4
COPY MODEL5.PGM MODEL5.F4
COMPILE MODEL1.F4/LIST/COMPILE
COMPILE MODEL5.F4/LIST/COMPILE
;
;       COPY TEST DATA
COPY NONLIN.TST FOR05.DAT
;
;     LOAD PROGRAM AND TEST MODELS
LOAD NLN20C.REL,MODEL1.REL,MODEL5.REL,REMDER.REL,MACF40.REL
;
;       NOW RUN TEST DATA
START
FOR05.DAT
FOR06.DAT
COPY FOR06.DAT NLNF40.TR1