Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
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