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、先將數(shù)據(jù)處理好，畫出擬合曲線。

3、快捷鍵ALT+3打開腳本窗口，復(fù)制上述腳本至腳本窗口中，按回車運行。

4、此時Data Reader Tool會被激活，鼠標(biāo)指針變成十字方框，用此工具選擇圖像中的任意一點，雙擊后切線將自動生成。

5、如有需要，可以自行制作一個按鈕將此腳本關(guān)聯(lián)。

至此，切線的繪制完成。

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

};