?? wip.m
字號(hào):
function I=wip(f,g,wipr,wint,dom)
% f: q columns and g: p columns, representing values of
% some q respectively p functions at the Legendre grid
% wipr: weight column of the inner product - values at the Legendre grid
% wint: Gauss quadrature weights
% dom: working interval
% I: p rows and q columns, represents the weighted inner product of f by g
[m,q]=size(f);[n,p]=size(g);
if n~=m disp('n~=m');return;end;
gg=repmat(wint'.*wipr,[1,p]).*g;
I=(dom(2)-dom(1))/2*(f'*gg)';
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -