laspack1.ps

一个用来实现偏微分方程中网格的计算库

%!PS-Adobe-2.0
%%Creator: dvips 5.58 Copyright 1986, 1994 Radical Eye Software
%%Title: LASPACK1.DVI
%%CreationDate: Wed Jan 17 13:23:42 1996
%%Pages: 13
%%PageOrder: Ascend
%%BoundingBox: 0 0 612 792
%%EndComments
%DVIPSCommandLine: c:\user\tex\emtex\bin\dvips32.exe LASPACK1.DVI
%+ -pj=G:\SOURCES\LASPACK\DOC\LASPACK1.mfj
%DVIPSParameters: dpi=300, compressed, comments removed
%DVIPSSource:  TeX output 1996.01.17:1323
%%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 showpage
userdict /eop-hook known{eop-hook}if}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 product dup length 7 ge{0 7
getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false}
ifelse}{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 40258431 52099146 1000 300 300
(/SOURCES/LASPACK/DOC/LASPACK1.DVI) @start /Fa 11 119
df<EA07FCEA1FFF4813C080383E03F0EA1C01C77E1478A3EB7FF8EA03FF120F383FE078
EA7E0012785AA4007813F8EA7E036CB512E0A2380FFE3F3803F80F1B1A7D991F>97
D<EB7FE03801FFF8000713FC5A381FC07C383F0038003E13005A1278A25AA61278A2007C
133C7E003F137C381FC0F8380FFFF07E000113C038007F00161A7C991F>99
D<137F3801FFC0000713E04813F0381F81F8383F0078003C133C127C0078131EA2B512FE
A400F0C7FCA21278A2007C131E7E381F803EEBE07C380FFFF8000313F06C13E038003F80
171A7D991F>101 D<EA7FFC12FFA2127FEA003CB3AB387FFFFEB6FCA26C13FE18257DA4
1F>108 D<38FC780F39FDFE3FC0B5EA7FE014FF391F87F0F0903803E070001E13C0A200
1C1380AE39FF8FF1FEEB9FF3A2EB8FF11F1A80991F>I<13FCEA03FF481380001F13E013
87383E01F0387C00F800781378A248133CA76C137C00781378007C13F8A2383E01F0381F
87E013FF000713806C1300EA00FC161A7C991F>111 D<387F87E038FF9FF8EBBFFE6CB5
FC3807F83F9038E00F80EBC007EC03C0138015E01401A6140315C0EBC0071580EBE00F90
38F03F00EBFFFEEBBFFCEB9FF8EB87C00180C7FCA9EA7FF8487EA26C5A1B277F991F>I<
387FE07E39FFE1FF8001E313C0EA7FEF3801FF879038FE038049C7FC5BA25BA25BAB387F
FFE0B57EA26C5B1A1A7E991F>114 D<3803FC70380FFFF0123F5AEA7C03EAF801EAF000
A27E007C1300EA3FE06CB4FC000713C0C613E0EB07F0EB00F80070137C00F0133CA27E6C
137C38FF01F8EBFFF0A200E713C038E1FE00161A7C991F>I<137013F0A6387FFFFEB5FC
A3D800F0C7FCACEC0780A49038F80F00EB7C1FEB7FFE6D5A6D5AEB07E019217FA01F>I<
397FE07FE039FFF0FFF0A2397FE07FE03907000E00A2EB801E0003131CA2EBC03C000113
38A2EBE07800001370A3EB70E0A3EB39C0A3EB1F80A36DC7FC1C1A7F991F>118
D E /Fb 2 57 df<1330A2137013F012011370120212041208121812101220124012C0EA
FFFEEA0070A5EA03FE0F157F9412>52 D<EA07E0EA1830EA2018EA600CA21270EA7818EA
3E10EA1F60EA07C0EA0FF0EA18F8EA607C131EEAC00E1306A21304EA600CEA3830EA0FE0
0F157F9412>56 D E /Fc 1 1 df<B512F0A214027D881B>0 D E
/Fd 20 116 df<121C123E127FEAFF80A3EA7F00123E121C09097B8813>46
D<EB3F803801FFF03807E0FC380FC07E48487EA2393F001F80A24814C0A44814E0AF6C14
C0A46C1480A2391F803F00A2380FC07E6C6C5A3801FFF038003F801B277DA622>48
D<130E131E137EEA07FE12FFA212F81200B3AB387FFFFEA317277BA622>I<EBFF800003
13F0000F13FC381F03FE383800FF007CEB7F8000FEEB3FC07E15E0141FA2127E003C133F
C7FC15C0A2EC7F80150014FE5C495A495A5CEB078049C7FC131E4913E013705B3901C001
C0EA0380EA070048B5FC5A5A5AB61280A31B277DA622>I<EB7F803803FFF0487F380F81
FEEA1F00486C7EEC7F80A3121FEA0F00C7EAFF00A25C495A5CEB07F0EBFFC014F0EB01FC
6D7E147F1580EC3FC0A215E0A2123C127EB4FCA215C0147F007E1480007C1400383F01FE
6CB45A000713F0C613801B277DA622>I<140E141E143E147E14FEA213011303EB077E13
0EA2131C1338137013E0A2EA01C0EA0380EA0700120EA25A5A5A5AB612F8A3C7EAFE00A8
90383FFFF8A31D277EA622>I<00081303381F803FEBFFFE5C5C5C5C148049C7FC001CC8
FCA6EB7FC0381DFFF8381F80FC381E003E0008133FC71380EC1FC0A215E0A21218127C12
FEA315C05A0078EB3F80A26CEB7F00381F01FE380FFFF800035BC613801B277DA622>I<
91393FF00180903903FFFE03010FEBFF8790393FF007DF9039FF8001FF4848C7127F4848
143FD807F0141F000F150F48481407A2485A1603127F5B93C7FC12FFA9127FA26DEC0380
123FA26C7EEE07006C7E0007150ED803FC141E6C6C5C6C6C6C13F890393FF007E0010FB5
5A010391C7FC9038003FF829297CA832>67 D<B612F815FF16C03A03FC003FE0ED0FF0ED
07F816FC150316FEA716FC150716F8ED0FF0ED3FE090B61280EDFE0001FCC8FCB0B512F0
A327297DA82F>80 D<B500F090383FFF80A3D803FEC73801E00000015E7F6C4B5AA26E13
07017F92C7FC6E5B013F140E6E131E011F141C80010F5CA26E1378010714706E13F00103
5CECFE0101015C14FF6D495AA21587027F90C8FC15CFEC3FCE15EEEC1FFCA26E5AA36E5A
A26E5AA26E5A31297FA834>86 D<3803FF80000F13F0381F01F8383F807EA280D81F0013
80120EC7FCA3EB0FFF90B5FC3807FC3FEA0FE0EA3F8013005A12FEA4007E137F007F13DF
393F839FFC380FFF0F3801FC031E1B7E9A21>97 D<EB3FE03801FFF83803F07E3807C01F
D80F801380001F130F003F14C0EA7F00140715E05AA290B5FCA290C8FCA37EA36C6C13E0
121F390FC001C03907E003803903F81F003800FFFEEB1FF01B1B7E9A20>101
D<9038FF81F00003EBE7F8390FC1FE7C381F80FC9038007C3848EB7E1048EB7F00A66C13
7E6C137CEB80FC380FC1F8381FFFE0001813800038C8FCA2123C123E383FFFF86C13FF15
806C14C06C14E0001F14F0383C0007007CEB01F8481300A4007CEB01F0003C14E0001FEB
07C0390FC01F803903FFFE0038007FF01E287E9A22>103 D<EAFFE0A3120FAC147F9038
E1FFC09038E787E09038EE03F013F88113F0A213E0B03AFFFE3FFF80A3212A7DA926>I<
1207EA0F80EA1FC0EA3FE0A3EA1FC0EA0F80EA0700C7FCA7EAFFE0A3120FB3A3EAFFFEA3
0F2B7DAA14>I<3BFFC07F800FF0903AC1FFE03FFC903AC383F0707E3B0FC603F8C07F90
3ACC01F9803F01D8D9FF00138001F05BA201E05BB03CFFFE1FFFC3FFF8A3351B7D9A3A>
109 D<38FFC07F9038C1FFC09038C787E0390FCE03F013D88113F0A213E0B03AFFFE3FFF
80A3211B7D9A26>I<EB3FE03801FFFC3803F07E390FC01F80391F800FC0003F14E0EB00
074814F0A34814F8A86C14F0A2393F800FE0A2001F14C0390FC01F803907F07F003801FF
FC38003FE01D1B7E9A22>I<38FFC1F0EBC7FCEBCE3E380FD87FA213F0143E141CEBE000
B0B5FCA3181B7E9A1C>114 D<3803FE30380FFFF0EA1E03EA380048137012F0A27E00FE
1300EAFFE0EA7FFEEBFF806C13E06C13F0000713F8C6FCEB07FCEA600000E0137C143C7E
14387E6C137038FF01E038F7FFC000C11300161B7E9A1B>I E /Fe
3 53 df<B612FCA21E027C8C27>0 D<EA03F0EA0FFC487E487E481380A2B512C0A86C13
80A26C13006C5A6C5AEA03F012147D9519>15 D<1430A21478A214CCA2EB0186A2EB0303
9038060180A2496C7EA2491360A2497FA2497FA2497FA248487FA248C77EA20006EC0180
48EC00C0A2481560A2481530A2481518A2B712FC7E26247DA32D>52
D E /Ff 72 123 df<380181803803C3C0A6387FFFF0B512F8A26C13F038078780A3EA0F
8FEB0F00A4387FFFF0B512F8A26C13F0381E1E00A6EA0C0C151E7E9D1A>35
D<136013E0A4EA03F8EA0FFE381FFF80383CE7C0EA78E13870E0E012E013E1A2EBE0C000
7013001278123F6C7EEA07FCC6B4FCEBEF80EBE3C013E1EBE0E012F0A312E03870E1C0EA
78E3383CEF80381FFF006C5AEA03F0C65AA3136013277DA21A>I<001813C0383C01E012
7E130300E713C0A213071480130F1400A2EA7E1F131E123CEA183EEA003C137C1378A213
F85BA212015B12035B14C03807C3F01383EB8738120F1307121F121EA2123E383C03F0A2
381800C015277EA21A>I<13E0EA03F0487E1338EA0E1CA45BEB39FC1371EA07F1EBE1C0
13C11381EB8380120FEA1FC3383DC700EA78E7EA70EEEAE07EA2EB3C08141C137EEA70FF
387FE7F8EA3FC3380F00E0161E7F9D1A>I<1338137813F0EA01E0EA03C0EA0780EA0F00
120E5AA25AA25AA35AAA1270A37EA27EA27E120FEA0780EA03C0EA01E0EA00F813781338
0D2878A21A>40 D<126012F012787E7E7EEA07801203EA01C0A2EA00E0A21370A31338AA
1370A313E0A2EA01C0A2EA03801207EA0F00121E5A5A5A12600D287CA21A>I<13E0A538
F0E1E0EAFCE7387EEFC0381FFF00EA07FCEA01F0EA07FCEA1FFF387EEFC038FCE7E0EAF0
E13800E000A513157D991A>I<13301378A8387FFFF0B512F8A26C13F038007800A81330
15167E991A>I<1218123E127E127F123F121F1207120EA2121C12FC12F81260080D7785
1A>I<387FFFC0B512E0A26C13C013047D901A>I<1230127812FCA212781230060676851A
>I<14C0EB01E0A2130314C013071480130F1400A25B131E133E133C137C1378A213F85B
12015B12035BA212075B120F90C7FC5A121EA2123E123C127C127812F85AA2126013277D
A21A>I<EA01F0EA07FC487EEA1F1FEA1C0738380380A2387001C0A338E000E0A9EAF001
007013C0A2EA780300381380EA3C07001C1300EA1F1FEA0FFE6C5AEA01F0131E7D9D1A>
I<13C01201A212031207120F127F12FD12711201B2EA7FFFA3101E7B9D1A>I<EA03F8EA
0FFE381FFF80383C07C0387801E0EA70004813707EA21260C7FCA214E0A2EB01C01303EB
0780EB0F00131E5B5B5BEA03E0485A48C7FC001E13705A387FFFF0B5FC7E141E7D9D1A>
I<EA03FCEA0FFF003F13C0383C03E0EA78001470A2C7FCA214E01301EB07C03803FF8014
0014C0380003E01300147014781438A2126012F01478481370007013E0EA7E03383FFFC0
000F1300EA01FC151E7E9D1A>I<EB0F80131F133BA2137313F313E3EA01C31203138312
07EA0F03120E121E123C1238127812F0B512FEA338000380A6EB3FF8EB7FFCEB3FF8171E
7F9D1A>I<383FFFC05AA20070C7FCA8EA71F8EA7FFEEBFF80387E07C0EA7801383000E0
C7FC1470A3126012F014E0EAE001387003C0387C0F80383FFF00EA0FFEEA03F0141E7D9D
1A>I<137E3801FF804813C0380781E0EA0F01121E383C00C0003813005AA3EAE1F8EAE7
FEB5FC38FE078038F803C0EAF001EB00E0A25A7E1270A2EB01C01238383C0380EA1E0F38
0FFF00EA07FCEA01F0131E7D9D1A>I<12E0B512F8A214F038E000E0EB01C0EA0003EB07
80EB0F00130E5BA25BA25BA25BA3485AA4485AA8151F7E9E1A>I<EA01FCEA07FF001F13
C01307383C01E0387800F000701370A3007813F0003813E0381E03C0380FFF803803FE00
487E381F8FC0383C01E0387800F000701370481338A46C137800701370007813F0383E03
E0381FFFC000071300EA01FC151E7E9D1A>I<EA01F0EA07FCEA1FFEEA3E0F38380780EA
7003EB01C012E0A214E01300A213011270EA7803EA3C0FEA1FFFEA0FFCEA03F0380001C0
A3EB0380126038F007005B133EEA7FFCEA3FF0EA0FC0131E7D9D1A>I<1230127812FCA2
127812301200A91230127812FCA212781230061576941A>I<14C0EB03E01307EB0FC0EB
3F80EB7E005BEA03F8EA07E0485AEA3F80007EC7FC5AA2127E6C7EEA0FC06C7EEA03F8C6
7E137EEB3F80EB0FC0EB07E01303EB00C0131A7D9B1A>60 D<387FFFF0B512F8A26C13F0
C8FCA4387FFFF0B512F8A26C13F0150C7E941A>I<126012F87E127E6C7EEA0FC06C7EEA
03F8C67E137EEB3F80EB0FC0EB07E0A2EB0FC0EB3F80EB7E005BEA03F8EA07E0485AEA3F