qf.m

来自「压缩文件中是Error Correction Coding - Mathemat」· M 代码 · 共 23 行

function p = qf(xlist)
% 
% Compute the Q function:
%
% function p = qf(x)
%   p = 1/sqrt(2pi)int_x^infty exp(-t^2/2)dt
% Vector arguments are allowed.

% Copyright 2004 by Todd K. Moon
% Permission is granted to use this program/data
% for educational/research only


p = zeros(size(xlist));
i = 0;
for x = xlist
  i = i+1;
  if(x < 0)
	p(i) = 1- 0.5*erfc(-x/sqrt(2));
  else
	p(i) = 0.5*erfc(x/sqrt(2));
  end
end