// Spektralanalyse FFT, Power und Korrelation, Sekundenweise zweidimensional
// Name: Analyse-2d-v4-01.sc
// Datum: 3.5.2018
/////////////////////////////////////////////////////////////////////////////
mclose('all');
clear;
xdel();
z=struct('info',0,'pfad','','datei','','pfaddatei','','samplerate',48000,'laufzeit',0,'kanalzahl',0,'kanal',0,'verstaerkung',1,'position',1,'start1',0,'start2',0,'oberfrequenz',5000,'unterfrequenz',1,'gleichstrom',0,'ei',0,'au',0,'ff0',0,'ff',0,'power',0,'korr',0,'fkorr',0,'rev',0,'h1x',48000,'z21',0,'z22',0,'z41',0,'z42',0,'gra1',0,'gra2',0,'gra3',0,'gra4',0,'gra5',0,'gra6',0,'da',0,'fe1',0,'fe2',0);
/////////////////////////////////////////////////////////////////////////////
function [z]=neu(z)
//////////////////////////////////////////////////////////////////////////////
// WAV Datei auswählen   D:\Mdaten\Testsignale/100Hz-03A_g.wav
[z.datei,z.pfad]=uigetfile('*.wav','D:\Mdaten');    //WAV Datei wählen
if isequal(z.datei,'');    //Ist eine Date gewählt?
    else
