December 2022
Intermediate to advanced
314 pages
8h 29m
English
AutoLISP Program for Modelling and Simulating a 4-Bar Linkage Mechanism
(defun c:4bar (/ l1 l2 l3 l4 theta2 theta3 theta4 pt1 pt2 pt3 l beta psi lambd a b c sp1 sp2 ep1 ep2 tp ans stt hp1 hp2) (defun getinput() (setq pt1 (getpoint "enter origin of crank: ") l2 (getdist pt1 "enter length of the crank: ") theta2 (getreal "enter starting angle of crank in radians: ") pt4 (getpoint "enter position of the end of four bar linkage: ") l3 (getreal "enter length of the coupler: ") l4 (getreal "enter length of the rocker: ") l1 (distance pt1 pt4) ) ) (getinput) (cond ((and (<= l1 (+(- l3 l4) l2))(>= l1 (-(+ l3 l4) l2))) (prompt "error: ensure (L3-L4+L2<L1<L3+L4-L2), please ...