FUNCTION valid_units

(* SCHEMA step_merged_ap_schema; *)
-- DIFF IN AP214
-- DIFF IN AP203e2
-- DIFF IN AP238 STEP-NC
-- DIFF IN AP224
-- DIFF IN AP232
FUNCTION valid_units
      (m : measure_with_unit ) : BOOLEAN;
      IF 'STEP_MERGED_AP_SCHEMA.LENGTH_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(1, 0, 0, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.MASS_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 1, 0, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.TIME_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, 1, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.ELECTRIC_CURRENT_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, 0, 1, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.THERMODYNAMIC_TEMPERATURE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, 0, 0, 1, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.CELSIUS_TEMPERATURE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, 0, 0, 1, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.AMOUNT_OF_SUBSTANCE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, 0, 0, 0, 1, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.LUMINOUS_INTENSITY_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, 0, 0, 0, 0, 1) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.PLANE_ANGLE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, 0, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.SOLID_ANGLE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, 0, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.AREA_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(2, 0, 0, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.VOLUME_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(3, 0, 0, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.RATIO_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, 0, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.POSITIVE_LENGTH_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(1, 0, 0, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.POSITIVE_PLANE_ANGLE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, 0, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.ACCELERATION_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(1, 0, -2, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.CAPACITANCE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(-2, -1, 4, 2, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.ELECTRIC_CHARGE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, 1, 1, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.CONDUCTANCE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(-2, -1, 3, 2, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.ELECTRIC_POTENTIAL_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(2, 1, -3, -1, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.ENERGY_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(2, 1, -2, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.FORCE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(1, 1, -2, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.FREQUENCY_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, -1, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.ILLUMINANCE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(-2, 0, 0, 0, 0, 0, 1) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.INDUCTANCE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(2, 1, -2, -2, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.LUMINOUS_FLUX_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, 0, 0, 0, 0, 1) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.MAGNETIC_FLUX_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(2, 1, -2, -1, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.MAGNETIC_FLUX_DENSITY_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 1, -2, -1, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.POWER_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(2, 1, -3, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.PRESSURE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(-1, 1, -2, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.RESISTANCE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(2, 1, -3, -2, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.VELOCITY_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(1, 0, -1, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.RADIOACTIVITY_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(0, 0, -1, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.ABSORBED_DOSE_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(2, 0, -2, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      IF 'STEP_MERGED_AP_SCHEMA.DOSE_EQUIVALENT_MEASURE' IN TYPEOF(m.value_component) THEN
         IF derive_dimensional_exponents(m.unit_component) <> dimensional_exponents(2, 0, -2, 0, 0, 0, 0) THEN
            RETURN (FALSE);
         END_IF;
      END_IF;
      RETURN (TRUE);
END_FUNCTION;

Referenced By

Defintion valid_units is references by the following definitions:
DefinitionType
 measure_with_unit ENTITY


[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2017-01-19T11:17:24-05:00