EJECUCION DEL PROGRAMA (para basic)              manolo20.bas
----------------------------------------
Sirve para estimar diagramas radiantes de antenas FM y TDT.
Te dan dos dibujos 
primero: uno en forma de uva, diagrama horizontal, te sirve para corregir el valor maximo
al nuevo valor que corresponde al desviarte en grados Izq. o Der de su punto maximo 
(el circulo en que esta tendras da perdida, pe .7> 70% > 3 db te da Ancho del haz)

segundo: en forma de montaa, te sirve para corregir el valor maximo
al nuevo valor que corresponde al desviarte en grados arriba o abajo de su punto maximo 
(p.e. a 20 %, pierdes un 40% que son 8 db )

Tambien funciona en QB64, en Linux,Mac y windows 10
(comprobado qn Qbasic en MS-DOS, Windows98, Windows XP)

Con un interprete lo podemos ejecutarlo, con un interprete de 3 formas:

primera opcion
Manejo del programa en manual
qbasic /RUN manolo20.bas

segunda opcion
qbasic /RUN manolo20.bas <hor

Manejo del programa en automatico
tercera opcion
qbasic /RUN manolo20.bas <ver >salida.txt





El fichero salida.txt tiene los valores del campo
calculados en el programa.

En este ejemplo el fichero de datos .hor
tiene los datos a introducir por el teclado al programa
la primera linea tiene la descripcion del diagrama
esta primera linea no debe tener , (en basic indica otro dato distinto)
linea por linea tiene la introduccion que se haria por teclado
no se recomienda en este fichero de configuracion llegar hasta el punto
que indique acabar el programa , opcion N (desea otro)
, ya que se sale y no deja el grafico en pantalla.
No dejar lineas en blanco con RC al final del fichero.

Los datos se meten en longitudes de honda. P.E.
separacion del centro electrico del panel al centro de la torre de 260 mm
para un canal 52 de TV. (f= 719MHz)
landa=300 / 719= 417 mm. luego 260 mm -> 0'623 landa

Los graficos debes tener una impresora paralelo en modo Epson o IBM
(desde win98 las matriciales lo aceptan, tambien las epson ESC-P2).
En una maquina virtual puedes simplemente capturar la pantalla

UN EJEMPLO para Diagrama Horizontal
===================================
La entrada para un caso sencillo de una antena con solo 1 panel, orientacin 
340  respecto al Norte, para el canal 57 UHF (frec=762 Mh, landa= 300/762= 0,394 m )
Na(n paneles)=1
Xa(coordenada x)= -0,1 ( los numeros se entran con . puntito del teclado numerico)
Ya(coordenada y)= 0,5
Acimut: 340 
Nb=nc=nd=0
Lo que  ves en pantalla es campo electrico, para hallar el angulo de apertura debes
fijarte en el circulo 0,7      ->  en potencia 0,5    ->  -3 db

repite para na=2, ves la diferencia

Entrando datos en el programa
-----------------------------
Te sale esta pantalla
"(c/g/H/F/A/V/m/s):"
que corresponde a Corrige hor./Modi.ver./Graba h/Salva v/Fin/Ayuda/Hor./Ver:
H <-| Te pide los datos
1 <-| Na(n paneles)
1 <-| Xa(coordenada x) en landas
0.5 <-| Ya(coordenada y) en landas
0 <-| Acimut en grados sesagesimales
-90 <-| 
1 <-| Nb(n paneles)
0 <-| Xb(coordenada x) en landas
-0.5 <-| Yb(coordenada y) en landas
180 <-|
0.5 <-|
0 <-| nc
0 <-| nd

Lo que  ves en pantalla es campo electrico, para hallar el angulo de apertura debes
fijarte en el circulo 0,7      ->  en potencia 0,5    ->  -3 db

UN EJEMPLO para Diagrama Vertical
=================================
La entrada para un caso sencillo de una antena con solo 1 panel, 
340  respecto al Norte, para el canal 57 UHF (frec=762 Mh, landa= 300/762= 0,394 m )
Na(n paneles)=1
Xa(coordenada x)= -0,1 ( los numeros se entran con . puntito del teclado numerico)
Ya(coordenada y)= 0,5
Acimut: 340 
Nb=nc=nd=0
Lo que  ves en pantalla es campo electrico, para hallar el angulo de apertura debes



RUTINAS PRINCIPALES DEL PROGRAMA
-------------------------------
Listado de las principales rutinas del programa original
Programa para calculo de diagramas de radiacin horizontal y vertical
 de antenas de paneles
Analisis de rutinas y saltos del programa
pide si quieres instrucciones del programa, hacer gosub 1000 o no
pide si quieres hacer Diagrama Vertical(2020), Horizontal (1010)

  35: ????? en linea 155 otro? goto 14
      hace gosub 550
 550
 667 Dibujo de panel en 730 RET
