routine to define object data >objdat1...
http://faramir.mece.ualberta.ca/staff/toogood/me555/555sol1.htm

http://faramir.mece.ualberta.ca/staff/toogood/me555/555sol1.htm