quad1.m

来自「matlab经典模型程序图(最新推荐) 93年建模_足球排名、DNA排序、m」· M 代码 · 共 18 行

function S=quad1(x)
s=0;
k=0;
a=rand(100);
for i=1:100
    for j=1:100
        if j/100<sin(i/100*x)
            s=s+a(i,j);
        end    
    end
end
for l=1:100
    for m=1:100
        k=k+a(l,m);
    end
end
s/k*pi;
end