[vim] auto complete matlab flow control [for, if, while] with indentation in vim

Okay, it turns out just combining some keys is good enough :(

:inoremap <c-n><c-n> <esc>yyp^d$a
:inoremap <c-c><c-c> <esc>yyp^d$aend<esc>kyyp^d$a
 
hit ctrl-c twice (holding ctrl) in the edit mode , use ctrl-n twice to go next line

------------------------------------------------------------------- no need something huge -------------------------- "============================================================================= " matlabFlowComplete.vim v0.0 " Author: Xianmin Hu <xianmin.hu@gmail.com> " http://scriptdemo.blogspot.com " Last Change: 19-Mar-2015. "============================================================================= " "key cc : to complete for, if and while flow "key nn : go to next line with proper indentation :function! CompleteMatlabFlow() " complete for, while and if flow control with proper indentation : let isValidForWhileIf=0 : let tmpline=substitute(getline(".")," \\+"," ","g") : let tmpline=substitute(tmpline," \\+$","","g") : call setline(".",tmpline) : let tmpline=substitute(tmpline,"^ \\+","","g") : let clinesp=split(tmpline," ") : unlet tmpline : execute "normal! o" : execute "normal! kk^" : if len(clinesp) > 1 :    if clinesp[0] == "for" && len(clinesp)>2 :       let isValidForWhileIf=1 :       if len(clinesp)==3 :          let newcline="for " . clinesp[1] . " = " . clinesp[2] . ":1:" . clinesp[2] :       elseif len(clinesp)==4 :         if clinesp[2]<clinesp[3] :            let newcline=clinesp[0] . " " . clinesp[1] . " = " . clinesp[2] . ":" . clinesp[3] :         else :           let newcline=clinesp[0] . " " . clinesp[1] . " = " . clinesp[2] . ":-1:" . clinesp[3] :        endif :      elseif len(clinesp)>=5 :       let newcline=clinesp[0] . " " . clinesp[1] . " = " . clinesp[2] . ":" . clinesp[3] . ":" . clinesp[4] :      endif :      let cpos = col(".") :      let preline=split(getline(".")," ") :      if len(preline) > 0 :         if preline[0] == "for" :            let cpos += 4 :         elseif preline[0] == "while" :            let cpos += 6 :         elseif preline[0] == "if" :            let cpos += 3 :         endif :      endif :      while cpos > 1 :               let newcline = " " . newcline :               let cpos -= 1 :       endwhile :       execute "normal! j" :       call setline(".",newcline) :       execute "normal! yyp" :       execute "normal! ^d$" :       call setline(".",getline(".") . "end") :       execute "normal! jdd" :       execute "normal! kyykpd$i " :       unlet newcline :       unlet cpos :    endif " :    if (clinesp[0] == "if" || clinesp[0] == "while") && len(clinesp)>1 :       let isValidForWhileIf=1 :       let cpos = col(".") :       let preline=split(getline(".")," ") :       if len(preline) > 0 :          if preline[0] == "for" :             let cpos += 4 :          elseif preline[0] == "while" :             let cpos += 6 :          elseif preline[0] == "if" :             let cpos += 3 :          endif :       endif :       let padStr="" :       while cpos > 1 :           let padStr = " " . padStr :           let cpos -= 1 :      endwhile :      execute "normal! j^0d^" :      call setline(".", padStr . getline(".")) :      execute "normal! yyp^d$" :      call setline(".",getline(".") . "end") :      execute "normal! jdd" :      execute "normal! kyykpd$i " :      unlet padStr :      unlet cpos :   endif :   unlet clinesp : endif : if isValidForWhileIf < 1 :    execute "normal! u" :    execute "normal! $" : endif : unlet isValidForWhileIf :endfunction :function! GoMatlabNext() " go next line and use same indent from previous line : execute "normal! yyp" : execute "normal! ^d$a" :endfunction :nmap cc :call CompleteMatlabFlow()<CR>a :nmap nn :call GoMatlabNext()<CR>a

Example:
1) type "for a 1 4", then run cc in normal mode, ==>
for a = 1:4

