Constraint MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_HORIZONTAL_C

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

Slots on this instance:

Instance-Of: Constraint

Constraint-On: Elevator

Constraint.Expression:

'(= (Machine_Sheave_To_Deflector_Sheave_Horizontal ?X)
    (- (Car_Cable_Hitch_To_Counterweight_Cable_Hitch ?X)
       (+ (/ (Machine_Sheave_Diameter (Elevator.Machine ?X)) 2)
          (/ (Deflector_Sheave_Diameter ?X) 2)
          2)))

Notes:

• Formerly-Named: machinesheavetodeflsheave_horz_calc
• Source: The Yost document, under "MACHINE_SHEAVE_TO_DEFLECTOR_SHEAVE_HORIZONTAL"

• Modification-By: Guus Schreiber: ;; BUG: transposition errors in formula (Sec. 5.12)