Page 180 - 数学建模算法与应用

Mathematical Modeling Algorithms and Applications
数学建模算法与应用

利用如下的程序：
clc，clear
x0=[150 85 150 145 130 0]；

y0=[140 85 155 50 150 0]；
q=[243 236 220.5 159 230 52]；
xy0=[x0； y0]；
d0=dist(xy0)； % 求矩阵各个列向量之间的距离
d0(find(d0==0))=inf；

a0=asind(8./d0) % 以度为单位的反函数
xy1=x0+i*y0
xy2=exp(i*q*pi/180)

for m=1：6
for n=1：6
if n~=m
b0(m，n)=angle((xy2(n)-xy2(m))/(xy1(m)-xy1(n)))；
end

end
end
b0=b0*180/pi；

dlmwrite(‘txt1.txt’，a0，’delimiter’， ‘\t’，’newline’，’PC’)；
fid=fopen(‘txt1.txt’，’a’)；
fwrite(fid，’~’，’char’)； % 往纯文 A 文件中写 LINGO 数据的分割符
dlmwrite(‘txt1.txt’，b0，’delimiter’， ‘\t’，’newline’，’PC’，’-
append’，’roffset’， 1)

求得 的值如表 6- 2 所示。

170