function [fq_percent]=fqbrainp( fq_raw, point, line)
% fqBrainp.m plot (Apparent, True, Expectation) from 1column of 4Q [A B C D] raw count, rev TLYeh 90,7,22
% fq_raw=[a; b; c; d]
% fq_percent returns the percentage of [A B C D] 
% also plot on current figure window one 4Q square, with 
%   line/tips style specified by character string 'line'/'point', 
% usually plot styles as
%   Apparent=solid, True=doted-circle, Expectation=dashed-cross
fq_percent=fq_raw/sum(fq_raw); 
% x-y coordinates of the {A,B,C,D} 4 tips
xy=[-1 1; -1 -1; 1 -1; 1 1]; % use 1,1 x-y componet as the unit vector
x=fq_percent.*xy(:,1); y=fq_percent.*xy(:,2); 
plot(x,y,point) % plot the tips
axis([-1 1 -1 1]);
hold on, plot([x;x(1)],[y;y(1)],line) % plot the enclosed 4Q square
% plot grids for each deci
for k=0:.1:.9; plot(k*xy(:,1),k*xy(:,2),'x'); end;
hold off
return
