%M腳本文件（程序）
subplot（321）;
for?L=0:100:10000
????Cn=8*10^（-9）;
???th=4.03*Cn.^（6/5）*0.6328.^（-1/5）*L.^（3/5）;
????rad=th*L;
????plot（Lrad‘-‘）?
hold?on
end
%?title（‘光斑尺度和傳輸距離的關(guān)系‘）
xlabel（‘傳輸距離‘）
ylabel（‘光斑尺度‘）

subplot（322）;
for?Cn=0:5*10^（-9）:500*10^（-9）
?????L=1000;
?th=4.03*Cn.^（6/5）*0.6328.^（-1/5）*L.^（3/5）;
????rad=th*L;
????plot（Cnrad‘-‘）?
????hold?on
end
%?title（‘光斑尺度和湍流強度的關(guān)系‘）
xlabel（‘湍流強度‘）
ylabel（‘光斑尺度‘）

subplot（323）;
for?L=0:100:10000
????Cn=8*10^（-9）;
??alf=sqrt（1.75*Cn*Cn*L*3.2^（-1/3）*10^（-18））;
????plot（Lalf‘-‘）?
hold?on
end
%?title（‘光斑偏移角