CATHOLIC UNIVERSITY SAINT MARY

FACULTY OF PHYSICAL AND FORMAL SCIENCES AND ENGINEERING

PROFESSIONAL PROGRAM IN MECHANICAL ENGINEERING, MECHANICAL-ELECTRICAL AND

MECHATRONICS

COURSE:

MECHANISM DESIGN

THEME:

DEVELOPMENT OF TASK 2 AND 3

TEACHER:

ING. HERMAN ALCAZAR

STUDENTS:

ALEGRE CANAZA, RICHARD DAVID

ALVARO VILCA, JOSE CARLOS

SULLCA ARAGON, JOSE LUIS

BERNAL PEDRAZA, DIEGO WILLIAM

MENDOZA RAMOS, OSCAR

QUINTO CABANA, HEDGUAR EFRAIN

AREQUIPA–PERU
 CRANK-CONNECTING ROD MECHANISM

The crank-slider mechanism is amechanismthat transforms circular motion into a motion of

translation, or vice versa.

ELEMENTS

▪ White:It is a long, rigid element that allows the articulated connection between the crank and the piston.
It is made up of the head, the shaft or body, and the foot. The shape and section of the connecting rod can vary greatly, but
It must be able to withstand the working forces, which is why it is made of special steels or aluminum alloys.
▪ Crank:It is a lever with one point at the axis of rotation and the other at the head of the connecting rod. When the
The white one moves alternatively, back and forth, and you can turn the crank thanks to the overall movement of
the connecting rod. And conversely, when the crank turns, it manages to move the connecting rod and the piston alternately back and forth.

Both systems (crank connecting rod and eccentric connecting rod) allow for the conversion of the continuous rotational motion of a shaft into

an alternative linear one at the foot of the connecting rod. It also allows for

process opposite transform a linear movement