1000 Presentacion pagina de ayuda en 1008 RET
1010 Inicio del PRG dibujo de diagrama horizontal, en 1330 goto 35

2010 Inicio del PRG dibujo de diagrama vertical, en 2195 otro? goto 14
     dentro gosub a 2500,2300,2510
2500 dibuja recuadro  en 2502 ret
2300 entrada de dadtos en 2430 ret
2510 dibuja escala en 2590 ret
5000 correcion de datos en 5510 ret
8000 limpieza linea 1

Ayuda del programa
------------------
Este programa permite obtener y dibujar el diagrama de radiacion"
 de un sistema compuesto por conjunto de antenas de paneles
esta comprobado hasta 8 pisos; con 4 caras, como maximo 32 paneles"
radiantes para las bandas de TV y FM. "
 El diagrama que se obtiene es relativo, esto es , indica "
 la ganancia respecto a la direccion de maxima radiacion"
 el valor absoluto de dicha ganancia es facilmente obtenible"
 referenciando el valor max. a la ganancia del fabricante 
El programa usa para el calculo , la expresion"
analitica de un panel elemental. Esto es un dipolo de media"
 onda , situado a un cuarto de onda de un plano reflector."
Para una panel de 4 dipolos ...
 Las leves diferencias que puedan observarse entre este programa"
 y los datos del fabricante, son debidos a que por consideraciones"
 practicas ( Ganancia, Ancho de banda, R.O.E. los paneles"
 de los fabricantes no se pueden considerar iguales a los de este"
programa."
 Los datos de entrada se han elegido para que sean didacticos"
 P.E. para la separacion entre paneles se usan longitudes de onda"
 , en vez de milimetros, por este motivo."
 Los acimut y desfasajes se deben dar en grados sexagesimales."
 Ahora presento la torre, y el sistema de coordenadas escogido"
 para la acotacion de los paneles en el plano horizontal."


 En el plano vertical , se supone que los paneles estan alineados"
vertical y paralelamente al eje de la torre y a la misma distancia"
unos de otros"
 Los posibles retranqueos deben expresarse en grados, y deben "
sumarse a los desfasajes electricos correspondientes"
 El piso 1 es el superior,el piso que no exista queda eliminado"
dando un valor de numero de paneles =0
angulo de fase en blanco."
-------------------------
                       |y                      "
                       |                       "
                       | A                     "
                   ----------                  "
                   |   |    |                  "
    -x           D |   |    |B              x  "
    ---------------|---|----|----------------  "
                   |   |    |                  "
                   |   |    |                  "
                   ----------                  "
                       |C                      "
                       |                       "
                       |                       "
                       |-y                     "
  Este programa se basa en la adicion de campos fasoriales,es decir"
 en sumar las contribuciones de campo de cada uno de los  paneles."
 La magnitud del campo (el campo es un vector), se considera constante"
 en funcion de la distancia (aunque sabemos que se atenua con la dist.)
 porque lo importante es la suma de todos los paneles."
  En un punto distante a varios decenas de longitudes de onda, el campo"
 aportado por cada panel, (es vector con modulo y fase), separados a "
 menos de una landa,  y se pueden considerar en un mismo punto,"
 (manteniendo la relacion de potencias), en la suma "
 el efecto importante es la diferencia de fase entre cada panel,"
 para ello en cada punto estudiamos la aportacion segun su fase."

Radiacion horizontal
seguimiento para el calculo de un radial, (se calculan 1,2,3,4..360)
na(n paneles cara A):1
xa(distancia x eje torre panel A): -0.1
ya(distancia y eje torre panel A): 0.5
aa(azimut ): 340
De estos datos primarios obtenemos:
aar (azimut en radianes) =
ta= 3Pi/2-arctg (ya/xa) =
da=raiz(xa^2+ya^2) distancia panel al eje torre
aa0=0
ga= f- (aar-pi/2)
e1= cos( pi/2*cos ga) /sen ga
e2= 2*sen(pi/2*sen ga)
ea= ABS (e1)*e2
si ea<0 -> ea=0
fsa=aa0+ABS( 2*pi*da*cos(ta-f))
e1=na*ea*cos fsa+nb*eb*cos fsb +...
e2=na*ea*sen fsa+nb*eb*cos fsb +...
E= raiz(e1^2+e2^2): cambo electrico en ese radial
-----------------------------------------------------
Tienes varios ejemplos
Hor.bat Horizontal 1 solo lobulo (para pozoblanco )
ve.bat Vertical 1 solo lobulo (para limonar )

Para capturar pantallas puedes tirarle una foto,
o usar dosbox y capturar la pantalla ^F5  (en formato .png )
http://www.emezeta.com/articulos/manual-de-dosbox-revive-juegos-antiguos