end
2) type "for a 4 1", then run cc in normal mode, ==>
for a = 4:-1:4

end
3) type "for a 2 4 12", then run cc in normal mode, ==>
for a = 2:4:12

end
4) type "while a =4", then run cc in normal mode, ==>
while a=4

end

5) auto-indent
if you have"
%==============
if isLoop==1
for n loopStart loopStep loopEnd (run cc in normal mode)
end

it will result in:
%==============
if isLoop==1
   for n = loopStart:loopStep:loopEnd
         
   end
end

[matlab] relocate an object in the figure window

function movePosition(myh,myfrac,opt) % move an object to a new location relative to current axes % usage: %      movePosition(obj-handle,fraction,opt) %             opt: 'x' ==> x-coordiante is given in fraction of xlim %                    'y' ==> y-coordiante is given in fraction of ylim %                  'xy' ==> both x,y-coordiante is given in fraction %                                (could be a 2-element vector) % http://scriptdemo.blogspot.ca if nargin~=3    help movePosition    return end if numel(myh)>1    for nh=1:numel(myh)        movePosition(myh(nh),myfrac,opt);    end    return end if ~ishandle(myh)    error('need a valid object handle') end oriPos=get(myh,'position'); if isempty(oriPos)     error('no position attribute is available') end if isnumeric(opt)    oriPos(1)=myfrac;    oriPos(2)=opt; else    switch lower(opt)     case {'x'}         cXLim=get(gca,'xlim');         oriPos(1)=oriPos(1)+myfrac*(cXLim(2)-cXLim(1));     case {'y'}         cYLim=get(gca,'ylim');         oriPos(2)=oriPos(2)+myfrac*(cYLim(2)-cYLim(1));     case {'xy'}         if numel(myfrac)==1             myfrac=[myfrac myfrac];         end         cXLim=get(gca,'xlim');         oriPos(1)=oriPos(1)+myfrac(1)*(cXLim(2)-cXLim(1));         cYLim=get(gca,'ylim');         oriPos(2)=oriPos(2)+myfrac(2)*(cYLim(2)-cYLim(1));     otherwise         error(['unknown opt: ',opt])    end end set(myh,'position',oriPos);

[matlab] show available tags

function showtags(figH) % to show all the tags in figure(s) % usage: %        showtags([figure_handles]) % e.g., %        showtags(gcf) % http://scriptdemo.blogspot.ca if nargin==1    availableTag=unique(get(findobj(figH),'tag'));    availableTagC=unique(get(findobj(figH),'Tag')); else    availableTag=unique(get(findobj(),'tag'));    availableTagC=unique(get(findobj(),'Tag')); end if sum(~cellfun('isempty',availableTag))~=0     disp('Available tags: ')     disp(availableTag) end if sum(~cellfun('isempty',availableTagC))~=0     disp('Available Tags: ')     disp(availableTagC) end

[Matlab] make the t-s diagram with a third field shown in color