z.pfaddatei=z.pfad+'\'+z.datei;  //Vollständigen Pfad erstellen 
z.info = wavread(z.pfaddatei,'info');  //WAV Info`s laden
disp('//////////////////////////////////////////////////////////')
disp('WAV-Datei: '+z.pfaddatei); //Ausgabe vollständiger Pfad
disp('Kanäle: '+string(z.info(2)));   //Ausgabe Anzahl der Kanäle
disp('Samplerate: '+string(z.info(3)));   //Ausgabe Samplerate
disp('Dateilänge : '+string(z.info(8)));    //Ausgabe Dateilänge
disp('Laufzeit : '+string(z.info(8)/z.info(3))+' Sekunden');    //Laufzeit in Sek.
disp('//////////////////////////////////////////////////////////')
z.laufzeit=floor(z.info(8)/z.info(3)); // lauzeit in sekunden
z.samplerate=z.info(3); //Samplerate der Audiodatei
set(u12,'string','Pfad: '+z.pfad); // dateiname ins formular
set(u12a,'string','Datei: '+z.datei); // dateiname ins formular
set(ua6,'string','Samplefrequenz '+string(z.samplerate)); // sampelfrequenz ins formular
// zeitachse fenster 1 und 4
// zeitachse
[z]=fenster1(z);
//kanal
z.kanalzahl=z.info(2);
set(uc1,'string','Kanal 1/'+string(z.kanalzahl)); 
set(uc1,'value',0); 
z.kanal=1;
// verstaerkung
z.verstaerkung=uc6.value
// oberfrequenz
z.oberfrequenz=uc8.value;
z.unterfrequenz=uc10.value;
// positionb1
set(uc2,'string',string(z.laufzeit));
set(uc4,'min',1);
set(uc4,'max',z.laufzeit);
z.posi=uc4.value;
// wav datei startposition einstellen
[z]=rechenwerk(z)
[z]=fober(z)//
[z]=funter(z)
//fenster 1 wav eingang
[z]=malen1(z)
//fenster 1 wav ausgang
[z]=malen2(z)
//fenster 1 korrelation
[z]=malen3(z)
//fenster1 legend1
[z]=legend1(z)
//fenster 2 fft
[z]=malen4(z)
//fenster 2 power
[z]=malen5(z)
//fenster 2 wkorr
[z]=malen6(z)
//legenden
[z]=legend2(z)
end
endfunction
/////////////////////////////////////////////////////////////////////////////
function [z]=rechenwerk(z)// rechenwerk
//// FFT brechnen
if z.position<z.laufzeit then
z.start1=z.samplerate*(z.position-1)+1;
z.start2=z.samplerate*z.position;
z.ei=wavread(z.pfaddatei,[z.start1 z.start2]); 
z.ei=z.ei(z.kanal,:);
z.ei=z.ei*z.verstaerkung;// verstärkung
z.rev=fft(z.ei,-1,'nonsymmetric'); //Die FFT wird berechnen
z.rev=z.rev/z.samplerate;
z.gleichstrom=z.rev(1);
z.rev=z.rev(2:z.samplerate)
z.ff=z.rev(1:5000);
z.ff=abs(z.ff)
// powerspektrum
z.power=z.rev.* conj(z.rev);   //Powerspektrum der FFT berechnen
z.power=z.power(1:5000);
z.power=abs(z.power)
//autokorrelation
[cov]=corr(z.ei,z.samplerate-1);
z.korr=cov
z.fkorr=fft(cov,-1,'nonsymmetric'); //Die FFT wird berechnen
z.fkorr=z.fkorr/z.samplerate;
z.fkorr=z.fkorr(2:5001)
z.fkorr=abs(z.fkorr)
// normieren
z.gleichstrom=z.gleichstrom;// normieren
set(ua5a,'string',string(z.gleichstrom));
z.ff=z.ff*2000;// normieren fft
z.power=z.power*4000;// normieren power
z.fkorr=z.fkorr*8000;// normieren revision
//disp(max(z.korr))
//Sinuswerte 
//eingangssignal
//maximalwert
a=max(z.ei)
//arithmetischer mittelwert Uav
b=abs(z.ei);
b=sum(b);
b=b/z.samplerate;
//quadratischer mittelwert Ueff
c=z.ei.^2;
c=sum(c)
c=c/z.samplerate;
c=sqrt(c)
//
set(ua2a,'string',string(a));
set(ua3a,'string',string(b));
set(ua4a,'string',string(c));
///////////////////////////////////////////////
//maximumfft
[g1a,g1b]=gsort(z.ff,'c');
g1a=g1a(1:5);
g1a=floor(g1a)
g1a=g1a/1000;
g1b=g1b(1:5)
set(um2a,'string',string(g1b(1)))
set(um3a,'string',string(g1b(2)))
set(um4a,'string',string(g1b(3)))
set(um5a,'string',string(g1b(4)))
set(um6a,'string',string(g1b(5)))
//
set(um2b,'string',string(g1a(1)))
set(um3b,'string',string(g1a(2)))
set(um4b,'string',string(g1a(3)))
set(um5b,'string',string(g1a(4)))
set(um6b,'string',string(g1a(5)))
/////////////////////////////////
[g2a,g2b]=gsort(z.power,'c');
g2a=g2a(1:5);
g2a=floor(g2a)
g2a=g2a/1000;
g2b=g2b(1:5);
//maximum power
set(un2a,'string',string(g2b(1)))
set(un3a,'string',string(g2b(2)))
set(un4a,'string',string(g2b(3)))
set(un5a,'string',string(g2b(4)))
set(un6a,'string',string(g2b(5)))
//
set(un2b,'string',string(g2a(1)))
set(un3b,'string',string(g2a(2)))
set(un4b,'string',string(g2a(3)))
set(un5b,'string',string(g2a(4)))
set(un6b,'string',string(g2a(5)))
///////////////////////////////////
//maximum corr
[g3a,g3b]=gsort(z.fkorr,'c');
g3a=g3a(1:5);
g3a=floor(g3a)
g3a=g3a/1000;
g3b=g3b(1:5);
//
set(up2a,'string',string(g3b(1)))
set(up3a,'string',string(g3b(2)))
set(up4a,'string',string(g3b(3)))
set(up5a,'string',string(g3b(4)))
set(up6a,'string',string(g3b(5)))
//
set(up2b,'string',string(g3a(1)))
set(up3b,'string',string(g3a(2)))
set(up4b,'string',string(g3a(3)))
set(up5b,'string',string(g3a(4)))
set(up6b,'string',string(g3a(5)))
///////////////////////////////////
end
///
endfunction
/////////////////////////////////////////////////////////////////////////////
//malen in fenster 1
function [z]=malen1(z)
sca(z.fe1)
if z.gra1==0 then else delete(z.gra1) end
plot2d(z.ei)
z.gra1=gce()
z.gra1.children.thickness=1
z.gra1.children.foreground=color('blue')
[z]=sicht1(z)
endfunction
//
function [z]=malen2(z)
sca(z.fe1)
if z.gra2==0 then else delete(z.gra2) end
plot2d(z.au)
z.gra2=gce()
z.gra2.children.thickness=1
z.gra2.children.foreground=color('red')
[z]=sicht2(z)
endfunction
//
function [z]=malen3(z)
sca(z.fe1)
if z.gra3==0 then else delete(z.gra3) end
plot2d(z.korr)
z.gra3=gce()
z.gra3.children.thickness=1
z.gra3.children.foreground=color('black')
[z]=sicht3(z)
endfunction
//
function [z]=malen4(z)
sca(z.fe2)
if z.gra4==0 then else delete(z.gra4) end
plot2d2(z.ff)
z.gra4=gce()
z.gra4.children.thickness=2
z.gra4.children.foreground=color('blue')
[z]=sicht4(z)
endfunction
//
function [z]=malen5(z)
sca(z.fe2)
if z.gra5==0 then else delete(z.gra5) end
plot2d2(z.power)
z.gra5=gce()
z.gra5.children.thickness=2
z.gra5.children.foreground=color('red')
[z]=sicht5(z)
endfunction
//
function [z]=malen6(z)
sca(z.fe2)
if z.gra6==0 then else delete(z.gra6) end
plot2d2(z.fkorr)
z.gra6=gce()
z.gra6.children.thickness=2
z.gra6.children.foreground=color('black')
[z]=sicht6(z)
endfunction
/////////////////////////////////////////////////////////////////////
function [z]=legend1(z)
//legende 1
sca(z.fe1);
z.lege1=legend(['Eingang';'Ausgang';'Autokorrelation']);
endfunction
////////////////////////////////////////////////////////////////////
function [z]=legend2(z)
//legende 2
sca(z.fe2);
z.lege2=legend(['Spektrum';'Leistungsspektrum';'Spektrum Autokorrelation']);
endfunction
///////////////////////////////////////////////////////////
function [z]=sicht1(z)
//
if ub1.value==1 then z.gra1.visible='on' else z.gra1.visible='off' end
endfunction
/////////////////////////////
function [z]=sicht2(z)
//
if ub2.value==1 then z.gra2.visible='on' else z.gra2.visible='off' end
endfunction
////////////////////////////
function [z]=sicht3(z)
//
if ub3.value==1 then z.gra3.visible='on' else z.gra3.visible='off' end
endfunction
/////////////////////////////
function [z]=sicht4(z)
//
if uh1.value==1 then z.gra4.visible='on' else z.gra4.visible='off' end
endfunction
/////////////////////////////
function [z]=sicht5(z)
//
if uh2.value==1 then z.gra5.visible='on' else z.gra5.visible='off' end
endfunction
/////////////////////////////
function [z]=sicht6(z)
//
if uh3.value==1 then z.gra6.visible='on' else z.gra6.visible='off' end
endfunction
/////////////////////////////
function [z]=sicht7(z)
//
if ub4.value==1 then z.lege1.visible='on' else z.lege1.visible='off' end
endfunction
/////////////////////////////
function [z]=sicht8(z)
//
if uh4.value==1 then z.lege2.visible='on' else z.lege2.visible='off' end
endfunction
//////////////////////////////////////////////////////////////////////
function [z]=verst(z)
//// verstaerkung
z.verstaerkung=uc6.value
[z]=rechenwerk(z)
[z]=fober(z)//
[z]=funter(z)
//fenster 1 wav eingang
[z]=malen1(z)
//fenster 1 wav ausgang
[z]=malen2(z)
//fenster 1 korrelation
[z]=malen3(z)
//fenster1 legend1
[z]=legend1(z)
//fenster 2 fft
[z]=malen4(z)
//fenster 2 power
[z]=malen5(z)
//fenster 2 wkorr
[z]=malen6(z)
//legend2
[z]=legend2(z)
endfunction
/////////////////////////////////////////////////////////////////////////////
function [z]=kanal(z)
//// kanal 1/2
if z.kanalzahl==1 then set(uc1,'value',0) end;
if z.kanalzahl==2 & uc1.value==1 then
z.kanal=2 
[z]=rechenwerk(z)
[z]=fober(z)//
[z]=funter(z)
//fenster 1 wav eingang
[z]=malen1(z)
//fenster 1 wav ausgang
[z]=malen2(z)
//fenster 1 korrelation
[z]=malen3(z)
//fenster1 legend1
[z]=legend1(z)
//fenster 2 fft
[z]=malen4(z)
//fenster 2 power
[z]=malen5(z)
//fenster 2 wkorr
[z]=malen6(z)
//legenden
[z]=legend1(z)
[z]=legend2(z)
else 
z.kanal=1
[z]=rechenwerk(z)
[z]=fober(z)//
[z]=funter(z)
//fenster 1 wav eingang
[z]=malen1(z)
//fenster 1 wav ausgang
[z]=malen2(z)
//fenster 1 korrelation
[z]=malen3(z)
//fenster1 legend1
[z]=legend1(z)
//fenster 2 fft
[z]=malen4(z)
//fenster 2 power
[z]=malen5(z)
//fenster 2 wkorr
[z]=malen6(z)
//legend2
[z]=legend1(z)
[z]=legend2(z)
end    
endfunction
///////////////////////////////////////////////////////////////////////////
function [z]=fober(z)
//
if z.ei==0 then abort end
z.oberfrequenz=uc8.value;
if z.oberfrequenz > 5000 then z.oberfrequenz=5000 end;
if z.oberfrequenz < 1 then z.oberfrequenz=1 end;
if z.oberfrequenz < z.unterfrequenz then z.unterfrequenz=z.oberfrequenz;set(uc10,'value',z.oberfrequenz) end;
y(1:z.samplerate)=0
y(z.unterfrequenz+1:z.oberfrequenz+1)=z.rev(z.unterfrequenz:z.oberfrequenz);
z.au=fft(y,1)
z.au=z.au*z.samplerate*2;
[z]=malen2(z)
[z]=legend1(z)
//
a=sum(abs(z.ei(1:z.samplerate)))
b=sum(abs(z.au(1:z.samplerate)))
a=a/0.6366106
c=b*100/a
c=floor(c)
set(ua7,'string','Ausgang '+string(c)+ ' % von Eingang')
endfunction
/////////////////////////////////////////////////////////////////////////////
function [z]=funter(z)
//
if z.ei==0 then abort end
z.unterfrequenz=uc10.value;
if z.unterfrequenz > 5000 then z.unterfrequenz=5000 end;
if z.unterfrequenz < 1 then z.unterfrequenz=1 end;
if z.unterfrequenz > z.oberfrequenz then z.oberfrequenz=z.unterfrequenz;set(uc8,'value',z.unterfrequenz) end;
y(1:z.samplerate)=0
y(z.unterfrequenz+1:z.oberfrequenz+1)=z.rev(z.unterfrequenz:z.oberfrequenz);
z.au=fft(y,1)
z.au=z.au*z.samplerate*2;
[z]=malen2(z)
[z]=legend1(z)
//
a=sum(abs(z.ei(1:z.samplerate)))
b=sum(abs(z.au(1:z.samplerate)))
a=a/0.6366106
c=b*100/a
c=floor(c)
set(ua7,'string','Ausgang '+string(c)+ ' % von Eingang')
endfunction
////////////////////////////////////////////////////////////////////////////
function [z]=pos(z)
z.position=uc4.value;  
[z]=rechenwerk(z)
[z]=fober(z)//
[z]=funter(z)
//fenster 1 wav eingang
[z]=malen1(z)
//fenster 1 wav ausgang
[z]=malen2(z)
//fenster 1 korrelation
[z]=malen3(z)
//fenster1 legend1
[z]=legend1(z)
//fenster 2 fft
[z]=malen4(z)
//fenster 2 power
[z]=malen5(z)
//fenster 2 wkorr
[z]=malen6(z)
//legend2
[z]=legend2(z)
//   
endfunction
/////////////////////////////////////////////////////////////////////////////
function [z]=fenster1(z)
// zeitachse
z.h1x=0:z.samplerate/10:z.samplerate;
z.h1x=floor(z.h1x);
z.fe1.x_ticks=tlist(['locations','labels'],[z.h1x],["0","100","200","300","400","500","600","700","800","900","1000"]);
z.fe1.data_bounds(2,1)=z.samplerate;    
z.fe1.x_label.text="Zeit in Millisekunden";
endfunction
/////////
function [z]=fenster2(z)
//fenster 2
select z.z21; // ////////////////////////////////////////fenster 2 amplitude
case 100; // ///////////////////////////////////////fenster 2 , amplitude 100
z.fe2.y_ticks=tlist(['locations','labels'],[0,100,200,300,400,500,600,700,800,900,1000],["0","0.1","0.2","0.3","0.4","0.5","0.6","0.7","0.8","0.9","1"]);
zh=z.fe2.data_bounds;
zh(1,2)=0;
zh(2,2)=1000;
z.fe2.data_bounds =zh;   
case 50; /////////////////////////////////////////// fenster 2 , amplitude 50
z.fe2.y_ticks=tlist(['locations','labels'],[0,50,100,150,200,250,300,350,400,450,500],["0","0.05","0.1","0.15","0.2","0.25","0.3","0.35","0.4","0.45","0.5"]);
zh=z.fe2.data_bounds;
zh(1,2)=0;
zh(2,2)=500;
z.fe2.data_bounds =zh;        
case 25; ////////////////////////////////////////// fenster 2 , amplitude 25
z.fe2.y_ticks=tlist(['locations','labels'],[0,25,50,75,100,125,150,175,200,225,250],["0","0.025","0.05","0.075","0.1","0.125","0.15","0.175","0.2","0.225","0.25"]);
zh=z.fe2.data_bounds;
zh(1,2)=0;
zh(2,2)=250;
z.fe2.data_bounds =zh;
case 10; // /////////////////////////////////////////fenster 2 , amplitude 10
z.fe2.y_ticks=tlist(['locations','labels'],[-100,-90,-80,-70,-60,-50,-40,-30,-20,-10,0,10,20,30,40,50,60,70,80,90,100],["-0.1","-0.09","-0.08","-0.07","-0.06","-0.05","-0-04","-0.03","-0.02","-0.01","0","0.01","0.02","0.03","0.04","0.05","0.06","0.07","0.08","0.09","0.1"]);     
zh=z.fe2.data_bounds;
zh(1,2)=0;
zh(2,2)=100;
z.fe2.data_bounds =zh;
case 1; //////////////////////////////////////////// fenster 2 , amplitude 1
z.fe2.y_ticks=tlist(['locations','labels'],[0,1,2,3,4,5,6,7,8,9,10],["0","0.001","0.002","0.003","0.004","0.005","0.006","0.007","0.008","0.009","0.01"]);
zh=z.fe2.data_bounds;
zh(1,2)=0;
zh(2,2)=10;
z.fe2.data_bounds =zh;       
end
//////////////////////////////////////////////////////////////////////////
select z.z22; ///////////////////////////////////// fenster 2 frequenzachse
case 10000; /////////////////////////////////// fenster 2 , frequenzachse 10000
z.fe2.x_ticks=tlist(['locations','labels'],[0,1000,2000,3000,4000,5000,6000,7000,8000,9000,10000],["0","1 k","2 k","3 k","4 k","5 k","6 k","7 k","8 k","9 k","10 k"]);   
z.fe2.sub_tics=[9,9,9];     
zh=z.fe2.data_bounds;
zh(1,1)=0;
zh(2,1)=10000;
z.fe2.data_bounds =zh;
case 5000; //////////////////////////////////// fenster 2 , frequenzachse 5000
z.fe2.x_ticks=tlist(['locations','labels'],[0,1000,2000,3000,4000,5000],["0","1000","2000","3000","4000","5000"]);   
z.fe2.sub_tics=[9,9,9];     
zh=z.fe2.data_bounds;
zh(1,1)=0;
zh(2,1)=5000;
g.fe2.data_bounds =zh;
case 2000 //////////////////////////////////// fenster 2 , frequenzachse 2000
z.fe2.x_ticks=tlist(['locations','labels'],[0,500,1000,1500,2000],["0",'500',"1000",'1500',"2000"]);        
z.fe2.sub_tics=[9,9,9];
zh=z.fe2.data_bounds;
zh(1,1)=0;
zh(2,1)=2000;
z.fe2.data_bounds =zh;
case 1000; ////////////////////////////////////// fenster 2 , frequenzachse 1000
z.fe2.x_ticks=tlist(['locations','labels'],[0,100,200,300,400,500,600,700,800,900,1000],['0','100','200','300','400','500','600','700','800','900','1000']);  
z.fe2.sub_tics=[9,9,9];      
zh=z.fe2.data_bounds;
zh(1,1)=0;
zh(2,1)=1000;
z.fe2.data_bounds =zh;
case 500; ////////////////////////////////////// fenster 2 , frequenzachse 500
z.fe2.x_ticks=tlist(['locations','labels'],[0,100,200,300,400,500],['0','100','200','300','400','500']);  
z.fe2.sub_tics=[9,9,9];      
zh=z.fe2.data_bounds;
zh(1,1)=0;
zh(2,1)=500;
z.fe2.data_bounds =zh;
case 250; ////////////////////////////////////// fenster 2 , frequenzachse 250
z.fe2.x_ticks=tlist(['locations','labels'],[0,50,100,150,200,250],['0','50','100','150','200','250']);  
z.fe2.sub_tics=[4,9,9];      
zh=z.fe2.data_bounds;
zh(1,1)=0;
zh(2,1)=250;
z.fe2.data_bounds =zh;
case 120; ////////////////////////////////////// fenster 2 , frequenzachse 120
z.fe2.x_ticks=tlist(['locations','labels'],[0,10,20,30,40,50,60,70,80,90,100,110,120],['0','10','20','30','40','50','60','70','80','90','100','110','120']);  
z.fe2.sub_tics=[9,9,9];      
zh=z.fe2.data_bounds;
zh(1,1)=0;
zh(2,1)=120;
z.fe2.data_bounds =zh;
case 60; ////////////////////////////////////// fenster 2 , frequenzachse 60
z.fe2.x_ticks=tlist(['locations','labels'],[0,5,10,15,20,25,30,35,40,45,50,55,60],['0','5','10','15','20','25','30','35','40','45','50','55','60']);  
z.fe2.sub_tics=[4,9,9];      
zh=z.fe2.data_bounds;
zh(1,1)=0;
zh(2,1)=60;
z.fe2.data_bounds =zh;
case 30; ////////////////////////////////////// fenster 2 , frequenzachse 60
z.fe2.x_ticks=tlist(['locations','labels'],[0,5,10,15,20,25,30],['0','5','10','15','20','25','30']);  
z.fe2.sub_tics=[4,9,9];      
zh=z.fe2.data_bounds;
zh(1,1)=0;
zh(2,1)=30;
z.fe2.data_bounds =zh;
end
endfunction
//////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
/////////     S T A R T      //////////////////////////////////////
//////////////////////////////////////////////////////////////////// start
// Formular erstellen
z.fo=figure('position',[10,10,1400,900]);
z.fo.background= 33;
z.fo.color_map = jetcolormap(1000); //Colormap festlegen
z.fo.visible = "on";
z.fo.figure_name="Analyse-2d-v4-01.sc";
z.fo.BackgroundColor=[1 1 1];
// controls in das Formular einbauen

