牛头刨床C语言模拟

温德平 3080301044 江苏大学机械 0802 班 数字化设计与制造报告作业 图 牛头刨床各点标号 34 373839 3 6 7 3536 3 6 7 6 3 6 7 3 6 7 1 3 6 7 3 6 7 33 3 6 7 3 3 6 7 4 3 6 7 L3 5 3 6 7 3 6 7 8 3 6 7 3 6 7 9 3 6 7 3 6 7 11 3 6 7 3 6 7 12 3 6 7 1 3 6 7 3 6 7 14 3 6 7 13 3 6 7 3 6 7 16 3 6 7 3 6 7 15 3 6 7 3 6 7 18 3 6 7 17 3 6 7 3 6 7 19 3 6 7 3 6 7 40 3 6 7 3 6 7 41 3 6 7 3 6 7 27 3 6 7 3 6 7 28 3 6 7 3 6 7 21 3 6 7 3 6 7 33 3 6 7 20 3 6 7 22 3 6 7 3 6 7 33 3 6 7 29 3 6 7 3 6 7 33 3 6 7 23 3 6 7 3 6 7 33 3 6 7 32 3 6 7 3 6 7 33 3 6 7 31 3 6 7 3 6 7 33 3 6 7 30 3 6 7 3 6 7 33 3 6 7 0 3 6 7 3 6 7 33 3 6 7 24 3 6 7 3 6 7 33 3 6 7 26 3 6 7 3 6 7 33 3 6 7 25 3 6 7 2h 3 6 7 L1 3 6 7 L2 3 6 7 A 3 6 7 温德平 3080301044 江苏大学机械 0802 班 数字化设计与制造报告作业 思路 采用擦 画 擦方法绘制动画 把各个坐标值表示成 L1 L2 A 的函数 然后有序连接各坐标点绘成一幅画 暂 停一定时间后将原先画的图画擦除 同时使变量 变化一个增量 然后再画一幅新的图画 如此循环 便构成一部动画 通过动画可以明显地看到牛头刨床的运动特性 include stdio h include graphics h include math h define PI 3 1415926 define X 300 相对坐标原点 X Y define Y 300 main double l1 l2 l3 a k h t int drive DETECT gmode int m double i j i 为 a 杆的转角 j 为连杆的转角 struct ss double x y struct qq int x y struct ss aa 42 定义 42 个计算坐标点 struct qq bb 42 定义 42 个绘图坐标点 printf please input the length of l1 l2 a n nJust like 100 80 30 n scanf lf lf lf 输入杆长及位置尺寸 k a 5 0 h 10 t 10 initgraph 初始化图形界面 setbkcolor 11 背景色为淡蓝色 for i 0 i PI 400 每次旋转 PI 400 画一幅图 l3 sqrt a a l2 l2 2 a l2 cos i j acos l2 l2 l3 l3 a a 2 l2 l3 if i 2 PI 对转角进行处理 i 2 PI else if i PI j 0 j aa 0 x aa 0 y 0 计算各点的坐标值 aa 8 x 0 aa 8 y l2 aa 14 x a sin i aa 14 y l2 a cos i aa 6 x l1 l2 tan j aa 6 y l1 l2 温德平 3080301044 江苏大学机械 0802 班 数字化设计与制造报告作业 aa 13 x k cos j k sin j aa 14 x aa 13 y k sin j k cos j aa 14 y aa 12 x k cos j k sin j aa 14 x aa 12 y k sin j k cos j aa 14 y aa 15 x k cos j k sin j aa 14 x aa 15 y k sin j k cos j aa 14 y aa 16 x k cos j k sin j aa 14 x aa 16 y k sin j k cos j aa 14 y aa 27 x l1 a k sin j aa 6 x aa 27 y l1 a k cos j aa 6 y aa 9 x l1 a 2 k sin j aa 6 x aa 9 y l1 a 2 k cos j aa 6 y aa 11 x k cos j aa 27 x aa 11 y k sin j aa 27 y aa 10 x k cos j aa 27 x aa 10 y k sin j aa 27 y aa 29 x l1 l2 k sin j aa 6 x aa 29 y l1 l2 k cos j aa 6 y aa 20 x l1 l2 2 k sin j aa 6 x aa 20 y l1 l2 2 k cos j aa 6 y aa 21 x k cos j aa 29 x aa 21 y k sin j aa 29 y aa 22 x k cos j aa 29 x aa 22 y k sin j aa 29 y aa 32 x l1 l2 2 a 2 k sin j aa 6 x aa 32 y l1 l2 2 a 2 k cos j aa 6 y aa 30 x k cos j aa 32 x aa 30 y k sin j aa 32 y aa 31 x k cos j aa 32 x aa 31 y k sin j aa 32 y aa 1 x a aa 6 x aa 1 y h aa 6 y aa 2 x a aa 6 x aa 2 y h aa 6 y aa 5 x a t aa 6 x aa 5 y aa 2 y aa 4 x a t aa 6 x aa 4 y 3 h aa 6 y aa 3 x a aa 6 x aa 3 y 3 h t aa 6 y aa 7 x l1 l2 2 0 aa 6 x aa 7 y h aa 6 y aa 28 x l1 a k sin j aa 6 x aa 28 y l1 a k cos j aa 6 y aa 17 x k cos j aa 28 x aa 17 y k sin j aa 28 y aa 18 x k cos j aa 28 x aa 18 y k sin j aa 28 y aa 19 x l1 a 2 k sin j aa 6 x aa 19 y l1 a 2 k cos j aa 6 y aa 23 x k cos j k sin j aa 23 y k sin j k cos j aa 24 x k cos j k sin j aa 24 y k sin j k cos j aa 25 x k cos j k sin j aa 25 y k sin j k cos j aa 26 x k cos j k sin j aa 26 y k sin j k cos j aa 33 x 0 aa 33 y l1 l2 h aa 34 x l1 l2 2 0 aa 34 y l1 l2 h aa 35 x t aa 34 x aa 35 y aa 34 y aa 36 x 2 t aa 34 x aa 36 y aa 34 y aa 37 x t aa 34 x aa 37 y t aa 34 y aa 38 x 2 t aa 34 x aa 38 y aa 37 y aa 39 x 3 t aa 34 x aa 39 y aa 37 y aa 40 x t aa 8 x aa 40 y t aa 8 y aa 41 x t aa 8 x aa 41 y t aa 8 y for m 0 m 41 m 将各计算坐标转换为绘图坐标 bb m x int aa m x X bb m y int aa m y Y 温德平 3080301044 江苏大学机械 0802 班 数字化设计与制造报告作业 setfillstyle 1 1 绘制刨床滑枕 bar bb 1 x bb 1 y bb 7 x bb 7 y setcolor 7 绘制刨刀 moveto bb 2 x bb 2 y lineto bb 3 x bb 3 y lineto bb 4 x bb 4 y lineto bb 5 x bb 5 y lineto bb 2 x bb 2 y setfillstyle 1 7 floodfill bb 2 x bb 4 x 2 bb 2 y bb 4 y 2 7 setcolor 5 绘制机床支架 moveto bb 33 x bb 33 y lineto bb 34 x bb 34 y lineto bb 37 x bb 37 y moveto bb 35 x bb 35 y lineto bb 38 x bb 38 y moveto bb 36 x bb 36 y lineto bb 39 x bb 39 y setcolor 4 绘制连杆 moveto bb 6 x bb 6 y lineto bb 9 x bb 9 y arc bb 27 x bb 27 y 180 j PI 180 j PI 180 k moveto bb 11 x bb 11 y lineto bb 18 x bb 18 y moveto bb 10 x bb 10 y lineto bb 17 x bb 17 y arc bb 28 x bb 28 y 180 j PI 180 180 j PI k moveto bb 19 x bb 19 y lineto bb 20 x bb 20 y arc bb 29 x bb 29 y 180 j PI 180 j PI 180 k moveto bb 22 x bb 22 y lineto bb 31 x bb 31 y moveto bb 21 x bb 21 y lineto bb 30 x bb 30 y setcolor 2 绘制两滑块 moveto bb 23 x bb 23 y lineto bb 24 x bb 24 y 温德平 3080301044 江苏大学机械 0802 班 数字化设计与制造报告作业 lineto bb 26 x bb 26 y lineto bb 25 x bb 25 y lineto bb 23 x bb 23 y setfillstyle 1 2 floodfill bb 23 x bb 26 x 2 bb 23 y bb 26 y 2 2 moveto bb 12 x bb 12 y lineto bb 13 x bb 13 y lineto bb 16 x bb 16 y lineto bb 15 x bb 15 y lineto bb 12 x bb 12 y floodfill bb 12 x bb 16 x 2 bb 12 y bb 16 y 2 2 setcolor 4 绘制主动件摇杆 moveto bb 14 x bb 14 y lineto bb 8 x bb 8 y lineto bb 40 x bb 40 y lineto bb 41 x bb 41 y lineto bb 8 x bb 8 y circle bb 8 x bb 8 y t 4 绘制转动