カム
カム
2021/06/29 by Oz@SIT
適当な式でカムを作ります。
r=1;x=r(1+0.2th)Cos[th];y=r(1+0.2th)Sin[th];ParametricPlot[{x,y},{th,0,2Pi}]
Out[]=
回転させてみます。
r=1;xx=r(1+0.2th)Cos[th];yy=r(1+0.2th)Sin[th];Animate[Rotate[ParametricPlot[{xx,yy},{th,0,2Pi}],tth],{tth,0,2Pi}]
Out[]=
カムの半径をr、回転角度をΘとする極座標を考えると、半径の変化がカム上で動く物体の動きとなる。例えば上のカムだと
x=(1+0.2th)Cos[th];y=(1+0.2th)Sin[th];r=Sqrt[x^2+y^2];Plot[r,{th,0,2Pi},PlotRange{0,2.5}]
Out[]=
このカムが回転したときに、このカムで押されたロッドの動きをシミュレーションしてみました。
r=1;x=r(1+0.2th)Cos[th];y=r(1+0.2th)Sin[th];Animate[Graphics[{Rectangle[{-3,0},{3,0.2}],Rectangle[{-1,0},{1,Sqrt[x^2+y^2]/.thth1}]},PlotRange{{-3,3},{0,3}}],{th1,0,2Pi}]
Out[]=
変な形のカムにしてみます。それでカムに押されたロッドの上に白い円を置いて動かしてみました。
r=1;x=r(1+Sin[th])Cos[th];y=r(1+Sin[th-Pi/2])Sin[th];ParametricPlot[{x,y},{th,0,2Pi}]Animate[Graphics[{Rectangle[{-6,0},{6,0.2}],Rectangle[{-1,0},{1,Sqrt[x^2+y^2]/.thth1}],Circle[{0,1.3+Sqrt[x^2+y^2]/.thth1},1.5]},PlotRange{{-3,3},{0,5}}],{th1,0,2Pi}]
Out[]=
Out[]=
以上よりカムの設計はどのような動きをさせたいかを極座標 (r, Θ) で検討すればよい。
だんだん高くなり、その後低くなる次のような動きを考える。
その時のカムの形は、
ゆっくりサインカーブで揺れるような動きを考える。
その時のカムの形は、
2度高くなって、その後低くなる次のような動きを考える。
その時のカムの形は、