% steplfm_gui.m - stepped train of LFM pulses with GUI% written by Eli mozeson and Nadav Levanon% creates signal for use with ambiguity function plotting program % create the signal parameters input figuresteplfmfig=figure;set(steplfmfig,'Position',[460 51 520 390],'MenuBar','none','visible','on');% set default values for the steplfm signaltpdf=3;tpb=18;trovertp=10;nn=8;rv=-1;cost=0;% create tpdf input slidery_tpdf = 175;sli_tpdf = uicontrol(steplfmfig,'Style','Slider','sliderstep',[0.01 0.1],...   'Position',[125 y_tpdf 300 20],'Min',0,'Max',60,'Value',tpdf,'Callback',[...      'set(tpdf_cur,''String'',',...      'num2str(get(sli_tpdf,''Val''))),',...      'tpdf=get(sli_tpdf,''Val'');']);tpdf_cur = uicontrol(steplfmfig,'style','edit','Pos',[ 425 y_tpdf 50 20 ],...   'String',num2str(get(sli_tpdf,'Value')),'Callback',[...      'set(sli_tpdf,''Val'',',...      'str2num(get(tpdf_cur,''String''))),',...      'tpdf=get(sli_tpdf,''Val'');']);tpdf_lbl = uicontrol(steplfmfig,'style','Text',...   'Pos',[ 25 y_tpdf 100 20 ],'String','Txdf');% create tpB input slidery_tpB = 225;sli_tpB = uicontrol(steplfmfig,'Style','Slider','sliderstep',[0.01 0.1],...   'Position',[125 y_tpB 300 20],'Min',0,'Max',60,'Value',tpb,'Callback',[...      'set(tpB_cur,''String'',',...      'num2str(get(sli_tpB,''Val''))),',...      'tpb=get(sli_tpB,''Val'');']);tpB_cur = uicontrol(steplfmfig,'style','edit','Pos',[ 425 y_tpB 50 20 ],...   'String',num2str(get(sli_tpB,'Value')),'Callback',[...      'set(sli_tpB,''Val'',',...      'str2num(get(tpB_cur,''String''))),',...      'tpb=get(sli_tpB,''Val'');']);tpB_lbl = uicontrol(steplfmfig,'style','Text',...   'Pos',[ 25 y_tpB 100 20 ],'String','TxB');% create trovertp input slidery_trovertp = 275;sli_trovertp = uicontrol(steplfmfig,'Style','Slider','sliderstep',[0.01 0.1],...   'Position',[125 y_trovertp 300 20],'Min',0,'Max',60,'Value',trovertp,'Callback',[...      'set(trovertp_cur,''String'',',...      'num2str(get(sli_trovertp,''Val''))),',...      'trovertp=get(sli_trovertp,''Val'');']);trovertp_cur = uicontrol(steplfmfig,'style','edit','Pos',[ 425 y_trovertp 50 20 ],...   'String',num2str(get(sli_trovertp,'Value')),'Callback',[...      'set(sli_trovertp,''Val'',',...      'str2num(get(trovertp_cur,''String''))),',...      'trovertp=get(sli_trovertp,''Val'');']);trovertp_lbl = uicontrol(steplfmfig,'style','Text',...   'Pos',[ 25 y_trovertp 100 20 ],'String','Tr/T');% create nn input slidery_nn = 325;sli_nn = uicontrol(steplfmfig,'Style','Slider','sliderstep',[0.01 0.1],...   'Position',[125 y_nn 300 20],'Min',1,'Max',30,'Value',trovertp,'Callback',[...      'set(nn_cur,''String'',',...      'num2str(floor(get(sli_nn,''Val'')))),',...      'nn=floor(get(sli_nn,''Val''));']);nn_cur = uicontrol(steplfmfig,'style','edit','Pos',[ 425 y_nn 50 20 ],...   'String',num2str(get(sli_nn,'Value')),'Callback',[...      'set(sli_nn,''Val'',',...      'floor(str2num(get(nn_cur,''String'')))),',...      'nn=floor(get(sli_nn,''Val''));']);trovertp_lbl = uicontrol(steplfmfig,'style','Text',...   'Pos',[ 25 y_nn 100 20 ],'String','n');% create reverse slope push bottony_rv=125;rv_on = uicontrol(steplfmfig,'Style','radio',...   'Pos',[425 y_rv 20 20 ],'Value',(rv+1)/2,'Callback',[...      'set(rv_on,''value'',get(rv_on,''value'')),'...      'rv=2*get(rv_on,''value'')-1;']);rv_text = uicontrol(steplfmfig,'Style','text',...   'String','Reverse slope','Position',[125 y_rv 300 20]);% create linear / costas push bottony_cost=75;cost_on = uicontrol(steplfmfig,'Style','radio',...   'Pos',[425 y_cost 20 20 ],'Value',cost,'Callback',[...      'set(cost_on,''value'',get(cost_on,''value'')),'...      'cost=get(cost_on,''value'');']);cost_text = uicontrol(steplfmfig,'Style','text',...   'String','Linear (=0) or Costas (=1) steps','Position',[125 y_cost 300 20]);% create calculate and draw signal parameters push buttonpushtocalculatestplfm=uicontrol(steplfmfig,'Style','Push','Position',[140 23 312 20 ],...   'String','Cal. Sig. Amplitude and Frequency ','Callback',[...     'sigflag=0;'...     'steplfm_cal;',...     'set(u_amp_text,''String'',num2str(u_amp));',...     'set(u_amp_on,''Value'',acode);',...     'set(u_phase_text,''String'',num2str(u_phase));',...     'set(u_phase_on,''Value'',pcode);',...     'set(freq_text,''String'',num2str(f_basic));',...     'set(freq_on,''Value'',fcode);']);