脚本代码：
f = getdata("R","f");
T = transmission("T");
R = -transmission("R");
A = 1-T-R;
plot(c/f*1e6,A,T,R,"wavelength,us","T,R");
legend("A","T","R");
脚本代码：
f = getdata("R","f");
T = transmission("T");
R = -transmission("R");
A = 1-T-R;
plot(c/f*1e6,A,T,R,"wavelength,us","T,R");
legend("A","T","R");
研小埠
ANSYS仿真集训营