///////////////////////////////////////graphen fenster 1
ub1=uicontrol(z.fo,"style","radiobutton",'HorizontalAlignment','left','position', [1315 850 75 15],'string','Eingang','value',1,'callback','[z]=sicht1(z)');
ub2=uicontrol(z.fo,"style","radiobutton",'HorizontalAlignment','left','position', [1315 830 75 15],'string','Ausgang','value',0,'callback','[z]=sicht2(z)');
ub3=uicontrol(z.fo,"style","radiobutton",'HorizontalAlignment','left','position', [1315 810 75 15],'string','Korrelatio','value',0,'callback','[z]=sicht3(z)');

//legende1
ub4=uicontrol(z.fo,"style","radiobutton",'HorizontalAlignment','left','position', [1315 790 75 15],'string','Legende1','value',1,'callback','[z]=sicht7(z)');

// kanalwahl
uc1=uicontrol(z.fo,"style","radiobutton", 'position', [1315 765 75 20],'HorizontalAlignment','left','string','Kanal 1/2','value',0,'callback','[z]=kanal(z)');

// position
uc2=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1340 745 50 15],'string','0');
uc3=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1315 745 25 15],'string','Sek.');
uc4=uicontrol(z.fo,"style","spinner", 'position', [1315 720 75 25],'HorizontalAlignment','center','VerticalAlignment','middle','min',1,'max',1,'SliderStep',[1,10],'Title_position','top','callback','[z]=pos(z)');