function [hc]=theta_sdiag(theta,s,varargin) % make the t-s plot given temperature and salinity data with ability to show a third field (e.g., density, depth) in color % need sw_dens.m from the seawater package % usage: %         hc=theta_sdiag(theta,s,varargin) %             varargin: %               ['color',value] : if value=1, the density will be shown in color; %                                        otherwise value should be some filed (e.g., depth) with same size as theta/s %         ['trange',Trange] : the range of temperature shown on the plot (ylim) %         ['srange',Srange] : the range of salinity shown on the plot (xlim) %  ['markersize',size-of-marker] : as it tells, the marker size, check scatter for its definition %     ['caxis',color-range] : the range of the third field shown in color % e.g., %       hc=theta_sdiag(t,s,'color',dep,'caxis',[10 500],'trange',[-2 10],'srange',[31.5 34.8]); % history: % % April 2009: original code by Vihang bhatt %                    http://www.mathworks.com/matlabcentral/fileexchange/23796-t-s-diagram/content/theta_sdiag.m % March 2014: enable to show a thrid field in color and more other options by xianmin (xianmin@ualberta.ca) %                    http://scriptdemo.blogspot.com if nargin<2    help theta_sdiag    return end isColor=0; markerS=16; if nargin>3     while(size(varargin,2)>0)         switch lower(varargin{1})             case {'iscolor','color'}                 if numel(varargin{2})~=1                     colorVar=varargin{2};                     isColor=2;                 else                     isColor=varargin{2};                     if isColor==2                         error('isColor should not equal 2 if no variable specified for the scatter color')                     end                 end                 varargin(1:2)=[];             case {'dt','deltat'}                 deltaT=varargin{2};varargin(1:2)=[];             case {'ds','deltas'}                 deltaS=varargin{2};varargin(1:2)=[];             case {'tmin','mint'}                 thetamin=varargin{2};varargin(1:2)=[];             case {'tmax','maxt'}                 thetamax=varargin{2};varargin(1:2)=[];             case {'trange','tlimit','ylim','tlim'}                 tRange=varargin{2}; thetamax=tRange(2); thetamin=tRange(1); varargin(1:2)=[]; clear tRange             case {'smin','mins'}                 smin=varargin{2};varargin(1:2)=[];             case {'smax','maxs'}                 smax=varargin{2};varargin(1:2)=[];             case {'srange','slimit','xlim','slim'}                 sRange=varargin{2}; smax=sRange(2); smin=sRange(1); varargin(1:2)=[]; clear sRange             case {'markersize'}                 markerS=varargin{2};varargin(1:2)=[];             case {'caxis','mycaxis'}                 myCAXIS=varargin{2};varargin(1:2)=[];             otherwise         end     end end theta=theta(:); s=s(:); if ~exist('smin','var'), smin=min(s)-0.01.*min(s); end if ~exist('smax','var'), smax=max(s)+0.01.*max(s); end if ~exist('thetamin','var'), thetamin=min(theta)-0.1*max(theta); end if ~exist('thetamax','var'), thetamax=max(theta)+0.1*max(theta); end if ~exist('deltaS','var'), deltaS=0.05; end if ~exist('deltaT','var'), deltaT=0.25; end xdim=round((smax-smin)/deltaS+1); ydim=round((thetamax-thetamin)/deltaT+1); dens=zeros(ydim,xdim); thetai=((1:ydim)-1)*deltaT+thetamin; si=((1:xdim)-1)*deltaS+smin; for j=1:ydim     for i=1:xdim         dens(j,i)=sw_dens(si(i),thetai(j),0);     end end dens=dens-1000; [c,h]=contour(si,thetai,dens,'k'); clabel(c,h,'LabelSpacing',1000); xlabel('Salinity','FontWeight','bold','FontSize',12,'fontname','Nimbus Sans L') ylabel('Theta (^oC)','FontWeight','bold','FontSize',12,'fontname','Nimbus Sans L') set(gca,'fontname','Nimbus Sans L') %% plotting scatter plot of theta and s; hold on; if isColor==1    mydens=sw_dens(s,theta,0)-1000;    hc=scatter(s,theta,markerS,mydens,'o','fill');    set(hc,'markeredgecolor','none'); elseif isColor==2 % use the depth as color    if ~exist('myCAXIS','var')        myCAXIS=[nanmin(colorVar(:)) nanmax(colorVar(:))];    end    caxis(myCAXIS);    hc=scatter(s,theta,markerS,colorVar(:),'o','fill');    set(hc,'markeredgecolor','none'); else    hc=scatter(s,theta,'.'); end if nargout==0    clear hc end

[Matlab] remove the water bodies in a m_map figure

function m_nolakes(lakeColor) % delete the water bodies patches in figures created by m_map %           default lakeColor is white ([1 1 1]) % usage: %           m_nolakes(lakeColor) %           http://scriptdemo.blogspot.com if nargin==0    lakeColor=[1 1 1]; elseif nargin~=1    help m_nolakes    return end gshhstypes={'c','l','i','h','f'}; for nt=1:numel(gshhstypes)     eval(['hw=findobj(gcf,''type'',''patch'',''tag'',''m_gshhs_',gshhstypes{nt},''',''facecolor'',lakeColor);']);     if ~isempty(hw)        delete(hw);     end end hw=findobj(gcf,'type','patch','tag','m_coast','facecolor',lakeColor); if ~isempty(hw)    delete(hw); end

