Sarrus linkage (supplement)
Sarrus linkage (supplement)
Sándor Kabai
Two hinge arrangements aligned perpendicularly to each other ensure that a moving platform remains parallel to the base.
Two hinge arrangements aligned perpendicularly to each other ensure that a moving platform remains parallel to the base.
In[]:=
Manipulate[c1=PolyhedronData["Cube","Faces"];base=Scale[Translate[c1,{0,0,-0.5}],{1,0.5,0.2},{0,0,0}];z=top={RGBColor[0,1,1],Translate[base,{0,0,Sin[α]+0.4Cos[α]+0.2}]};sp=Sphere[{0,0,0},0.03];block1=Rotate[Translate[Scale[base,{0.5,1,1},{0,0,0}],{0.25,0,0.2}],α,{0,1,0},{0.5,0,0}];block2=Rotate[Translate[Translate[Scale[base,{0.5,1,1},{0,0,0}],{0.25,0,0.4}],{0,0,Sin[α]+0.4Cos[α]-0.4}],-α,{0,1,0},{0.5,0,Sin[α]+0.4Cos[α]}];hingeA={Yellow,Cylinder[{{0.5,-0.25,0},{0.5,0.25,0}},0.015]};hingeB={Yellow,Cylinder[{{0.5,-0.25,Sin[α]+0.4Cos[α]},{0.5,0.25,Sin[α]+0.4Cos[α]}},0.015]};hingeC={Yellow,Cylinder[{{0.2Sin[α]+(0.5-0.5Cos[α]),-0.25,0.5Sin[α]+0.2Cos[α]},{0.2Sin[α]+(0.5-0.5Cos[α]),0.25,0.5Sin[α]+0.2Cos[α]}},0.015]};block34=Translate[Rotate[{block1,block2,hingeA,hingeB,hingeC},-Pi/2,{0,0,1}],{-0.25,0.25,0}];Graphics3D[{block34,hingeA,hingeB,hingeC,top,block1,block2,RGBColor[0,0.7,1],base},PlotRange{{-0.53,0.7},{-0.5,0.25},{-0.2,1.4}},SphericalRegionTrue,BoxedFalse],{{α,0,"lift"},0,Pi/2}]
Out[]=
