Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0101/nlnf40.c12
There are 2 other files named nlnf40.c12 in the archive. Click here to see a list.
; FILE NLNF40.C12
;
; 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-10
; 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.C12, C14 AND C18 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 MACF40.MAC=NONLIN.MC4
COMPILE MACF40.MAC/COMPILE/LIST
;
; COMPILE NLIN20 WITH BLANK MODEL SUBROUTINES IN REMDER.
COPY NLN20C.F4=NLN20C.PGM
COMPILE NLN20C.F4/F40/LIST/COMPILE
COPY REMDER.F4=REMDER.PGM
COMPILE REMDER.F4/F40/LIST/COMPILE
;
;
; NOW COMPILE TEST MODELS AND RUN TEST PROBLEMS
;
COPY MODEL1.F4=MODEL1.PGM
COPY MODEL5.F4=MODEL5.PGM
COMPILE MODEL1.F4/F40/LIST/COMPILE
COMPILE MODEL5.F4/F40/LIST/COMPILE
;
; COPY TEST DATA
COPY FOR05.DAT=NONLIN.TST
;
; LOAD PROGRAM AND TEST MODELS
LOAD NLN20C.REL,MODEL1.REL,MODEL5.REL,REMDER.REL,MACF40.REL
;
; NOW RUN TEST DATA
EXEC NLIN20