kopia lustrzana https://github.com/dl2alf/AirScout
500 wiersze
15 KiB
C#
500 wiersze
15 KiB
C#
using System;
|
||
using System.Collections;
|
||
|
||
namespace WCCheck
|
||
{
|
||
/// <summary>
|
||
///
|
||
/// </summary>
|
||
public class WCCheck : Object
|
||
{
|
||
public static double Radius = 6378.2;
|
||
|
||
private static PrefixList Prefixes;
|
||
|
||
static WCCheck()
|
||
{
|
||
Prefixes = new PrefixList();
|
||
}
|
||
|
||
public class PrefixEntry : System.Object
|
||
{
|
||
public string Prefix = "";
|
||
public string Name = "";
|
||
public string Start = "";
|
||
public string Stop = "";
|
||
|
||
public PrefixEntry (string APrefix, string AName, string AStart, string AStop)
|
||
{
|
||
Prefix = APrefix;
|
||
Name = AName;
|
||
Start = AStart;
|
||
Stop = AStop;
|
||
}
|
||
|
||
public string PREFIX
|
||
{
|
||
get
|
||
{
|
||
return Prefix;
|
||
}
|
||
}
|
||
|
||
public string STOP
|
||
{
|
||
get
|
||
{
|
||
return Stop;
|
||
}
|
||
}
|
||
public string START
|
||
{
|
||
get
|
||
{
|
||
return Start;
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
public class PrefixList : System.Collections.ArrayList
|
||
{
|
||
public class LengthComparer : IComparer
|
||
{
|
||
int IComparer.Compare( Object x, Object y )
|
||
{
|
||
if (((PrefixEntry)x).Start.Length < ((PrefixEntry)y).Start.Length)
|
||
return 1;
|
||
if (((PrefixEntry)x).Start.Length > ((PrefixEntry)y).Start.Length)
|
||
return -1;
|
||
return ((PrefixEntry)x).Start.CompareTo(((PrefixEntry)y).Start);
|
||
}
|
||
}
|
||
|
||
public PrefixList()
|
||
{
|
||
this.Add(new PrefixEntry("C3","Andorra","C3","C3"));
|
||
this.Add(new PrefixEntry("OE","Austria","OE","OE"));
|
||
this.Add(new PrefixEntry("ON","Belgium","ON","OT"));
|
||
this.Add(new PrefixEntry("LZ","Bulgaria","LZ","LZ"));
|
||
this.Add(new PrefixEntry("EA8","Canary Islands","EA8","EA8"));
|
||
this.Add(new PrefixEntry("EA8","Canary Islands","EH8","EH8"));
|
||
this.Add(new PrefixEntry("SV9","Crete","SV9","SV9"));
|
||
this.Add(new PrefixEntry("5B","Cyprus","5B","5B"));
|
||
this.Add(new PrefixEntry("5B","Cyprus","C4","C4"));
|
||
this.Add(new PrefixEntry("5B","Cyprus","H2","H2"));
|
||
this.Add(new PrefixEntry("5B","Cyprus","P3","P4"));
|
||
this.Add(new PrefixEntry("OK","Czechia","OK","OL"));
|
||
this.Add(new PrefixEntry("OM","Slovakia","OM","OM"));
|
||
this.Add(new PrefixEntry("OZ","Denmark","OU","OZ"));
|
||
this.Add(new PrefixEntry("EA","Spain","AM","AO"));
|
||
this.Add(new PrefixEntry("EA","Spain","EA","EH"));
|
||
this.Add(new PrefixEntry("DL","Germany","DA","DR"));
|
||
this.Add(new PrefixEntry("EI","Ireland","EI","EJ"));
|
||
this.Add(new PrefixEntry("F","France","F","F"));
|
||
this.Add(new PrefixEntry("F","France","TP","TP"));
|
||
this.Add(new PrefixEntry("F","France","TM","TM"));
|
||
this.Add(new PrefixEntry("G","England","G","G"));
|
||
this.Add(new PrefixEntry("G","England","M","M"));
|
||
this.Add(new PrefixEntry("G","England","2E","2E"));
|
||
this.Add(new PrefixEntry("HA","Hungaria","HA","HA"));
|
||
this.Add(new PrefixEntry("HA","Hungaria","HG","HG"));
|
||
this.Add(new PrefixEntry("HB9","Switzerland","HB1","HB9"));
|
||
this.Add(new PrefixEntry("HB9","Switzerland","HE","HE"));
|
||
this.Add(new PrefixEntry("HB0","Liechtenstein","HB0","HB0"));
|
||
this.Add(new PrefixEntry("SP","Poland","HF","HF"));
|
||
this.Add(new PrefixEntry("SP","Poland","SP","SP"));
|
||
this.Add(new PrefixEntry("SP","Poland","SO","SO"));
|
||
this.Add(new PrefixEntry("SP","Poland","SQ","SQ"));
|
||
this.Add(new PrefixEntry("SP","Poland","SN","SN"));
|
||
this.Add(new PrefixEntry("SV","Greece","J4","J4"));
|
||
this.Add(new PrefixEntry("SV","Greece","SV","SV"));
|
||
this.Add(new PrefixEntry("LA","Norway","LA","LN"));
|
||
this.Add(new PrefixEntry("LX","Luxembuorg","LX","LX"));
|
||
this.Add(new PrefixEntry("PA","Netherlands","PA","PI"));
|
||
this.Add(new PrefixEntry("I","Italy","I0","I9"));
|
||
this.Add(new PrefixEntry("I","Italy","IA","IZ"));
|
||
this.Add(new PrefixEntry("YU","Yugoslavia","YU1","YU1"));
|
||
this.Add(new PrefixEntry("YU","Yugoslavia","YU6","YU9"));
|
||
this.Add(new PrefixEntry("YU","Yugoslavia","YT","YT"));
|
||
this.Add(new PrefixEntry("YU","Yugoslavia","YZ","YZ"));
|
||
this.Add(new PrefixEntry("YU","Yugoslavia","4N","4N"));
|
||
this.Add(new PrefixEntry("9A","Croatia","9A","9A"));
|
||
this.Add(new PrefixEntry("9A","Croatia","YU2","YU2"));
|
||
this.Add(new PrefixEntry("S5","Slovenia","S5","S5"));
|
||
this.Add(new PrefixEntry("S5","Slovenia","YU3","YU3"));
|
||
this.Add(new PrefixEntry("T9","Bosnia-Herzegovina","T9","T9"));
|
||
this.Add(new PrefixEntry("T9","Bosnia-Herzegovina","YU4","YU4"));
|
||
this.Add(new PrefixEntry("Z3","Mazedonia","Z3","Z3"));
|
||
this.Add(new PrefixEntry("Z3","Mazedonia","YU5","YU5"));
|
||
this.Add(new PrefixEntry("SM","Sweden","SA","SM"));
|
||
this.Add(new PrefixEntry("HV","Vatikan","HV","HV"));
|
||
this.Add(new PrefixEntry("EA6","Balearic Islands","EA6","EA6"));
|
||
this.Add(new PrefixEntry("EA6","Balearic Islands","EH6","EH6"));
|
||
this.Add(new PrefixEntry("GD","Isle Of Man","GD","GD"));
|
||
this.Add(new PrefixEntry("GI","Northern Ireland","GI","GI"));
|
||
this.Add(new PrefixEntry("GJ","Jersey","GJ","GJ"));
|
||
this.Add(new PrefixEntry("GM","Scotland","GM","GM"));
|
||
this.Add(new PrefixEntry("GW","Wales","GW","GW"));
|
||
this.Add(new PrefixEntry("IS","Sardinia","IS","IS"));
|
||
this.Add(new PrefixEntry("TK","Corsica","TK","TK"));
|
||
this.Add(new PrefixEntry("LY","Lithuania","LY","LY"));
|
||
this.Add(new PrefixEntry("ER","Moldavia","ER","ER"));
|
||
this.Add(new PrefixEntry("ES","Estonia","ES","ES"));
|
||
this.Add(new PrefixEntry("EV","Byelorussia","EV","EV"));
|
||
this.Add(new PrefixEntry("EV","Byelorussia","EW","EW"));
|
||
this.Add(new PrefixEntry("UA", "European Russia", "UA", "UA"));
|
||
this.Add(new PrefixEntry("UA", "European Russia", "UA", "RA"));
|
||
this.Add(new PrefixEntry("UA2", "Kaliningrad", "UA2", "UA2"));
|
||
this.Add(new PrefixEntry("UA2", "Kaliningrad", "RA2", "RA2"));
|
||
this.Add(new PrefixEntry("UA2", "Kaliningrad", "RN2", "RN2"));
|
||
this.Add(new PrefixEntry("UA2", "Kaliningrad", "RK2", "RK2"));
|
||
this.Add(new PrefixEntry("YO", "Romania", "YO", "YR"));
|
||
this.Add(new PrefixEntry("ZA","Albania","ZA","ZA"));
|
||
this.Add(new PrefixEntry("ZB4","Gibraltar","ZB4","ZB4"));
|
||
this.Add(new PrefixEntry("9H","Malta","9H","9H"));
|
||
this.Add(new PrefixEntry("TA","Turkey","TA","TA"));
|
||
this.Add(new PrefixEntry("T7","San Marino","T7","T7"));
|
||
// nach L<>nge sortieren, l<>ngste Eintr<74>ge zuerst
|
||
this.Sort(new LengthComparer());
|
||
}
|
||
}
|
||
|
||
// eigentliche Check - Funtionen
|
||
|
||
public static double Lat ( string S )
|
||
{
|
||
double StepB1 = 10;
|
||
double StepB2 = StepB1/10;
|
||
double StepB3 = StepB2/24;
|
||
double StartB1 = -90;
|
||
double StartB2 = 0;
|
||
double StartB3 = StepB3/2;
|
||
try
|
||
{
|
||
S = S.ToUpper();
|
||
if ((S[1] < 'A') || (S[1] > 'Z') ||
|
||
(S[3] < '0') || (S[3] > '9') ||
|
||
(S[5] < 'A') || (S[5] > 'X'))
|
||
{
|
||
return -360;
|
||
}
|
||
return StartB1+StepB1*(System.Convert.ToInt16(S[1])-0x41)+
|
||
StartB2+StepB2*(System.Convert.ToInt16(S[3])-0x30)+
|
||
StartB3+StepB3*(System.Convert.ToInt16(S[5])-0x41);
|
||
}
|
||
catch
|
||
{
|
||
// Fehler bei der Breitenberechnung
|
||
return -360;
|
||
}
|
||
}
|
||
|
||
public static double Lon ( string S )
|
||
{
|
||
try
|
||
{
|
||
double StepL1 = 20;
|
||
double StepL2 = StepL1/10;
|
||
double StepL3 = StepL2/24;
|
||
double StartL1 = -180;
|
||
double StartL2 = 0;
|
||
double StartL3 = StepL3/2;
|
||
S = S.ToUpper();
|
||
if ((S[0] < 'A') || (S[0] > 'Z') ||
|
||
(S[2] < '0') || (S[2] > '9') ||
|
||
(S[4] < 'A') || (S[4] > 'X'))
|
||
{
|
||
return -360;
|
||
}
|
||
return StartL1+StepL1*(System.Convert.ToInt16(S[0])-0x41)+
|
||
StartL2+StepL2*(System.Convert.ToInt16(S[2])-0x30)+
|
||
StartL3+StepL3*(System.Convert.ToInt16(S[4])-0x41);
|
||
}
|
||
catch
|
||
{
|
||
// Fehler bei der L<>ngenberechnung
|
||
return -360;
|
||
}
|
||
}
|
||
|
||
public static string Loc ( double L,double B )
|
||
{
|
||
try
|
||
{
|
||
double StepB1 = 10;
|
||
double StepB2 = StepB1/10;
|
||
double StepB3 = StepB2/24;
|
||
double StartB1 = -90;
|
||
double StartB2 = 0;
|
||
double StartB3 = StepB3/2;
|
||
double StepL1 = 20;
|
||
double StepL2 = StepL1/10;
|
||
double StepL3 = StepL2/24;
|
||
double StartL1 = -180;
|
||
double StartL2 = 0;
|
||
double StartL3 = StepL3/2;
|
||
int i0,i1,i2,i3,i4,i5;
|
||
char S0,S1,S2,S3,S4,S5;
|
||
i0 = System.Convert.ToInt32(Math.Floor((L - StartL1)/StepL1));
|
||
S0 = System.Convert.ToChar(i0+0x41);
|
||
L = L - i0 * StepL1 - StartL1;
|
||
i2 = System.Convert.ToInt32(Math.Floor((L - StartL2)/StepL2));
|
||
S2 = System.Convert.ToChar(i2+0x30);
|
||
L = L - i2 * StepL2 - StartL2;
|
||
i4 = System.Convert.ToInt32((L - StartL3)/StepL3);
|
||
S4 = System.Convert.ToChar(i4+0x41);
|
||
i1 = System.Convert.ToInt32(Math.Floor((B - StartB1)/StepB1));
|
||
S1 = System.Convert.ToChar(i1+0x41);
|
||
B = B - i1 * StepB1 - StartB1;
|
||
i3 = System.Convert.ToInt32(Math.Floor((B - StartB2)/StepB2));
|
||
S3 = System.Convert.ToChar(i3+0x30);
|
||
B = B - i3 * StepB2 - StartB2;
|
||
i5 = System.Convert.ToInt32((B - StartB3)/StepB3);
|
||
S5 = System.Convert.ToChar(i5+0x41);
|
||
string S = System.String.Concat(S0,S1,S2,S3,S4,S5);
|
||
return S;
|
||
}
|
||
catch
|
||
{
|
||
// Fehler bei der Locatorberechnung
|
||
return "";
|
||
}
|
||
}
|
||
|
||
public static int QRB ( string MyLoc, string Loc )
|
||
{
|
||
return QRB(Lat(MyLoc), Lon(MyLoc), Lat(Loc), Lon(Loc));
|
||
}
|
||
|
||
public static int QRB (double MyLat, double MyLon, double Lat, double Lon)
|
||
{
|
||
try
|
||
{
|
||
// double F = 2*Math.PI*Radius/360;
|
||
// acording to IARU Reg1 contest rules
|
||
double F = 111.2;
|
||
double E;
|
||
if ((MyLon<-180) || (MyLon>180) ||
|
||
(MyLat<-90) || (MyLat>90) ||
|
||
(Lon<-180) || (Lon>180) ||
|
||
(Lat<-90) || (Lat>90))
|
||
return -1;
|
||
E = Math.Sin(MyLat/180*Math.PI)*Math.Sin(Lat/180*Math.PI)+
|
||
Math.Cos(MyLat/180*Math.PI)*Math.Cos(Lat/180*Math.PI)*Math.Cos((MyLon-Lon)/180*Math.PI);
|
||
if (E == 0) return 0;
|
||
E = Math.Sqrt(1-E*E)/E;
|
||
E = Math.Atan(E)/Math.PI*180*F+0.5;
|
||
return System.Convert.ToInt32(Math.Round(E,0));
|
||
}
|
||
catch
|
||
{
|
||
// Fehler bei der Entfernungsberechnung
|
||
return -1;
|
||
}
|
||
}
|
||
|
||
public static double QTF(string MyLoc, string Loc)
|
||
{
|
||
return QTF(Lat(MyLoc), Lon(MyLoc), Lat(Loc), Lon(Loc));
|
||
}
|
||
|
||
public static double QTF (double MyLat, double MyLon, double Lat, double Lon)
|
||
{
|
||
try
|
||
{
|
||
double F = 2*Math.PI*Radius/360;
|
||
double E;
|
||
double CE,DL;
|
||
if ((MyLon<-180) || (MyLon>180) ||
|
||
(MyLat<-90) || (MyLat>90) ||
|
||
(Lon<-180) || (Lon>180) ||
|
||
(Lat<-90) || (Lat>90))
|
||
return -1;
|
||
DL = Lon - MyLon;
|
||
CE = (Math.Tan(Lat/180*Math.PI) * Math.Cos(MyLat/180*Math.PI) - Math.Sin(MyLat/180*Math.PI)) * Math.Cos(DL/180*Math.PI);
|
||
if (CE == 0)
|
||
{
|
||
if (DL < 0) return 270;
|
||
if (DL > 0) return 90;
|
||
return 0;
|
||
}
|
||
E = Math.Atan(Math.Sin(DL/180*Math.PI)/CE)/Math.PI*180;
|
||
if (CE < 0)
|
||
E += 180;
|
||
if ((CE > 0) && (E < 0))
|
||
E = E + 360;
|
||
return E;
|
||
}
|
||
catch
|
||
{
|
||
// Fehler bei der Winkelberechnung
|
||
return -1;
|
||
}
|
||
}
|
||
|
||
public static string Cut ( string S )
|
||
{
|
||
try
|
||
{
|
||
S.Trim().ToUpper();
|
||
if (S.IndexOf('/')>= 0)
|
||
{
|
||
// hinteren Teil abschneiden
|
||
if(S.IndexOf('/') >= S.Length-4)
|
||
S = S.Remove(S.IndexOf('/'),S.Length-S.IndexOf('/'));
|
||
// evtl noch vorderen Teil abschneiden
|
||
if (S.IndexOf('/') >= 0)
|
||
S = S.Remove(0,S.IndexOf('/')+1);
|
||
// nochmals hinteren Teil abschneiden
|
||
if(S.IndexOf('/') >= S.Length-4)
|
||
S = S.Remove(S.IndexOf('/'),S.Length-S.IndexOf('/'));
|
||
}
|
||
return S;
|
||
}
|
||
catch
|
||
{
|
||
// Fehler beim Abschneiden des Rufzeichens
|
||
return "";
|
||
}
|
||
}
|
||
|
||
public static string Prefix (string S)
|
||
{
|
||
S = WCCheck.Cut(S).ToUpper();
|
||
string Start = "";
|
||
string Stop = "";
|
||
string Prefix = "???";
|
||
for (int i = 0; i < Prefixes.Count; i++)
|
||
{
|
||
try
|
||
{
|
||
Start = ((PrefixEntry)Prefixes[i]).Start;
|
||
Stop = ((PrefixEntry)Prefixes[i]).Stop;
|
||
Prefix = ((PrefixEntry)Prefixes[i]).Prefix;
|
||
// Call zurechtstutzen auf L<>nge des Prefixes
|
||
S = S.Substring(0, Start.Length);
|
||
if ((S.CompareTo(Start) >= 0) && (S.CompareTo(Stop) <= 0))
|
||
return Prefix;
|
||
}
|
||
catch
|
||
{
|
||
// Fehler beim Suchen des Prefixes, i.allg. ist das Call zu kurz
|
||
// --> nichts weiter unternehmen
|
||
}
|
||
|
||
}
|
||
return "???";
|
||
}
|
||
|
||
public static int IsCall (string S)
|
||
{
|
||
// bewertet <20>bergabestring als Call
|
||
// R<>ckgabewerte : -1 - auf keinen Fall
|
||
// 0 - vielleicht
|
||
// +1 - wahrscheinlich
|
||
try
|
||
{
|
||
S = S.Trim();
|
||
S = S.ToUpper();
|
||
// auf unerlaubte Zeichen testen
|
||
for (int j = 0;j < S.Length;j++)
|
||
{
|
||
if (((S[j] <'A') || (S[j] > 'Z')) &&
|
||
((S[j] < '0') || (S[j] > '9')) &&
|
||
((S[j] != '/')))
|
||
{
|
||
return -1;
|
||
}
|
||
}
|
||
// Rufzeichen von Zus<75>tzen befreien
|
||
S = Cut(S);
|
||
// Rufzeichen zu kurz
|
||
if (S.Length < 3)
|
||
return -1;
|
||
// eigentlicher Test
|
||
// erstes Zeichen Zahl
|
||
if (Char.IsNumber(S,0))
|
||
{
|
||
// zweites Zeichen muss Buchstabe sein
|
||
// drittes Zeichen muss Zahl sein
|
||
// Beispiel : 9A5O
|
||
if (Char.IsLetter(S,1) && Char.IsNumber(S,2))
|
||
return 1;
|
||
return -1;
|
||
}
|
||
else
|
||
{
|
||
// erstes Zeichen Buchstabe
|
||
// zweites Zeichen Buchstabe
|
||
if (Char.IsLetter(S,1))
|
||
{
|
||
// drittes Zeichen muss Zahl sein
|
||
// Beispiel DL0GTH
|
||
if (Char.IsNumber(S,2))
|
||
return 1;
|
||
return -1;
|
||
}
|
||
else
|
||
{
|
||
// zweites Zeichen Zahl
|
||
// drittes Zeichen Buchstabe
|
||
// Beispiel G7RAU
|
||
if (Char.IsLetter(S,2))
|
||
return 1;
|
||
// drittes Zeichen Zahl
|
||
// Beispiel T91CO
|
||
if (Char.IsLetter(S,3))
|
||
return 1;
|
||
return -1;
|
||
}
|
||
}
|
||
}
|
||
catch
|
||
{
|
||
return -1;
|
||
}
|
||
}
|
||
|
||
public static int IsLoc (string S)
|
||
{
|
||
// bewertet <20>bergabestring als Locator
|
||
// R<>ckgabewerte : -1 - auf keinen Fall
|
||
// 0 - vielleicht
|
||
// +1 - wahrscheinlich
|
||
S = S.Trim();
|
||
S = S.ToUpper();
|
||
if (S.Length == 6)
|
||
{
|
||
if ((S[0] >= 'A') && (S[0] <= 'X') &&
|
||
(S[1] >= 'A') && (S[1] <= 'X') &&
|
||
(S[2] >= '0') && (S[2] <= '9') &&
|
||
(S[3] >= '0') && (S[3] <= '9') &&
|
||
(S[4] >= 'A') && (S[4] <= 'X') &&
|
||
(S[5] >= 'A') && (S[5] <= 'X'))
|
||
{
|
||
return 1;
|
||
}
|
||
}
|
||
return -1;
|
||
}
|
||
|
||
public static bool IsNumeric (string S)
|
||
{
|
||
// bewertet <20>bergabestring als Ganzzahl
|
||
int i = 0;
|
||
while ((i< S.Length) && (S[i] >= '0') && (S[i] <= '9'))
|
||
i+=1;
|
||
return (i >= S.Length);
|
||
}
|
||
}
|
||
|
||
public class WCUtils : Object
|
||
{
|
||
public static void Debug ( string S, int priority )
|
||
{
|
||
System.Console.WriteLine(System.DateTime.UtcNow+"("+priority+") - "+S);
|
||
}
|
||
}
|
||
}
|