Connecting Rod Angle

Input := 

Plot[fi[t]/Degree, {t, 0, T},
	PlotLabel -> "Connecting Rod Angular Position",
	AxesLabel -> {"t [sec]", "Angle [deg]"}]

Output =

-Graphics-

Input := 

Plot[ fi'[t], {t, 0, T},
	PlotLabel -> "Connecting Rod Angular Velocity",
	AxesLabel -> {"t [sec]", "[deg/sec]"}]

Output =

-Graphics-

Maximum and minimum values of connecting rod angular velocity.

Input := 

{fi'[T/2], fi'[0]}

Output =

{34.1942, -34.1942}

Input := 

Plot[ fi''[t], {t, 0, T},
	PlotLabel -> "Connecting Rod Angular Acceleration",
	AxesLabel -> {"t [sec]", "[deg/sec^2]"}]

Output =

-Graphics-

Maximum and minimum values of connecting rod angular acceleration

Input := 

{fi''[T/4], fi''[3T/4]}

Output =

{3788.47, -3788.47}