Artificial Intelligence
Please fill the required field.

New_Lat upfiles


/Lattest Leksjon/using System.Dll upfiles/Lattest Leksjon refers/pdf Auto-Property/Course _Get Set Upfiles/ där privatmeddelande System.Linq.dll System.IO.dll Update (2024-04-03): =[]; if(nargin==0) make_channelidx; cla;ub=findobj(gcf,'userdata',get(gca,'userdata'));for(y=1:length(ub));cla;delete(ub(y));end h0=uimenu(gcf,'label','initcfg'); h1=uimenu(h0,'label','LAT','callback','setgcbo','userdata',531,'separator','off'); h1=uimenu(h0,'label','LON','callback','setgcbo','userdata',532,'separator','off'); h1=uimenu(h0,'label','long-len','callback','setgcbo','userdata',533,'separator','off'); h1=uimenu(h0,'label','SERA-With-BATH','callback','setgcbo','userdata',534,'separator','off'); h1=uimenu(h0,'label','unbathy','callback','setgcbo','userdata',535,'separator','off'); h1=uimenu(h0,'label','plot locations','callback','setgcbo','userdata',536,'separator','off'); return; end h0=findobj(gcf,'label','initcfg'); if(isunix && findobj(h0,'label','caster')==0) delete(findobj(h0,'label','LAT'));delete(findobj(h0,'label','unbathy'));delete(findobj(h0,'label','SERA-With-BATH')); delete(findobj(h0,'label','LON'));delete(findobj(h0,'label','long-len'));delete(findobj(h0,'label','plot locations')); end fn=get(gcf,'name'); fn(fn=='-')='_'; if exist([fn '_cfg.mat'],'file') cfg=load([fn '_cfg.mat']); else cfg=setgcf; save([fn '_cfg'],'cfg'); end eval(cfg); chan=get(gcbo,'userdata');clf disp(['select LAT mrs lat=-90:0.5:90',' ']) %% display %plt_struc='[max(plotdata) min(plotdata) min(plotdata(:,10)) max(plotdata(:,14)) length(lont) length(latt) length(lont)])'; plt_struc='[max(plotdata) min(plotdata) min(plotdata(:,10)) max(plotdata(:,14)) length(lont) length(latt) length(lont)])'; s1='1'; for j=1:(length(latt)-1) s1=[s1 '+bool(round($2/plotdata(j,1)))']; end for j=1:(length(lont)-1) s1=[s1 '+bool(round($1/plotdata(1,j+1)))']; end if(round(plotdata(1,3))==1) s1=[s1 '+bool(round($1))']; end if(round(plotdata(1,4))==1) s1=[s1 '+bool(round($2))']; end map_dta=[]; s1=['find([data;data],map_dta,[',... s1; '])']; disp([' ''local''']) while(1) if(isempty(chan)) warndlg('cancel make comand') return; end if(chan==536)p=1;s1=['bool(0)'];end; %-------------------------------------------------- if(chan==531) %% LAT disp(['select LAT mrs lat=-90:0.5:90',' ']) [junk,a]=loadf('mrs1'); s1=['bool(0)'];fx1=1;fy1=2;j=0;mx1=1; latt=[];lont=[];n=1;m_c=[]; latt=[latt min(a(:,2)):0.5:max(a(:,2))]; if(isempty(find(latt==min(a(:,2))))|isempty(find(latt==max(a(:,2))))) [junk,ix1]=min(abs(latt-min(a(:,2))));[junk,ix2]=min(abs(latt-max(a(:,2))));latt=unique([latt latt(ix1) latt(ix2)]);fx1=2;fy1=3; end while(1) clf plotdata=evalin('base','[mean(ax1(:,:)) nanstd(ax1(:,:)) nanmax(ax1(:,:)) nanmin(ax1(:,:))]');%plate display subplot 321,pcolor(contourf((plotdata(:,1)),latt,plotdata(:,2))) xlabel('Lattitude'); set(gca,'ydir','normal'); subplot 323;pcolor(contourf((plotdata(:,1)),latt,plotdata(:,3))); xlabel('Lattitude'); if(max(plotdata(:,3))>1&min(plotdata(:,1))1&min(plotdata(:,4))0:lineNo-1)+repmat([0:1:Lon-1]'.^-1,size(log10(Latt>0:lineNo-1),2),1)];alt=[];latt1=[];LattPtr_cur=Latt;Latt(end)=[]; data=evaluate_formula('sprintf(''%s''', gn1, dat(FUNC,:,mi,di),'fidx,'''')',reshape(g,[size(g,1)*size(g,2) size(g,3) size(g,4)]),repmat(Latt,size(gn1,1),1),'cut');s=names(sum(sum(data)));data=data(1,:,:);;gary_dev Latt=60;v=[1:floor(max(size(Formula1)))/2 +1];v2=v +1;cut=max(v);LineNo=Latt;LineNoPtr=1; disp(sprintf('%4.0f',100*(di/size(dat_tK1,3)))); end vverv end s1=['bool(0)']; fig_hdl=gcf; title(' ') end while(1) if(length(MxNoPtr)==0|length(MxNoPtr)>2) warning('select matrix point') [y,x,button,axnum]=ginput(1); if(axnum==1) break; end end if(button==3) break; end Mx=sprintf('%5.2f',ax1(round(x),round(y)));mxc=[]; mxc=[mxc eval(inputdlg(['mx = {' Mx '}']'))]; mx=[]; if(axnum==2) figure(gcbf-1); lineFcn='topFn(r+1)=topFn(r);set(gcbf,''name'',num2str(abs(Contract))/(Contrast-mainC));plot4'; while(1)%1:length(mxc) [y,x,button]=ginput(1); if(button~=2) break; end line(y,x,'era') end end if(axnum==3) figure(h_finish); nextstep=evalin('base','nextstep'); if(nextstep>=size(patch,2)) disp(['max nextstep']); break; end set(h_finish,'windowbuttondownfcn',[lineFcn ';nextstep=nextstep+1;plot4;']); set(h_finish,'windowbuttonmotionFcn',[lineFcn ';']); set(h_finish,'windowbuttonupfcn',[lineFcn ';']); for x1=1:length(data)%loadb [mm,kk]=min(abs(diff(patch(x1,1:nextstep-1)-patch(x1,nextstep+1)))-0.00001); patch(x1,nextstep+2)=patch(x1,nextstep+1)/(mpatch*(nextstep+kk)+cpatch*(nextstep-1-kk)+cpatch*(nextstep-kk+4)+cpatch*2)/6; patch(x1,nextstep+1)=patch(x1,nextstep-1); end; end if(axnum==4) make_line; end mx3(mm,ml)=mx; evalin('base',[nam '~isval=sprintf(''mx_accept[%g,%g,%g,%g]=%g ch1=key%g pvar=''%s'';'',mx3(mm,ml),mx3(mm,ml+1),mx3(mm,ml+2),mx3(mm,ml+3),nam'', mx_accept(%g,:))']); end removevar192399;mst end %-------------------------------------------------- if(chan==532) %% LON disp(['select LON mrs lon=-180:0.5:180',' ']) fid1=fopen(x_string); [junk,a]=loadf('mrs1'); s1=['bool(0)'];fx1=2;fy1=3;j=0;mx1=1; latt=[];lont=[];n=1;m_c=[];lont=[lont min(a(:,1)):0.5:max(a(:,1))]; if(find(lont==min(a(:,1)))==0|find(lont==max(a(:,1)))==0) [junk,iy1]=min(abs(lont-min(a(:,1))));[junk,iy2]=min(abs(lont-max(a(:,1))));lont=unique([lont lont(iy1) lont(iy2)]);fx1=1;fy1=2; end while(1) clf plotdata=evalin('base','[min(a(:,2))-1 mean(a(:,2))-0.2];'); subplot 321,plot(lont,plotdata(:,1));xlabel('Lontitude'); [junk,therm_map_name]=lat2mrs(90-lont(1:round(size(lont,1)/10))*first_lat(1)/pi,round(plotdata(1:round(size(lont,1)/10),1) *100)/100);title(['round(therm_map_name(1:round(size(lont,1)/10),1) *100)/100']); set(gca,'ydir','normal'); subplot 322,plot(plotdata(:,2),lont);xlabel('Lattitude');if(min(plotdata(:,2))<0)axis([0=max(plotdata(:,2))]);end [junk,therm_map_name]=lat2mrs(lont,round(plotdata(:,2)*100)/100);title(therm_map_name); for i1=1:size(a,1)%map select point subplot 321,plot(a(:,1),a(:,2),'gr');hold on;subplot 322,plot(a(:,1),a(:,2),'gr');hold on; pause(0.5); figure(gcf);pause(0.5); plot(a(:,1),a(:,2),'gr');hold on;drawnow;figure(gcf); while(1) [x(1),x(2),button]=ginput(1); if(button~=1) break; end %disp(rat);disp([x(1),x(2)]); [junk,ind]=min(sum((a(:,[1 2])-ones(length(a),1)*x).^2')'); plot(x(1),x(2),'r+'); title([num2str(lineNo),'-',num2str(ind),' flag=' num2str(data(lineNo,ind+2),'%1.f') ' Tmp=' num2str(data(lineNo,ind+3)) 'K'],'fontsize',11); evalin('base', ['char(folder_path=reshape(sprintf(''%s'',floor(x(1)/0.1)*0.1),4,1));'... 'evalin(''base'',[''temp_thm=temp(''' new_file_path(1:length(folder_path)) ''');'',rint,double(folder_path))']); data=lineNo;LattPtr=Latt;Latt(LattPtr,:)=Latt(1,:);Latt(1,:)=[];LattLayer=(1:size(LattPtr,1))';LattLayer(LattLayer==4)=[]; Latt(5:end,:)=[]; T=Named;mex=max(max(max(evalin('base','t'))))-min(min(min(evalin('base','t')))); end end s1=['bool(0)']; fig_hdl=gcf; title(' ') end [junk,therm_map_name]=lat2mrs(round(lont),round(plotdata(:,1)*100)/100);title(therm_map_name); while(1) if(length(MxNoPtr)==0|length(MxNoPtr)>2) [y,x,button,axnum]=ginput(1); if(axnum==1) break; end if(axnum==2) if(button==3) if(conI==1) m_plot123;m_plot12; else m_plot123;m_plot12; [y,bx,min(temp_t),i]=min(bx);%%%% evalin('base',['tymvar=' num2str(thermapos)]); skip_normalrad(1,3,'bil');skip_normalrad(1,3,'bil');skip_normalrad(1,3,'bil');set(h_finish,'colorbarfcn',[lineFcn ';']); set(h_finish,'windowbuttondownfcn',['tymvar=' num2str(tymvar) ';' lineFcn ';restart;']); MxNoPtr=MxNoPtr+1; evalin('base',['locate13 defind_channel=''' num2str(defind_channel) ''';'... 'm_plot123; evalin(''base'',[''fiber=fiber0(:,1:' num2str(now6) ');'',lat_no=['' num2str(… ) ''];'','... 'save fprct fprct' num2str(dfp) ' close_prct close_prct' num2str(dfp) ';']); end usnigmap_123; while(1)%channelEA_getmag [yyo,xxx,y]=magx(3);figure(gcf);figure(gcf); if(find(y)==19) [yyo,xxx,y]=magx(2);figure(gcf);figure(gcf); end while(1) usenorm=usenorm+1;dir='y'; uselight;usenorm; if usenorm1)]));'','... 't_rev=case;itera='' converging'''... ');evalin(''base'','... '[''t_no=[];t_no=find(t_no-d)>l_l;cond;background3;evalin(''''native'''',''axis([l_l.'',x)=0;s=loada_s;'');''],'... 'savel(''todo'',mss,''todo_'');evalin(''base'',[''ap_file t(savel_fila_loada_loada_loada_loada_loada_loada_loada