?? fig3_8a.m
字號(hào):
clear all
n= 0.;
for f = 0:.011:1.;
x1 = sqrt(100. / 2.) * (1. + f);
x2 = sqrt(100. / 2.) * (1. - 2. * f);
c2 = quadl('fresnelc',0,x2);
c1 = quadl('fresnelc',0,x1);
s1 = quadl('fresnels',0,x1);
s2 = quadl('fresnels',0,x1);
n = n + 1.;
spec(n) = (c2 + c1 + i * (s2 + s1)) / sqrt(2.);
end
f = 0:0.011:1;
plot(f,abs(spec))
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -