L1D1h=TAMIR77I(b*1000, z0, z1, h, f, eprf, sigmaf, eprg, sigmag, 0);
L1D2h=TAMIR77I((k-b)*1000, z0, z1, h, f, eprf, sigmaf, eprg, sigmag,
0);
L1Dh=TAMIR77I(k*1000, z0, z1, h, f, eprf, sigmaf, eprg, sigmag, 0);
L2D1h=M2R(b*1000, h, z1, f, eprg, sigmag, 0, dh);
L2D2h=M2R((k-b)*1000, h, z1, f, eprg, sigmag, 0, dh);
L2Dh=M2R(k*1000, h, z1, f, eprg, sigmag, 0, dh);
LHFMh(k)=0.5*(L1D1h+L1Dh+L2D2h+L2Dh-L1D2h-L2D1h);
1.8. Laço: Cálculo de Millington para polarização vertical:
1.8.1. para k de b+1 até DM
L1D1v=TAMIR77I(b*1000, z0, z1, h, f, eprf, sigmaf, eprg, sigmag, 1);
L1D2v=TAMIR77I((k-b)*1000, z0, z1, h, f, eprf, sigmaf, eprg, sigmag,
1);
L1Dv=TAMIR77I(k*1000, z0, z1, h, f, eprf, sigmaf, eprg, sigmag, 1);
L2D1v=M2R(b*1000, h, z1, f, eprg, sigmag, 1, dh);
L2D2v=M2R((k-b)*1000, h, z1, f, eprg, sigmag, 1, dh);
L2Dv=M2R(k*1000, h, z1, f, eprg, sigmag, 1, dh);
LHFMv(k)=0.5*(L1D1v+L1Dv+L2D2v+L2Dv-L1D2v-L2D1v);
2. Exibição dos gráficos para as simulações em HF (Tamir I, Tamir II, M2r e Millington)
3. Testes em VHF
3.1. Chamada da rotina TAMIR77I para o cálculo da perda utilizando Tamir I para
polarização vertical (LVHFIv);
3.2. Chamada da rotina TAMIR77I para o cálculo da perda utilizando Tamir I para
polarização horizontal (LVHFIh);
3.3. Chamada da rotina TAMIR77II para o cálculo da perda utilizando Tamir II para
polarização vertical (LVHFIIv);
3.4. Chamada da rotina TAMIR77II para o cálculo da perda utilizando Tamir II para
polarização horizontal (LVHFIIh);
3.5. Chamada da rotina M2R para o cálculo da perda utilizando o Modelo de 2 raios
para polarização vertical (LVHFCv);
3.6. Chamada da rotina M2R para o cálculo da perda utilizando o Modelo de 2 raios
para polarização horizontal (LVHFCh);
125