I am trying to show the intersections of two curves, using Epilog. But, Epilog doesn't show the points when I gather them in Table. Is there a way to show the points using a Table?
gamma4 = .4; gamma3 = .284; gamma2 = .265; gamma1 = .484; z3 = 10000; \
z2 = 32000; z1 = 75000; zbar4 = 4800; zbar3 = 20050; zbar2 = 46200;
zbar1 = 138100; h4 = .301; h3 = .404; h2 = .25;
h1 = .045; p1 = 3.89; p2 = 4.92; p3 = 5.22;
p4 = 5.39; g1 = 0; g2 = 0.44; g3 = 0.88; g4 = 1.76;
Cost2 = (g2 + a (g1 p1 + g3 p3 + g4 p4)) h2 (zbar2 - z2) + (g1 +
a (g2 p2 + g3 p3 + g4 p4)) h1 (z1 - z2);
Gain2 = (h2 (zbar2 - z2) +
h1 (z1 - z2) + (a (g1 p1 + (g2 p2/\[Tau]2) + g3 p3 + g4 p4) -
1) h2 zbar2 gamma2 (\[Tau]2/(1 - \[Tau]2)));
"Finding the intersections"
daSol = NSolve[{Cost2 == Gain2}, {\[Tau]2}]
x[aa_] := daSol /. a -> aa ;
y[aa_] := Cost2 /. a -> aa ;
data = Table[{\[Tau]2 /. x[a], y[a]}, {a, 0, 0.05, 0.05}]
Clear[\[Tau]2]
d0 = Show[
Plot[Evaluate@Table[ Gain2, {a, 0.05, 0.09, 0.01}], {\[Tau]2, 0, 1},
PlotLabels -> Placed[ Table[a, {a, 0.05, 0.09, 0.01}], After],
PlotRange -> {{0, 1}, {0, 11000}},
Epilog -> {PointSize[Large], Red, Point[data]}] ,
Plot[Evaluate@Table[Cost2, {a, 0.05, 0.09, 0.01}], {\[Tau]2, 0, 1},
PlotLabels -> Placed[ Table[a, {a, 0.05, 0.09, 0.01}], After]]]