Wrapfig package question

Question

I am able to get the image to wrap around the text I want it to (Problem 15) but then the spacing gets carried onto the next set of text (Problem 18) and I don't want it to do that. How can I remove that large space of text from Problem 18?

\documentclass[11pt]{article}
\usepackage[english]{babel}
\usepackage[margin=1in]{geometry}
\usepackage{graphicx}
\usepackage{wrapfig}
\begin{document}
\begin{wrapfigure}[10]{R}{0.25\textwidth} 
    \centering
    \includegraphics[width=0.32\textwidth]{15.png}
\end{wrapfigure}
\section*{Problem 15}
An airplane is flying at a height of $h=900$ft. while watching a target that is $70$ft tall ($H=70$ft.), as shown in the figure. The best view of the target is when $\theta$ is maximum. Write a MATLAB program, that determines the distance $x$ at which $\theta$ is maximum. Define a vector $x$ with elements ranging from $5-$ to $1500$ with spacing of $0.5$. Use this vector to calculate the corresponding values of $\theta$. Then use MATLAB's built-in function $max$ to find the value of $x$ that corresponds to the largest value of $\theta$.\\
\\
\section*{Problem 18}
The intrinsic electrical conductivity of $\sigma$ of a semiconductor can be approximated by:
$$
    \sigma = e^{C-\frac{E_g}{2kT}}
$$
Where $\sigma$ is measured in $(\Omega -m)^{-1}$, $E_g$ is the band gap energy, $k$ is Boltzmann's constant $(8.62\times 10^{-5} ev/K)$, and $T$ is temperature in kelvins. For Germanium, $C=13.83$ and $E_g=0.67ev$. Write a program in a script file that calculates the intrinsic electrical conductivity for Germanium for various temperatures. The Values of the temperature should be read from and xls spreadsheet suing the $xlsread$ command. The output should be presented as a table where the first column is the temperature and the second column is the intrinsic electrical conductivity. Use the following values for temperate: $400, 435, 475, 500, 520,$ and $545 K$.  
\end{document}

Answer 1

You will note that the overhang is also computed automatically. Due to the section* and \intertext, \WFclear is still needed.

You might also look at the \wrapspacer macro I developed for this question.

\documentclass[11pt]{article}
\usepackage[english]{babel}
\usepackage[margin=1in]{geometry}
\usepackage{graphicx}
\usepackage{wrapfig}
\begin{document}

\begin{wrapfigure}{R}{0.25\textwidth}
    \centering
    \includegraphics[width=0.32\textwidth]{example-image}
\end{wrapfigure}
\section*{Problem 15}
An airplane is flying at a height of $h=900$ft. while watching a target that is $70$ft tall ($H=70$ft.), as shown in the figure. The best view of the target is when $\theta$ is maximum. Write a MATLAB program, that determines the distance $x$ at which $\theta$ is maximum. Define a vector $x$ with elements ranging from $5-$ to $1500$ with spacing of $0.5$. Use this vector to calculate the corresponding values of $\theta$. Then use MATLAB's built-in function $max$ to find the value of $x$ that corresponds to the largest value of $\theta$.\WFclear

\section*{Problem 18}
The intrinsic electrical conductivity of $\sigma$ of a semiconductor can be approximated by:
\[
    \sigma = e^{C-\frac{E_g}{2kT}}
\]
Where $\sigma$ is measured in $(\Omega -m)^{-1}$, $E_g$ is the band gap energy, $k$ is Boltzmann's constant $(8.62\times 10^{-5} ev/K)$, and $T$ is temperature in kelvins. For Germanium, $C=13.83$ and $E_g=0.67ev$. Write a program in a script file that calculates the intrinsic electrical conductivity for Germanium for various temperatures. The Values of the temperature should be read from and xls spreadsheet suing the $xlsread$ command. The output should be presented as a table where the first column is the temperature and the second column is the intrinsic electrical conductivity. Use the following values for temperate: $400, 435, 475, 500, 520,$ and $545 K$.  
\end{document}