Class STEADY-FLOW-ADIABATIC-HEAT-EXCHANGE

• Defined in theory: Thermal-system
• Source code: thermal-system.ol

Slots on this class:

Documentation:

This process model describes the process in a CV encompassing an

entire closed heat exchanger, from which there is no heat transfer with the

surroundings.

Instance-Of: Class

Subclass-Of: Model-fragment, Steady-flow-adiabatic-process

Arity: 1

Range-Of: Adbtc-hxg-prcs, Ht-xchg-prcs

Axioms:

(Forall (?Self ?Time)
        (=> (Active ?Time Steady-Flow-Adiabatic-Heat-Exchange ?Self)
            (And (= (Lambda (?T)
                            (If (= ?T ?Time)
                                (Value-At (Work-Rate ?Self) ?T)))
                    0)
                 (Forall (?Cv)
                         (=> (Process-Cv ?Self ?Cv)
                             (= (Lambda (?T)
                                        (If (= ?T ?Time)
                                            (Value-At (D-Ke-Rate ?Cv)
                                                      ?T)))
                                0)))
                 (Forall (?Cv)
                         (=> (Process-Cv ?Self ?Cv)
                             (= (Lambda (?T)
                                        (If (= ?T ?Time)
                                            (Value-At (D-Pe-Rate ?Cv)
                                                      ?T)))
                                0))))))

(Forall (?Self ?Time)
        (<=> (Active ?Time Steady-Flow-Adiabatic-Heat-Exchange ?Self)
             (And (Steady-Flow-Adiabatic-Heat-Exchange ?Self)
                  (Active ?Time Steady-Flow-Adiabatic-Process ?Self))))

Other Related Axioms:

(Forall (?Self ?Time)
        (=> (Active ?Time Steady-Flow-Adiabatic-Heat-Exchange ?Self)
            (And (= (Lambda (?T)
                            (If (= ?T ?Time)
                                (Value-At (Work-Rate ?Self) ?T)))
                    0)
                 (Forall (?Cv)
                         (=> (Process-Cv ?Self ?Cv)
                             (= (Lambda (?T)
                                        (If (= ?T ?Time)
                                            (Value-At (D-Ke-Rate ?Cv)
                                                      ?T)))
                                0)))
                 (Forall (?Cv)
                         (=> (Process-Cv ?Self ?Cv)
                             (= (Lambda (?T)
                                        (If (= ?T ?Time)
                                            (Value-At (D-Pe-Rate ?Cv)
                                                      ?T)))
                                0))))))

(Forall (?Self ?Time)
        (<=> (Active ?Time Steady-Flow-Adiabatic-Heat-Exchange ?Self)
             (And (Steady-Flow-Adiabatic-Heat-Exchange ?Self)
                  (Active ?Time Steady-Flow-Adiabatic-Process ?Self))))

(Inherited-Facet-Value Slot-Value-Type
                       2-2-Closed-Feedwater-Heater-System
                       Ht-Xchg-Prcs
                       Steady-Flow-Adiabatic-Heat-Exchange)

(=> (2-2-Closed-Feedwater-Heater-System ?Self)
    (And (Value-Cardinality ?Self Cls-Fwt-Htr 1)
         (Value-Type ?Self Cls-Fwt-Htr 2-2-Closed-Feedwater-Heater)
         (Value-Cardinality ?Self Cls-Fwt-Htr 1)
         (Value-Cardinality ?Self Chtr-Cv 1)
         (Value-Type ?Self Chtr-Cv 2-2-Control-Volume)
         (Value-Cardinality ?Self Chtr-Cv 1)
         (Value-Cardinality ?Self Ht-Xchg-Prcs 1)
         (Value-Type ?Self
                     Ht-Xchg-Prcs
                     Steady-Flow-Adiabatic-Heat-Exchange)
         (Value-Cardinality ?Self Ht-Xchg-Prcs 1)
         (Cv-Component (Chtr-Cv ?Self) (Cls-Fwt-Htr ?Self))
         (Component-Cv (Cls-Fwt-Htr ?Self) (Chtr-Cv ?Self))
         (Process-Cv (Ht-Xchg-Prcs ?Self) (Chtr-Cv ?Self))))

(=> (Ht-Xchg-Prcs $X $Y) (Steady-Flow-Adiabatic-Heat-Exchange $Y))

(Inherited-Facet-Value Slot-Value-Type
                       Condensor-System
                       Adbtc-Hxg-Prcs
                       Steady-Flow-Adiabatic-Heat-Exchange)

(=> (Condensor-System ?Self)
    (And (Value-Cardinality ?Self Cnd-Cv 1)
         (Value-Type ?Self Cnd-Cv Control-Volume)
         (Value-Cardinality ?Self Cnd-Cv 1)
         (Value-Cardinality ?Self Adbtc-Hxg-Prcs 1)
         (Value-Type ?Self
                     Adbtc-Hxg-Prcs
                     Steady-Flow-Adiabatic-Heat-Exchange)
         (Value-Cardinality ?Self Adbtc-Hxg-Prcs 1)
         (Value-Cardinality ?Self Cf-Cv 1)
         (Value-Type ?Self Cf-Cv 1-1-Control-Volume)
         (Value-Cardinality ?Self Cf-Cv 1)
         (Value-Cardinality ?Self Hf-Cv 1)
         (Value-Type ?Self Hf-Cv 1-1-Control-Volume)
         (Value-Cardinality ?Self Hf-Cv 1)
         (Value-Cardinality ?Self Water-In-Cnd 1)
         (Value-Type ?Self Water-In-Cnd Water)
         (Value-Cardinality ?Self Water-In-Cnd 1)
         (Value-Cardinality ?Self Condensor-Heat-Out-Rate 1)
         (Quantity.Dimension (Condensor-Heat-Out-Rate ?Self)
                             Power-Dimension)
         (Cv-Component (Cnd-Cv ?Self) (Cnd ?Self))
         (Component-Cv (Cnd ?Self) (Cnd-Cv ?Self))
         (Process-Cv (Adbtc-Hxg-Prcs ?Self) (Cnd-Cv ?Self))
         (Cv-Component (Cf-Cv ?Self) (Cold-Flow (Cnd ?Self)))
         (Component-Cv (Cold-Flow (Cnd ?Self)) (Cf-Cv ?Self))
         (Cv-Component (Hf-Cv ?Self) (Hot-Flow (Cnd ?Self)))
         (Component-Cv (Hot-Flow (Cnd ?Self)) (Hf-Cv ?Self))
         (Substance-In (Cnd-Cv ?Self) (Water-In-Cnd ?Self))
         (Substance-In (Hf-Cv ?Self) (Water-In-Cnd ?Self))
         (Substance-In (Inlet-Stream (Hf-Cv ?Self))
                       (Water-In-Cnd ?Self))
         (Substance-In (Outlet-Stream (Hf-Cv ?Self))
                       (Water-In-Cnd ?Self))
         (Substance-In (Cf-Cv ?Self) (Water-In-Cnd ?Self))
         (Substance-In (Inlet-Stream (Cf-Cv ?Self))
                       (Water-In-Cnd ?Self))
         (Substance-In (Outlet-Stream (Cf-Cv ?Self))
                       (Water-In-Cnd ?Self))))

(=> (Adbtc-Hxg-Prcs $X $Y) (Steady-Flow-Adiabatic-Heat-Exchange $Y))