Skip to Main Content
Computer Aided Design
book

Computer Aided Design

by Wilson R Nyemba
December 2022
Intermediate to advanced content levelIntermediate to advanced
314 pages
8h 29m
English
CRC Press
Content preview from Computer Aided Design

Appendix A2 Selected program listings for mechanisms for Chapter 13

Appendix A2.1

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 ...
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Start your free trial

You might also like

Computer Aided Design

Computer Aided Design

Jayanta Sarkar
Handbook of Computer Aided Geometric Design

Handbook of Computer Aided Geometric Design

G. Farin, J. Hoschek, M.-S. Kim
CNC Milling for Makers

CNC Milling for Makers

Christian Rattat

Publisher Resources

ISBN: 9781000823219