http://www.ccl.net/cca/software/SOURCES/FORTRAN/simplex/MATLAB_STEPIT/private_STSET.shtml
 CCL private_STSET.m ``` %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % STSET -- SETS SOME INPUT QUANTITIES TO DEFAULT VALUES FOR STEPIT; SETS DIFFERENT DEFAULT PARAMETERS THAN % % STBEG % % % % % % DOUBLE PRECISION-- XMAX,XMIN,DELTX,DELMIN,ERR,FOBJ,FLAMBD,FNU,RELFDID,RELMIN,RZERO,HUGE,X % % % % INTEGER--JVARY,JX,KALCP,KERFL,KFLAG,KORDIF,KW,LEQU,MASK,MATRX,MAXIT,METHD,MAXSUB,MAXUPD,NFLAT,NFMAX,NOREP,NTRACE,NV,NVMAX,NXTRA % % % % Ported to Matlab by Jason Lott, University of Alabama at Birmingham, 2001 % % CONTACT: hoffa@uab.edu % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function a = private_STSET(b) %ARG is dummy global X global XMAX global XMIN global DELTX global DELMIN global ERR global FOBJ global VEC global DLX global XS global FSTORE global DX global SALVO global XOSC global FOSC global ARG global STCUT global ACK global FACUP global RZERO global XPLUS global FSAVE global FBEST global XSAVE global ABSDX global FPREV global DENOM global DEL global DXZ global DXU global DFZ global DFU global ABSVEC global SUMV global CINDER global COXCOM global COSIN global STEPS global J global JFLAT global JFLMIN global JOCK global JUMP global JVARY global JX global K global KERFEL global KL global KW global MASK global MATRX global MINSOC global MAXOSC global MAXSTP global NACK global NACTIV global NAH global NCIRC global NEQUAL global NF global NFLAT global NFMAX global NFSAV global NGATE global NGIANT global NONZER global NOREP global NOSC global NOUT global NRETRY global NSSW global NSTEPS global NT global NTRACE global NV global NEXTRA global NZIP global tag_380 global tag_390 global wtag global tag global continueflag global T global Y global YSIG global grandtag global NVMAX global KFLAG global DX global DLX global XS global FLAMBD global FNU global RELDIF global RELMIN global METHD global KALCF global KORDIF global MAXIT global LEQU global MAXSUB global MAXUPD HUGE = 1.0D30; RZERO = 0.0D0; KW = 6; %Logical unit of the printer//obsolete statement--I put it in here just to show how old the original code is!! NTRACE = 0; NFMAX = 1000000; MAXIT = 50; MAXSUB = 30; METHD = 1; KALCP = 0; LEQU = 0; NFLAT = 1; MATRX = 105; NXTRA = 0; FLAMBD = 1.0D0; FNU = 10.0D0; KORDIF = 1; RELDIF = 1.0D-8; RELMIN = 1.0D-6; NVMAX = 20; for JX=1:NVMAX X(JX) = RZERO; XMAX(JX) = HUGE; XMIN(JX) = -HUGE; DELTX(JX) = RZERO; DELMIN(JX) = RZERO; MASK(JX) = 0; end ```
 Modified: Mon Jul 23 19:30:39 2001 GMT Page accessed 3244 times since Wed Aug 15 10:00:24 2001 GMT