Overview
Comment:Initial revision
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: faa9280a4664c1c13213c3af22004cf143cbad7e482f98ab18eba147b81b7617
User & Date: gawthrop@users.sourceforge.net on 1997-09-18 19:38:58
Other Links: branch diff | manifest | tags
Context
1997-09-18
19:49:37
Added test for uniquness of bonds on a component -- if non-unique
implies same component at both ends of a bond.
check-in: 4b52f8108a user: gawthrop@users.sourceforge.net tags: origin/master, trunk
19:38:58
Initial revision check-in: faa9280a46 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
17:10:18
Changed comments pertaining to the parameters to use the new column 2
of the sympar file (the system type).
Added blank line to separate parmeters from states.
(Done in the Chester Court Hotel).
check-in: d924e27c50 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Added mttroot/mtt/bin/trans/m/unique.m version [feff63e110].


























1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
function u = unique(x);
% if all the elements of x are different, returns 1 else returns 0


% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


n = length(x);
u=1;

for i=1:n
  for j = 1:i-1
    if x(i)==x(j)
      u = 0;
      break;
    end;
  end;
end;

    


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]