donlp2c.ps

sqp程序包。用sqp算法实现非线性约束的优化求解

%!PS-Adobe-2.0
%%Creator: dvips 5.72 Copyright 1997 Radical Eye Software (www.radicaleye.com)
%%Title: donlp2c.dvi
%%Pages: 10
%%PageOrder: Ascend
%%BoundingBox: 0 0 596 842
%%EndComments
%DVIPSCommandLine: dvips -D600 -Z donlp2c.dvi
%DVIPSParameters: dpi=600, compressed
%DVIPSSource:  TeX output 2001.07.19:1826
%%BeginProcSet: /contrib/tex/fonts/ps/tex.pro
%!
/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
forall round exch round exch]setmatrix}N /@landscape{/isls true N}B
/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B
/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{
/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N
string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N
end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{
/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]
N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup
length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{
128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub
get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data
dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup
/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx
0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff
setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff
.1 sub]{ch-image}imagemask restore}B /D{/cc X dup type /stringtype ne{]}
if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup
length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{
cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict
/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook
known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
/IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for
65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0
0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V
{}B /RV statusdict begin /product where{pop false[(Display)(NeXT)
(LaserWriter 16/600)]{dup length product length le{dup length product
exch 0 exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}
ifelse end{{gsave TR -.1 .1 TR 1 1 scale rulex ruley false RMat{BDot}
imagemask grestore}}{{gsave TR -.1 .1 TR rulex ruley scale 1 1 false
RMat{BDot}imagemask grestore}}ifelse B /QV{gsave newpath transform round
exch round exch itransform moveto rulex 0 rlineto 0 ruley neg rlineto
rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N /tail{dup
/delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail}B /c{-4 M}B /d{
-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{4 M}B
/w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{p 1 w}
B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p a}B
/bos{/SS save N}B /eos{SS restore}B end

%%EndProcSet
%%BeginProcSet: texc.pro
%!
/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
forall round exch round exch]setmatrix}N /@landscape{/isls true N}B
/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B
/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{
/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N
string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N
end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{
/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]
N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup
length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{
128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub
get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data
dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup
/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx
0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff
setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff
.1 sub]/id ch-image N /rw ch-width 7 add 8 idiv string N /rc 0 N /gp 0 N
/cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}imagemask restore}B /G{{id
gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get exec}loop}B /adv{cp
add /cp X}B /chg{rw cp id gp 4 index getinterval putinterval dup gp add
/gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get dup 0 eq{pop 1}{
dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}ifelse put 1
adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}{dup 2
idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval
adv}B /fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}
{adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{
adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2
chg nd}{pop nd}]dup{bind pop}forall N /D{/cc X dup type /stringtype ne{]
}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup
length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{
cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict
/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook
known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
/IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for
65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0
0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V
{}B /RV statusdict begin /product where{pop false[(Display)(NeXT)
(LaserWriter 16/600)]{dup length product length le{dup length product
exch 0 exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}
ifelse end{{gsave TR -.1 .1 TR 1 1 scale rulex ruley false RMat{BDot}
imagemask grestore}}{{gsave TR -.1 .1 TR rulex ruley scale 1 1 false
RMat{BDot}imagemask grestore}}ifelse B /QV{gsave newpath transform round
exch round exch itransform moveto rulex 0 rlineto 0 ruley neg rlineto
rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N /tail{dup
/delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail}B /c{-4 M}B /d{
-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{4 M}B
/w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{p 1 w}
B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p a}B
/bos{/SS save N}B /eos{SS restore}B end

%%EndProcSet
TeXDict begin 39158280 55380996 1000 600 600
(/home/spellucci/donlp2_ansi_c/donlp2c.dvi) @start
%DVIPSBitmapFont: Fa cmr8 8 37
/Fa 37 122 600 518 dfs[<EB3F80EBFFF03801E0F83803C03C3807803EEB001E48131F
A4141E143E143C5C495A38FF1FC05C380F03E0EB00F0147880143E141E141FA2801580A7
1500EB0C1FEB1E1EA2EB1C7C38FF0FF0EB07C0>25 40 126 167
35 25 D[<127812FCA212FEA2127E1206A4120CA21218A2123012601240>7
17 123 133 20 44 D[<EAFFFEA3>15 3 127 141 23 I[<127812FCA41278>6
6 123 133 20 I[<EA01FE3807FF80380E07E0381803F0383000F85A147C12F06C137E7E
143EA21278C7127E147CA214FC14F8EB01F014E0EB03C0EB07801400130E5B5B5B5B3801
C006EA03803807000C12065A48131C383FFFFC4813F8B5FCA2>23
38 125 165 35 50 D[<14E0A213011303A21307130F130D131913391331136113E113C1
EA0181120313011206120E120C121812381230126012E0B61280A2390001E000A8497E90
387FFF80A2>25 38 126 165 35 52 D[<EB0FE0EB3FF8EBF81C3801E00C3803801E3807
003E5A001E131C91C7FC5AA2127C12781304EB3FC038F8FFF038F9807838FB003C00FA7F
12FC80A2481480A41278A46C1400A2001C131E121E000E5B6C5B3803C0F03801FFC06C6C
C7FC>25 39 126 165 35 54 D[<1230123C003FB51280A21500485B3870000600605B5C
5C5A5CC75AA2495A49C7FC5B1306130E130C131CA25BA21378A35BA51201A76C5A>25
40 125 166 35 I[<137F3801FFC0380381F0380E0078000C131C5A801238A3123C003E
5B7EEBC0386C6C5A3807F8E06CB45A6C90C7FC38007FC048487E38078FF8380E07FC381C
01FE3838007F487FEC0F80481307A21403A31500127014066C130E001E5B380F80F03803
FFE0C66CC7FC>25 39 126 165 35 I[<137F3801FFC03807C1E0380F0070001E7F4813
3C805AA200F87FA41580A40078131FA27E142F6C136F6C13CF3807FF8F3801FE0FD80010
130013005C141EA2141C001C133C003E13385C003C5B381801C0381E07806CB4C7FCEA03
F8>25 39 126 165 35 I[<127812FCA412781200AD127812FCA41278>6
25 123 152 20 I[<14FF010F13F090383F00FC0178131E01E01307D80380EB01C048C8
12E00006156048017E13303A1803FF80183A380781E01C3A300F00700CD8701EEB300ED8
603CEB1F0649130FA2D8C070140313F0A61370EA607816026DEB1F06D8701E133FD8300F
EB7F043A380781E78C3A1803FF83F83A0C007E01F06C90C8FC12076C7ED800E0140F0178
14FC013FEB1FF0010FB51200010013E0>40 40 125 167 54 64
D[<B67E15F03907E000FC0003143FED0F80ED07C0ED03E0ED01F0ED00F8A2167CA2167E
163EA2163FA9163EA3167CA216F8A2ED01F016E0ED03C0ED0F80ED1F00000714FEB612F8
15C0>40 39 125 166 54 68 D[<91387F8008903907FFF01890391FC0383890387E000E
01F8EB07784848EB01F8485A484813004848147848C8FC16385A123E007E1518A2127C00
FC92C7FCA792B51280A2007C913801F800007E1400A2123E123F7E7F120F6C7E6C7E6C6C
13016C7E017EEB073890391FC01E18903907FFF8089026007FC0C7FC>41
41 125 167 56 71 D[<D8FFE0913803FF806D5C0007EEF00000035E0178140DA26D1419
A36D1431A26D1461A36D6C13C1A2903903C00181A3903901E00301A2903800F006A3EC78
0CA2EC3C18A3EC1E30A2EC0F60A3EC07C0EA0780486C6C48487ED8FFFC91387FFF80A2>
49 39 125 166 65 77 D[<01FF1380000313C1380F80F3381E003B48131F0038130F00
7813070070130312F0A21401A27E91C7FC127C127FEA3FE0EA1FFE380FFFE06C13F80001
13FE38003FFF01031380EB003FEC0FC01407EC03E0A200C01301A47E15C06C1303158000
FCEB070000EE130E38E7C03C38C1FFF838803FE0>27 41 125 167
39 83 D[<007FB612FCA2397E007C000078153C0070151C0060150CA200E0150E481506
A5C71400B3A514FE90387FFFFCA2>39 39 126 166 51 I[<B539801FFF80A23B07F000
01F8006C486D5A1660B3A712016D5CA200004A5A13784BC7FC6D1306010F131C903807C0
78903801FFE09038007F80>41 40 126 166 53 I[<EA07FE381FFF80383E03C06D7E6D
7E001C1378C7FCA4EB1FF83801FE78EA07C0EA1F00123E5A5A1560A314B8387C0138393F
063CC0391FFC1F80D807F01300>27 25 126 152 35 97 D[<EB7FE03801FFF83807C07C
EA0F00121E4813381400127C127812F8A7127CA2003C130C123E6C1318380F80303807E0
603801FFC038007F00>22 25 126 152 31 99 D[<EC0780147FA2140F1407AB137F3801
FFE73807C077380F001F001E130F481307A2127C127812F8A71278127C123C140F6C131F
6C133F3907C0E7C03903FFC7F838007E07>29 40 126 167 39 I[<137E3803FF803807
83C0380F00E0001E13704813781438007C133C127812F8B512FCA200F8C7FCA41278127C
003C130CA26C13186C13303807C0E03801FFC038007F00>22 25
126 152 31 I[<EB0FC0EB3FE0EBF0F0EA01E1EA03C1EBC0E038078000A9B5FCA2EA0780
B3A2487EEA7FFCA2>20 40 127 167 22 I[<140F9038FC1F803903FF31C0380787C1D8
0E011380001EEBE000EA1C00003C7FA5001C5BEA1E01000E5B38078780D80BFFC7FCEA18
FC90C8FCA3121C381FFFC06C13F86C7F487F383C003F007013070060148000E01303A36C
130700701400003C131E001F137C3807FFF0C61380>26 38 126
153 35 I[<120FB4FCA2121F7EABEB03F0EB0FFCEB381EEB600F90384007801380A21300
AF391F800FC039FFF07FF8A2>29 40 126 167 39 I[<120C121E123FA2121E120CC7FC
A8120FB4FCA2121F7EB3EAFFF0A2>12 39 126 166 20 I[<120FB4FCA2121F7EABECFF
E0A2EC7F00143C14705C495A49C7FC13065B131E137F13E7EB8380EB01C0801300147080
143C141C141E391F801F8039FFF03FF0A2>28 40 126 167 37 107
D[<120FB4FCA2121F7EB3B0EAFFF0A2>12 40 126 167 20 I[<3A0F03F001F83AFF0FFC
07FE9039381E1C0F3B1F600F3007803B0F4007A003C0018013C0A201001380AF3B1F800F
C007E03BFFF07FF83FFCA2>46 25 126 152 59 I[<380F03F038FF0FFCEB381E381F60
0F390F4007801380A21300AF391F800FC039FFF07FF8A2>29 25
126 152 39 I[<137F3801FFC03807C1F0380F0078001E7F487FA2487FA200F81480A700
781400A2007C5B003C131E6C5B6C5B3807C1F03801FFC06C6CC7FC>25