Question: Need a line plot joining more than 2 points

Dear hope you will be fine I want to represent the data in term of solid line not dotted, asterik etc of the following code. Please help me to fix this problem

restart; epsilon := 0; Pr := 1; beta := .1; Sc := 1; S := 0; L := 15;
                               15
for i from -L while i <= L do a[i] := 1.0*i/L end do;
for i2 from -L while i2 <= L do fw := a[i2]; Eq1[i2] := eval(diff(F(eta), eta, eta, eta)+F(eta)*(diff(F(eta), eta, eta))-(diff(F(eta), eta))^2+S*(epsilon-(diff(F(eta), eta)))+epsilon^2); Eq2[i2] := eval((diff(G(eta), eta, eta))/Pr-G(eta)*(diff(F(eta), eta))+F(eta)*(diff(G(eta), eta))); Eq3[i2] := eval(diff(H(eta), eta, eta)+Sc*(F(eta)*(diff(H(eta), eta))-beta*H(eta))); IC[i2] := F(0) = a[i2], (D(F))(0) = 1, (D(F))(L) = epsilon, G(0) = 1, G(L) = 0, H(0) = 1, H(L) = 0; dsys1[i2] := {Eq1[i2], Eq2[i2], Eq3[i2], IC[i2]}; dsol1[i2] := dsolve(dsys1[i2], numeric, output = listprocedure, range = 0 .. L); dsol1x[i2] := subs(dsol1[i2], diff(F(eta), eta, eta)); dsol1y[i2] := subs(dsol1[i2], G(eta)); dsol1z[i2] := subs(dsol1[i2], H(eta)) end do;
for j from -L while j <= L do g[j] := eval(-dsol1x[j](0)) end do;
with(plots);

g1 := pointplot({seq([n/L, g[n]], n = -L .. L)}, symbol = asterisk, symbolsize = 15, color = blue);
display(g1);