function L=mkL(m,l) %MKL Create m-by-m matrix L for vector l. L=eye(m); k=m-length(l); L(k+1:m,k)=l(:);
S9-M 源代码
汇集 S9-M 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
function y=ldpc_linetime_encode_2(x,H,inv_phi1,g); %tic [m,n]=size(H); A=H(1:m-g,1:n-m);B=H(1:m-g,n-m+1:n-m+g); C=H(m-g+1:m,…
/* XPM */ static char * krell_mail_xpm[] = { "20 240 605 2", " c None", ". c #000000", "+ c #080605", "@ c #070907", "# c #1…
function [f,d]=oad(y,eta,sita,m1,m2) f=eta-m1*y-m2*(1+2*y^2*cos(sita)+y^4)^(1/4); d=-m1-m2*(y*cos(sita)+y^3)/(1+2*y^2*cos(sita…
read *, m,n do while (m/=n) do while (m>n) m=m-n end do do while (n>m) n=n-m end do end do print *, '最大公约数=',m e…
read *, m,n do while (m/=n) do while (m>n) m=m-n end do do while (n>m) n=n-m end do end do print *, '最大公约数=',m e…
function [f,d]=oad(y,eta,sita,m1,m2) f=eta-m1*y-m2*(1+2*y^2*cos(sita)+y^4)^(1/4); d=-m1-m2*(y*cos(sita)+y^3)/(1+2*y^2*cos(sita…
read *, m,n do while (m/=n) do while (m>n) m=m-n end do do while (n>m) n=n-m end do end do print *, '最大公约数=',m e…
read *, m,n do while (m/=n) do while (m>n) m=m-n end do do while (n>m) n=n-m end do end do print *, '最大公约数=',m e…
read *, m,n do while (m/=n) do while (m>n) m=m-n end do do while (n>m) n=n-m end do end do print *, '最大公约数=',m e…