怎么改下面的程序使其运行时间更快

我写了一个程序，虽然能运行出来，但是需要将近12小时的时间，有没有大佬看下怎么改能使其运行时间更少一些
J = {{26.`, 31.`}, {5.`, 33.`}, {8.`, 9.`}, {10.`, 24.`}, {13.`,
34.`}, {17.`, 23.`}, {20.`, 10.`}, {25.`, 47.`}, {31.`,
18.`}, {35.`, 42.`}, {36.`, 25.`}, {41.`, 31.`}, {45.`,
38.`}, {41.`, 35.`}, {40.`, 34.`}, {38.`, 35.`}, {38.`,
37.`}, {33.`, 37.`}, {31.`, 36.`}, {33.`, 35.`}, {28.`,
32.`}, {24.`, 30.`}, {21.`, 31.`}, {22.`, 27.`}, {28.`,
29.`}, {43.`, 37.`}, {44.`, 39.`}, {25.`, 27.`}, {21.`,
29.`}, {22.`, 30.`}, {24.`, 32.`}, {37.`, 33.`}, {38.`,
33.`}, {37.`, 36.`}, {14.`, 13.`}, {16.`, 9.`}, {14.`, 7.`}, {18.`,
14.`}, {12.`, 6.`}, {15.`, 14.`}, {20.`, 13.`}, {13.`,
46.`}, {16.`, 39.`}, {21.`, 39.`}, {26.`, 44.`}, {28.`,
40.`}, {27.`, 42.`}, {29.`, 38.`}, {29.`, 44.`}, {36.`,
44.`}, {41.`, 40.`}, {39.`, 52.`}, {27.`, 49.`}, {23.`,
46.`}, {20.`, 46.`}, {16.`, 46.`}, {22.`, 44.`}, {40.`,
44.`}, {42.`, 40.`}, {37.`, 42.`}, {35.`, 49.`}, {35.`,
51.`}, {35.`, 52.`}, {34.`, 55.`}, {26.`, 53.`}, {27.`,
51.`}, {31.`, 51.`}, {31.`, 45.`}, {31.`, 41.`}, {28.`,
45.`}, {27.`, 35.`}, {24.`, 38.`}, {26.`, 39.`}, {13.`,
37.`}, {17.`, 36.`}, {21.`, 41.`}, {18.`, 41.`}, {21.`,
43.`}, {13.`, 39.`}, {14.`, 43.`}, {12.`, 43.`}, {10.`,
44.`}, {16.`, 44.`}, {18.`, 44.`}, {24.`, 44.`}, {25.`,
49.`}, {24.`, 49.`}, {24.`, 51.`}, {21.`, 48.`}, {17.`,
51.`}, {10.`, 34.`}, {9.`, 35.`}, {7.`, 37.`}, {4.`, 37.`}, {5.`,
42.`}, {2.`, 44.`}, {7.`, 32.`}, {7.`, 30.`}, {1.`, 24.`}, {2.`,
16.`}, {3.`, 18.`}, {2.`, 20.`}, {4.`, 24.`}, {5.`, 28.`}, {6.`,
24.`}, {9.`, 29.`}, {2.`, 33.`}, {7.`, 34.`}, {3.`, 30.`}, {3.`,
41.`}, {10.`, 36.`}, {17.`, 34.`}, {20.`, 22.`}, {24.`,
21.`}, {22.`, 17.`}, {21.`, 16.`}, {27.`, 19.`}, {26.`,
16.`}, {9.`, 16.`}, {12.`, 17.`}, {14.`, 15.`}, {19.`,
26.`}, {14.`, 28.`}, {13.`, 25.`}, {9.`, 19.`}, {2.`, 1.`}, {6.`,
6.`}, {7.`, 8.`}, {6.`, 14.`}, {5.`, 17.`}, {5.`, 16.`}, {16.`,
19.`}, {26.`, 13.`}, {29.`, 11.`}, {31.`, 14.`}, {28.`,
17.`}, {20.`, 19.`}, {17.`, 22.`}, {15.`, 23.`}, {21.`,
23.`}, {24.`, 23.`}, {26.`, 23.`}, {25.`, 25.`}, {15.`,
31.`}, {15.`, 29.`}, {10.`, 28.`}, {38.`, 26.`}, {37.`,
25.`}, {33.`, 21.`}, {40.`, 24.`}, {44.`, 44.`}, {41.`,
31.`}, {33.`, 24.`}, {32.`, 27.`}, {40.`, 14.`}, {42.`,
26.`}, {45.`, 33.`}, {29.`, 23.`}, {31.`, 30.`}, {30.`,
25.`}, {31.`, 23.`}, {35.`, 15.`}, {40.`, 16.`}, {40.`,
20.`}, {37.`, 20.`}, {35.`, 24.`}, {43.`, 23.`}, {45.`,
26.`}, {37.`, 28.`}, {35.`, 28.`}, {33.`, 29.`}, {37.`,
30.`}, {39.`, 30.`}, {41.`, 29.`}, {43.`, 31.`}, {47.`,
34.`}, {46.`, 43.`}, {42.`, 43.`}, {48.`, 45.`}, {42.`,
44.`}, {43.`, 50.`}}
y = {};
Table[shaixuan = {};
Do[If[m == e || m == a, Continue[]];
shaixuan = Append[shaixuan, J[[m]]], {m, 1, 181}];
patr = Partition[Flatten[{J[[e]], J[[a]], shaixuan}], 2];
V = Table[patr[[n]], {n, 1, 15}];
s = {};
Table[
di = Sqrt[(V[[i, 1]] - V[[j, 1]])^2 + (V[[i, 2]] - V[[j, 2]])^2];
s = Append[s, {i, j, di}],
{i, 1, 15}, {j, i + 1, 15}];
P = Sort[s, #1[[3]] < #2[[3]] &];
gi = P[[1, 1]] <-> P[[1, 2]];
ki = {1};
Do[we = Flatten[{gi, P[[o, 1]] <-> P[[o, 2]]}];
If[AcyclicGraphQ[Graph[we]] == False, Continue[]];
ki = Append[ki, o]; gi = we, {o, 2, Dimensions[P][[1]]}];
sumdist1 = 0;
Table[sumdist1 = P[[ki[[r]], 3]] + sumdist1, {r, 1, Length[ki]}];
panding[tp_] = If[tp == 1, 1, If[tp <= 15, 2, 3]];
juzheng[tp_] = If[panding[tp] == 1, ( {
{1},
{0},
{0}
} ), If[panding[tp] == 2, ( {
{1},
{0},
{1}
} ), ( {
{0},
{1},
{1}
} )]];
se = {};
Do[If[Flatten[Transpose[juzheng[T]].juzheng[Y]] == {0}, Continue[]];
dist = Sqrt[(patr[[T, 1]] - patr[[Y, 1]])^2 + (patr[[T, 2]] -
patr[[Y, 2]])^2]; se = Append[se, {T, Y, dist}],
{T, 1, 181}, {Y, T + 1, 181}];
pai = Sort[se, #1[[3]] < #2[[3]] &];
gra = gi;
shulie = {};
Do[grah = Flatten[{gra, pai[[t, 1]] <-> pai[[t, 2]]}];
If[AcyclicGraphQ[Graph[grah]] == False, Continue[]]; gra = grah;
shulie = Append[shulie, t], {t, 1, Dimensions[pai][[1]]}];
sumdist2 = 0;
Table[sumdist2 = pai[[shulie[[u]], 3]] + sumdist2, {u, 1,
Length[shulie]}];
y = Append[y, {sumdist1, sumdist2}],
{e, 14, 30}, {a, e + 1, 30}]; y