fertigen Code zum laufen bringen --> eilt auch :)

WICHTIG: Der Betrieb von goMatlab.de wird privat finanziert fortgesetzt. - Mehr Infos...

Partner:

Forum

Option

[Erweitert]

• Diese Seite per Mail weiterempfehlen

Gehe zu:

beijo

Forum-Anfänger


	Beiträge: 14

	Anmeldedatum: 14.05.09

	Wohnort: ---

	Version: ---

Verfasst am: 22.06.2009, 14:20 Titel: fertigen Code zum laufen bringen --> eilt auch :)

Hallo, ich hab hier einen fast fertigen Pseudoinversen Wiener-Filter. Problem ist, ich bekomme ihn nicht zum laufen. Kann mir das jemand machen? Natuerlich gegen Bezahlung! Hier der Code:

Code:

function invers=pseudowiener(psf,B,alpha,beta,gamma);
tamh=max(size(psf));
tamg=max (size(B));% Image
padd=2.*max(tamh,tamg)-1;
%padd=tamg;
H=psf2otf(psf);
g=B;
g=[g(:,(tamg-1)./2:tamg) zeros([tamg padd-tamg]),g(:,1:(tamg-1)./2-1)];
g=[g((tamg-1)./2:tamg,:);zeros([padd-tamg padd]);g(1:(tamg-1)./2-1,:)];
mask1=(abs(H)<=gamma);
mask2=(abs(H)>gamma);
Be=mask2./(H.*mask2+mask1)+abs(H).*mask1./(H.*gamma.*mask1+mask2);
clear mask1;
clear mask2;
%---
medmask=fspecial(3,3);
filtmed=mfilt.firdecim(medmask);
proxRuido= B-filtmed %annaeherung an das Rauschen
NSR = proxRuido/B;
%---
jan=jansep(NSR,'hamming');
Rn=jan.*proxRuido;
Rn=[Rn(:,(tamRn-1)./2:tamRn) zeros([tamRn padd-tamRn]),Rn(:,1:(tamRn-1)./2-1)];
Rn=[Rn((tamRn-1)./2:tamRn,:);zeros([padd-tamRn padd]);Rn(1:(tamRn-1)./2-1)];
Sn=fftn(Rn,padd,padd)./(tamRn.^2); clear Rn;
Sn=abs(Sn);
jan=jansep(tamRi,'hamming');
Ri=jan.*Ri;
Ri=[Ri(:,(tamRi-1)./2:tamRi) zeros([tamRi padd-tamRi]),Ri(:,1:(tamRi-1)./2-1)];
Ri=[Ri((tamRi-1)./2:tamRi,:);zeros([padd-tamRi padd]);Ri(1:(tamRi-1)./2-1,:)];
Si=fftn(Ri,padd,padd)./(tamRi.^2); clear Ri;
Si=abs(Si);
g=g-(proxRuido+NSR);
G=fftn(g,padd,paddd)./(filtmed^2); clear g
Red=1./(1+alpha.*(Sn./Si).*Be);
Red=Red.^beta;
W=Red.*Be;
Fs=W.*G;
fs=abs(iffts(Fs));
fs=fs+filtmed;
invers=fs;

Funktion ohne Link?

jansep Code=

Code:

function JAN=jansep(N,X);
if strcmp(X,'triang');
Xx=triang(N);
elseif strcmp (X,'hamming')
Xx=hamming(N);
elseif strcmp (X,'hanning')
Xx=hanning(N);
elseif strcmp(X,'blackman')
Xx=blackman(N)
end;

y=Xx;
Xx=ones(size(y))*Xx';
y=Xx';
jan=Xx.*y;
clear Xx; clear y;

Funktion ohne Link?

Vielen Dank

tompie

Forum-Guru


	Beiträge: 260

	Anmeldedatum: 19.09.07

	Wohnort: München

	Version: immer alles

Verfasst am: 29.07.2009, 21:59 Titel:

Hallo,

ist der Auftrag noch aktuell? Ich denke, daß ich das lösen könnte...

Gruß tompie


Einstellungen und Berechtigungen
Beiträge der letzten Zeit anzeigen:	Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum posten Du kannst Dateien in diesem Forum herunterladen

Impressum | Nutzungsbedingungen | Datenschutz | FAQ |

RSS

Hosted by:

Copyright © 2007 - 2024 goMatlab.de | Dies ist keine offizielle Website der Firma The Mathworks

MATLAB, Simulink, Stateflow, Handle Graphics, Real-Time Workshop, SimBiology, SimHydraulics, SimEvents, and xPC TargetBox are registered trademarks and The MathWorks, the L-shaped membrane logo, and Embedded MATLAB are trademarks of The MathWorks, Inc.