Mathematica (MS-DOS 386/7) 1.2 (September 27, 1989) [With pre-loaded data] by S. Wolfram, D. Grayson, R. Maeder, H. Cejtin, S. Omohundro, D. Ballman and J. Keiper with I. Rivin, D. Withoff and T. Sherlock Copyright 1988,1989 Wolfram Research Inc. In[1]:= set1 = {{0.8, 0.1, 0.7, 0.2, 0.4}, {u1, u2, u3, u4, u5}}; In[2]:= set2 = {{0.3, u1}, {1.2, u2}, {0.0, u3}, {1.0, u4}, {0.5, u5}}; In[3]:= set3 = {{0.2, u2}, {0.3, u1}, {0.6, u3}, {0.0, u4}, {0.5, u5}}; In[4]:= set4 = {{0.3, u1}, {0.2, u2}, {0.6, u3}, {0.0, u4}, {0.5, u5}}; In[5]:= set5 = {{1.0, u1}, {0.0, u2}, {0.0, u3}, {1.0, u4}, {0.0, u5}}; In[6]:= Needs["FuzzySetFunctions`"] In[7]:= Map[FuzzyQ, {set1, set2, set3}] Out[7]= {False, False, False} In[8]:= Map[FuzzyQ, {set4, set5}] Out[8]= {True, True} In[9]:= Map[CrispQ, {set4, set5}] Out[9]= {False, True} In[10]:= Map[mu, {set4, set5}] Out[10]= {{0.3, 0.2, 0.6, 0., 0.5}, {1., 0., 0., 1., 0.}} In[11]:= Map[Elements, {set4, set5}] Out[11]= {{u1, u2, u3, u4, u5}, {u1, u2, u3, u4, u5}} In[12]:= Map[Support, {set4, set5}] Out[12]= {{u1, u2, u3, u5}, {u1, u4}} In[13]:= Map[Height, {set4, set5}] Out[13]= {0.6, 1.} In[14]:= Map[NormalQ, {set4, set5}] Out[14]= {False, True} In[15]:= Map[(LevelSet[#, 0.4])&, {set4, set5}] Out[15]= {{u3, u5}, {u1, u4}} In[16]:= FuzzyScalarProduct[set4, 1.5] Out[16]= {{0.45, u1}, {0.3, u2}, {0.9, u3}, {0., u4}, {0.75, u5}}