// WAV-3d-Analyse-30 
/////////////////////////////////////////////////////////////////////////////
mclose('all');
clear;
close();
z=struct('pfad','','datei','','pfaddatei','','info','','laufzeit',0,'ueberdeckung',0,'posi',0,'start1',0,'start2',0,'mono',0,'ff',0,'power',0,'ffli',0,'powerli',0,'hoer1',0,'hoer2',0,'a1',0,'a2',0,'a3',0,'b1',0,'b2',0,'b3',0,'h1',0,'graph1',0,'graph2',0,'f',0,'cm',0,'kanalzahl',0,'kanal',1,'verstaerkung',1,'darst',1,'xa','','n',0,'i',0,'rota',[16.  -20.]),'aktuell',0,'vorw',0;
/////////////////////////////////////////////////////////////////////////////
function [z]=sub_neu(z)
// NEUE DATEI AUFRUFEN
// WAV Datei auswählen  
[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.pfaddat=strsplit(z.pfaddatei,'.')
z.laufzeit=floor(z.info(8)/z.info(3)); // lauzeit in sekunden
set(se_dat_a,'string',z.pfaddatei);
xtitle(strsplit(z.datei,'.')(1),'','',''); 
// ffliT Window
z.w=window('hn',48000); // fflit window
//LAUFZEIT / kanäle
select z.info(2)
case 1 then z.kanalzahl='Mono'
case 2 then z.kanalzahl='Stereo'
end
set(se_dat_b,'string',' Laufzeit: '+string(z.laufzeit)+' Sek. / '+string(z.kanalzahl));
//
//KANALZAHL
if z.kanalzahl=='Mono' then set(se_kan_b,'visible',0); end
if z.kanalzahl=='Stereo' then set(se_kan_b,'visible',1); end
set(se_kan_a,'value',1);
z.kanal=1;
//MAX POSITION ANALYSE
set(se_pos_c,'max',z.laufzeit);
set(se_pos_c,'value',1);
set(se_pos_b,'string','1');
z.posi=1;
// VERSTÄRKUNG
set(se_ver_b,'string','1'); 
set(se_ver_c,'value',1); 
z.verstaerkung=1;
// ÜBERDECKUNG
set(se_ueb_2,'string','48000');
set(se_ueb_f,'value',1)
z.ueberdeckung=48000;
//MAX POSITION ABSPIELEN
set(se_hoer_a,'max',z.laufzeit);
//
se_dat_c=uicontrol(z.f,"style","text",'FontWeight','bold','HorizontalAlignment','left' ,'backgroundcolor',[1 0.8 0],'position', [930 5 450 20],'string',' Kanal: '+string(z.kanal)+' / Position: '+string(z.posi)+' Sek. / Verstärkung: '+string(z.verstaerkung)+' / Überdeckung: '+string(z.ueberdeckung));
//
z.rota=[16 -20]; // wasserfall
//
[z]=sub_achsen_x_1(z)
//
[z]=sub_achsen_y_1(z)
//
[z]=sub_achsen_z_1(z)
//
[z]=rechenwerk1(z);
//
[z]=sub_far(z); // farbtabelllen
//
[z]=farbwerk(z) //
//
[z]=sub_malen_0(z); //
//
[z]=sub_was(z); //
//
end
endfunction
/////////////////////////////////////////////////////////////////////////////
function [z]=sub_berechnen(z)
// BERECHNEN
//KANALZAHL
if isequal(z.datei,'');    //Ist eine Date gewählt?
    else
if se_kan_a.value==1 then z.kanal=1 end
if se_kan_b.value==1 then z.kanal=2 end
//POSITION
z.posi= se_pos_c.value;
set(se_pos_b,'string',string(z.posi));

// VERSTÄRKUNG
z.verstaerkung=se_ver_c.value; 
set(se_ver_b,'string',string(z.verstaerkung)); 
// ÜBERDECKUNG
select 1
case se_ueb_a.value then set(se_ueb_2,'string','1500');z.ueberdeckung=1500;
case se_ueb_b.value then set(se_ueb_2,'string','1500');z.ueberdeckung=3000;
case se_ueb_c.value then set(se_ueb_2,'string','1500');z.ueberdeckung=6000;
case se_ueb_d.value then set(se_ueb_2,'string','1500');z.ueberdeckung=12000;
case se_ueb_e.value then set(se_ueb_2,'string','1500');z.ueberdeckung=24000;
case se_ueb_f.value then set(se_ueb_2,'string','1500');z.ueberdeckung=48000;
end
set(se_ueb_2,'string',string(z.ueberdeckung));
//
se_dat_c=uicontrol(z.f,"style","text",'FontWeight','bold','HorizontalAlignment','left' ,'backgroundcolor',[1 0.8 0],'position', [930 5 450 20],'string',' Kanal: '+string(z.kanal)+' / Position: '+string(z.posi)+' / Verstärkung: '+string(z.verstaerkung)+' / Überdeckung: '+string(z.ueberdeckung));
//
z.rota=[16 -20]; // wasserfall
//
[z]=sub_achsen_x_1(z)
//
[z]=sub_achsen_y_1(z)
//
[z]=sub_achsen_z_1(z)
//
[z]=rechenwerk1(z);
//
[z]=sub_far(z); // farbtabelllen
//
[z]=farbwerk(z) //
//
[z]=sub_malen_0(z); //
//
[z]=sub_was(z); //
//
end
endfunction
/////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
// Rechenwerk1
function [z]=rechenwerk1(z)
//RECHENWERK1
// 480 BERECHNUNGEN DURCHFÜHREN 
winH=waitbar('Fast Fourier Transformation und Power Spektrum wird 480 mal berechnet.');
z.start1=z.posi*48000-47999;
z.start2=z.posi*48000;
i=1;
while i<481
    waitbar(i/480,winH);
    //testen
    if z.start1<z.info(8) & z.start2<z.info(8) then
        // normal einlesen
        z.wa=wavread(z.pfaddatei,[z.start1 z.start2]);
        z.mono=z.wa(z.kanal,:);
        z.mono=z.mono.*z.verstaerkung
    end
//
    if z.start1<z.info(8) & z.start2>z.info(8) then
        // auffüllen
        z.wa=wavread(z.pfaddatei,[z.start1 z.info(8)]); 
        z.mono=z.wa(z.kanal,:);
        z.mono=z.mono.*z.verstaerkung
        d=size(z.mono,2);
        z.mono(d+1:48000)=zeros(1:48000-d);
    end
//
    if z.start1>z.info(8) & z.start2>z.info(8) then
        // nullen 
        z.mono(1:48000)=zeros(1:48000);
    end
//
    [z]=rechenwerk2(z)
    z.ffli(i,1:500)=z.ff(1:500); // fft daten
    z.powerli(i,1:500)=z.power(1:500); // leistungsdaten
    z.start1=z.start1+z.ueberdeckung;
    z.start2=z.start2+z.ueberdeckung;
    i=i+1
end
close(winH);
//

endfunction
/////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
// Rechenwerk2
function [z]=rechenwerk2(z)
//RECHENWERK1
// FFT BERECHNEN POWER BERECHNEN
z.mono=z.mono.*z.w;//windows anwenden
z.ff=fft(z.mono,-1,'nonsymmetric'); //Die FFT wird berechnen
z.ff=z.ff/48000;
z.ff=abs(z.ff(2:48000));
// powerspektrum
z.power=abs(z.ff.* conj(z.ff));   //Powerspektrum der FFT berechnen
z.power=z.power(1:500);
z.ff=z.ff(1:500);
// normieren
z.ff=z.ff*4000;// normieren
z.power=z.power*4000;// normieren
endfunction
/////////////////////////////////////////////////////////////////////////////
function [z]=farbwerk(z)
// farbwerk aufbauen
fx=1:1:480;   //X-Achse zum ploten aufbauen 
fy=1:1:500;   //Y-Achse zum ploten aufbauen
//
[z.a1,z.a2,z.a3]=genfac3d(fx,fy,z.ffli(fx,fy));   //Plot fflit
[z.b1,z.b2,z.b3]=genfac3d(fx,fy,z.powerli(fx,fy));   //Plot leistung    
//
endfunction
/////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////
function [z]=sub_malen_0(z)
//
select z.darst
case 1
    [z]=sub_malen_1(z)
case 2
    [z]=sub_malen_2(z)
end
endfunction
/////////////////////////////////////////////////////////////////////////////
function [z]=sub_malen_1(z)
// graph 1
if z.graph1 ==0 then else delete(z.graph1);z.graph1=0; end;
z.h1.visible = "on";
sca(z.h1);
plot3d1(z.a1,z.a2,list(z.a3,z.a3),theta=-20,alpha=16,flag=[-1,2,3])
z.graph1=gce();  
z.h1.axes_visible = ["on","on","on"];
////////////////////////////////////////////////////////////////////////////
endfunction
/////////////////////////////////////////////////////////////////////////
function [z]=sub_malen_2(z)
// graph 1
if z.graph1 ==0 then else delete(z.graph1);z.graph1=0; end;
z.h1.visible = "on";
sca(z.h1);
plot3d1(z.b1,z.b2,list(z.b3,z.b3),theta=-20,alpha=16,flag=[-1,2,3])
z.graph1=gce();  
z.h1.axes_visible = ["on","on","on"];
////////////////////////////////////////////////////////////////////////////
endfunction
////////////////////////////////////////////////////////////////////////////
function[z]=sub_savgif_1(z)
//
if z.pfaddatei=='' then
else
zd=getdate();
zs=z.pfaddat(1)+'_Datum_'+string(zd(1))+'_'+string(zd(2))+'_'+string(zd(6))+'_'+string(zd(7))+'_'+string(zd(8))+'_'+string(zd(9))+'.gif';
xs2gif(gcf(),zs);
end
endfunction
////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////
function [z]=sub_hoeren(z)
//
if z.datei=='' then
else
if se_hoer_a.value<z.laufzeit-10 then  
    st1=se_hoer_a.value*48000-47999;
    st2=st1+480000;
    z.hoer1=wavread(z.pfaddatei,[st1 st2]);
    z.hoer2=z.hoer1(z.kanal,:);
    z.hoer2=z.hoer2*z.verstaerkung;
    playsnd(z.hoer2,48000);
end
end
endfunction
///////////////////////////////////////////////////////////////////////////
function [z]=sub_achsen_x_1(z)
//
i=z.posi-1;
select z.ueberdeckung;
case 1500 //15
s=(0:32:480);
ss=(0:1:15);
ss=ss+i;
z.h1.x_ticks=tlist(['locations','labels'],s,string(ss));
//
case 3000 //30
s=(0:80:480);
ss=(0:5:30);
ss=ss+i;
z.h1.x_ticks=tlist(['locations','labels'],s,string(ss));
//
case 6000 //60
s=(0:40:480);
ss=(0:5:60);
ss=ss+i;
z.h1.x_ticks=tlist(['locations','labels'],s,string(ss));
//
case 12000 //120
s=(0:40:480);
ss=(0:10:120);
ss=ss+i;
z.h1.x_ticks=tlist(['locations','labels'],s,string(ss));
//
case 24000 //240
s=(0:40:480);
ss=(0:20:240);
ss=ss+i;
z.h1.x_ticks=tlist(['locations','labels'],s,string(ss));
//
case 48000 //480
s=(0:30:480);
ss=(0:30:480);
ss=ss+i;
z.h1.x_ticks=tlist(['locations','labels'],s,string(ss));
//
end
ss=ss+z.posi;
z.h1.x_label.text="Sekunden";
z.h1.y_label.text="Frequenz";
z.h1.z_label.text='$\rotatebox{90}{\mathsf{'+'Amplitude'+'}}$';
endfunction
/////////////////////////////////////////////////////////////////////////
//Y ACHSEN
function [z]=sub_achsen_y_1(z)
// Y ACHSEN
i=(0:10:500);
z.h1.y_ticks=tlist(['locations','labels'],i,string(i));   
//
/////$\rotatebox{90}{\mathsf{"Hallo"}}$";// kann eingesetzt werden bei Schriftrotation
endfunction
////////////////////////////////////////////////////////////////////////
// Z ACHSEN
function [z]=sub_achsen_z_1(z)
// Z ACHSEN
i=(0:100:1000);
ii=(0:0.1:1);
z.h1.z_ticks=tlist(['locations','labels'],i,string(ii));

endfunction
////////////////////////////////////////////////////////////////////////
// WASSERFALL
function [z]=sub_was(z)
// WASSERFALL
select 1
case se_was_a.value then
    z.h1.rotation_angles=[16.  -20.]
    z.h1.axes_reverse = ["on","off","off"]
case se_was_b.value then 
    z.h1.rotation_angles=[0.1 0]
    z.h1.axes_reverse = ["on","off","off"]
case se_was_c.value then 
    z.h1.rotation_angles=[0.1 270]
    z.h1.axes_reverse = ["off","off","off"]
end

endfunction

/////////////////////////////////////////////////////////////////////////
// FARBTABELLEN
function [z]=sub_far(z)
// Farbtabellen 
select 1
case se_far_a.value then [z]=sub_farb_manag_1(z)
case se_far_b.value then [z]=sub_farb_manag_2(z)    
case se_far_c.value then [z]=sub_farb_manag_3(z)    
end
   
endfunction
////////////////////////////////////////////////////////////////////////////////////////////////
//ÝACHS
function [z]=sub_yachs(z)
// YACHS    

select 1
case se_yach_a.value then
z.zh(2,2)=500;
z.h1.sub_ticks = [9,1,9]
case se_yach_b.value then
z.zh(2,2)=250;
z.h1.sub_ticks = [9,4,9]
case se_yach_c.value then
z.zh(2,2)=120;
z.h1.sub_ticks = [9,9,9]
end
z.h1.data_bounds =z.zh;
// Beachten Sie, dass tight_limits auf den Wert "on" gesetzt werden muss, 
// um die angegebenen Datengrenzen strikt einzuhalten (siehe oben). 
// Um data_bounds manuell einzustellen, setzen Sie auto_scale="offli".
endfunction
///////////////////////////////////////////////////////////////////////////
//FARBMASNAGEMENT
function [z]=sub_farb_manag_1(z)
// FARBE2 
f=jetcolormap(1000);
for i=1:1:1000
d(i)=floor(log(i)*144);
end
d(1)=1;
for i=1:1:1000
nf(i,:)=f(d(i),:);
end
z.cm=nf;
cmm=[0 0 0.2]
z.cm(100,:)=cmm;
z.cm(200,:)=cmm;
z.cm(300,:)=cmm;
z.cm(400,:)=cmm;
z.cm(500,:)=cmm;
z.cm(600,:)=cmm;
z.cm(700,:)=cmm;
z.cm(800,:)=cmm;
z.cm(900,:)=cmm;
//z.cm=jetcolormap(1000)
z.f.color_map = z.cm;
///////////////////////////////////////////
endfunction

//////////////////////////////////////////////////////////////////////////////
//FARBMASNAGEMENT
function [z]=sub_farb_manag_2(z)
// FARBE1 Das Original
for i=1:1200
    cm(i,:)=[0 0 0]
end
cm(1:150,:)=jetcolormap(150)
for i=130:1200 
    cm(i,:)=[1 0.2 0]
end
z.cm=cm(30:1030,:);
cmm=[0 0 0.2]
z.cm(100,:)=cmm;
z.cm(200,:)=cmm;
z.cm(300,:)=cmm;
z.cm(400,:)=cmm;
z.cm(500,:)=cmm;
z.cm(600,:)=cmm;
z.cm(700,:)=cmm;
z.cm(800,:)=cmm;
z.cm(900,:)=cmm;
//z.cm=jetcolormap(1000)
z.f.color_map = z.cm;
///////////////////////////////////////////
endfunction
//////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////
//FARBMASNAGEMENT
function [z]=sub_farb_manag_3(z)
// FARBE2 
f=parulacolormap(1000);
for i=1:1:1000
d(i)=floor(log(i)*101);
end
d(1)=1;
for i=1:1:1000
nf(i,:)=f(d(i),:);
end
z.cm=nf;
cmm=[0 0 0.2]
z.cm(100,:)=cmm;
z.cm(200,:)=cmm;
z.cm(300,:)=cmm;
z.cm(400,:)=cmm;
z.cm(500,:)=cmm;
z.cm(600,:)=cmm;
z.cm(700,:)=cmm;
z.cm(800,:)=cmm;
z.cm(900,:)=cmm;
//z.cm=jetcolormap(1000)
z.f.color_map = z.cm;
///////////////////////////////////////////
endfunction

function [z]=sub_farb_manag_4(z)
// FARBE2 
f=jetcolormap(1000);
y=linspace(1,31.63,1000);
x=y.*y;
x=floor(x);
for i=1:1:1000
nf(i,:)=f(x(i),:);

end
z.cm=nf;
cmm=[0 0 0.2]
z.cm(100,:)=cmm;
z.cm(200,:)=cmm;
z.cm(300,:)=cmm;
z.cm(400,:)=cmm;
z.cm(500,:)=cmm;
z.cm(600,:)=cmm;
z.cm(700,:)=cmm;
z.cm(800,:)=cmm;
z.cm(900,:)=cmm;
//z.cm=jetcolormap(1000)
z.f.color_map = z.cm;
///////////////////////////////////////////
endfunction
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////     S T A R T      //////////////////////////////////////
///////////////////////////////////////////////////////////////////
//// Formular erstellen
z.f=figure('position',[10,10,1400,900]);

//z.f.axes_size = [1800,874]
z.f.auto_resize = "on"
z.f.viewport = [0,0]
z.f.figure_name = "WAV-3D-Analyse"
//z.f.figure_id = 0
z.f.info_message = ""
//cm=load('D:\Scilab\cm.dat')
//z.cm=cm;
//z.f.color_map = z.cm;
z.f.pixel_drawing_mode = "copy"
z.f.anti_aliasing = "off"
z.f.immediate_drawing = "on"
z.f.background =  -2
z.f.visible = "on"
z.f.rotation_style = "unary"
//z.f.event_handler = ""
//z.f.event_handler_enable = "offli"
z.f.user_data = []
z.f.resizefcn = ""
z.f.closerequestfcn = ""
z.f.resize = "on"
//z.f.toolbar_visible = "on"
z.f.dockable = "on"
//z.f.layout = "none"
//z.f.layout_options = "OptNoLayout"
z.f.default_axes = "on"
z.f.icon = ""
z.f.tag = ""// Formular aufbauen
//////////////////////////////////////////////////////////////////////////////
// controls in das Formular einbauen
////////////////////////////////////
se_lin_a=uicontrol(z.f,"style","text",'backgroundcolor',[1 0.8 0],'position', [1380 560 5 325],'string','');
// KANAL 
se_kan_1=uicontrol(z.f,"style","text",'HorizontalAlignment','center' ,'backgroundcolor',[1 0.8 0],'position', [1310 870 70 15],'string','1   Kanal   2');
se_kan_a=uicontrol(z.f,"style","radiobutton",'groupname','kan','HorizontalAlignment','left','backgroundcolor',[1 0.8 0],'position', [1310 850 50 20],'callback','');
se_kan_b=uicontrol(z.f,"style","radiobutton",'groupname','kan','HorizontalAlignment','left','backgroundcolor',[1 0.8 0],'position', [1360 850 20 20],'callback','');
se_kan_a.value=1;

// POSITION  1
se_pos_a=uicontrol(z.f,"style","text",'HorizontalAlignment','center' ,'backgroundcolor',[1 0.8 0],'position', [1310 825 70 15],'string','Position');
se_pos_b=uicontrol(z.f,"style","text",'FontWeight','bold','HorizontalAlignment','center' ,'backgroundcolor',[1 0.8 1],'position', [1310 810 70 15],'string','1');
se_pos_c=uicontrol(z.f,"style","spinner", 'backgroundcolor',[1 0.8 0],'position', [1310 790 70 20],'HorizontalAlignment','center','VerticalAlignment','middle','min',1,'max',1,'SliderStep',[1,10],'Title_position','top','callback','');


// VERSTÄRKUNG 
se_ver_a=uicontrol(z.f,"style","text",'HorizontalAlignment','center' ,'backgroundcolor',[1 0.8 0],'position', [1310 765 70 15],'string','Verstärkung');
se_ver_b=uicontrol(z.f,"style","text",'FontWeight','bold','HorizontalAlignment','center' ,'backgroundcolor',[1 0.8 1],'position', [1310 745 30 20],'string','1');
se_ver_c=uicontrol(z.f,"style","spinner", 'position', [1340 745 40 20],'HorizontalAlignment','center','VerticalAlignment','middle','min',1,'max',10,'SliderStep',[1,10],'Title_position','top','callback','');

// ÜBERDECKUNG 
//1500/15s 3000/30s 6000/60s 12000/120s 24000/240s 48000/240s'
se_ueb_1=uicontrol(z.f,"style","text",'HorizontalAlignment','center' ,'backgroundcolor',[1 0.8 0],'position', [1310 720 70 15],'string','Überdeckung');
se_ueb_2=uicontrol(z.f,"style","text",'HorizontalAlignment','center' ,'backgroundcolor',[1 0.8 1],'position', [1310 705 70 15],'string','48000');
//
se_ueb_a=uicontrol(z.f,"style","radiobutton",'groupname','ueb','HorizontalAlignment','left','backgroundcolor',[1 0.8 0],'position', [1310 685 70 20],'string',' 1500','callback','');
//
se_ueb_b=uicontrol(z.f,"style","radiobutton",'groupname','ueb','HorizontalAlignment','left','backgroundcolor',[1 0.8 0],'position', [1310 665 70 20],'string',' 3000','callback','');
//
se_ueb_c=uicontrol(z.f,"style","radiobutton",'groupname','ueb','HorizontalAlignment','left','backgroundcolor',[1 0.8 0],'position', [1310 645 70 20],'string',' 6000','callback','');

se_ueb_d=uicontrol(z.f,"style","radiobutton",'groupname','ueb','HorizontalAlignment','left','backgroundcolor',[1 0.8 0],'position', [1310 625 70 20],'string',' 12000','callback','');

se_ueb_e=uicontrol(z.f,"style","radiobutton",'groupname','ueb','HorizontalAlignment','left','backgroundcolor',[1 0.8 0],'position', [1310 605 70 20],'string',' 24000','callback','');

se_ueb_f=uicontrol(z.f,"style","radiobutton",'groupname','ueb','HorizontalAlignment','left','backgroundcolor',[1 0.8 0],'position', [1310 585 70 20],'string',' 48000','callback','');
se_ueb_f.value=1;

// BERECHNEN
se_ber_a=uicontrol(z.f,"style","pushbutton","Relief", "raised",'HorizontalAlignment','center' ,'position', [1310 560 70 20],'string','Berechnen','callback','[z]=sub_berechnen(z)');

// NEU
se_neu_a=uicontrol(z.f,"style","pushbutton","Relief", "raised",'position', [1310 530 70 20],'string','Neu','callback','[z]=sub_neu(z)');

// EXIT
se_exi_a=uicontrol(z.f,"style","pushbutton","Relief", "raised",'position', [1310 500 70 20],'string','Exit','callback','close');

// fft / power
se_ffpo=uicontrol(z.f,"style","text",'HorizontalAlignment','center' ,'backgroundcolor',[0.1 1 0.8],'position', [1310 470 70 15],'string','FFT / Power');
se_ffpo_a=uicontrol(z.f,"style","radiobutton",'groupname','ffpo','HorizontalAlignment','left','position', [1310 450 50 20],'callback','z.darst=1;[z]=sub_malen_0(z)');
se_ffpo_b=uicontrol(z.f,"style","radiobutton",'groupname','ffpo','HorizontalAlignment','right','position', [1360 450 20 20],'callback','z.darst=2;[z]=sub_malen_0(z)');
se_ffpo_a.value=1;

// YACHS
se_yach=uicontrol(z.f,"style","text",'HorizontalAlignment','center' ,'backgroundcolor',[0.1 1 0.8],'position', [1310 420 70 15],'string','Freq. - Achse');
se_yach_a=uicontrol(z.f,"style","radiobutton",'groupname','yach','position', [1310 400 70 20],'HorizontalAlignment','left','Title_position','top','string',' Y-500','callback','[z]=sub_yachs(z)');
se_yach_b=uicontrol(z.f,"style","radiobutton", 'groupname','yach','position', [1310 380 70 20],'HorizontalAlignment','left','Title_position','top','string',' Y-250','callback','[z]=sub_yachs(z)');
se_yach_c=uicontrol(z.f,"style","radiobutton",'groupname','yach','position', [1310 360 70 20],'HorizontalAlignment','left','Title_position','top','string',' Y-120','callback','[z]=sub_yachs(z)');
se_yach_a.value=1;
//
// FARBTABELLEN
se_far=uicontrol(z.f,"style","text",'HorizontalAlignment','center' ,'backgroundcolor',[0.1 1 0.8],'position', [1310 330 70 15],'string','Farbtabellen');
se_far_a=uicontrol(z.f,"style","radiobutton",'groupname','far','HorizontalAlignment','left','value',1,'position', [1310 310 70 20],'string','Farben 1','callback','[z]=sub_far(z)');
se_far_b=uicontrol(z.f,"style","radiobutton",'groupname','far','HorizontalAlignment','left','value',0,'position', [1310 290 70 20],'string','Farben 2','callback','[z]=sub_far(z)');
se_far_c=uicontrol(z.f,"style","radiobutton",'groupname','far','HorizontalAlignment','left','value',0,'position', [1310 270 70 20],'string','Farben 3','callback','[z]=sub_far(z)');
//
//WASSERFALL
se_was=uicontrol(z.f,"style","text",'HorizontalAlignment','center' ,'backgroundcolor',[0.1 1 0.8],'position', [1310 240 70 15],'string','Wasserfall');
se_was_a=uicontrol(z.f,"style","radiobutton",'groupname','was','HorizontalAlignment','left','value',0,'position', [1310 220 20 20],'string','','callback','[z]=sub_was(z)');
se_was_b=uicontrol(z.f,"style","radiobutton",'groupname','was','HorizontalAlignment','left','value',0,'position', [1335 220 20 20],'string','','callback','[z]=sub_was(z)');
se_was_c=uicontrol(z.f,"style","radiobutton",'groupname','was','HorizontalAlignment','left','value',0,'position', [1360 220 20 20],'string','','callback','[z]=sub_was(z)');
se_was_a.value=1;
//
// HOEREN POSITION
se_hoer=uicontrol(z.f,"style","text",'HorizontalAlignment','center' ,'backgroundcolor',[0.1 1 0.8],'position', [1310 190 70 15],'string','Play Position');
se_hoer_a=uicontrol(z.f,"style","spinner", 'position', [1310 170 70 20],'HorizontalAlignment','center','VerticalAlignment','middle','min',1,'max',1,'SliderStep',[1,10],'Title_position','top','callback','');
se_hoer_b=uicontrol(z.f,"style","pushbutton","Relief", "raised", 'position', [1310 140 70 20],'string','Play 10 Sek.','callback','[z]=sub_hoeren(z)');
z.hoer1=se_hoer_a.value;
//
/////////////////////////////////////////////////////////////////////////////////////////////////
// SAVEGRAFIK
se_sav_a=uicontrol(z.f,"style","pushbutton","Relief", "raised",'HorizontalAlignment','center' ,'position', [1310 110 70 20],'string','Save Grafik','callback','[z]=sub_savgif1(z)');
//
// DATEIANZEIGE
se_dat_a=uicontrol(z.f,"style","text",'FontWeight','bold','HorizontalAlignment','left' ,'position', [50 5 800 20],'string','');
se_dat_b=uicontrol(z.f,"style","text",'FontWeight','bold','HorizontalAlignment','left' ,'backgroundcolor',[0.9 1 1],'position', [730 5 200 20],'string',' Laufzeit: '+string(z.laufzeit)+' Sek. / '+string(z.kanalzahl));
se_dat_c=uicontrol(z.f,"style","text",'FontWeight','bold','HorizontalAlignment','left' ,'backgroundcolor',[1 0.8 0],'position', [930 5 450 20],'string',' Kanal: '+string(z.kanal)+'/ Position: '+string(z.posi)+' Sek. / Verstärkung:'+string(z.verstaerkung)+' / Überdeckung: '+string(z.ueberdeckung));
//
// //////////////////////////////////////////////////////////////////////////////////////////////////////////
// Grafikfenster einbauen
z.h1 = newaxes(); // 
z.h1.axes_bounds = [-0.05,-0.05,1.17,1.05];
///////////////////////////////////////////////beschriftung x achse
///////////////////////////////////////////////
sca(z.h1)
z.h1.visible = "on"
z.h1.axes_visible = ["on","on","on"]
z.h1.axes_reverse = ["on","off","off"]
z.h1.grid = [1,1,1]
z.h1.grid_position = "background"
z.h1.grid_thickness = [1,1,1]
z.h1.grid_style = [1,1,1]
z.h1.x_location = "bottom"
z.h1.y_location = "left"
z.h1.auto_ticks = ["off","off","off"]
z.h1.ticks_format = ["","",""]
z.h1.ticks_st = [1,1,1;0,0,0]
z.h1.box = "back_half"
z.h1.filled = "on"
z.h1.sub_ticks = [9,1,9]
z.h1.font_style = 6
z.h1.font_size = 1.8 ///2
z.h1.font_color = -1
z.h1.fractional_font = "off"
//'$\rotatebox{90}{\mathsf{'+string(0:10:1000)+'}}$';
z.h1.title.font_size=4;
//z.h1.title.text=z.pfaddatei;
z.h1.x_label.font_size=2;
z.h1.x_label.text="Sekunden";
z.h1.x_label.visible="on";
z.h1.y_label.font_size=2;
z.h1.y_label.text="Frequenz";
z.h1.y_label.visible="on";
z.h1.z_label.font_size=2;
z.h1.z_label.text='$\rotatebox{90}{\mathsf{'+'Amplitude'+'}}$';
//z.h1.z_label.text="Amplitude";
z.h1.z_label.visible="on"; 
//z.h1.legend=z.pfaddatei; 
 
z.h1.isoview = "off"
z.h1.cube_scaling = "on"
z.h1.view = "3d"
z.h1.rotation_angles = [10,-10]
z.h1.log_flags = "nnn"
z.h1.tight_limits = ["on","on","on"]

z.h1.zoom_box = []
z.h1.auto_margins = "off"
z.h1.margins = [0.07,0.165,0.08,0.11]
z.h1.axes_bounds = [-0.05,-0.05,1.17,1.05]
z.h1.auto_clear = "off"
z.h1.auto_scale = "off"
z.h1.hidden_axis_color = 4
z.h1.hiddencolor = 4
z.h1.line_mode = "on"
z.h1.line_style = 1
z.h1.thickness = 1
z.h1.mark_mode = "off"
z.h1.mark_style = 0
z.h1.mark_size_unit = "tabulated"
z.h1.mark_size = 0
z.h1.mark_foreground = -1
z.h1.mark_background = -2
z.h1.foreground = -1
z.h1.background = -2
z.h1.arc_drawing_method = "lines"
z.h1.clip_state = "off"
//z.h1.clip_box = []
z.h1.user_data = []
z.h1.tag = ""
//FENSTEREIGENSCHAFT data_bounds
z.zh(1,3)=0;// Amplitude
z.zh(2,3)=1000;// Amplitude
z.zh(1,2)=0;// Frequenz
z.zh(2,2)=500;// Frequenz 
z.zh(1,1)=0;// Zeit
z.zh(2,1)=480;//Zeit
z.h1.data_bounds =z.zh;
/////////
//tight_limits
z.h1.tight_limits='on';
//////////////////////////////////////////////////////////////////////////////
//VOREINSTELLUNG
z.aktuell(1)=1; //aktuell Position in sek.
z.aktuell(2)=1; // aktuell Kanal
z.aktuell(3)=1; // aktuell Verstärkung
z.aktuell(4)=48000; //aktuell Überdeckung
//
z.vorw(1)=1; // vorwahl Position
z.vorw(2)=1; // vorwahl Kanal
z.vorw(3)=1; // vorwahl Verstärkung
z.vorw(4)=48000; // vorwahl Überdeckung
//