luqimaster 发表于 2014-3-1 08:41:56

看到了一个有趣的制作,哪位大神知道详细的制作方法

本帖最后由 luqimaster 于 2014-3-1 08:50 编辑

http://e.hiphotos.bdimg.com/album/s%3D1400%3Bq%3D90/sign=1774486f9113b07eb9bd540c3ce7aa52/9f510fb30f2442a735b532ebd343ad4bd01302c1.jpg

zlmneve 发表于 2014-3-1 09:50:54

图片有问题,楼主再发一次

hi55234 发表于 2014-3-1 09:55:36

机械臂+三轴+如果要看是否擦干净害得加上图像识别

shihaipeng04 发表于 2014-3-2 00:40:10

hi55234 发表于 2014-3-1 09:55 static/image/common/back.gif
机械臂+三轴+如果要看是否擦干净害得加上图像识别

复制图片地址后可以看到gif动画。就是最近总能看到的,写字时钟。

擦除的部分,就不需要图像识别了,换个好点的笔擦就解决了。图像识别有点太劳师动众了。

很简单,笔的位置已知,两只4节摆臂的长度已知,摆臂末端电机轴心的距离已知,笔位置变换,就能计算出摆臂末端的角度了。然后然两个舵机转动就是了。不需要落笔的时候让第3只舵机抬起摆臂总成就是了。现在要做的事情就是找到初中几何再复习一下就可以了。

futuremeng 发表于 2014-3-3 14:13:18

用这个可以做一个教小朋友学写字的玩具

Damn_intuition 发表于 2014-3-5 20:18:55

算法代码,


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


      

luqimaster 发表于 2014-3-21 16:25:37

Damn_intuition 发表于 2014-3-5 20:18 static/image/common/back.gif
算法代码,




看来还要补数学了。。。。
页: [1]
查看完整版本: 看到了一个有趣的制作,哪位大神知道详细的制作方法