OriginPro 8做切线.docVIP

OriginPro 8.1画出拟合曲线上任意一点的切线 作者：陈超铭????厚朴教育来源：本站原创????点击数：5889????更新时间：11/28/2010 　　这两天都在研究Origin，为了做作业吧。别人问我怎么画切线？我谷哥了一下也没找到什么特别方法，网上一般都是说用Tangent这个插件（具体教程可以参考：《用Origin处理数据》），但是我在自己的电脑上试了一下貌似没反应，画不出来。不知道是不是只适用于7.0、7.5和8.0这三个版本，8.1的就支持得不好了。因此，花了点时间在官网论坛上面寻找答案。 　　解决方法如下： 　　1.记下如下代码： 1 2 3 4 5 6 7 8 9 10 11 12 dotool 3;? // Data Reader tool def pointproc { ??dotool -q; ??%b=xof(%c);? // X dataset for the current one ??p1=(%C[index+1]-%C[index])/(%b[index+1]-%b[index]); ??p2=(%C[index]-%C[index-1])/(%b[index]-%b[index-1]); ??p=(p1+p2)/2; ??c=y-p*x; ??ftang(x)=$(p)*x+$(c); ??layer -i200 ftang; // Plot as Line... ??set ftang -c 4; // ...in blue }; 　　2.先将数据处理好，画出拟合曲线。 ? 　　3.快捷键ALT+3打开脚本窗口，复制上述脚本至脚本窗口中，按回车运行。 ? 　　4.此时Data Reader Tool会被激活，鼠标指针变成十字方框，用此工具选择图像中的任意一点，双击后切线将自动生成。 ? ? 　　5.如有需要，可以自行制作一个按钮将此脚本关联（PS：教程上如是说，有待实践）。 　　至此，切线的绘制完成。 1 2 3 4 5 6 7 8 9 10 11 如需要制作多条切线，把ftang ??ftang(x)=$(p)*x+$(c); ??layer -i200 ftang; // Plot as Line... ??set ftang -c 4; // ...in blue }; ? 改成不同的名字后重新运行就可以了。 ??ftang2(x)=$(p)*x+$(c); ??layer -i200 ftang; // Plot as Line... ??set ftang2 -c 4; // ...in blue }; 　　其实画图工具有很多，Excel、TableCurve 2D（传说里面有上万种不同的拟合方程）和SigmaPlot（传说Nature、Science上面的图都是用这软件画的），还有我们之前用过的SPSS之类的都可以用的。不过Origin要用好还真不容易，好好学吧。