// verstärkung
uc5=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1315 700 75 15],'string','Verstärkung');
uc6=uicontrol(z.fo,"style","spinner",'string','Hallo','Title_position','top', 'position', [1315 675 75 25],'HorizontalAlignment','center','VerticalAlignment','middle','min',1,'max',10,'SliderStep',[1,10],'Title_position','top','callback','[z]=verst(z)');
z.verstaerkung=uc6.value;

// fmax
uc7=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1315 655 75 15],'string','F max (Hz)');
uc8=uicontrol(z.fo,"style","spinner", 'position', [1315 630 75 25],'HorizontalAlignment','center','VerticalAlignment','middle','min',1,'max',5000,'SliderStep',[1,10],'Title_position','top','value',5000,'callback','[z]=fober(z)');

//fmin
uc9=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1315 610 75 15],'string','F min (Hz)');
uc10=uicontrol(z.fo,"style","spinner", 'position', [1315 585 75 25],'HorizontalAlignment','center','VerticalAlignment','middle','min',1,'max',5000,'SliderStep',[1,10],'Title_position','top','value',1,'callback','[z]=funter(z)');

//////////////////////////////////
//Play
ud1=uicontrol(z.fo,"style","pushbutton", 'Relief','raised','position', [1315 555 75 20],'string','Play Eingang','callback','playsnd(z.ei,z.samplerate)');
ud2=uicontrol(z.fo,"style","pushbutton", 'Relief','raised','position', [1315 530 75 20],'string','Play Ausgang','callback','playsnd(z.au,z.samplerate)');
//////////////////////////////////

