看到了一个有趣的制作,哪位大神知道详细的制作方法
本帖最后由 luqimaster 于 2014-3-1 08:50 编辑http://e.hiphotos.bdimg.com/album/s%3D1400%3Bq%3D90/sign=1774486f9113b07eb9bd540c3ce7aa52/9f510fb30f2442a735b532ebd343ad4bd01302c1.jpg
图片有问题,楼主再发一次 机械臂+三轴+如果要看是否擦干净害得加上图像识别 hi55234 发表于 2014-3-1 09:55 static/image/common/back.gif
机械臂+三轴+如果要看是否擦干净害得加上图像识别
复制图片地址后可以看到gif动画。就是最近总能看到的,写字时钟。
擦除的部分,就不需要图像识别了,换个好点的笔擦就解决了。图像识别有点太劳师动众了。
很简单,笔的位置已知,两只4节摆臂的长度已知,摆臂末端电机轴心的距离已知,笔位置变换,就能计算出摆臂末端的角度了。然后然两个舵机转动就是了。不需要落笔的时候让第3只舵机抬起摆臂总成就是了。现在要做的事情就是找到初中几何再复习一下就可以了。 用这个可以做一个教小朋友学写字的玩具 算法代码,
Dim L3N As Double = (Math.Sqrt((X.Text - XL.Text) ^ 2 + (Y.Text - YL.Text) ^ 2))
Dim R3N As Double = (Math.Sqrt((X.Text - XR.Text) ^ 2 + (Y.Text - YR.Text) ^ 2))
Dim CL = Math.Acos((L1N ^ 2 + L3N ^ 2 - L2N ^ 2) / 2 / L1.Text / L3N) * 180 / Math.PI + Math.Atan((Y.Text - YL.Text) / (X.Text - XL.Text)) * 180 / Math.PI
Dim CR = Math.Acos((R1N ^ 2 + R3N ^ 2 - R2N ^ 2) / 2 / R1.Text / R3N) * 180 / Math.PI + Math.Atan((Y.Text - YR.Text) / (XR.Text - X.Text)) * 180 / Math.PI
Damn_intuition 发表于 2014-3-5 20:18 static/image/common/back.gif
算法代码,
看来还要补数学了。。。。
页:
[1]