//text1//////
*
2450.0
***Wires***
121
0.0275,	0.0,	0.0294,	0.0275,	0.0,	-0.0294,	0.002,	-1
0.0612,	0.1222,	0.0064,	0.0,	0.1222,	0.0064,	0.002,	-1
0.0,	0.1222,	0.0064,	0.0,	0.1222,	-0.0064,	0.002,	-1
0.0612,	0.1222,	-0.0064,	0.0,	0.1222,	-0.0064,	0.002,	-1
0.0612,	0.1209,	0.0191,	0.0,	0.1209,	0.0191,	0.002,	-1
0.0,	0.1209,	0.0191,	0.0,	0.1209,	-0.0191,	0.002,	-1
0.0612,	0.1209,	-0.0191,	0.0,	0.1209,	-0.0191,	0.002,	-1
0.0612,	0.1182,	0.0317,	0.0,	0.1182,	0.0317,	0.002,	-1
0.0,	0.1182,	0.0317,	0.0,	0.1182,	-0.0317,	0.002,	-1
0.0612,	0.1182,	-0.0317,	0.0,	0.1182,	-0.0317,	0.002,	-1
0.0612,	0.1142,	0.0439,	0.0,	0.1142,	0.0439,	0.002,	-1
0.0,	0.1142,	0.0439,	0.0,	0.1142,	-0.0439,	0.002,	-1
0.0612,	0.1142,	-0.0439,	0.0,	0.1142,	-0.0439,	0.002,	-1
0.0612,	0.109,	0.0556,	0.0,	0.109,	0.0556,	0.002,	-1
0.0,	0.109,	0.0556,	0.0,	0.109,	-0.0556,	0.002,	-1
0.0612,	0.109,	-0.0556,	0.0,	0.109,	-0.0556,	0.002,	-1
0.0612,	0.1026,	0.0666,	0.0,	0.1026,	0.0666,	0.002,	-1
0.0,	0.1026,	0.0666,	0.0,	0.1026,	-0.0666,	0.002,	-1
0.0612,	0.1026,	-0.0666,	0.0,	0.1026,	-0.0666,	0.002,	-1
0.0612,	0.0951,	0.077,	0.0,	0.0951,	0.077,	0.002,	-1
0.0,	0.0951,	0.077,	0.0,	0.0951,	-0.077,	0.002,	-1
0.0612,	0.0951,	-0.077,	0.0,	0.0951,	-0.077,	0.002,	-1
0.0612,	0.0865,	0.0865,	0.0,	0.0865,	0.0865,	0.002,	-1
0.0,	0.0865,	0.0865,	0.0,	0.0865,	-0.0865,	0.002,	-1
0.0612,	0.0865,	-0.0865,	0.0,	0.0865,	-0.0865,	0.002,	-1
0.0612,	0.077,	0.0951,	0.0,	0.077,	0.0951,	0.002,	-1
0.0,	0.077,	0.0951,	0.0,	0.077,	-0.0951,	0.002,	-1
0.0612,	0.077,	-0.0951,	0.0,	0.077,	-0.0951,	0.002,	-1
0.0612,	0.0666,	0.1026,	0.0,	0.0666,	0.1026,	0.002,	-1
0.0,	0.0666,	0.1026,	0.0,	0.0666,	-0.1026,	0.002,	-1
0.0612,	0.0666,	-0.1026,	0.0,	0.0666,	-0.1026,	0.002,	-1
0.0612,	0.0556,	0.109,	0.0,	0.0556,	0.109,	0.002,	-1
0.0,	0.0556,	0.109,	0.0,	0.0556,	-0.109,	0.002,	-1
0.0612,	0.0556,	-0.109,	0.0,	0.0556,	-0.109,	0.002,	-1
0.0612,	0.0439,	0.1142,	0.0,	0.0439,	0.1142,	0.002,	-1
0.0,	0.0439,	0.1142,	0.0,	0.0439,	-0.1142,	0.002,	-1
0.0612,	0.0439,	-0.1142,	0.0,	0.0439,	-0.1142,	0.002,	-1
0.0612,	0.0317,	0.1182,	0.0,	0.0317,	0.1182,	0.002,	-1
0.0,	0.0317,	0.1182,	0.0,	0.0317,	-0.1182,	0.002,	-1
0.0612,	0.0317,	-0.1182,	0.0,	0.0317,	-0.1182,	0.002,	-1
0.0612,	0.0191,	0.1209,	0.0,	0.0191,	0.1209,	0.002,	-1
0.0,	0.0191,	0.1209,	0.0,	0.0191,	-0.1209,	0.002,	-1
0.0612,	0.0191,	-0.1209,	0.0,	0.0191,	-0.1209,	0.002,	-1
0.0612,	0.0064,	0.1222,	0.0,	0.0064,	0.1222,	0.002,	-1
0.0,	0.0064,	0.1222,	0.0,	0.0064,	-0.1222,	0.002,	-1
0.0612,	0.0064,	-0.1222,	0.0,	0.0064,	-0.1222,	0.002,	-1
0.0612,	-0.0064,	0.1222,	0.0,	-0.0064,	0.1222,	0.002,	-1
0.0,	-0.0064,	0.1222,	0.0,	-0.0064,	-0.1222,	0.002,	-1
0.0612,	-0.0064,	-0.1222,	0.0,	-0.0064,	-0.1222,	0.002,	-1
0.0612,	-0.0191,	0.1209,	0.0,	-0.0191,	0.1209,	0.002,	-1
0.0,	-0.0191,	0.1209,	0.0,	-0.0191,	-0.1209,	0.002,	-1
0.0612,	-0.0191,	-0.1209,	0.0,	-0.0191,	-0.1209,	0.002,	-1
0.0612,	-0.0317,	0.1182,	0.0,	-0.0317,	0.1182,	0.002,	-1
0.0,	-0.0317,	0.1182,	0.0,	-0.0317,	-0.1182,	0.002,	-1
0.0612,	-0.0317,	-0.1182,	0.0,	-0.0317,	-0.1182,	0.002,	-1
0.0612,	-0.0439,	0.1142,	0.0,	-0.0439,	0.1142,	0.002,	-1
0.0,	-0.0439,	0.1142,	0.0,	-0.0439,	-0.1142,	0.002,	-1
0.0612,	-0.0439,	-0.1142,	0.0,	-0.0439,	-0.1142,	0.002,	-1
0.0612,	-0.0556,	0.109,	0.0,	-0.0556,	0.109,	0.002,	-1
0.0,	-0.0556,	0.109,	0.0,	-0.0556,	-0.109,	0.002,	-1
0.0612,	-0.0556,	-0.109,	0.0,	-0.0556,	-0.109,	0.002,	-1
0.0612,	-0.0666,	0.1026,	0.0,	-0.0666,	0.1026,	0.002,	-1
0.0,	-0.0666,	0.1026,	0.0,	-0.0666,	-0.1026,	0.002,	-1
0.0612,	-0.0666,	-0.1026,	0.0,	-0.0666,	-0.1026,	0.002,	-1
0.0612,	-0.077,	0.0951,	0.0,	-0.077,	0.0951,	0.002,	-1
0.0,	-0.077,	0.0951,	0.0,	-0.077,	-0.0951,	0.002,	-1
0.0612,	-0.077,	-0.0951,	0.0,	-0.077,	-0.0951,	0.002,	-1
0.0612,	-0.0865,	0.0865,	0.0,	-0.0865,	0.0865,	0.002,	-1
0.0,	-0.0865,	0.0865,	0.0,	-0.0865,	-0.0865,	0.002,	-1
0.0612,	-0.0865,	-0.0865,	0.0,	-0.0865,	-0.0865,	0.002,	-1
0.0612,	-0.0951,	0.077,	0.0,	-0.0951,	0.077,	0.002,	-1
0.0,	-0.0951,	0.077,	0.0,	-0.0951,	-0.077,	0.002,	-1
0.0612,	-0.0951,	-0.077,	0.0,	-0.0951,	-0.077,	0.002,	-1
0.0612,	-0.1026,	0.0666,	0.0,	-0.1026,	0.0666,	0.002,	-1
0.0,	-0.1026,	0.0666,	0.0,	-0.1026,	-0.0666,	0.002,	-1
0.0612,	-0.1026,	-0.0666,	0.0,	-0.1026,	-0.0666,	0.002,	-1
0.0612,	-0.109,	0.0556,	0.0,	-0.109,	0.0556,	0.002,	-1
0.0,	-0.109,	0.0556,	0.0,	-0.109,	-0.0556,	0.002,	-1
0.0612,	-0.109,	-0.0556,	0.0,	-0.109,	-0.0556,	0.002,	-1
0.0612,	-0.1142,	0.0439,	0.0,	-0.1142,	0.0439,	0.002,	-1
0.0,	-0.1142,	0.0439,	0.0,	-0.1142,	-0.0439,	0.002,	-1
0.0612,	-0.1142,	-0.0439,	0.0,	-0.1142,	-0.0439,	0.002,	-1
0.0612,	-0.1182,	0.0317,	0.0,	-0.1182,	0.0317,	0.002,	-1
0.0,	-0.1182,	0.0317,	0.0,	-0.1182,	-0.0317,	0.002,	-1
0.0612,	-0.1182,	-0.0317,	0.0,	-0.1182,	-0.0317,	0.002,	-1
0.0612,	-0.1209,	0.0191,	0.0,	-0.1209,	0.0191,	0.002,	-1
0.0,	-0.1209,	0.0191,	0.0,	-0.1209,	-0.0191,	0.002,	-1
0.0612,	-0.1209,	-0.0191,	0.0,	-0.1209,	-0.0191,	0.002,	-1
0.0612,	-0.1222,	0.0064,	0.0,	-0.1222,	0.0064,	0.002,	-1
0.0,	-0.1222,	0.0064,	0.0,	-0.1222,	-0.0064,	0.002,	-1
0.0612,	-0.1222,	-0.0064,	0.0,	-0.1222,	-0.0064,	0.002,	-1
0.0612,	0.11,	0.0016,	0.0612,	0.11,	-0.0016,	0.002,	-1
0.0612,	0.1088,	0.0048,	0.0612,	0.1088,	-0.0048,	0.002,	-1
0.0612,	0.1064,	0.0079,	0.0612,	0.1064,	-0.0079,	0.002,	-1
0.0612,	0.1028,	0.011,	0.0612,	0.1028,	-0.011,	0.002,	-1
0.0612,	0.0981,	0.0139,	0.0612,	0.0981,	-0.0139,	0.002,	-1
0.0612,	0.0924,	0.0167,	0.0612,	0.0924,	-0.0167,	0.002,	-1
0.0612,	0.0856,	0.0193,	0.0612,	0.0856,	-0.0193,	0.002,	-1
0.0612,	0.0779,	0.0216,	0.0612,	0.0779,	-0.0216,	0.002,	-1
0.0612,	0.0693,	0.0238,	0.0612,	0.0693,	-0.0238,	0.002,	-1
0.0612,	0.06,	0.0257,	0.0612,	0.06,	-0.0257,	0.002,	-1
0.0612,	0.05,	0.0273,	0.0612,	0.05,	-0.0273,	0.002,	-1
0.0612,	0.0395,	0.0286,	0.0612,	0.0395,	-0.0286,	0.002,	-1
0.0612,	0.0285,	0.0295,	0.0612,	0.0285,	-0.0295,	0.002,	-1
0.0612,	0.0172,	0.0302,	0.0612,	0.0172,	-0.0302,	0.002,	-1
0.0612,	0.0058,	0.0305,	0.0612,	0.0058,	-0.0305,	0.002,	-1
0.0612,	-0.0058,	0.0305,	0.0612,	-0.0058,	-0.0305,	0.002,	-1
0.0612,	-0.0172,	0.0302,	0.0612,	-0.0172,	-0.0302,	0.002,	-1
0.0612,	-0.0285,	0.0295,	0.0612,	-0.0285,	-0.0295,	0.002,	-1
0.0612,	-0.0395,	0.0286,	0.0612,	-0.0395,	-0.0286,	0.002,	-1
0.0612,	-0.05,	0.0273,	0.0612,	-0.05,	-0.0273,	0.002,	-1
0.0612,	-0.06,	0.0257,	0.0612,	-0.06,	-0.0257,	0.002,	-1
0.0612,	-0.0693,	0.0238,	0.0612,	-0.0693,	-0.0238,	0.002,	-1
0.0612,	-0.0779,	0.0216,	0.0612,	-0.0779,	-0.0216,	0.002,	-1
0.0612,	-0.0856,	0.0193,	0.0612,	-0.0856,	-0.0193,	0.002,	-1
0.0612,	-0.0924,	0.0167,	0.0612,	-0.0924,	-0.0167,	0.002,	-1
0.0612,	-0.0981,	0.0139,	0.0612,	-0.0981,	-0.0139,	0.002,	-1
0.0612,	-0.1028,	0.011,	0.0612,	-0.1028,	-0.011,	0.002,	-1
0.0612,	-0.1064,	0.0079,	0.0612,	-0.1064,	-0.0079,	0.002,	-1
0.0612,	-0.1088,	0.0048,	0.0612,	-0.1088,	-0.0048,	0.002,	-1
0.0612,	-0.11,	0.0016,	0.0612,	-0.11,	-0.0016,	0.002,	-1
***Source***
1,	1
w1c,	0.0,	1.0
***Load***
0,	1
***Segmentation***
100,	10,	2.0,	1
***G/H/M/R/AzEl/X***
0,	0.02,	0,	50.0,	120,	60,	0.0
###Comment###
//text2/////
================================================
Const fri = 2450#, lam = 299.792 / fri
Dim blok(333) As String, Hblok As Integer
Type poin: x As Single: y As Single: z As Single: End Type
Dim setk(66, 66) As poin, spi(999) As poin
Sub spirbank(): Hblok = 0
diam = 2 * lam: 'dg = 1.706 * diam: lamg = (lam ^ -2 - dg ^ -2) ^ -0.5
a = lam / 4 * 0.9: aa = a: c = 0.24 * lam: cc = -c: b = 0: bb = 0: Call zapp(a, b, c, aa, bb, cc)
hx = lam / 2
'hx = 2* lamg * 1
dal = 3.1415927 / 30
For i = 1 To 30.0001: al = i * dal - dal / 2: y = diam / 2 * Cos(al): z = diam / 2 * Sin(al)
a = hx: b = y: c = z: aa = 0: bb = y: cc = z: Call zapp(a, b, c, aa, bb, cc)
a = 0: b = y: c = z: aa = 0: bb = y: cc = -z: Call zapp(a, b, c, aa, bb, cc)
a = hx: b = y: c = -z: aa = 0: bb = y: cc = -z: Call zapp(a, b, c, aa, bb, cc)
Next i
dal = 3.1415927 / 30
For i = 1 To 30.0001: al = i * dal - dal / 2: y = lam / 2 * 1.8 * Cos(al): z = lam / 2 / 2 * Sin(al)
'z = lam / 2 / 2 * Sin(al)