[Matlab] show a normal random heart

% Just for fun, not really useful.... % @ http://scriptdemo.blogspot.com  clear; close all; r=0.618; n=10000; re=sqrt(1-r*r); x=normrnd(0,1,n,1); y=x*r+normrnd(0,1,n,1)*re;y(x<0)=-y(x<0); plot(x,y,'o','markerEdgeColor',[1 0 1],'markerFaceColor','none'); axis equal tight off; set(gcf,'MenuBar','none','color','w')

[Matlab] bar/tube plot along a 3d path

function hbarplot=barplot(x,y,z,varargin) % plot a 3d surface/tube centered at (x,y,z) % usage: %           hbarplot=barplot(x,y,z,varargin) %           varargin: %                       'v' : the cdata values, same size as z %                       'n' : N-isogon as the basic shape %                       'r' : radius of the N-isogon %    e.g., %          zz=0:0.5:10; %          hh=barplot(cos(zz/10*pi),5,zz,'v',randn(1,numel(zz))+sin(zz/10*pi),'n',4,'r',sin(zz/10*pi)); view(3) %          http://scriptdemo.blogspot.com clc; myN=3; myR=0.5; isV=0; if nargin>3    while(size(varargin,2)>0)       switch lower(varargin{1})       case {'v','cdata','colordata','facecolordata'}           v=varargin{2};           varargin(1:2)=[];           isV=1;       case {'n','nshape'}           myN=varargin{2};           varargin(1:2)=[];       case {'r','radius'}           myR=varargin{2};           varargin(1:2)=[];       otherwise           error(['Not defined properties!',varargin{1}])       end    end elseif nargin==0    % demo case    zz=0:0.5:10;    hbarplot=barplot(cos(zz/10*pi),5,zz,'v',randn(1,numel(zz))+sin(zz/10*pi),'n',4,'r',sin(zz/10*pi));    view(-150,30);    return elseif nargin<3    help barplot    return end [xx,yy,zz]=getMeshN(x,y,z,myR,myN); if isV==0    hbarplot=surface(xx',yy',zz'); else    if numel(v)==numel(z)       vv=repmat(reshape(v,[],1),1,size(xx,2));    end    hbarplot=surface(xx',yy',zz');    set(hbarplot,'cdata',vv'); end set(hbarplot,'tag','barplot','linestyle','none','facecolor','interp'); axis off equal set(gcf,'color','w'); function [xx,yy,zz]=getMeshN(x0,y0,z,myR,N) if nargin==3    myR=0.5;    N=3; elseif nargin==4    N=3; elseif nargin~=5    error('Usage: [xx,yy,zz]=getMeshN(x,y,z,myR,N)'); end z=reshape(z,[],1); numZ=numel(z); myAng=linspace(0,2*pi,N+1); xslab=cos(myAng); yslab=sin(myAng); %N=numel(xslab)-1; % could be other shape as well. if numel(x0)==1    x0=repmat(x0,numZ,N+1); elseif numel(x0)==numZ    x0=repmat(reshape(x0,[],1),1,N+1); end if numel(y0)==1    y0=repmat(y0,numZ,N+1); elseif numel(y0)==numZ    y0=repmat(reshape(y0,[],1),1,N+1); end if numel(myR)==1    xx=repmat(xslab*myR,numZ,1)+x0;    yy=repmat(yslab*myR,numZ,1)+y0; else    myR=repmat(reshape(myR,[],1),1,N+1);    xx=repmat(xslab,numZ,1).*myR+x0;    yy=repmat(yslab,numZ,1).*myR+y0; end zz=repmat(z,1,N+1);

[Matlab] fill a specific-value region with a given color

