Constraint HOIST_CABLE_LOAD_CAR_SIDE_CAR_TOP_C

• Defined in theory: Vt-domain
• Source code: vt-domain.lisp

Slots on this constraint:

Instance-Of: Constraint

Constraint-On: Elevator

Constraint.Expression:

'(= (Hoist_Cable_Load_Car_Side_Car_Top ?X)
    (* (* (Hoist_Cable_Quantity ?X)
          (Hoist_Cable_Unit_Weight (Elevator.Hoistcable ?X)))
       (+ (Hoistway_Overhead ?X) (- 5 (Sling_Underbeam ?X)))))

Other Related Axioms:

(<= (Has-Constraint $X Hoist_Cable_Load_Car_Side_Car_Top_C)
    (Elevator $X))

(Inherited-Slot-Value Elevator
                      Has-Constraint
                      Hoist_Cable_Load_Car_Side_Car_Top_C)

(Used-In-Constraint Hoist_Cable_Load_Car_Side_Car_Top
                    Hoist_Cable_Load_Car_Side_Car_Top_C)

(Used-In-Constraint Hoist_Cable_Quantity
                    Hoist_Cable_Load_Car_Side_Car_Top_C)

(Used-In-Constraint Hoistway_Overhead
                    Hoist_Cable_Load_Car_Side_Car_Top_C)

(Used-In-Constraint Sling_Underbeam
                    Hoist_Cable_Load_Car_Side_Car_Top_C)

(Used-In-Constraint Hoist_Cable_Unit_Weight
                    Hoist_Cable_Load_Car_Side_Car_Top_C)

Notes:

• Formerly-Named: c112
• Source: The Yost document, under " HOIST_CABLE_LOAD_CAR_SIDE_CAR_TOP "

• Modification-By: Guus Schreiber: ;; BUG: errors in formula (see Sec. 6.1) ;; (Q * W) * (O - (U + 5)) CHANGED TO (Q * W) * (O - U + 5)