alternative connecting rod in a continuous rotating on the axis to which
is the eccentric or the crank connected (although for this they have
to introduce slight modifications that allow for an increase in the
moment of inertia.

This mechanism is the starting point of the systems that

they take advantage of the rotational movement of a tree axle
obtain alternative linear or angular movements; but also
it is essential for the opposite: to produce twists from
alternative linear or oscillating movements.
Funcionamiento:
The system works as follows:

• It has a rotary movement that is transmitted to the crank.

• The lamina (or the eccentric) converts the rotational movement of the axis into
a circular one on its handle (eccentric axis).
• The rod head is connected to the crank handle (axis
eccentric) and, therefore, is endowed with circular motion.
• In its circular movement, the head of the connecting rod drags the crank pin, which
it follows an alternative linear movement.
• The trajectory followed by the connecting rod is an alternative linear one, but the
the orientation of the connecting rod changes at all times. This presents
a small inconvenience that can be resolved by adding others
operators (for example apiston

Design Considerations:

When designing these mechanisms, we must take into account that:

• The length of the crank arm determines the movement of the conn rod foot (stroke), therefore, we must
design the crank with a length much shorter than the connecting rod.

Stroke = 2 times the radius of the crank

• For the system to function properly, it is necessary to use connecting rods that are at least 4 times the radius

of the crank handle to which it is coupled.

• When we need to transform rotary motion into reciprocating motion, the crankshaft is the driving element and
the connecting rod foot is connected to the resistant element (useful power). This causes the force applied to the shaft to reduce by

inversely proportional to the length of the crank, so the longer the crank, the less force there will be
it appears in its grip and consequently in the foot of the connecting rod.

• The heads of the connecting rods must be centered on the handle around which they rotate, so it can be
it is necessary to increase its width (installation of a sleeve).
DEVELOPMENT OF THE REPORT:

TASK 2:

CINEMATIC ANALYSIS:
MATLAB CODE (APP DESIGNER):
classdef BielaManivelaExcentrico < [Link]

Properties that correspond to app components

properties(Access = public)
[Link]
[Link]
[Link]
LongitudBielaEditFieldLabel
[Link]
[Link]
[Link]
[Link]
[Link]
MECHANISM MOBILE MANUAL EXCENTRIC Label [Link]
[Link]
[Link]
[Link]
[Link]
[Link]
[Link]
CrankAngularSpeedEditFieldLabel
[Link]
[Link]
[Link]
CrankRodAngularVelocityEditFieldLabel
[Link]
[Link]
[Link]
AngularAccelerationRodEditFieldLabel
[Link]
[Link]
[Link]
end

Callbacks that handle component events

methods(Access = private)

% Button pushed function: OutputDataButton

functionDatosdeSalidaButtonPushed(app, event)
LM=[Link];
LB=[Link];
E=[Link];
AM=[Link];
VAM=[Link];
AAM=[Link];
maxDet=45;
if LB >= LM + E
AB=asind((LM*sind(AM)+E)/LB);
S = LM * cos(LM) + LB * cos(AB);
[Link] = S;
[Link] = AB;
Matriz1=[-LB*sind(AB) -1 -LM*sind(AM);-LB*cosd(AB) 0 LM*cosd(AM);0 0 1];
Matriz2=[0;0;VAM];
MatrixVel=Matrix1\Matrix2;
VAB=VelocityMatrix(1);
VC=VelocityMatrix(2);
VAM=VelocityMatrix(3);
Matriz3=[LB*sind(AB) 1 LM*sind(AM);LB*cos(AB) 0 -LM*cosd(AM);0 0 1];
Matriz4=[-LM*cosd(AM)*VAM^2-LB*cosd(AB)*VAB^2;-
LM*sind(AM)*VAM^2 + LB*sind(AB)*VAB^2; AAM];
MatrixAcc=Matrix3\Matrix4;
AAB=MatrixAcc(1);
AC=MatrixAcc(2);
AAM=MatrixAcc(3);
[Link]=VAB;
[Link]=VC;
[Link]=AAB;
[Link]=AC;
else
The angle of the crank exceeds the limit of the critical angle.
end
end
end

% Component initialization
methods(Access = private)

% Create UIFigure and components

function createComponents(app)
% Create UIFigure and hide until all components are created
[Link] = uifigure('Visible','off');
[Link] = [100 100 640 480];
[Link] = 'UI Figure';

Create LongitudManivelaEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [7 338 106 15];
[Link] ='Longitud Manivela';

Create Lm
[Link] = uieditfield([Link],'numeric');
[Link] = [128 334 100 22];

% Create LongitudBielaEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [32 301 84 15];
[Link] ='Longitud Biela';

% Create Lb
[Link] = uieditfield([Link], 'numeric');
[Link] = [128 297 100 22];

Create Excentricity Edit Field Label

[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [37 266 79 15];
[Link] ='Excentricidad';

% Create e
app.e = uieditfield([Link], 'numeric');
[Link] = [128 262 100 22];

Create CrankAngleEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [15 233 97 15];
[Link] ='Angulo Manivela';

% Create Am
[Link] = uieditfield([Link], 'numeric');
[Link] = [127 229 100 22];

Create MECHANICAL MOBILE WITH EXCENTRIC LEVEL Label

[Link] = uilabel([Link]);
[Link] ='top';
[Link] = 18;
[Link] ='bold';
[Link] = [118 429 406 23];
Connecting Rod Mechanism
eccentric crank

% Create InputDataLabel
[Link] = uilabel([Link]);
[Link] ='top';
[Link] ='bold';
[Link] = [81 379 104 15];
[Link] ='Datos de Entrada';

Create AnguloBielaEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [37 154 75 15];
[Link] ='Angulo Biela';

% Create Ab
[Link] = uieditfield([Link], 'numeric');
[Link] ='off';
[Link] = [127 150 100 22];

Create PosicinCorrederaEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [1 117 111 15];
[Link] ='Posición Corredera';

% Create Pc
[Link] = uieditfield([Link],'numeric');
[Link] ='off';
[Link] = [127 113 100 22];

% Create OutputDataButton
[Link] = uibutton([Link],'push');
[Link] = createCallbackFcn(app,
@OutputDataButtonPressed, true);
[Link] ='bold';
[Link] = [81 184 104 22];
[Link] ='Datos de Salida';

Create CrankAngularVelocityEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [283 338 159 15];
[Link] ='Velocidad Angular
Crank

Create Vam
[Link] = uieditfield([Link], 'numeric');
[Link] = [459 334 100 22];

Create AngularAccelerationCrankEditFieldLabel
[Link] = uilabel([Link]);
[Link] =
right
[Link] ='top';
[Link] = [275 305 169 15];
[Link] ='Aceleración Angular
Crank

Create Aam
[Link] = uieditfield([Link],'numeric');
[Link] = [459 301 100 22];

Create AngularVelocityRodEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [313 150 137 15];
[Link] ='Velocidad Angular Biela';

% Create Vab
[Link] = uieditfield([Link],'numeric');
[Link] = [467 146 100 22];

Create SlidingAccelerationEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [323 39 129 15];
[Link] ='Aceleración Corredera';

% Create Ac
[Link] = uieditfield([Link],'numeric');
[Link] = [467 35 100 22];

Create AngularAccelerationRodEditFieldLabel
[Link] =
uilabel([Link]);
[Link]
right
[Link] =
top
[Link] = [305 114
147 15];
[Link] ='Aceleracion
White Angular

% Create Aab
[Link] = uieditfield([Link],'numeric');
[Link] = [467 110 100 22];
 % Create SliderSpeedEditFieldLabel
[Link] = uilabel([Link]);
[Link] =
right
[Link] =
top
[Link] = [333 76 119
15];
[Link] ='Velocidad
Slider

% Create Vc
[Link] = uieditfield([Link], 'numeric');
[Link] = [467 72 100 22];

% Show the figure after all components are created

[Link] = 'on';
end
end

App creation and deletion

methods(Access = public)

% Construct app
functionapp = BielaManivelaExcentrico

% Create UIFigure and components

createComponents(app)

% Register the app with App Designer

registerApp(app, [Link])

ifnargout == 0
clearapp
end
end

% Code that executes before app deletion

function delete(app)

Delete UIFigure when app is deleted

delete([Link])
end
end
end

APPLICATION INTERFACE (Matlab-App Designer)

We will evaluate the following input values in the application:
classdef CrankSliderMechanismGraphs < [Link]

Properties that correspond to app components

properties(Access = public)
[Link]
MECHANISMOBILAMANIVELAEXCENTRICO
[Link]
Crank Length Edit Field Label
[Link]
Length Rod Edit Field Label
[Link]
Excentricity Edit Field Label [Link]
[Link]
Crank Angular Speed Edit Field Label
[Link]
[Link]
[Link]
[Link]
[Link]
[Link]
[Link]
end

Callbacks that handle component events

methods(Access = private)
% Button pushed function: GRAFICAButton
function GRAFICA Button Pushed(app, event)
LM=[Link];
LB=[Link];
E=[Link];
VAM=[Link];
AAM=[Link];
k=1;
x=0:1:360;
if LB > LM + E
forAM=0:1:360
AB=asind((LM*sind(AM)+E)/LB);
S = LM * cosd(LM) + LB * cosd(AB);
VectorS(k) = S;
%[Link] = S;
%[Link] = AB;
VAM=sqrt(VAM^2+2*AAM*AM);
Matriz1=[-LB*sind(AB) -1 -LM*sind(AM);-LB*cosd(AB) 0 LM*cosd(AM);0 0 1];
Matriz2=[0;0;VAM];
MatrixVel = Matrix1 \ Matrix2;
VAB=SpeedMatrix(1);
VC=VelocityMatrix(2);
VAM=VelocityMatrix(3);
VectorVS(k)=VC;
Matriz3=[LB*sind(AB) 1 LM*sind(AM);LB*cos(AB) 0 -LM*cosd(AM);0 0 1];
Matrix4=[-LM*cosd(AM)*VAM^2-LB*cosd(AB)*VAB^2;-
LM*sind(AM)*VAM^2 + LB*sind(AB)*VAB^2; AAM];
MatrixAcc = Matrix3 \ Matrix4;
AAB=MatrixAcc(1);
AC=MatrixAcc(2);
AAM=MatrixAcc(3);
VectorAS(k)=AC;
k=k+1;
%[Link]=VAB;
%[Link]=VC;
%[Link]=AAB;
%[Link]=AC;
end
plot([Link],x,VectorS);
plot(app.UIAxes2, x, VectorVS);
plot(app.UIAxes3, x, VectorAS);
else
errorDlg('Inconsistency in the dimensions of the mechanism');
end
end
end

% Component initialization
methods(Access = private)

Create UIFigure and components

function createComponents(app)

% Create UIFigure and hide until all components are created

[Link] = uifigure('Visible','off');
[Link] = [100 100 697 515];
[Link] ='UI Figure';
Create MECHANISMOBILEMANIVELAXCENTRICLabel
[Link] = uilabel([Link]);
[Link] ='top';
[Link] = 18;
[Link] ='bold';
[Link] = [157 467 406 23];
MECHANISM ROD
ECCENTRIC CRANK

Create InputDataLabel
[Link] = uilabel([Link]);
[Link] ='top';
[Link] ='bold';
[Link] = [153 427 104 15];
[Link] ='Datos de Entrada';

Create LongitudManivelaEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [79 386 106 15];
[Link] ='Longitud Manivela';

% Create Lm
[Link] = uieditfield([Link], 'numeric');
[Link] = [200 382 100 22];

% Create LongitudBielaEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [104 349 84 15];
[Link] ='Longitud Biela';

Create Lb
[Link] = uieditfield([Link], 'numeric');
[Link] = [200 345 100 22];

Create Excentricity Edit Field Label

[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [109 314 79 15];
[Link] ='Excentricidad';

% Create e
app.e = uieditfield([Link], 'numeric');
[Link] = [200 310 100 22];

% Create CrankAngularSpeedEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [24 281 159 15];
[Link] ='Velocidad Angular
Crank

Create Vam
[Link] = uieditfield([Link],'numeric');
[Link] = [200 277 100 22];

Create Crank AngularAcceleration Edit Field Label

[Link] = uilabel([Link]);
[Link] =
right
[Link] ='top';
[Link] = [16 248 169 15];
[Link] ='Aceleración Angular
Crank

Create Aam
[Link] = uieditfield([Link],'numeric');
[Link] = [200 244 100 22];

% Create GRAFICAButton
[Link] = uibutton([Link],'push');
[Link] = createCallbackFcn(app,
@GRAFICAButtonPushed, true);
[Link] = 'bold';
[Link] = [421 420 100 22];
[Link] ='GRAFICA';

% Create UIAxes
[Link] = uiaxes([Link]);
title([Link],'Slider Position')
xlabel([Link],'X')
ylabel([Link],'Y')
[Link] = 0.15;
[Link] = 0.25;
[Link] = [321 229 300 185];

% Create UIAxes2
app.UIAxes2 = uiaxes([Link]);
title(app.UIAxes2, 'Slider Speed')
xlabel(app.UIAxes2,'X')
ylabel(app.UIAxes2,'Y')
[Link] = 0.15;
[Link] = 0.25;
[Link] = [16 31 300 185];

% Create UIAxes3
app.UIAxes3 = uiaxes([Link]);
title(app.UIAxes3,'Acekeracion Corredera')
xlabel(app.UIAxes3,'X')
ylabel(app.UIAxes3,'Y')
[Link] = 0.15;
[Link] = 0.25;
[Link] = [321 31 300 185];
 % Show the figure after all components are created
[Link] = 'on';
end
end

% App creation and deletion

methods(Access = public)

% Construct app
functionapp = MecanismoBielaManivelaExcentricoGraficas

% Create UIFigure and components

createComponents(app)

Register the app with App Designer

registerApp(app, [Link])

ifnargout == 0
clearapp
end
end

% Code that executes before app deletion

function delete(app)

% Delete UIFigure when app is deleted

delete([Link])
end
end
end

APPLICATION INTERFACE (Matlab-App Designer)

TASK 3:

CINEMATIC ANALYSIS:
MATLAB CODE (APP DESIGNER):
classdef CineticaBM < [Link]

% Properties that correspond to app components

properties(Access = public)
UIFigure [Link]
Crank Edit Field Label [Link]
[Link]
White Edit Field Label [Link]
[Link]
Slider Edit Field Label [Link]
[Link]
[Link]
CrankEditField_2Labelmatlab.[Link]
[Link]
BielaEditField_2Labelmatlab.[Link]
[Link]
[Link]
[Link]
[Link]
[Link]
Excentricity
[Link]
Crank Angular Speed Edit Field Label
[Link]
[Link]
[Link]
Moment Edit Field Label [Link]
[Link]
[Link]
[Link]
UIAxes [Link]
[Link]
end

Callbacks that handle component events

methods(Access = private)

% Value changed function: GraficarButton

functionPlotButtonValueChanged(app, event)
LM=[Link];
LB=[Link];
E=[Link];
VAM=[Link];
AAM=[Link];
MM=[Link];
MB=[Link];
MC=[Link];
U=[Link];
M=[Link];
Moments of Inertia
Imm=LM^2*MM/12;
Imb=LB^2*MB/12;
g=9.81;
k=1;
x=0:1:360;
if LB > LM + E
forAM=0:1:360
AB=asind((LM*sind(AM)+E)/LB);
S = LM * cos(LM) + LB * cos(AB);
VectorS(k)=S;
%[Link] = S;
%[Link] = AB;
VAM=sqrt(VAM^2+2*AAM*AM);
Matriz1=[-LB*sind(AB) -1 -LM*sind(AM);-LB*cosd(AB) 0 LM*cosd(AM);0 0 1];
Matriz2=[0;0;VAM];
MatrixVel = Matrix1 \ Matrix2;
VAB=VelMatrix(1);
VC=VelocityMatrix(2);
VAM=VelMatrix(3);
VectorVS(k) = VC;
Matriz3=[LB*sind(AB) 1 LM*sind(AM);LB*cos(AB) 0 -LM*cosd(AM);0 0 1];
Matrix4=[-LM*cosd(AM)*VAM^2-LB*cosd(AB)*VAB^2;-
LM*sind(AM)*VAM^2 + LB*sind(AB)*VAB^2; AAM];
MatrixAcc = Matrix3 \ Matrix4;
AAB=MatrixAcc(1);
AC=MatrizAcc(2);
AAM=MatrixAcc(3);
VectorAS(k)=AC;
%[Link]=VAB;
%[Link]=VC;
%[Link]=AAB;
%[Link]=AC;
CINETICS
AMX = -AAM * LM * sin(AM) / 2 - VAM^2 * LM * cos(AM) / 2;
AMY=AAM*LM*sind(AM)/2-VAM^2*LM*cosd(AM)/2;
ABX = AAB * LB * sin(AB) / 2 + VAB^2 * LB * cos(AB) / 2;
ABY=AAB*LB*sin(AB)/2-VAB^2*LB*cos(AB)/2;
MatrizA=[1 0 1 0 0 0 0 0 0;0 1 0 1 0 0 0 0 0;0 0 -LM*sind(AM) LM*cosd(AM)
0 0 0 0 1;0 0 -1 0 1 0 0 0 0;0 0 0 -1 0 1 0 0 0;0 0 LB*sind(AB)
LB*cosd(AB) 0 0 0 0 0;0 0 0 0 -1 0 U 1 0;0 0 0 0 0 -1 1 0 0;0 0 0 0 0 0 0
0 1];
CHCH=MM*g*(LM/2)*cosd(AM)+Imm*AAM-
MM*AMX*(LM/2)*sind(AM)+MM*AMY*(LM/2)*cosd(AM);
SHSH=Imb*AAB-MB*g*(LB/2)*cosd(AB)-MB*ABX*(LB/2)*sind(AB)-
MB*ABY*(LB/2)*cosd(AB);
MatrizB=[MM*AMX;MM*AMY+MM*g;CHCH;MB*ABX;MB*ABX+MB*g;SHSH;MC*AC;MC*g;M];
MatrixR = MatrixA \ MatrixB;
forceC=MatrixR(8);
momentC=MatrixR(9);
VectorFC(k)=fuerzaC;
VectorMC(k) = momentumC;
k = k + 1;
end
plot([Link],x,VectorFC);
plot(app.UIAxes2, x, VectorMC);
%plot(app.UIAxes3,x,VectorAS);
else
Error dialog('Inconsistency in the dimensions of the mechanism');
end
end
end

% Component initialization
methods(Access = private)

% Create UIFigure and components

function createComponents(app)

Create UIFigure and hide until all components are created

[Link] = uifigure('Visible','off');
[Link] = [100 100 631 545];
[Link] = 'UI Figure';

% Create CrankEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [45 428 55 15];
[Link] ='Manivela';

% Create mm
[Link] = uieditfield([Link], 'numeric');
[Link] = [118 424 100 22];
% Create BielaEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [70 399 33 15];
[Link] ='Biela';

% Create mb
[Link] = uieditfield([Link], 'numeric');
[Link] = [118 395 100 22];

% Create CorrederaEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [42 367 61 15];
[Link] ='Corredera';

% Create mc
[Link] = uieditfield([Link], 'numeric');
[Link] = [118 363 100 22];

Create MASASLabel
[Link] = uilabel([Link]);
[Link] ='top';
[Link] = 'bold';
[Link] = [108 465 49 15];
[Link] ='MASAS';

Create ManivelaEditField_2Label
app.ManivelaEditField_2Label = uilabel([Link]);
app.ManivelaEditField_2Label.HorizontalAlignment ='right';
app.ManivelaEditField_2Label.VerticalAlignment ='top';
app.ManivelaEditField_2Label.Position = [245 428 55 15];
app.ManivelaEditField_2Label.Text ='Manivela';

Create Lm
[Link] = uieditfield([Link],'numeric');
[Link] = [317 424 100 22];

Create BielaEditField_2Label
app.BielaEditField_2Label = uilabel([Link]);
app.BielaEditField_2Label.HorizontalAlignment ='right';
app.BielaEditField_2Label.VerticalAlignment ='top';
app.BielaEditField_2Label.Position = [269 395 33 15];
app.BielaEditField_2Label.Text ='Biela';

% Create Lb
[Link] = uieditfield([Link], 'numeric');
[Link] = [317 391 100 22];

% Create LongitudesLabel
[Link] = uilabel([Link]);
[Link] ='top';
[Link] ='bold';
[Link] = [302 466 68 15];
[Link] ='Longitudes';

Create CFriccionEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [439 428 63 15];
[Link] ='C. Friccion';

% Create u
app.u = uieditfield([Link],'numeric');
[Link] = [517 424 100 22];

% Create CINETICABIELAMANIVELALabel
[Link] = uilabel([Link]);
[Link] ='top';
[Link] = 20;
[Link] ='bold';
[Link] = [204 497 278 26];
[Link] ='CINETICA BIELA MANIVELA';

% Create ExcentricityEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [222 362 79 15];
[Link] ='Excentricidad';

% Create e
app.e = uieditfield([Link], 'numeric');
[Link] = [316 358 100 22];

Create CrankAngularVelocityEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [141 299 159 15];
[Link] ='Velocidad Angular
Crank

% Create Vam
[Link] = uieditfield([Link],'numeric');
[Link] = [317 295 100 22];

Create CrankAngularAccelerationEditFieldLabel
[Link] = uilabel([Link]);
[Link] =
right
[Link] ='top';
[Link] = [133 266 169 15];
[Link] ='Aceleración Angular
Crank

Create Aam
[Link] = uieditfield([Link],'numeric');
[Link] = [317 262 100 22];

% Create MomentoEditFieldLabel
[Link] = uilabel([Link]);
[Link] ='right';
[Link] ='top';
[Link] = [440 294 56 15];
[Link] ='Momento';

% Create m
app.m = uieditfield([Link],'numeric');
[Link] = [511 290 100 22];

% Create InputDataLabel
[Link] = uilabel([Link]);
[Link] ='top';
[Link] ='bold';
[Link] = [280 327 103 15];
[Link] ='Datos de entrada';

Create GraficarButton
[Link] = uibutton([Link], 'state');
[Link] = createCallbackFcn(app,
@GraficarButtonValueChanged, true);
[Link] ='Graficar';
[Link] ='bold';
[Link] = [245 223 100 22];

% Create UIAxes
[Link] = uiaxes([Link]);
title([Link],'Fuerza')
xlabel([Link],'X')
ylabel([Link],'Y')
[Link] = 0.15;
[Link] = 0.25;
[Link] = [12 1 300 185];

Create UIAxes2
app.UIAxes2 = uiaxes([Link]);
title(app.UIAxes2,'Momento')
xlabel(app.UIAxes2,'X')
ylabel(app.UIAxes2,'Y')
[Link] = 0.15;
[Link] = 0.25;
[Link] = [311 1 300 185];

Show the figure after all components are created

[Link] ='on';
end
 end

App creation and deletion

methods(Access = public)

% Construct app
functionapp = CineticaBM

% Create UIFigure and components

createComponents(app)

% Register the app with App Designer

registerApp(app, [Link])

ifnargout == 0
clearapp
end
end

% Code that executes before app deletion

function delete(app)

% Delete UIFigure when app is deleted

delete([Link])
end
end
end
APPLICATION INTERFACE (Matlab-App Designer)

BIBLIOGRAPHY:

• Fundamentals of Machine Theory. Antonio Simón Mata. Bellisco Publishing. Technical and Scientific Editions
• Theory of Machines and Mechanisms. Joseph Edward Shigley and John Joseph Uicker JR. McGraw-Hill Publishing
Hill.
• Fundamentos de mecanismos y máquinas para ingenieros. Roque Calero Pérez y J.A. Carta González.
McGraw-Hill Editorial.