3拟合方法数控机床的刀具补偿.doc

下载文档

0
0
约小于1千字
约 7页
2017-04-21 发布于重庆
举报
版权申诉
保障服务

3拟合方法数控机床的刀具补偿.doc

1、本文档共7页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

3拟合方法数控机床的刀具补偿

拟合方法实验数控机床的刀具补偿实验目的实验指导 t={0,1,2,3,4,5,6,7}; y={27.0,26.8,26.5,26.3,26.1,25.7,25.3,24.8}; data=Transpose[{t,y}] d1=ListPlot[data,PlotStyle-{RGBColor[0,0,1], PointSize[0.02]},PlotRange-{24,27.5}]; M[a_,b_]:=Sum[(y[[i]]-(a+b t[[i]]))^2,{i,1,8}]; eqt={D[M[a,b],a]==0,D[M[a,b],b]==0}//Simplify r=Solve[eqt,{a,b}] {{a?27.125,b?-0.303571}} f[x_]=a+b x/.r[[1]] g1=Plot[f[x],{x,-1,9}, PlotStyle-RGBColor[1.000,0,0.000]]; Show[g1,d1] ; Fit[data,{1,x},x] 27.125 -0.303571 x Fit[data,{1,x,x^2},x] g2=Plot[%,{x,-1,9}, PlotStyle-RGBColor[1.000,0.000,1.000]]; Show[g2,d1]; t1={3,6,9,12,15,18,21,24}; y1={57.6,41.9,31.0,22.7,16.6,12.2,8.9,6.5}; data1=Transpose[{t1,y1}]; d2=ListPlot[data1,PlotStyle-{RGBColor[0,0,1],PointSize[0.02]}]; logy=Log[y1]; data2=Transpose[{t1,logy}]; d3=ListPlot[data2,PlotStyle-{RGBColor[0,0,1], PointSize [0.02] }]; ly=Fit[data2,{1,x},x] y=Exp[ly]//Factor g=Plot[y,{x,1,25}, PlotStyle-RGBColor[1.000,0.000,0.502]]; Show[g, d2];