A rotating pin engages one of the radial slots of a disk, which turns until the pin disengages. This mechanism is used for converting continuous rotary motion to intermittent rotary motion.
In[]:=
Manipulateshaft1={Specularity[0.7],RGBColor[1,0.4,1],Cylinder[{{0,0,0},{0,0,0.18}},0.3]};shaft1a=Cylinder[{{0,0,-0.8},{0,0,0}},0.16];p=0.1Tan[Pi/n];w=0.14;Ax=0;(*Setnumberofslotshere*)n=6;r=0.1;Ay=rSin[Pi/n];Az=0;vA={Ax,Ay,Az};vA1={Ax,Ay,w};Bx=(1-p)Sin[Pi/n];By=Ay+(1-p)Cos[Pi/n];Bz=0;vB={Bx,By,Bz};vB1={Bx,By,w};Cx=-(1-p)Sin[Pi/n];Cy=Ay+(1-p)Cos[Pi/n];Cz=0;vC={Cx,Cy,Cz};vC1={Cx,Cy,w};g1=Polygon[{vA,vB,vC}];g2=Polygon[{vA1,vB1,vC1}];g3=Polygon[{vA,vA1,vB1,vB}];g4=Polygon[{vB,vB1,vC1,vC}];g5=Polygon[{vC,vC1,vA1,vA}];Ex=Sin[Pi/n];Ey=Cos[Pi/n];R=ExCos[Pi/n];Gy=ExTan[Pi/n];g=Ey+Gy;disk={Specularity[0.7],RGBColor[0.2,0.4,1],Cylinder[{{0,g,-0.02},{0,g,-0.14}},R+r]};shaft2={Specularity[0.7],RGBColor[0.2,0.4,0.5],Cylinder[{{0,g,-0.8},{0,g,0.8}},0.18]};line=Rotate[Line[{{-R-r,g,-0.02},{R+r,g,-0.02}}],rot,{0,0,1},{0,g,0}];pin={Specularity[0.4],RGBColor[0.7,1,0.2],Rotate[Cylinder[{{0,g-R,0},{0,g-R,w+0.1}},r],rot,{0,0,1},{0,g,0}]};IfArcCos+>rot>-ArcCos+,alf=ArcTan[RSin[rot]/(g-RCos[rot])];geneva=Rotate[Table[Rotate[{g1,g2,g3,g4,g5},i2Pi/n+Pi/n,{0,0,1}],{i,n}],-alf,{0,0,1}];Graphics3D[{line,pin,disk,geneva,shaft1,shaft1a,shaft2},BoxedFalse,SphericalRegionTrue,ViewAngle0.13,ViewPoint{2,-4,6},PlotRange{{-1.2,1.2},{-1,2.6},{-0.8,0.8}}],{{rot,0.1,"rotate"},-Pi,Pi},TrackedSymbolsManipulate,SaveDefinitions->True
gR--+
2
Tan
π
n
4
R
2
g
2
R
2
Tan
π
n
4
R
2
Tan
π
n
2
R
2
R
2
Tan
π
n
gR--+
2
Tan
π
n
4
R
2
g
2
R
2
Tan
π
n
4
R
2
Tan
π
n
2
R
2
R
2
Tan
π
n
Out[]=
