origin透過一點做另一條曲線的切線解決方法如下:
1、記下如下程式碼:
12dotool 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會被啟用,滑鼠指標變成十字方框,用此工具選擇影象中的任意一點,雙擊後切線將自動生成。
PS:
如需要製作多條切線,把ftang
改成不同的名字後重新執行就可以了。
ftang2(x)=$(p)*x+$(c);
set ftang2 -c 4; // ...in blue
origin透過一點做另一條曲線的切線解決方法如下:
1、記下如下程式碼:
12dotool 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會被啟用,滑鼠指標變成十字方框,用此工具選擇影象中的任意一點,雙擊後切線將自動生成。
PS:
如需要製作多條切線,把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
};