请用matlab语言写一个EESS卫星到地面传输损耗的计算程序，其中卫星高度705km，频率f是237GHz，大气吸收损耗是5dB。

答：程序如下：

h=705; % 卫星高度（km）
f=237; % 频率（GHz）
L=5; % 大气吸收损耗（dB）

L_total = 20*log10(4*pi*h*1000/300) + L; % 计算总损耗（dB）

fprintf('EESS卫星到地面传输损耗的计算结果：\n卫星高度：%d km\n频率：%d GHz\n大气吸收损耗：%d dB\n总损耗：%d dB\n', h, f, L, L_total);