// Neu
ud3=uicontrol(z.fo,"style","pushbutton",'Relief','raised', 'position', [1315 490 75 20],'string','Neu','callback','[z]=neu(z)');

// Exit
ud4=uicontrol(z.fo,"style","pushbutton", 'Relief','raised','position', [1315 460 75 20],'string','Exit','callback','close');

//einzelwerte fenster 1
ua1=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 850 170 15],'string','Werte auf Sinussignal bezogen');
ua2=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 830 40 15],'string','U max');
ua2a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1180 830 120 15],'string','');
ua3=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 810 40 15],'string','U av');
ua3a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1180 810 120 15],'string','');
ua4=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 790 40 15],'string','U eff');
ua4a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1180 790 120 15],'string','');
ua5=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 770 40 15],'string','U gl');
ua5a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1180 770 120 15],'string','');
ua6=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 750 170 15],'string','');//samplefrequenz
ua7=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 730 170 15],'string','');//prozentanteil
///////////////////////////////////////amplitude fenster 2
uj1=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2','HorizontalAlignment','left','position', [1315 330 75 15],'string','Amp. 1','value',1,'callback','z.z21=100;[z]=fenster2(z)');
uj2=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2','HorizontalAlignment','left','position', [1315 310 75 15],'string','Amp. 0,5','value',0,'callback','z.z21=50;[z]=fenster2(z)');
uj3=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2','HorizontalAlignment','left','position', [1315 290 75 15],'string','Amp. 0,25','value',0,'callback','z.z21=25;[z]=fenster2(z)');
uj4=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2','HorizontalAlignment','left','position', [1315 270 75 15],'string','Amp. 0,1','value',0,'callback','z.z21=10;[z]=fenster2(z)');
uj5=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2','HorizontalAlignment','left','position', [1315 250 75 15],'string','Amp. 0,01','value',0,'callback','z.z21=1;[z]=fenster2(z)');
/////////////////////////////////////frequenz fenster 2
uk1=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2f','HorizontalAlignment','left','position', [1315 230 75 15],'string','5.000 Hz','value',1,'callback','z.z22=5000;[z]=fenster2(z)');
uk2=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2f','HorizontalAlignment','left','position', [1315 210 75 15],'string','2.000 Hz','value',0,'callback','z.z22=2000;[z]=fenster2(z)');
uk3=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2f','HorizontalAlignment','left','position', [1315 190 75 15],'string','1.000 Hz','value',0,'callback','z.z22=1000;[z]=fenster2(z)');
uk4=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2f','HorizontalAlignment','left','position', [1315 170 75 15],'string','500 Hz','value',0,'callback','z.z22=500;[z]=fenster2(z)');
uk5=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2f','HorizontalAlignment','left','position', [1315 150 75 15],'string','250 Hz','value',0,'callback','z.z22=250;[z]=fenster2(z)');
uk6=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2f','HorizontalAlignment','left' ,'position', [1315 130 75 15],'string','120 Hz','value',0,'callback','z.z22=120;[z]=fenster2(z)');
uk7=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2f','HorizontalAlignment','left','position', [1315 110 75 15],'string','60 Hz','value',0,'callback','z.z22=60;[z]=fenster2(z)');
uk8=uicontrol(z.fo,"style","radiobutton",'groupname','fenster2f','HorizontalAlignment','left','position', [1315 90 75 15],'string','30 Hz','value',0,'callback','z.z22=30;[z]=fenster2(z)');