function FillIt(lon,lat,Land,FillC,TagType,FillValue) % To fill a specific-value region with a given color % Usage: %            FillIt(lon,lat,Land,FillC,TagType,FillValue) %                   TagType: could be 'RU' or 'LD',  %                                 to fill right-up square or left-down square %                   FillValue: nan [default] or specific value to fill with color [FillC] %            Note: lon, lat, Land must be the same size %      e.g., %            FillIt(lon,lat,lsmask,[0.0 0.3 0.3],'RU') %      http://scriptdemo.blogspot.com if nargin==0    %demo    load topo topo;    topo(topo>0)=nan;    xx=1:360; yy=1:180;    [xx,yy]=meshgrid(xx,yy);    FillIt(xx,yy,topo,[0.4 0.3 0.4],'RU');    set(gca,'tickdir','out','linewidth',2,'xminortick','on','yminortick','on','box','on','fontweight','bold');    set(gcf,'color','w'); axis equal; axis tight;    return end if nargin==3    FillC=[0.3 0.3 0.3];    TagType='RU';    FillValue='nan'; elseif nargin==4    TagType='RU';    FillValue='nan'; elseif nargin==5    FillValue='nan'; elseif nargin~=6    help FillIt;    return end if numel(lon)~=numel(lat)    disp('lon and lat must be the same size')    return end if numel(lon)~=numel(Land)    disp('lon/lat and land must be the same size')    return end [Ny,Nx]=size(Land); if ischar(FillValue)    if strcmpi(FillValue,'nan')       [Indy,Indx]=find(isnan(Land));    else       disp(['invalid fill value: ',FillValue])       return    end elseif isnumeric(FillValue)       [Indy,Indx]=find(Land==FillValue); else       disp('invalid fill value')       return end switch upper(TagType)    case 'RU'       % Right Up       % 4----3       % |      |       % 1----2       Indx(Indy==Ny)=[];Indy(Indy==Ny)=[];       Indy(Indx==Nx)=[];Indx(Indx==Nx)=[];       Fillx(1,:)=lon((Indx-1)*Ny+Indy);       Fillx(2,:)=lon((Indx)*Ny+Indy);       Fillx(3,:)=lon((Indx)*Ny+Indy+1);       Fillx(4,:)=lon((Indx-1)*Ny+Indy+1);       Fillx(5,:)=lon((Indx-1)*Ny+Indy);       Filly(1,:)=lat((Indx-1)*Ny+Indy);       Filly(2,:)=lat((Indx)*Ny+Indy);       Filly(3,:)=lat((Indx)*Ny+Indy+1);       Filly(4,:)=lat((Indx-1)*Ny+Indy+1);       Filly(5,:)=lat((Indx-1)*Ny+Indy);    case 'LD'       % Left Down       % 2----1       % |     |       % 3----4       Indx(Indy==1)=[];Indy(Indy==1)=[];       Indy(Indx==1)=[];Indx(Indx==1)=[];       Fillx(1,:)=lon((Indx-1)*Ny+Indy);Filly(1,:)=lat((Indx-1)*Ny+Indy);       Fillx(2,:)=lon((Indx-2)*Ny+Indy);Filly(2,:)=lat((Indx-2)*Ny+Indy);       Fillx(3,:)=lon((Indx-2)*Ny+Indy-1);Filly(3,:)=lat((Indx-2)*Ny+Indy-1);       Fillx(4,:)=lon((Indx-1)*Ny+Indy-1);Filly(4,:)=lat((Indx-1)*Ny+Indy-1);       Fillx(5,:)=lon((Indx-1)*Ny+Indy);Filly(5,:)=lat((Indx-1)*Ny+Indy);    otherwise      disp('Not defined Fill Type')      help FillIt      return end if ~ishold; hold on; end hf=patch(Fillx,Filly,FillC); set(hf,'linestyle','none','tag','fillIt');

[Matlab] show 2d mesh grid

