fourbar Dimensions

# fourbar Dimensions - %Plot the Coupler point Position...

This preview shows page 1. Sign up to view the full content.

function RunFourBar1 % Input Data % %FourBar Dimensions a = 1; b = 1.5; c = 1.75; d = 1.6; d % motion data omega2 =10; o % Coupler Point Specifications delta3 = 45*pi /180; p=3 p % solve for open position FlagOpenCrossed F %number of points to plot NumPlotPoints = 200; N %Clear plots close all c figure(1) function [theta3,theta4, rc] = CalcFourBarPosition (a,b,c,d,theta2, FlagOpenCrossed) %function D= cos(theta2) -K1+K4 *cos(theta2)+K5; E=-2*sin(theta2); F= F function PlotCouplerPointPosition(a,b,c,d,p,delta3, FlagOpenCrossed, NumPlotPoints)
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: %Plot the Coupler point Position PlotAngles = linspace(0,2*pi, NumPlotPoints ); % preallocate storage to eliminate "growing within loop" M-lint message. X = zeros(NumPlotPoints,1); Y = zeros(NumPlotPoints,1); Y for kk = 1;NumPlotPoints theta2 = PlotAngles(kk); [theta3, theta4, rc] = CalcFourBarPosition(a,b,c,d,theta2, FlagOpenCrossed );...
View Full Document

## This note was uploaded on 03/28/2011 for the course CAE 311 taught by Professor Himn during the Spring '11 term at SJVCS.

Ask a homework question - tutors are online