the steady flow process involving a reduction in pressure without enthalpy change such as flow through a valve
(Forall (?Self)
(<=> (Steady-Flow-Throttling ?Self)
(And (Steady-Flow-Expansion ?Self)
(Steady-Flow-Adiabatic-Process ?Self)
(Process-Cv ?Self ?Cv)
(Undergoing Steady-Flow-Throttling ?Cv))))
(Forall (?Self ?Time)
(=> (Active ?Time Steady-Flow-Throttling ?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 (Pe-Rate-Out ?Cv)
?T)))
(Lambda (?T)
(If (= ?T ?Time)
(Value-At (Pe-Rate-In ?Cv)
?T))))))
(Forall (?Cv)
(=> (Process-Cv ?Self ?Cv)
(= (Lambda (?T)
(If (= ?T ?Time)
(Value-At (Ke-Rate-Out ?Cv)
?T)))
(Lambda (?T)
(If (= ?T ?Time)
(Value-At (Ke-Rate-In ?Cv)
?T)))))))))
(Forall (?Self ?Time)
(<=> (Active ?Time Steady-Flow-Throttling ?Self)
(And (Steady-Flow-Throttling ?Self)
(Active ?Time Steady-Flow-Expansion ?Self)
(Active ?Time Steady-Flow-Adiabatic-Process ?Self))))
(Forall (?Self)
(<=> (Steady-Flow-Throttling ?Self)
(And (Steady-Flow-Expansion ?Self)
(Steady-Flow-Adiabatic-Process ?Self)
(Process-Cv ?Self ?Cv)
(Undergoing Steady-Flow-Throttling ?Cv))))
(Forall (?Self ?Time)
(=> (Active ?Time Steady-Flow-Throttling ?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 (Pe-Rate-Out ?Cv)
?T)))
(Lambda (?T)
(If (= ?T ?Time)
(Value-At (Pe-Rate-In ?Cv)
?T))))))
(Forall (?Cv)
(=> (Process-Cv ?Self ?Cv)
(= (Lambda (?T)
(If (= ?T ?Time)
(Value-At (Ke-Rate-Out ?Cv)
?T)))
(Lambda (?T)
(If (= ?T ?Time)
(Value-At (Ke-Rate-In ?Cv)
?T)))))))))
(Forall (?Self ?Time)
(<=> (Active ?Time Steady-Flow-Throttling ?Self)
(And (Steady-Flow-Throttling ?Self)
(Active ?Time Steady-Flow-Expansion ?Self)
(Active ?Time Steady-Flow-Adiabatic-Process ?Self))))
(Inherited-Facet-Value Slot-Value-Type
Nozzle-System
Thrtlng-Prcs
Steady-Flow-Throttling)
(=> (Nozzle-System ?Self)
(And (Value-Cardinality ?Self Nzl 1)
(Value-Type ?Self Nzl Nozzle)
(Value-Cardinality ?Self Nzl 1)
(Value-Cardinality ?Self Nzl-Cv 1)
(Value-Type ?Self Nzl-Cv 1-1-Control-Volume)
(Value-Cardinality ?Self Nzl-Cv 1)
(Value-Cardinality ?Self Thrtlng-Prcs 1)
(Value-Type ?Self Thrtlng-Prcs Steady-Flow-Throttling)
(Value-Cardinality ?Self Thrtlng-Prcs 1)
(Cv-Component (Nzl-Cv ?Self) (Nzl ?Self))
(Component-Cv (Nzl ?Self) (Nzl-Cv ?Self))
(Process-Cv (Thrtlng-Prcs ?Self) (Nzl-Cv ?Self))))
(=> (Thrtlng-Prcs $X $Y) (Steady-Flow-Throttling $Y))