fismatpc.ps

a collection of M-files to study concepts in the following areas of Fuzzy-Set-Theory: Fuzzy or Multi

%!PS-Adobe-2.0
%%Creator: dvips 5.47 Copyright 1986-91 Radical Eye Software
%%Title: fismat-t.dvi
%%Pages: 8 1
%%BoundingBox: 0 0 596 843
%%EndComments
%%BeginProcSet: texc.pro
/TeXDict 200 dict def TeXDict begin /N /def load def /B{bind def}N /S /exch
load def /X{S N}B /TR /translate load N /isls false N /vsize 10 N /@rigin{
isls{[0 1 -1 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
Resolution VResolution vsize neg mul TR matrix currentmatrix dup dup 4 get
round 4 exch put dup dup 5 get round 5 exch put setmatrix}N /@letter{/vsize 10
N}B /@landscape{/isls true N /vsize -1 N}B /@a4{/vsize 10.6929133858 N}B /@a3{
/vsize 15.5531 N}B /@ledger{/vsize 16 N}B /@legal{/vsize 13 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 add]/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}bind{adv 1 chg nd}bind{1 add chg}bind{1 add chg nd}bind{adv lsh}bind{
adv lsh nd}bind{adv rsh}bind{adv rsh nd}bind{1 add adv}bind{/rc X nd}bind{1
add set}bind{1 add clr}bind{adv 2 chg}bind{adv 2 chg nd}bind{pop nd}bind]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}N /eop{clear SI restore showpage userdict /eop-hook
known{eop-hook}if}N /@start{userdict /start-hook known{start-hook}if
/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}N /p /show load 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
statusdict begin /product where{pop product dup length 7 ge{0 7 getinterval
(Display)eq}{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 /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{clear SS restore}B end
%%EndProcSet
TeXDict begin 1000 300 300 @start /Fa 51 123 df<EB03E0EB1C181338EB703C13E01438
3801C000A5485A387FFFF038038070A4380700E0A6380E01C0A6381C0380001E13C038FF0FF816
207E9F19>12 D<1238127CA2127E123A1204A31208A21210122012401280070E789F0D>39
D<13031304130813101320136013C0EA018013005A1206A25AA2121C1218A212381230A21270A2
1260A412E0A61260A57EA2121012181208120C12047E7E102E7CA112>I<138013C01360132013
301318A2130CA3130E1306AB130EA3130CA2131C1318A213381330A21360A213C0A2EA01801300
5A12065A5A5A5A12800F2E7FA112>I<121C123E127EA2123A1202A21204A21208A21210122012
C0070E7D840D>44 D<EAFFC0A20A027D8A0F>I<1230127812F81278127005057C840D>I<137EEA
01C338030180000713C0EA0E0014E05AA2EA3C0112381278A538F003C0A51480130712E01400A2
130E1260EA701CEA3038EA3870EA0FC0131F7C9D17>48 D<EB3F80EBC1E0380100F0000213785A
A2000F137C1380A2EB00781206C712F814F0EB01E014C0EB0380EB0700130E5B5B13605B485A38
0300201206000813405A383FFFC0481380B5FC161E7E9D17>50 D<137F380183C0380201E03804
00F012075A1301A2000013E0A2EB03C01480EB0700130E13F8130E7F148014C013031307123012
7812F8A200F0138038800F00EA400E6C5AEA1878EA07E0141F7D9D17>I<137EEA01C338030180
000613C0120EEA1C00003C13E0A213011278A41303A2003813C01307EA1C0BEA0C133803E380EA
0007A21400130E1260EAF01C1318485AEA8060EA41C0003FC7FC131F7C9D17>57
D<141014181438A21478A214FCEB01BC143C130313021306EB043EEB081EA21310A21320801340
A290B5FCEB800FD80100138014071202A25AA2000C14C0123E39FF807FFC1E207E9F22>65
D<903801F80890380E0618903838013890387000F8484813784848137048481330A248C7FC5A12
1E003E1420003C1400127CA45AA5007814401580A27EEC0100001C13027E0006130C6C13103801
C0E0D8003FC7FC1D217B9F21>67 D<0007B5FC39007C01E090383C00F0157849133CA2151EA315
1F5BA64848131E153EA3153C157C4848137815F0A2EC01E0EC03C0EC07803907800F00143CB512
E0201F7E9E23>I<0007B512F839007C0078013C133815185B1508A414089038F01000A31430EB
FFF0EBF0703801E020A4EC00081510485AA21520A2156015C0380780011407B612801D1F7E9E1F
>I<0007B512F839007C0078013C133815185B1508A59038F01000A314301470EBFFF03801E060
1420A491C7FC485AA6485A7FEAFFFE1D1F7E9E1E>I<3807FFE038007C00133CA25BA65BA6485A
A6485AA6485A7FEAFFFC131F7F9E10>73 D<EBFFFCEB07C01303A2EB0780A6EB0F00A6131EA65B
1230127812F81338EAF078EA8070EA40E0EA21C0001FC7FC16207D9E17>I<3807FFF0D8007EC7
FC133CA25BA65BA6485AA41580EC0100EA03C0A25C14021406A23807801E147CB512FC191F7E9E
1C>76 D<D807FCECFFC0D8007CECF800013CEB0178A2014EEB02F0A21504A21508A20187EB11E0
A21521A21541EB8380D80103495AA2EC81031482EB01C214C400024A5A14C8A214D0EB00F00006
13E04BC7FC000F01C07F3AFFE0C1FFF82A1F7E9E2A>I<3A07FC01FFC03A003E003E001518A201
4F1310A2EB4780A2EB43C0A201835BEB81E0A2EB80F0A21478D801005B147C143CA2141EA20002
6D5AA31407A20006130392C7FC000F7FEAFFE0221F7E9E22>I<EB03F8EB1E0EEB38079038E003
803901C001C0000314E03807800048C712F0A2121E15F8123E123C127CA448EB01F0A4EC03E012
7815C01407007C1480003CEB0F00141E6C131C000E5B6C13F03803C3C0D800FEC7FC1D217B9F23
>I<0007B5FC39007C03C090383C01E0EC00F05B15F8A415F0EBF00115E0EC03C0EC0780EC0F00
EBFFF8D801E0C7FCA6485AA6485A7FEAFFFC1D1F7E9E1F>I<EB3F04EB60CC3801803C0003131C
130048131800061308120EA31400120F7F13E0EA07FE3803FF806C13C038007FE0130713011300
14F0A2004013E0A4006013C0EB0180EAE00300F81300EAC60CEA81F816217D9F19>83
D<003FB512F0383C078000301430126039400F0010A212C01280A3D8001E1300A65BA65BA65B48
7E387FFFE01C1F7A9E21>I<3A03FFC0FFC03A007F007E00013E1338011E133015206D5B5D0281
C7FCEB078214C6EB03C414E8EB01F0A2130080A2EB017CEB023C1304EB0C1E1308EB101F497E01
407FEBC00701807F38010003000780381F800739FFE01FFE221F7F9E22>88
D<0003B512C09038E0078013803907000F000006131E00045B120C00085B5C130100005B495A49
5AA249C7FC131E5BA25B495AEA01E01402EA03C0EA0780000F1306EB0004001E130C48131C007C
133C007813F8B5FC1A1F7D9E1C>90 D<EA07F8EA0C0CEA1E061307121C1200A313FFEA07C7EA1E
07EA3C0E127800F01310A3131EEB2E2038784F40381F878014147D9317>97
D<1207123F120F7EA2120EA65A137CEA1D87381E0380381C01C0A2123814E0A5387003C0A21480
13071400130EEAE81CEAC438EA83E013207B9F19>I<EA01FCEA0706EA0E0F121CEA380EEA7800
127012F0A45AA4EAF002EA7004EA3008EA1830EA0FC010147C9314>I<1470EB03F013001470A2
14E0A6EB01C013F9EA0305EA0E03121CEA380138780380127012F0A438E00700A5EA700FEA301E
EA186F380F8FE014207C9F19>I<13F8EA070EEA0E07121C383803801278127012F0A2B5FC00F0
C7FC5AA46C5AEA7002EA3004EA1C18EA07E011147D9314>I<EB0780EB18C0EB31E01361EBE1C0
EBC0001201A5485AEA7FF8EA0380A448C7FCA6120EA65A121EEAFFE013207E9F0E>I<140EEB3E
11EBE1A33801C1C2380381E0EA07801301120FA3380703C01480EB8700EA04FC48C7FCA2121812
1CEA0FFF14C06C13E0381800F04813305A5AA3006013606C13C0381C0700EA07FC181F809417>
I<13E0120712011200A2485AA6485AEB8F80EB90E013A0EBC0601380000713E01300A5380E01C0
A6381C0380001E13C038FFCFF815207E9F19>I<EA01C0EA03E0A3EA01C0C7FCA6EA0380121F12
071203A2EA0700A6120EA65A121EEAFF800B1F7F9E0C>I<13E0120712011200A2485AA6485AEB
83FCEB80F014C0EB81801400EA07045B13181338137C131C120E7FA2130F7F1480EA1C03381E07
C038FF8FF016207E9F18>107 D<13E0120712011200A2EA01C0A6EA0380A6EA0700A6120EA65A
121EEAFFC00B207F9F0C>I<390387C07C391F9861863907A072073903C03403EB80380007EB78
07EB0070A5000EEBE00EA64848485A001EEBE01E3AFFCFFCFFC022147E9326>I<38038F80381F
90E0EA07A03803C0601380000713E01300A5380E01C0A6381C0380001E13C038FFCFF815147E93
19>I<13FCEA0387380E0180381C00C04813E0A24813F012F0A438E001E0A214C0130300F01380
38700700EA380E6C5AEA07E014147D9317>I<EBE3E03807EC383800F01CEBE01E140EEA01C014
0FA53803801EA2141C143C14381470380740E0EB21C0EB1F0090C7FCA3120EA4121EEAFFC0181D
809319>I<EA038E381FB380EA07C71203EB8300EA078090C7FCA5120EA65A121EEAFFE011147E
9312>114 D<EA01F2EA060EEA080612181302EA38041300121EEA1FE0EA0FF0EA03F8EA003CEA
401C130CA212601318EAE010EAD060EA8FC00F147E9312>I<1380EA0100A35A5A5A121EEAFFF8
EA0E00A45AA65A1320A41340A2EA1880EA0F000D1C7C9B12>I<381C0380EAFC1FEA3C07EA1C03
A238380700A6EA700EA4131EA25BEA305E381F9FC012147B9319>I<38FF83F8381E00E0001C13
C014807EEB01001302A2EA0F0412075BA25BEA039013A013E05B5B120190C7FC15147C9318>I<
39FF9FE1FC393E078070391C030060154014801580EA0E079038058100130914C21311380731C4
1321EB60C81340EB80F0A26C485A1460000213401E147C9321>I<381FF0FF3803C07800011360
14403800E08013E1EB73001376133CA2131C132E134E1387EA0107380203801206380C01C0383E
03E038FF07FC18147F9318>I<390FF83F803901E00E00EBC00C14083800E01814105CA26D5A13
705CA20171C7FC1339133A133E133C133813181310A25BA25BEA70C0EAF08000F1C8FC12E2127C
191D809318>I<3807FFE01301000413C0380C038038080700130E485AC65A5BA25B485A380380
80EA0700120E381C0100A2485AEA700EEAFFFE13147F9314>I E /Fb 8
106 df<EAFFFCA3EAE000B3B3B3B10E4A73801C>50 D<EAFFFCA3EA001CB3B3B3B10E4A80801C>
I<12E0B3B3B3B1EAFFFCA30E4A73811C>I<131CB3B3B3B1EAFFFCA30E4A80811C>I<12E0B3A903
1B73801C>I<12E0B3A9031B75801C>I<12FFA212C0B3B3B3B012FFA2084A768114>104
D<12FFA21203B3B3B3B012FFA2084A7F8114>I E /Fc 11 121 df<13E01201120F12FF12F312
03B3A4B51280A2111D7C9C1A>49 D<EA07F0EA1FFEEA383F387C1F8038FE0FC0A214E01307127C
1238EA000F14C0A2EB1F801400133E13785B5B485A38038060EA0700120E4813E0381FFFC05A5A
B5FCA2131D7D9C1A>I<EA01FCEA07FF380E0F80001E13C0383F07E0A4381E0FC012001480EB1F
00EA01FCA238000F80EB07C0EB03E014F014F81238127C12FEA214F012FC387807E0383C0FC038
1FFF803803FC00151D7E9C1A>I<1238127C12FEA3127C12381200A61238127C12FEA3127C1238
07147C930F>58 D<B612E0A23807E00714011400156015701530A21460A2150014E013E113FFA2
13E113E01460150CA214001518A31538157815F8EC03F0B6FCA21E1F7E9E22>69
D<EA07FCEA1FFF383F0F80EB07C0EB03E0A2120C1200137FEA07FBEA1F03123C127C12F8A3EAFC
05EA7E0D383FF8FE380FE07E17147F9319>97 D<EA01FE3807FF80380F83C0381E01E0383E00F0
5A14F812FCB5FCA200FCC7FCA3127CA26C1318121E380F80703807FFE0C6138015147F9318>
101 D<B4FCA2121FB3AAEAFFE0A20B207E9F0E>108 D<3AFE0FE03F8090391FF07FC03A1E70F9
C3E09039407D01F0EB807E121FEB007CAC3AFFE3FF8FFEA227147D932E>I<38FF1FC0EB7FF038
1FE1F8EB80FCEB007EA2143E143FA6143E147E147CEB80FCEBC1F8EB7FE0EB1F8090C7FCA7EAFF
E0A2181D7E931D>112 D<38FFE1FFA2380F80706C6C5A6D5A3803E180EA01F36CB4C7FC137E13
3E133F497E136FEBC7C0380183E0380381F0380701F8380E00FC39FF81FF80A219147F931C>
120 D E /Fd 8 117 df<137EEA01C138030080EA0E07121E001C1300EA3C0248C7FCA35AA5EA
70011302EA3004EA1838EA07C011147C9315>99 D<1478EB03F8EB0070A414E0A4EB01C0A213F1
EA038938070780EA0E03121C123C383807001278A3EAF00EA31420EB1C40A2EA703C135C38308C
80380F070015207C9F17>I<137CEA01C2EA0701120E121C123CEA3802EA780CEA7BF0EA7C0012
F0A4127013011302EA3804EA1838EA07C010147C9315>I<13C0EA01E0A213C0C7FCA7120E1233
1223EA4380130012471287120EA35AA3EA3840138012301270EA31001233121C0B1F7C9E0E>
105 D<381C0F80382630C0384740601380EB0070A2008E13E0120EA3381C01C0A3EB0384003813
8814081307EB031000701330383001C016147C931A>110 D<137CEA01C338030180000E13C012
1E001C13E0123C1278A338F003C0A3EB07801400EA700F130EEA3018EA1870EA07C013147C9317
>I<EA1C1EEA26613847838013871307EB0300008EC7FC120EA35AA45AA45A123011147C9313>
114 D<EA018013C0EA0380A4EA0700A2EAFFF0EA0700120EA45AA45AA31320EA7040A21380A2EA
3100121E0C1C7C9B0F>116 D E /Fe 2 107 df<1204120C1200A5127012581298A21230A21260
1264A21268123006127E910B>105 D<1320A21300A5EA0380EA04C01208A21200EA0180A4EA03
00A4124612CC12780B1780910D>I E /Ff 2 49 df<B512F0A214027D881B>0
D<1206120FA2120E121EA2121C123C1238A212301270A2126012E012C0124008117F910A>48
D E /Fg 27 123 df<1380EA010012025A120C120812185AA35AA412E0AA1260A47EA37E120812
0C12047E7EEA008009267D9B0F>40 D<7E12407E7E12181208120C7EA37EA41380AA1300A41206
A35A1208121812105A5A5A09267E9B0F>I<126012F0A212701210A31220A212401280040B7D83
0B>44 D<126012F0A2126004047D830B>46 D<EB3F023801C0C63803002E000E131E48130E1406
5A007813021270A200F01300A600701302A21278003813047E14087E000313303801C0C038003F