Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0101/nlnf10.c22
There are 2 other files named nlnf10.c22 in the archive. Click here to see a list.
00100 ; FILE NLNF10.C22
00200 ;
00300 ; THIS BATCH CONTROL FILE WILL CREATE A 20 COEFFICIENT VERSION OF
00400 ; NONLINWOOD: NONLINEAR LEAST-SQUARES CURVE-FITTING PROGRAM.
00500 ; THE BATCH CONTROL FILE IS TO BE USED WITH THE TOPS-20
00600 ; OPERATING SYSTEM.
00700 ; EITHER THE F40 OR THE F10 COMPILERS MAY BE USED.
00800 ;
00900 ; THIS FILE IS SET UP TO USE THE F10 COMPILER WITHOUT OVERLAY.
01000 ; FILES NLNF40.C22, C24 AND C28 USE THE F40 COMPILER.
01100 ;
01200 ; NLIN20 ALLOWS 20 MAX COEFFICIENTS,
01300 ; 20 MAX VARIABLES,
01400 ; 170 MAX OBSERVATIONS.
01500 ;
01600 ; LOGICAL UNIT NUMBERS USED BY THE PROGRAM ARE DEFINED IN
01700 ; CARDS OF MAIN: 01CT1780 - 01CT2240.
01800 ;
01900 ; NONLIN.MC1 AND NONLIN.MC4 ARE THE F10 AND F40 COMPILER VERSION
02000 ; OF DEPSIT FOR PACKING PLOT CHARACTERS.
02100 ; SHOULD SOME COMPILER OTHER THAN F10 OR F40 BE USED.
02200 ; THIS ROUTINE WILL HAVE TO BE CHANGED TO CONFORM TO
02300 ; THE REGISTER UTILIZATION EXPECTED BY THE COMPILER.
02400 ;
02500 ;
02600 ; THE FOLLOWING INSTRUCTIONS WILL CREATE THE PROGRAM
02700 ; USING THE F10 COMPILER AND NOT OVERLAYING.
02800 ;
02900 ; RENAME THE MACRO ROUTINE FROM DECUS NAME
02910
02920 ;[HDT] OUTPUT TO DSK FOR PURPOSES OF DECUS EVALUATION
02930
03000 COPY NONLIN.MC1 MACF10.MAC
03100 COMPILE MACF10.MAC/COMPILE/LIST
03200 ;
03300 ; COMPILE NLIN20 WITH BLANK MODEL SUBROUTINES IN REMDER.
03400 COPY NLN20C.PGM NLN20C.F4
03500 COMPILE NLN20C.F4/LIST/COMPILE
03600 COPY REMDER.PGM REMDER.F4
03700 COMPILE REMDER.F4/LIST/COMPILE
03800 ;
03900 ;
04000 ; NOW COMPILE TEST MODELS AND RUN TEST PROBLEMS
04100 ;
04200 COPY MODEL1.PGM MODEL1.F4
04300 COPY MODEL5.PGM MODEL5.F4
04400 COMPILE MODEL1.F4/LIST/COMPILE
04500 COMPILE MODEL5.F4/LIST/COMPILE
04600 ;
04700 ; COPY TEST DATA
04800 COPY NONLIN.TST FOR05.DAT
04900 ;
05000 ; LOAD PROGRAM AND TEST MODELS
05100 LOAD NLN20C.REL,MODEL1.REL,MODEL5.REL,REMDER.REL,MACF10.REL
05200 ;
05300 ; NOW RUN TEST DATA
05400 START
05500 FOR05.DAT
05600 FOR06.DAT
05700 COPY FOR06.DAT NONLIN.TR1
05800