FUNCTION valid_units

(* SCHEMA plant_spatial_configuration; *)

   FUNCTION valid_units
      (m : measure_with_unit ) : BOOLEAN;
      IF 'PLANT_SPATIAL_CONFIGURATION.LENGTH_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(1.00000, 0.00000, 0.00000, 0.00000, 0.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.MASS_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(0.00000, 1.00000, 0.00000, 0.00000, 0.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.TIME_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(0.00000, 0.00000, 1.00000, 0.00000, 0.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.ELECTRIC_CURRENT_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(0.00000, 0.00000, 0.00000, 1.00000, 0.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 
'PLANT_SPATIAL_CONFIGURATION.THERMODYNAMIC_TEMPERATURE_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(0.00000, 0.00000, 0.00000, 0.00000, 1.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.CELSIUS_TEMPERATURE_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(0.00000, 0.00000, 0.00000, 0.00000, 1.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.AMOUNT_OF_SUBSTANCE_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 
1.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.LUMINOUS_INTENSITY_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 
0.00000, 1.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.PLANE_ANGLE_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.SOLID_ANGLE_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.AREA_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(2.00000, 0.00000, 0.00000, 0.00000, 0.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.VOLUME_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(3.00000, 0.00000, 0.00000, 0.00000, 0.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.RATIO_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.POSITIVE_LENGTH_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(1.00000, 0.00000, 0.00000, 0.00000, 0.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'PLANT_SPATIAL_CONFIGURATION.POSITIVE_PLANE_ANGLE_MEASURE' IN 
TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> 
dimensional_exponents(0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 
0.00000, 0.00000) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      RETURN (TRUE);
   END_FUNCTION;

Referenced By

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:18:24-04:00