function ShowGridLine(lon,lat,NSkip,LineC,LineS,LineM) % To show a 2d mesh-grid defined by given grid points % similar to the function mesh? % Example: %          ShowGridLine(lon,lat,2,'k','-','.') %          http://scriptdemo.blogspot.com % if (nargin>3)     if exist('LineC','var')~=1 LineC='k'; end     if exist('LineS','var')~=1 LineS='-'; end     if exist('LineM','var')~=1 LineM='none'; end elseif (nargin>=2)     if exist('NSkip','var')==1         if ischar(NSkip) LineC=NSkip; clear NSkip; end     end     if exist('NSkip','var')~=1 NSkip=5; end     if exist('LineC','var')~=1 LineC='k'; end     if exist('LineS','var')~=1 LineS='-'; end     if exist('LineM','var')~=1 LineM='none'; end elseif (nargin==0)     close all;     [xx,yy]=meshgrid(1:19,1:19);     ShowGridLine(xx,yy,1,'k','-');     plot(4,4,'o','markerfacecolor','k','markersize',4,'markeredgecolor','k');     plot(16,16,'o','markerfacecolor','k','markersize',4,'markeredgecolor','k');     plot(4,16,'o','markerfacecolor','k','markersize',4,'markeredgecolor','k');     plot(16,4,'o','markerfacecolor','k','markersize',4,'markeredgecolor','k');     set(gcf,'color','w');     set(gca,'xtick',2:2:18,'ytick',2:2:18,'ydir','r','xaxislocation','top')     axis equal; axis tight;     xlabel('Go Board','fontweight','bold','fontsize',18,'color','red');     return else     help ShowGridLine     return end [N1,N2]=size(lat); if ~ishold hold on; end for NL=1:NSkip:N2     hp=plot(lon(:,NL),lat(:,NL));     set(hp,'color',LineC,'linestyle',LineS,'Marker',LineM) end for NL=1:NSkip:N1     hp=plot(lon(NL,:),lat(NL,:));     set(hp,'color',LineC,'linestyle',LineS,'Marker',LineM,'tag','gridLines') end

Demo:

[Matlab] create a time series using datenum

function myT=yymmdd2x(inYear,inMonth,inDay) % create the time axis based on input time [year, mon, date], using datenum % usage: %           xTime=yymmdd2x(years, months, days); % or %           xTime=yymmdd2x(yyyymmdd); %  http://scriptdemo.blogspot.com if (nargin==0 || nargin>3)    help yymmdd2x;    return end if nargin==1    %yyyymmdd case    yyyymmdd=inYear;    inYear=floor(yyyymmdd/10000);    inDay=mod(yyyymmdd,100);    inMonth=floor(mod(yyyymmdd,10000)/100); clear yyyymmdd    totalDaysInYear=datenum(inYear+1,1,1)-datenum(inYear,1,1);    daysInYear=datenum(inYear,inMonth,inDay)-datenum(inYear,1,1)+1;    myT=daysInYear./totalDaysInYear+inYear; elseif nargin==2    % no date, set to 15th, may consider create 12 month for each year if necessary    if length(inYear)~=length(inMonth) && length(inMonth)<=12       % repeat inMonth for each year       inMonth=reshape(inMonth,1,[]);       mm=repmat(inMonth,1,length(inYear));       yy=reshape(repmat(reshape(inYear,1,[]),length(inMonth),1),1,[]);       clear inMonth inYear       totalDaysInYear=datenum(yy+1,1,1)-datenum(yy,1,1);       daysInYearA=datenum(yy,mm+1,1)-datenum(yy,1,1)+1;       daysInYear=datenum(yy,mm,1)-datenum(yy,1,1)+1;       myT=0.5*(daysInYearA+daysInYear)./totalDaysInYear+yy;    elseif (length(inYear)==length(inMonth))       totalDaysInYear=datenum(inYear+1,1,1)-datenum(inYear,1,1);       daysInYearA=datenum(inYear,inMonth+1,1)-datenum(inYear,1,1)+1;       daysInYear=datenum(inYear,inMonth,1)-datenum(inYear,1,1)+1;       myT=0.5*(daysInYearA+daysInYear)./totalDaysInYear+inYear;    else        disp('Too difficult for me to guess what your wanna to do...')        return    end else    totalDaysInYear=datenum(inYear+1,1,1)-datenum(inYear,1,1);    daysInYear=datenum(inYear,inMonth,inDay)-datenum(inYear,1,1)+1;    myT=daysInYear./totalDaysInYear+inYear; end