Google
 

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