Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0101/nonlin.ctl
There is 1 other file named nonlin.ctl in the archive. Click here to see a list.
00100	;       FILE NLNF10.C22
00200	;
00300	;	THIS FILE WAS COPIED FROM NLNF10.C22, ORIGINALLY SUBMITTED
00400	;	WITH THE DECUS DEC-10 LIBRARY PACKAGE.  IT HAS BEEN MODIFIED
00500	;	TO GENERATE OUTPUT TO DSK: RATHER THAN LPT: AND TO USE
00600	;	LOGICAL NAME 6: (PTR:) TO BE DSK:.  THE F10 (F20) COMPILER
00700	;	IS USED.
00800	
00900	;	NOTE, ALSO, THAT THE MODULE 'DAFUNS.FOR' HAS BEEN ADDED TO
01000	;	THE LOAD COMMAND STRING.  THIS MODULE, WHICH WAS SUBMITTED WITH
01100	;	THE ORIGINAL 'LINCUR' DECUS PACKAGE, SATISFIES THE REQUEST
01200	;	FOR THE FUNCTION 'DARCOS'.  THIS MODULE (DAFUNS) SHOULD BE
01300	;	REMOVED WHEN DEC RELEASES FORLIB WITH THE DARCOS FUNCTION
01400	;	AS PART OF THE STANDARD MATHEMATICAL SUPPORT PACKAGE.
01500	;
01600	;	THE LOAD COMMAND GENERATES '%MULTIPLY DEFINED GLOBAL SYMBOLS'
01700	;	ERROR MESSAGES.  THESE ARE TO BE EXPECTED AND SHOULD NOT
01800	;	KEEP THE PROGRAM FROM FUNCTIONING CORRECTLY.
01900	;
02000	;
02100	;	MODIFIED BY H. D. TODD, WESLEYAN UNIVERSITY, OCT 80.
02200	;
02300	;
02400	;       THIS BATCH CONTROL FILE WILL CREATE A 20 COEFFICIENT VERSION OF
02500	;       NONLINWOOD: NONLINEAR LEAST-SQUARES CURVE-FITTING PROGRAM.
02600	;       THE BATCH CONTROL FILE IS TO BE USED WITH THE TOPS-20
02700	;       OPERATING SYSTEM.
02800	;       EITHER THE F40 OR THE F10 COMPILERS MAY BE USED.
02900	;
03000	;       THIS FILE IS SET UP TO USE THE F10 COMPILER WITHOUT OVERLAY.
03100	;       FILES NLNF40.C22, C24 AND C28 USE THE F40 COMPILER.
03200	;
03300	;       NLIN20  ALLOWS  20 MAX COEFFICIENTS,
03400	;                       20 MAX VARIABLES,
03500	;                      170 MAX OBSERVATIONS.
03600	;
03700	;       LOGICAL UNIT NUMBERS USED BY THE PROGRAM ARE DEFINED IN
03800	;       CARDS OF MAIN: 01CT1780 - 01CT2240.
03900	;
04000	;       NONLIN.MC1 AND NONLIN.MC4 ARE THE F10 AND F40 COMPILER VERSION
04100	;       OF DEPSIT FOR PACKING PLOT CHARACTERS.
04200	;               SHOULD SOME COMPILER OTHER THAN F10 OR F40 BE USED.
04300	;               THIS ROUTINE WILL HAVE TO BE CHANGED TO CONFORM TO
04400	;               THE REGISTER UTILIZATION EXPECTED BY THE COMPILER.
04500	;
04600	;
04700	;       THE FOLLOWING INSTRUCTIONS WILL CREATE THE PROGRAM
04800	;       USING THE F10 COMPILER AND NOT OVERLAYING.
04900	;
05000	;       RENAME THE MACRO ROUTINE FROM DECUS NAME
05100	
05200	;[HDT] OUTPUT TO DSK FOR PURPOSES OF DECUS EVALUATION
05300	@DEF LPT: DSK:
05400	@DEF 6: DSK:
05500	@DEF PTR: DSK:
05600	
05700	COPY NONLIN.MC1 MACF10.MAC
05800	COMPILE MACF10.MAC/COMPILE/LIST
05900	;
06000	;       COMPILE NLIN20 WITH BLANK MODEL SUBROUTINES IN REMDER.
06100	COPY NLN20C.PGM NLN20C.FOR
06200	COMPILE NLN20C.FOR/LIST/COMPILE
06300	COPY REMDER.PGM REMDER.FOR
06400	COMPILE REMDER.FOR/LIST/COMPILE
06500	;
06600	;
06700	;       NOW COMPILE TEST MODELS AND RUN TEST PROBLEMS
06800	;
06900	COPY MODEL1.PGM MODEL1.FOR
07000	COPY MODEL5.PGM MODEL5.FOR
07100	COMPILE MODEL1.FOR/LIST/COMPILE
07200	COMPILE MODEL5.FOR/LIST/COMPILE
07300	;
07400	;       COPY TEST DATA
07500	COPY NONLIN.TST FOR05.DAT
07600	;
07700	;     LOAD PROGRAM AND TEST MODELS
07800	LOAD NLN20C.REL,MODEL1.REL,MODEL5.REL,REMDER.REL,MACF10.REL,DAFUNS
07900	;
08000	;       NOW RUN TEST DATA
08050	SAVE NONLIN
08100	START 
08200	FOR05.DAT
08300	FOR06.DAT
08400	COPY FOR06.DAT NONLIN.TR1
08500