a = lam / 2: b = y: c = z: aa = a: bb = y: cc = -z: Call zapp(a, b, c, aa, bb, cc)

Next i


'=================================================
Open "c:\Program Files\MMANA-GAL\ANT\___.maa" For Output As #1
ss = "//text1//////": Print #1, ss
ss = "*": Print #1, ss
ss = "2450": Print #1, ss
ss = "***Wires***": Print #1, ss
ss = Format(Hblok): Print #1, ss

For h = 1 To Hblok: Print #1, blok(h): Next h

ss = "***Source***": Print #1, ss
ss = "1,  1": Print #1, ss
ss = "w1c,    0.0,    1.0": Print #1, ss
ss = "***Load***": Print #1, ss
ss = "0,  1": Print #1, ss
ss = "***Segmentation***": Print #1, ss
'ss = "200,    40, 2.0,    1": Print #1, ss
ss = "100,    10, 2.0,    1": Print #1, ss
ss = "***G/H/M/R/AzEl/X***": Print #1, ss
'ss = "2,  0.02,   0,  50.0,   120,    60, 0.0": Print #1, ss
ss = "0,  0.02,   0,  50.0,   120,    60, 0.0": Print #1, ss
ss = "###Comment###": Print #1, ss
ss = "//text2/////": Print #1, ss
Close #1
End Sub
Sub zapp(a, b, c, aa, bb, cc): Dim ss As String
ss = ""
ss = ss + Format(a, "###0.0000") + ","
ss = ss + Format(b, "###0.0000") + ","
ss = ss + Format(c, "###0.0000") + ","
ss = ss + Format(aa, "###0.0000") + ","
ss = ss + Format(bb, "###0.0000") + ","
ss = ss + Format(cc, "###0.0000") + "," + "    0.002,   -1" '2mm
Hblok = Hblok + 1: blok(Hblok) = ss
End Sub