\documentclass{thesis}
\usepackage{graphicx}
\usepackage{amsmath}
\usepackage{cases}
\usepackage{listings}
\usepackage{maplestd2e}
\usepackage{xepersian}
\settextfont{Yas}
\setdigitfont{Yas}
\begin{document}
\begin{latin}
\lstinputlisting[language=Mathematica]{Rsultant.nb}
\end{latin}
\end{document}