Что это за язык программирования

%clear
%clc
load god1999.txt;
[M,N]=size(god1999);
for asd=41:1:100
    G=asd;  
    eps=9;
    Z=(M-mod(M,G))/G
    bt=zeros(G,Z);
    for i=1:1:Z
        bt(:,i)=god1999(G*(i-1)+1:G*i,2:2);
    end
    bt=transpose(bt);
    [m,n]=size(bt);
    j=1;
    k=m;
    while m>0
        bt15=zeros(k-1,n);
        g=1;k=1;
        for i=1:1:m
         if max(bt(i,:))>0
            raz=bt(i,:)-bt(1,:);
         ra=sum(raz.*raz)/(n-1);
               if ra>eps           
                bt15(k,:)=bt(i,:);
                k=k+1;    
               end
         end
        end
        if max(bt(1,:))>0
           etalons(j,:)=bt(1,:);
           j=j+1
        end
        clear bt
        bt=bt15;
        clear bt15
        [m,n]=size(bt);
        m
    end
    [mM,nN]=size(etalons);
    opt(asd-9,1)=G*(j-1)+Z;
    opt(asd-9,2)=mM;
    opt(asd-9,3)=nN;    
    clear etalons
    clear nN
    clear mM
    save autosafe
end
%создание эталонных форм
clear
clc
load god19991;
[M,N]=size(god19991);
    G=17  
    eps=9;
    Z=(M-mod(M,G))/G
    bt=zeros(G,Z);
    for i=1:1:Z
        bt(:,i)=god19991(G*(i-1)+1:G*i,1:1);
    end
    bt=transpose(bt);
    [m,n]=size(bt);
    j=1;
    k=m;
    while m>0