www.pudn.com > leidaxitong.rar > myxs.m, change:2005-07-09,size:354b

% 
%取得脉压系数 
% 
 
function [myxs,B2]=myxs(b2,f) 
f1=10e6; 
b2=gf1(b2);                   %高放 
b2=hunpin(b2,f1,0.2,0.6);   %混频到10M 
b2=hunpin(b2,f1,0.1,0.3); 
% b2=hunpin(b2,20e6,0.1,0.3); 
b2=4*b2; 
[b2i,b2q]=xwjb(real(b2)); 
[b2i,fadi]=a2d(b2i,f); 
[b2q,fadq]=a2d(b2q,f); 
B2=b2i+j*b2q; 
myxs1=fliplr(conj(B2));     %共轭反转 
myxs=fft(myxs1);