Origin画出拟合曲线上任意一点的切线的方法

1、记下如下代码：

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、如有需要，可以自行制作一个按钮将此脚本关联。

至此，切线的绘制完成。

如需要制作多条切线，把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

};