rt0.eps

FreeFem++可以生成高质量的有限元网格。可以用于流体力学

picstr1 readimgx pop picstr2 readimgx pop picstr3 readimgx picstr4 readimgx pop 
picstr5 readimgx pop } def } if band 4 eq { /DataSource { picstr1 readimgx pop 
picstr2 readimgx pop picstr3 readimgx pop picstr4 readimgx picstr5 readimgx pop 
} def } if band 5 ge { /DataSource { picstr1 readimgx pop picstr2 readimgx pop 
picstr3 readimgx pop picstr4 readimgx pop picstr5 readimgx } def } if 
currentdict end /_savedtransfer updatetransfer def doimage /_savedtransfer load 
restoretransfer grestore } def /maskedimage { 40 dict begin gsave cc band 0 le 
{/DeviceCMYK} {/DeviceGray} ifelse setcolorspace /_bps xd /_p xd /_bf xd /_bpp 
xd /_h xd /_w xd /_savedtransfer updatetransfer def /_maskstr _w 1 sub 8 idiv 1 
add string def /_bitmask [128 64 32 16 8 4 2 1] def /_mtx [1 0 0 1 0 0] def 
/_picstrC _w string def /_picstrM _w string def /_picstrY _w string def 
/_picstrK _w string def /_picstrG _w string def band 0 le { /_outstr _w 4 mul 
string def /_dmtx [0 1 0 1 0 1 0 1] def } { /_outstr _w string def /_dmtx [0 1] 
def } ifelse _bf set_rdfile /_rdproc _bf 1 eq {{readimg pop}} {{readimgx pop}} 
ifelse bd /_istranspix {dup 3 1 roll 8 idiv get 3 1 roll 8 mod get and 0 eq} bd 
/_ys 1 _h div def 0 1 _h 1 sub { /_yt exch _h div def _maskstr _rdproc _picstrC 
_rdproc _picstrM _rdproc _picstrY _rdproc _picstrK _rdproc _picstrG _rdproc 
/_xs 0 def /_bis false def 0 1 _w { /_x exch def _x _w eq {true} {_bitmask 
_maskstr _x _istranspix} ifelse { _bis { matrix currentmatrix /_sl _x _xs sub 
def _xs _w div _yt translate _sl _w div _ys scale _mtx 0 _sl put band 0 le { 0 
1 _sl 1 sub { dup /_i xd dup /_i4 exch 4 mul def /_ixs exch _xs add def _outstr 
_i4       _picstrC _ixs get put _outstr _i4 1 add _picstrM _ixs get put _outstr 
_i4 2 add _picstrY _ixs get put _outstr _i4 3 add _picstrK _ixs get put } for } 
{ _outstr 0 band 1 eq {_picstrC} if band 2 eq {_picstrM} if band 3 eq 
{_picstrY} if band 4 eq {_picstrK} if band 5 ge {_picstrG} if _xs _sl 
getinterval putinterval } ifelse _mtx _dmtx _sl 12 dict begin /ImageType 1 def 
/Width _sl def /Height 1 def /ImageMatrix _mtx def /BitsPerComponent _bpp def 
/Decode _dmtx def /MultipleDataSources false def /DataSource {_outstr} def 
currentdict end doimage pop pop pop setmatrix /_bis false def } if } { _bis not 
{ /_bis true def /_xs _x def } if } ifelse } for } for /_savedtransfer load 
restoretransfer grestore end }bd currentdict readonly pop end 
/bullets{{/bullet}repeat} bd /WE[/grave/acute/circumflex/tilde/macron 
/breve/dotaccent/dieresis/ring/cedilla/hungarumlaut/ogonek/caron/dotlessi 18 
bullets StandardEncoding 32 95 getinterval aload pop 3 bullets 
/quotesinglbase/florin/quotedblbase/ellipsis/dagger/daggerdbl/circumflex 
/perthousand/Scaron/guilsinglleft/OE 4 bullets/quoteleft/quoteright 
/quotedblleft/quotedblright/bullet/endash/emdash/tilde/trademark/scaron 
/guilsinglright/oe 2 bullets /Ydieresis/space/exclamdown/cent/sterling 
/currency/yen/brokenbar/section/dieresis/copyright/ordfeminine 
/guillemotleft/logicalnot/hyphen/registered/macron/degree/plusminus 
/twosuperior/threesuperior/acute/mu/paragraph/periodcentered/cedilla 
/onesuperior/ordmasculine/guillemotright/onequarter/onehalf/threequarters 
/questiondown/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla 
/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis 
/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis/multiply/Oslash 
/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn/germandbls/agrave/aacute 
/acircumflex/atilde/adieresis/aring/ae/ccedilla/egrave/eacute/ecircumflex 
/edieresis/igrave/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute 
/ocircumflex/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex 
/udieresis/yacute/thorn/ydieresis]def WE dup 39/quotesingle put 96/grave put 
/selectfont where {pop} {/selectfont {exch findfont exch dup type /arraytype eq 
{makefont} {scalefont} ifelse setfont}bd} ifelse /_mxe matrix def /_mxf matrix 
def /we {/_fn xd FontDirectory _fn known {pop} {findfont dup maxlength dict 
/_fd xd {exch dup /FID ne {exch _fd 3 1 roll put} {pop pop} ifelse} forall _fd 
dup /FontName _fn put /Encoding WE put _fn _fd definefont pop} ifelse _fn} bd 
/fnt {/_ys xd /_xs xd /_asc xd /_itl exch dup 0 ne {10.0 div sin} if def [1 0 
_itl 1 0 0] [_xs 0 0 _ys neg 0 _asc] _mxf concatmatrix selectfont currentfont 
dup dup /FontInfo known {/FontInfo get} if /UnderlinePosition known not {pop 
/Courier findfont} if /FontInfo get /UnderlinePosition get 1000 div 0 exch _mxf 
tf /_ulpos xd pop 0 .3 _mxf tf /_sopos xd pop currentfont dup dup /FontInfo 
known {/FontInfo get} if /UnderlineThickness known not {pop /Courier findfont} 
if /FontInfo get /UnderlineThickness get 1000 div _ys mul /_ulsiz xd } bd /to 
{m show n} bd /tp {m false charpath} bd /ul {1 eq {/_pos _ulpos def} {/_pos 
_sopos def} ifelse 1 eq {gs [] 0 sd 0 lc _ulsiz lw _pos add m 0 r s gr} {_pos 
add _ulsiz 2 div add m 0 _ulsiz neg r 0 r 0 _ulsiz r p} ifelse} bd /mgxfebuf 2 
string def /mgxfeglyph (G  ) def /mgxfe { 1 exch { dup 16 mgxfebuf cvrs 
mgxfeglyph exch 1 exch putinterval 1 index exch mgxfeglyph cvn put } for } bd 
/MGXError {initgraphics findfont exch scalefont setfont counttomark 3 div cvi 
{moveto show} repeat showpage quit} bd /NeedL2 
[
(This document requires a PostScript LanguageLevel 2 printer.) 100 500 

(Either print this document to a LanguageLevel 2 compatible printer) 100 485 

(or specify LanguageLevel 1 output in the Print Document dialog.) 100 470 

12 /Times-Roman] def/NeedL3 
[
(This document requires a PostScript LanguageLevel 3 printer.) 100 500 

(Either print this document to a LanguageLevel 3 compatible printer) 100 485 

(or specify LanguageLevel 2 output in the Print Document dialog.) 100 470 

12 /Times-Roman] def 
/VerifyL2 {isL2? not {mark /NeedL2 load aload pop 
MGXError} if} bd /VerifyL3 {isL3? not {mark /NeedL3 load aload pop MGXError} 
if} bd 
end 
%%EndResource
%%EndProlog
%%BeginSetup
RangerImage begin RangerDict begin userdict begin 0 319 tr 0.036 -0.036 sc sctm 
%%EndSetup
%%Page: 1 1 
%%PageResources: font Times_New_RomanITALIC
%%+ font Times_New_Roman
%%+ font Times_New_RomanBOLDITALIC
%%BeginPageSetup
%%EndPageSetup
5837 7997 m -1713 -4511 r -3049 3739 r 4762 772 r p false op gs 0.000 0.000 
0.000 0.000 ck eofill gr 529 lw 0 lj 0 lc 0.000 0.000 0.000 1.000 ck [0.078740 
0.000000 0.000000 0.078740 0.000 0.000 ] cc s rctm 5079 6002 m -969 368 r 0.000 
0.000 0.000 1.000 ck [0.078740 0.000000 0.000000 0.078740 0.000 0.000 ] cc s 
rctm 4296 6388 m -185 -18 r 126 -137 r p gs 0.000 0.000 0.000 1.000 ck eofill 
gr 0.000 0.000 0.000 1.000 ck [0.078740 0.000000 0.000000 0.078740 0.000 0.000 
] cc s 
%%BeginResource: font Times_New_RomanBOLDITALIC
11 dict begin
/FontInfo 8 dict dup begin
/FullName (Times_New_RomanBOLDITALIC) def
/FamilyName (Times_New_RomanBOLDITALIC) def
/Weight (Bold) def
/ItalicAngle 0 def
/isFixedPitch false def
/UnderlinePosition -109 def
/UnderlineThickness 95 def
end def
/FontName /Times_New_RomanBOLDITALIC def
/PaintType 0 def
/FontType 1 def
/FontMatrix [1 2048 div 0 0 1 2048 div 0 0] def
/Encoding 256 array
0 1 255 { 1 index exch /.notdef put } for
30 255 mgxfe
def
/FontBBox { 0 0 0 0 } def
currentdict end
currentfile eexec
9E67EDC6F3DDB54D987DFB0AD4392351758038A4DDCD7496126CAEBF3C4B776A934FB683024E82FD
3C5BE9EBFD038A003D6E3D0EBBAA9D611329A441BE1119A586343E349274B4C7EAD08BE1F77569C2
88FBD75DD53B1546E1A10CE0780EFD669F6BEF2ABA57BBADC07F0760BCC6C81EC756920B853BD105
1629286AA2F8327E04475B278D16E322B131ED9FA829B1076765D87AC7182B65E2B1724AAD35525C
8CA07D98797265BEB8BA86D74599B1F32853F83EE325EA6DC2D4974E0720ED5444CBF9BA83F6F92A
34391E8696448C206ED3B500EFDA5BB2E4FA8E57E382C10003FF3889411BF75C04F3318AC8AAD147
8218616E6E5CB4C90324A635AE7A073AE991FE2AEF9A8E5F2C4098B93B09FEF4B9EF94D91E986F66
22937AF335424C01EC7F38EF5F734B9125C932AFB19A606344A00478764C8F15571A64B9AAECD52A
0557C087F1F837A93751FB1D0AFA3D51159447F370EE76C1715692F2B9DB531F452E710715EAC80E
5F0765D627C6AD44DD4E62526E33B0F03E5D7FAE0E38A993E917A406842C86F200C04AB0D3EFDFCF
3682F61E9E0DA1C28AD48D92CD035947BC19B2BC9B019165AAD1063D342BD5DDABDC6D4379A13E84
9664E7E9E27CBA0DB0394222504D7DF1684B19D10CD60AFDF16C30AE45AEA5989144D754E57170AB
212F54BD9D3051BD62BBEE9F1940D1F017E943BE3ED3B469EA258E48C3CC96DBA1160B9958D0DDF9
9CB7DDEF180B67969A789EEFA0586F0A3CBF0BF4AD31BF079702C91203EF2D6A578C3ABD068498C0
E1C63654D69A2283BE297D3D3B30B91865EDEA3FB1CCF634C898B3AD9FD035ECB9A327E1EA7BDFDE
0CEAAC4999C0CADEF82148E61A44D1C4937E726B865D7D4AF2B8E81B7CE5E0F868160BB213A43F94
29ECFA0478E34BA4D52EC6BB24999AC5610AA0AA0481AC55DEA80C4FC86EA236EB9F17E43D600EB7
8C69343D22BCD73A265D28EF9BF46EAFF44EE8F0A4D0211546093B6B1BE11B7EF3FD70058DD71BCB
D932AD1F2B39A29AE437A39CA1EB4D9D3F37B243C44BE11F3A99D80745ABA144475CBDEAE52DAEEA
7BBBD23F079EFE7E4376E888C37447B17A1BADCA3934BA770E4787EA355F785F8F7B641EC21304F3
B2D069C66B46F1497E0517557E2A12E42235891969BA009720D8831FB6BF274494C44788DD1ECC51
A0DC64E8E4141CCE4B95275B657CE7469CAF1FCE877115AF1A19D7D2246A087A819499251FE905FF
DB8D63A6392CD73165AAECB070748A984CE8A7979715EA8B114E47FC888D532C63731C620B758889
51C6AE037783ED273CC6D5797E01C445E41E9AD38CF328C5F00F8B8A39847F0373032F75825CED13
3E081973A664E291C38AED495C2B642318E90FFDCA4D7021886C456C456B47558BC876FD7A78B42B
98156AF40087D86D4F964A5831D5F4336A9D108C6FBE410B4393E6AEA4FD36765A3F11228506A9A3
64DEE6B64247EE8A282C4C7361C2207F7422B98BFE1F3690FA16C73E0BD6E3F14E71816DC1B5BB91
030AF85BC16E6F656EC994B699B2533709884D923B1987E615F7554AE757B8029CF8516B6D095EED
540E3DDFA721138A0C6E5E496DD968C4713A4505907169A55A166E39B8C5A9A3BDA4EC5FE7694ED6
20B377FB9AE7E0FA3E875C127F6556C0B41B8EF42C149AFE3AE61D2E0E7B6F326A620EF45A8222E8
2E4DAA5227C563FE1A4CAADED6E3B50BF81D2B92058C01077315F41338CAF210740B681B2065DC60
D70EA84FBD21B77FF30C6CB2D8F244BB6D6E54DF58AF4166FC1FA88671AD1FD59D0008AE424CDF8C
4DAD19769C77C517682692C514BD376CD56952F57B9D1EA0D8518E2F55D51D7685F33B11487AAE11
C42C11A716E3F57F256204CE1238FED7BDF9E4D2CA60287C3DADEBBBA02AB8610B84DF32D223A563
8FB44979B2320E7412DC161B3F1570628EE528116DD254927D476C464D305C21DDFCA636F1D49B69
0273F126038FDFD45B7F079F3C9CBDF2F805C01B15679F7809C364EC1E37CEDD7EC270D3C4E7FD18
6E5425C8C0468FBE0223254FCFCFC08371B1E78BE30D6C3BE2003BE63FD099E36B4664D6CD3477D6
C8ADF39F786FE006C508831B7B8ED56D286FCA6C981CBC76E32C68086C505E084132D3E9624EF687
5A5C035ED38AC815190CFF806902DA4E2F4BD12581E4305CC4F625917804FCD34AB48674658C599C
3761E04E701E70C935802012FDCD61862D91A1495CD13504687DDF13DA48CDD2CFF533D943B09295
9A4D1081387F81A63EFFB9F046AF150B7D1AC05146D062A3C59B7A5394FD84C5685FF8EB425C358D
464D2C0F157788BFD836E0E1DE4934885EF5476E9405D25DA75B5CECE95A0ADC37965497BDC0D9AF