///////////////////////////////////////graphen fenster 2
uh1=uicontrol(z.fo,"style","radiobutton",'HorizontalAlignment','left','position', [1315 410 75 15],'string','FFT','value',1,'callback','[z]=sicht4(z)');
uh2=uicontrol(z.fo,"style","radiobutton",'HorizontalAlignment','left','position', [1315 390 75 15],'string','Power','value',0,'callback','[z]=sicht5(z)');
uh3=uicontrol(z.fo,"style","radiobutton",'HorizontalAlignment','left','position', [1315 370 75 15],'string','Korrela.','value',0,'callback','[z]=sicht6(z)');

//legende 2
uh4=uicontrol(z.fo,"style","radiobutton",'HorizontalAlignment','left','position', [1315 350 75 15],'string','Legende2','value',1,'callback','[z]=sicht8(z)');

//Einzelwerte fenster 2
um1=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 410 170 15],'string','Maximum der FFT');
um2=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 390 15 15],'string','1.');
um3=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 370 15 15],'string','2.');
um4=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 350 15 15],'string','3.');
um5=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 330 15 15],'string','4.');
um6=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 310 15 15],'string','5.');
//
um2a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 390 40 15],'string','');
um3a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 370 40 15],'string','');
um4a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 350 40 15],'string','');
um5a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 330 40 15],'string','');
um6a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 310 40 15],'string','');
//
um2b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 390 40 15],'string','');
um3b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 370 40 15],'string','');
um4b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 350 40 15],'string','');
um5b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 330 40 15],'string','');
um6b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 310 40 15],'string','');
///////power///////////////////////////////////////////////////////////////////////////////////////////////////////
un1=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 290 170 15],'string','Maximum der Power FFT');
un2=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 270 15 15],'string','1.');
un3=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 250 15 15],'string','2.');
un4=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 230 15 15],'string','3.');
un5=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 210 15 15],'string','4.');
un6=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 190 15 15],'string','5.');
//
un2a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 270 40 15],'string','');
un3a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 250 40 15],'string','');
un4a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 230 40 15],'string','');
un5a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 210 40 15],'string','');
un6a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 190 40 15],'string','');
//
un2b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 270 40 15],'string','');
un3b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 250 40 15],'string','');
un4b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 230 40 15],'string','');
un5b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 210 40 15],'string','');
un6b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 190 40 15],'string','');
///////power/////////////////////////////////////////////////////////////////////////////////////////
up1=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 170 170 15],'string','Maximum der Korrelation');
up2=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 150 15 15],'string','1.');
up3=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 130 15 15],'string','2.');
up4=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 110 15 15],'string','3.');
up5=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 90 15 15],'string','4.');
up6=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1130 70 15 15],'string','5.');
//
up2a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 150 40 15],'string','');
up3a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 130 40 15],'string','');
up4a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 110 40 15],'string','');
up5a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 90 40 15],'string','');
up6a=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1150 70 40 15],'string','');
//
up2b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 150 40 15],'string','');
up3b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 130 40 15],'string','');
up4b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 110 40 15],'string','');
up5b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 90 40 15],'string','');
up6b=uicontrol(z.fo,"style","text",'HorizontalAlignment','center' ,'position', [1200 70 40 15],'string','');

