Bugs: 1. Does not work correctly for tell
2. Cannot handle references crossing files
3. Not all Loom keywords are handled
Created: 4/28/95
;; -*- Mode: LISP; Syntax: Common-Lisp; Package: ACC -*-
;; Main idea:
;; ==========
;; There are two concept space (domain, range)
;; domain space -- pump space;
;; range space -- attributes space;
;;
;; First, we try to describe attributes space as rich as possible
;; Second, we can use them to define concept of pump space
;;
;; Main goal is classification and ontology defination
;;
;; Conventions:
;; ============
;; [1]. All concept in attribute space end with attribute, all literals
;; begin with attr
;; [2]. All pump space terms end with pump
;; [3]. All relations end with of or with or ..
;
; Key worlds:
; .........
; is-primitive
; is
; exhaustive-partition
; partitions
; and or
;(loom:use-loom 'acc)
(in-package "LOOM")
;; Roots of two space
(defconcept pump_attribute :is-primitive Thing)
(defconcept pumps :is-primitive Thing)
;;The concept definition in attribute space
;-----------------------------------------------------------------------------
; Level 0
(defconcept structure_attribute
:is-primitive pump_attribute)
(defconcept construction_attribute
:is-primitive pump_attribute)
(defconcept driver_attribute
:is-primitive pump_attribute)
(defconcept interconnection_method_between_pump_and_driver
:is-primitive pump_attribute
:exhaustive-partition (rigid_coupling
flexible_coupling
pump_drive_shaft_systems
gearing))
(defconcept installation_attribute
:is-primitive pump_attribute)
(defconcept operating_condition_attribute
:is-primitive pump_attribute)
(defconcept performance_attribute
:is-primitive pump_attribute)
(defconcept life_attribute
:is-primitive pump_attribute)
(defconcept procurement_attribute
:is-primitive pump_attribute)
(defconcept pump_service_attribute
:is-primitive pump_attribute)
(defconcept simulation_model_attribute
:is-primitive pump_attribute)
;;;=====================================================================
; structure_attribute
;-----------------
; -> level 1
(defconcept internal_structure_attribute
:is-primitive structure_attribute
:exhaustive-partition (positive_displacement kinetic))
;;--> level 2
(defconcept positive_displacement
:is (:and internal_structure_attribute (:one-of
attr_reciprocating
attr_blow_case
attr_rotary)))
(defconcept kinetic
:is-primitive internal_structure_attribute
:exhaustive-partition (centrifugal peripheral special))
(defconcept centrifugal
:is-primitive kinetic)
(defconcept peripheral
:is-primitive kinetic)
(defconcept special
:is-primitive (:and kinetic (:one-of
attr_viscous_drag
attr_jet
attr_gas_lift
attr_hydraulic_ram
attr_electromagnetic
attr_screw_centrifugal
attr_pitot)))
(defconcept attr_rotating_casing
:is (:and kinetic (:one-of
attr_pitot)))
(defconcept dynamic
:is (:and kinetic))
;----------------
; -> level 1
(defconcept stage_structure_attribute
:is-primitive structure_attribute
:exhaustive-partition (multi_staged single_staged))
;; --> level 2
(defconcept multi_staged
:is (:and stage_structure_attribute (:one-of
attr_two_staged
attr_three_staged
attr_more_staged)))
(defconcept single_staged
:is (:and stage_structure_attribute (:one-of
attr_single_staged)))
;-----------------
; -> level 1
(defconcept casing_structure_attribute
:is-primitive structure_attribute
:exhaustive-partition (volute diffuser concentric_casing))
;;--> level 2
(defconcept volute
:is (:and casing_structure_attribute (:one-of
attr_single_volute
attr_double_volute)))
(defconcept diffuser
:is (:and casing_structure_attribute (:one-of
attr_single_diffuser
attr_double_diffuser)))
(defconcept concentric_casing
:is-primitive casing_structure_attribute)
;------------------
;-> level 1
(defconcept priming_structure_attribute
:is (:and structure_attribute (:one-of
attr_self_priming
attr_non_self_priming)))
;------------------
;-> level 1
(defconcept sunction_structure_attribute
:is (:and structure_attribute (:one-of
attr_single_sunction
attr_double_sunction
attr_triple_sunction)))
;------------------
;-> level 1
(defconcept impeller_structure_attribute
:is-primitive structure_attribute)
;;--> level 2
(defconcept impeller_structure_openess
:is (:and impeller_structure_attribute (:one-of
attr_open
attr_closed
attr_semi_open)))
(defconcept impeller_structure_flow_direction
:is (:and impeller_structure_attribute (:one-of
attr_radical_flow
attr_mixed_flow
attr_axial_flow)))
;--------------------
;-> level 1
(defconcept canned_structure_attribute
:is (:and structure_attribute (:one-of
attr_motor_canned
attr_pump_canned)))
;---------------------
;-> level 1
(defconcept acting_number_attribute
:is (:and structure_attribute (:one-of
attr_single_acting
attr_double_acting)))
;--------------------
; -> level 1
(defconcept primary_working_mode_attribute
:is (:and structure_attribute (:one-of
attr_simplex
attr_duplex
attr_triplex
attr_multiplex)))
(defconcept operating_mode
:is (:and primary_working_mode_attribute)
:exhaustive-partition (continuous intermittent))
(defconcept continuous
:is-primitive operating_mode)
(defconcept intermittent
:is-primitive operating_mode)
(defconcept constantly
:is (:and continuous))
(defconcept fluctuating
:is (:and intermittent))
;---------------------
;-> level 1
(defconcept rotor_structure_attribute
:is-primitive structure_attribute
:exhaustive-partition (single_rotor multiple_rotor))
;;--> level 2
(defconcept single_rotor
:is-primitive rotor_structure_attribute
:exhaustive-partition (piston diaphragm vane flexible_member screw))
;;;---> level 3
(defconcept piston
:is (:and single_rotor (:one-of
attr_single_piston
attr_multi_piston)))
(defconcept plunger
:is (:and piston))
;;;---> level 3
(defconcept diaphragm
:is (:and single_rotor (:one-of
attr_single_diaphragm
attr_double_diaphragm)))
;;;---> level 3
(defconcept vane
:is-primitive single_rotor)
;;;;----> level 4
(defconcept vane_by_place
:is (:and vane (:one-of
attr_in_rotor_vane
attr_in_stator_vane)))
(defconcept vane_by_form
:is (:and vane (:one-of
attr_blade_vane
attr_bucket_vane
attr_roller_vane
attr_slipper_vane)))
(defconcept vane_by_working_mode
:is (:and vane (:one-of
attr_banlanced_vane
attr_unbalanced_vane)))
;;;--->level 3
(defconcept flexible_member
:is (:and single_rotor (:one-of
attr_flexible_tube
attr_flexible_vane
attr_flexible_liner)))
;;;--->level 3
(defconcept screw
:is-primitive single_rotor)
;;;;----> level 4
(defconcept screw_by_timeness
:is (:and screw (:one-of
attr_timed_screw
attr_untimed_screw)))
(defconcept screw_by_number
:is (:and screw (:one-of
attr_single_screw
attr_double_screw
attr_triple_screw)))
(defconcept attr_multiple_screw
:is (:and screw (:one-of
attr_double_screw
attr_triple_screw)))
;
(defconcept attr_twin_screw
:is (:and screw (:one-of
attr_double_screw)))
(defconcept screw_by_place
:is (:and screw (:one-of
attr_internal_screw
attr_external_screw)))
;;--> level 2
(defconcept multiple_rotor
:is-primitive rotor_structure_attribute
:exhaustive-partition (gear lobe circumferential_piston bearing))
;;;---> level 3
(defconcept gear
:is-primitive multiple_rotor)
;;;;----> level 4
(defconcept gear_by_place
:is-primitive gear
:exhaustive-partition (external_gear internal_gear))
;;;;;-----> level 5
(defconcept external_gear
:is (:and gear_by_place (:one-of
attr_spur
attr_helical
attr_herringbone)))
(defconcept internal_gear
:is (:and gear_by_place (:one-of
attr_crescent
attr_no_crescent)))
;;;;----> level 4
(defconcept gear_by_timeness
:is (:and gear (:one-of
attr_timed_gear
attr_untimed_gear)))
;;;---> level 3
(defconcept lobe
:is (:and multiple_rotor (:one-of
attr_single_lobe
attr_multiple_lobe)))
;;;---> level 3
(defconcept circumferential_piston
:is (:and multiple_rotor (:one-of
attr_single_circumferential_piston
attr_multiple_circumferential_piston)))
;;;---> level 3
(defconcept bearing
:is (:and multiple_rotor (:one-of
attr_internal_bearing
attr_external_bearing)))
;----------------------------
;-> level 1
(defconcept displacement_mode_attribute
:is (:and structure_attribute (:one-of
attr_constant_displacement
attr_variable_displacement)))
;-------------------------------
;-> level 1
(defconcept chamber_number_attribute
:is (:and structure_attribute (:one-of
attr_single_chamber
attr_double_chamber)))
; ------------------------------------------------------------
; construction attribute
; -> level 1
(defconcept impeller_construction_attribute
:is-primitive construction_attribute
:exhaustive-partition (impeller_metallic impeller_nonmetallic))
;; --> level 2
(defconcept impeller_metallic
:is (:and impeller_construction_attribute (:one-of
attr_bronze
attr_cast_iron
attr_stainless_steel_400
attr_stainless_steel_300
attr_cast_aluminum
attr_naval_bronze
attr_exotic_metal
attr_reflex
attr_nickel_base_alloy
attr_high_silicon_iron)))
(defconcept impeller_stainless_steel
:is (:and impeller_construction_attribute (:one-of
attr_stainless_steel_400
attr_stainless_steel_300)))
(defconcept impeller_bronze
:is (:and impeller_construction_attribute (:one-of
attr_bronze
attr_naval_bronze)))
(defconcept impeller_iron
:is (:and impeller_construction_attribute (:one-of
attr_cast_iron
attr_high_silicon_iron)))
(defconcept impeller_nonmetallic
:is (:and impeller_construction_attribute (:one-of
attr_plastic
attr_graphite
attr_carbon)))
;-> level 1
(defconcept casing_construction_attribute
:is-primitive construction_attribute
:exhaustive-partition (casing_mettallic casing_nonmetallic))
;; --> level 2
(defconcept casing_metallic
:is (:and casing_construction_attribute (:one-of
attr_cast_iron
attr_ductile_iron
attr_cast_aluminum
attr_cast_bronze
attr_stainless_steel
attr_exotic_metal
attr_refrax
attr_hard_alloy)))
(defconcept casing_nonmetallic
:is (:and casing_construction_attribute (:one-of
attr_rubbers
attr_polypropylene
attr_plastic
attr_thermosets
attr_soft_rubber
attr_elastometric)))
;-> level 1
(defconcept wearing_ring_construction_attribute
:is (:and construction_attribute (:one-of
attr_bronze
attr_stainless_steel_400)))
;-> level 1
(defconcept coating_and_lining_construction_attribute
:is (:and construction_attribute (:one-of
attr_ceramics
attr_glass
attr_elastomers
attr_high_silicon_iron
attr_fluorocarbon_resins)))
;------------------------------------------------------------------
; driver_attribute
; -> level 1
(defconcept driver_position_attribute
:is-primitive driver_attribute
:exhaustive-partition (frame_mounted closed_coupled))
(defconcept frame_mounted
:is-primitive driver_position_attribute)
(defconcept closed_coupled
:is-primitive driver_position_attribute)
(defconcept with_driver
:is (:and frame_mounted))
(defconcept without_driver
:is (:and closed_coupled))
; -> level 1
(defconcept driver_type_attribute
:is-primitive driver_attribute
:exhaustive-partition (electric_driver
engine
steam_turbine
hydraulic_turbine
gas_turbine
single_unit_adjustable_speed_electric_drives
hydraulic_driver
adjustable_speed_belt_drive
magnetic_drive))
;;--> level 2
(defconcept electric_driver
:is-primitive driver_type_attribute
:exhaustive-partition (ac_driver dc_driver))
(defconcept dc_driver
:is (:and electric_driver (:one-of
attr_dc)))
(defconcept ac_driver
:is (:and electric_driver
(:one-of
attr_ac_one_phase
attr_ac_three_phase)))
;;--> level 2
(defconcept engine
:is (:and driver_type_attribute (:one-of
attr_gas_engine
attr_diesel_engine
attr_gasoline_engine)))
;;--> level 2
(defconcept steam_turbine
:is (:and driver_type_attribute (:one-of
attr_single_stage_turbine
attr_multiple_stage_turbine)))
;;--> level 2
(defconcept hydraulic_turbine
:is (:and driver_type_attribute (:one-of
attr_hydraulic_turbine)))
;;--> level 2
(defconcept gas_turbine
:is (:and driver_type_attribute (:one-of
attr_gas_turbine)))
;;--> level 2
(defconcept single_unit_adjustable_speed_electric_drives
:is (:and driver_type_attribute (:one-of
attr_ac_adjustable_voltage_drive
attr_wound_rotor_induction_driver
attr_adjustable_frequency_drive
attr_modified_kraemer_drive)))
;;--> level 2
(defconcept hydraulic_driver
:is (:and driver_type_attribute (:one-of
attr_hydrokinetic_drive
attr_hydrodynamic_drive
attr_hydroviscous_drive
attr_hydrostatic_drive)))
;;--> level 2
(defconcept adjustable_speed_belt_drive
:is (:and driver_type_attribute (:one-of
attr_adjustable_speed_belt_drive)))
;;--> level 2
(defconcept magnetic_drive
:is (:and driver_type_attribute (:one-of
attr_eddy_current_coupling
attr_megnet_to_magnet_coupling)))
;----------------
;-> level 1
(defconcept brake_horsepower_attribute
:is-primitive (:and driver_attribute Number))
;----------------
;-> level 1
(defconcept pitch_attribute
:is-primitive driver_attribute
:exhaustive-partition (fixed_pitched variable_pitched))
(defconcept fixed_pitched
:is-primitive pitch_attribute)
(defconcept variable_pitched
:is-primitive pitch_attribute)
(defconcept constant_speed
:is (:and fixed_pitched))
(defconcept fixed_stroke
:is (:and fixed_pitched))
(defconcept variable_speed
:is (:and variable_pitched))
(defconcept varible_stroke
:is (:and variable_pitched))
;----------------------------------------------------------------------
;interconnection_method_between_pump_and_driver
;-> level 1
(defconcept rigid_coupling
:is (:and interconnection_method_between_pump_and_driver
(:one-of
attr_flanged_rigid_coupling
attr_adjustable_rigid_coupling
attr_split_rigid)))
;-> level 1
(defconcept flexible_coupling
:is-primitive interconnection_method_between_pump_and_driver
:exhaustive-partition (mechanically_flexible_coupling
material_flexible_coupling))
;;--> level 2
(defconcept mechanically_flexible_coupling
:is-primitive flexible_coupling)
;;--> level 2
(defconcept material_flexible_coupling
:is (:and flexible_coupling (:one-of
attr_metal_disk_coupling
attr_flexible_diaphragm_coupling
attr_pin_and_bushing_elastomer_coupling
attr_sleeve_type_elastomer_coupling
attr_compression_loaded_bonded_elastomer_coupling
attr_compression_loaded_loosely_fitted_elastomer_coupling
attr_rubber_jaw_coupling
attr_spring_grid_coupling)))
(defconcept elastomer_flexible_coupling
:is (:and flexible_coupling (:one-of
attr_pin_and_bushing_elastomer_coupling
attr_sleeve_type_elastomer_coupling
attr_compression_loaded_bonded_elastomer_coupling
attr_compression_loaded_loosely_fitted_elastomer_coupling)))
;-> level 1
(defconcept pump_drive_shaft_systems
:is (:and interconnection_method_between_pump_and_driver
(:one-of
attr_spacers
attr_floating_shafts
attr_rigid_shafts
attr_flexible_drive_shafts)))
;-> level 1
(defconcept gearing
:is (:and interconnection_method_between_pump_and_driver
(:one-of
attr_parallel_shaft_gearing
attr_crossed_axis_gearing)))
;--------------------------------------------------------------
;installation_attribute
;-> level 1
(defconcept mounting_attribute
:is-primitive installation_attribute
:exhaustive-partition (universal_mounting
non_universal_mounting
sliding_mounting
pipe_mounting
vertical_barrel_mounting))
(defconcept universal_mounting
:is-primitive mounting_attribute)
(defconcept sliding_mounting
:is-primitive mounting_attribute)
(defconcept pipe_mounting
:is-primitive mounting_attribute)
(defconcept vertical_barrel_mounting
:is-primitive mounting_attribute)
(defconcept non_universal_mounting
:is (:and mounting_attribute (:one-of
attr_vertical_lineshaft
attr_convertible_lineshaft
attr_horizontal_lineshaft)))
;-> level 1
(defconcept geometry_attribute
:is-primitive (:and installation_attribute Number))
(defconcept weight_attribute
:is-primitive (:and installation_attribute Number))
(defconcept height_attribute
:is (:and geometry_attribute))
(defconcept width_attribute
:is (:and geometry_attribute))
(defconcept length_attribute
:is (:and geometry_attribute))
;----------------------------------------------------------------------
; operating_condition_attribute
; -> level 1
(defconcept fluid_attribute
:is-primitive operating_condition_attribute)
;;--> level 2
(defconcept water_fluid
:is (:and fluid_attribute (:one-of
attr_water
attr_deionized_water)))
;;--> level 2
(defconcept industrial_fluid
:is (:and fluid_attribute (:one-of
attr_machine_coolant
attr_cutting_oil
attr_lubricant
attr_waste_oil
attr_anti_freeze
attr_gasoline
attr_no1_oil
attr_kerosene
attr_diesel
attr_acetone
attr_solvent
attr_chlorine
attr_plating
attr_fluorine
attr_bromine
attr_trichloroethylene
atttr_deodorized_kerosene
attr_part_cleaning_solution
attr_grease
attr_rubber
attr_polymers)))
(defconcept oil_fluid
:is (:and fluid_attribute (:one-of
attr_waste_oil
attr_gasoline
attr_no1_oil
attr_kerosene
attr_diesel
attr_deodorized_kerosene
attr_lube_oil)))
(defconcept fuel_oil
:is (:and fluid_attribute (:one-of
attr_gasoline
attr_no1_oil
attr_kerosene
attr_diesel
attr_deodorized_kerosene)))
(defconcept machine_oil
:is (:and fluid_attribute (:one-of
attr_machine_coolant
attr_cutting_oil
attr_lubricant
attr_part_cleaning_solution)))
;;--> level 2
(defconcept commercial_fluid
:is (:and fluid_attribute (:one-of
attr_ink
attr_gye
attr_photographic_solutions
attr_paint
attr_adhesive
attr_sealant
attr_glue)))
;;--> level 2
(defconcept food_fluid
:is (:and fluid_attribute (:one-of
attr_fruit_juice
attr_beverage)))
(defconcept liquid_food
:is (:and food_fluid))
;;--> level 2
(defconcept agricultural_fluid
:is (:and fluid_attribute (:one-of
attr_insecticide
attr_herbicide
attr_liquid_fertilizer
attr_biocide)))
;;--> level 2
(defconcept acid
:is (:and fluid_attribute (:one-of
attr_mild_acids
attr_concentrated_acid
attr_oxidizing_acid
attr_sulfuric_acid
attr_nitric_acid
attr_hydrochloric_acid
attr_organic_acid)))
;;--> level 2
(defconcept alkalis
:is (:and fluid_attribute (:one-of
attr_mild_alkalies
attr_alkaline_solution)))
(defconcept castic
:is (:and alkalis))
(defconcept base
:is (:and alkalis))
;;--> level 2
(defconcept salt_solution
:is-primitive fluid_attribute)
(defconcept sea_water
:is-primitive salt_solution)
(defconcept brine
:is (:and salt_solution))
;;--> level 2
(defconcept organic_compound
:is (:or food_fluid agricultural_fluid oil_fluid machine_oil
(:one-of
attr_organic_acid
attr_machine_coolant
attr_acetone
attr_solvent
attr_chlorine
attr_plating
attr_fluorine
attr_bromine
attr_trichloroethylene
attr_grease
attr_rubber
attr_polymers
attr_fat
attr_hydrocarbons
attr_ozone
attr_ester
attr_aromatic
attr_soap
attr_detergent)))
;;--> level 2
(defconcept misc_fluid
:is (:and fluid_attribute (:one-of
attr_condensate
attr_mud
attr_slurry
attr_sludge
attr_trash)))
;;;========================================================
;;--> level 2
(defconcept chemical_property_attribute
:is (:and fluid_attribute))
(defconcept chemical
:is (:and chemical_property_attribute (:or
organic_compound
agricultural_fluid
commercial_fluid
industrial_fluid
acid
alkalis
salt_solution)))
(defconcept mild_chemical
:is (:and chemical_property_attribute (:or
machine_oil
commercial_fluid
food_fluid
agricultural_fluid
(:one-of
attr_mild_acids
attr_mild_alkalies
attr_organic_acids
attr_oxidizing_acid
attr_alkaline_solution))))
;;
(defconcept moderate_chemical
:is (:and mild_chemical))
(defconcept strong_chemical
:is (:and chemical_property_attribute (:or
fuel_oil
(:one-of
concentrated_acid
sulfuric_acid
nitric_acid
hydrochloric_acid))))
;;;XXXXXXXXXXXX
;;--> level 2
(defconcept corrosivity_attribute
:is-primitive fluid_attribute
:exhaustive-partition (corrosive non_corrosive))
;;---> defconcept corrosive
(defconcept corrosive
:is (:and corrosivity_attribute (:or
agricultural_fluid
food_fluid
commercial_fluid
acid
alkalis)))
(defconcept abrasive
:is (:and corrosive))
(defconcept erosive
:is (:and corrosive))
(defconcept non_corrosive
:is-primitive corrosivity_attribute)
(defconcept non_erosive
:is (:and non_corrosive))
(defconcept non_abrasive
:is (:and non_corrosive))
;;--> level 2
(defconcept flammability_attribute
:is (:and fluid_attribute)
:exhaustive-partition (flammable unflammable))
(defconcept flammable
:is (:and flammability_attribute (:or
fuel_oil)))
(defconcept unflammable
:is-primitive flammability_attribute)
(defconcept explosive
:is (:and flammable (:one-of
attr_gasoline
attr_no1_oil
attr_kerosene
attr_deodorized_kerosene)))
;;--> level 2
(defconcept viscosity_attribute
:is-primitive (:and fluid_attribute Number))
(defconcept highly_viscous
:is (:and viscosity_attribute (:through 200 10000)))
(defconcept viscous
:is (:and viscosity_attribute (:through 10 200)))
(defconcept not_viscous
:is (:and viscosity_attribute (:through 0 10)))
(defconcept lubracating
:is (:and viscosity_attribute (:through 100 10000)))
;;--> level 2
(defconcept gravity_attribute
:is-primitive (:and fluid_attribute Number))
(defconcept highly_loaded_fluid
:is (:and gravity_attribute (:through 3 100)))
;;--> level 2
(defconcept fluidity_attribute
:is-primitive fluid_attribute
:exhaustive-partition (pure_fluids
submerged_solids
condensate
flashing_liquid))
;;;---> level 3
(defconcept pure_fluids
:is-primitive fluidity_attribute)
(defconcept submerged_solids
:is-primitive fluidity_attribute)
(defconcept condensate
:is-primitive fluidity_attribute)
(defconcept flashing_liquid
:is-primitive fluidity_attribute)
(defconcept liquified_gases
:is (:and flashing_liquid))
; -> levle 1
(defconcept temperature_attribute
:is-primitive (:and fluid_attribute Number))
(defconcept maximum_temperature
:is (:and temperature_attribute))
(defconcept minimum_temperature
:is (:and temperature_attribute))
(defconcept high_temperature
:is (:and temperature_attribute (:through 300 500)))
(defconcept boiling
:is (:and temperature_attribute (:through 100 500)))
(defconcept hot
:is (:and temperature_attribute (:through 50 100)))
;-> level 1
(defconcept pipesize_attribute
:is-primitive (:and fluid_attribute Number))
;;--> level 2
(defconcept inlet_pipe_size
:is (:and pipesize_attribute))
(defconcept outlet_pipe_size
:is (:and pipesize_attribute))
;-----------------------------------------------------------------
; performance_attribute
; -> level 1
(defconcept flow_rate_capacity_attribute
:is-primitive (:and performance_attribute Number))
;;--> level 2
(defconcept sunction_capacity
:is (:and flow_rate_capacity_attribute))
;;;---> level 3
(defconcept large_flow_sunction_capacity
:is (:and sunction_capacity (:through 300 5000)))
(defconcept low_flow_sunction_capacity
:is (:and sunction_capacity (:through 0 300)))
;;--> level 2
(defconcept discharge_capacity
:is (:and flow_rate_capacity_attribute))
(defconcept large_flow_discharge_capacity
:is (:and discharge_capacity (:through 200 4000)))
(defconcept low_flow_discharge_capacity
:is (:and discharge_capacity (:through 0 200)))
(defconcept inlet_capacity
:is (:and sunction_capacity))
(defconcept outlet_capacity
:is (:and discharge_capacity))
;-> level 1
(defconcept slip
:is-primitive (:and performance_attribute Number))
(defconcept percentage_of_capacity_loss
:is (:and slip))
;-> level 1
(defconcept head_attribute
:is-primitive (:and performance_attribute Number))
;;--> level 2
(defconcept elevation_head
:is-primitive head_attribute)
(defconcept high_elevation_head
:is (:and elevation_head (:through 100 2000)))
(defconcept low_elevation_head
:is (:and elevation_head (:through 0 50)))
(defconcept potential_head
:is (:and elevation_head))
;;--> level 2
(defconcept net_positive_sunction_head
:is-primitive head_attribute)
(defconcept high_net_positive_sunction_head
:is (:and net_positive_sunction_head (:through 100 2000)))
(defconcept low_net_positive_sunction_head
:is (:and net_positive_sunction_head (:through 0 50)))
(defconcept npsh
:is (:and net_positive_sunction_head))
;;--> level 2
(defconcept total_head
:is-primitive head_attribute)
(defconcept high_total_head
:is (:and total_head (:through 100 2000)))
(defconcept low_total_head
:is (:and total_head (:through 0 50)))
(defconcept pump_head
:is (:and total_head))
(defconcept total_dynamic_head
:is (:and total_head))
;;--> level 2
(defconcept velocity_head
:is-primitive head_attribute)
(defconcept high_velocity_head
:is (:and velocity_head (:through 100 2000)))
(defconcept low_velocity_head
:is (:and velocity_head (:through 0 50)))
;;--> level 2
(defconcept pressure_head
:is-primitive head_attribute)
(defconcept high_pressure_head
:is (:and pressure_head (:through 100 2000)))
(defconcept low_pressure_head
:is (:and pressure_head (:through 0 50)))
(defconcept flow_work
:is (:and pressure_head))
;;--> level 2
(defconcept shutoff_head
:is-primitive head_attribute)
(defconcept high_shutoff_head
:is (:and shutoff_head (:through 100 2000)))
(defconcept low_shutoff_head
:is (:and shutoff_head (:through 0 50)))
;;--> level 2
(defconcept discharge_head
:is-primitive head_attribute)
(defconcept high_discharge_head
:is (:and discharge_head (:through 100 2000)))
(defconcept low_discharge_head
:is (:and discharge_head (:through 0 50)))
(defconcept outlet_head
:is (:and discharge_head))
;;--> level 2
(defconcept sunction_head
:is-primitive head_attribute)
(defconcept high_sunction_head
:is (:and sunction_head (:through 100 2000)))
(defconcept low_sunction_head
:is (:and sunction_head (:through 0 50)))
(defconcept inlet_head
:is (:and sunction_head))
;;--> level 2
(defconcept accelaration_head
:is-primitive head_attribute)
(defconcept high_accelaration_head
:is (:and accelaration_head (:through 100 2000)))
(defconcept low_accelaration_head
:is (:and accelaration_head (:through 0 50)))
;-> level 1
(defconcept specific_speed
:is (:and performance_attribute Number))
;-> level 1
(defconcept speed
:is (:and performance_attribute Number))
;-> level 1
(defconcept power
:is (:and performance_attribute Number))
(defconcept hydraulic_horsepower
:is (:and power))
(defconcept liquid_horsepower
:is (:and power))
;-> level 1
(defconcept efficiency_attribute
:is (:and performance_attribute Number))
;-> level 1
(defconcept volumetric_efficiency_attribute
:is (:and performance_attribute Number))
;-> level 1
(defconcept dynamic_loading_attribute
:is-primitive (:and performance_attribute Number))
;-> level 1
(defconcept pressure_capacity_attribute
:is-primitive (:and performance_attribute Number))
;;--> level 2
(defconcept inlet_pressure_capacity
:is-primitive pressure_capacity_attribute)
;;; ---> level 3
(defconcept high_inlet_pressure
:is (:and inlet_pressure_capacity (:through 200 2000)))
(defconcept moderate_inlet_pressure
:is (:and inlet_pressure_capacity (:through 100 300)))
(defconcept low_inlet_pressure
:is (:and inlet_pressure_capacity (:through 0 100)))
(defconcept moderate_to_high_inlet_pressure
:is (:or moderate_inlet_pressure high_inlet_pressure))
;;--> level 2
(defconcept outlet_pressure_capacity
:is-primitive pressure_capacity_attribute)
(defconcept high_outlet_pressure
:is (:and outlet_pressure_capacity (:through 200 2000)))
(defconcept moderate_outlet_pressure
:is (:and outlet_pressure_capacity (:through 100 300)))
(defconcept low_outlet_pressure
:is (:and outlet_pressure_capacity (:through 0 100)))
(defconcept moderate_to_high_outlet_pressure
:is (:or moderate_outlet_pressure high_outlet_pressure))
;-> level 1
(defconcept sunction_lift_attribute
:is-primitive (:and performance_attribute Number))
;-> level 1
(defconcept reliability_attribute
:is-primitive (:and performance_attribute Number))
(defconcept highly_reliable
:is (:and reliability_attribute (:through 200 2000)))
;-> level 1
(defconcept run_dry_attribute
:is (:and performance_attribute (:one-of
attr_run_dry_ok
attr_run_dry_no)))
;-> level 1
(defconcept submersibility_attribute
:is (:and performance_attribute (:one-of
attr_submersible
attr_un_submersible)))
;-> level 1
(defconcept dynamic_loading_attribute
:is-primitive (:and performance_attribute Number))
;---------------------------------------------------
;life_attribute
;-> level 1
(defconcept duty_cycle_attribute
:is-primitive (:and life_attribute Number))
;-> level 1
(defconcept lifetime_attribute
:is-primitive (:and life_attribute Number))
;-------------------------------------------------------------------
; procurement_attribute
; -> levle 1
(defconcept initial_cost_attribute
:is-primitive (:and procurement_attribute Number))
(defconcept initial_cost_expensive
:is (:and initial_cost_attribute (:through 2000 100000)))
(defconcept initial_cost_cheap
:is (:and initial_cost_attribute (:through 100 2000)))
(defconcept initial_cost_ok
:is (:and initial_cost_attribute (:through 100 3000)))
;-> level 1
(defconcept replacement_cost_attribute
:is-primitive (:and procurement_attribute Number))
(defconcept replacement_cost_expensive
:is (:and replacement_cost_attribute (:through 200 10000)))
(defconcept replacement_cost_cheap
:is (:and replacement_cost_attribute (:through 10 200)))
(defconcept replacement_cost_ok
:is (:and replacement_cost_attribute (:through 10 300)))
;-> level 1
(defconcept delivery_time
:is (:and procurement_attribute Number))
;-> level 1
(defconcept unique_part_number_attribute
:is (:and procurement_attribute String))
;-------------------------------------------------------------------
; pump_service_attribute
;-> level 1
(defconcept function
:is-primitive pump_service_attribute)
;;--> levle 2
(defconcept transfering
:is-primitive function
:exhaustive-partition (non_viscous_liquild_transfering
viscous_liquid_transfering))
;;---> level 3
(defconcept non_viscous_liquid_transfering
:is (:and transfering (:one-of
attr_water_transfering
attr_chemical_transfering
attr_condensate_transfering)))
(defconcept viscous_liquid_transfering
:is (:and transfering (:one-of
attr_fuel_oil_transfering
attr_lubricating_oil_service
attr_cargo
attr_fuel_oil_service)))
(defconcept attr_highly_viscous_liquid_transfering
:is-primitive viscous_liquid_transfering)
;;--> level 2
(defconcept circulating
:is (:and function (:one-of
attr_boiler_water_circulating
attr_water_circulating
attr_condensate_circulating
attr_machine_tool_coolant_circulating)))
;;--> level 2
(defconcept draining
:is (:and function (:one-of
attr_pond_draining
attr_tank_draining
attr_laundry_draning
attr_dewatering
attr_sewage_draning
attr_condensate_removing)))
(defconcept discharging
:is (:and draining))
(defconcept removing
:is (:and draining))
;;--> level 2
(defconcept feeding
:is (:and function (:one-of
attr_boiler_feeding
attr_chemical_feeding
attr_plant_feeding)))
;;--> level 2
(defconcept spraying
:is (:and function (:one-of
attr_booth_spraying
attr_lawn_aprinkling
attr_cuting_oil_spraying
attr_lubrication_spraying
attr_insecticide_spraying)))
;;
(defconcept sprinkling
:is (:and spraying))
;;--> levle 2
(defconcept dispensing
:is (:and function (:one-of
attr_beverage_dispensing)))
(defconcept supplying
:is (:or transfering circulating feeding dispensing))
;;--> level 2
(defconcept heating_and_cooling
:is (:and function (:one-of
attr_poultry_house_cooling
attr_condenser_cooling
attr_machine_tool_cooling)))
;;--> level 2
(defconcept washing
:is (:and function (:one-of
attr_buiding
attr_cars
attr_dairy_equipment)))
(defconcept attr_pressure_washing
:is (:and washing high_outlet_pressure))
;;--> level 2
(defconcept testing
:is (:and function (:one-of
attr_hydrostatic_pressure_testing
attr_pipe_testing)))
;;--> level 2
(defconcept cleaning
:is (:and function (:one-of
attr_street_cleaning
attr_swimming_pool_cleaning
attr_steam_cleaning
attr_cargo_tank_cleaning)))
;;--> level 2
(defconcept distilling
:is (:and function (:one-of
attr_plant_condensate
attr_plant_brine)))
;;--> level 2
(defconcept metering
:is (:and function (:one-of
attr_chemical_metering
attr_glue_metering
attr_ink_metering)))
;;--> level 2
(defconcept flushing
:is (:or cleaning washing spraying))
;;--> level 2
(defconcept boosting
:is (:and function (:one-of
attr_pressure_boosting)))
;;-->level 2
(defconcept filtering
:is (:and function (:one-of
attr_fuel_filtering)))
;;--> lubricating
(defconcept lubricating
:is-primitive function)
;------------------------------------------------------
;-> level 1
(defconcept domain_application
:is-primitive pump_service_attribute)
;;--> level 2
(defconcept water_supply
:is-primitive domain_application)
;;;---> level 3
(defconcept source_of_water
:is-primitive water_supply
:exhaustive-partition (surface_water groundwater))
;;;;----> level 4
(defconcept surface_water
:is (:and source_of_water (:one-of
attr_streams
attr_rivers
attr_lakes
attr_reservoirs)))
(defconcept ground_water
:is-primitive source_of_water
:exhaustive-partition (well spring))
;;;;;-----> level 5
(defconcept well
:is (:and ground_water (:one-of
attr_shallow_well
attr_deep_well
attr_artesian_well)))
(defconcept spring
:is-primitive ground_water)
;;;----> level 3
(defconcept usage_of_water
:is-primitive water_supply
:exhaustive-partition (domestic_usage
public_usage
commercial_usage
industrial_usage
agricultural_usage))
;;;;----> level 4
(defconcept domestic_usage
:is (:and usage_of_water (:one-of
attr_carpet_cleaner
attr_ice_machine)))
(defconcept household
:is (:and domestic_usage))
;;;;----> level 4
(defconcept public_usage
:is-primitive usage_of_water
:exhaustive-partition (park building pool))
;;;;;-----> level 5
(defconcept park
:is (:and public_usage (:one-of
attr_fountain)))
(defconcept building
:is-primitive public_usage)
(defconcept pool
:is-primitive public_usage)
(defconcept basin
:is (:and pool))
(defconcept spa
:is (:and pool))
;;;;----> level 4
(defconcept commercial_usage
:is (:and usage_of_water (:one-of
attr_shop
attr_store)))
;;;;----> level 4
(defconcept industrial_usage)
;;;;----> level 4
(defconcept agricultural_usage
:is (:and usage_of_water (:one-of
attr_irrigation
attr_watering_of_livestock)))
;;--> level 2
(defconcept water_treatment_plant
:is (:and domain_application (:one-of
attr_low_lift_service
attr_coagulant_feed_service
attr_carbon_slurry_transfer_feed
attr_fluoride_feed
attr_delivery_of_sample_to_lab_analysis
attr_plant_water_supply
attr_wash_water_supply
attr_surface_wash_supply
attr_booster_service)))
;;--> level 2
(defconcept sewage_treatment
:is (:and domain_application (:one-of
attr_sewage_collect_system
attr_sewage_treatment_system)))
;;--> level 2
(defconcept drainage_and_irrigation
:is-primitive domain_application)
;;--> level 2
(defconcept fire
:is-primitive domain_application)
;;--> level 2
(defconcept steam_power_plant
:is (:and domain_application (:one-of
attr_turbogenerator_and_auxiliaries
attr_steam_generator
attr_chemical_feed_system
attr_fuel_oil_system
attr_lubricating_oil_system
attr_fire_protection_system
attr_heating_and_ventilating_air_conditioning
attr_service_water_system
attr_boiler_feed
attr_booster_service
attr_condensate_service
attr_condenser_circulating
attr_boiler_circulating
attr_ash_handling
attr_nuclear_plant)))
;;--> level 2
(defconcept chemical_industry
:is-primitive domain_application)
;;--> level 2
(defconcept petroleum_industry
:is-primitive domain_application
:exhaustive-partition (refinery_service
pipeline_serevice
special_service_of_petroleum_industry))
;;;---> level 3
(defconcept refinery_service
:is (:and petroleum_industry (:one-of
attr_crude_distillation
attr_vacuum_tower_seperation
attr_catalytic_conversion
attr_alkylation
attr_hydricraking
attr_catalytic_reforming
attr_catalytic_coking
attr_hydrotreatment_of_sulfur_and_nitrogen)))
(defconcept pipeline_serevice
:is (:and petroleum_industry (:one-of
attr_pipeline_of_crude_oil
attr_pipeline_of_gasoline
attr_pipeline_of_fuel
attr_pipeline_of_liquified_petroleum_gas
attr_pipeline_of_anhydrous_ammonia)))
(defconcept special_service_of_petroleum_industry
:is (:and petroleum_industry (:one-of
attr_waterflood
attr_reactor_feed_and_charge
attr_viscous_liquid_pumping)))
;;--> level 2
(defconcept pulp_and_paper_mills
:is-primitive domain_application)
;;--> level 2
(defconcept food_and_beverage
:is-primitive domain_application)
;;--> level 2
(defconcept mining
:is-primitive domain_application)
;;--> level 2
(defconcept marine
:is-primitive domain_application
:exhaustive-partition (boiler_feed_of_power_plant
fresh_water_service
seawater_service
viscous_fluid_services
auxiliary_service))
;;;---> level 3
(defconcept boiler_feed_of_power_plant
:is (:and marine (:one-of
attr_condensate
attr_boiler_water_feed
attr_feedwater_booster)))
(defconcept fresh_water_service
:is (:and marine (:one-of
attr_condenser_vacuum
attr_drainage
attr_distilling_plant_condensate
attr_fresh_water_supply
attr_circulating)))
(defconcept seawater_service
:is (:and marine (:one-of
attr_condenser_circulating
attr_bilge_and_ballast
attr_fire_main
attr_flushing
attr_cargo_tank_cleaning
attr_auxilliary_condenser_cooling
attr_distilling_plant_feed
attr_distilling_plant_brine
attr_sanitary
attr_jet_propusion)))
(defconcept viscous_fluid_services
:is (:and marine (:one-of
attr_cargo
attr_fuel_oil_service
attr_fuel-oil_transfer
attr_lubricating_oil_service)))
(defconcept auxiliary_service
:is (:and marine (:one-of
attr_support_of_power_plant
attr_hotel_load
attr_ship_loading_and_unloading
attr_armament)))
;;--> level 2
(defconcept hydraulic_presses
:is-primitive domain_application)
(defconcept refrigeration_and_heating_and_air_conditioning
:is-primitive domain_application)
(defconcept pumped_storage
:is-primitive domain_application)
(defconcept nuclear
:is-primitive domain_application)
(defconcept metering_device
:is-primitive domain_application)
(defconcept solids_pumping
:is-primitive domain_application)
(defconcept oil_well
:is-primitive domain_application)
(defconcept cryogenic_liquefied_gas_service
:is-primitive domain_application)
(defconcept water_pressure_booster_system
:is-primitive domain_application)
;----------------------------------------------------------------------
;simulation_model_attribute
;-> level 1
(defconcept binary_code
:is-primitive (:and simulation_model_attribute String))
(defconcept transfer_function
:is-primitive (:and simulation_model_attribute String))
(defconcept state_space_description
:is-primitive (:and simulation_model_attribute String))
(defconcept differential_equations
:is-primitive (:and simulation_model_attribute String))
;;;;;;;;; --------------------------------------------------------------
;;;;;;;;; --------------------------------------------------------------
;; <<>> about structure
; [1]
(defrelation structure_is
:domain pumps
:range structure_attribute
:characteristics (:closed-world))
;; [2]
(defrelation internal_structure_is
:is-primitive structure_is
:domain pumps
:range internal_structure_attribute
:characteristics (:closed-world))
;; [2]
(defrelation stage_structure_is
:is-primitive structure_is
:domain pumps
:range stage_structure_attribute
:characteristics (:single-valued :closed-world))
;; [2]
(defrelation casing_structure_is
:is-primitive structure_is
:domain pumps
:range casing_structure_attribute
:characteristics (:single-valued :closed-world))
;; [2]
(defrelation priming_structure_is
:is-primitive structure_is
:domain pumps
:range priming_structure_attribute
:characteristics (:single-valued :closed-world))
;; [2]
(defrelation sunction_structure_is
:is-primitive structure_is
:domain pumps
:range sunction_structure_attribute
:characteristics (:single-valued :closed-world))
;; [2]
(defrelation impeller_structure_is
:is-primitive structure_is
:domain pumps
:range impeller_structure_attribute
:characteristics (:closed-world))
;;; [3]
(defrelation impeller_structure_by_openess_is
:is-primitive impeller_structure_is
:domain pumps
:range impeller_structure_openess
:characteristics (:single-valued :closed-world))
;;; [3]
(defrelation impeller_structure_by_flow_direction_is
:is-primitive impeller_structure_is
:domain pumps
:range impeller_structure_flow_direction
:characteristics (:single-valued :closed-world))
;; [2]
(defrelation canned_structure_is
:is-primitive structure_is
:domain pumps
:range canned_structure_attribute
:characteristics (:single-valued :closed-world))
;; [2]
(defrelation acting_number_is
:is-primitive structure_is
:domain pumps
:range acting_number_attribute
:characteristics (:single-valued :closed-world))
;; [2]
(defrelation primary_mode_is
:is-primitive structure_is
:domain pumps
:range primary_working_mode_attribute
:characteristics (:closed-world))
;; [2]
(defrelation rotor_structure_is
:is-primitive structure_is
:domain pumps
:range rotor_structure_attribute
:characteristics (:closed-world))
;;; [3]
(defrelation piston_structure_is
:is-primitive rotor_structure_is
:domain pumps
:range piston
:characteristics (:single-valued :closed-world))
;;; [3]
(defrelation diaphragm_structure_is
:is-primitive rotor_structure_is
:domain pumps
:range diaphragm
:characteristics (:single-valued :closed-world))
;;; [3]
(defrelation vane_structure_is
:is-primitive rotor_structure_is
:domain pumps
:range vane
:characteristics (:closed-world))
;;; [3]
(defrelation flexible_member_structure_is
:is-primitive rotor_structure_is
:domain pumps
:range flexible_member
:characteristics (:single-valued :closed-world))
;;; [3]
(defrelation screw_structure_is
:is-primitive rotor_structure_is
:domain pumps
:range screw
:characteristics (:closed-world))
;;; [3]
(defrelation gear_structure_is
:is-primitive rotor_structure_is
:domain pumps
:range gear
:characteristics (:closed-world))
;;; [3]
(defrelation lobe_structure_is
:is-primitive rotor_structure_is
:domain pumps
:range lobe
:characteristics (:single-valued :closed-world))
;;; [3]
(defrelation circumferential_piston_structure_is
:is-primitive rotor_structure_is
:domain pumps
:range circumferential_piston
:characteristics (:single-valued :closed-world))
;;; [3]
(defrelation bearing_structure_is
:is-primitive rotor_structure_is
:domain pumps
:range bearing
:characteristics (:single-valued :closed-world))
;; [2]
(defrelation displacement_mode_structure_is
:is-primitive structure_is
:domain pumps
:range displacement_mode_attribute
:characteristics (:single-valued :closed-world))
;; [2]
(defrelation chamber_number_is
:is-primitive structure_is
:domain pumps
:range chamber_number_attribute
:characteristics (:single-valued :closed-world))
;; <<>> about construction
(defrelation impeller_construction_with
:domain pumps
:range impeller_construction_attribute
:attributes (:single-valued :closed-world))
(defrelation casing_construction_with
:domain pumps
:range casing_construction_attribute
:attributes (:single-valued :closed-world))
(defrelation wearing_ring_construction_with
:domain pumps
:range wearing_ring_construction_attribute
:attributes (:single-valued :closed-world))
(defrelation coating_and_lining_construction_with
:domain pumps
:range coating_and_lining_construction_attribute
:attributes (:single-valued :closed-world))
;; <<>> about driver
(defrelation driver_position_is
:domain pumps
:range driver_position_attribute
:characteristics (:closed-world :single-valued))
(defrelation driver_type_is
:domain pumps
:range driver_type_attribute
:characteristics (:closed-world :single-valued))
(defrelation brake_horsepower_is
:domain pumps
:range brake_horsepower_attribute
:attributes :single-valued)
(defrelation pitch_of_driver_is
:domain pumps
:range pitch_attribute
:attributes :single-valued)
;; <<>> about interconnection
(defrelation inteconnection_by
:domain pumps
:range interconnection_method_between_pump_and_driver
:attributes (:closed-world))
;; <<>> about installation
(defrelation mounting_methods_is
:domain pumps
:range mounting_attribute
:characteristics (:closed-world :single-valued))
(defrelation height_is
:domain pumps
:range height_attribute
:attributes :single-valued)
(defrelation width_is
:domain pumps
:range width_attribute
:attributes :single-valued)
(defrelation length_is
:domain pumps
:range length_attribute
:attributes :single-valued)
(defrelation weight_is
:domain pumps
:range weight_attribute
:attributes :single-valued)
;; <<>> about operating_condition
(defrelation fluid_is
:domain pumps
:range fluid_attribute
:attribute :closed-world)
(defrelation fluid_chemical_property_is
:domain pumps
:range chemical_property_attribute
:attribute :closed-world)
(defrelation fluid_corrosity_is
:domain pumps
:range corrosivity_attribute
:attribute :closed-world)
(defrelation fluid_flammability_is
:domain pumps
:range flammability_attribute
:attribute :closed-world)
(defrelation fluid_viscosity_is
:domain pumps
:range viscosity_attribute
:attributes :single-valued)
(defrelation fluid_gravity_is
:domain pumps
:range gravity_attribute
:attributes :single-valued)
(defrelation fluid_fluidity_is
:domain pumps
:range fluidity_attribute
:attributes :closed-world)
(defrelation fluid_temperature_is
:domain pumps
:range temperature_attribute
:attributes :closed-world)
(defrelation inlet_pipe_size_is
:domain pumps
:range inlet_pipe_size
:attributes :single-valued)
(defrelation outlet_pipe_size_is
:domain pumps
:range outlet_pipe_size
:attributes :single-valued)
;; <<>> about performance
(defrelation inlet_rate_capacity_is
:domain pumps
:range sunction_capacity
:attributes :single-valued)
(defrelation outlet_rate_capacity_is
:domain pumps
:range discharge_capacity
:attributes :single-valued)
;;;---------------------------------
(defrelation elevation_head_is
:domain pumps
:range elevation_head
:attributes :closed-world)
(defrelation NPSH_is
:domain pumps
:range NPSH
:attributes :closed-world)
(defrelation total_head_is
:domain pumps
:range total_head
:attributes :closed-world)
(defrelation velocity_head_is
:domain pumps
:range velocity_head
:attributes :closed-world)
(defrelation pressure_head_is
:domain pumps
:range pressure_head
:attributes :closed-world)
(defrelation shutoff_head_is
:domain pumps
:range shutoff_head
:attributes :closed-world)
(defrelation discharge_head_is
:domain pumps
:range discharge_head
:attributes :closed-world)
(defrelation sunction_head_is
:domain pumps
:range sunction_head
:attributes :closed-world)
(defrelation accelaration_head_is
:domain pumps
:range accelaration_head
:attributes :closed-world)
;;-----------------------------------------
(defrelation speed_is
:domain pumps
:range speed
:attributes :closed-world)
(defrelation specific_speed_is
:domain pumps
:range specific_speed
:attributes :closed-world)
(defrelation power_is
:domain pumps
:range power
:attributes :closed-world)
(defrelation efficiency_is
:domain pumps
:range efficiency_attribute
:attributes :closed-world)
(defrelation volumetric_efficiency_is
:domain pumps
:range volumetric_efficiency_attribute
:attributes :closed-world)
(defrelation dynamic_loading_is
:domain pumps
:range dynamic_loading_attribute
:attributes :single-valued)
(defrelation inlet_pressure_is
:domain pumps
:range inlet_pressure_capacity
:attributes :single-valued)
(defrelation outlet_pressure_is
:domain pumps
:range outlet_pressure_capacity
:attributes :single-valued)
(defrelation suction_lift_is
:domain pumps
:range sunction_lift_attribute
:attributes :single-valued)
(defrelation reliability_is
:domain pumps
:range reliability_attribute
:attributes :closed-world)
(defrelation run_dry_attribute_is
:domain pumps
:range run_dry_attribute
:attributes :closed-world)
(defrelation submersibility_is
:domain pumps
:range submersibility_attribute
:attributes :single-valued)
;; <<>> about life time
(defrelation duty_cycle_is
:domain pumps
:range duty_cycle_attribute
:attributes :single-valued)
(defrelation lifetime_is
:domain pumps
:range lifetime_attribute
:attributes :single-valued)
;; <<>>
(defrelation ini_cost_is
:domain pumps
:range initial_cost_attribute
:attributes :single-valued)
(defrelation replacement_cost_is
:domain pumps
:range replacement_cost_attribute
:attributes :single-valued)
(defrelation delivery_time_is
:domain pumps
:range delivery_time
:attributes :single-valued)
(defrelation part_number_is
:domain pumps
:range unique_part_number_attribute
:attributes :single-valued)
;; <<>>
(defrelation function_as
:domain pumps
:range function)
(defrelation application_domain
:domain pumps
:range domain_application)
;; <<>>
(defrelation simulation_model_is
:domain pumps
:range simulation_model_attribute)
;;;
;;; *****************************************************************
;;; define pumps worlds (single concepts)
;;; *****************************************************************
(defconcept positive_displacement_pump
:is (:and pumps
(:the internal_structure_is positive_displacement)))
(defconcept reciprocating_pump
:is (:and positive_displacement_pump
(:filled-by internal_structure_is attr_reciprocating)))
(defconcept reciprocating_piston_pump
:is (:and reciprocating_pump
(:the rotor_structure_is piston)))
(defconcept reciprocating_double_acting_pump
:is (:and reciprocating_piston_pump
(:filled-by acting_number_is attr_double_acting)))
(defconcept reciprocating_steam_simplex_pump
:is (:and reciprocating_double_acting_pump
(:filled-by primary_mode_is attr_simplex)
(:the driver_type_is steam_turbine)))
(defconcept reciprocating_steam_duplex_pump
:is (:and reciprocating_double_acting_pump
(:filled-by primary_mode_is attr_duplex)
(:the driver_type_is steam_turbine)))
(defconcept reciprocating_double_acting_power_duplex_pump
:is (:and reciprocating_double_acting_pump
(:filled-by primary_mode_is attr_duplex)
(:the driver_type_is (:or electric_driver engine))))
(defconcept reciprocating_double_acting_power_simplex_pump
:is (:and reciprocating_double_acting_pump
(:filled-by primary_mode_is attr_simplex)
(:the driver_type_is (:or electric_driver engine))))
(defconcept reciprocating_single_acting_pump
:is (:and reciprocating_piston_pump
(:filled-by acting_number_is attr_single_acting)))
(defconcept reciprocating_single_acting_power_simplex_pump
:is (:and reciprocating_single_acting_pump
(:filled-by primary_mode_is attr_simplex)
(:the driver_type_is (:or electric_driver engine))))
(defconcept reciprocating_single_acting_power_duplex_pump
:is (:and reciprocating_single_acting_pump
(:filled-by primary_mode_is attr_duplex)
(:the driver_type_is (:or electric_driver engine))))
(defconcept reciprocating_single_acting_power_triplex_pump
:is (:and reciprocating_single_acting_pump
(:filled-by primary_mode_is attr_triplex)
(:the driver_type_is (:or electric_driver engine))))
(defconcept reciprocating_single_acting_power_multiplex_pump
:is (:and reciprocating_single_acting_pump
(:filled-by primary_mode_is attr_multiplex)
(:the driver_type_is (:or electric_driver engine))))
;
(defconcept diaphragm_pump
:is (:and reciprocating_pump
(:the rotor_structure_is diaphragm)))
(defconcept diaphragm_simplex_pump
:is (:and diaphragm_pump
(:filled-by primary_mode_is attr_simplex)))
(defconcept diaphragm_simplex_fluid_opearted_pump
:is (:and diaphragm_simplex_pump
(:the driver_type_is hydraulic_turbine)))
(defconcept diaphragm_simplex_mech_operated_pump
:is (:and diaphragm_simplex_pump
(:the driver_type_is (:or electric_driver engine))))
(defconcept diaphragm_multiplex_pump
:is (:and diaphragm_pump
(:filled-by primary_mode_is
attr_duplex
attr_triplex
attr_multiplex)))
(defconcept diaphragm_multiplex_fluid_opearted_pump
:is (:and diaphragm_multiplex_pump
(:the driver_type_is hydraulic_turbine)))
(defconcept diaphragm_multiplex_mech_operated_pump
:is (:and diaphragm_multiplex_pump
(:the driver_type_is (:or electric_driver engine))))
(defconcept blow_case_pump
:is (:and positive_displacement_pump
(:filled-by internal_structure_is attr_blow_case)))
(defconcept rotary_pump
:is (:and positive_displacement_pump
(:filled-by internal_structure_is attr_rotary)))
(defconcept single_rotor_rotary_pump
:is (:and rotary_pump
(:the rotor_structure_is single_rotor)))
(defconcept vane_rotary_pump
:is (:and single_rotor_rotary_pump
(:the rotor_structure_is vane)))
(defconcept piston_rotary_pump
:is (:and single_rotor_rotary_pump
(:the rotor_structure_is piston)))
(defconcept flexible_member_rotary_pump
:is (:and single_rotor_rotary_pump
(:the rotor_structure_is flexible_member)))
(defconcept screw_single_rotor_rotary_pump
:is (:and single_rotor_rotary_pump
(:the rotor_structure_is screw)))
(defconcept multiple_rotor_rotary_pump
:is (:and rotary_pump
(:the rotor_structure_is multiple_rotor)))
(defconcept gear_rotary_pump
:is (:and multiple_rotor_rotary_pump
(:the rotor_structure_is gear)))
(defconcept lobe_rotary_pump
:is (:and multiple_rotor_rotary_pump
(:the rotor_structure_is lobe)))
(defconcept circumferential_piston_rotary_pump
:is (:and multiple_rotor_rotary_pump
(:the rotor_structure_is circumferential_piston)))
(defconcept bearing_rotary_pump
:is (:and multiple_rotor_rotary_pump
(:the rotor_structure_is bearing)))
(defconcept screw_multiple_rotor_rotary_pump
:is (:and multiple_rotor_rotary_pump
(:the rotor_structure_is screw)))
(defconcept fluid_ring_pump
:is-primitive rotary_pump)
;;
(defconcept kinetic_pump
:is (:and pumps
(:the internal_structure_is kinetic)))
(defconcept centrifugal_pump
:is (:and kinetic_pump
(:the internal_structure_is centrifugal)))
(defconcept radical_flow_centrifugal_pump
:is (:and centrifugal_pump
(:filled-by impeller_structure_is attr_radical_flow)))
(defconcept mixed_flow_centrifugal_pump
:is (:and centrifugal_pump
(:filled-by impeller_structure_is attr_mixed_flow)))
(defconcept axial_flow_centrifugal_pump
:is (:and centrifugal_pump
(:filled-by impeller_structure_is attr_axial_flow)
(:filled-by sunction_structure_is attr_single_sunction)))
(defconcept single_stage_axial_flow_centrifugal_pump
:is (:and axial_flow_centrifugal_pump
(:the stage_structure_is single_staged)))
(defconcept open_impeller_single_stage_axial_flow_centrifugal_pump
:is (:and single_stage_axial_flow_centrifugal_pump
(:filled-by impeller_structure_is attr_open)))
(defconcept closed_impeller_single_stage_axial_flow_centrifugal_pump
:is (:and single_stage_axial_flow_centrifugal_pump
(:filled-by impeller_structure_is attr_closed)))
(defconcept multi_stage_axial_flow_centrifugal_pump
:is (:and axial_flow_centrifugal_pump
(:the stage_structure_is multi_staged)))
(defconcept open_impeller_multi_stage_axial_flow_centrifugal_pump
:is (:and multi_stage_axial_flow_centrifugal_pump
(:filled-by impeller_structure_is attr_open)))
(defconcept closed_impeller_multi_stage_axial_flow_centrifugal_pump
:is (:and multi_stage_axial_flow_centrifugal_pump
(:filled-by impeller_structure_is attr_closed)))
(defconcept peripheral_pump
:is (:and kinetic_pump
(:the internal_structure_is peripheral)))
(defconcept single_stage_peripheral_pump
:is (:and peripheral_pump
(:the stage_structure_is single_staged)))
(defconcept self_priming_single_stage_peripheral_pump
:is (:and single_stage_peripheral_pump
(:filled-by priming_structure_is attr_self_priming)))
(defconcept non_self_priming_single_stage_peripheral_pump
:is (:and single_stage_peripheral_pump
(:filled-by priming_structure_is attr_non_self_priming)))
(defconcept regenerate_pump
:is-primitive peripheral_pump)
(defconcept multi_stage_peripheral_pump
:is (:and peripheral_pump
(:the stage_structure_is multi_staged)))
(defconcept self_priming_multi_stage_peripheral_pump
:is (:and multi_stage_peripheral_pump
(:filled-by priming_structure_is attr_self_priming)))
(defconcept non_self_priming_multi_stage_peripheral_pump
:is (:and multi_stage_peripheral_pump
(:filled-by priming_structure_is attr_non_self_priming)))
(defconcept special_pump
:is (:and kinetic_pump
(:the internal_structure_is special)))
(defconcept viscous_drag_pump
:is (:and special_pump
(:filled-by internal_structure_is attr_viscous_drag)))
(defconcept jet_pump
:is (:and special_pump
(:filled-by internal_structure_is attr_jet)))
(defconcept gas_lift_pump
:is (:and special_pump
(:filled-by internal_structure_is attr_gas_lift)))
(defconcept hydraulic_ram_pump
:is (:and special_pump
(:filled-by internal_structure_is attr_hydraulic_ram)))
(defconcept electromagnetic_pump
:is (:and special_pump
(:filled-by internal_structure_is attr_electromagnetic)))
(defconcept screw_centrifugal_pump
:is (:and special_pump centrifugal_pump
(:filled-by internal_structure_is attr_screw_centrifugal)))
(defconcept pitot_pump
:is (:and special_pump
(:filled-by internal_structure_is attr_pitot)))
;;; motor pump series
(defconcept with_driver_pump
:is (:and pumps
(:the driver_position_is with_driver)))
(defconcept without_driver_pump
:is (:and pumps
(:the driver_position_is without_driver)))
(defconcept electric_driver_pump
:is (:and pumps
(:the driver_type_is electric_driver)))
(defconcept ac_driver_pump
:is (:and electric_driver_pump
(:the driver_type_is ac_driver)))
(defconcept three_phase_pump
:is (:and ac_driver_pump
(:filled-by driver_type_is attr_ac_three_phase)))
(defconcept one_phase_pump
:is (:and ac_driver_pump
(:filled-by driver_type_is attr_ac_one_phase)))
(defconcept dc_driver_pump
:is (:and electric_driver_pump
(:the driver_type_is dc_driver)))
(defconcept engine_driver_pump
:is (:and pumps
(:the driver_type_is engine)))
(defconcept gas_engine_driver_pump
:is (:and engine_driver_pump
(:filled-by driver_type_is attr_gas_engine)))
(defconcept diesel_engine_driver_pump
:is (:and engine_driver_pump
(:filled-by driver_type_is attr_diesel_engine)))
(defconcept gasoline_engine_driver_pump
:is (:and engine_driver_pump
(:filled-by driver_type_is attr_gasoline_engine)))
(defconcept steam_turbine_driver_pump
:is (:and pumps
(:the driver_type_is steam_turbine)))
(defconcept single_stage_steam_turbine_driver_pump
:is (:and steam_turbine_driver_pump
(:filled-by driver_type_is attr_single_stage_turbine)))
(defconcept multiple_stage_steam_turbine_driver_pump
:is (:and steam_turbine_driver_pump
(:filled-by driver_type_is attr_multiple_stage_turbine)))
(defconcept hydraulic_turbine_driver_pump
:is (:and pumps
(:the driver_type_is hydraulic_turbine)))
(defconcept gas_turbine_driver_pump
:is (:and pumps
(:the driver_type_is gas_turbine)))
(defconcept single_unit_adjustable_speed_electric_drives_pump
:is (:and pumps
(:the driver_type_is single_unit_adjustable_speed_electric_drives)))
(defconcept hydraulic_driver_pump
:is (:and pumps
(:the driver_type_is hydraulic_driver)))
(defconcept adjustable_speed_belt_drive_pump
:is (:and pumps
(:the driver_type_is adjustable_speed_belt_drive)))
(defconcept magnetic_drive_pump
:is (:and pumps
(:the driver_type_is magnetic_drive)))
;;; pitched
(defconcept fixed_pitched_pump
:is (:and pumps
(:the pitch_of_driver_is fixed_pitched)))
(defconcept variable_pitched_pump
:is (:and pumps
(:the pitch_of_driver_is variable_pitched)))
;;; power
(defconcept low_power_pump
:is (:and pumps
(:the brake_horsepower_is (:through 0 100))))
(defconcept medium_power_pump
:is (:and pumps
(:the brake_horsepower_is (:through 20 300))))
(defconcept high_power_pump
:is (:and pumps
(:the brake_horsepower_is (:through 200 20000))))
;;; priming
(defconcept self_priming_pump
:is (:and pumps
(:filled-by priming_structure_is attr_self_priming)))
(defconcept un_self_priming_pump
:is (:and pumps
(:filled-by priming_structure_is attr_non_self_priming)))
;;; mounting
(defconcept universal_mounting_pump
:is (:and pumps
(:the mounting_methods_is universal_mounting)))
(defconcept non_universal_mounting_pump
:is (:and pumps
(:the mounting_methods_is non_universal_mounting)))
(defconcept vertical_mounting_pump
:is (:and non_universal_mounting_pump
(:filled-by mounting_methods_is attr_vertical_lineshaft)))
(defconcept horizontal_mounting_pump
:is (:and non_universal_mounting_pump
(:filled-by mounting_methods_is attr_horizontal_lineshaft)))
(defconcept convertible_mounting_pump
:is (:and non_universal_mounting_pump
(:filled-by mounting_methods_is attr_convertible_lineshaft)))
(defconcept sliding_mounting_pump
:is (:and pumps
(:the mounting_methods_is sliding_mounting)))
(defconcept pipe_mounting_pump
:is (:and pumps
(:the mounting_methods_is pipe_mounting)))
(defconcept vertical_barrel__mounting_pump
:is (:and pumps
(:the mounting_methods_is vertical_barrel_mounting)))
;;;
;;; weight
(defconcept light_pump
:is (:and pumps
(:the weight_is (:through 0 200))))
(defconcept normal_weight_pump
:is (:and pumps
(:the weight_is (:through 100 500))))
(defconcept heavy_pump
:is (:and pumps
(:the weight_is (:through 400 10000))))
;;;
;;;
(defconcept small_pump
:is (:and pumps
(:and (:the height_is (:through 0 20))
(:the width_is (:through 0 20))
(:the length_is (:through 0 20)))))
(defconcept normal_size_pump
:is (:and pumps
(:and (:the height_is (:through 10 40))
(:the width_is (:through 10 40))
(:the length_is (:through 10 40)))))
(defconcept big_pump
:is (:and pumps
(:and (:the height_is (:through 30 100))
(:the width_is (:through 30 100))
(:the length_is (:through 30 100)))))
;; any other size can be defined similarly
;;;
;;; Temp
(defconcept low_temp_pump
:is (:and pumps
(:the fluid_temperature_is (:through 30 100))))
(defconcept high_temp_pump
:is (:and pumps
(:the fluid_temperature_is (:through 300 1000))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; How to treat these query which are mainly based on application
;; character and which may be needed to be transfered to other
;; character specifications
;(in-package 'acc)
;(tellm (centrifugal_dc_pump pp1))
;(retrieve ?x (application_field ?x sea_water))
;(retrieve ?x (application_field ?x marine_env))
View source code.