%$RCSfile: BedingteWktHIV.m,v $ $Revision: 1.1.1.1 $
format long e,format compact
% hier ausw"ahlen:
disp(['Gesamtpersonenzahl']); anzahl= 8.2e7,HIVpos= 4.0e4
% oder 
%disp(['weibliche Personen']); anzahl= 4.2e7,HIVpos= 8.3e3
%%% Berechnungen:
% definiere P(+|HIV) und P(+|nicht HIV)
pPHIV=1.0; pPNHIV=0.002;
% berechne P(HIV) und P(nicht HIV) und gib aus
pHIV=HIVpos/anzahl, pNHIV=1-pHIV
% berechne P(+)
pP=pPHIV*pHIV+pPNHIV*pNHIV;
% berchne P(nicht HIV|+) und gib Resultat aus
pNHIVP=(pPNHIV*pNHIV)/(pP)
