taohfunc.m

来自「高频地波雷达完整仿真matlab程序 网上找到的」· M 代码 · 共 7 行

function [taoH]=TaoH(y,sita,eta,m1,m2)
  k=y^2;
  k1=sqrt(1+2*k*cos(sita)+k^2);
  sita1=pi+asin(k*sin(sita)/k1);
  s1=(k*k1-k*k1*cos(sita1-sita))*(eta^2+1);
  s2=m1*m2*sqrt(k*k1)*(eta^2-1);
  taoH=(-j/2)*(k+k1-s1/s2);