Sets |
Table of ContentsSets Abstract Revisions Introduction Initialization Cell routines Unary Routines Binary Routines Comparison Routines Summary Initialization Utilities Unary Binary Comparison Set Relationships Sets
Abstract
Revisions
Introduction
A ``set'' is a character, integer, or double precision cell in which the following restrictions are observed:
'AB', 'Ab', 'aB', 'ab'.
Initialization
INTEGER LBCELL PARAMETER ( LBCELL = -5 ) INTEGER BODIES ( LBCELL:100 ) DATA ( BODIES(I), I = 1, 8 ) / 3, 301, . 3, 399, . 5, 501, . 6, 601 / CALL VALIDI ( 100, 8, BODIES )the integer set BODIES is validated. The size of BODIES is set to 100. The eight elements of the array (stored in elements 1 through 8) are ordered internally; duplicate elements (in this case, the number 3, which appears twice) are removed; and the cardinality of the set becomes the number of distinct elements, seven. The set is now ready for use with the remaining set routines. The original contents of elements LBCELL through 0 are destroyed during validation. Validation of an array is useful primarily for creating sets from arrays initialized in DATA statements or filled via input operations. Because the array is ordered during validation, the array may contain duplicate elements, and may be unsorted (or, more precisely, sorted according to some other, possibly more meaningful, criteria). Cell routines
An example of using the SPICELIB cardinality functions to define a loop bound:
WRITE (6,*) 'Winners of the Nobel Prize for Physics:' DO I = 1, CARDC ( NOBEL ) WRITE (6,*) NOBEL(I) END DOThe integer function SIZEx returns the size (maximum cardinality) of a set. This is useful primarily for predicting situations in which overflow can occur. Unary Routines
'PLUTO'is removed from the character set PLANETS and inserted into the character set ASTEROIDS.
CALL REMOVC ( 'PLUTO', PLANETS ) CALL INSRTC ( 'PLUTO', ASTEROIDS )If
'PLUTO'is not an element of the set PLANETS, then the contents of PLANETS are not changed. Similarly, if
'PLUTO'is already an element of ASTEROIDS, the contents of ASTEROIDS remain unchanged. If a set is not large enough to accommodate the insertion of an element, the SPICELIB error handling mechanism reports the excess. Binary Routines
The UNION of two sets contains every element which is in the first set, or in the second set, or in both sets.
{a,b} U {c,d} = {a,b,c,d} {a,b,c} U {b,c,d} = {a,b,c,d} {a,b,c,d} U {} = {a,b,c,d} {} U {a,b,c,d} = {a,b,c,d} {} U {} = {}The INTERSECTION of two sets contains every element which is in both the first set AND in the second set.
{a,b} * {c,d} = {} {a,b,c} * {b,c,d} = {b,c} {a,b,c,d} * {} = {} {} * {a,b,c,d} = {} {} * {} = {}The DIFFERENCE of two sets contains every element which is in the first set, but NOT in the second.
{a,b} - {c,d} = {a,b} {a,b,c} - {b,c,d} = {a} {a,b,c,d} - {} = {a,b,c,d} {} - {a,b,c,d} = {} {} - {} = {}The SYMMETRIC DIFFERENCE of two sets contains every element which is in the first set OR in the second set, but NOT in both sets.
{a,b} ^ {c,d} = {a,b,c,d} {a,b,c} ^ {b,c,d} = {a,d} {a,b,c,d} ^ {} = {a,b,c,d} {} ^ {a,b,c,d} = {a,b,c,d} {} ^ {} = {}Each of the routines takes two input sets and returns an output set. The following calls
CALL UNIONC ( PLANETS, ASTEROIDS, RESULT ) CALL INTERC ( PLANETS, ASTEROIDS, RESULT ) CALL DIFFC ( PLANETS, ASTEROIDS, RESULT ) CALL SDIFFC ( PLANETS, ASTEROIDS, RESULT )respectively place the union, intersection, difference, and symmetric difference of the character sets PLANETS and ASTEROIDS into the character set RESULT. In each case, if the output set RESULT is not large enough to hold the result of the operation, as many elements as will fit are inserted into the set, and the SPICELIB error handling mechanism reports the excess. In each of the binary routines, the output set must be distinct from both of the input sets. (All four of the binary operations can be performed in place, but not efficiently. Consequently, for the sake of consistency, none of the routines work in place.) For example, the following calls are invalid.
CALL UNIONI ( CURRENT, NEW, CURRENT ) CALL INTERI ( NEW, CURRENT, CURRENT )In each of the examples above, the subroutine may or may not return an error. However, the results will almost certainly be wrong. Comparison Routines
PLANETS ASTEROIDS -------- ---------- 'Earth' 'Apollo' 'Mars' 'Ceres' 'Pluto' 'Venus'Then all of the following expressions are true.
ELEMC ( 'Earth', PLANETS ) ELEMC ( 'Pluto', PLANETS ) ELEMC ( 'Ceres', ASTEROIDS )And all of the following expressions are false.
ELEMC ( 'Saturn', PLANETS ) ELEMC ( 'Pluto', ASTEROIDS ) ELEMC ( 'CERES', ASTEROIDS )The LOGICAL functions SETC, SETD, and SETI are true whenever the specified relationship between two sets exists, and are false otherwise. In the following example, SETI is used to repeat an operation for as long as the integer set FINISHED remains a proper subset of the integer set PLANNED.
DO WHILE ( SETI ( FINISHED, '<', PLANNED ) ) . . END DOThe full list of valid operators is given below.
Operator is read -------- --------------------------------------------- '=' "is equal to (contains the same elements as)" '<>' "is not equal to" '<=' "is a subset of" '<' "is a proper subset of" '>=' "is a superset of" '>' "is a proper superset of"Let the integer sets A, B, and C contain the following elements. Let E be an empty integer set.
A B C --- --- --- 1 1 1 2 3 3 3 4Then all of the following expressions are true.
SETI ( B, '=', C ) "B is equal to C" SETI ( A, '<>', C ) "A is not equal to C" SETI ( A, '>', B ) "A is a proper superset of B" SETI ( B, '<=', C ) "B is a subset of C" SETI ( C, '<=', B ) "C is a subset of B" SETI ( A, '<=', A ) "A is a subset of A" SETI ( E, '<=', B ) "E is a subset of B" SETI ( E, '<', B ) "E is a proper subset of B" SETI ( E, '<=', E ) "E is a subset of E"And all of the following are false.
SETI ( B, '<>', C ) "B is not equal to C" SETI ( A, '=', C ) "A is equal to C" SETI ( A, '<', B ) "A is a proper subset of B" SETI ( B, '<', C ) "B is a proper subset of C" SETI ( B, '>=', A ) "B is a superset of A" SETI ( A, '>', A ) "A is a proper superset of A" SETI ( E, '>=', A ) "E is a superset of A" SETI ( E, '<', E ) "E is a proper subset of E" Summary
Initialization
Utilities
Unary
Binary
Comparison
Set Relationships
= is equal to (contains the same elements as) <> is not equal to <= is a subset of < is a proper subset of >= is a superset of > is a proper superset of |