//Abgrenzungen
u0a=uicontrol(z.fo,"style","text",'backgroundcolor',[0.1 1 0.8],'HorizontalAlignment','right' ,'position', [55 870 1245 15],'string','Wav Signale ');
u0b=uicontrol(z.fo,"style","text",'backgroundcolor',[0.1 1 0.8],'HorizontalAlignment','right' ,'position', [55 433 1245 15],'string','Analysen ');
u0c=uicontrol(z.fo,"style","text",'backgroundcolor',[0.1 1 0.8],'HorizontalAlignment','left' ,'position', [1315 870 75 15],'string','');
u0d=uicontrol(z.fo,"style","text",'backgroundcolor',[0.1 1 0.8],'HorizontalAlignment','left' ,'position', [1315 785 75 5],'string','');
u0e=uicontrol(z.fo,"style","text",'backgroundcolor',[0.1 1 0.8],'HorizontalAlignment','left' ,'position', [1315 580 75 5],'string','');
u0f=uicontrol(z.fo,"style","text",'backgroundcolor',[0.1 1 0.8],'HorizontalAlignment','left' ,'position', [1315 515 75 5],'string','');
u0g=uicontrol(z.fo,"style","text",'backgroundcolor',[0.1 1 0.8],'HorizontalAlignment','left' ,'position', [1315 435 75 15],'string','');
u0h=uicontrol(z.fo,"style","text",'backgroundcolor',[0.1 1 0.8],'HorizontalAlignment','left' ,'position', [1315 345 75 5],'string','');
u0i=uicontrol(z.fo,"style","text",'backgroundcolor',[0.1 1 0.8],'HorizontalAlignment','left' ,'position', [1315 245 75 5],'string','');
u0j=uicontrol(z.fo,"style","text",'backgroundcolor',[0.1 1 0.8],'HorizontalAlignment','left' ,'position', [1315 85 75 5],'string','');
////////////
// Dateianzeige
u12=uicontrol(z.fo,"style","text",'HorizontalAlignment','left' ,'position', [50 0 500 15],'string','');
u12a=uicontrol(z.fo,"style","text",'HorizontalAlignment','left' ,'position', [620 0 500 15],'string','');
//////////////////////////////////////garphicfenster einbauen
z.fe1 = newaxes(); // oben 
z.fe1.axes_bounds = [0,0,1,0.5];
//
z.fe2 = newaxes(); // unten
z.fe2.axes_bounds = [0,0.47,1,0.5];
//
//////////////////////////////////////////graphicpfeile
///////////////////////////////////////fenster 1 obenlinks
sca(z.fe1)
z.fe1.visible = "on";
z.fe1.axes_visible = ["on","on","on"];
z.fe1.axes_reverse = ["off","off","off"];
z.fe1.auto_ticks = ["off","off","off"];
z.fe1.grid = [1,1];
z.fe1.grid_thickness = [1,1];
z.fe1.grid_style = [1,1];
z.fe1.grid_position = "background";
z.fe1.title.font_size=2;
z.fe1.title.text="";
z.fe1.x_label.font_size=2;
z.fe1.x_label.text="Zeit in Millisekunden";
z.fe1.x_label.visible="on";
z.fe1.y_label.font_size=2;
z.fe1.y_label.text="Amplitude";
z.fe1.y_label.visible="on";
z.fe1.auto_scale="off";
z.fe1.auto_margins = "off"
z.fe1.margins = [0.04,0.2,0.07,0.1]
// zeitachse
z.h1x=0:z.samplerate/10:z.samplerate;
z.h1x=floor(z.h1x);
z.fe1.x_ticks=tlist(['locations','labels'],[z.h1x],["0","100","200","300","400","500","600","700","800","900","1000"]);
// amplitudenachse
z.fe1.y_ticks=tlist(['locations','labels'],[-1,-0.9,-0.8,-0.7,-0.6,-0.5,-0.4,-0.3,-0.2,-0.1,0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1],["-1","-0.9","-0.8","-0.7","-0.6","-0.5","-0.4","-0.3","-0.2","-0.1","0","0.1","0.2","0.3","0.4","0.5","0.6","0.7","0.8","0.9","1"]);
z.fe1.sub_tics=[9,9,9];
z.fe1.box = "back_half";
z.fe1.background = -2;
z.fe1.tight_limits = ["on","on"];
z.fe1.cube_scaling = "on";
z.fe1.isoview = "off";
// mit den folgenden einstellungen der drei achsen kann die Anzeige angepasst werden 
/////////////////////////////////////////////////////////////////////////////
zh=z.fe1.data_bounds;
zh(1,2)=-1;
zh(2,2)=1;
zh(1,1)=0;
zh(2,1)=z.samplerate;
z.fe1.data_bounds =zh;
z.fe1.tag='fenster 1';
//////////////////////////////////////fenster 3 obenrechts
sca(z.fe2)
z.fe2.visible = "on";
z.fe2.axes_visible = ["on","on","on"];
z.fe2.axes_reverse = ["off","off","off"];
z.fe2.auto_ticks = ["off","off","off"];
z.fe2.grid = [1,1];
z.fe2.grid_thickness = [1,1];
z.fe2.grid_style = [1,1];
z.fe2.grid_position = "background";
z.fe2.title.font_size=2;
z.fe2.title.text="";
z.fe2.x_label.font_size=2;
z.fe2.x_label.text="Frequenz";
z.fe2.x_label.visible="on";
z.fe2.y_label.font_size=2;
z.fe2.y_label.text="Amplitude";
z.fe2.y_label.visible="on";
z.fe2.auto_scale="off";
z.fe2.auto_margins = "off"
z.fe2.margins = [0.04,0.2,0.1,0.07]
//
// frequenzaschse
z.fe2.x_ticks=tlist(['locations','labels'],[0,1000,2000,3000,4000,5000],["0","1000","2000","3000","4000","5000"]);
// amplitudenachse
z.fe2.y_ticks=tlist(['locations','labels'],[0,100,200,300,400,500,600,700,800,900,1000],["0","0.1","0.2","0.3","0.4","0.5","0.6","0.7","0.8","0.9","1"]);
z.fe2.sub_tics=[9,9,9];
z.fe2.box = "back_half";
z.fe2.background = -2;
z.fe2.tight_limits = ["off","off"];
z.fe2.cube_scaling = "on";
z.fe2.isoview = "off";
// mit den folgenden einstellungen der drei achsen kann die Anzeige angepasst werden 
/////////////////////////////////////////////////////////////////////////////
zh=z.fe2.data_bounds;
zh(1,2)=0;
zh(2,2)=1000;
zh(1,1)=0;
zh(2,1)=5000;
z.fe2.data_bounds =zh;
z.fe2.tag='fenster2';
/////////////////////////////////////////////////////////////////////////////////