下面提供比贴在17楼更高效的
多项式系数提取函数。
最大不同就是新版本不再使用变量temp
==================================================
function [c,t]= poly_coeffs_new(fcn,var)
% 输入:
% fcn 为待确定系数值多项式的符号表达式
% var 为多项式的主变量,如果是单变量可省略之。
% 输出:
% c 为多项式系数向量,输出变量为两个时(即[c,t]),c向量分量从左到右所对应的变量幂次由高到低。
% 输出变量(只有c或没有时), c向量分量从左到右所对应的变量幂次由低到高。
% t 与系数向量相对应项的变量向量,即 fcn=c*conj(t)'
var0=findsym(fcn);
if nargin<2;
var=var0;
lvar=length(var0);
else
if ismember(abs(char(var)),abs(char(var0)))
lvar=1; %%% 'var' is included